多功能人事信息管理系统（附件已更新）

alzeng

【6月16日：附件已做了更新】
有几个朋友对我在四月份做的这个人事信息管理系统表示有些兴趣，发上来或许能对大家的工作有一些帮助。
出于对公司信息及员工隐私方面的考虑，各表及中只保留少量数据，文件夹中无图片，在使用过程中请自行添加。
1. 这个系统由一个工作簿和两个图片文件夹组成：


2.工作表sheets("IDNo")中有比较全面的身份证所属地信息，可也自行完善：


3.界面比较简洁，未做美化：


4.相应的工作表概况：


5.按部门的人员信息简查：


6. 单击“详情”或点顶部“基本资料”出现详细信息，可编辑存储：


7.身份证信息验证：


8.其他信息：


9.完整信息：


10. 工伤记录：


11.调职记录：


12.处罚记录：


6月16日更新附件（加入少量数据供测试）：
人事信息管理系统.rar (397.88 KB, 下载次数: 25912)

2009-6-16 08:40 上传

点击文件名下载附件

对于显示 编译错误，找不到工程或库 的，请参照以下方法解决（引用987654321于别贴的方法）
【注意】在打开工作簿时禁用宏，才能做以下设置。

1.在VBE窗口中选择出错的VBA工程
2.在“工具”-->“引用”，打开引用对话框
3.查找带勾项中含“丢失...”、“找不到...”、“MISSING...”的条目，并取消勾选！
3.1一般情况下，用第3步即可解决，如问题依旧，请在“可用的引用”中查找并勾选与丢失的条目类似的引用（一般除版本号不同，其它名称相同，如有多个版本，请选择最高版本）
如果还不能解决，可能是电脑中缺少控件或对象库，需要下载控件并注册，后返回上面步骤解决！

如出现20楼的 类型不匹配 的提示：
请在出错高亮的代码行中找到Date，在前加上VBA，即VBA.Date即可。

以下为我的其他分享，欢迎下载：

Excel 2003高级VBA编程宝典

VBA专业项目实例开发

Excel VBA编程24学时教程

山菊花超版VBA入门教程贴汇总电子书

"Excel函数公式解释专贴"之chm及EXE格式电子书

EXCEL收音机

Excel在线音乐播放器

多功能人事信息管理系统

[ 本帖最后由 alzeng 于 2009-7-17 13:48 编辑 ]

Aeolian-Vox

沙发。谢谢分享。

wisdom100

测试下有问题哦,但是还是不错~毕竟用VBA开发嘛 (别和.NET等平台开发相比较)

[ 本帖最后由 wisdom100 于 2009-6-15 11:16 编辑 ]

LAOMALIN

谢谢楼主分享
楼上说的是费话

[ 本帖最后由 LAOMALIN 于 2009-6-15 11:34 编辑 ]

alzeng

原帖由 wisdom100 于 2009-6-15 10:50 发表
测试下有问题哦,但是还是不错~毕竟用VBA开发嘛 (别和.NET等平台开发相比较)

如果有问题，我想可能在两个方面，第一是有关Listview控件的，这和你的Office组件本身是有关系的；第二，可能是在信息预览的时候，如果没有安装打印机，会出现错误提示。

其它的不足及错误，还请大家试用后指出，谢谢。

coolabc

数据为空了后报错在这条记录：
            If Month(rng.Value) = Month(Date) And Year(rng.Value) = Year(Date) Then s4 = s4 + 1
是否是因为为空？

alzeng

原帖由 coolabc 于 2009-6-15 13:40 发表
数据为空了后报错在这条记录：
            If Month(rng.Value) = Month(Date) And Year(rng.Value) = Year(Date) Then s4 = s4 + 1
是否是因为为空？

还是我欠考虑，应该放几条数据供大家测试。
不过，如果自己在工作表中添加几条数据，就不会有什么问题了。

coolabc

基础信息内有些已经设了项目，但是无法显示。比如 部门
楼主在删除数据的时候可能把这些都给删了！

987654321

谢谢楼主分享

ljx63426

很好,有时间测试一下是否可以运用到自己工作中去,多谢分享.