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

Unload Me End Sub

Private Sub Form_Load() Combo1.AddItem "管理员" Combo1.AddItem "普通用户"

Adodc1.ConnectionString = cnn.ConnectionString End Sub

二、主界面

主界面是登陆后最基础的一个界面。由他可以连接跳转到用户想要用用的任何一个功能界面。主要集成了查询，录入，删除，统计，输出等功能 具体实现代码如下：

Private Sub Luru_Click(Index As Integer) da = "员工档案添加" BH = "员工编号" bc = "保存" Form8.Show 0.1 Form2.Hide End Sub

Private Sub shuchu_Click(Index As Integer) Form3.Show 0.1 Form2.Hide End Sub

Private Sub Tongji_Click(Index As Integer)