ser500_02.dfm.svn-base

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

      FieldName = 'S500_006'
      OnGetText = qrySer500S500_006GetText
    end
    object qrySer500S500_007: TDateTimeField
      DisplayLabel = #26469#30005#26085#26399
      FieldName = 'S500_007'
    end
    object qrySer500S500_008: TIntegerField
      DisplayLabel = #26469#30005#26102#38388
      FieldName = 'S500_008'
    end
    object qrySer500S500_009: TBCDField
      DisplayLabel = #25509#21548#26102#38388
      FieldName = 'S500_009'
      Precision = 8
      Size = 2
    end
    object qrySer500H150_002: TWideStringField
      DisplayLabel = #21463#29702#20154#21495
      FieldName = 'H150_002'
    end
    object qrySer500H150_003: TWideStringField
      DisplayLabel = #21463#29702#20154#21517
      FieldName = 'H150_003'
    end
    object qrySer500S500_011: TWideStringField
      DisplayLabel = #26469#30005#20154#21592
      FieldName = 'S500_011'
    end
    object qrySer500S500_012: TWideStringField
      DisplayLabel = #37096#38376#21517#31216
      FieldName = 'S500_012'
    end
    object qrySer500S500_013: TWideStringField
      DisplayLabel = #32844#21153#21517#31216
      FieldName = 'S500_013'
    end
    object qrySer500S500_014: TWideStringField
      DisplayLabel = #32852#31995#30005#35805
      FieldName = 'S500_014'
    end
    object qrySer500S500_015: TSmallintField
      DisplayLabel = #21333#25454#31867#22411
      FieldName = 'S500_015'
      OnGetText = qrySer500S500_015GetText
    end
    object qrySer500S500_016: TWideStringField
      DisplayLabel = #21333#25454#32534#21495
      FieldName = 'S500_016'
      Size = 30
    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 qrySer500O150_005: TWideStringField
      DisplayLabel = #30005#35805#21495#30721
      FieldKind = fkCalculated
      FieldName = 'O150_005'
      Size = 50
      Calculated = True
    end
    object qrySer500O150_006: TWideStringField
      DisplayLabel = #20256#30495#21495#30721
      FieldKind = fkCalculated
      FieldName = 'O150_006'
      Size = 50
      Calculated = True
    end
    object qrySer500O150_012: TWideStringField
      DisplayLabel = #23458#25142#22320#22336
      FieldKind = fkCalculated
      FieldName = 'O150_012'
      Size = 100
      Calculated = True
    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 qrySer500S500_019: TWideStringField
      DisplayLabel = #26426#36523#32534#21495
      FieldName = 'S500_019'
      Size = 30
    end
    object qrySer500S500_020: TBooleanField
      DisplayLabel = #26159#21542#27966#24037
      FieldName = 'S500_020'
    end
    object qrySer500S500_027: TBooleanField
      DisplayLabel = #26159#21542#25253#20215
      FieldName = 'S500_027'
    end
    object qrySer500S500_028: TDateTimeField
      DisplayLabel = #20445#20859#24320#22987#26085#26399
      FieldName = 'S500_028'
    end
    object qrySer500S500_029: TDateTimeField
      DisplayLabel = #20445#20859#23436#25104#26085#26399
      FieldName = 'S500_029'
    end
    object qrySer500S500_030: TDateTimeField
      DisplayLabel = #32493#20445#24320#22987#26085#26399
      FieldName = 'S500_030'
    end
    object qrySer500S500_031: TDateTimeField
      DisplayLabel = #32493#20445#23436#25104#26085#26399
      FieldName = 'S500_031'
    end
    object qrySer500S500_032: TSmallintField
      DisplayLabel = #20135#21697#26469#28304
      FieldName = 'S500_032'
    end
    object qrySer500S500_033: TMemoField
      DisplayLabel = #26469#30005#20869#23481
      FieldName = 'S500_033'
      BlobType = ftMemo
    end
    object qrySer500S500_034: TDateTimeField
      DisplayLabel = #21046#21333#26085#26399
      FieldName = 'S500_034'
    end
    object qrySer500S500_035: TWideStringField
      DisplayLabel = #21046#21333#20154#21592
      FieldName = 'S500_035'
    end
    object qrySer500S500_036: TDateTimeField
      DisplayLabel = #20462#25913#26085#26399
      FieldName = 'S500_036'
    end
    object qrySer500S500_037: TWideStringField
      DisplayLabel = #20462#25913#20154#21592
      FieldName = 'S500_037'
    end
    object qrySer500S500_003: TIntegerField
      DisplayLabel = #26469#30005#29366#24577
      FieldName = 'S500_003'
      Visible = False
    end
    object qrySer500S500_004: TIntegerField
      DisplayLabel = #26469#30005#31867#21035
      FieldName = 'S500_004'
      Visible = False
    end
    object qrySer500S500_010: TIntegerField
      DisplayLabel = #21463#29702#20154#21592
      FieldName = 'S500_010'
      Visible = False
    end
    object qrySer500S500_017: TIntegerField
      DisplayLabel = #23458#25142#32534#21495
      FieldName = 'S500_017'
      Visible = False
    end
    object qrySer500S500_018: TIntegerField
      DisplayLabel = #20135#21697#32534#21495
      FieldName = 'S500_018'
      Visible = False
    end
    object qrySer500H150_001: TAutoIncField
      FieldName = 'H150_001'
      ReadOnly = True
      Visible = False
    end
    object qrySer500O150_001: TAutoIncField
      FieldName = 'O150_001'
      ReadOnly = True
      Visible = False
    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 = 480
    Top = 104
    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 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 dsSer500: TDataSource
    DataSet = qrySer500
    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 dsSer100: TDataSource
    DataSet = qrySer100
    Left = 192
    Top = 88
  end
  object qrySer100: TADOQuery
    Connection = SYSDM.ADOC
    Parameters = <>
    SQL.Strings = (
      'select * from SER100')
    Left = 224
    Top = 88
  end
  object qryTas500: TADOQuery
    Connection = SYSDM.ADOC
    Parameters = <>
    SQL.Strings = (
      
        'select T500_001,T500_002,T500_015,T500_016,T500_017 from TAS500 ' +
        'where T500_003<>3')
    Left = 464
    Top = 160
    object qryTas500T500_001: TWideStringField
      DisplayLabel = #39033#30446#32534#21495
      FieldName = 'T500_001'
      Size = 30
    end
    object qryTas500T500_002: TWideStringField
      DisplayLabel = #39033#30446#21517#31216
      FieldName = 'T500_002'
      Size = 50
    end
    object qryTas500T500_015: TIntegerField
      FieldName = 'T500_015'
      Visible = False
    end
    object qryTas500T500_016: TIntegerField
      FieldName = 'T500_016'
      Visible = False
    end
    object qryTas500T500_017: TWideStringField
      FieldName = 'T500_017'
      Visible = False
      Size = 30
    end
  end
  object qryTas510: TADOQuery
    CacheSize = 1000
    Connection = SYSDM.ADOC
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      
        'select T510_001,T510_002,T510_003,T510_004,T510_005,T510_007,T51' +
        '0_012,T510_016,T510_017,T510_018 from TAS510 where T510_003<>2 a' +
        'nd T510_003<>3 and T510_003<>4')
    Left = 496
    Top = 160
    object qryTas510T510_001: TWideStringField
      DisplayLabel = #20219#21153#32534#21495
      FieldName = 'T510_001'
      Size = 30
    end
    object qryTas510T510_002: TWideStringField
      DisplayLabel = #20219#21153#21517#31216
      FieldName = 'T510_002'
      Size = 50
    end
    object qryTas510T510_003: TIntegerField
      FieldName = 'T510_003'
      Visible = False
    end
    object qryTas510T510_004: TIntegerField
      FieldName = 'T510_004'
      Visible = False
    end
    object qryTas510T510_005: TSmallintField
      FieldName = 'T510_005'
      Visible = False
    end
    object qryTas510T510_007: TDateTimeField
      FieldName = 'T510_007'
      Visible = False
    end
    object qryTas510T510_012: TBCDField
      FieldName = 'T510_012'
      Visible = False
      Precision = 8
      Size = 2
    end
    object qryTas510T510_016: TIntegerField
      FieldName = 'T510_016'
      Visible = False
    end
    object qryTas510T510_017: TIntegerField
      FieldName = 'T510_017'
      Visible = False
    end
    object qryTas510T510_018: TWideStringField
      FieldName = 'T510_018'
      Visible = False
      Size = 30
    end
  end
end