ad_enter_decreaseasset.dfm

来自「一个MRPII系统源代码版本」· DFM 代码 · 共 307 行

inherited Frm_Ad_Enter_DecreaseAsset: TFrm_Ad_Enter_DecreaseAsset
  Left = 159
  Top = 136
  Caption = #36164#20135#20943#23569
  ClientHeight = 483
  ClientWidth = 707
  PixelsPerInch = 96
  TextHeight = 12
  inherited ControlBar: TControlBar
    Width = 707
  end
  inherited Pnl_Title: TPanel
    Width = 707
    Caption = #36164#20135#20943#23569
    inherited Image2: TImage
      Width = 707
    end
  end
  inherited Pnl_Head: TPanel
    Width = 707
    inherited Image1: TImage
      Width = 707
    end
    inherited Lbl_Order: TLabel
      Width = 126
      Caption = #20943#23569#26085#26399'/'#22266#23450#36164#20135#32534#21495
    end
  end
  inherited Pnl_Hint: TPanel
    Top = 458
    Width = 707
    inherited Image4: TImage
      Width = 707
    end
    object Label3: TLabel
      Left = 14
      Top = 8
      Width = 78
      Height = 12
      Caption = #22686#20943#26041#24335#21517#31216':'
      Transparent = True
    end
    object DBText2: TDBText
      Left = 94
      Top = 8
      Width = 65
      Height = 17
      DataField = 'AdChangeTypeName'
      DataSource = DataSource
      Transparent = True
    end
  end
  inherited Pnl_Body: TPanel
    Width = 707
    Height = 365
    inherited Image3: TImage
      Width = 707
      Height = 365
    end
    inherited DBGridEh: TDBGridEh
      Width = 707
      Height = 365
      FrozenCols = 2
      Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit]
      Columns = <
        item
          EditButtons = <>
          FieldName = 'AssetCode'
          Footers = <>
          Title.Caption = #22266#23450#36164#20135#32534#21495
          Width = 80
        end
        item
          EditButtons = <>
          FieldName = 'AssetName'
          Footers = <>
          Title.Caption = #22266#23450#36164#20135#21517#31216
          Width = 150
        end
        item
          EditButtons = <>
          FieldName = 'AdChangeTypeCode'
          Footers = <>
          Title.Caption = #22686#20943#26041#24335#20195#30721
          Width = 80
        end
        item
          EditButtons = <>
          FieldName = 'AdChangeTypeName'
          Footers = <>
          Title.Caption = #22686#20943#26041#24335#21517#31216
          Width = 100
        end
        item
          EditButtons = <>
          FieldName = 'DecreaseDate'
          Footers = <>
          Title.Caption = #20943#23569#26085#26399
          Width = 80
        end
        item
          EditButtons = <>
          FieldName = 'stArtstopusedate'
          Footers = <>
          Width = 80
        end
        item
          EditButtons = <>
          FieldName = 'UomCode'
          Footers = <>
          Title.Caption = #35745#37327#21333#20301#20195#30721
          Width = 80
        end
        item
          EditButtons = <>
          FieldName = 'UomName'
          Footers = <>
          Title.Caption = #35745#37327#21333#20301#21517#31216
          Width = 80
        end
        item
          EditButtons = <>
          FieldName = 'FirstAmount'
          Footers = <>
          Title.Caption = #21407#20540
        end
        item
          EditButtons = <>
          FieldName = 'DepreciationValue'
          Footers = <>
          Title.Caption = #32047#35745#25240#26087
        end
        item
          EditButtons = <>
          FieldName = 'InAccountDate'
          Footers = <>
          Title.Caption = #20837#24080#26085#26399
          Width = 80
        end
        item
          EditButtons = <>
          FieldName = 'StartUseDate'
          Footers = <>
          Title.Caption = #24320#22987#20351#29992#26085#26399
          Width = 80
        end
        item
          EditButtons = <>
          FieldName = 'CreateDate'
          Footers = <>
          Title.Caption = #24314#21333#26085#26399
          Width = 80
        end
        item
          EditButtons = <>
          FieldName = 'CreateEmployeeCode'
          Footers = <>
          Title.Caption = #24314#21333#20154#21592#20195#30721
          Width = 80
        end
        item
          EditButtons = <>
          FieldName = 'EmployeeName'
          Footers = <>
          Title.Caption = #24314#21333#20154#21592#21517#31216
          Width = 100
        end
        item
          EditButtons = <>
          FieldName = 'RemArk'
          Footers = <>
          Title.Caption = #22791#27880
        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.InAccountDate        , '
      'Ad_AssetCard.StartUseDate         , '
      'Ad_AssetCard.stArtstopusedate,'
      'Ad_AssetCard.FirstAmount          ,'
      'Ad_AssetCard.DepreciationValue    ,'
      'Ad_DecreaseAssett.AdChangeTypeCode,'
      'Ad_ChangeType.AdChangeTypeName,'
      'Ad_DecreaseAssett.CreateDate           ,'
      'Ad_DecreaseAssett.CreateEmployeeCode   ,'
      'Employee.EmployeeName,'
      'Ad_DecreaseAssett.DecreaseAssettId,'
      'Ad_DecreaseAssett.DecreaseDate,'
      'Ad_DecreaseAssett.RemArk'
      'from Ad_DecreaseAssett '
      
        'left join Ad_AssetCard on Ad_DecreaseAssett.AssetCode=Ad_AssetCA' +
        'rd.AssetCode '
      
        'left join Ad_ChangeType  on Ad_DecreaseAssett.AdChangeTypeCode=A' +
        'd_ChangeType.AdChangeTypeCode '
      
        'Left Join Employee On  Ad_DecreaseAssett.CreateEmployeeCode=Empl' +
        'oyee.EmployeeCode'
      '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_MainInAccountDate: TDateTimeField
      FieldName = 'InAccountDate'
      Origin = 'Ad_AssetCard'
    end
    object AdoQry_MainAdChangeTypeCode: TStringField
      FieldName = 'AdChangeTypeCode'
      Origin = 'Ad_AssetCard'
      Size = 4
    end
    object AdoQry_MainFirstAmount: TFloatField
      FieldName = 'FirstAmount'
      Origin = 'Ad_AssetCard'
    end
    object AdoQry_MainDepreciationValue: TFloatField
      FieldName = 'DepreciationValue'
      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_MainAdChangeTypeName: TStringField
      FieldName = 'AdChangeTypeName'
      Origin = 'Ad_ChangeType'
      Size = 60
    end
    object AdoQry_MainEmployeeName: TStringField
      FieldName = 'EmployeeName'
      Origin = 'Employee'
      Size = 60
    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
    object AdoQry_MainStartUseDate: TDateTimeField
      FieldName = 'StartUseDate'
    end
    object AdoQry_MainDecreaseAssettId: TAutoIncField
      FieldName = 'DecreaseAssettId'
      ReadOnly = True
    end
    object AdoQry_MainDecreaseDate: TDateTimeField
      FieldName = 'DecreaseDate'
    end
    object AdoQry_MainRemArk: TStringField
      FieldName = 'RemArk'
      Size = 60
    end
  end
  inherited DataSource: TDataSource
    Left = 494
    Top = 41
  end
  inherited ExtPrintReport: TExtPrintReport
    Title1 = #20154#21592#20027#25991#20214#21015#34920
  end
end