main.dfm

我的小程序 是人事管理系统 很好的 并且有可执行文件 但是没有实验的好

object FrmMain: TFrmMain
  Left = 201
  Top = 183
  Width = 609
  Height = 441
  Caption = #20225#19994#20154#20107#31649#29702#31995#32479'v1.0'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  FormStyle = fsMDIForm
  Icon.Data = {
    0000010001002020100000000000E80200001600000028000000200000004000
    0000010004000000000080020000000000000000000000000000000000000000
    000000008000008000000080800080000000800080008080000080808000C0C0
    C0000000FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000088888888888888888888888800000000
    8888800000000000008888880000000088888000000000000088888800000000
    88888880FFFFFF70888888880000000088888880FFFFFF708888888800000000
    88888880FFFF000000088888000000008888870000FFFFFFFFF0888800000000
    8888800000FFFFFFFFF08888000000008888000000FFFFFFF000888800000000
    8888000000FFFFFFFFF08888000000008880000000FFFFFFFFF0888800000000
    88700000007FFFFFFFFF088800000000880000000000FFFF0FF0888800000000
    880000000000FFFF07088888000000008800000000FFFFFF0088888800000000
    880000000FFFFFFFF08888880000000088000000FFFFFFFFF088888800000000
    8800000000000000000088880000000088700000000000000000888800000000
    8880000000000000000088880000000088880000000000000008888800000000
    8888870000000000078888880000000088888888888888888888888800000000
    0000000000000000000000000000000000000000000000000000000000000000
    000000000000000000000000000000000000000000000000000000000000FFFF
    FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF000000FF000000FF000000FF000
    000FF000000FF000000FF000000FF000000FF000000FF000000FF000000FF000
    000FF000000FF000000FF000000FF000000FF000000FF000000FF000000FF000
    000FF000000FF000000FF000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF}
  Menu = MainMenu1
  OldCreateOrder = False
  Position = poDesktopCenter
  ShowHint = True
  WindowState = wsMaximized
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object ToolBar1: TToolBar
    Left = 0
    Top = 0
    Width = 601
    Height = 28
    Caption = 'ToolBar1'
    DisabledImages = ImageList1
    Images = ImageList1
    TabOrder = 0
    object ToolButtonExit: TToolButton
      Left = 0
      Top = 2
      Hint = #36864#20986#31243#24207
      Action = FileExit1
      ImageIndex = 19
    end
    object Splitter1: TSplitter
      Left = 23
      Top = 2
      Width = 10
      Height = 22
    end
    object DBNavigatorMain: TDBNavigator
      Left = 33
      Top = 2
      Width = 234
      Height = 22
      DataSource = Datarenshi.DataSource1
      VisibleButtons = [nbFirst, nbPrior, nbNext, nbLast, nbInsert, nbDelete, nbEdit, nbPost, nbCancel]
      Hints.Strings = (
        #31227#21040#31532#19968#20010#35760#24405
        #21069#31227#19968#20010#35760#24405
        #19979#31227#19968#20010#35760#24405
        #31227#21040#26368#21518#19968#20010#35760#24405
        #25554#20837#26032#35760#24405
        #21024#38500#24403#21069#35760#24405
        #32534#36753#24403#21069#35760#24405
        #25968#25454#23384#30424
        #21462#28040#20462#25913
        #21047#26032#25968#25454)
      ConfirmDelete = False
      TabOrder = 0
    end
    object Splitter2: TSplitter
      Left = 267
      Top = 2
      Width = 6
      Height = 22
    end
    object ToolButtonSQL: TToolButton
      Left = 273
      Top = 2
      Hint = 'SQL'#26597#35810
      Caption = 'SQL'
      ImageIndex = 20
      OnClick = ToolButtonSQLClick
    end
    object ToolButtonPrint: TToolButton
      Left = 296
      Top = 2
      Hint = #25171#21360#31383#20307
      Caption = 'ToolButtonPrint'
      ImageIndex = 4
    end
    object Splitter3: TSplitter
      Left = 319
      Top = 2
      Width = 9
      Height = 22
    end
    object ToolButton1: TToolButton
      Left = 328
      Top = 2
      Hint = #22402#30452#25490#21015
      Action = WindowTileVertical1
      Caption = '&V'
      ImageIndex = 6
    end
    object ToolButton2: TToolButton
      Left = 351
      Top = 2
      Hint = #27700#24179#25490#21015
      Action = WindowTileHorizontal1
      Caption = '&H'
      ImageIndex = 5
    end
    object ToolButton3: TToolButton
      Left = 374
      Top = 2
      Hint = #31383#21475#23618#21472
      Action = WindowCascade1
      Caption = '&A'
      ImageIndex = 7
    end
    object ToolButton4: TToolButton
      Left = 397
      Top = 2
      Hint = #20851#38381#24403#21069#31383#21475
      Action = WindowClose1
      Caption = '&C'
      ImageIndex = 8
    end
  end
  object MainMenu1: TMainMenu
    Images = ImageList1
    Left = 40
    Top = 360
    object F1: TMenuItem
      Caption = #25991#20214'(&F)'
      object N13: TMenuItem
        Action = FilePrintSetup1
        Caption = #25171#21360#26426#35774#32622'...'
      end
      object N14: TMenuItem
        Caption = '-'
      end
      object N23: TMenuItem
        Caption = #37197#32622#25968#25454#24211
        OnClick = N23Click
      end
      object N22: TMenuItem
        Caption = '-'
      end
      object X1: TMenuItem
        Caption = #36864#20986'(&X)'
        ShortCut = 16465
        OnClick = X1Click
      end
    end
    object D1: TMenuItem
      Caption = #32534#36753'(&E)'
      object E2: TMenuItem
        Caption = #21592#24037#20449#24687
        OnClick = E2Click
      end
      object N18: TMenuItem
        Caption = #37096#38376#20449#24687
      end
      object N19: TMenuItem
        Caption = #24037#36164#20449#24687
      end
    end
    object B2: TMenuItem
      Caption = #27983#35272'(&B)'
      object N15: TMenuItem
        Caption = #32593#26684#24335
        OnClick = N15Click
      end
      object N16: TMenuItem
        Caption = #34920#21333#24335
      end
    end
    object E1: TMenuItem
      Caption = #23450#20301'(&G)'
      object N2: TMenuItem
        Action = DataSetFirst1
        Caption = #31532#19968#26465#35760#24405
        ImageIndex = 13
      end
      object N3: TMenuItem
        Action = DataSetPrior1
        Caption = #19978#31227#19968#20010#35760#24405'(&P)'
        ImageIndex = 17
      end
      object N4: TMenuItem
        Action = DataSetNext1
        Caption = #19979#31227#19968#20010#35760#24405'(&N)'
        ImageIndex = 16
      end
      object N5: TMenuItem
        Action = DataSetLast1
        Caption = #31227#21040#26368#21518#19968#20010#35760#24405'(&B)'
        ImageIndex = 14
      end
      object N9: TMenuItem
        Caption = '-'
      end
      object N6: TMenuItem
        Action = DataSetInsert1
        Caption = #25554#20837#26032#35760#24405
        ImageIndex = 15
        ShortCut = 16462
      end
      object N7: TMenuItem
        Action = DataSetDelete1
        Caption = #21024#38500#24403#21069#35760#24405
        ImageIndex = 11
        ShortCut = 16452
      end
      object N8: TMenuItem
        Action = DataSetEdit1
        Caption = #20462#25913#24403#21069#35760#24405
        ImageIndex = 12
        ShortCut = 16453
      end
      object N10: TMenuItem
        Caption = '-'
      end
      object N11: TMenuItem
        Action = DataSetPost1
        Caption = #25968#25454#23384#30424
        ShortCut = 16467
      end
      object N12: TMenuItem
        Action = DataSetCancel1
        Caption = #21462#28040#20462#25913
        ImageIndex = 18
        ShortCut = 16474
      end
    end
    object L1: TMenuItem
      Caption = #26597#35810'(&L)'
      object SQL1: TMenuItem
        Caption = 'SQL'#26597#35810
        OnClick = SQL1Click
      end
      object N24: TMenuItem
        Caption = #25253#34920#25171#21360
        OnClick = N24Click
      end
    end
    object W1: TMenuItem
      Caption = #31383#21475'(&W)'
      object H1: TMenuItem
        Action = WindowTileVertical1
        Caption = #31383#21475#22402#30452#25490#21015'(&V)'
        ImageIndex = 6
      end
      object V1: TMenuItem
        Action = WindowTileHorizontal1
        Caption = #31383#21475#27700#24179#25490#21015'(&H)'
        ImageIndex = 5
      end
      object A1: TMenuItem