1、企业人事管理信息系统(doc 8) 开创背景:跟着社会经济的快速成长,企业正想着大年夜型化,范畴化成长,而关于大年夜中小企业,职员,职称等跟人事治理有关的信息也随之加剧增长。在如许的情形下再靠人工来处理这些信息就显得有些困难,同时专门轻易掉足。是以我们依照这些须要将设计一个应用于企业的人事治理体系,由运算机来代替身工完成一系列的工作,诸如职工全然信息,信息修改,查询,打印等操作。如许就使办公人员能够轻松快捷地完成人事治理义务。 体系设计意义、目标经由过程应用企业人事治理体系,使企业的人事治理体系化、规范化、主动化、从而达到进步企业治理效力的目标。体系开创的总体义务是使办公人员能够轻松快捷地完成
2、人事治理的义务。 需求分析:任何一个组织或是集体,实现它内部人员的治理或是各个部分的协同工作差不多上须要的。经由过程应用Access和VB6.0实现一小我事治理信息体系。要求在运算机处理时,依前提的不合,既能够或许处理职工信息按需查询,也能够或许接收治理人员对职工信息的录入和编辑。运算机处理的最终成果是产生各类表,包含职员小我全然信息表,职工家庭情形表。还有是对办事器端的治理,这点也专门关键。最后是打印各类查询和各类表等。 开创设计思惟(1)尽量应用现有软硬件情形,采取先辈的治理开创系兼顾划,从而达到充分应用企业现有资本,进步体系开创水平和应用后果的目标;(2)体系应相符企业人事治理的规定,知
3、足企业相干人员日常应用的须要,并达到操作过程中的直不雅、便利、应用、安稳等要求;(3)体系采取模块化法度榜样设计方法,既便于体系功能的各类组合和修改,又便于未介入开创的技巧爱护人进行补偿、爱护;(4)体系应具备数据库爱护功能,即使依照用户需求进行数据的添加、删除、修改、备份。 体系功能模块设计:人事信息治理体系登录职工信息表查询打印输 出体系维 护退出删除用户添加用户职工全然情形职工家庭情形考察情形按工号查询按姓名查询数据备份数据整顿退出体系职工全然情形职工家庭情形考察情形 1登录界面:数据录入员凭小我帐号暗码进入体系进行录入工作2职工各信息表的输入:包含职工全然情形表、职工家庭情形表、考察情
4、形表等。3按前提查询:包含按工号查询、按姓名查询等。4打印输出:各类情形表的打印输出。5体系爱护:数据备份、整顿。6退出:退出体系 数据项和数据构造如下: 职工全然状况:包含数据库项有职工工号、职工姓名、性别、地点部分、身份证号、平易近族、婚姻状况、参加工作时刻、接洽德律风等。 职工家庭情形:包含数据库项有职工姓名、家庭成员情形、家庭地址等。 考察情形:包含数据库项有部分名称、每周出勤情形等。 数据库表设计:1) 表名:职工全然信息表字段名称字段类型字段大年夜小备注职工号文本8职工号姓名文本10姓名性别文本2性别婚姻状况是/否婚姻状况出身年代日期/时刻日期出身年代学历文本学历户口地点地文本50
5、户口地点地身份证号码数字长整型身份证号码接洽地址文本50接洽地址政治面孔文本20政治面孔部分文本50部分籍贯文本8籍贯2) 表名:职工家庭情形表职工号文本20备注姓名文本20姓名家庭人数文本50家庭人数家庭年收入数字长整型家庭年收入家庭地址文本50家庭地址家庭德律风文本20家庭德律风3)表名:职工考勤表 以下是我做的模块介绍(1) 查询:在菜单中有“查询”按扭,点击那个按扭,能够对职工信息进行加倍具体的查找,如图,当复选职工号或者职工姓名前的小白框,并填写响应的所想查询职工的职员号或姓名,按“查询”,则可激活界面中的查询成果,便可找到要查询的职工的全然信息以及职工家庭情形查询。 具体编码如下:
6、查询”按钮控件源代码Private Sub Command1_Click()Dim rs As New ADODB.Recordset If Option1.Value = True Then txtsql = select * from 职工家庭情形 where 职工号= & Chr(39) & Trim(Text8.Text) & Chr(39) rs.Open txtsql, Cnn, adOpenStatic, adLockOptimistic, 1 Text1.Text = rs.Fields(1) Text2.Text = rs.Fields(0) Text3.Text = rs
7、Fields(2) Text4.Text = rs.Fields(3) Text5.Text = rs.Fields(4) Text6.Text = rs.Fields(5) Else If Option2.Value = True Then txtsql = select * from 职工家庭情形 where 姓名= & Chr(39) & Trim(Text7.Text) & Chr(39) rs.Open txtsql, Cnn, adOpenStatic, adLockOptimistic, 1 Text1.Text = rs.Fields(1) Text2.Text = rs.F
8、ields(0) Text3.Text = rs.Fields(2) Text4.Text = rs.Fields(3) Text5.Text = rs.Fields(4) Text6.Text = rs.Fields(5) End If End If rs.CloseEnd SubPrivate Sub Form_Load()End Sub (2) 打印输出:进入此面板后,治理员能够打印预览职工的相干信息,为了便于打印输出,应用报表情势输出,分别供给了“职工信息表”、“职工考勤表”和“职工家庭情形表”个报表输出,治理员选择响应的报表进行预览 ,单击“退出”按钮回到主操纵面板(3)体系爱护:那
9、个模块是给治理员应用的专用模块,治理员能够对各个表的数据、各个职员的材料、工资的设定等数据进行数据备份和数据整顿操作,如许便利了治理员在每一次数据更新后,便利的检查每个模块当前的数据和构造情形。 小我小结:在本项目标软件开创的过程中,我周全实践一个面向数据库的应用体系的开创过程,进修了专门多有关的常识。如许的项目对我学过的数据构造,法度榜样设计,数据库,等课程是一个综合性专门高的实践。一些往常没有学得专门扎实的课程的内容,因为须要在实践中应用,刚开端我也认为专门头痛。但回过火再去看有关的教科书,经由一段时刻的研究,对与这些常识点的相干的背景,概念和解决筹划明白得得更透辟了,进修起来也越来越有爱
10、好,越来越轻松。在做那个体系的过程中,法度榜样调试给我留下最深的印象,在调试上花的时刻最多。当调试了半天照样不可的时刻,我都有把机械砸了的冲动。最后翻书查材料,叫同窗协助。这说清晰明了我在日常平凡进修的时刻学的不敷扎实,对缺点研究不敷,编写代码的时刻不敷细心,还有确实是缺乏足够的耐烦。做如许一个体系对我们来说一小我比较困难,要若干小我一路完成。因此还要专门好的团队协作精力。这对我们今后的工作专门有赞助。当我们完成那个项目标时刻,我没有一点快乐。我清醒地熟悉到本身还有专门大年夜的距离,还有专门多要学,照我现在所操纵的常识去工作全然是不敷的。等今后练习的时刻要比别人学得更多更扎实,常识是本身的,别人如何抢都抢不掉落。人和系同一样,要跟着时代的变更赓续地充分,赓续地完美。经由此次实训,我学到专门多,也成熟专门多,推敲工作也没往常那么简单了,先前总认为做如许的实训有什么用啊,现在终于大年夜彻大年夜悟了。在此次实训过程中指导师长教师和同窗都赞助我专门多,专门是指导师长教师,对我们尽心尽责,为我们操了许多心,确实专门感激她。 参考材料Visual Basic 数据库开创实例解析作者 刘志铭,孙健鹏 机械工业出版社出版visual basic6.0法度榜样设计技能百练作者 第一时刻工作室 中国铁道出版社出版03信息治理2班乔静波2006年1月6日