数据库管理系统企业员工信息管理

1、数据库应用技术课 程 设 计 说 明 书题目： 企业员工信息管理系统学院（系）：专业班级：学 号：学生姓名：指导教师：教师职称：起止时间： 20-辽宁工业大学课程设计（论文）任务书院（系）： 教研室： 软件工程学号学生姓名 专业班级设计题目企业员工信息管理系统设计技术 参数1 题目要达到的目标：完成系统的登陆、数据的插入删除修改统计等基本操作。2 数据库： SQLSERVER200。03 所使用的语言、工具 :VB6.0+ SQLSERVER2000+WINDOWSX。P4 所采用的技术、系统结构 :ADO 数据库联接技术。设 计 要 求1 教师布置实习任务和要求时，不得缺席，并做好记录。2

2、上机前预先把所有的源程序编写好。3 上机时不得迟到，不得缺席，爱护设备，认真调试程序。4 仔细查阅相关资料，认真完成思考题。5 按要求书写设计任务书，并按要求按版打印，不得雷同。工作量二周工 作 计 划周一听取教师布置设计的任务及要求。 周二学生查阅相关资料，进行数据库设计。 周三至周五：详细设计与界面设计。 周一至周四程序设计与上机，调试源程序。 周五书写课程设计任务书。参考资料数据库应用技术数据库应用技术实验指导书自编数据库应用技术课程设计大纲自编等指导教师 评语教师： 学生：说明：此表一式四份，学生、指导教师、教研室、系部各一份。可加附页。2011 年 12 月 31 日目录第一章 概述

3、 第二章 问题定义 第三章 需求分析 第四章 数据库设计 第五章 界面设计 第六章 代码与注释 设计总结 参考文献 第一章 概述企业人事档案是企业在人事管理活动中形成的重要人事记录。人事档案在发展中 国特色社会主义过程中 , 是人力资源储备、促进人才合理流动、科学配置和合理使用人 才, 全面考察了解、正确评价和使用人才的重要依据。但是 , 有的企业却片面地认为 , 人 事档案不过是人的经历记录，其本身不能直接带来经济效益，管好管坏无所谓，所以 对人事档案工作在管理制度、管理手段、管理模式、管理人员等方面不够重视，存在 着这样和那样的问题，影响了企业的改革和发展。因此，研究开发出一套比较通用、

4、功能比较完善的企业员工培训管理软件，力求在这一领域取得一些新的成果。员工管理系统是一个企事业单位不可缺少的部分 , 它的内容对于企事业单位的决策 者和管理者来说都至关重要 , 所以员工管理系统应该能够为用户提供充足的信息和快捷 的查询手段。但一直以来人们使用传统人工的方式管理文件信息，这种管理方式存在着 许多缺点,如:效率低、保密性差 ,另外时间一长 ,将产生大量的文件和数据 ,这对于查找、 更新和维护都带来了不少的困难。随着科学技术的不断提高 ,计算机科学日渐成熟 , 其强大的功能已为人们深刻认识 , 它已进入人类社会的各个领域并发挥着越来越重要的作用。第二章 问题定义用户管理：系统的登录人

5、员，需要通过密码才能进入。他们拥有对系统数据的登 录界面，信息查询，部门 / 职务管理，密码修改等操作权限。管理员管理：员工信息管理，员工工资管理，员工部门 / 职务的管理，用户管理， 退出的详细信息的管理。可以对系统密码进行更改，可以管理用户信息、权限。员工信息管理：指管理系统的管理人员，可以查询到员工信息编号，姓名，出生 年月，现任职务，所属部门，开始工作时间，进单位时间，身份证号，联系电话，家 庭住址，填表时间等。第三章 需求分析一、数据库需求分析企业员工信息管理系统的开发任务是为了减轻工作人员的工作负担，为了管理工 作能够系统化、规范化和自动化而开发的。作为企业发展战略的重要组成部分，

6、人员 工作是其中的重中之重，是企业赖以生存的命脉，市场经济条件下，在企业中起决定 作用的除企业产品、服务之外，人员的作用越来越为明显。作为企业“选、育、用、 留、汰”的重要部门人力资源部，对员工信息管理工作的支持将发挥越来越大的 作用。培训部作为人力资源工作中“育”的主要执行部门就处于“承上启下”的重要 地位，所谓“承上”即承接“选才”后的培训工作，所谓“启下”即通过培训，更好 的“用人”和更好的“留人”。企业员工管理系统是将企业的人事管理、工资管理、考勤管理有机相合，综合运 用的一个企业管理软件，它使企业的人事管理由以往的手工作业，向自动化、网络 化、现代化迈进了一大步。从而使企业的人事管理

7、人员从繁重的人事管理中解放出 来，大大提高了工作效率，减轻了管理人员的工作量。企业员工管理系统的数据需求包括如下几点：数据的一致性与完整性由于系统的数据是共享的，在不同的公司中，员工信息是共享数据，所以如何保 证这些数据的一致性，是系统必须解决的问题。要解决这一问题，要有一定的人员维 护数据的一致性，在数据录入处控制数据的去向，并且要求对数据库的数据完整性进 行严格的约束。二、数据库概念的结构设计数据库是数据库应用程序的重要组成部分。一个设计结构合理的数据库对于应用 程序的开发效率和程序的性能都是非常重要的。数据库的设计过程大致如下： 根据用户需求，确定数据库中要保存的数据信息对用户需求进行分

8、析是数据库设计的第一个阶段。不断地调查与研究用户需求， 了解企业运作流程等系统需求，是设计概念模型的基础。设计数据的概念模型概念模型是按用户的观点来对数据建模，是用于进行信息世界建模的工具。它对 整个数据库的设计具有深刻的影响。三、数据库的逻辑结构设计 ：此企业员工信息管理系统由用户登录，管理员登录，信息查询，部门职务管理，EID 员工登陆属性表的主键作为员密码修改，营销资源管理，员工信息管理，员工工资管理等部分组成。员工登陆属性表，用员工姓名做为主键，员工信息属性表主键是YID ，员工信息的主键作为其外键； 主键为 ENAME 。管理员登陆属性工登陆属性表的外键；公司信息属性表，主键是 员工

9、工资表，主键为 PID。员工信息查询属性表，表，主键为 CHANGETYPE 。四、数据字典（ DD）:企业员工信息管理基本信息表 =用户登录 +管理员登录用户登录表=员工信息+员工工资登记 +员工部门职务登记管理员登录表 =员工信息管理 +员工工作管理 +员工部门职务管理 +用户管理五、程序流程图：管理员登管理员管企业登员录工类资型料选信择息系用户登用户管员 工 信 息 管 理工3.2 资企业管理员工工部信门息管理营销管户理系职务员面员能模工块工信工息资登登记记界信息查员询工密 码 修 改部 门 职 务 登 记第四章 数据库设计一、概念设计：系统 ER 图公司利用管理员管理员工 公司属性是：

10、工资管理信息，奖惩管理信息，考勤管理信息。 管理员负责对各种信息的输入与输出 员工属性是：姓名，性别，年龄，部门，联系方式，身份证号码图 4.1 E-R 图、逻辑设计：下面列出几个主要的数据库表设计： 在开发企业员工信息管理系统的过程中，因为要多处用到对数据库的操作，所以 这些操作在每次用到时在每个 VB 程序中去实现。根据企业员工信息系统数据库模块 图分析可知道，各表所包含的字段的列名，数据类型，长度，是否允许为空等具体情 况如下：表 4.1 数据库用户登陆表字段名称标识名称数据类型空否字段说明Uname用户名 / 管理员名charN主码Upassword密码charNUtype用户身份ch

11、arN表 4.2 数据库员工信息查询表字段名称标识名称数据类型空否字段说明yid员工编号CharN主码changeid变动编号CharNchangetype变动类型CharNename姓名CharNnowduty现任职务 / 部门CharNbeforeduty曾任职务 / 部门CharNchangereason变动原因CharNchangetime变动时间DatetimeN表 4.3 数据库员工工资表字段名称标识名称数据类型空否字段说明pid员工编号CharN主码pay基本工资FloatNprize奖金FloatN三、物理设计查询模块 对在职员工进行查询 查询包括按编号或者姓名或者身份证号等位

12、关键字查询 对离职员工进行查询同上操作模块对员工的基本信息进行录入，修改。员工信息应该包括：学号、姓名、年龄、学历 （不多于 3 个）、地址、身份证号码 （不多于 19 个）、部分、职务、籍贯、名族、政治身份。照片录入。员工的调动和升降职位对员工进行离职操作维护模块员工信息的修改，员工信息的删除。查看数据库看是否有此员工编号存在Adodc1.CommandType = adCmdTextAdodc1.RecordSource = select * from employermessege where eid= &Trim（Textid.Text） & Adodc1.RefreshMsgBox

13、此员工编号已经存在，不能进行登记！ , vbOKOnly + vbExclamation,警告Textid.Text = Textid.SetFocusExit SubEnd If登陆窗口如下所示：第五章 界面设计在企业员工管理系统中主窗台界面中包括用户登录管理，管理员登录 . 。图 5.1 主 窗体截图。图 5.1 主窗体截图 在企业员工信息管理系统中单击用户登录模块可以进行、新用户注册 .登录. 退 出。用户登录表窗体截图如图 5.2 所示。图 5.2 用户登录截图在企业员工信息管理系统中登录用户管理进入此模块，此模块主要完成对产品登 录界面，信息查询，部门 / 职务的管理，密码修改，退出

14、的详细信息的管理。用户管理 表窗体截图如图 5.3 所示。图 5.3 产品信息表截图图 5.3 用户登录表截图 在企业员工信息管理系统中登录管理员管理进入此模块，此模块主要完成员工信 息管理，员工工资管理，员工部门 / 职务的管理，用户管理，退出的详细信息的管理。 管理员管理表窗体截图如图 5.4 所示。图 5.4 管理员登录管理表截图在企业员工信息管理系统中登录管理员管理进入员工信息管理模块，此模块主要 完成员工信息编号，姓名，出生年月，现任职务，所属部门，开始工作时间，进单位 时间，身份证号，联系电话，家庭住址，填表时间等。员工信息管理表窗体截图如图 5.5 所示。图 5.5 员工信息管理

15、表截图第六章 代码与注释一、登录代码Option ExplicitPublic OK As BooleanDim miCount As IntegerPrivate Sub Form_Load()OK = FalsemiCount = 0End SubPrivate Sub cmdOK_Click()Dim txtsql As StringDim mrc As ADODB.RecordsetDim MsgText As StringUserName = If Trim(txtUserName.Text = ) ThenMsgBox 没有这个用户，请重新输入用户名！, vbOKOnly + vb

16、Exclamation, 警告 txtUserName.SetFocusElsetxtsql = select * from user_Info where user_ID=& txtUserName.Text &Set mrc = ExecuteSQL(txtsql, MsgText)If mrc.EOF = True ThenMsgBox 没有这个用户，请重新输入用户名！, vbOKOnly + vbExclamation, 警告 txtUserName.SetFocusElseIf Trim(mrc.Fields(1) = Trim(txtPassword.Text) ThenOK =

17、Truemrc.CloseMe.HideUserName = Trim(txtUserName.Text)ElseMsgBox 输入密码不正确，请重新输入！, vbOKOnly + vbExclamation, 警告 txtPassword.SetFocustxtPassword.Text = End IfEnd IfEnd IfmiCount = miCount + 1If miCount = 3 ThenMe.HideEnd IfExit Sub二、员工部门 / 职务代码Private Sub Command1_Click()判断员工编号是否为空If Textid.Text = ThenM

18、sgBox 员工编号不能为空！ , vbOKOnly + vbExclamation, 警告 Textid.SetFocusExit SubEnd If查看数据库看是否有此编号的员工存在Adodc2.CommandType = adCmdTextAdodc2.RecordSource = select * from employermessege where eid= & Trim(Textid.Text) & Adodc2.RefreshMsgBox 此员工不存在，不能进行登记，请先填写正确员工编号！, vbOKOnly + vbExclamation, 警告Textid.Text = Te

19、xtid.SetFocusExit SubEnd If 查看数据库看此编号是否已登记Adodc1.CommandType = adCmdTextAdodc1.RecordSource = select * from bd where yid= & Trim(Textid.Text) & Adodc1.RefreshMsgBox 此员工已经登记！ , vbOKOnly + vbExclamation, 警告 Textid.Text = Textid.SetFocusExit SubEnd If查看姓名是否为空If Textname.Text = ThenMsgBox 姓名不能为空！ , vbOK

20、Only + vbExclamation, 警告 Textname.SetFocusExit SubEnd If查看曾任职务是否为空If Textbeforeduty.Text = ThenMsgBox 曾任职务不能为空！ , vbOKOnly + vbExclamation, 警告 Textbeforeduty.SetFocusExit SubEnd If查看现任职务是否为空If Textnowduty.Text = ThenMsgBox 现任职务不能为空！ , vbOKOnly + vbExclamation, 警告 Textnowduty.SetFocusExit SubEnd If三、

21、管理员管理用户代码Private Sub Command1_Click()End SubPrivate Sub Command2_Click()Exit SubEnd IfEnd IfEnd SubPrivate Sub Command3_Click()Exit SubEnd IfEnd IfEnd SubPrivate Sub Command4_Click()End SubPrivate Sub Command5_Click()Text3.Enabled = TrueCommand1.Enabled = FalseCommand2.Enabled = FalseCommand3.Enable

22、d = FalseCommand4.Enabled = FalseCommand5.Enabled = FalseCommand6.Enabled = FalseText1.DataField = Text2.DataField = Text3.DataField = End SubPrivate Sub Command6_Click()Dim res As Stringres = MsgBox( 你确定要删除此信息吗？ , vbQuestion + vbYesNo, 提示 )If res = vbYes ThenEnd IfEnd IfEnd SubPrivate Sub Command7_

23、Click()Dim res As Stringres = MsgBox( 你确定要更新此信息吗？ , vbQuestion + vbYesNo, 提示 )If res = vbYes ThenAdodc1.RecordSource = select * from usermessege where uname= & Trim(Text1.Text) & MsgBox 此用户名已经存在，请另外选择用户名！, vbOKOnly + vbExclamation, 警告 Text1.SetFocusExit SubEnd IfMsgBox 信息修改成功！ , vbOKOnly + vbExclama

24、tion, 提示 End IfText1.Enabled = FalseText2.Enabled = FalseText3.Enabled = FalseCommand1.Enabled = TrueCommand2.Enabled = TrueCommand3.Enabled = TrueCommand4.Enabled = TrueCommand5.Enabled = TrueCommand6.Enabled = TrueText1.DataField = UnameText2.DataField = UpasswordText3.DataField = UtypeEnd SubPriv

25、ate Sub Command8_Click()Text1.Enabled = FalseText2.Enabled = FalseText3.Enabled = FalseCommand1.Enabled = TrueCommand2.Enabled = TrueCommand3.Enabled = TrueCommand4.Enabled = TrueCommand5.Enabled = TrueCommand6.Enabled = TrueFormglygl.ShowMe.HideEnd Sub三、密码修改Private Sub Command1_Click()判断原密码是否为空If L

26、en(Trim(Text1.Text) = 0 ThenMsgBox 原密码不允许为空！ , vbOKOnly + vbExclamation, 警告 Text1.SetFocusExit SubEnd If判断原密码是否正确Adodc1.CommandType = adCmdTextAdodc1.RecordSource = select * from usermessege where uname= & Label2.Caption & Adodc1.RefreshMsgBox 原密码不正确！ , vbOKOnly + vbExclamation, 警告 Text1.Text = Text

27、2.Text = Text3.Text = Text1.SetFocusExit SubEnd If判断新密码是否为空If Len(Trim(Text2.Text) = 0 ThenMsgBox 新密码不允许为空！ , vbOKOnly + vbExclamation, 警告 Text2.SetFocusExit SubEnd If限制密码长度If Len(Trim(Text2.Text) 16 ThenMsgBox 密码必须为 6-16 位！, vbOKOnly + vbExclamation, 警告 Text2.Text = Text3.Text = Text2.SetFocusExit

28、SubEnd If判断灾次输入的密码是否为空If Len(Trim(Text3.Text) = 0 ThenMsgBox 请再次输入密码！ , vbOKOnly + vbExclamation, 警告 Text3.SetFocusExit SubEnd If判断两次所输入的密码是否一致If Text2.Text Text3.Text ThenMsgBox 输入密码不一致，请重新输入 , vbOKOnly + vbExclamation, 警告Text2.Text = Text3.Text = Text2.SetFocusExit SubEnd If提示 修改密码MsgBox 恭喜你，修改密码成

29、功！请记住你的新密码！, vbOKOnly + vbExclamation, Adodc1.RefreshText1.Text = Text2.Text = Text3.Text = Formyhgl.ShowMe.HideEnd SubPrivate Sub Command2_Click()Text1.Text = Text2.Text = Text3.Text = End SubPrivate Sub Command3_Click()Formyhgl.ShowMe.HideEnd SubPrivate Sub Form_Load()End Sub设计总结一个完整的学生信息管理系统就创建完毕了。在本例中我们详细地讲述了该学生 信息管理系统的系统设计部分，包括功能模块设计、数据库结构设计等。系统设计为 整个程序构建了骨架，各个功能模块实现各个细节部分。在本项目的软件开发的过程中，我全面实践一个面向数据库的应用系统的开发过 程，学习了很多有关的知识。这样的项目对我学过的数据结构，程序设计，数据库， VB等课程是一个综合性很高的实践。一些以前没有学得很杂实的课程的内容，由于需 要在实践中运用，刚开始我也感到很头痛。但回过头再去看有关的教科书，经过一段 时间的钻研，对与这些知