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

2021-01-20 14:58

主功能界面上集成了几乎所有的功能按钮，这是由于档案的修改、删除、统计、导出等功能都必须通过查询后才能工作。所以把这几个功能集合到一起、便于管理员进行档案管理。各项功能的具体实现代码如下： Private Sub Command_Click() If cx <> 1 Then

MsgBox "未选中数据！！", vbOKOnly + vbExclamation, "" Exit Sub End If

Dim Mag As Integer

Mag = MsgBox("是否删除！", vbYesNo, "警告") If Mag = vbYes Then

Adodc1.Recordset.Delete '删除记录 End If End Sub

Private Sub Command1_Click() cx = 1

Adodc1.RecordSource = "select * from 员工基本信息表 where 员工编号 like '%" & Text2.Text & "%' and 姓名 like '%" & Text1.Text & "%'and 婚姻状况 like '%" & Combo1.Text & "%'and 性别 like '%" & Combo6.Text & "%' and 职位 like '%" & Combo2.Text & "%' and 政治面貌 like '%" & Combo3.Text & "%' and 所在部门 like '%" & Combo5.Text & "%'and 学历 like '%" & Combo4.Text & "%' " Adodc1.Refresh

If Adodc1.Recordset.EOF Then

共19页:

管理信息系统课程设计人事档案管理(10).doc 将本文的Word文档下载到电脑下载失败或者文档不完整，请联系客服人员解决！

下载这篇word文档