bas200_05.dfm.svn-base

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

inherited Bas200_05Form: TBas200_05Form
  Left = 75
  Top = 40
  Width = 712
  Height = 505
  Caption = #30446#24405#36164#26009#32500#25252
  OldCreateOrder = True
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 12
  object Splitter1: TSplitter [0]
    Left = 177
    Top = 80
    Width = 3
    Height = 398
    Cursor = crHSplit
  end
  object Panel1: TPanel [1]
    Left = 0
    Top = 43
    Width = 704
    Height = 37
    Align = alTop
    BevelInner = bvRaised
    BevelOuter = bvLowered
    TabOrder = 0
    object Image1: TImage
      Left = 2
      Top = 2
      Width = 700
      Height = 33
      Align = alClient
      Stretch = True
    end
  end
  object CoolBar1: TCoolBar [2]
    Left = 0
    Top = 0
    Width = 704
    Height = 43
    AutoSize = True
    Bands = <
      item
        Control = ToolBar2
        ImageIndex = -1
        MinHeight = 39
        Width = 700
      end>
    object ToolBar2: TToolBar
      Left = 9
      Top = 0
      Width = 687
      Height = 39
      AutoSize = True
      ButtonHeight = 39
      ButtonWidth = 43
      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 tlbClassInsert: TToolButton
        Left = 148
        Top = 0
        Action = ActClassInsert
        AutoSize = True
      end
      object tlbClassUpdate: TToolButton
        Left = 195
        Top = 0
        Action = ActClassUpdate
        AutoSize = True
      end
      object tlbClassDelete: TToolButton
        Left = 242
        Top = 0
        Action = ActClassDelete
        AutoSize = True
      end
      object ToolButton7: TToolButton
        Left = 289
        Top = 0
        Width = 8
        Caption = 'ToolButton7'
        ImageIndex = 16
        Style = tbsSeparator
      end
      object tlbInsert: TToolButton
        Left = 297
        Top = 0
        Action = ActInsert
        AutoSize = True
      end
      object tlbUpdate: TToolButton
        Left = 332
        Top = 0
        Action = ActUpdate
        AutoSize = True
      end
      object tlbDelete: TToolButton
        Left = 367
        Top = 0
        Action = ActDelete
        AutoSize = True
      end
      object ToolButton2: TToolButton
        Left = 402
        Top = 0
        Width = 8
        Caption = 'ToolButton2'
        ImageIndex = 13
        Style = tbsSeparator
      end
      object tlbRefresh: TToolButton
        Left = 410
        Top = 0
        Action = ActRefresh
        AutoSize = True
      end
      object tlbLocate: TToolButton
        Left = 445
        Top = 0
        Action = ActLocate
        AutoSize = True
      end
      object tlbSearch: TToolButton
        Left = 480
        Top = 0
        Action = ActSearch
        AutoSize = True
      end
      object tlbPrint: TToolButton
        Left = 515
        Top = 0
        Action = ActPrint
        AutoSize = True
        DropdownMenu = pmPrint
        Style = tbsDropDown
      end
      object ToolButton6: TToolButton
        Left = 563
        Top = 0
        Width = 8
        Caption = 'ToolButton6'
        ImageIndex = 16
        Style = tbsSeparator
      end
      object tlbExit: TToolButton
        Left = 571
        Top = 0
        Action = ActExit
        AutoSize = True
      end
    end
  end
  object tvLists: TdxDBTreeView [3]
    Left = 0
    Top = 80
    Width = 177
    Height = 398
    RightClickSelect = True
    ShowNodeHint = True
    HotTrack = True
    DataSource = dsLists
    KeyField = 'FNo'
    ListField = 'FName'
    ParentField = 'FParent'
    SeparatedSt = ' - '
    RaiseOnError = True
    ReadOnly = True
    HideSelection = False
    Indent = 19
    Align = alLeft
    ParentColor = False
    Options = [trDBConfirmDelete, trCanDBNavigate, trSmartRecordCopy, trCheckHasChildren]
    SelectedIndex = -1
    TabOrder = 2
    PopupMenu = pmTreeView
  end
  object PageControl1: TPageControl [4]
    Left = 180
    Top = 80
    Width = 524
    Height = 398
    ActivePage = TabSheet1
    Align = alClient
    TabIndex = 0
    TabOrder = 3
    object TabSheet1: TTabSheet
      Caption = 'TabSheet1'
      object ScrollBox2: TScrollBox
        Left = 0
        Top = 0
        Width = 516
        Height = 371
        Align = alClient
        TabOrder = 0
        object PageControl2: TPageControl
          Left = 216
          Top = 72
          Width = 289
          Height = 193
          ActivePage = TabSheet2
          TabIndex = 0
          TabOrder = 0
          object TabSheet2: TTabSheet
            Caption = 'TabSheet1'
          end
        end
        object dxDBGrid1: TdxDBGrid
          Left = 0
          Top = 0
          Width = 512
          Height = 367
          Bands = <
            item
            end>
          DefaultLayout = True
          HeaderPanelRowCount = 1
          ShowGroupPanel = True
          ShowSummaryFooter = True
          SummaryGroups = <>
          SummarySeparator = ', '
          Align = alClient
          BorderStyle = bsNone
          TabOrder = 1
          OnDblClick = dxDBGrid1DblClick
          DataSource = DataSource2
          Filter.Criteria = {00000000}
          HeaderColor = 15262169
          HideFocusRect = True
          LookAndFeel = lfUltraFlat
          OptionsDB = [edgoCancelOnExit, edgoCanNavigation, edgoConfirmDelete, edgoUseBookmarks]
          OptionsView = [edgoBandHeaderWidth, edgoIndicator, edgoUseBitmap]
          OnBackgroundDrawEvent = dxDBGrid1BackgroundDrawEvent
          OnCustomDrawFooterNode = dxDBGrid1CustomDrawFooterNode
        end
      end
    end
  end
  object pmPrint: TPopupMenu
    Left = 432
    Top = 40
    object mmiPrint: TMenuItem
      Action = ActPrint
    end
    object mmiExport: TMenuItem
      Action = ActExport
    end
  end
  object ActionList1: TActionList
    Images = SYSDM.imgBtn
    Left = 368
    Top = 72
    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 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 ActExport: TAction
      Caption = #23548#20986#25968#25454
      Hint = #23548#20986#25968#25454#21040#25991#20214#20013
      ShortCut = 32852
      OnExecute = ActExportExecute
    end
    object ActExit: TAction
      Caption = #36864#20986
      Hint = #20851#38381#24403#21069#31383#21475
      ImageIndex = 15
      ShortCut = 32856
      OnExecute = ActExitExecute
    end
    object ActClassInsert: TAction
      Caption = #22686#31867#21035
      Hint = #26032#22686#19968#20010#31867#21035
      ImageIndex = 4
      ShortCut = 32841
      OnExecute = ActClassInsertExecute
    end
    object ActClassUpdate: TAction
      Caption = #25913#31867#21035
      Hint = #20462#25913#19968#20010#31867#21035
      ImageIndex = 5
      ShortCut = 32853
      OnExecute = ActClassUpdateExecute
    end
    object ActClassDelete: TAction
      Caption = #21024#31867#21035
      Hint = #21024#38500#19968#20010#31867#21035
      ImageIndex = 6
      ShortCut = 32844
      OnExecute = ActClassDeleteExecute
    end
  end
  object ADOQuery2: TADOQuery
    CacheSize = 1000
    Connection = SYSDM.ADOC
    BeforeOpen = ADOQuery2BeforeOpen
    AfterOpen = ADOQuery2AfterOpen
    AfterScroll = ADOQuery2AfterScroll
    Parameters = <>
    Left = 288
    Top = 152
  end
  object DataSource2: TDataSource
    DataSet = ADOQuery2
    Left = 304
    Top = 136
  end
  object pmGrid: TPopupMenu
    Left = 304
    Top = 256
  end
  object pmTreeView: TPopupMenu
    Left = 40
    Top = 256
    object N1: TMenuItem
      Action = ActClassInsert
    end
    object N2: TMenuItem
      Action = ActClassUpdate
    end
    object N3: TMenuItem
      Action = ActClassDelete
    end
  end
  object dsLists: TDataSource
    DataSet = adsLists
    Left = 96
    Top = 142
  end
  object adsLists: TADODataSet
    Connection = SYSDM.ADOC
    CursorType = ctStatic
    LockType = ltBatchOptimistic
    BeforeOpen = adsListsBeforeOpen
    AfterOpen = adsListsAfterOpen
    AfterScroll = adsListsAfterScroll
    FieldDefs = <
      item
        Name = 'FNo'
        Attributes = [faFixed]
        DataType = ftInteger
      end
      item
        Name = 'FName'
        DataType = ftString
        Size = 100
      end
      item
        Name = 'FParent'
        Attributes = [faFixed]
        DataType = ftInteger
      end>
    Parameters = <>
    StoreDefs = True
    Left = 96
    Top = 192
    object adsListsFNo: TIntegerField
      FieldName = 'FNo'
    end
    object adsListsFName: TStringField
      FieldName = 'FName'
      Size = 100
    end
    object adsListsFParent: TIntegerField
      FieldName = 'FParent'
    end
  end
end