main.dfm

一个用vb mysql实现的人事管理信息系统希望对大家有用。

      object N14: TMenuItem
        Action = zcxg
      end
      object N15: TMenuItem
        Action = zwxg
      end
      object N16: TMenuItem
        Action = bmxg
      end
      object N17: TMenuItem
        Caption = '-'
      end
      object N8: TMenuItem
        Action = FileExit1
      end
    end
  end
  object ActionList1: TActionList
    Images = ImageList1
    Left = 136
    Top = 80
    object EditCut1: TEditCut
      Category = 'Edit'
      Caption = #21098#20999'Cu&t'
      Hint = #21098#20999'|Cuts the selection and puts it on the Clipboard'
      ImageIndex = 0
      ShortCut = 16472
    end
    object EditCopy1: TEditCopy
      Category = 'Edit'
      Caption = #22797#21046'&Copy'
      Hint = #22797#21046'|Copies the selection and puts it on the Clipboard'
      ImageIndex = 1
      ShortCut = 16451
    end
    object EditPaste1: TEditPaste
      Category = 'Edit'
      Caption = #31896#36148'&Paste'
      Hint = #31896#36148'|Inserts Clipboard contents'
      ImageIndex = 2
      ShortCut = 16470
    end
    object EditSelectAll1: TEditSelectAll
      Category = 'Edit'
      Caption = #20840#36873'&A'
      Hint = #20840#36873'|Selects the entire document'
      ShortCut = 16449
    end
    object EditUndo1: TEditUndo
      Category = 'Edit'
      Caption = #21462#28040'&Undo'
      Hint = #21462#28040'|Reverts the last action'
      ImageIndex = 3
      ShortCut = 16474
    end
    object EditDelete1: TEditDelete
      Category = 'Edit'
      Caption = #21024#38500'&Delete'
      Hint = #21024#38500'|Erases the selection'
      ImageIndex = 5
      ShortCut = 46
    end
    object DataSetFirst1: TDataSetFirst
      Category = 'Dataset'
      Caption = 'DataSetFirst1'
      ImageIndex = 32
    end
    object DataSetPrior1: TDataSetPrior
      Category = 'Dataset'
      Caption = 'DataSetPrior1'
      ImageIndex = 37
    end
    object DataSetNext1: TDataSetNext
      Category = 'Dataset'
      Caption = 'DataSetNext1'
      ImageIndex = 35
    end
    object DataSetLast1: TDataSetLast
      Category = 'Dataset'
      Caption = 'DataSetLast1'
      ImageIndex = 34
    end
    object DataSetInsert1: TDataSetInsert
      Category = 'Dataset'
      Caption = 'DataSetInsert1'
      ImageIndex = 33
    end
    object DataSetDelete1: TDataSetDelete
      Category = 'Dataset'
      Caption = 'DataSetDelete1'
      ImageIndex = 30
    end
    object DataSetEdit1: TDataSetEdit
      Category = 'Dataset'
      Caption = 'DataSetEdit1'
      ImageIndex = 31
    end
    object DataSetPost1: TDataSetPost
      Category = 'Dataset'
      Caption = 'DataSetPost1'
      ImageIndex = 36
    end
    object DataSetCancel1: TDataSetCancel
      Category = 'Dataset'
      Caption = 'DataSetCancel1'
      ImageIndex = 29
    end
    object DataSetRefresh1: TDataSetRefresh
      Category = 'Dataset'
      Caption = 'DataSetRefresh1'
      ImageIndex = 38
    end
    object FilePrintSetup1: TFilePrintSetup
      Category = 'File'
      Caption = #25171#21360#26426#35774#32622
      Hint = #25171#21360#26426#35774#32622
      ImageIndex = 14
    end
    object FileExit1: TFileExit
      Category = 'File'
      Caption = #36864#20986
      Hint = #36864#20986
      ImageIndex = 22
    end
    object rsgl: TAction
      Category = 'system'
      Caption = #20154#20107#22522#26412#24773#20917#25968#25454#22788#29702
      Hint = #20154#20107#22522#26412#24773#20917#25968#25454#22788#29702
      OnExecute = rsglExecute
    end
    object WindowClose1: TWindowClose
      Category = 'Window'
      Caption = 'C&lose'
      Enabled = False
      Hint = 'Close'
      ImageIndex = 41
    end
    object WindowCascade1: TWindowCascade
      Category = 'Window'
      Caption = '&Cascade'
      Enabled = False
      Hint = 'Cascade'
      ImageIndex = 42
    end
    object WindowTileHorizontal1: TWindowTileHorizontal
      Category = 'Window'
      Caption = 'Tile &Horizontally'
      Enabled = False
      Hint = 'Tile Horizontal'
      ImageIndex = 43
    end
    object WindowTileVertical1: TWindowTileVertical
      Category = 'Window'
      Caption = '&Tile Vertically'
      Enabled = False
      Hint = 'Tile Vertical'
      ImageIndex = 44
    end
    object WindowMinimizeAll1: TWindowMinimizeAll
      Category = 'Window'
      Caption = '&Minimize All'
      Enabled = False
      Hint = 'Minimize All'
    end
    object WindowArrange1: TWindowArrange
      Category = 'Window'
      Caption = '&Arrange'
      Enabled = False
    end
    object rsll: TAction
      Category = 'system'
      Caption = #27983#35272#21592#24037#22522#26412#20449#24687
      Hint = #27983#35272#21592#24037#22522#26412#20449#24687
      OnExecute = rsllExecute
    end
    object yhgl: TAction
      Category = 'system'
      Caption = #29992#25143#35774#32622
      Hint = #29992#25143#35774#32622
      OnExecute = yhglExecute
    end
    object psw: TAction
      Category = 'system'
      Caption = #20462#25913#29992#25143#23494#30721
      OnExecute = pswExecute
    end
    object rsbb: TAction
      Category = 'system'
      Caption = #20154#20107#22522#26412#24773#20917#25253#34920
      Hint = #20154#20107#22522#26412#24773#20917#25253#34920
      OnExecute = rsbbExecute
    end
    object rsbbqx: TAction
      Category = 'system'
      Caption = #20154#20107#22522#26412#24773#20917#20998#26512#26354#32447
      Hint = #20154#20107#22522#26412#24773#20917#20998#26512#26354#32447
      OnExecute = rsbbqxExecute
    end
    object zcxg: TAction
      Category = 'system'
      Caption = #32844#31216#20449#24687#32500#25252
      Hint = #32844#31216#20449#24687#32500#25252
      OnExecute = zcxgExecute
    end
    object zwxg: TAction
      Category = 'system'
      Caption = #32844#21153#20449#24687#32500#25252
      Hint = #32844#21153#20449#24687#32500#25252
      OnExecute = zwxgExecute
    end
    object bmxg: TAction
      Category = 'system'
      Caption = #37096#38376#20449#24687#32500#25252
      Hint = #37096#38376#20449#24687#32500#25252
      OnExecute = bmxgExecute
    end
    object rscx: TAction
      Category = 'system'
      Caption = #21592#24037#22522#26412#20449#24687#26597#35810
      Hint = #21592#24037#22522#26412#20449#24687#26597#35810
      OnExecute = rscxExecute
    end
  end
  object ImageList1: TImageList
    Left = 176
    Top = 80
    Bitmap = {
      494C01012D003100040010001000FFFFFFFFFF10FFFFFFFFFFFFFFFF424D3600
      000000000000360000002800000040000000D0000000010020000000000000D0
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000