acp500_02.dfm.svn-base

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

    object qryPUR510AO152_002: TWideStringField
      DisplayLabel = #20132#36135#22320#28857
      FieldName = 'O152_002'
    end
    object qryPUR510AO152_003: TIntegerField
      FieldName = 'O152_003'
      Visible = False
    end
    object qryPUR510AO152_004: TWideStringField
      DisplayLabel = #20132#36135#22320#22336
      FieldName = 'O152_004'
      Size = 100
    end
    object qryPUR510AO152_005: TWideStringField
      DisplayLabel = #37038#25919#32534#30721
      FieldName = 'O152_005'
    end
    object qryPUR510AO152_006: TWideStringField
      DisplayLabel = #30005#35805#21495#30721
      FieldName = 'O152_006'
      Size = 50
    end
    object qryPUR510AO152_007: TWideStringField
      DisplayLabel = #20256#30495#21495#30721
      FieldName = 'O152_007'
      Size = 50
    end
    object qryPUR510AO152_008: TWideStringField
      DisplayLabel = #32852#31995#20154#21517
      FieldName = 'O152_008'
    end
    object qryPUR510AO152_009: TMemoField
      FieldName = 'O152_009'
      Visible = False
      BlobType = ftMemo
    end
    object qryPUR510AO152_010: TBooleanField
      FieldName = 'O152_010'
      Visible = False
    end
    object qryPUR510AG100_002: TStringField
      DisplayLabel = #24065#21035#32534#21495
      FieldKind = fkLookup
      FieldName = 'G100_002'
      LookupDataSet = qryGld100
      LookupKeyFields = 'G100_001'
      LookupResultField = 'G100_002'
      KeyFields = 'P510A_007'
      Lookup = True
    end
    object qryPUR510AG100_003: TStringField
      DisplayLabel = #24065#21035#21517#31216
      FieldKind = fkLookup
      FieldName = 'G100_003'
      LookupDataSet = qryGld100
      LookupKeyFields = 'G100_001'
      LookupResultField = 'G100_003'
      KeyFields = 'P510A_007'
      Lookup = True
    end
    object qryPUR510AO150_002: TWideStringField
      DisplayLabel = #23458#25143#32534#21495
      FieldName = 'O150_002'
    end
    object qryPUR510AO150_003: TWideStringField
      DisplayLabel = #23458#25143#21517#31216
      FieldName = 'O150_003'
      Size = 60
    end
  end
  object qryHrm150: TADOQuery
    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 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 = 176
    Top = 192
    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 qryGld100: TADOQuery
    Active = True
    Connection = SYSDM.ADOC
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select * from GLD100 order by G100_002')
    Left = 308
    Top = 160
  end
  object qryAcp500B: TADOQuery
    Connection = SYSDM.ADOC
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      
        'select A.*,B.P510B_002,B.P510B_003,B.P510B_004,B.P510B_005,B.P51' +
        '0B_006,B.P510B_007,B.P510B_025'
      ' from ACP500B A,PUR510B B'
      ' where A.A500B_003=B.P510B_001 and  A.A500B_004=B.P510B_002')
    Left = 104
    Top = 344
    object qryAcp500BA500B_001: TWideStringField
      DisplayLabel = #25240#25187#21333#21495
      FieldName = 'A500B_001'
      Size = 30
    end
    object qryAcp500BA500B_002: TIntegerField
      DisplayLabel = #21333#25454#34892#21495
      FieldName = 'A500B_002'
    end
    object qryAcp500BA500B_003: TWideStringField
      FieldName = 'A500B_003'
      Size = 30
    end
    object qryAcp500BA500B_004: TIntegerField
      FieldName = 'A500B_004'
    end
    object qryAcp500BA500B_005: TFloatField
      DisplayLabel = #38144#21806#25968#37327
      FieldName = 'A500B_005'
    end
    object qryAcp500BA500B_006: TFloatField
      DisplayLabel = #25240#25187#27604#29575
      FieldName = 'A500B_006'
    end
    object qryAcp500BA500B_007: TFloatField
      DisplayLabel = #25240#25187#37329#39069
      FieldName = 'A500B_007'
    end
    object qryAcp500BA500B_008: TIntegerField
      DisplayLabel = #22791#27880#35828#26126
      FieldName = 'A500B_008'
    end
    object qryAcp500BA500B_009: TSmallintField
      FieldName = 'A500B_009'
    end
    object qryAcp500BO510B_002: TIntegerField
      FieldName = 'P510B_002'
    end
    object qryAcp500BO510B_003: TIntegerField
      DisplayLabel = #20135#21697#32534#21495
      FieldName = 'P510B_003'
    end
    object qryAcp500BO510B_004: TIntegerField
      DisplayLabel = #35745#37327#21333#20301
      FieldName = 'P510B_004'
    end
    object qryAcp500BO510B_005: TFloatField
      FieldName = 'P510B_005'
    end
    object qryAcp500BO510B_006: TFloatField
      FieldName = 'P510B_006'
    end
    object qryAcp500BO510B_007: TFloatField
      FieldName = 'P510B_007'
    end
    object qryAcp500BO510B_025: TFloatField
      DisplayLabel = #25910#27454#25240#25187
      FieldName = 'P510B_025'
    end
    object qryAcp500BI150_002: TStringField
      DisplayLabel = #26009#21697#32534#21495
      FieldKind = fkLookup
      FieldName = 'I150_002'
      LookupDataSet = qryInv150
      LookupKeyFields = 'I150_001'
      LookupResultField = 'I150_002'
      KeyFields = 'P510B_003'
      Lookup = True
    end
    object qryAcp500BI150_003: TStringField
      DisplayLabel = #26009#21697#21517#31216
      FieldKind = fkLookup
      FieldName = 'I150_003'
      LookupDataSet = qryInv150
      LookupKeyFields = 'I150_001'
      LookupResultField = 'I150_003'
      KeyFields = 'P510B_003'
      Lookup = True
    end
    object qryAcp500BI150_004: TStringField
      DisplayLabel = #35268#26684#22411#21495
      FieldKind = fkLookup
      FieldName = 'I150_004'
      LookupDataSet = qryInv150
      LookupKeyFields = 'I150_001'
      LookupResultField = 'I150_004'
      KeyFields = 'P510B_003'
      Lookup = True
    end
    object qryAcp500BI150_008: TStringField
      DisplayLabel = #33521#25991#21517#31216
      FieldKind = fkLookup
      FieldName = 'I150_008'
      LookupDataSet = qryInv150
      LookupKeyFields = 'I150_001'
      LookupResultField = 'I150_008'
      KeyFields = 'P510B_003'
      Lookup = True
    end
    object qryAcp500BI140_002: TStringField
      DisplayLabel = #21333#20301#32534#21495
      FieldKind = fkLookup
      FieldName = 'I140_002'
      LookupDataSet = qryInv140
      LookupKeyFields = 'I140_001'
      LookupResultField = 'I140_002'
      KeyFields = 'P510B_004'
      Lookup = True
    end
    object qryAcp500BI140_003: TStringField
      DisplayLabel = #21333#20301#21517#31216
      FieldKind = fkLookup
      FieldName = 'I140_003'
      LookupDataSet = qryInv140
      LookupKeyFields = 'I140_001'
      LookupResultField = 'I140_003'
      KeyFields = 'P510B_004'
      Lookup = True
    end
  end
  object qryInv150: TADOQuery
    Active = True
    Connection = SYSDM.ADOC
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select * from inv150')
    Left = 128
    Top = 384
  end
  object qryInv140: TADOQuery
    Active = True
    Connection = SYSDM.ADOC
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select * from inv140')
    Left = 168
    Top = 384
  end
  object qryPur510B: TADOQuery
    Connection = SYSDM.ADOC
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      
        'select B.P510B_001,B.P510B_002,B.P510B_003,B.P510B_004,B.P510B_0' +
        '05,B.P510B_006,B.P510B_013,B.P510B_025'
      ' from PUR510B B'
      ' order by P510B_002')
    Left = 136
    Top = 344
    object qryPur510BO510B_001: TWideStringField
      FieldName = 'P510B_001'
      Size = 30
    end
    object qryPur510BO510B_002: TIntegerField
      FieldName = 'P510B_002'
    end
    object qryPur510BO510B_003: TIntegerField
      FieldName = 'P510B_003'
    end
    object qryPur510BO510B_004: TIntegerField
      FieldName = 'P510B_004'
    end
    object qryPur510BO510B_005: TFloatField
      FieldName = 'P510B_005'
    end
    object qryPur510BO510B_006: TFloatField
      FieldName = 'P510B_006'
    end
    object qryPur510BO510B_013: TFloatField
      FieldName = 'P510B_013'
    end
    object qryPur510BO510B_025: TFloatField
      DisplayLabel = #25910#27454#25240#25187
      FieldName = 'P510B_025'
    end
    object qryPur510BI140_003: TStringField
      DisplayLabel = #21333#20301#21517#31216
      FieldKind = fkLookup
      FieldName = 'I140_003'
      LookupDataSet = qryInv140
      LookupKeyFields = 'I140_001'
      LookupResultField = 'I140_003'
      KeyFields = 'P510B_004'
      Lookup = True
    end
    object qryPur510BI140_002: TStringField
      DisplayLabel = #21333#20301#32534#21495
      FieldKind = fkLookup
      FieldName = 'I140_002'
      LookupDataSet = qryInv140
      LookupKeyFields = 'I140_001'
      LookupResultField = 'I140_002'
      KeyFields = 'P510B_004'
      Lookup = True
    end
    object qryPur510BI150_008: TStringField
      DisplayLabel = #33521#25991#21517#31216
      FieldKind = fkLookup
      FieldName = 'I150_008'
      LookupDataSet = qryInv150
      LookupKeyFields = 'I150_001'
      LookupResultField = 'I150_008'
      KeyFields = 'P510B_003'
      Lookup = True
    end
    object qryPur510BI150_004: TStringField
      DisplayLabel = #35268#26684#22411#21495
      FieldKind = fkLookup
      FieldName = 'I150_004'
      LookupDataSet = qryInv150
      LookupKeyFields = 'I150_001'
      LookupResultField = 'I150_004'
      KeyFields = 'P510B_003'
      Lookup = True
    end
    object qryPur510BI150_003: TStringField
      DisplayLabel = #26009#21697#21517#31216
      FieldKind = fkLookup
      FieldName = 'I150_003'
      LookupDataSet = qryInv150
      LookupKeyFields = 'I150_001'
      LookupResultField = 'I150_003'
      KeyFields = 'P510B_003'
      Lookup = True
    end
    object qryPur510BI150_002: TStringField
      DisplayLabel = #26009#21697#32534#21495
      FieldKind = fkLookup
      FieldName = 'I150_002'
      LookupDataSet = qryInv150
      LookupKeyFields = 'I150_001'
      LookupResultField = 'I150_002'
      KeyFields = 'P510B_003'
      Lookup = True
    end
  end
  object pmAcp500B: TPopupMenu
    OnPopup = pmAcp500BPopup
    Left = 256
    Top = 400
    object mmiAdd: TMenuItem
      Caption = #26032#22686'(&I)'
      ShortCut = 32841
      OnClick = mmiAddClick
    end
    object mmiEdit: TMenuItem
      Caption = #20462#25913'(&U)'
      ShortCut = 32853
      OnClick = mmiEditClick
    end
    object mmiDel: TMenuItem
      Caption = #21024#38500'(&E)'
      ShortCut = 32837
      OnClick = mmiDelClick
    end
  end
end