ord150_01.dfm

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

    Left = 384
    Top = 40
  end
  inherited ADOQuery2: TADOQuery
    CursorType = ctStatic
    SQL.Strings = (
      'select A.O150_001,A.O150_002,A.O150_003,A.O150_004,A.O150_005,'
      '       A.O150_006,A.O150_007,A.O150_008,A.O150_009,B.O110_002,'
      '       C.O120_002,A.O150_012,A.O150_013,A.O150_014,A.O150_015,'
      '       A.O150_034,A.O150_035'
      'from ORD150 A, ORD110 B, ORD120 C'
      'where A.O150_010=B.O110_001 and A.O150_011=C.O120_001'
      'order by A.O150_002'
      '')
    Left = 208
    Top = 160
    object ADOQuery2O150_001: TAutoIncField
      DisplayLabel = #30005#33041#32534#21495
      FieldName = 'O150_001'
      ReadOnly = True
      Visible = False
    end
    object ADOQuery2O150_002: TStringField
      DisplayLabel = #23458#25143#32534#21495
      FieldName = 'O150_002'
    end
    object ADOQuery2O150_003: TStringField
      DisplayLabel = #23458#25143#21517#31216
      FieldName = 'O150_003'
      Size = 60
    end
    object ADOQuery2O150_034: TWideStringField
      DisplayLabel = #33521#25991#21517#31216
      FieldName = 'O150_034'
      Size = 60
    end
    object ADOQuery2O150_004: TStringField
      DisplayLabel = #23458#25143#31616#31216
      FieldName = 'O150_004'
    end
    object ADOQuery2O150_005: TStringField
      DisplayLabel = #30005#35805#21495#30721
      FieldName = 'O150_005'
      Size = 50
    end
    object ADOQuery2O150_006: TStringField
      DisplayLabel = #20256#30495#21495#30721
      FieldName = 'O150_006'
      Size = 50
    end
    object ADOQuery2O150_007: TStringField
      DisplayLabel = #30005#23376#37038#20214
      FieldName = 'O150_007'
      Size = 50
    end
    object ADOQuery2O150_008: TStringField
      DisplayLabel = #20844#21496#32593#22336
      FieldName = 'O150_008'
      Size = 50
    end
    object ADOQuery2O150_009: TSmallintField
      DisplayLabel = #23458#25143#31867#22411
      FieldName = 'O150_009'
      OnGetText = ADOQuery2O150_009GetText
    end
    object ADOQuery2O110_002: TWideStringField
      DisplayLabel = #23458#25143#20998#31867
      FieldName = 'O110_002'
      Size = 50
    end
    object ADOQuery2O120_002: TWideStringField
      DisplayLabel = #25152#23646#22320#21306
      FieldName = 'O120_002'
      Size = 50
    end
    object ADOQuery2O150_012: TStringField
      DisplayLabel = #36890#35759#22320#22336
      FieldName = 'O150_012'
      Size = 100
    end
    object ADOQuery2O150_035: TWideStringField
      DisplayLabel = #33521#25991#22320#22336
      FieldName = 'O150_035'
      Size = 100
    end
    object ADOQuery2O150_013: TStringField
      DisplayLabel = #37038#25919#32534#30721
      FieldName = 'O150_013'
    end
    object ADOQuery2O150_014: TSmallintField
      DisplayLabel = #23458#25143#29366#24577
      FieldName = 'O150_014'
      OnGetText = ADOQuery2O150_014GetText
    end
    object ADOQuery2O150_015: TMemoField
      DisplayLabel = #22791#27880
      FieldName = 'O150_015'
      Visible = False
      BlobType = ftMemo
    end
  end
  inherited DataSource2: TDataSource
    Left = 200
    Top = 144
  end
  object qryOrd151: TADOQuery
    CacheSize = 1000
    Connection = SYSDM.ADOC
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select * from ORD151')
    Left = 368
    Top = 152
    object qryOrd151O151_001: TIntegerField
      FieldName = 'O151_001'
      Visible = False
    end
    object qryOrd151O151_002: TStringField
      DisplayLabel = #32852#31995#20154#21517
      FieldName = 'O151_002'
    end
    object qryOrd151O151_003: TStringField
      DisplayLabel = #37096#38376#21517#31216
      FieldName = 'O151_003'
      Size = 50
    end
    object qryOrd151O151_004: TStringField
      DisplayLabel = #32844#20301#21517#31216
      FieldName = 'O151_004'
      Size = 50
    end
    object qryOrd151O151_005: TStringField
      DisplayLabel = #30005#35805#21495#30721
      FieldName = 'O151_005'
    end
    object qryOrd151O151_006: TStringField
      DisplayLabel = #20256#30495#21495#30721
      FieldName = 'O151_006'
    end
    object qryOrd151O151_007: TStringField
      DisplayLabel = #30005#23376#37038#20214
      FieldName = 'O151_007'
      Size = 50
    end
    object qryOrd151O151_008: TStringField
      DisplayLabel = #31227#21160#30005#35805
      FieldName = 'O151_008'
    end
    object qryOrd151O151_009: TStringField
      DisplayLabel = #36890#35759#22320#22336
      FieldName = 'O151_009'
      Size = 100
    end
    object qryOrd151O151_010: TStringField
      DisplayLabel = #37038#25919#32534#30721
      FieldName = 'O151_010'
    end
    object qryOrd151O151_011: TBooleanField
      DisplayLabel = #20027#32852#31995#20154
      FieldName = 'O151_011'
    end
  end
  object dsOrd151: TDataSource
    DataSet = qryOrd151
    Left = 384
    Top = 136
  end
  object dsOrd152: TDataSource
    DataSet = qryOrd152
    Left = 440
    Top = 136
  end
  object qryOrd152: TADOQuery
    CacheSize = 1000
    Connection = SYSDM.ADOC
    Parameters = <>
    SQL.Strings = (
      'select * from ORD152')
    Left = 424
    Top = 152
    object qryOrd152O152_001: TIntegerField
      FieldName = 'O152_001'
      Visible = False
    end
    object qryOrd152O152_002: TStringField
      DisplayLabel = #20132#36135#22320#28857
      FieldName = 'O152_002'
    end
    object qryOrd152O152_003: TIntegerField
      DisplayLabel = #25152#23646#22320#21306
      FieldName = 'O152_003'
      Visible = False
    end
    object qryOrd152O120_002: TStringField
      DisplayLabel = #25152#23646#22320#21306
      FieldKind = fkLookup
      FieldName = 'O120_002'
      LookupDataSet = qryOrd120
      LookupKeyFields = 'O120_001'
      LookupResultField = 'O120_002'
      KeyFields = 'O152_003'
      Size = 50
      Lookup = True
    end
    object qryOrd152O152_004: TStringField
      DisplayLabel = #20132#36135#22320#22336
      FieldName = 'O152_004'
      Size = 100
    end
    object qryOrd152O152_005: TStringField
      DisplayLabel = #37038#25919#32534#30721
      FieldName = 'O152_005'
    end
    object qryOrd152O152_006: TStringField
      DisplayLabel = #30005#35805#21495#30721
      FieldName = 'O152_006'
    end
    object qryOrd152O152_007: TStringField
      DisplayLabel = #20256#30495#21495#30721
      FieldName = 'O152_007'
    end
    object qryOrd152O152_008: TStringField
      DisplayLabel = #32852#31995#20154#21517
      FieldName = 'O152_008'
    end
  end
  object qryOrd120: TADOQuery
    Connection = SYSDM.ADOC
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select * from ORD120')
    Left = 576
    Top = 152
  end
  object qryOrd153: TADOQuery
    CacheSize = 1000
    Connection = SYSDM.ADOC
    Parameters = <>
    SQL.Strings = (
      'select * from ORD153')
    Left = 488
    Top = 152
    object qryOrd153I150_002: TStringField
      DisplayLabel = #20135#21697#32534#21495
      FieldKind = fkLookup
      FieldName = 'I150_002'
      LookupDataSet = qryInv150
      LookupKeyFields = 'I150_001'
      LookupResultField = 'I150_002'
      KeyFields = 'O153_002'
      Size = 30
      Lookup = True
    end
    object qryOrd153I150_003: TStringField
      DisplayLabel = #20135#21697#21517#31216
      FieldKind = fkLookup
      FieldName = 'I150_003'
      LookupDataSet = qryInv150
      LookupKeyFields = 'I150_001'
      LookupResultField = 'I150_003'
      KeyFields = 'O153_002'
      Size = 60
      Lookup = True
    end
    object qryOrd153O153_003: TWideStringField
      DisplayLabel = #26426#36523#32534#21495
      FieldName = 'O153_003'
      Size = 30
    end
    object qryOrd153O153_004: TWideStringField
      DisplayLabel = #25511#21046#22120#21495
      FieldName = 'O153_004'
      Size = 30
    end
    object qryOrd153O153_005: TWideStringField
      DisplayLabel = #31995#32479#36719#20214
      FieldName = 'O153_005'
      Size = 30
    end
    object qryOrd153O153_006: TDateTimeField
      DisplayLabel = #23433#35013#26085#26399
      FieldName = 'O153_006'
    end
    object qryOrd153O153_007: TDateTimeField
      DisplayLabel = #20813#36153#20445#20859#24320#22987#26085#26399
      FieldName = 'O153_007'
    end
    object qryOrd153O153_008: TDateTimeField
      DisplayLabel = #20813#36153#20445#20859#32467#26463#26085#26399
      FieldName = 'O153_008'
    end
    object qryOrd153O153_009: TDateTimeField
      DisplayLabel = #25910#36153#20445#20859#24320#22987#26085#26399
      FieldName = 'O153_009'
    end
    object qryOrd153O153_010: TDateTimeField
      DisplayLabel = #25910#36153#20445#20859#32467#26463#26085#26399
      FieldName = 'O153_010'
    end
    object qryOrd153O153_011: TWideStringField
      DisplayLabel = #23433#35013#22320#22336
      FieldName = 'O153_011'
    end
    object qryOrd153O153_012: TSmallintField
      DisplayLabel = #26469#28304#31867#22411
      FieldName = 'O153_012'
    end
    object qryOrd153O153_001: TIntegerField
      DisplayLabel = #23458#25143#32534#21495
      FieldName = 'O153_001'
      Visible = False
    end
    object qryOrd153O153_002: TIntegerField
      DisplayLabel = #20135#21697#32534#21495
      FieldName = 'O153_002'
      Visible = False
    end
  end
  object dsOrd153: TDataSource
    DataSet = qryOrd153
    Left = 496
    Top = 136
  end
  object qryInv150: TADOQuery
    Connection = SYSDM.ADOC
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select I150_001,I150_002,I150_003 from INV150')
    Left = 576
    Top = 192
  end
end