我用了赵刚老师的：电话簿管理系统(以access为数据库) 套用了一人事档案：请求修改

samuel-he

各位老师：
我用了赵刚老师的：电话簿管理系统(以access为数据库) 套用了一人事档案：
能力有限请求：帮助修改：
添加记录：
必须填写：工号，姓名，部门，身份证号，否则提示！
                ID号  在数据库中自动增加。         
         
修改，删除：
        根据ID号修改,或删除      

详情如附件！

zhaogang1960

samuel-he 发表于 2013-8-30 17:02
请求：赵老师再次帮忙：
给查找 下拉清单  ID 改为： 部门
谢谢

1. Private Sub ComboBox1_Change()
   
2.   If ComboBox1.ListIndex = -1 Then Exit Sub
   
3.     Dim SQL$, temp$, i&, j&, s$
   
4.     SQL = "select * from B2A员工档案 where 部门='" & ComboBox1.Value & "'"
   
5.     Call 显示数据(SQL) '刷新ListView1数据
   
6.     Call 清空文本框
   
7. End Sub
   

复制代码

zhaogang1960

1. Private Sub 删除记录_Click()
   
2.     Dim rst As ADODB.Recordset
   
3.     Dim i&, SQL$, temp$
   
4.     If TextBox20.Text = "" Then
   
5.         MsgBox " ID 不能为空！", vbInformation, "删除记录"
   
6.         Exit Sub
   
7.     End If
   
8.    
   
9.     On Error Resume Next
   
10.     Set rst = New ADODB.Recordset
    
11.     SQL = "select * from B2A员工档案 where 员工档案ID=" & TextBox20.Text
    
12.     rst.Open SQL, cnn, adOpenKeyset, adLockOptimistic
    
13.     If rst.RecordCount = 0 Then
    
14.         MsgBox "没有查到该记录！", vbInformation, "修改失败"
    
15.         Set rst = Nothing
    
16.         Exit Sub
    
17.     End If
    
18.     SQL = "delete from  B2A员工档案 where 员工档案ID=" & TextBox20.Text '删除记录语句
    
19.     cnn.Execute SQL '执行删除语句
    
20.     Set rst = Nothing
    
21.     SQL = "select * from B2A员工档案"
    
22.     If 模糊查询.Text = "" Then Call 显示数据(SQL) Else 模糊查询.Text = "" '刷新ListView1数据
    
23.     Call 清空文本框
    
24.     MsgBox "已将该记录从B2A员工档案中删除！", vbInformation, "删除记录"
    
25. End Sub
    

复制代码

liuliu749

谢谢,下来学习学习

zhaogang1960

1. Private Sub 添加记录_Click()
   
2.     Dim rst As ADODB.Recordset
   
3.     Dim i&, SQL$, temp$
   
4.     For Each c In Array(1, 2, 7, 12) '工号，姓名，部门，身份证号，否则提示！
   
5.         If Me.Controls("TextBox" & c).Text = "" Then
   
6.             MsgBox rs.Fields(c - 1).Name & "不能为空！", vbCritical
   
7.             Me.Controls("TextBox" & c).SetFocus
   
8.             Exit Sub
   
9.         End If
   
10.     Next
    
11.     temp = " 工号='" & TextBox1.Text & "' and 姓名='" & TextBox2.Text & "'" '工号和姓名都相同的视为同一个人
    
12.     On Error Resume Next
    
13.     Set rst = New ADODB.Recordset
    
14.     SQL = "select * from B2A员工档案 where " & temp
    
15.     rst.Open SQL, cnn, adOpenKeyset, adLockOptimistic
    
16.     If rst.RecordCount > 0 Then
    
17.         MsgBox "B2A员工档案中已经存在该记录！", vbInformation, "添加失败"
    
18.         Set rst = Nothing
    
19.         Exit Sub
    
20.     End If
    
21.     Set rst = New ADODB.Recordset
    
22.     SQL = "select * from B2A员工档案"
    
23.     rst.Open SQL, cnn, adOpenKeyset, adLockOptimistic
    
24.     '开始添加数据
    
25.     With rst
    
26.         .AddNew    '添加各个字段的数据
    
27.         For i = 0 To rst.Fields.Count - 2 'ID号  在数据库中自动增加
    
28.             .Fields(i) = Me.Controls("TextBox" & i + 1).Text
    
29.         Next i
    
30.         .Update    '更新数据表
    
31.     End With
    
32.     Set rst = Nothing
    
33.     If 模糊查询.Text = "" Then Call 显示数据(SQL) Else 模糊查询.Text = "" '刷新ListView1数据
    
34.     MsgBox "已经将  新人员数据添加到   B2A员工档案！", vbInformation, "添加记录"
    
35. End Sub
    

复制代码

samuel-he

赵老师您好！
      在使用的过程中，想有些优化可能会更好一些：请求赵老师再次帮忙！

请求增加：
    1. 修改1
       Label2 显示共找到（）笔      想改为：Label2 显示共找到（）笔     Label3 显示  其中在职 （） 人     Label4 女生（） 人    Label5（）人   
   
    2. 修改2（增加查询过虑条件）
       2.1 当选中：仅显示在职时 ： 在查询时 ListView1 只显示状态 “在职”的人员  
       2.2 当没有选中：显示符合条件的所有状态的人员名单（如现有功能）

    3.修改3（仅显示增加）
      3.1  当增加新人员时， 仅显示增加  被选中时      在查询时 ListView1  只出现新增加的人员 不出现原有人员
      3.2  当增加新人员时， 仅显示增加  未被选中时    在查询时 ListView1  只出现新增加的人员 出现增加 + 原的人员名单
详情如附件：

zhaogang1960

请看附件
test-082903.rar (482.86 KB, 下载次数: 291)

2013-8-30 17:27 上传

点击文件名下载附件

samuel-he

zhaogang1960 发表于 2013-8-30 09:07

请求：赵老师再次帮忙：
给查找 下拉清单  ID 改为： 部门
谢谢

samuel-he

zhaogang1960 发表于 2013-8-30 17:32
请看附件

感谢赵老师！

lhsh36183

zhaogang1960 发表于 2013-8-29 18:34
请看附件

版主，能转换成2003版本的就好了。