bas200_15.dfm

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

inherited Bas200_15Form: TBas200_15Form
  Left = 53
  Top = 8
  BorderIcons = [biSystemMenu]
  BorderStyle = bsSingle
  Caption = #21333#34920#25968#25454#32500#25252
  ClientHeight = 528
  ClientWidth = 738
  OldCreateOrder = True
  PixelsPerInch = 96
  TextHeight = 12
  object Panel1: TPanel [0]
    Left = 0
    Top = 43
    Width = 738
    Height = 37
    Align = alTop
    BevelInner = bvRaised
    BevelOuter = bvLowered
    TabOrder = 0
    object Image1: TImage
      Left = 2
      Top = 2
      Width = 734
      Height = 33
      Align = alClient
      Stretch = True
    end
  end
  object CoolBar1: TCoolBar [1]
    Left = 0
    Top = 0
    Width = 738
    Height = 43
    AutoSize = True
    Bands = <
      item
        Control = ToolBar2
        ImageIndex = -1
        MinHeight = 39
        Width = 734
      end>
    object ToolBar2: TToolBar
      Left = 9
      Top = 0
      Width = 721
      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 tlbInsert: TToolButton
        Left = 148
        Top = 0
        Action = ActInsert
        AutoSize = True
      end
      object tlbUpdate: TToolButton
        Left = 183
        Top = 0
        Action = ActUpdate
        AutoSize = True
      end
      object tlbDelete: TToolButton
        Left = 218
        Top = 0
        Action = ActDelete
        AutoSize = True
      end
      object ToolButton2: TToolButton
        Left = 253
        Top = 0
        Width = 8
        Caption = 'ToolButton2'
        ImageIndex = 13
        Style = tbsSeparator
      end
      object tlbSave: TToolButton
        Left = 261
        Top = 0
        Action = ActSave
        AutoSize = True
      end
      object tlbCancel: TToolButton
        Left = 296
        Top = 0
        Action = ActCancel
        AutoSize = True
      end
      object ToolButton3: TToolButton
        Left = 331
        Top = 0
        Width = 8
        Caption = 'ToolButton3'
        ImageIndex = 13
        Style = tbsSeparator
      end
      object tlbRefresh: TToolButton
        Left = 339
        Top = 0
        Action = ActRefresh
        AutoSize = True
      end
      object tlbLocate: TToolButton
        Left = 374
        Top = 0
        Action = ActLocate
        AutoSize = True
      end
      object tlbSearch: TToolButton
        Left = 409
        Top = 0
        Action = ActSearch
        AutoSize = True
      end
      object tlbPrint: TToolButton
        Left = 444
        Top = 0
        Action = ActPrint
        AutoSize = True
      end
      object ToolButton6: TToolButton
        Left = 479
        Top = 0
        Width = 8
        Caption = 'ToolButton6'
        ImageIndex = 16
        Style = tbsSeparator
      end
      object tlbExit: TToolButton
        Left = 487
        Top = 0
        Action = ActExit
        AutoSize = True
      end
    end
  end
  object PageControl1: TPageControl [2]
    Left = 0
    Top = 80
    Width = 738
    Height = 448
    ActivePage = TabSheet1
    Align = alClient
    Style = tsFlatButtons
    TabIndex = 0
    TabOrder = 2
    object TabSheet1: TTabSheet
      Caption = #22522#26412#20449#24687
      object ScrollBox1: TScrollBox
        Left = 0
        Top = 0
        Width = 730
        Height = 418
        Align = alClient
        TabOrder = 0
        object gbCreate: TGroupBox
          Left = 8
          Top = 360
          Width = 713
          Height = 49
          TabOrder = 1
          object lblCreateDate: TLabel
            Left = 8
            Top = 24
            Width = 48
            Height = 12
            Alignment = taRightJustify
            Caption = #24314#31435#26085#26399
          end
          object lblCreateBy: TLabel
            Left = 192
            Top = 24
            Width = 48
            Height = 12
            Alignment = taRightJustify
            Caption = #24314#31435#20154#21592
          end
          object lblUpdateDate: TLabel
            Left = 360
            Top = 24
            Width = 48
            Height = 12
            Alignment = taRightJustify
            Caption = #20462#25913#26085#26399
          end
          object lblUpdateBy: TLabel
            Left = 544
            Top = 24
            Width = 48
            Height = 12
            Alignment = taRightJustify
            Caption = #20462#25913#20154#21592
          end
          object edtCreateDate: TEdit
            Left = 64
            Top = 16
            Width = 121
            Height = 20
            Color = clBtnFace
            Enabled = False
            ReadOnly = True
            TabOrder = 0
          end
          object edtCreateBy: TEdit
            Left = 248
            Top = 16
            Width = 105
            Height = 20
            Color = clBtnFace
            Enabled = False
            ReadOnly = True
            TabOrder = 1
          end
          object edtUpdateDate: TEdit
            Left = 416
            Top = 16
            Width = 121
            Height = 20
            Color = clBtnFace
            Enabled = False
            ReadOnly = True
            TabOrder = 2
          end
          object edtUpdateBy: TEdit
            Left = 600
            Top = 16
            Width = 105
            Height = 20
            Color = clBtnFace
            Enabled = False
            ReadOnly = True
            TabOrder = 3
          end
        end
        object gbInfo: TGroupBox
          Left = 8
          Top = 4
          Width = 713
          Height = 149
          Caption = #22522#26412#20449#24687
          TabOrder = 0
          object lblCode: TLabel
            Tag = 1
            Left = 32
            Top = 24
            Width = 48
            Height = 12
            Caption = #26009#21697#32534#21495
          end
          object edtCode: TEdit
            Left = 88
            Top = 16
            Width = 121
            Height = 20
            TabOrder = 0
          end
        end
      end
    end
  end
  inherited pmUISet: TPopupMenu
    Left = 424
    Top = 48
  end
  object ActionList1: TActionList
    Images = SYSDM.imgBtn
    Left = 368
    Top = 48
    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 DataSource1: TDataSource
    DataSet = ADOQuery1
    Left = 16
    Top = 48
  end
  object ADOQuery1: TADOQuery
    CacheSize = 1000
    Connection = SYSDM.ADOC
    BeforeOpen = ADOQuery1BeforeOpen
    AfterOpen = ADOQuery1AfterOpen
    AfterScroll = ADOQuery1AfterScroll
    Parameters = <>
    Left = 48
    Top = 48
  end
end