管理信息系统课程设计人事档案管理(9)

Form3.Show 0.1 Form2.Hide End Sub Private Sub Toolbar1_ButtonClick(ByVal Button MSComctlLib.Button) Select Case Button.Key Case "添加"

da = "员工档案添加" BH = "员工编号" bc = "保存"

Load Form8 Form8.Show Case "查询" Load Form3 Form3.Show Case "删除" Load Form3 Form3.Show Case "修改" Load Form3 Form3.Show Case "帮助"

MsgBox "请联系客服，我们将给予帮助！", vbOKOnly, "" Form2.Show Case "退出系统" Unload Me Case "统计" Load Form3 Form3.Show Case "退出系统" End End Select End Sub

三、主功能界面

As