人力资源管理信息系统的设计与编程

《人力资源管理信息系统的设计与编程》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、⋯．一FORUM一·一-·t一⋯·t-⋯一·-··-··、一m一-J，一⋯‘’{·⋯‘⋯⋯’⋯⋯·⋯⋯⋯⋯⋯⋯⋯⋯⋯人力资源管理信息系统的设计与编程翟宁宁摘要：介绍了对数据的常用操作，Excel文件的导入导出，照片采集功能的编程实现。关键词：VB．NET；数据库；照片采集1引言(7)数据共享，不同的科室人员都可以查询当前人事档案与人才。随着企业的不断扩大，报名人员逐年增加，企业的下属子公司也比较多．也对报名人员统一管理提出了更高的要求。传3模块流程统的办公软件已不能更好地满足报名、应聘及员工档案的管如图1所

2、示。理，为了能更加合理规范地管理人力资源数据，根据实际需实现的方法：首先将系统分为两大部分，即：人才库信息求，设计一套适合本企业的人力资源管理系统。不仅为公司节和人事档案信息。省了购买软件的资金，令软件的升级更加方便。人才库信息又分报名人员信息、面试信息、黑名单和录取2功能需求人员信息。(1)添加报名人员(1)因为报名应聘人员较多，会出现重复应聘的现象，要当添加报名人员时系统自动检测黑名单中是否存在该人员具备黑名单功能，可以方便将指定人员加入黑名单。输入报名(由于人员重名的现象，姓名与出生年月完全相同才说明

3、同同信息时，如在黑名单中存在，或人员重复，系统能自动给予提一个人1，如果存在则不能添加到报名人员中。示。(2)面试操作(2)存储所有应聘、面试记录、及录取人员记录，实现多通过条件查询，得到符合本次录用条件的人员信息，点击种查询。面试按钮后，选择应聘公司名称和面试时间及面试主考官姓(3)可以将已有的Excel档案信息自动读人系统中，避免名，完成面试操作。重复输入。可以将记录导出到Excel中。(3)录用操作(4)正规员工档案中要求具有员工照片，可用摄像头即时从已面试人员中选择面试已合格的人员。点击录用．选采集

4、照片，也可以将已有照片添加到档案中。定人员信息将被移动的录用信息中。(5)员工在各公司之间的调动，要求自动生成记录。(4)加入黑名单(6)离职员工自动生成记录。如果发现某人员的使的是假证书，或其他不正规方式进行应聘，则将其加入到黑名单中。人事档案信息可以从已有的Excel文件中直接读取到档案中(避免了重复输入的问题)，也可以从录取信息中直接提取数据加入到人事档案中。人事档案中设有员工调动功能和离职功能，通过这两个功能自动地L成调动及离职员工记录。人事档案窗体左侧用Treeview控件显示各子公司名称分类，点

5、击公司名称时，将只显示该公司人员档案。Treeview控件上方_丁具条中可以实现按某列进行查询，比较常用的按姓名模糊查询。人员档案中还设置了照片项，可以通过摄像头进行拍照．也可以选择电脑上已存在的照片。图1⋯⋯⋯⋯⋯⋯实用第一智慧密集4功能代码EndIfEndIf(1)应聘人员信息窗体。ExitSub如图2所示。EndIf开始添加记录TryDimnewrowAsDataRownewrow=YIzyDataSet．maininfotalbe．NewRownewrow．Item(”姓名)=Me．姓名TextBo

6、x．Text．Trimnewrow．Item(”性别)=Me．性别ComboBox1．Text．Trimnewrow．Item(”出生年月)：Me．出生年月TextBox1．Textnewrow．Item(联系电话)=Me．联系电话TextBox．Text．Trim．newrow．Item(“学历“)=Me．学历ComboBox2。Text．Tmnewrow．Item(专业“)=Me．专业ComboBox3．Text．Trim图2newrow．Item(“毕业学校“)=Me．毕业学校TextBox．Text

7、．Trim添加人员时检测是否在黑名单中存在或是重复人员。newrow．Item(“毕业年份)=Me．毕业年份TextBox．Text．检查是否已存在该人员／这两个验证代码写成函数也是Trim一种好的方法newrow．Item(“档案袋编号”)=Me．档案袋编号TextBox．DimconAsNewSalCOnnectiOnText．丁rimDimcmdAsNewSqlCommandnewrow．Item(面试状态)=未面试con．COnnectiOnString=newrow．Item(”籍贯’)=Me．籍

8、贯TextBox．Text．TrimMy．Settings．yIzyCOnnectiOnStgnewrow．Item(”登记日期”)=Now．Datecmd．Connection=connewrow．Item(“面试日期”)=cmd．CommandText=SELECTcount{)FROMnewrow．Item(“录用否“)=未录用。maininfotalbewheref姓名l_。＆Me．姓名TextBox．T