acr510_02.dfm.svn-base

一个用Delphi开发的ERP软件

    Parameters = <>
    Left = 48
    Top = 408
  end
  object qryHrm150: TADOQuery
    Active = True
    Connection = SYSDM.ADOC
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select H150_001,H150_002,H150_003 from HRM150 order by H150_002')
    Left = 136
    Top = 88
    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 qryGld100: TADOQuery
    Connection = SYSDM.ADOC
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select * from GLD100 order by G100_002')
    Left = 660
    Top = 80
  end
  object qryAcr510B: TADOQuery
    Connection = SYSDM.ADOC
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      
        'select A.*,B.O510B_002,B.O510B_003,B.O510B_004,B.O510B_005,B.O51' +
        '0B_006,B.O510B_007,B.O510B_024,B.O510B_025'
      'from ACR510B A,ORD510B B'
      'where A.A510B_003=B.O510B_001 and  A.A510B_004=B.O510B_002')
    Left = 104
    Top = 352
    object qryAcr510BA510B_001: TWideStringField
      DisplayLabel = #21457#31080#32534#21495
      FieldName = 'A510B_001'
      Size = 30
    end
    object qryAcr510BA510B_002: TIntegerField
      DisplayLabel = #21457#31080#34892#21495
      FieldName = 'A510B_002'
    end
    object qryAcr510BA510B_003: TWideStringField
      DisplayLabel = #38144#21806#21333#21495
      FieldName = 'A510B_003'
      Size = 30
    end
    object qryAcr510BA510B_004: TIntegerField
      DisplayLabel = #38144#21806#21333#34892
      FieldName = 'A510B_004'
    end
    object qryAcr510BA510B_005: TFloatField
      DisplayLabel = #21457#31080#25968#37327
      FieldName = 'A510B_005'
    end
    object qryAcr510BA510B_006: TFloatField
      DisplayLabel = #21457#31080#21333#20215
      FieldName = 'A510B_006'
    end
    object qryAcr510BA510B_007: TFloatField
      DisplayLabel = #21457#31080#37329#39069
      FieldName = 'A510B_007'
    end
    object qryAcr510BA510B_008: TFloatField
      DisplayLabel = #21457#31080#31246#29575
      FieldName = 'A510B_008'
    end
    object qryAcr510BA510B_009: TFloatField
      DisplayLabel = #21457#31080#31246#39069
      FieldName = 'A510B_009'
    end
    object qryAcr510BA510B_010: TFloatField
      DisplayLabel = #24212#25910#37329#39069
      FieldName = 'A510B_010'
    end
    object qryAcr510BA510B_011: TWideStringField
      DisplayLabel = #22791#27880#35828#26126
      FieldName = 'A510B_011'
      Size = 50
    end
    object qryAcr510BO510B_002: TIntegerField
      DisplayLabel = #23450#21333#34892#21495
      FieldName = 'O510B_002'
    end
    object qryAcr510BO510B_003: TIntegerField
      DisplayLabel = #20135#21697#32534#21495
      FieldName = 'O510B_003'
    end
    object qryAcr510BO510B_004: TIntegerField
      DisplayLabel = #35745#37327#21333#20301
      FieldName = 'O510B_004'
    end
    object qryAcr510BO510B_005: TFloatField
      DisplayLabel = #38144#21806#25968#37327
      FieldName = 'O510B_005'
    end
    object qryAcr510BO510B_006: TFloatField
      DisplayLabel = #38144#21806#21333#20215
      FieldName = 'O510B_006'
    end
    object qryAcr510BO510B_007: TFloatField
      DisplayLabel = #38144#21806#24635#39069
      FieldName = 'O510B_007'
    end
    object qryAcr510BO510B_024: TFloatField
      DisplayLabel = #21457#31080#37329#39069
      FieldName = 'O510B_024'
    end
    object qryAcr510BO510B_025: TFloatField
      DisplayLabel = #25240#25187#37329#39069
      FieldName = 'O510B_025'
    end
    object qryAcr510BI150_002: TStringField
      FieldKind = fkLookup
      FieldName = 'I150_002'
      LookupDataSet = qryInv150
      LookupKeyFields = 'I150_001'
      LookupResultField = 'I150_002'
      KeyFields = 'O510B_003'
      Lookup = True
    end
    object qryAcr510BI150_003: TStringField
      FieldKind = fkLookup
      FieldName = 'I150_003'
      LookupDataSet = qryInv150
      LookupKeyFields = 'I150_001'
      LookupResultField = 'I150_003'
      KeyFields = 'O510B_003'
      Lookup = True
    end
    object qryAcr510BI150_004: TStringField
      FieldKind = fkLookup
      FieldName = 'I150_004'
      LookupDataSet = qryInv150
      LookupKeyFields = 'I150_001'
      LookupResultField = 'I150_004'
      KeyFields = 'O510B_003'
      Lookup = True
    end
    object qryAcr510BI150_008: TStringField
      FieldKind = fkLookup
      FieldName = 'I150_008'
      LookupDataSet = qryInv150
      LookupKeyFields = 'I150_001'
      LookupResultField = 'I150_008'
      KeyFields = 'O510B_003'
      Lookup = True
    end
    object qryAcr510BI140_002: TStringField
      FieldKind = fkLookup
      FieldName = 'I140_002'
      LookupDataSet = qryInv140
      LookupKeyFields = 'I140_001'
      LookupResultField = 'I140_002'
      KeyFields = 'O510B_004'
      Lookup = True
    end
    object qryAcr510BI140_003: TStringField
      FieldKind = fkLookup
      FieldName = 'I140_003'
      LookupDataSet = qryInv140
      LookupKeyFields = 'I140_001'
      LookupResultField = 'I140_003'
      KeyFields = 'O510B_004'
      Lookup = True
    end
  end
  object qryItems: TADOQuery
    Connection = SYSDM.ADOC
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      
        'select I150_001,I150_002,I150_003,I150_004,I140_001,I140_002,I14' +
        '0_003'
      'from INV150,INV140 where I150_011=I140_001'
      'order by I150_002')
    Left = 184
    Top = 328
    object qryItemsI150_001: TAutoIncField
      FieldName = 'I150_001'
      ReadOnly = True
      Visible = False
    end
    object qryItemsI150_002: TWideStringField
      DisplayLabel = #20135#21697#32534#21495
      FieldName = 'I150_002'
      Size = 30
    end
    object qryItemsI150_003: TWideStringField
      DisplayLabel = #20135#21697#21517#31216
      FieldName = 'I150_003'
      Size = 60
    end
    object qryItemsI150_004: TWideStringField
      DisplayLabel = #35268#26684#22411#21495
      FieldName = 'I150_004'
      Size = 60
    end
    object qryItemsI140_002: TWideStringField
      DisplayLabel = #21333#20301#32534#21495
      FieldName = 'I140_002'
    end
    object qryItemsI140_003: TWideStringField
      DisplayLabel = #21333#20301#21517#31216
      FieldName = 'I140_003'
      Size = 50
    end
    object qryItemsI140_001: TAutoIncField
      FieldName = 'I140_001'
      ReadOnly = True
      Visible = False
    end
  end
  object qryInv150: TADOQuery
    Active = True
    Connection = SYSDM.ADOC
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select * from inv150')
    Left = 136
    Top = 384
    object qryInv150I150_001: TAutoIncField
      FieldName = 'I150_001'
      ReadOnly = True
    end
    object qryInv150I150_002: TWideStringField
      FieldName = 'I150_002'
      Size = 30
    end
    object qryInv150I150_003: TWideStringField
      FieldName = 'I150_003'
      Size = 60
    end
    object qryInv150I150_004: TWideStringField
      FieldName = 'I150_004'
      Size = 60
    end
    object qryInv150I150_005: TIntegerField
      FieldName = 'I150_005'
    end
    object qryInv150I150_006: TIntegerField
      FieldName = 'I150_006'
    end
    object qryInv150I150_007: TIntegerField
      FieldName = 'I150_007'
    end
    object qryInv150I150_008: TWideStringField
      FieldName = 'I150_008'
      Size = 60
    end
    object qryInv150I150_009: TWideStringField
      FieldName = 'I150_009'
      Size = 50
    end
    object qryInv150I150_010: TIntegerField
      FieldName = 'I150_010'
    end
    object qryInv150I150_011: TIntegerField
      FieldName = 'I150_011'
    end
    object qryInv150I150_012: TIntegerField
      FieldName = 'I150_012'
    end
    object qryInv150I150_013: TFloatField
      FieldName = 'I150_013'
    end
    object qryInv150I150_014: TIntegerField
      FieldName = 'I150_014'
    end
    object qryInv150I150_015: TFloatField
      FieldName = 'I150_015'
    end
    object qryInv150I150_016: TFloatField
      FieldName = 'I150_016'
    end
    object qryInv150I150_017: TIntegerField
      FieldName = 'I150_017'
    end
    object qryInv150I150_018: TFloatField
      FieldName = 'I150_018'
    end
    object qryInv150I150_019: TIntegerField
      FieldName = 'I150_019'
    end
    object qryInv150I150_020: TIntegerField
      FieldName = 'I150_020'
    end
    object qryInv150I150_021: TFloatField
      FieldName = 'I150_021'
    end
    object qryInv150I150_022: TFloatField
      FieldName = 'I150_022'
    end
    object qryInv150I150_023: TFloatField
      FieldName = 'I150_023'
    end
    object qryInv150I150_024: TIntegerField
      FieldName = 'I150_024'
    end
    object qryInv150I150_025: TIntegerField
      FieldName = 'I150_025'
    end
    object qryInv150I150_026: TBooleanField
      FieldName = 'I150_026'
    end
    object qryInv150I150_027: TBooleanField
      FieldName = 'I150_027'
    end
    object qryInv150I150_028: TIntegerField
      FieldName = 'I150_028'
    end
    object qryInv150I150_029: TDateTimeField
      FieldName = 'I150_029'
    end
    object qryInv150I150_030: TIntegerField
      FieldName = 'I150_030'
    end
    object qryInv150I150_031: TIntegerField
      FieldName = 'I150_031'
    end
    object qryInv150I150_032: TFloatField
      FieldName = 'I150_032'
    end
    object qryInv150I150_033: TFloatField
      FieldName = 'I150_033'
    end
    object qryInv150I150_034: TFloatField
      FieldName = 'I150_034'
    end
    object qryInv150I150_035: TFloatField
      FieldName = 'I150_035'
    end
    object qryInv150I150_036: TIntegerField
      FieldName = 'I150_036'
    end
    object qryInv150I150_037: TIntegerField
      FieldName = 'I150_037'
    end
    object qryInv150I150_038: TDateTimeField
      FieldName = 'I150_038'
    end
    object qryInv150I150_039: TIntegerField
      FieldName = 'I150_039'
    end
    object qryInv150I150_040: TIntegerField
      FieldName = 'I150_040'
    end
    object qryInv150I150_041: TIntegerField
      FieldName = 'I150_041'
    end
    object qryInv150I150_042: TIntegerField
      FieldName = 'I150_042'
    end
    object qryInv150I150_043: TFloatField
      FieldName = 'I150_043'
    end
    object qryInv150I150_044: TFloatField
      FieldName = 'I150_044'
    end
    object qryInv150I150_045: TFloatField
      FieldName = 'I150_045'
    end
    object qryInv150I150_046: TIntegerField
      FieldName = 'I150_046'
    end
    object qryInv150I150_047: TIntegerField
      FieldName = 'I150_047'
    end
    object qryInv150I150_048: TFloatField
      FieldName = 'I150_048'
    end
    object qryInv150I150_049: TDateTimeField
      FieldName = 'I150_049'
    end
    object qryInv150I150_050: TWideStringField
      FieldName = 'I150_050'
    end
    object qryInv150I150_051: TDateTimeField
      FieldName = 'I150_051'
    end
    object qryInv150I150_052: TWideStringField
      FieldName = 'I150_052'
    end
    object qryInv150I150_053: TIntegerField
      FieldName = 'I150_053'
    end
  end
  object qryInv140: TADOQuery
    Active = True
    Connection = SYSDM.ADOC
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select * from inv140')
    Left = 168
    Top = 384
    object qryInv140I140_001: TAutoIncField
      FieldName = 'I140_001'
      ReadOnly = True
    end
    object qryInv140I140_002: TWideStringField
      FieldName = 'I140_002'
    end
    object qryInv140I140_003: TWideStringField
      FieldName = 'I140_003'
      Size = 50
    end
    object qryInv140I140_004: TSmallintField
      FieldName = 'I140_004'
    end
  end
  object qryOrd150: TADOQuery
    Connection = SYSDM.ADOC
    Parameters = <>
    SQL.Strings = (
      'select * from ord150')
    Left = 160
    Top = 208
    object qryOrd150O150_001: TAutoIncField
      FieldName = 'O150_001'
      ReadOnly = True
      Visible = False
    end
    object qryOrd150O150_002: TWideStringField
      DisplayLabel = #23458#25143#32534#21495
      FieldName = 'O150_002'
    end
    object qryOrd150O150_003: TWideStringField
      DisplayLabel = #23458#25143#21517#31216
      FieldName = 'O150_003'
      Size = 60
    end
    object qryOrd150O150_004: TWideStringField
      DisplayLabel = #23458#25143#31616#31216
      FieldName = 'O150_004'
    end
    object qryOrd150O150_005: TWideStringField
      DisplayLabel = #30005#35805#21495#30721
      FieldName = 'O150_005'
      Size = 50
    end
    object qryOrd150O150_006: TWideStringField
      DisplayLabel = #20256#30495#21495#30721
      FieldName = 'O150_006'
      Size = 50
    end
    object qryOrd150O150_007: TWideStringField
      DisplayLabel = #30005#23376#37038#20214
      FieldName = 'O150_007'
      Size = 50
    end
    object qryOrd150O150_008: TWideStringField
      DisplayLabel = #20844#21496#32593#22336
      FieldName = 'O150_008'
      Size = 50
    end
    object qryOrd150O150_012: TWideStringField
      DisplayLabel = #36890#35759#22320#22336
      FieldName = 'O150_012'
      Size = 100
    end
  end
end