初学ADO献上小作《电话簿管理系统》

sword3

您好！您这个案例真是太厉害了，我稍微改了一下想作为人事系统来用，但是VBA我不太懂。
修改完后又几个地方不对了：
1、挑出来的出口其中的“修改记录”按钮修改不了数据；请帮予纠正！
2、原版本是默认第一列“姓名”和最后一列“工作部门”相同就默认为是相同的项目，但是我改成人事系统后就需要指定本附件中的“姓名”和“工号”列相同就为同一个人，相应的不允许添加该记录。（如何修改）
3、原版本是默认最后一列“工作部门”作为模糊查找的，能不能随便指定任何列作为模糊查找的列。应该改代码的那部分。

呵呵，请大虾们给予指点！

呵呵，对了应该没有侵犯版权吧，嘻嘻

lmecho

学习学习学习学习学习学习学习学习学习学习嘻嘻嘻

zhaogang1960

原帖由 sword3 于 2010-12-14 11:18 发表
您好！您这个案例真是太厉害了，我稍微改了一下想作为人事系统来用，但是VBA我不太懂。
修改完后又几个地方不对了：
1、挑出来的出口其中的“修改记录”按钮修改不了数据；请帮予纠正！
2、原版本是默认第一列“姓 ...

欢迎“侵犯版权”：
品质部人事管理系统.rar (32.17 KB, 下载次数: 456)

2010-12-14 20:33 上传

点击文件名下载附件

[ 本帖最后由 zhaogang1960 于 2010-12-14 20:33 编辑 ]

sword3

原帖由 zhaogang1960 于 2010-12-14 19:32 发表

欢迎“侵犯版权”：
841830

谢谢大虾，非常完美了，呵呵！代码还是有些看不太懂，

从今天开始要把大虾的作品作为学习的动力。完全看懂的那天要在这里庆祝一下！

真的有点崇拜你们！这样的无私奉献精神！（PS一下：昨天写出问题来的时候没想到那么快得到了大虾的指点，谢谢！）

lengyff

1、你的listview控件首行字段名字是如何居中的呢？请能说明说明
2、帮助看看和楼主神似的那个5楼的exe文件是什么工具打包生成的呢

再次谢谢楼主的无私奉献！

楼主的这个和下面这个帖子的电话簿真是十分神似啊，呵呵
http://club.excelhome.net/viewth ... 9711&highlight=

zhaogang1960

原帖由 lengyff 于 2010-12-16 16:20 发表
1、你的listview控件首行字段名字是如何居中的呢？请能说明说明
2、帮助看看和楼主神似的那个5楼的exe文件是什么工具打包生成的呢

再次谢谢楼主的无私奉献！

楼主的这个和下面这个帖子的电话簿真是十分神似啊 ...

何止是“相似”，简直就是翻版，哈哈
listview控件首行字段名字没有居中，使用的是默认设置：
If i > 0 Then
    .ColumnHeaders.Add , , rs.Fields(i).Name, a(i), lvwColumnCenter '从第2列起居中
Else
    .ColumnHeaders.Add , , rs.Fields(i).Name, a(i)
End If

封装为exe文件我不会，抱歉

gjb_zjf

谢谢！！！

十四口

感谢赵老师的无私奉献！有得学习了！

share6666

好好学习啊天天进步 哈哈

AVEL

下载学习。。
我们公司人员不多。
不怎么需要电话簿