tas510_02.dfm.svn-base

这是一个功能齐全的,代码完整的ERP企业信息管理系统,现在上传和大家分享

    object qryTas510T510_019: TMemoField
      DisplayLabel = #20219#21153#35828#26126
      FieldName = 'T510_019'
      Visible = False
      BlobType = ftMemo
    end
    object qryTas510T510_024: TIntegerField
      FieldName = 'T510_024'
      Visible = False
    end
    object qryTas510T100_006: TBooleanField
      FieldName = 'T100_006'
      Visible = False
    end
  end
  object qryHrm150: TADOQuery
    Connection = SYSDM.ADOC
    Parameters = <>
    SQL.Strings = (
      'select H150_001,H150_002,H150_003 from HRM150 order by H150_002')
    Left = 376
    Top = 48
    object qryHrm150H150_001: TAutoIncField
      FieldName = 'H150_001'
      ReadOnly = True
      Visible = False
    end
    object qryHrm150H150_002: TWideStringField
      DisplayLabel = #21592#24037#32534#21495
      FieldName = 'H150_002'
    end
    object qryHrm150H150_003: TWideStringField
      DisplayLabel = #21592#24037#22995#21517
      FieldName = 'H150_003'
    end
  end
  object qryOrd150: TADOQuery
    Connection = SYSDM.ADOC
    OnCalcFields = qryOrd150CalcFields
    Parameters = <>
    SQL.Strings = (
      
        'select O150_001,O150_002,O150_003,O150_004,O150_005,O150_007,O15' +
        '0_012'
      'from ORD150')
    Left = 152
    Top = 216
    object qryOrd150O150_001: TAutoIncField
      FieldName = 'O150_001'
      ReadOnly = True
      Visible = False
    end
    object qryOrd150O150_002: TStringField
      DisplayLabel = #23458#25143#32534#21495
      FieldName = 'O150_002'
    end
    object qryOrd150O150_003: TStringField
      DisplayLabel = #23458#25143#21517#31216
      FieldName = 'O150_003'
      Size = 60
    end
    object qryOrd150O150_004: TStringField
      DisplayLabel = #23458#25143#31616#31216
      FieldName = 'O150_004'
    end
    object qryOrd150O150_005: TWideStringField
      DisplayLabel = #30005#35805#21495#30721
      FieldKind = fkCalculated
      FieldName = 'O150_005'
      Calculated = True
    end
    object qryOrd150O150_012: TWideStringField
      DisplayLabel = #23458#25143#22320#22336
      FieldKind = fkCalculated
      FieldName = 'O150_012'
      Size = 100
      Calculated = True
    end
    object qryOrd150O150_007: TWideStringField
      DisplayLabel = #30005#23376#37038#31665
      FieldKind = fkCalculated
      FieldName = 'O150_007'
      Size = 50
      Calculated = True
    end
    object qryOrd150O151_002: TWideStringField
      DisplayLabel = #32852#31995#20154#21592
      FieldKind = fkCalculated
      FieldName = 'O151_002'
      Calculated = True
    end
    object qryOrd150O151_004: TWideStringField
      DisplayLabel = #32844#21153#21517#31216
      FieldKind = fkCalculated
      FieldName = 'O151_004'
      Size = 50
      Calculated = True
    end
  end
  object qryOrd153: TADOQuery
    Connection = SYSDM.ADOC
    Parameters = <>
    SQL.Strings = (
      'select AA.*,BB.O150_002,BB.O150_003 from'
      
        '(select C.I150_002,A.O153_003,C.I150_003,C.I150_004,D.I120_003,C' +
        '.I150_001,C.I150_010'
      'from ORD153 A, ORD150 B, INV150 C, INV120 D '
      
        'where A.O153_001=B.O150_001 and A.O153_002=C.I150_001 and C.I150' +
        '_005=D.I120_001 and B.O150_002='#39'F00004'#39') as AA'
      'left join ORD150 BB on AA.I150_010=BB.O150_001')
    Left = 152
    Top = 288
    object qryOrd153I150_002: TWideStringField
      DisplayLabel = #20135#21697#32534#21495
      FieldName = 'I150_002'
      Size = 30
    end
    object qryOrd153O153_003: TWideStringField
      DisplayLabel = #26426#36523#32534#21495
      FieldName = 'O153_003'
      Size = 30
    end
    object qryOrd153I150_003: TWideStringField
      DisplayLabel = #20135#21697#21517#31216
      FieldName = 'I150_003'
      Size = 60
    end
    object qryOrd153I150_004: TWideStringField
      DisplayLabel = #35268#26684#22411#21495
      FieldName = 'I150_004'
      Size = 60
    end
    object qryOrd153I120_003: TWideStringField
      DisplayLabel = #20135#21697#31867#21035
      FieldName = 'I120_003'
      Size = 50
    end
    object qryOrd153O150_002: TWideStringField
      DisplayLabel = #21046#36896#21830#21495
      FieldName = 'O150_002'
    end
    object qryOrd153O150_003: TWideStringField
      DisplayLabel = #21046#36896#21830#21517
      FieldName = 'O150_003'
      Size = 60
    end
    object qryOrd153I150_001: TAutoIncField
      FieldName = 'I150_001'
      ReadOnly = True
      Visible = False
    end
  end
  object qryTas100: TADOQuery
    Connection = SYSDM.ADOC
    Parameters = <>
    SQL.Strings = (
      'select * from TAS100')
    Left = 144
    Top = 40
  end
  object dsTas100: TDataSource
    DataSet = qryTas100
    Left = 112
    Top = 40
  end
  object ActionList1: TActionList
    Images = SYSDM.imgBtn
    Left = 576
    Top = 8
    object ActFirst: TAction
      Caption = #26368#21069
      Hint = #31227#21040#31532#19968#26465#35760#24405
      ImageIndex = 0
      ShortCut = 32838
      OnExecute = ActFirstExecute
    end
    object ActPrior: TAction
      Caption = #19978#31227
      Hint = #31227#21040#19978#19968#26465#35760#24405
      ImageIndex = 1
      ShortCut = 32834
      OnExecute = ActPriorExecute
    end
    object ActNext: TAction
      Caption = #19979#31227
      Hint = #31227#21040#19979#19968#26465#35760#24405
      ImageIndex = 2
      ShortCut = 32846
      OnExecute = ActNextExecute
    end
    object ActLast: TAction
      Caption = #26368#21518
      Hint = #31227#21040#26368#21518#19968#26465#35760#24405
      ImageIndex = 3
      ShortCut = 32844
      OnExecute = ActLastExecute
    end
    object ActInsert: TAction
      Caption = #26032#22686
      Hint = #26032#22686#19968#26465#35760#24405
      ImageIndex = 4
      ShortCut = 32833
      OnExecute = ActInsertExecute
    end
    object ActUpdate: TAction
      Caption = #20462#25913
      Hint = #20462#25913#24403#21069#35760#24405
      ImageIndex = 5
      ShortCut = 32837
      OnExecute = ActUpdateExecute
    end
    object ActDelete: TAction
      Caption = #21024#38500
      Hint = #21024#38500#24403#21069#35760#24405
      ImageIndex = 6
      ShortCut = 32836
      OnExecute = ActDeleteExecute
    end
    object ActSave: TAction
      Caption = #20445#23384
      Enabled = False
      Hint = #20445#23384#32534#36753#30340#35760#24405
      ImageIndex = 7
      ShortCut = 32851
      OnExecute = ActSaveExecute
    end
    object ActCancel: TAction
      Caption = #21462#28040
      Enabled = False
      Hint = #21462#28040#32534#36753#30340#35760#24405
      ImageIndex = 8
      ShortCut = 32835
      OnExecute = ActCancelExecute
    end
    object ActRefresh: TAction
      Caption = #21047#26032
      Hint = #21462#24471#26368#26032#30340#25968#25454
      ImageIndex = 9
      ShortCut = 32850
      OnExecute = ActRefreshExecute
    end
    object ActLocate: TAction
      Caption = #26597#25214
      Hint = #24555#36895#23450#20301#35760#24405
      ImageIndex = 10
      ShortCut = 32847
      OnExecute = ActLocateExecute
    end
    object ActSearch: TAction
      Caption = #26597#35810
      Hint = #25353#26465#20214#26597#35810#25968#25454
      ImageIndex = 11
      ShortCut = 32849
      OnExecute = ActSearchExecute
    end
    object ActPrint: TAction
      Caption = #25171#21360
      Hint = #23558#25968#25454#25171#21360#20986#26469
      ImageIndex = 12
      ShortCut = 32848
      OnExecute = ActPrintExecute
    end
    object ActExit: TAction
      Caption = #36864#20986
      Hint = #20851#38381#24403#21069#31383#21475
      ImageIndex = 15
      ShortCut = 32856
      OnExecute = ActExitExecute
    end
  end
  object dsTas510: TDataSource
    DataSet = qryTas510
    Left = 8
    Top = 88
  end
  object qrySer500: TADOQuery
    CacheSize = 1000
    Connection = SYSDM.ADOC
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select S500_001,S500_002,S100_002,S500_017,S500_018,S500_019'
      'from SER500, SER100'
      'where S500_004=S100_001 and S500_003=1'
      'order by S500_001')
    Left = 320
    Top = 104
    object qrySer500S500_001: TWideStringField
      DisplayLabel = #26469#30005#32534#21495
      FieldName = 'S500_001'
      Size = 30
    end
    object qrySer500S500_002: TWideStringField
      DisplayLabel = #26469#30005#21517#31216
      FieldName = 'S500_002'
      Size = 50
    end
    object qrySer500S100_002: TWideStringField
      DisplayLabel = #26381#21153#31867#21035
      FieldName = 'S100_002'
      Size = 50
    end
    object qrySer500S500_017: TIntegerField
      FieldName = 'S500_017'
      Visible = False
    end
    object qrySer500S500_018: TIntegerField
      FieldName = 'S500_018'
      Visible = False
    end
    object qrySer500S500_019: TWideStringField
      FieldName = 'S500_019'
      Visible = False
      Size = 30
    end
  end
  object qryInv150: TADOQuery
    Connection = SYSDM.ADOC
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      
        'select A.I150_001,A.I150_002,A.I150_003,A.I150_004,B.I120_003,C.' +
        'O150_002,C.O150_003'
      
        'from (INV150 A left join INV120 B on A.I150_005=B.I120_001) left' +
        ' join ORD150 C on A.I150_010=C.O150_001')
    Left = 64
    Top = 96
  end
  object qryOrd510: TADOQuery
    CacheSize = 1000
    Connection = SYSDM.ADOC
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      
        'select O510A_001,O100_002,O510A_003,O150_002,O150_003,I150_002,I' +
        '150_003,O510A_011'
      
        'from ((ORD510A A left join ORD150 B on A.O510A_017=B.O150_001) l' +
        'eft join INV150 C on A.O510A_006=C.I150_001) left join ORD100 D ' +
        'on A.O510A_002=D.O100_001'
      
        'where O510A_004=0 and exists(select 1 from ORD510B,INV150 where ' +
        'O510B_003=I150_001 and O510B_001=O510A_001 and I150_006=6)'
      'order by O510A_001')
    Left = 360
    Top = 104
    object qryOrd510O510A_001: TWideStringField
      DisplayLabel = #38144#21806#21333#21495
      FieldName = 'O510A_001'
      Size = 30
    end
    object qryOrd510O100_002: TWideStringField
      DisplayLabel = #38144#21806#31867#22411
      FieldName = 'O100_002'
      Size = 50
    end
    object qryOrd510O510A_003: TDateTimeField
      DisplayLabel = #38144#21806#26085#26399
      FieldName = 'O510A_003'
    end
    object qryOrd510O150_002: TWideStringField
      DisplayLabel = #23458#25143#32534#21495
      FieldName = 'O150_002'
    end
    object qryOrd510O150_003: TWideStringField
      DisplayLabel = #23458#25143#21517#31216
      FieldName = 'O150_003'
      Size = 60
    end
    object qryOrd510I150_002: TWideStringField
      DisplayLabel = #20135#21697#32534#21495
      FieldName = 'I150_002'
      Size = 30
    end
    object qryOrd510I150_003: TWideStringField
      DisplayLabel = #20135#21697#21517#31216
      FieldName = 'I150_003'
      Size = 60
    end
    object qryOrd510O510A_011: TWideStringField
      DisplayLabel = #26426#36523#32534#21495
      FieldName = 'O510A_011'
      Size = 30
    end
  end
end