基于Excel_Access的人事管理信息系统开发

《基于Excel_Access的人事管理信息系统开发》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、2011年1月中国管理信息化Jan．，2011第14卷第1期ChinaManagementInformationizationV01．14．No．1基于Excel／Access的人事管理信息系统开发苏先娜(吉林大学管理学院，长春130022)[摘要]Excel是最优秀的电子表格．它在中小企业信息管理开发方面有较大的优势与潜力本设计采用Excel、Access和ADO技术对人事管理信息系统进行VBA编程，较好地解决了文本框、组合框和照片在Exce1界面上的使用问题；用界面Excel显示人员信息．大量记录存放在Access数据库中．Excel

2、通过ADO与Access进行数据交换在查询人员遇到重名时，重名记录显示在主界面下只要双击要选择的人员工号．界面上就可以显示出其信息[关键词]ExcelVBA；Access：ADO；人事管理信息系统doi：10．3969／j．issn．1673—0194．2011．01．024[中图分类号]F270．7；TP315[文献标识码]A[文章编号]】673—0194(2011)叭一0050—051人事管理主界面4几项关键技术人事信息管理主界面如图】所永。4．1人员照片人员照片以OEI对象插入数据库表字段中．而是将全部员I照片存在某一个目录．．本设

3、计目录为：HII)ieuture。照片格式为王事{爹理jPg。每个人员照片名利刷它的工号，即工D+jpg，如工号为01012工号l0101姓名l辜明漆加员T照片为：0l-jPg。由于没有重复：【号，所以照片名也不会3性剐男女出生年月l1962—1卜20删除有重复问题当某一个人没有照片时．则显示没有照片的图片。4民族便媛l学历i媾士_二j查栈即：errorPicture．JPg．如图2所示。5政i台面貌中：按部门总韶更改6职务l燕事长身份证号×××⋯××7职称i怠程师■工资卡号×××·--××清除8工作岗位I管理．=J养老证号×××⋯××退

4、出9进厂时间l1977～516公积金号×××⋯××艚I^漱徽踺10家庭电话lXXX⋯××医保卡号l×XX⋯X×图2暂无照片11手机lXXX⋯XXEmaillli~int@163．。。关键语句：12家庭地址l江苏，眷龄城市贽趣彗鲁2。警(1)当有照片时：l3工号姓名85f7性别出生年月．Picture=”~npicture＼”＆rs(”xl”)＆”．jPg”)l4030l牵明厂办文l972-3-l5(2)当没有照片时：Fl50l0l李明总部男l962-l-20．Picture=LoadPieture(ThisWorkbook．Path＆”＼

5、mpicture＼”＆”errorPicture．JPg”)160103牵明一车间募l980-1-204．2重名处理图1人事信息管理主界面当查询某一姓名时．可能遇到重名问题。主界面上先显示第2数据库设计一条查到的某一人员信息然后在主界面下方，再显示同名人员数据库名：myfriend．mdb表名：mytable相关信息，如果主界面上不是所要查询的人员，只要在主界面下表结构：X1，X2，X3，X4，X5，X6，X7，X8，X9，Xl0，X11，方．找到本次查询所需要某一人员，双击其1二号，系统会自动将所X12，X13，XI4，X15，X16，

6、X17，X18，X19，X20，X21分别表要查询人的信息显示在当前的主界面上。关键代码如下：示：工号、姓名、性别、出生年月、民族、学历、政治面貌、部门、职PrivateSubWorksheetBeforeDoubleCliek务、身份证、职称、工资卡、岗位、养老、进厂时间、公积金、电话、(ByValTargetASRange，CancelAsBoolean)医保、手机、E—mail和家庭地址。DimmJxtNoAsString3ADO(MicrosoftActiveXDataObject)myRange=Range(”A14：A20”)

7、(1)开发工具一VisaulBasic一进入VBE窗口。IfActiveCel1．Column=1And(ActiveCel1．Row>：14And(2)选择菜单“lT具”一“引用”命令。在下拉列表框中查找并ActiveCel1．Row<=20)Then选中“MicrosoftActiveXDataObjects2．1Library”复选框．完成对1"11．』rxtNo=Trim(ActiveCel1．Value)AD0的引用display重名(m_TxtNo)Cancel=n1le[收稿日期]2010—09—035O／CHINAMANA

8、GEMENTINFORMATIONIZATION企业管理信息化Endl±rs(tx3”)：”女”EndSubEndIf4．3组合框赋初值rs(”x4”)=．Txt出生．Value使用VBA的窗