ad_enter_assetcard.dfm

来自「一个MRPII系统源代码版本」· DFM 代码 · 共 757 行 · 第 1/2 页

          Title.Caption = '工作总量'
          Width = 100
          KeyList.Strings = ()
        end
        Item
          FieldName = 'FinishTask'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '累计工作量'
          Width = 80
          KeyList.Strings = ()
        end
        Item
          FieldName = 'TaskUom'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '工作量单位'
          KeyList.Strings = ()
        end
        Item
          FieldName = 'PCDepreciation'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '单位折旧额'
          Width = 91
          KeyList.Strings = ()
        end
        Item
          FieldName = 'CreateDate'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '建档日期'
          Width = 80
          KeyList.Strings = ()
        end
        Item
          FieldName = 'CreateEmployeeCode'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '建档人员代码'
          Width = 80
          KeyList.Strings = ()
        end
        Item
          FieldName = 'EmployeeName1'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '建档人员名称'
          Width = 100
          KeyList.Strings = ()
        end
        Item
          FieldName = 'EditDate'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '修改日期'
          Width = 80
          KeyList.Strings = ()
        end
        Item
          FieldName = 'EdItEmployeeCode'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '修改人员代码'
          Width = 80
          KeyList.Strings = ()
        end
        Item
          FieldName = 'EmployeeName'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '修改人员名称'
          Width = 100
          KeyList.Strings = ()
        end
        Item
          FieldName = 'StArDepreciationMonth'
          PickList.Strings = ()
          Title.Caption = '开始折旧月份'
          KeyList.Strings = ()
        end>
    end
  end
  inherited AdoQry_Tmp: TAdoQuery
    Left = 533
    Top = 49
  end
  inherited ActionList: TActionList
    Left = 374
    Top = 235
  end
  inherited AdoQry_Main: TAdoQuery
    ConnectionString = ''
    CurSorType = ctStatic
    SQL.Strings = (
      'select '
      'Ad_AssetCard.AssetCode            ,'
      'Ad_AssetCard.AssetName            ,'
      'Ad_AssetCard.UomCode,'
      'Uom.UomName,'
      'Ad_AssetCard.AssetSujectCode      ,'
      'Ad_AssetCard.DepreciationSubjectCode ,'
      'Ad_AssetCard.AssetTypeCode        ,'
      'Ad_AssetCard.DepositaryCode       ,'
      'Ad_AssetCard.InAccountDate        ,'
      'Ad_AssetCard.StartUseDate         ,'
      'Ad_AssetCard.stArtstopusedate   ,'
      'Ad_AssetCard.AdChangeTypeCode     ,'
      'Ad_AssetCard.UseStatusCode        ,'
      'Ad_AssetCard.CurrencyCode         ,'
      'Ad_AssetCard.ExchangeRate         ,'
      'Ad_AssetCard.FirstAmount          ,'
      'Ad_AssetCard.FirstFAmount         ,'
      'Ad_AssetCard.DepreciationWay      ,'
      'Ad_AssetCard.IntendingPeriod      ,'
      'Ad_AssetCard.DraffRate            ,'
      'Ad_AssetCard.DraffValue           ,'
      'Ad_AssetCard.PeriodRate           ,'
      'Ad_AssetCard.PeriodValue          ,'
      'Ad_AssetCard.UsedPeriod           ,'
      'Ad_AssetCard.DepreciationValue    ,'
      'Ad_AssetCard.NetValue             ,'
      'Ad_AssetCard.Intending            ,'
      'Ad_AssetCard.FinishTask           ,'
      'Ad_AssetCard.TaskUom              ,'
      'Ad_AssetCard.PCDepreciation       ,'
      'StArDepreciationMonth '#39
      'Ad_AssetCard.CreateDate           ,'
      'Ad_AssetCard.CreateEmployeeCode   ,'
      'Ad_AssetCard.EditDate             ,'
      'Ad_AssetCard.EdItEmployeeCode     ,'
      'Ad_AssetType.AssetTypeName,Ad_Depositary.DepositaryName,'
      'Ad_UseStatus.UseStatusName,Ad_ChangeType.AdChangeTypeName,'
      
        'Employee1.EmployeeName EmployeeName1,Employee.EmployeeName,Curre' +
        'ncy.CURRENCYName,  '
      'Gl_AccountSubject1.KmName KmName1,Gl_AccountSubject.KmName '
      'from Ad_AssetCard '
      
        'left join Ad_AssetType on Ad_AssetCard.AssetTypeCode=Ad_AssetTyp' +
        'e.AssetTypeCode'
      
        'left join Ad_Depositary  on Ad_AssetCard.DepositaryCode=Ad_Depos' +
        'itAry.DepositaryCode'
      
        'left join Ad_UseStatus  on Ad_AssetCard.UseStatusCode=Ad_UseStat' +
        'us.UseStatusCode    '
      
        'left join Ad_ChangeType  on Ad_AssetCard.AdChangeTypeCode=Ad_Cha' +
        'ngeType.AdChangeTypeCode '
      
        'Left Join Gl_AccountSubject Gl_AccountSubject1 On  Ad_AssetCard.' +
        'AssetSujectCode=Gl_AccountSubject1.KmCode '
      
        'Left Join Gl_AccountSubject On  Ad_AssetCard.AssetSujectCode=Gl_' +
        'AccountSubject.KmCode '
      
        'Left Join Employee Employee1 On  Ad_AssetCard.CreateEmployeeCode' +
        '=Employee1.EmployeeCode'
      
        'Left Join Employee On  Ad_AssetCard.EdItEmployeeCode=Employee.Em' +
        'ployeeCode'
      
        'Left Join Currency On  Ad_AssetCard.CurrencyCode=Currency.CURREN' +
        'CYCode'
      'left join Uom on Ad_AssetCard.UomCode=Uom.UomCode')
    Left = 410
    Top = 260
    object AdoQry_MainAssetCode: TStringField
      FieldName = 'AssetCode'
      Origin = 'Ad_AssetCard'
      Size = 16
    end
    object AdoQry_MainAssetName: TStringField
      FieldName = 'AssetName'
      Origin = 'Ad_AssetCard'
      Size = 60
    end
    object AdoQry_MainAssetSujectCode: TStringField
      FieldName = 'AssetSujectCode'
      Origin = 'Ad_AssetCard'
      Size = 15
    end
    object AdoQry_MainDepreciationSubjectCode: TStringField
      FieldName = 'DepreciationSubjectCode'
      Origin = 'Ad_AssetCard'
      Size = 15
    end
    object AdoQry_MainAssetTypeCode: TStringField
      FieldName = 'AssetTypeCode'
      Origin = 'Ad_AssetCard'
      Size = 4
    end
    object AdoQry_MainDepositaryCode: TStringField
      FieldName = 'DepositaryCode'
      Origin = 'Ad_AssetCard'
      Size = 4
    end
    object AdoQry_MainInAccountDate: TDateTimeField
      FieldName = 'InAccountDate'
      Origin = 'Ad_AssetCard'
    end
    object AdoQry_MainStartUseDate: TDateTimeField
      FieldName = 'StartUseDate'
      Origin = 'Ad_AssetCard'
    end
    object AdoQry_MainAdChangeTypeCode: TStringField
      FieldName = 'AdChangeTypeCode'
      Origin = 'Ad_AssetCard'
      Size = 4
    end
    object AdoQry_MainUseStatusCode: TStringField
      FieldName = 'UseStatusCode'
      Origin = 'Ad_AssetCard'
      Size = 4
    end
    object AdoQry_MainCurrencyCode: TStringField
      FieldName = 'CurrencyCode'
      Origin = 'Ad_AssetCard'
      Size = 3
    end
    object AdoQry_MainExchangeRate: TFloatField
      FieldName = 'ExchangeRate'
      Origin = 'Ad_AssetCard'
    end
    object AdoQry_MainFirstAmount: TFloatField
      FieldName = 'FirstAmount'
      Origin = 'Ad_AssetCard'
    end
    object AdoQry_MainFirstFAmount: TFloatField
      FieldName = 'FirstFAmount'
      Origin = 'Ad_AssetCard'
    end
    object AdoQry_MainDepreciationWay: TIntegerField
      FieldName = 'DepreciationWay'
      Origin = 'Ad_AssetCard'
    end
    object AdoQry_MainDraffRate: TFloatField
      FieldName = 'DraffRate'
      Origin = 'Ad_AssetCard'
    end
    object AdoQry_MainDraffValue: TFloatField
      FieldName = 'DraffValue'
      Origin = 'Ad_AssetCard'
    end
    object AdoQry_MainPeriodRate: TFloatField
      FieldName = 'PeriodRate'
      Origin = 'Ad_AssetCard'
    end
    object AdoQry_MainPeriodValue: TFloatField
      FieldName = 'PeriodValue'
      Origin = 'Ad_AssetCard'
    end
    object AdoQry_MainUsedPeriod: TIntegerField
      FieldName = 'UsedPeriod'
      Origin = 'Ad_AssetCard'
    end
    object AdoQry_MainDepreciationValue: TFloatField
      FieldName = 'DepreciationValue'
      Origin = 'Ad_AssetCard'
    end
    object AdoQry_MainNetValue: TFloatField
      FieldName = 'NetValue'
      Origin = 'Ad_AssetCard'
    end
    object AdoQry_MainIntending: TFloatField
      FieldName = 'Intending'
      Origin = 'Ad_AssetCard'
    end
    object AdoQry_MainFinishTask: TFloatField
      FieldName = 'FinishTask'
      Origin = 'Ad_AssetCard'
    end
    object AdoQry_MainTaskUom: TStringField
      FieldName = 'TaskUom'
      Origin = 'Ad_AssetCard'
      Size = 10
    end
    object AdoQry_MainPCDepreciation: TFloatField
      FieldName = 'PCDepreciation'
      Origin = 'Ad_AssetCard'
    end
    object AdoQry_MainCreateDate: TDateTimeField
      FieldName = 'CreateDate'
      Origin = 'Ad_AssetCard'
    end
    object AdoQry_MainIntendingPeriod: TFloatField
      FieldName = 'IntendingPeriod'
    end
    object AdoQry_MainCreateEmployeeCode: TStringField
      FieldName = 'CreateEmployeeCode'
      Origin = 'Ad_AssetCard'
      Size = 30
    end
    object AdoQry_MainEditDate: TDateTimeField
      FieldName = 'EditDate'
      Origin = 'Ad_AssetCard'
    end
    object AdoQry_MainEdItEmployeeCode: TStringField
      FieldName = 'EdItEmployeeCode'
      Origin = 'Ad_AssetCard'
      Size = 30
    end
    object AdoQry_MainAssetTypeName: TStringField
      FieldName = 'AssetTypeName'
      Origin = 'Ad_AssetType'
      Size = 60
    end
    object AdoQry_MainDepositaryName: TStringField
      FieldName = 'DepositaryName'
      Origin = 'Ad_Depositary'
      Size = 60
    end
    object AdoQry_MainUseStatusName: TStringField
      FieldName = 'UseStatusName'
      Origin = 'Ad_UseStatus'
      Size = 60
    end
    object AdoQry_MainAdChangeTypeName: TStringField
      FieldName = 'AdChangeTypeName'
      Origin = 'Ad_ChangeType'
      Size = 60
    end
    object AdoQry_MainEmployeeName1: TStringField
      FieldName = 'EmployeeName1'
      Origin = 'Employee'
      Size = 60
    end
    object AdoQry_MainEmployeeName: TStringField
      FieldName = 'EmployeeName'
      Origin = 'Employee'
      Size = 60
    end
    object AdoQry_MainCURRENCYName: TStringField
      FieldName = 'CURRENCYName'
      Origin = 'Currency'
      Size = 30
    end
    object AdoQry_MainKmName1: TStringField
      FieldName = 'KmName1'
      Origin = 'Gl_AccountSubject1'
      Size = 40
    end
    object AdoQry_MainKmName: TStringField
      FieldName = 'KmName'
      Origin = 'Gl_AccountSubject'
      Size = 40
    end
    object AdoQry_MainUomCode: TStringField
      FieldName = 'UomCode'
      Size = 4
    end
    object AdoQry_MainstArtstopusedate: TDateTimeField
      DisplayLabel = '注销日期'
      FieldName = 'stArtstopusedate'
      Origin = 'Ad_AssetCard'
    end
    object AdoQry_MainUomName: TStringField
      DisplayLabel = '计量单位'
      FieldName = 'UomName'
      Origin = 'Uom'
      Size = 10
    end
    object AdoQry_MainStArDepreciationMonth: TStringField
      FieldName = 'StArDepreciationMonth'
      Origin = 'Ad_AssetCard'
      Size = 7
    end
  end
  inherited DataSource: TDataSource
    Left = 494
    Top = 41
  end
  inherited ExtPrintReport: TExtPrintReport
    Title1 = '人员主文件列表'
  end
end