ord310_01.dfm.svn-base

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

    Width = 800
    Height = 43
    AutoSize = True
    Bands = <
      item
        Control = ToolBar2
        ImageIndex = -1
        MinHeight = 39
        Width = 796
      end>
    object ToolBar2: TToolBar
      Left = 9
      Top = 0
      Width = 783
      Height = 39
      AutoSize = True
      ButtonHeight = 39
      ButtonWidth = 31
      Caption = 'ToolBar2'
      EdgeBorders = []
      Flat = True
      Images = SYSDM.imgBtn
      ParentShowHint = False
      ShowCaptions = True
      ShowHint = True
      TabOrder = 0
      object tlbFirst: TToolButton
        Left = 0
        Top = 0
        Action = ActFirst
        AutoSize = True
      end
      object tlbPrior: TToolButton
        Left = 35
        Top = 0
        Action = ActPrior
        AutoSize = True
      end
      object tlbNext: TToolButton
        Left = 70
        Top = 0
        Action = ActNext
        AutoSize = True
      end
      object tlbLast: TToolButton
        Left = 105
        Top = 0
        Action = ActLast
        AutoSize = True
      end
      object ToolButton1: TToolButton
        Left = 140
        Top = 0
        Width = 8
        Caption = 'ToolButton1'
        ImageIndex = 13
        Style = tbsSeparator
      end
      object tlbRefresh: TToolButton
        Left = 148
        Top = 0
        Action = ActRefresh
        AutoSize = True
      end
      object tlbLocate: TToolButton
        Left = 183
        Top = 0
        Action = ActLocate
        AutoSize = True
      end
      object tlbSearch: TToolButton
        Left = 218
        Top = 0
        Action = ActSearch
        AutoSize = True
      end
      object tlbPrint: TToolButton
        Left = 253
        Top = 0
        Action = ActPrint
        AutoSize = True
      end
      object ToolButton6: TToolButton
        Left = 288
        Top = 0
        Width = 8
        Caption = 'ToolButton6'
        ImageIndex = 16
        Style = tbsSeparator
      end
      object tlbExit: TToolButton
        Left = 296
        Top = 0
        Action = ActExit
        AutoSize = True
      end
    end
  end
  inherited pmUISet: TPopupMenu
    Left = 432
    Top = 16
  end
  object ActionList1: TActionList
    Images = SYSDM.imgBtn
    Left = 392
    Top = 16
    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 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 ActOpen: TAction
      Caption = #26597#30475'(&N)'
      Hint = #26597#30475#20219#21153#35745#21010#21333#26126#32454
      ShortCut = 16397
      OnExecute = ActOpenExecute
    end
    object ActFirst2: TAction
      Caption = #26368#21069
      Hint = #31227#21040#31532#19968#26465#35760#24405
      ImageIndex = 0
    end
    object ActPrior2: TAction
      Caption = #19978#31227
      Hint = #31227#21040#19978#19968#26465#35760#24405
      ImageIndex = 1
    end
    object ActNext2: TAction
      Caption = #19979#31227
      Hint = #31227#21040#19979#19968#26465#35760#24405
      ImageIndex = 2
    end
    object ActLast2: TAction
      Caption = #26368#21518
      Hint = #31227#21040#26368#21518#19968#26465#35760#24405
      ImageIndex = 3
    end
    object ActLocate2: TAction
      Caption = #26597#25214
      Hint = #24555#36895#23450#20301#35760#24405
      ImageIndex = 10
    end
    object ActFirst3: TAction
      Caption = #26368#21069
      Hint = #31227#21040#31532#19968#26465#35760#24405
      ImageIndex = 0
    end
    object ActPrior3: TAction
      Caption = #19978#31227
      Hint = #31227#21040#19978#19968#26465#35760#24405
      ImageIndex = 1
    end
    object ActNext3: TAction
      Caption = #19979#31227
      Hint = #31227#21040#19979#19968#26465#35760#24405
      ImageIndex = 2
    end
    object ActLast3: TAction
      Caption = #26368#21518
      Hint = #31227#21040#26368#21518#19968#26465#35760#24405
      ImageIndex = 3
    end
    object ActLocate3: TAction
      Caption = #26597#25214
      Hint = #24555#36895#23450#20301#35760#24405
      ImageIndex = 10
    end
  end
  object dsInv500: TDataSource
    DataSet = qryInv500
    Left = 408
    Top = 320
  end
  object qryInv500: TADOQuery
    CacheSize = 1000
    Connection = SYSDM.ADOC
    CursorType = ctStatic
    DataSource = dsPur510
    Parameters = <
      item
        Name = 'P510A_001'
        Attributes = [paNullable]
        DataType = ftFixedChar
        NumericScale = 255
        Precision = 255
        Size = 30
        Value = Null
      end>
    SQL.Strings = (
      'select A.I500A_001,A.I500A_004,'
      '       C.I150_002,C.I150_003,C.I150_004,'
      '       D.I140_002,D.I140_003,'
      '       B.I500B_005'
      'from INV500A A,INV500B B,INV150 C,INV140 D,INV550 E'
      
        'where A.I500A_001=B.I500B_001 and B.I500B_003=C.I150_001 and B.I' +
        '500B_004=D.I140_001 and'
      
        '      A.I500A_002=E.I550_001 and E.I550_005=1 and B.I500B_011=:P' +
        '510A_001'
      'order by I500A_001')
    Left = 440
    Top = 320
    object qryInv500I500A_001: TWideStringField
      DisplayLabel = #36827#20986#21333#21495
      FieldName = 'I500A_001'
      Size = 30
    end
    object qryInv500I500A_004: TDateTimeField
      DisplayLabel = #36827#20986#26085#26399
      FieldName = 'I500A_004'
    end
    object qryInv500I150_002: TWideStringField
      DisplayLabel = #20135#21697#32534#21495
      FieldName = 'I150_002'
      Size = 30
    end
    object qryInv500I150_003: TWideStringField
      DisplayLabel = #20135#21697#21517#31216
      FieldName = 'I150_003'
      Size = 60
    end
    object qryInv500I150_004: TWideStringField
      DisplayLabel = #35268#26684#22411#21495
      FieldName = 'I150_004'
      Size = 60
    end
    object qryInv500I140_002: TWideStringField
      FieldName = 'I140_002'
      Visible = False
    end
    object qryInv500I140_003: TWideStringField
      DisplayLabel = #35745#37327#21333#20301
      FieldName = 'I140_003'
      Size = 50
    end
    object qryInv500I500B_005: TFloatField
      DisplayLabel = #36827#20986#25968#37327
      FieldName = 'I500B_005'
    end
  end
  object qryPur510: TADOQuery
    CacheSize = 1000
    Connection = SYSDM.ADOC
    CursorType = ctStatic
    DataSource = dsOrd510
    Parameters = <
      item
        Name = 'O510A_001'
        Attributes = [paNullable]
        DataType = ftFixedChar
        NumericScale = 255
        Precision = 255
        Size = 30
        Value = Null
      end>
    SQL.Strings = (
      'select A.P510A_001,A.P510A_003,'
      '    C.I150_002,C.I150_003,C.I150_004,'
      '    D.I140_002,D.I140_003,'
      '    B.P510B_005,B.P510B_016'
      'from PUR510A A,PUR510B B,INV150 C,INV140 D'
      
        'where A.P510A_001=B.P510B_001 and A.P510A_006=3 and B.P510B_019=' +
        ':O510A_001 and'
      '      B.P510B_003=C.I150_001 and B.P510B_004=D.I140_001'
      'order by A.P510A_001')
    Left = 600
    Top = 144
    object qryPur510P510A_001: TWideStringField
      DisplayLabel = #37319#36141#21333#21495
      FieldName = 'P510A_001'
      Size = 30
    end
    object qryPur510P510A_003: TDateTimeField
      DisplayLabel = #37319#36141#26085#26399
      FieldName = 'P510A_003'
    end
    object qryPur510I150_002: TWideStringField
      DisplayLabel = #20135#21697#32534#21495
      FieldName = 'I150_002'
      Size = 30
    end
    object qryPur510I150_003: TWideStringField
      DisplayLabel = #20135#21697#21517#31216
      FieldName = 'I150_003'
      Size = 60
    end
    object qryPur510I150_004: TWideStringField
      DisplayLabel = #35268#26684#22411#21495
      FieldName = 'I150_004'
      Size = 60
    end
    object qryPur510I140_002: TWideStringField
      FieldName = 'I140_002'
      Visible = False
    end
    object qryPur510I140_003: TWideStringField
      DisplayLabel = #35745#37327#21333#20301
      FieldName = 'I140_003'
      Size = 50
    end
    object qryPur510P510B_005: TFloatField
      DisplayLabel = #37319#36141#25968#37327
      FieldName = 'P510B_005'
    end
    object qryPur510P510B_016: TFloatField
      DisplayLabel = #24050#25910#36135#37327
      FieldName = 'P510B_016'
    end
  end
  object dsPur510: TDataSource
    DataSet = qryPur510
    Left = 568
    Top = 144
  end
  object qryOrd510: TADOQuery
    CacheSize = 1000
    Connection = SYSDM.ADOC
    CursorType = ctStatic
    DataSource = dsOrd500
    Parameters = <
      item
        Name = 'O500A_001'
        Attributes = [paNullable]
        DataType = ftFixedChar
        NumericScale = 255
        Precision = 255
        Size = 30
        Value = Null
      end>
    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 ORD510A A,ORD100 B,ORD150 C,GLD100 D,GLD110 E'
      
        'where A.O510A_002=B.O100_001 and A.O510A_017=C.O150_001 and A.O5' +
        '10A_007=D.G100_001 and A.O510A_009=E.G110_001 and'
      
        '      A.O510A_010=1 and exists(select 1 from ORD510B where O510A' +
        '_001=O510B_001 and O510B_019=:O500A_001)'
      'order by A.O510A_001')
    Left = 48
    Top = 408
    object qryOrd510O510A_001: TWideStringField
      DisplayLabel = #38144#21806#21333#21495
      FieldName = 'O510A_001'
      Size = 30
    end
    object qryOrd510O100_002: TWideStringField
      DisplayLabel = #38144#21806#31867#22411
      FieldName = 'O100_002'
      Size = 50
    end
    object qryOrd510O510A_002: TIntegerField
      FieldName = 'O510A_002'
      Visible = False
    end
    object qryOrd510O510A_003: TDateTimeField
      DisplayLabel = #38144#21806#26085#26399
      FieldName = 'O510A_003'
    end
    object qryOrd510O510A_004: TSmallintField
      DisplayLabel = #23450#21333#29366#24577
      FieldName = 'O510A_004'
      OnGetText = qryOrd510O510A_004GetText
    end
    object qryOrd510H150_002: TStringField
      DisplayLabel = #21592#24037#32534#21495
      FieldKind = fkLookup
      FieldName = 'H150_002'
      LookupDataSet = qryHrm150
      LookupKeyFields = 'H150_001'
      LookupResultField = 'H150_002'
      KeyFields = 'O510A_005'
      Lookup = True
    end
    object qryOrd510H150_003: TStringField
      DisplayLabel = #21592#24037#22995#21517