purw00_01.dfm.svn-base

一个用Delphi开发的ERP软件

      end
    end
    inherited mmiEdit: TMenuItem
      object N22: TMenuItem
        Action = ActPur500
      end
      object N23: TMenuItem
        Action = ActPur510
      end
      object N29: TMenuItem
        Caption = '-'
      end
      object N33: TMenuItem
        Action = ActAcp500
      end
      object N34: TMenuItem
        Action = ActAcp510
      end
    end
    inherited mmiReport: TMenuItem
      object N31: TMenuItem
        Action = ActPur200
      end
      object N30: TMenuItem
        Caption = '-'
      end
      object N32: TMenuItem
        Action = ActPur300
      end
      object N26: TMenuItem
        Caption = '-'
      end
      object N27: TMenuItem
        Action = ActPur400
      end
      object N28: TMenuItem
        Action = ActPur410
      end
      object N24: TMenuItem
        Caption = '-'
      end
      object N25: TMenuItem
        Action = ActAcp300
      end
    end
  end
  inherited ActionList1: TActionList
    object ActPur200: TAction [0]
      Category = 'Report'
      Caption = #24310#36831#21040#36135#25253#21578
      Hint = #24310#36831#21040#36135#25253#21578
      OnExecute = ActPurS00Execute
    end
    object ActPur300: TAction [1]
      Category = 'Report'
      Caption = #37319#36141#20135#21697#26597#35810
      Hint = #37319#36141#20135#21697#26597#35810
      OnExecute = ActPurS00Execute
    end
    object ActPurS00: TAction [2]
      Category = 'File'
      Caption = #37319#36141#31649#29702#21442#25968
      OnExecute = ActPurS00Execute
    end
    object ActGld100: TAction [4]
      Category = 'File'
      Caption = #24065#21035#36164#26009#32500#25252
      OnExecute = ActPurS00Execute
    end
    object ActGld110: TAction [5]
      Category = 'File'
      Caption = #20184#27454#31867#22411#32500#25252
      OnExecute = ActPurS00Execute
    end
    object ActHrm100: TAction [6]
      Category = 'File'
      Caption = #37096#38376#36164#26009#32500#25252
      OnExecute = ActPurS00Execute
    end
    object ActHrm120: TAction [7]
      Category = 'File'
      Caption = #23703#20301#36164#26009#32500#25252
      OnExecute = ActPurS00Execute
    end
    object ActHrm130: TAction [8]
      Category = 'File'
      Caption = #21592#24037#29366#24577#32500#25252
      OnExecute = ActPurS00Execute
    end
    object ActHrm150: TAction [9]
      Category = 'File'
      Caption = #21592#24037#36164#26009#32500#25252
      OnExecute = ActPurS00Execute
    end
    object ActInv120: TAction [10]
      Category = 'File'
      Caption = #26009#21697#20998#31867#32500#25252
      OnExecute = ActPurS00Execute
    end
    object ActInv140: TAction [11]
      Category = 'File'
      Caption = #35745#37327#21333#20301#32500#25252
      OnExecute = ActPurS00Execute
    end
    object ActInv150: TAction [12]
      Category = 'File'
      Caption = #26009#21697#36164#26009#32500#25252
      OnExecute = ActPurS00Execute
    end
    object ActOrd120: TAction [13]
      Category = 'File'
      Caption = #22320#21306#36164#26009#32500#25252
      OnExecute = ActPurS00Execute
    end
    object ActOrd150: TAction [14]
      Category = 'File'
      Caption = #23458#25143#36164#26009#32500#25252
      OnExecute = ActPurS00Execute
    end
    object ActOrd160: TAction [15]
      Category = 'File'
      Caption = #26465#27454#36164#26009#32500#25252
      OnExecute = ActPurS00Execute
    end
    object ActPur100: TAction [16]
      Category = 'File'
      Caption = #37319#36141#31867#22411#32500#25252
      OnExecute = ActPurS00Execute
    end
    object ActPur120: TAction [17]
      Category = 'File'
      Caption = #37319#36141#20215#26684#32500#25252
      OnExecute = ActPurS00Execute
    end
    object ActPur500: TAction
      Category = 'Edit'
      Caption = #37319#36141#30003#35831#32500#25252
      ImageIndex = 13
      OnExecute = ActPurS00Execute
    end
    object ActPur510: TAction
      Category = 'Edit'
      Caption = #37319#36141#23450#21333#32500#25252
      ImageIndex = 14
      OnExecute = ActPurS00Execute
    end
    object ActPur400: TAction
      Category = 'Report'
      Caption = #37319#36141#25968#37327#20998#26512
      Hint = #37319#36141#25968#37327#20998#26512
      OnExecute = ActPurS00Execute
    end
    object ActPur410: TAction
      Category = 'Report'
      Caption = #26376#37319#36141#37327#20998#26512
      Hint = #26376#37319#36141#37327#20998#26512
      OnExecute = ActPurS00Execute
    end
    object ActAcp500: TAction
      Category = 'Edit'
      Caption = #37319#36141#25240#25187#32500#25252
      Hint = #37319#36141#25240#25187#32500#25252
      OnExecute = ActPurS00Execute
    end
    object ActAcp510: TAction
      Category = 'Edit'
      Caption = #37319#36141#21457#31080#32500#25252
      Hint = #37319#36141#21457#31080#32500#25252
      OnExecute = ActPurS00Execute
    end
    object ActAcp300: TAction
      Category = 'Report'
      Caption = #37319#36141#21457#31080#26597#35810
      Hint = #37319#36141#21457#31080#26597#35810
      OnExecute = ActPurS00Execute
    end
  end
  inherited qryMaster: TADOQuery
    SQL.Strings = (
      'select A.*,'
      '    B.P100_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 PUR510A A,PUR100 B,ORD150 C,GLD100 D,GLD110 E'
      
        'where A.P510A_002=B.P100_001 and A.P510A_017=C.O150_001 and A.P5' +
        '10A_007=D.G100_001 and A.P510A_009=E.G110_001'
      'order by A.P510A_001')
    object qryMasterP510A_001: TWideStringField
      DisplayLabel = #37319#36141#21333#21495
      FieldName = 'P510A_001'
      Size = 30
    end
    object qryMasterP100_002: TWideStringField
      DisplayLabel = #37319#36141#31867#22411
      FieldName = 'P100_002'
      Size = 50
    end
    object qryMasterP510A_002: TIntegerField
      FieldName = 'P510A_002'
      Visible = False
    end
    object qryMasterP510A_003: TDateTimeField
      DisplayLabel = #37319#36141#26085#26399
      FieldName = 'P510A_003'
    end
    object qryMasterP510A_004: TSmallintField
      DisplayLabel = #23450#21333#29366#24577
      FieldName = 'P510A_004'
      OnGetText = qryMasterP510A_004GetText
    end
    object qryMasterH150_002: TStringField
      DisplayLabel = #37319#36141#21592#21495
      FieldKind = fkLookup
      FieldName = 'H150_002'
      LookupDataSet = qryHrm150
      LookupKeyFields = 'H150_001'
      LookupResultField = 'H150_002'
      KeyFields = 'P510A_005'
      Lookup = True
    end
    object qryMasterH150_003: TStringField
      DisplayLabel = #37319#36141#21592#21517
      FieldKind = fkLookup
      FieldName = 'H150_003'
      LookupDataSet = qryHrm150
      LookupKeyFields = 'H150_001'
      LookupResultField = 'H150_003'
      KeyFields = 'P510A_005'
      Lookup = True
    end
    object qryMasterP510A_005: TIntegerField
      FieldName = 'P510A_005'
      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 qryMasterP510A_006: TSmallintField
      DisplayLabel = #26469#28304#31867#22411
      FieldName = 'P510A_006'
      OnGetText = qryMasterP510A_006GetText
    end
    object qryMasterP510A_007: TIntegerField
      FieldName = 'P510A_007'
      Visible = False
    end
    object qryMasterP510A_008: TBCDField
      DisplayLabel = #24065#21035#27719#29575
      FieldName = 'P510A_008'
      Precision = 10
      Size = 6
    end
    object qryMasterG110_002: TWideStringField
      DisplayLabel = #20184#27454#31867#22411
      FieldName = 'G110_002'
      Size = 50
    end
    object qryMasterP510A_009: TIntegerField
      FieldName = 'P510A_009'
      Visible = False
    end
    object qryMasterP510A_010: TDateTimeField
      DisplayLabel = #23457#26680#26085#26399
      FieldName = 'P510A_010'
    end
    object qryMasterP510A_011: TWideStringField
      DisplayLabel = #23457#26680#20154#21592
      FieldName = 'P510A_011'
    end
    object qryMasterP510A_012: TFloatField
      DisplayLabel = #37329#39069#24635#35745
      FieldName = 'P510A_012'
    end
    object qryMasterP510A_013: TBCDField
      DisplayLabel = #25240#25187#27604#29575
      FieldName = 'P510A_013'
      Precision = 8
      Size = 2
    end
    object qryMasterP510A_014: TFloatField
      DisplayLabel = #25240#25187#37329#39069
      FieldName = 'P510A_014'
    end
    object qryMasterP510A_015: TFloatField
      DisplayLabel = #29305#27530#36153#29992
      FieldName = 'P510A_015'
    end
    object qryMasterP510A_016: TFloatField
      DisplayLabel = #24212#20184#37329#39069
      FieldName = 'P510A_016'
    end
    object qryMasterO150_002: TWideStringField
      DisplayLabel = #20379#24212#21830#21495
      FieldName = 'O150_002'
    end
    object qryMasterO150_003: TWideStringField
      DisplayLabel = #20379#24212#21830#21517
      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 = #21378#21830#22320#22336
      FieldName = 'O150_012'
      Size = 100
    end
    object qryMasterP510A_017: TIntegerField
      FieldName = 'P510A_017'
      Visible = False
    end
    object qryMasterP510A_018: TWideStringField
      DisplayLabel = #20132#36135#22320#22336
      FieldName = 'P510A_018'
    end
    object qryMasterP510A_019: TSmallintField
      DisplayLabel = #25552#36135#26041#24335
      FieldName = 'P510A_019'
      OnGetText = qryMasterP510A_019GetText
    end
    object qryMasterP510A_020: TMemoField
      DisplayLabel = #37319#36141#26465#27454
      FieldName = 'P510A_020'
      Visible = False
      BlobType = ftMemo
    end
    object qryMasterP510A_021: TMemoField
      DisplayLabel = #22791#27880#35828#26126
      FieldName = 'P510A_021'
      Visible = False
      BlobType = ftMemo
    end
    object qryMasterP510A_022: TDateTimeField
      DisplayLabel = #21046#21333#26085#26399
      FieldName = 'P510A_022'
    end
    object qryMasterP510A_023: TWideStringField
      DisplayLabel = #21046#21333#20154#21592
      FieldName = 'P510A_023'
    end
    object qryMasterP510A_024: TDateTimeField
      DisplayLabel = #20462#25913#26085#26399
      FieldName = 'P510A_024'
    end
    object qryMasterP510A_025: TWideStringField
      DisplayLabel = #20462#25913#20154#21592
      FieldName = 'P510A_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