ad_enter_addassetcard.dfm

一个MRPII系统源代码版本

          FieldName = 'FinishTask'
          Footers = <>
          Title.Caption = #32047#35745#24037#20316#37327
          Width = 80
        end
        item
          EditButtons = <>
          FieldName = 'TaskUom'
          Footers = <>
          Title.Caption = #24037#20316#37327#21333#20301
        end
        item
          EditButtons = <>
          FieldName = 'PCDepreciation'
          Footers = <>
          Title.Caption = #21333#20301#25240#26087#39069
          Width = 91
        end
        item
          EditButtons = <>
          FieldName = 'CreateDate'
          Footers = <>
          Title.Caption = #24314#26723#26085#26399
          Width = 80
        end
        item
          EditButtons = <>
          FieldName = 'CreateEmployeeCode'
          Footers = <>
          Title.Caption = #24314#26723#20154#21592#20195#30721
          Width = 80
        end
        item
          EditButtons = <>
          FieldName = 'EmployeeName1'
          Footers = <>
          Title.Caption = #24314#26723#20154#21592#21517#31216
          Width = 100
        end
        item
          EditButtons = <>
          FieldName = 'EditDate'
          Footers = <>
          Title.Caption = #20462#25913#26085#26399
          Width = 80
        end
        item
          EditButtons = <>
          FieldName = 'EdItEmployeeCode'
          Footers = <>
          Title.Caption = #20462#25913#20154#21592#20195#30721
          Width = 80
        end
        item
          EditButtons = <>
          FieldName = 'EmployeeName'
          Footers = <>
          Title.Caption = #20462#25913#20154#21592#21517#31216
          Width = 100
        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 = 
      'Provider=SQLOLEDB.1;Password=mdrcmrm;Persist Security Info=True;' +
      'User ID=mdrcmrm;Initial Catalog=Mrpii_Standard;Data Source=192' +
      '.168.0.151;Use procedure for Prepare=1;Auto Translate=True;Packe' +
      't Size=4096;Workstation ID=XYB'
    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       ,'
      '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_MainIntendingPeriod: TIntegerField
      FieldName = 'IntendingPeriod'
      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_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 = #27880#38144#26085#26399
      FieldName = 'stArtstopusedate'
      Origin = 'Ad_AssetCard'
    end
    object AdoQry_MainUomName: TStringField
      DisplayLabel = #35745#37327#21333#20301
      FieldName = 'UomName'
      Origin = 'Uom'
      Size = 10
    end
  end
  inherited DataSource: TDataSource
    Left = 494
    Top = 41
  end
  inherited ExtPrintReport: TExtPrintReport
    Title1 = #20154#21592#20027#25991#20214#21015#34920
  end
end