ser530_02.dfm.svn-base

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

      Top = 16
      Width = 305
      Height = 20
      Color = clBtnFace
      Enabled = False
      ReadOnly = True
      TabOrder = 1
    end
    object edtAddress: TEdit
      Left = 80
      Top = 40
      Width = 433
      Height = 20
      Color = clBtnFace
      Enabled = False
      ReadOnly = True
      TabOrder = 3
    end
    object edtPhone: TEdit
      Left = 576
      Top = 16
      Width = 153
      Height = 20
      Color = clBtnFace
      Enabled = False
      ReadOnly = True
      TabOrder = 2
    end
    object edtFax: TEdit
      Left = 576
      Top = 40
      Width = 153
      Height = 20
      Color = clBtnFace
      Enabled = False
      ReadOnly = True
      TabOrder = 4
    end
    object edtItem: TEdit
      Left = 80
      Top = 64
      Width = 121
      Height = 20
      Color = clBtnFace
      Enabled = False
      TabOrder = 5
    end
    object edtItemName: TEdit
      Left = 208
      Top = 64
      Width = 305
      Height = 20
      Color = clBtnFace
      Enabled = False
      ReadOnly = True
      TabOrder = 6
    end
    object edtMacNo: TEdit
      Left = 576
      Top = 64
      Width = 153
      Height = 20
      Color = clBtnFace
      Enabled = False
      ReadOnly = True
      TabOrder = 7
    end
  end
  object qryOrd153: TADOQuery
    Connection = SYSDM.ADOC
    Parameters = <>
    SQL.Strings = (
      
        'select C.I150_002,A.O153_003,C.I150_003,C.I150_004,D.I120_003,E.' +
        'O150_002,E.O150_003,C.I150_001,A.O153_007,A.O153_008,A.O153_009,' +
        'A.O153_010,A.O153_012'
      'from ORD153 A, ORD150 B, INV150 C, INV120 D, ORD150 E'
      
        'where A.O153_001=B.O150_001 and A.O153_002=C.I150_001 and C.I150' +
        '_007=D.I120_001 and C.I150_041=E.O150_001')
    Left = 120
    Top = 264
    object qryOrd153I150_002: TWideStringField
      DisplayLabel = #20135#21697#32534#21495
      FieldName = 'I150_002'
      Size = 30
    end
    object qryOrd153O153_003: TWideStringField
      DisplayLabel = #26426#36523#32534#21495
      FieldName = 'O153_003'
      Size = 30
    end
    object qryOrd153I150_003: TWideStringField
      DisplayLabel = #20135#21697#21517#31216
      FieldName = 'I150_003'
      Size = 60
    end
    object qryOrd153I150_004: TWideStringField
      DisplayLabel = #35268#26684#22411#21495
      FieldName = 'I150_004'
      Size = 60
    end
    object qryOrd153I120_003: TWideStringField
      DisplayLabel = #20135#21697#31867#21035
      FieldName = 'I120_003'
      Size = 50
    end
    object qryOrd153O150_002: TWideStringField
      DisplayLabel = #21046#36896#21830#21495
      FieldName = 'O150_002'
    end
    object qryOrd153O150_003: TWideStringField
      DisplayLabel = #21046#36896#21830#21517
      FieldName = 'O150_003'
      Size = 60
    end
    object qryOrd153I150_001: TAutoIncField
      FieldName = 'I150_001'
      ReadOnly = True
      Visible = False
    end
    object qryOrd153O153_007: TDateTimeField
      DisplayLabel = #20445#20859#24320#22987#26085#26399
      FieldName = 'O153_007'
    end
    object qryOrd153O153_008: TDateTimeField
      DisplayLabel = #20445#20859#23436#25104#26085#26399
      FieldName = 'O153_008'
    end
    object qryOrd153O153_009: TDateTimeField
      DisplayLabel = #32493#20445#24320#22987#26085#26399
      FieldName = 'O153_009'
    end
    object qryOrd153O153_010: TDateTimeField
      DisplayLabel = #32493#20445#23436#25104#26085#26399
      FieldName = 'O153_010'
    end
    object qryOrd153O153_012: TSmallintField
      DisplayLabel = #26469#28304#31867#22411
      FieldName = 'O153_012'
    end
  end
  object qrySer530: TADOQuery
    CacheSize = 1000
    Connection = SYSDM.ADOC
    CursorType = ctStatic
    AfterScroll = qrySer530AfterScroll
    OnCalcFields = qrySer530CalcFields
    Parameters = <>
    SQL.Strings = (
      'select A.*,'
      '       B.S500_002,B.S500_018,B.S500_019,'
      
        '       C.O150_001,C.O150_002,C.O150_003,C.O150_005,C.O150_006,C.' +
        'O150_012,'
      '       D.S110_003'
      'from SER530 A, SER500 B, ORD150 C, SER110 D'
      
        'where A.S530_002=B.S500_001 and B.S500_017=C.O150_001 and A.S530' +
        '_006=D.S110_001'
      'order by S530_001')
    Left = 8
    Top = 56
    object qrySer530S530_001: TWideStringField
      DisplayLabel = #27719#25253#32534#21495
      FieldName = 'S530_001'
      Size = 30
    end
    object qrySer530S530_002: TWideStringField
      DisplayLabel = #26469#30005#32534#21495
      FieldName = 'S530_002'
      Size = 30
    end
    object qrySer530S500_002: TWideStringField
      DisplayLabel = #26469#30005#21517#31216
      FieldName = 'S500_002'
      Size = 50
    end
    object qrySer530S530_003: TWideStringField
      DisplayLabel = #27719#25253#20154#21592
      FieldName = 'S530_003'
    end
    object qrySer530S530_004: TDateTimeField
      DisplayLabel = #27719#25253#26085#26399
      FieldName = 'S530_004'
    end
    object qrySer530S110_003: TWideStringField
      DisplayLabel = #21518#32493#22788#29702
      FieldName = 'S110_003'
      Size = 50
    end
    object qrySer530S530_007: TDateTimeField
      DisplayLabel = #21046#21333#26085#26399
      FieldName = 'S530_007'
    end
    object qrySer530S530_008: TWideStringField
      DisplayLabel = #21046#21333#20154#21592
      FieldName = 'S530_008'
    end
    object qrySer530S530_009: TDateTimeField
      DisplayLabel = #20462#25913#26085#26399
      FieldName = 'S530_009'
    end
    object qrySer530S530_010: TWideStringField
      DisplayLabel = #20462#25913#20154#21592
      FieldName = 'S530_010'
    end
    object qrySer530S500_019: TWideStringField
      DisplayLabel = #26426#36523#32534#21495
      FieldName = 'S500_019'
      Size = 30
    end
    object qrySer530I150_002: TStringField
      DisplayLabel = #20135#21697#32534#21495
      FieldKind = fkLookup
      FieldName = 'I150_002'
      LookupDataSet = qryInv150
      LookupKeyFields = 'I150_001'
      LookupResultField = 'I150_002'
      KeyFields = 'S500_018'
      Size = 30
      Lookup = True
    end
    object qrySer530I150_003: TStringField
      DisplayLabel = #20135#21697#21517#31216
      FieldKind = fkLookup
      FieldName = 'I150_003'
      LookupDataSet = qryInv150
      LookupKeyFields = 'I150_001'
      LookupResultField = 'I150_003'
      KeyFields = 'S500_018'
      Size = 60
      Lookup = True
    end
    object qrySer530S500_018: TIntegerField
      DisplayLabel = #20135#21697#32534#21495
      FieldName = 'S500_018'
      Visible = False
    end
    object qrySer530O150_002: TWideStringField
      DisplayLabel = #23458#25142#32534#21495
      FieldName = 'O150_002'
    end
    object qrySer530O150_003: TWideStringField
      DisplayLabel = #23458#25142#21517#31216
      FieldName = 'O150_003'
      Size = 60
    end
    object qrySer530O150_005: TWideStringField
      DisplayLabel = #30005#35805#21495#30721
      FieldKind = fkCalculated
      FieldName = 'O150_005'
      Size = 50
      Calculated = True
    end
    object qrySer530O150_006: TWideStringField
      DisplayLabel = #20256#30495#21495#30721
      FieldKind = fkCalculated
      FieldName = 'O150_006'
      Size = 50
      Calculated = True
    end
    object qrySer530O150_012: TWideStringField
      DisplayLabel = #23458#25142#22320#22336
      FieldKind = fkCalculated
      FieldName = 'O150_012'
      Size = 100
      Calculated = True
    end
    object qrySer530O150_001: TAutoIncField
      FieldName = 'O150_001'
      ReadOnly = True
    end
    object qrySer530S530_005: TMemoField
      DisplayLabel = #27719#25253#20869#23481
      FieldName = 'S530_005'
      Visible = False
      BlobType = ftMemo
    end
    object qrySer530S530_006: TIntegerField
      DisplayLabel = #21518#32493#22788#29702
      FieldName = 'S530_006'
      Visible = False
    end
  end
  object qrySer110: TADOQuery
    Connection = SYSDM.ADOC
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select * from SER110 where S110_001 in (3,4,13,12)')
    Left = 504
    Top = 80
  end
  object ActionList1: TActionList
    Images = SYSDM.imgBtn
    Left = 576
    Top = 8
    object ActFirst: TAction
      Caption = #26368#21069
      Hint = #31227#21040#31532#19968#26465#35760#24405
      ImageIndex = 0
      ShortCut = 32838
      OnExecute = ActFirstExecute
    end
    object ActPrior: TAction
      Caption = #19978#31227
      Hint = #31227#21040#19978#19968#26465#35760#24405
      ImageIndex = 1
      ShortCut = 32834
      OnExecute = ActPriorExecute
    end
    object ActNext: TAction
      Caption = #19979#31227
      Hint = #31227#21040#19979#19968#26465#35760#24405
      ImageIndex = 2
      ShortCut = 32846
      OnExecute = ActNextExecute
    end
    object ActLast: TAction
      Caption = #26368#21518
      Hint = #31227#21040#26368#21518#19968#26465#35760#24405
      ImageIndex = 3
      ShortCut = 32844
      OnExecute = ActLastExecute
    end
    object ActInsert: TAction
      Caption = #26032#22686
      Hint = #26032#22686#19968#26465#35760#24405
      ImageIndex = 4
      ShortCut = 32833
      OnExecute = ActInsertExecute
    end
    object ActUpdate: TAction
      Caption = #20462#25913
      Hint = #20462#25913#24403#21069#35760#24405
      ImageIndex = 5
      ShortCut = 32837
      OnExecute = ActUpdateExecute
    end
    object ActDelete: TAction
      Caption = #21024#38500
      Hint = #21024#38500#24403#21069#35760#24405
      ImageIndex = 6
      ShortCut = 32836
      OnExecute = ActDeleteExecute
    end
    object ActSave: TAction
      Caption = #20445#23384
      Enabled = False
      Hint = #20445#23384#32534#36753#30340#35760#24405
      ImageIndex = 7
      ShortCut = 32851
      OnExecute = ActSaveExecute
    end
    object ActCancel: TAction
      Caption = #21462#28040
      Enabled = False
      Hint = #21462#28040#32534#36753#30340#35760#24405
      ImageIndex = 8
      ShortCut = 32835
      OnExecute = ActCancelExecute
    end
    object ActRefresh: TAction
      Caption = #21047#26032
      Hint = #21462#24471#26368#26032#30340#25968#25454
      ImageIndex = 9
      ShortCut = 32850
      OnExecute = ActRefreshExecute
    end
    object ActLocate: TAction
      Caption = #26597#25214
      Hint = #24555#36895#23450#20301#35760#24405
      ImageIndex = 10
      ShortCut = 32847
      OnExecute = ActLocateExecute
    end
    object ActSearch: TAction
      Caption = #26597#35810
      Hint = #25353#26465#20214#26597#35810#25968#25454
      ImageIndex = 11
      ShortCut = 32849
      OnExecute = ActSearchExecute
    end
    object ActPrint: TAction
      Caption = #25171#21360
      Hint = #23558#25968#25454#25171#21360#20986#26469
      ImageIndex = 12
      ShortCut = 32848
      OnExecute = ActPrintExecute
    end
    object ActExit: TAction
      Caption = #36864#20986
      Hint = #20851#38381#24403#21069#31383#21475
      ImageIndex = 15
      ShortCut = 32856
      OnExecute = ActExitExecute
    end
  end
  object dsSer530: TDataSource
    DataSet = qrySer530
    Left = 8
    Top = 104
  end
  object qryInv150: TADOQuery
    Connection = SYSDM.ADOC
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select I150_001,I150_002,I150_003 from INV150')
    Left = 88
    Top = 48
    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
  end
  object qrySer500: TADOQuery
    Connection = SYSDM.ADOC
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select S500_001,S500_002,'
      '       S500_018,S500_019,S500_033,O150_001,O150_002,O150_003'
      'from SER500,SER100,ORD150'
      
        'where S500_004=S100_001 and S500_017=O150_001 and S100_005=0 and' +
        ' S500_003<>12')
    Left = 304
    Top = 56
    object qrySer500S500_001: TWideStringField
      DisplayLabel = #26469#30005#32534#21495
      FieldName = 'S500_001'
      Size = 30
    end
    object qrySer500S500_002: TWideStringField
      DisplayLabel = #26469#30005#21517#31216
      FieldName = 'S500_002'
      Size = 50
    end
    object qrySer500I150_002: TStringField
      DisplayLabel = #20135#21697#32534#21495
      FieldKind = fkLookup
      FieldName = 'I150_002'
      LookupDataSet = qryInv150
      LookupKeyFields = 'I150_001'
      LookupResultField = 'I150_002'
      KeyFields = 'S500_018'
      Size = 30
      Lookup = True
    end
    object qrySer500I150_003: TStringField
      DisplayLabel = #20135#21697#21517#31216
      FieldKind = fkLookup
      FieldName = 'I150_003'
      LookupDataSet = qryInv150
      LookupKeyFields = 'I150_001'
      LookupResultField = 'I150_003'
      KeyFields = 'S500_018'
      Size = 60
      Lookup = True
    end
    object qrySer500O150_002: TWideStringField
      DisplayLabel = #23458#25142#32534#21495
      FieldName = 'O150_002'
    end
    object qrySer500O150_003: TWideStringField
      DisplayLabel = #23458#25142#21517#31216
      FieldName = 'O150_003'
      Size = 60
    end
    object qrySer500S500_019: TWideStringField
      DisplayLabel = #26426#36523#32534#21495
      FieldName = 'S500_019'
      Size = 30
    end
    object qrySer500O150_001: TAutoIncField
      FieldName = 'O150_001'
      ReadOnly = True
      Visible = False
    end
    object qrySer500S500_018: TIntegerField
      FieldName = 'S500_018'
      Visible = False
    end
    object qrySer500S500_033: TMemoField
      DisplayLabel = #26469#30005#20869#23481
      FieldName = 'S500_033'
      Visible = False
      BlobType = ftMemo
    end
  end
end