acr510_02.dfm.svn-base

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

    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
    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 qryAcr510BFOrderQty: TFloatField
      DisplayLabel = #38144#21806#25968#37327
      FieldName = 'FOrderQty'
    end
    object qryAcr510BFOrderPrice: TFloatField
      DisplayLabel = #38144#21806#21333#20215
      FieldName = 'FOrderPrice'
      ReadOnly = True
    end
    object qryAcr510BFOrderAmount: TFloatField
      DisplayLabel = #38144#21806#37329#39069
      FieldName = 'FOrderAmount'
    end
    object qryAcr510BFDisAmt: TFloatField
      DisplayLabel = #38144#21806#25240#25187
      FieldName = 'FDisAmt'
    end
    object qryAcr510BFSourceOrder: TWideStringField
      DisplayLabel = #26469#28304#32534#21495
      FieldName = 'FSourceOrder'
      Size = 30
    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
  object adsClone: TADODataSet
    FieldDefs = <
      item
        Name = 'FCode'
        DataType = ftString
        Size = 20
      end>
    Parameters = <>
    StoreDefs = True
    Left = 440
    Top = 400
  end
  object pmAcr510B: TPopupMenu
    OnPopup = pmAcr510BPopup
    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