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

非常感谢：zhaogang1960 版主的大作分享~~~~~
提几点小意见：
1、进入查询界面时， 模糊查询 与 工作部门 对应的查询框中，显示灰色字体：请输入查找关键字 与 请点击选择部门
     用鼠标单击后，则清空默认显示的数值；
    下面的显示的数据区域中为空，因为还没有查询条件哟~~~且当清空所有的查询条件后，数据区域所显示的信息也为空。
     这样的话，窗体上那个：全部显示 的按钮才会显得更有作用，您说是吗？
     
2、若这个电话薄管理系统放在公司的局域网平台上，资料的维护与更新只有指定的人才有权限修改。
     当其他人查看时，发现有错误或遗漏，如何在这个窗体上面实现尽快将信息通知到责任管理人员。
     建议：在窗体上加个按钮：信息反馈
     点击时，启动当前用户的邮箱，以默认的邮箱地址自动写好以下邮件内容，由用户决定是否发出：
    收信人：abc@123.com,def@126.com    主题：有关通讯录之信息反馈
     邮件正文：如题，详情如下表

    PS：贴不上这种表格的形式，只能抓成图片贴上来，以示说明。

3、在打开工作薄进入主界面，点击按钮 数据库 的时候，有以下几点建议：
      3.1 应显示当前工作表的：编辑栏、水平滚动条、垂直滚动条、工作表标签；
      3.2 除当前工作表外，其它工作表隐藏不显示；

4、在打开工作薄的时候，由程式判断，非指定当前系统登录用户【VBA.Environ("username")】，
      隐藏Excel界面，出现一个动态的对话框：通讯录查询系统，3秒钟后自动进入，请稍等......，然后直接调出查询窗体,退出窗体则退出查询系统.

5、以姓名与工作部门来决定判断不能为同一人，有点想法：
     

1. If temp = c.Value & Chr(9) & c.Offset(, rs.Fields.Count - 1) Then '姓名和工作部门都相同的视为同一个人

复制代码

      因为在工厂的人员，来自五湖四海，姓名绝对有重复的，即使是同一个部门，可能机率不大。
      个人建议：用工号来判断是否重复才是王道，因为工号才是唯一性的，绝对不可能会有重复的。

声明一下：由于我在工厂工作，以上只是个人想法与见解，却切合于实际之运作；说的比较多，望版主海涵哟~~~
当然，更加期待版主的进一步完善，相信很多坛友也有此想法哟~~~~~~
'