acr500_02.dfm.svn-base

一个用Delphi开发的ERP软件

  end
  object ADODataSet1: TADODataSet
    Connection = SYSDM.ADOC
    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 = 520
    Top = 56
    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 qryAcr500B: 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,O510B_025'
      'from ACR500B A,ORD510B B'
      'where A.A500B_003=B.O510B_001 and  A.A500B_004=B.O510B_002')
    Left = 126
    Top = 360
    object qryAcr500BA500B_001: TWideStringField
      DisplayLabel = #25240#25187#21333#21495
      FieldName = 'A500B_001'
      Size = 30
    end
    object qryAcr500BA500B_002: TIntegerField
      DisplayLabel = #21333#25454#34892#21495
      FieldName = 'A500B_002'
    end
    object qryAcr500BA500B_003: TWideStringField
      FieldName = 'A500B_003'
      Size = 30
    end
    object qryAcr500BA500B_004: TIntegerField
      FieldName = 'A500B_004'
    end
    object qryAcr500BA500B_005: TFloatField
      DisplayLabel = #38144#21806#25968#37327
      FieldName = 'A500B_005'
    end
    object qryAcr500BA500B_006: TFloatField
      DisplayLabel = #25240#25187#27604#29575
      FieldName = 'A500B_006'
    end
    object qryAcr500BA500B_007: TFloatField
      DisplayLabel = #25240#25187#37329#39069
      FieldName = 'A500B_007'
    end
    object qryAcr500BA500B_008: TIntegerField
      DisplayLabel = #22791#27880#35828#26126
      FieldName = 'A500B_008'
    end
    object qryAcr500BA500B_009: TSmallintField
      FieldName = 'A500B_009'
      Visible = False
    end
    object qryAcr500BO510B_002: TIntegerField
      FieldName = 'O510B_002'
    end
    object qryAcr500BO510B_003: TIntegerField
      DisplayLabel = #20135#21697#32534#21495
      FieldName = 'O510B_003'
    end
    object qryAcr500BO510B_004: TIntegerField
      DisplayLabel = #35745#37327#21333#20301
      FieldName = 'O510B_004'
    end
    object qryAcr500BO510B_005: TFloatField
      FieldName = 'O510B_005'
    end
    object qryAcr500BO510B_006: TFloatField
      FieldName = 'O510B_006'
    end
    object qryAcr500BO510B_007: TFloatField
      FieldName = 'O510B_007'
    end
    object qryAcr500BO510B_025: TFloatField
      DisplayLabel = #25910#27454#25240#25187
      FieldName = 'O510B_025'
    end
    object qryAcr500BI150_002: TStringField
      DisplayLabel = #26009#21697#32534#21495
      FieldKind = fkLookup
      FieldName = 'I150_002'
      LookupDataSet = qryInv150
      LookupKeyFields = 'I150_001'
      LookupResultField = 'I150_002'
      KeyFields = 'O510B_003'
      Lookup = True
    end
    object qryAcr500BI150_003: TStringField
      DisplayLabel = #26009#21697#21517#31216
      FieldKind = fkLookup
      FieldName = 'I150_003'
      LookupDataSet = qryInv150
      LookupKeyFields = 'I150_001'
      LookupResultField = 'I150_003'
      KeyFields = 'O510B_003'
      Lookup = True
    end
    object qryAcr500BI150_004: TStringField
      DisplayLabel = #35268#26684#22411#21495
      FieldKind = fkLookup
      FieldName = 'I150_004'
      LookupDataSet = qryInv150
      LookupKeyFields = 'I150_001'
      LookupResultField = 'I150_004'
      KeyFields = 'O510B_003'
      Lookup = True
    end
    object qryAcr500BI150_008: TStringField
      DisplayLabel = #33521#25991#21517#31216
      FieldKind = fkLookup
      FieldName = 'I150_008'
      LookupDataSet = qryInv150
      LookupKeyFields = 'I150_001'
      LookupResultField = 'I150_008'
      KeyFields = 'O510B_003'
      Lookup = True
    end
    object qryAcr500BI140_002: TStringField
      DisplayLabel = #21333#20301#32534#21495
      FieldKind = fkLookup
      FieldName = 'I140_002'
      LookupDataSet = qryInv140
      LookupKeyFields = 'I140_001'
      LookupResultField = 'I140_002'
      KeyFields = 'O510B_004'
      Lookup = True
    end
    object qryAcr500BI140_003: TStringField
      DisplayLabel = #21333#20301#21517#31216
      FieldKind = fkLookup
      FieldName = 'I140_003'
      LookupDataSet = qryInv140
      LookupKeyFields = 'I140_001'
      LookupResultField = 'I140_003'
      KeyFields = 'O510B_004'
      Lookup = True
    end
  end
  object qryInv150: TADOQuery
    Active = True
    Connection = SYSDM.ADOC
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select * from inv150')
    Left = 158
    Top = 400
  end
  object qryInv140: TADOQuery
    Active = True
    Connection = SYSDM.ADOC
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select * from inv140')
    Left = 190
    Top = 400
  end
  object qryOrd510B: TADOQuery
    Connection = SYSDM.ADOC
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      
        'select B.O510B_001,B.O510B_002,B.O510B_003,B.O510B_004,B.O510B_0' +
        '05,B.O510B_006,B.O510B_013,B.O510B_025'
      ' from ORD510B B'
      ' order by O510B_002')
    Left = 158
    Top = 360
    object qryOrd510BO510B_001: TWideStringField
      FieldName = 'O510B_001'
      Size = 30
    end
    object qryOrd510BO510B_002: TIntegerField
      FieldName = 'O510B_002'
    end
    object qryOrd510BO510B_003: TIntegerField
      FieldName = 'O510B_003'
    end
    object qryOrd510BO510B_004: TIntegerField
      FieldName = 'O510B_004'
    end
    object qryOrd510BO510B_005: TFloatField
      FieldName = 'O510B_005'
    end
    object qryOrd510BO510B_006: TFloatField
      FieldName = 'O510B_006'
    end
    object qryOrd510BO510B_013: TFloatField
      FieldName = 'O510B_013'
    end
    object qryOrd510BO510B_025: TFloatField
      DisplayLabel = #25910#27454#25240#25187
      FieldName = 'O510B_025'
    end
    object qryOrd510BI140_003: TStringField
      DisplayLabel = #21333#20301#21517#31216
      FieldKind = fkLookup
      FieldName = 'I140_003'
      LookupDataSet = qryInv140
      LookupKeyFields = 'I140_001'
      LookupResultField = 'I140_003'
      KeyFields = 'O510B_004'
      Lookup = True
    end
    object qryOrd510BI140_002: TStringField
      DisplayLabel = #21333#20301#32534#21495
      FieldKind = fkLookup
      FieldName = 'I140_002'
      LookupDataSet = qryInv140
      LookupKeyFields = 'I140_001'
      LookupResultField = 'I140_002'
      KeyFields = 'O510B_004'
      Lookup = True
    end
    object qryOrd510BI150_008: TStringField
      DisplayLabel = #33521#25991#21517#31216
      FieldKind = fkLookup
      FieldName = 'I150_008'
      LookupDataSet = qryInv150
      LookupKeyFields = 'I150_001'
      LookupResultField = 'I150_008'
      KeyFields = 'O510B_003'
      Lookup = True
    end
    object qryOrd510BI150_004: TStringField
      DisplayLabel = #35268#26684#22411#21495
      FieldKind = fkLookup
      FieldName = 'I150_004'
      LookupDataSet = qryInv150
      LookupKeyFields = 'I150_001'
      LookupResultField = 'I150_004'
      KeyFields = 'O510B_003'
      Lookup = True
    end
    object qryOrd510BI150_003: TStringField
      DisplayLabel = #26009#21697#21517#31216
      FieldKind = fkLookup
      FieldName = 'I150_003'
      LookupDataSet = qryInv150
      LookupKeyFields = 'I150_001'
      LookupResultField = 'I150_003'
      KeyFields = 'O510B_003'
      Lookup = True
    end
    object qryOrd510BI150_002: TStringField
      DisplayLabel = #26009#21697#32534#21495
      FieldKind = fkLookup
      FieldName = 'I150_002'
      LookupDataSet = qryInv150
      LookupKeyFields = 'I150_001'
      LookupResultField = 'I150_002'
      KeyFields = 'O510B_003'
      Lookup = True
    end
  end
  object qryGld100: TADOQuery
    Active = True
    Connection = SYSDM.ADOC
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select * from GLD100 order by G100_002')
    Left = 149
    Top = 90
  end
  object qryOrd150: TADOQuery
    Connection = SYSDM.ADOC
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      
        'select A.O150_001,A.O150_002,A.O150_003,A.O150_004,A.O150_005,A.' +
        'O150_006,A.O150_012,A.O150_011,'
      '       B.O151_002,B.O151_003,B.O151_004,'
      '       C.O120_002'
      
        'from (ORD150 A left join (select * from ORD151 where O151_011<>0' +
        ') B on A.O150_001=B.O151_001) left join ORD120 C on A.O150_011=C' +
        '.O120_001'
      'where A.O150_009 in (0,2)'
      'order by A.O150_001')
    Left = 112
    Top = 184
    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_012: TWideStringField
      DisplayLabel = #23458#25143#22320#22336
      FieldName = 'O150_012'
      Size = 100
    end
    object qryOrd150O151_002: TWideStringField
      DisplayLabel = #32852#31995#20154#21592
      FieldName = 'O151_002'
    end
    object qryOrd150O151_003: TWideStringField
      DisplayLabel = #37096#38376#21517#31216
      FieldName = 'O151_003'
      Size = 50
    end
    object qryOrd150O151_004: TWideStringField
      DisplayLabel = #32844#21153#21517#31216
      FieldName = 'O151_004'
      Size = 50
    end
    object qryOrd150O120_002: TWideStringField
      FieldName = 'O120_002'
      Size = 50
    end
    object qryOrd150O150_011: TIntegerField
      FieldName = 'O150_011'
      Visible = False
    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 = 72
    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
end