frmmain.frm

数据库课程设计

VERSION 5.00
Begin VB.Form frmMain 
   Caption         =   "人事管理系统"
   ClientHeight    =   3990
   ClientLeft      =   165
   ClientTop       =   735
   ClientWidth     =   6345
   LinkTopic       =   "Form1"
   ScaleHeight     =   3990
   ScaleWidth      =   6345
   StartUpPosition =   3  'Windows Default
   Begin VB.Menu employee 
      Caption         =   "员工管理(&E)"
      Begin VB.Menu addNewEmployee 
         Caption         =   "添加员工(&A)"
      End
      Begin VB.Menu updateEmpoyee 
         Caption         =   "删改员工(&U)"
      End
      Begin VB.Menu queryEmployee 
         Caption         =   "查询员工(&Q)"
      End
   End
   Begin VB.Menu salary 
      Caption         =   "工资管理(&S)"
      Begin VB.Menu addnewsalary 
         Caption         =   "新建工资单(&C)"
      End
      Begin VB.Menu querySalary 
         Caption         =   "工资单查询(&Q)"
      End
   End
   Begin VB.Menu appraise 
      Caption         =   "考核管理(&Q)"
      Begin VB.Menu addNew 
         Caption         =   "添加评价(&A)"
      End
      Begin VB.Menu updateAppraise 
         Caption         =   "删改评价(&U)"
      End
      Begin VB.Menu queryAppraise 
         Caption         =   "查询评价(&Q)"
      End
   End
   Begin VB.Menu department 
      Caption         =   "部门管理(&D)"
      Begin VB.Menu addDepartment 
         Caption         =   "添加部门(&A)"
      End
      Begin VB.Menu delDepartment 
         Caption         =   "删改部门(&D)"
      End
      Begin VB.Menu listDepartment 
         Caption         =   "部门列表(&L)"
      End
   End
End
Attribute VB_Name = "frmMain"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub addDepartment_Click()
frmAddDept.Show

End Sub

Private Sub addNew_Click()
frmAppraise.Show

End Sub

Private Sub addNewEmployee_Click()
frmAddEmployee.Show

End Sub

Private Sub addnewsalary_Click()
frmCreateSalary.Show

End Sub

Private Sub delDepartment_Click()
frmUpdateDept.Show
End Sub

Private Sub Form_Load()

'获取数据库的位置
dbPath = App.Path + "\db\hr.mdb"
connStr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & dbPath

End Sub

Private Sub listDepartment_Click()
frmListDept.Show

End Sub

Private Sub queryAppraise_Click()
frmQueryAppraise.Show

End Sub

Private Sub queryEmployee_Click()
frmListEmployee.Show

End Sub

Private Sub querySalary_Click()
frmQuerySalary.Show
End Sub

Private Sub update_Click()

End Sub

Private Sub updateAppraise_Click()
frmModifyAppraise.Show
End Sub

Private Sub updateEmpoyee_Click()
frmModifyEmployee.Show


End Sub