ordw00_01.dfm.svn-base

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

      object N25: TMenuItem
        Action = ActOrd310
      end
      object N26: TMenuItem
        Action = ActOrd320
      end
      object N27: TMenuItem
        Caption = '-'
      end
      object N28: TMenuItem
        Action = ActOrd400
      end
      object N29: TMenuItem
        Action = ActOrd410
      end
      object N31: TMenuItem
        Action = ActOrd420
      end
      object N35: TMenuItem
        Caption = '-'
      end
      object N36: TMenuItem
        Action = ActAcr300
      end
    end
  end
  inherited ActionList1: TActionList
    object ActOrdS00: TAction [0]
      Category = 'File'
      Caption = #38144#21806#31649#29702#21442#25968
      Hint = #38144#21806#31649#29702#21442#25968
      OnExecute = ActOrdS00Execute
    end
    inherited ActOpen: TAction [7]
    end
    inherited ActInsert: TAction [8]
    end
    inherited ActUpdate: TAction [9]
    end
    inherited ActDelete: TAction [10]
    end
    inherited ActRefresh: TAction [11]
    end
    inherited ActLocate: TAction [12]
    end
    inherited ActSearch: TAction [13]
    end
    inherited ActPrint: TAction [14]
    end
    inherited ActExport: TAction [15]
    end
    object ActGld100: TAction [16]
      Category = 'File'
      Caption = #24065#21035#36164#26009#32500#25252
      Hint = #24065#21035#36164#26009#32500#25252
      OnExecute = ActOrdS00Execute
    end
    object ActGld110: TAction [17]
      Category = 'File'
      Caption = #20184#27454#26041#24335#32500#25252
      Hint = #20184#27454#26041#24335#32500#25252
      OnExecute = ActOrdS00Execute
    end
    object ActHrm100: TAction [18]
      Category = 'File'
      Caption = #37096#38376#36164#26009#32500#25252
      Hint = #37096#38376#36164#26009#32500#25252
      OnExecute = ActOrdS00Execute
    end
    object ActHrm120: TAction [19]
      Category = 'File'
      Caption = #23703#20301#36164#26009#32500#25252
      Hint = #23703#20301#36164#26009#32500#25252
      OnExecute = ActOrdS00Execute
    end
    object ActHrm130: TAction [20]
      Category = 'File'
      Caption = #21592#24037#29366#24577#32500#25252
      Hint = #21592#24037#29366#24577#32500#25252
      OnExecute = ActOrdS00Execute
    end
    object ActHrm150: TAction [21]
      Category = 'File'
      Caption = #21592#24037#36164#26009#32500#25252
      Hint = #21592#24037#36164#26009#32500#25252
      OnExecute = ActOrdS00Execute
    end
    object ActInv120: TAction [22]
      Category = 'File'
      Caption = #26009#21697#20998#31867#32500#25252
      Hint = #26009#21697#20998#31867#32500#25252
      OnExecute = ActOrdS00Execute
    end
    object ActInv140: TAction [23]
      Category = 'File'
      Caption = #35745#37327#21333#20301#32500#25252
      Hint = #35745#37327#21333#20301#32500#25252
      OnExecute = ActOrdS00Execute
    end
    object ActInv150: TAction [24]
      Category = 'File'
      Caption = #26009#21697#36164#26009#32500#25252
      Hint = #26009#21697#36164#26009#32500#25252
      OnExecute = ActOrdS00Execute
    end
    object ActOrd100: TAction [25]
      Category = 'File'
      Caption = #38144#21806#31867#22411#32500#25252
      Hint = #38144#21806#31867#22411#32500#25252
      ImageIndex = 10
      OnExecute = ActOrdS00Execute
    end
    object ActOrd120: TAction [26]
      Category = 'File'
      Caption = #22320#21306#36164#26009#32500#25252
      Hint = #22320#21306#36164#26009#32500#25252
      ImageIndex = 11
      OnExecute = ActOrdS00Execute
    end
    object ActOrd130: TAction [27]
      Category = 'File'
      Caption = #38144#21806#20215#26684#32500#25252
      Hint = #38144#21806#20215#26684#32500#25252
      ImageIndex = 12
      OnExecute = ActOrdS00Execute
    end
    object ActOrd140: TAction [28]
      Category = 'File'
      Caption = #29305#27530#20215#26684#32500#25252
      Hint = #29305#27530#20215#26684#32500#25252
      ImageIndex = 13
      OnExecute = ActOrdS00Execute
    end
    object ActOrd150: TAction [29]
      Category = 'File'
      Caption = #23458#25143#36164#26009#32500#25252
      Hint = #23458#25143#36164#26009#32500#25252
      ImageIndex = 14
      OnExecute = ActOrdS00Execute
    end
    object ActOrd160: TAction [30]
      Category = 'File'
      Caption = #26465#27454#36164#26009#32500#25252
      Hint = #26465#27454#36164#26009#32500#25252
      ImageIndex = 17
      OnExecute = ActOrdS00Execute
    end
    inherited ActPass: TAction [31]
    end
    inherited ActLongin: TAction [32]
    end
    inherited ActExit: TAction [33]
    end
    object ActOrd500: TAction
      Category = 'Edit'
      Caption = #38144#21806#25253#20215#32500#25252
      Hint = #38144#21806#25253#20215#32500#25252
      ImageIndex = 18
      OnExecute = ActOrdS00Execute
    end
    object ActOrd510: TAction
      Category = 'Edit'
      Caption = #38144#21806#23450#21333#32500#25252
      Hint = #38144#21806#23450#21333#32500#25252
      ImageIndex = 20
      OnExecute = ActOrdS00Execute
    end
    object ActOrd300: TAction
      Category = 'Report'
      Caption = #38144#21806#20135#21697#26597#35810
      Hint = #38144#21806#20135#21697#26597#35810
      OnExecute = ActOrdS00Execute
    end
    object ActOrd310: TAction
      Category = 'Report'
      Caption = #38144#21806#25253#20215#36319#36394
      Hint = #38144#21806#25253#20215#36319#36394
      OnExecute = ActOrdS00Execute
    end
    object ActOrd320: TAction
      Category = 'Report'
      Caption = #38144#21806#23450#21333#36319#36394
      Hint = #38144#21806#23450#21333#36319#36394
      OnExecute = ActOrdS00Execute
    end
    object ActOrd400: TAction
      Category = 'Report'
      Caption = #38144#21806#25968#37327#20998#26512
      Hint = #38144#21806#25968#37327#20998#26512
      OnExecute = ActOrdS00Execute
    end
    object ActOrd410: TAction
      Category = 'Report'
      Caption = #26376#38144#21806#37327#20998#26512
      Hint = #26376#38144#21806#37327#20998#26512
      OnExecute = ActOrdS00Execute
    end
    object ActOrd420: TAction
      Category = 'Report'
      Caption = #25253#20215#25104#20132#20998#26512
      Hint = #25253#20215#25104#20132#20998#26512
      OnExecute = ActOrdS00Execute
    end
    object ActAcr500: TAction
      Category = 'Edit'
      Caption = #38144#21806#25240#25187#32500#25252
      Hint = #38144#21806#25240#25187#32500#25252
      OnExecute = ActOrdS00Execute
    end
    object ActAcr510: TAction
      Category = 'Edit'
      Caption = #38144#21806#21457#31080#32500#25252
      Hint = #38144#21806#21457#31080#32500#25252
      OnExecute = ActOrdS00Execute
    end
    object ActAcr300: TAction
      Category = 'Report'
      Caption = #38144#21806#21457#31080#26597#35810
      Hint = #38144#21806#21457#31080#26597#35810
      OnExecute = ActOrdS00Execute
    end
  end
  inherited qryMaster: TADOQuery
    SQL.Strings = (
      'select A.*,'
      '    B.O100_002,'
      '    C.O150_002,C.O150_003,C.O150_005,C.O150_006,C.O150_012,'
      '    D.G100_002,D.G100_003,'
      '    E.G110_002'
      'from ORD500A A,ORD100 B,ORD150 C,GLD100 D,GLD110 E'
      
        'where A.O500A_002=B.O100_001 and A.O500A_017=C.O150_001 and A.O5' +
        '00A_007=D.G100_001 and A.O500A_009=E.G110_001'
      'order by A.O500A_001')
    object qryMasterO500A_001: TWideStringField
      DisplayLabel = #25253#20215#21333#21495
      FieldName = 'O500A_001'
      Size = 30
    end
    object qryMasterO100_002: TWideStringField
      DisplayLabel = #25253#20215#31867#22411
      FieldName = 'O100_002'
      Size = 50
    end
    object qryMasterO500A_002: TIntegerField
      FieldName = 'O500A_002'
      Visible = False
    end
    object qryMasterO500A_003: TDateTimeField
      DisplayLabel = #25253#20215#26085#26399
      FieldName = 'O500A_003'
    end
    object qryMasterO500A_004: TSmallintField
      DisplayLabel = #25253#20215#29366#24577
      FieldName = 'O500A_004'
      OnGetText = qryMasterO500A_004GetText
    end
    object qryMasterH150_002: TStringField
      DisplayLabel = #38144#21806#21592#21495
      FieldKind = fkLookup
      FieldName = 'H150_002'
      LookupDataSet = qryHrm150
      LookupKeyFields = 'H150_001'
      LookupResultField = 'H150_002'
      KeyFields = 'O500A_005'
      Lookup = True
    end
    object qryMasterH150_003: TStringField
      DisplayLabel = #38144#21806#21592#21517
      FieldKind = fkLookup
      FieldName = 'H150_003'
      LookupDataSet = qryHrm150
      LookupKeyFields = 'H150_001'
      LookupResultField = 'H150_003'
      KeyFields = 'O500A_005'
      Lookup = True
    end
    object qryMasterO500A_005: TIntegerField
      FieldName = 'O500A_005'
      Visible = False
    end
    object qryMasterO500A_006: TIntegerField
      FieldName = 'O500A_006'
      Visible = False
    end
    object qryMasterG100_002: TWideStringField
      DisplayLabel = #24065#21035#32534#21495
      FieldName = 'G100_002'
      Size = 10
    end
    object qryMasterG100_003: TWideStringField
      DisplayLabel = #24065#21035#21517#31216
      FieldName = 'G100_003'
      Size = 30
    end
    object qryMasterO500A_007: TIntegerField
      FieldName = 'O500A_007'
      Visible = False
    end
    object qryMasterO500A_008: TBCDField
      DisplayLabel = #24065#21035#27719#29575
      FieldName = 'O500A_008'
      DisplayFormat = '0.0000'
      Precision = 10
      Size = 6
    end
    object qryMasterG110_002: TWideStringField
      DisplayLabel = #20184#27454#26041#24335
      FieldName = 'G110_002'
      Size = 50
    end
    object qryMasterO500A_009: TIntegerField
      FieldName = 'O500A_009'
      Visible = False
    end
    object qryMasterO500A_010: TSmallintField
      DisplayLabel = #26469#28304#31867#22411
      FieldName = 'O500A_010'
      OnGetText = qryMasterO500A_010GetText
    end
    object qryMasterO500A_011: TWideStringField
      DisplayLabel = #26469#28304#21333#21495
      FieldName = 'O500A_011'
      Size = 30
    end
    object qryMasterO500A_012: TFloatField
      DisplayLabel = #37329#39069#24635#35745
      FieldName = 'O500A_012'
      DisplayFormat = ',0.00'
    end
    object qryMasterO500A_013: TBCDField
      DisplayLabel = #25240#25187#27604#29575
      FieldName = 'O500A_013'
      Precision = 8
      Size = 2
    end
    object qryMasterO500A_014: TFloatField
      DisplayLabel = #25240#25187#37329#39069
      FieldName = 'O500A_014'
    end
    object qryMasterO500A_015: TFloatField
      DisplayLabel = #29305#27530#36153#29992
      FieldName = 'O500A_015'
    end
    object qryMasterO500A_016: TFloatField
      DisplayLabel = #24212#25910#37329#39069
      FieldName = 'O500A_016'
    end
    object qryMasterO150_002: TWideStringField
      DisplayLabel = #23458#25143#32534#21495
      FieldName = 'O150_002'
    end
    object qryMasterO150_003: TWideStringField
      DisplayLabel = #23458#25143#21517#31216
      FieldName = 'O150_003'
      Size = 60
    end
    object qryMasterO150_005: TWideStringField
      DisplayLabel = #30005#35805#21495#30721
      FieldName = 'O150_005'
      Size = 50
    end
    object qryMasterO150_006: TWideStringField
      DisplayLabel = #20256#30495#21495#30721
      FieldName = 'O150_006'
      Size = 50
    end
    object qryMasterO150_012: TWideStringField
      DisplayLabel = #23458#25143#22336#22336
      FieldName = 'O150_012'
      Size = 100
    end
    object qryMasterO500A_017: TIntegerField
      FieldName = 'O500A_017'
      Visible = False
    end
    object qryMasterO500A_018: TWideStringField
      DisplayLabel = #20132#36135#22320#22336
      FieldName = 'O500A_018'
    end
    object qryMasterO500A_019: TSmallintField
      DisplayLabel = #25552#36135#26041#24335
      FieldName = 'O500A_019'
      OnGetText = qryMasterO500A_019GetText
    end
    object qryMasterO500A_020: TMemoField
      DisplayLabel = #38144#21806#26465#27454
      FieldName = 'O500A_020'
      Visible = False
      BlobType = ftMemo
    end
    object qryMasterO500A_021: TMemoField
      DisplayLabel = #22791#27880#35828#26126
      FieldName = 'O500A_021'
      Visible = False
      BlobType = ftMemo
    end
    object qryMasterO500A_022: TDateTimeField
      DisplayLabel = #21046#21333#26085#26399
      FieldName = 'O500A_022'
    end
    object qryMasterO500A_023: TWideStringField
      DisplayLabel = #21046#21333#20154#21592
      FieldName = 'O500A_023'
    end
    object qryMasterO500A_024: TDateTimeField
      DisplayLabel = #20462#25913#26085#26399
      FieldName = 'O500A_024'
    end
    object qryMasterO500A_025: TWideStringField
      DisplayLabel = #20462#25913#20154#21592
      FieldName = 'O500A_025'
    end
  end
  object qryHrm150: TADOQuery
    Connection = SYSDM.ADOC
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select H150_001,H150_002,H150_003 from HRM150')
    Left = 328
    Top = 192
    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
end