ser520_02.dfm

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

    object qrySer520S520_015: TWideStringField
      DisplayLabel = #20462#25913#20154#21592
      FieldName = 'S520_015'
    end
    object qrySer520O150_001: TAutoIncField
      FieldName = 'O150_001'
      ReadOnly = True
      Visible = False
    end
    object qrySer520S520_006: TDateTimeField
      FieldName = 'S520_006'
      Visible = False
    end
    object qrySer520S520_007: TWideStringField
      FieldName = 'S520_007'
      Visible = False
    end
    object qrySer520S520_008: TDateTimeField
      FieldName = 'S520_008'
      Visible = False
    end
    object qrySer520S520_009: TWideStringField
      FieldName = 'S520_009'
      Visible = False
    end
    object qrySer520S520_010: TMemoField
      FieldName = 'S520_010'
      Visible = False
      BlobType = ftMemo
    end
  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
    object ActCheck: TAction
      Caption = #23457#26680
      Hint = #23457#26680
      ImageIndex = 13
      ShortCut = 32835
      OnExecute = ActCheckExecute
    end
    object ActUnCheck: TAction
      Caption = #21453#23457#26680
      Hint = #21453#23457#26680
      ImageIndex = 14
      ShortCut = 32853
      OnExecute = ActUnCheckExecute
    end
  end
  object dsSer520: TDataSource
    DataSet = qrySer520
    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 dsSer521: TDataSource
    DataSet = qrySer521
    Left = 96
    Top = 304
  end
  object dsSer522: TDataSource
    DataSet = qrySer522
    Left = 144
    Top = 304
  end
  object qrySer522: TADOQuery
    Connection = SYSDM.ADOC
    LockType = ltBatchOptimistic
    Parameters = <>
    SQL.Strings = (
      'select * from SER522')
    Left = 152
    Top = 312
    object qrySer522S522_003: TDateTimeField
      DisplayLabel = #39044#35745#26085#26399
      FieldName = 'S522_003'
    end
    object qrySer522H150_002: TWideStringField
      DisplayLabel = #21592#24037#32534#21495
      FieldKind = fkLookup
      FieldName = 'H150_002'
      LookupDataSet = qryHrm150
      LookupKeyFields = 'H150_001'
      LookupResultField = 'H150_002'
      KeyFields = 'S522_004'
      Lookup = True
    end
    object qrySer522H150_003: TWideStringField
      DisplayLabel = #21592#24037#22995#21517
      FieldKind = fkLookup
      FieldName = 'H150_003'
      LookupDataSet = qryHrm150
      LookupKeyFields = 'H150_001'
      LookupResultField = 'H150_003'
      KeyFields = 'S522_004'
      Lookup = True
    end
    object qrySer522S522_005: TBCDField
      DisplayLabel = #32602#27454#37329#39069
      FieldName = 'S522_005'
      Precision = 15
      Size = 2
    end
    object qrySer522S522_001: TWideStringField
      FieldName = 'S522_001'
      Visible = False
      Size = 30
    end
    object qrySer522S522_002: TIntegerField
      FieldName = 'S522_002'
      Visible = False
    end
    object qrySer522S522_004: TIntegerField
      FieldName = 'S522_004'
      Visible = False
    end
  end
  object dsSer523: TDataSource
    DataSet = qrySer523
    Left = 192
    Top = 304
  end
  object qrySer523: TADOQuery
    Connection = SYSDM.ADOC
    LockType = ltBatchOptimistic
    Parameters = <>
    SQL.Strings = (
      'select * from SER523')
    Left = 200
    Top = 312
    object qrySer523S523_003: TDateTimeField
      DisplayLabel = #39044#35745#26085#26399
      FieldName = 'S523_003'
    end
    object qrySer523O150_002: TWideStringField
      DisplayLabel = #23458#25142#32534#21495
      FieldKind = fkLookup
      FieldName = 'O150_002'
      LookupDataSet = qryOrd150
      LookupKeyFields = 'O150_001'
      LookupResultField = 'O150_002'
      KeyFields = 'S523_004'
      Lookup = True
    end
    object qrySer523O150_003: TWideStringField
      DisplayLabel = #23458#25142#21517#31216
      FieldKind = fkLookup
      FieldName = 'O150_003'
      LookupDataSet = qryOrd150
      LookupKeyFields = 'O150_001'
      LookupResultField = 'O150_003'
      KeyFields = 'S523_004'
      Size = 60
      Lookup = True
    end
    object qrySer523S523_005: TBCDField
      DisplayLabel = #36180#20607#37329#39069
      FieldName = 'S523_005'
      Precision = 15
      Size = 2
    end
    object qrySer523S523_002: TIntegerField
      FieldName = 'S523_002'
      Visible = False
    end
    object qrySer523S523_001: TWideStringField
      FieldName = 'S523_001'
      Visible = False
      Size = 30
    end
    object qrySer523S523_004: TIntegerField
      FieldName = 'S523_004'
      Visible = False
    end
  end
  object dsSer524: TDataSource
    DataSet = qrySer524
    Left = 240
    Top = 304
  end
  object qrySer524: TADOQuery
    Connection = SYSDM.ADOC
    CursorType = ctStatic
    LockType = ltBatchOptimistic
    Parameters = <>
    SQL.Strings = (
      'select * from SER524')
    Left = 248
    Top = 312
    object qrySer524S524_003: TDateTimeField
      DisplayLabel = #39044#35745#26085#26399
      FieldName = 'S524_003'
    end
    object qrySer524I150_002: TWideStringField
      DisplayLabel = #36135#21697#32534#21495
      FieldKind = fkLookup
      FieldName = 'I150_002'
      LookupDataSet = qryInv150
      LookupKeyFields = 'I150_001'
      LookupResultField = 'I150_002'
      KeyFields = 'S524_004'
      Size = 30
      Lookup = True
    end
    object qrySer524I150_003: TWideStringField
      DisplayLabel = #36135#21697#21517#31216
      FieldKind = fkLookup
      FieldName = 'I150_003'
      LookupDataSet = qryInv150
      LookupKeyFields = 'I150_001'
      LookupResultField = 'I150_003'
      KeyFields = 'S524_004'
      Size = 60
      Lookup = True
    end
    object qrySer524S524_005: TFloatField
      DisplayLabel = #36135#21697#25968#37327
      FieldName = 'S524_005'
    end
    object qrySer524S524_006: TFloatField
      DisplayLabel = #36135#21697#21333#20215
      FieldName = 'S524_006'
    end
    object qrySer524S524_007: TFloatField
      DisplayLabel = #36135#21697#37329#39069
      FieldName = 'S524_007'
    end
    object qrySer524S524_001: TWideStringField
      FieldName = 'S524_001'
      Visible = False
      Size = 30
    end
    object qrySer524S524_002: TIntegerField
      FieldName = 'S524_002'
      Visible = False
    end
    object qrySer524S524_004: TIntegerField
      FieldName = 'S524_004'
      Visible = False
    end
  end
  object qrySer521: TADOQuery
    Connection = SYSDM.ADOC
    LockType = ltBatchOptimistic
    Parameters = <>
    SQL.Strings = (
      'select * from SER521')
    Left = 104
    Top = 312
    object qrySer521S521_003: TWideStringField
      DisplayLabel = #20219#21153#32534#21495
      FieldName = 'S521_003'
      Size = 30
    end
    object qrySer521S521_004: TWideStringField
      DisplayLabel = #22519#34892#20154#21592
      FieldName = 'S521_004'
      OnGetText = qrySer521S521_004GetText
      Size = 50
    end
    object qrySer521S521_005: TBCDField
      DisplayLabel = #39044#35745#24037#26102
      FieldName = 'S521_005'
      Precision = 8
      Size = 2
    end
    object qrySer521S521_006: TSmallintField
      DisplayLabel = #26102#38388#21333#20301
      FieldName = 'S521_006'
      OnGetText = qrySer521S521_006GetText
    end
    object qrySer521S521_007: TDateTimeField
      DisplayLabel = #39044#35745#24320#22987#26085#26399
      FieldName = 'S521_007'
    end
    object qrySer521S521_008: TDateTimeField
      DisplayLabel = #39044#35745#23436#25104#26085#26399
      FieldName = 'S521_008'
    end
    object qrySer521S521_002: TIntegerField
      FieldName = 'S521_002'
      Visible = False
    end
    object qrySer521S521_001: TWideStringField
      FieldName = 'S521_001'
      Visible = False
      Size = 30
    end
  end
  object qrySer500: TADOQuery
    Connection = SYSDM.ADOC
    Parameters = <>
    SQL.Strings = (
      'select S500_001,S500_002,S500_015,S500_016,'
      '       O150_001,O150_002,O150_003'
      'from SER500,SER100,ORD150'
      
        'where S500_004=S100_001 and S500_017=O150_001 and S100_005<>0 an' +
        'd 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 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_015: TSmallintField
      DisplayLabel = #21333#25454#31867#22411
      FieldName = 'S500_015'
    end
    object qrySer500S500_016: TWideStringField
      DisplayLabel = #21333#25454#32534#21495
      FieldName = 'S500_016'
      Size = 30
    end
    object qrySer500O150_001: TAutoIncField
      FieldName = 'O150_001'
      ReadOnly = True
      Visible = False
    end
  end
  object qryHrm150: TADOQuery
    Connection = SYSDM.ADOC
    Parameters = <>
    SQL.Strings = (
      'select H150_001,H150_002,H150_003 from HRM150 order by H150_002')
    Left = 152
    Top = 352
    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
    Parameters = <>
    SQL.Strings = (
      'select O150_001,O150_002,O150_003 from ORD150 order by O150_002')
    Left = 200
    Top = 352
    object qryOrd150O150_002: TStringField
      DisplayLabel = #23458#25143#32534#21495
      FieldName = 'O150_002'
    end
    object qryOrd150O150_003: TStringField
      DisplayLabel = #23458#25143#21517#31216
      FieldName = 'O150_003'
      Size = 60
    end
    object qryOrd150O150_001: TAutoIncField
      FieldName = 'O150_001'
      ReadOnly = True
      Visible = False
    end
  end
  object qryQuery: TADOQuery
    Connection = SYSDM.ADOC
    Parameters = <>
    Left = 376
    Top = 144
  end
end