VB课程设计（论文）_人力资源管理系统VIP

1、 课程设计报告 第i页 共i页目 录 1 引言1 2 系统调查与可行性研究2 2.1 初步调查22.2 可行性研究33 系统分析33.1 业务流程分析33.2 数据流程分析44 系统设计44.1 功能结构设计44.2 数据库设计54.3 代码设计8 5.结束语18参考文献181 引言 21世纪是知识经济的时代，经济实力的竞争更多地表现在人才的培养、争夺与竞争。如何有效地对员工实施宏观管理，对企事业单位的构成情况和发展趋势进行统计、规划、分析、预测，根据分析的结果制定切实可行的人事政策，是一项繁重而艰巨的任务。 传统的人力资源管理方式和手段主要以“工作”为核心，抑制了人的能动性，不利于工作质量的

2、改进和工作效率的提高，它往往注重事务性操作，不利于开发人员潜在能力。而且它主要依赖手工操作，效率低下，不利于企事业单位的快速发展。所以，企业在一般日常工作中需要一套人力资源管理系统，以便它能够基于现代人力资源管理的理念，结合中国行业主管机关的人力资源管理经验，将现代化的信息技术引入企业人力资源管理工作，使它能够寻求“人”与“工作”相互适应的契合点，将“人”的发展与企业的发展有机的联系起来，以便对企业人员组成、考勤情况、工作评估和工资信息进行管理。 本论文就是以visual basic为前台和sql server数据库开发为后台等软件作为开发工具，以各种单位机构为对象，开发一个从某种程度上能满足

3、中小型机构对人事信息管理的要求的“人事管理系统”。本系统具有数据管理和企业事务管理功能。使用该系统，可以方便地进行系统管理，人事档案管理，部门管理，教育培训管理，日常考核，还能够快捷地查询公司员工的情况，方便企业高层领导对该企业人力资源的现状有个比较全面的认识，也方便他们的管理和人员调动，可辅助企业领导决策科学化，从而大大减少了工作量，提高了工作效率。本课题是辅助企业管理的系统，拟采用的开发平台为windows平台2系统调查与可行性研究在系统的开发前期对系统进行可行性分析是十分必要的一个环节，这对于保证资源的合理使用，避免浪费是十分必要的，也是项目一旦开始以后能顺利进行的必要保证。信息系统的建

4、设是一项投资大，时间长的复杂工程 ，可行性研究更为必要，也更复杂，更困难。“可行性”是指在当前情况下，企业研制这个信息系统是否有必要，是否具备必要的条件。可行性的含义不仅包括可能性，还包括必要性，合理性。2.1初步调查随着科技日新月异的发展，网络的更加成熟，以及企业规模的扩大，越来越多的企业对自己员工的情况也开始使用计算机进行自动化的管理。因此，开发一个操作方便、功能适合的管理系统，提高企业的管理效率已成为当务之急。经调查一般中小型企业的组织结构图如下2.2可行性研究 在决定开发管理信息系统项目之前，首先要做好系统开发的可行性分析。可行性分析的任务是确定项目开发是否必要和可行，从以下几方面认真

5、进行研究（1）经济可行性：对组织的经济状况和投资能力进行分析，一方面是支出的费用，其中包括设备购置费，软件开发费，管理和维护费用，人员工资和培训费等；另一方面是取得的收益，其中有一部分可用钱来衡量，如开发本系统，为企业节省的人力，物力。收益的另一部分难以用钱表示，如加强人事信息管理。（2）技术上可行性：现技术上的可行性分析，所考虑采用的硬件和软件技术能满足用户提出的要求（如计算机容量、速度等）此外，因本系统难度不大，所涉及的范围只限于企业人力资源管理，所以在技术上已达到开发该系统的能力。（3）管理上的可行性：重要是管理人员对开发信息系统的态度和管理方面的基础工作。重要领导不支持的项目肯定不可行

6、。管理基础的好坏重要表现在管理制度和方法是否科学，规章制度是否齐全以及原始数据是否正确等方面。3 系统分析3.1业务流程分析3.2数据流程分析4系统设计4.1功能结构设计 系统最终实现的主要功能如下启动主程序界面教育培训日常考核人事档案管理人事变动部门管理统计决策查询人事信息增加人事信息更新人事信息删除综合查询部门信息增加部门信息更新部门信息删除考核信息管理新增职员员工离职人事变更决策查询教育培训信息管理教育培训信息查询考核信息查询在职人员统计离职人员统计 4.2数据库设计数据库是信息管理系统的后台，存储着所有的信息，在信息管理系统中有着很重要的地位。数据库设计的好与坏，直接影响到这个系统的运

7、行效率。良好的数据库设计，可以提高数据信息的存储效率，确保数据信息的完整性和一致性。结合实际情况和对用户需求分析，在人力资源管理数据库建了6个表，如下 部门信息表字段名称字段类型大小部门编号varchar2部门名称varchar30部门主管varchar20 人事档案信息表字段名称字段类型大小档案编号varchar10工号varchar10姓名varchar10曾用名varchar10性别varchar2出生年月datetime8身份证号varchar15相片varchar100籍贯varchar40 人事变动信息表字段名称字段类型大小idint4变动日期datetime8工号varchar1

8、0姓名varchar10原部门名称varchar30原职务varchar20现部门名称varchar30现职务varchar20变动说明varchar200 考勤信息表字段名称字段类型大小idint4工号varchar10姓名varchar10部门名称varchar30出勤numeric9休假numeric9事假numeric9病假numeric9公假numeric9 教育培训信息表字段名称字段类型大小idint4工号varchar10姓名varchar10部门名称varchar30培训名称varchar50培训时间int4培训成绩varchar2培训费用money8备注varchar200

9、离职信息表字段名称字段类型大小工号varchar10姓名varchar10部门名称varchar30性别varchar4是否离职varchar4离职日期datetime8备注varchar504.3代码设计主程序界面设计private sub form_resize() on error resume next me.width = 9120 me.height = 7155end subprivate sub label1_click(index as integer) select case index case 0 load main_rsxx main_rsxx.show case 1

10、 load main_bmgl main_bmgl.show case 2 load main_rckh main_rckh.show case 3 load main_rsbd main_rsbd.show case 4 load main_jypx main_jypx.show case 5 load main_jccx main_jccx.show case 6 load main_tj main_tj.show case 7 shell app.path & 数据备份与恢复.exe, vbnormalfocus case 8 end end selectend subprivate s

11、ub label1_mousemove(index as integer, button as integer, shift as integer, x as single, y as single) for i = 0 to 8 label1(i).borderstyle = 0 next i if index 0 then adodc1.recordset.delete adodc1.recordsource = select * from 部门信息表 order by 部门编号 adodc1.refresh else msgbox 没有要删除的数据！ end ifend subpriva

12、te sub cmdexit_click() call cmdend(me)end sub决策查询private sub form_load() cbo1.additem (初中及以下) cbo1.additem (中专/高中) cbo1.additem (专科) cbo1.additem (本科) cbo1.additem (研究生) cbo1.listindex = 1 cbo2.additem (正式工) cbo2.additem (临时工) cbo2.additem (合同工) cbo2.listindex = 0end subprivate sub timer1_timer() lb

13、lnow.caption = nowend subprivate sub command1_click() adodc1.recordsource = select * from 人事档案信息表 where 姓名 like + + text1.text + +% adodc1.refreshend subprivate sub command2_click() adodc1.recordsource = select * from 人事档案信息表 where 文化程度= + cbo1.text + and 用工性质= + cbo2.text + adodc1.refresh if adodc1

14、.recordset.recordcount 0 then lblrs.caption = adodc1.recordset.recordcount else lblrs.caption = 0 end ifend subprivate sub command3_click() call cmdend(me)end sub教育培训im rs1 as new adodb.recordsetprivate sub cmdsave_click() rs1.open select * from 教育培训信息表, cnn, adopenkeyset, adlockoptimistic rs1.addne

15、w rs1.fields(工号) = datacombo1.text for i = 2 to 4 rs1.fields(i) = text1(i).text next i rs1.fields(培训时间) = val(text1(5).text) rs1.fields(培训成绩) = text1(6).text rs1.fields(培训费用) = val(text1(7).text) rs1.fields(备注) = text1(8).text rs1.update main_jypx.adodc1.refresh 关闭数据集对象 rs1.close unload meend subpri

16、vate sub datacombo1_change() rs1.open select * from 人事档案信息表 where 工号= + datacombo1.text + , cnn, adopenkeyset, adlockoptimistic if rs1.recordcount 0 then text1(2).text = rs1.fields(姓名) text1(3).text = rs1.fields(部门名称) end if rs1.closeend subprivate sub datacombo1_keydown(keycode as integer, shift as

17、 integer) if keycode = vbkeyreturn then text1(4).setfocusend subprivate sub form_activate() datacombo1.setfocusend subprivate sub text1_keydown(index as integer, keycode as integer, shift as integer) if index 0 then if datacombo1.text = then msgbox 请选择工号！ else load main_rckh_kq main_rckh_kq.show end

18、 if else msgbox 没有您要修改的数据，请先添加数据！ end if case 1 blnadd1 = false if adodc2.recordset.recordcount 0 then load main_rckh_jb main_rckh_jb.show else msgbox 没有您要修改的数据，请先添加数据！ end if case 2 blnadd2 = false if adodc3.recordset.recordcount 0 then load main_rckh_cc main_rckh_cc.show else msgbox 没有您要修改的数据，请先添加

19、数据！ end if end selectend subprivate sub form_load() set datagrid1.datasource = adodc1 dim i as integer for i = 0 to datagrid1.columns.count - 1 datagrid1.columns(i).width = 840 next iend subprivate sub datacombo1_change() adodc1.recordsource = select * from 考勤信息表 where 工号 like + + datacombo1.text +

20、+% adodc1.refreshend subprivate sub cmdadd_click() select case sstab1.tab case 0 blnadd0 = true if datacombo1.text = then msgbox 请选择工号！ else if adodc1.recordset.recordcount = 0 then load main_rckh_kq main_rckh_kq.show else msgbox 此员工考勤记录已存在，只能进行修改！ end if end if case 1 blnadd1 = true load main_rckh_

21、jb main_rckh_jb.show case 2 blnadd2 = true load main_rckh_cc main_rckh_cc.show end selectend subprivate sub cmddelete_click() select case sstab1.tab case 0 if adodc1.recordset.recordcount 0 then adodc1.recordset.delete adodc1.refresh end if case 1 if adodc2.recordset.recordcount 0 then adodc2.record

22、set.delete adodc2.refresh end if case 2 if adodc3.recordset.recordcount 0 then adodc3.recordset.delete adodc3.refresh end if end selectend subprivate sub cmdend_click() unload meend sub人事变动管理ption explicitprivate sub cmdadd_click() select case sstab1.tab case 0 dim dabh as long dim gh as long dim rs

23、1 as new adodb.recordset rs1.open select * from 人事档案信息表 order by 档案编号, cnn, adopenkeyset, adlockoptimistic if rs1.recordcount 0 then if rs1.eof = false then rs1.movelast dabh = val(right(rs1.fields(档案编号), 5) + 1 main_rsxx_lr.txt1(0).text = c- & format(dabh, 00000) else main_rsxx_lr.txt1(0).text = c-

24、00001 end if main_rsxx_lr.txt1(1).text = right(main_rsxx_lr.txt1(0).text, 5) rs1.close load main_rsxx_lr main_rsxx_lr.show main_rsxx_lr.caption = 人事档案信息录入窗口 main_rsxx_lr.label10.caption = 人事档案信息录入 case 1 load main_rsbd_yglz main_rsbd_yglz.show case 2 load main_rsbd_rsbd main_rsbd_rsbd.show end selec

25、tend subprivate sub cmddelete_click() select case sstab1.tab case 0 if adodc1.recordset.recordcount 0 then adodc1.recordset.delete adodc1.refresh end if case 1 if adodc2.recordset.recordcount 0 then adodc2.recordset.delete adodc2.refresh end if case 2 if adodc3.recordset.recordcount 0 then adodc3.re

26、cordset.delete adodc3.refresh end if end selectend subprivate sub cmdend_click() unload meend sub人事档案管理信息private sub cmdprint_click() datagrid1.col = 0 dataenvironment1.rscommand1.open select * from 人事档案信息表 where 档案编号= + datagrid1.text + drp_rsdaxx.showend subprivate sub form_load() combo1.additem (

27、档案编号) combo1.additem (工号) combo1.additem (姓名) combo1.additem (性别) combo1.additem (身份证号) combo1.additem (部门名称) combo1.additem (用工性质) combo1.additem (员工状态) combo1.listindex = 0end subprivate sub text1_gotfocus() text1.selstart = 0 设置选定的起始位置 text1.sellength = len(text1.text) 设置选定的长度。end subprivate sub

28、cmdadd_click() 生成档案编号 dim dabh as long dim rs1 as new adodb.recordset rs1.open select * from 人事档案信息表 order by 档案编号, cnn, adopenkeyset, adlockoptimistic if rs1.recordcount 0 then if rs1.eof = false then rs1.movelast dabh = val(right(rs1.fields(档案编号), 5) + 1 main_rsxx_lr.txt1(0).text = c- & format(dab

29、h, 00000) else main_rsxx_lr.txt1(0).text = c-00001 end if 生成工号 main_rsxx_lr.txt1(1).text = right(main_rsxx_lr.txt1(0), 5) rs1.close 调用main_rsxx_lr窗体 load main_rsxx_lr main_rsxx_lr.show main_rsxx_lr.caption = 人事档案信息录入窗口 main_rsxx_lr.label10.caption = 人事档案信息录入end subprivate sub cmdfind_click() adodc1.

30、recordsource = select * from 人事档案信息表 where (人事档案信息表. & combo1.text & like + + text1.text + +%) adodc1.refreshend subprivate sub cmdmodify_click() on error goto picview dim i as integer for i = 0 to 3 对应列 datagrid1.col = i main_rsxx_lr.txt1(i) = datagrid1.text next i datagrid1.col = 4 main_rsxx_lr.cb

31、o1 = datagrid1.text datagrid1.col = 5 main_rsxx_lr.dtp1.value = datagrid1.text datagrid1.col = 6 main_rsxx_lr.txt1(4) = datagrid1.text datagrid1.col = 7 main_rsxx_lr.lblxplj.caption = datagrid1.text on error resume next main_rsxx_lr.picphoto.picture = loadpicture(datagrid1.text) main_rsxx_lr.image1.

32、picture = loadpicture(datagrid1.text) datagrid1.col = 8 main_rsxx_lr.txt1(5) = datagrid1.text datagrid1.col = 9 main_rsxx_lr.txt1(6) = datagrid1.text datagrid1.col = 10 main_rsxx_lr.dtp2.value = datagrid1.text datagrid1.col = 11 main_rsxx_lr.txt1(7) = datagrid1.text datagrid1.col = 12 main_rsxx_lr.t

33、xt1(8) = datagrid1.text datagrid1.col = 13 main_rsxx_lr.datacombo1 = datagrid1.text datagrid1.col = 14 main_rsxx_lr.cbo2 = datagrid1.text datagrid1.col = 15 main_rsxx_lr.cbo3 = datagrid1.text datagrid1.col = 16 main_rsxx_lr.txt1(9) = datagrid1.text datagrid1.col = 17 main_rsxx_lr.txt1(10) = datagrid

34、1.text datagrid1.col = 18 main_rsxx_lr.cbo4 = datagrid1.text datagrid1.col = 19 main_rsxx_lr.txt1(11) = datagrid1.text datagrid1.col = 20 main_rsxx_lr.cbo5 = datagrid1.text datagrid1.col = 21 main_rsxx_lr.txt1(12) = datagrid1.text datagrid1.col = 22 main_rsxx_lr.cbo6 = datagrid1.text datagrid1.col =

35、 23 main_rsxx_lr.cbo7 = datagrid1.text load main_rsxx_lr main_rsxx_lr.show main_rsxx_lr.caption = 人事档案信息修改窗口 main_rsxx_lr.label10.caption = 人事档案信息修改 exit subpicview: msgbox err.description, , 提示窗口end subprivate sub cmddelete_click() dim a as string if adodc1.recordset.recordcount 0 then a = msgbox(您

36、确实要删除这条数据吗?, vbyesno) if a = vbyes then adodc1.recordset.delete adodc1.refresh end if else msgbox (没有要删除的数据!) end ifend subprivate sub cmdexit_click()call cmdend(me)end su档案统计option explicitprivate sub command1_click() if option1.value = true then adodc1.recordsource = select & combo1.text & , & cou

37、nt(*) as 人数 from 人事档案信息表 where 员工状态=在职 group by & combo1.text adodc1.refresh else adodc1.recordsource = select & combo1.text & , & count(*) as 人数 from 人事档案信息表 where 员工状态=离职 group by & combo1.text adodc1.refresh end ifend subprivate sub command2_click() unload meend subprivate sub form_load() combo1.

38、additem (性别) combo1.additem (民族) combo1.additem (籍贯) combo1.additem (工龄) combo1.additem (技术职称) combo1.additem (行政职务) combo1.listindex = 0end subprivate sub option1_click() option1.value = true label2.visible = true combo1.visible = trueend sub5.结束语本系统开发选用ms visual basic 6.0，其具有语言简单、功能强大、组件众多的优点。程序模块

39、的编制中，重点把握系统内部完整性、功能性、实用性、便捷性，使其能够协调统一、运行无误。运行结果证明，本人力资源管理系统极大提高了工作效率，节省了人力和物力，最终满足企业财务管理、员工工资发放的需要，同时也成为现代化企业管理的标志.参考文献【1】冯晓利，叶晓虎，学用visual foxpro6.0中文版，清华大学出版社，1999-4【2】邵洋，谷宇，何旭洪，visual foxpro 数据库系统开实例导航（第二版），人民邮电出版社，2003-8【3】周升锋，visual foxpro 应用程序开发，北京航空航天大学出版社，1997-11【4】黄梯云，李一军，管理信息系统（修订版），高等教育出版社

40、，2000-12【5】张学群，楼克明，运筹学基础，经济科学出版社，2000-9-25【6】黄梯云， 管理信息系统 ，经济科学出版社，1997-3【7】甘仞初，信息系统开发，经济科学出版社，1996-9 【8】王永信，王益进，肖阳，数据管理 visual foxpro6.0，北京希望电子出版社，1999.8【9】陈禹，方美琪，软件开发工具，经济科学出版社，2000.2【10】黄文，visual foxpro6.0 从入门到精通，科学出版社，2000.8【11】甘仞初，信息资源管理，经济科学出版社，2000.10指导教师评语成绩签字：年 月 日原文已完。下文为附加文档，如不需要，下载后可以编辑删除

41、，谢谢！施工组织设计本施工组织设计是本着“一流的质量、一流的工期、科学管理”来进行编制的。编制时，我公司技术发展部、质检科以及项目部经过精心研究、合理组织、充分利用先进工艺，特制定本施工组织设计。一、 工程概况：西夏建材城生活区27#、30#住宅楼位于银川市新市区，橡胶厂对面。本工程由宁夏燕宝房地产开发有限公司开发，银川市规划建筑设计院设计。本工程耐火等级二级，屋面防水等级三级，地震防烈度为8度，设计使用年限50年。本工程建筑面积:27#楼3824.75m2;30#楼3824.75 m2。室内地坪0.00以绝对标高1110.5 m为准，总长27#楼47.28m；30#楼47.28 m。总宽27

42、#楼14.26m；30#楼14.26 m。设计室外地坪至檐口高度18.6 00m，呈长方形布置，东西向，三个单元。本工程设计屋面为坡屋面防水采用防水涂料。外墙水泥砂浆抹面，外刷浅灰色墙漆。内墙面除卫生间200300瓷砖，高到顶外，其余均水泥砂桨罩面，刮二遍腻子；楼梯间内墙采用50厚胶粉聚苯颗粒保温。地面除卫生间200200防滑地砖，楼梯间50厚细石砼1：1水泥砂浆压光外，其余均采用50厚豆石砼毛地面。楼梯间单元门采用楼宇对讲门，卧室门、卫生间门采用木门，进户门采用保温防盗门。本工程窗均采用塑钢单框双玻窗，开启窗均加纱扇。本工程设计为节能型住宅，外墙均贴保温板。本工程设计为砖混结构，共六层。基础

43、采用c30钢筋砼条形基础，上砌mu30毛石基础，砂浆采用m10水泥砂浆。一、二、三、四层墙体采用m10混合砂浆砌筑mu15多孔砖；五层以上采用m7.5混合砂浆砌筑mu15多孔砖。本工程结构中使用主要材料：钢材：i级钢，ii级钢；砼：基础垫层c10，基础底板、地圈梁、基础构造柱均采用c30，其余均c20。本工程设计给水管采用ppr塑料管，热熔连接；排水管采用upvc硬聚氯乙烯管，粘接；给水管道安装除立管及安装ic卡水表的管段明设计外，其余均暗设。本工程设计采暖为钢制高频焊翅片管散热器。本工程设计照明电源采用bv2.5铜芯线，插座电源等采用bv4铜芯线；除客厅为吸顶灯外，其余均采用座灯。二、 施工

44、部署及进度计划1、工期安排本工程合同计划开工日期：2004年8月21日，竣工日期：2005年7月10日，合同工期315天。计划2004年9月15日前完成基础工程，2004年12月30日完成主体结构工程，2005年6月20日完成装修工种，安装工程穿插进行，于2005年7月1日前完成。具体进度计划详见附图1（施工进度计划）。2、施工顺序基础工程工程定位线（验线）挖坑钎探（验坑）砂砾垫层的施工基础砼垫层刷环保沥青 基础放线（预检）砼条形基础刷环保沥青 毛石基础的砌筑构造柱砼地圈梁地沟回填工。结构工程结构定位放线（预检）构造柱钢筋绑扎、定位（隐检）砖墙砌筑（50cm线找平、预检）柱梁、顶板支模（预检）

45、梁板钢筋绑扎（隐检、开盘申请）砼浇筑下一层结构定位放线重复上述施工工序直至顶。内装修工程门窗框安装室内墙面抹灰楼地面门窗安装、油漆五金安装、内部清理通水通电、竣工。外装修工程外装修工程遵循先上后下原则，屋面工程（包括烟道、透气孔、压顶、找平层）结束后，进行大面积装饰，塑钢门窗在装修中逐步插入。三、 施工准备1、 现场道路本工程北靠北京西路，南临规划道路，交通较为方便。场内道路采用级配砂石铺垫，压路机压。2、 机械准备设2台搅拌机，2台水泵。现场设钢筋切断机1台，调直机1台，电焊机2台，1台对焊机。现场设木工锯，木工刨各1台。回填期间设打夯机2台。现场设塔吊2台。3、施工用电施工用电已由建设单位

46、引入现场；根据工程特点，设总配电箱1个，塔吊、搅抖站、搅拌机、切断机、调直机、对焊机、木工棚、楼层用电、生活区各配置配电箱1个；电源均采用三相五线制；各分支均采用钢管埋地；各种机械均设置接零、接地保护。具体配电箱位置详见总施工平面图。3、 施工用水施工用水采用深井水自来水，并砌筑一蓄水池进行蓄水。楼层用水采用钢管焊接给水管，每层留一出水口；给水管不置蓄水池内，由潜水泵进行送水。4、 生活用水生活用水采用自来水。5、 劳动力安排结构期间：瓦工40人；钢筋工15人；木工15人；放线工2人；材料1人；机工4人；电工2人；水暖工2人；架子工8人；电焊工2人；壮工20人。装修期间抹灰工60人；木工4人；

47、油工8人；电工6人；水暖工10人。四、主要施工方法1、施工测量放线施工测量基本要求a、西夏建材城生活区17#、30#住宅楼定位依据：西夏建材城生活区工程总体规划图，北京路、规划道路永久性定位b、根据工程特点及建筑工程施工测量规程dbi012195，4、3、2条，此工程设置精度等级为二级，测角中误差12，边长相对误差1/15000。c、根据施工组织设计中进度控制测量工作进度，明确对工程服务，对工程进度负责的工作目的。工程定位a、根据工程特点，平面布置和定位原则，设置一横一纵两条主控线即27#楼：（a）轴线和（1）轴线；30#楼：（a）轴线和（1）轴线。根据主轴线设置两条次轴线即27#楼：（h）轴线和（27）轴线；30#楼：（h）轴线和（27）轴线。 b、主、次控轴线定位时均布置引桩，引桩采用木桩，后砌一水泥砂浆砖墩；并将轴线标注在四周永久性建筑物或构造物上，施测完成后报建设单位、监理单位确认后另以妥善保护。c、控轴线沿结构逐层弹在墙上，用以控制楼层定位。d、水准点：建设