vb员工信息管理系统

1、员工信息管理系统1. 需求分析通过用VB6.0编写员工信息管理系统，掌握Visual Basic语言的数据类型、 表达式、程序结构与流程控件语句、数组、函数、过程的概念与使用方法； 掌握程序界面中菜单、工具栏、状态栏的设计方法，能用对话框设计单文档程序， 掌握MDI多窗体程序的设计方法；了解数据库应用程序的结构，初步掌握以DATA 控件、ADO空件、ADM象为数据源，设计数据库应用程序的方法；。该系统主要考虑了员工信息管理需求：，支持多条件查询；修改、添加、查询、 删除数据方便简单，数据稳定性好。本系统可以对员工基本信息进行添加，修改， 删除，查询操作，还可以对员工的调动信息进行添加， 删除，

2、修改，查询等操作。 真正实现了员工信息管理的自动化和信息化。2. 概要设计2.1系统结构图1员工信息管理信息2.2数据库设计数据库设计是数据库管理系统的第二个步骤，应根据系统功能模块绘制系统 数据流图，总数据字典，设计数据库结构。根据员工信息管理系统的需求，总结出下面的数据字典：(1) 用户数据：部工作人员使用员工信息管理系统的身份数据，包括的数据项有 用户名、密码。(2) 员工基本信息数据：包括的数据项有员工编号、员工、性别、籍贯、年龄、 生日、学历、专业、地址、邮编、入职时间、部门、职位等。(3) 员工调职信息数据：包括的数据项有员工编号、员工、原部门、新部门、原 职务、新职务、调出时间、

3、调入时间等。(4) 员工人数信息数据：包括的数据项有员工人数。本员工信息管理系统使用 Access创建员工信息管理系统的数据库。根据前 面分析的数据字典，为每一个数据建立一个数据表。各个数据表的的结构分别如 下：1) 用户数据表用户数据表命名为“用户表”，其结构如表1所示。其中“用户名”字段定 义为主键(Primary Key ) .not null表示不允许空值。表1 用户表结构字段名数据类型说明用户名Char主键，字段大小为6密码Char字段大小为62) 员工基本信息表：其结构如表2所示。其中，“员工编号”字段定义为主键(Primary Key).表2员工基本信息数据表结构字段名数据类型说

4、明编号Varchar自动编号,主键Varchar不为空性别char不为空籍贯Varchar不为空年龄Int不为空出生日期smalldatatime不为空学历Varchar不为空专业Varchar不为空地址Varchar不为空邮编Varchar不为空Varchar可为空Varchar可为空入职时间smalldatatime不为空进入公司时间smalldatatime不为空参加工作时间smalldatatime不为空起薪时间smalldatatime不为空职位Varchar不为空3）员工调动信息表：其结构如表 3所示。包括的数据项有员工编号、员工、 原部门、新部门、原职务、新职务、调出时间、调入时

5、间等。表3读者类别数据表结构字段名数据类型说明记录编号char主键，字段为1员工编号varchar不为空，字段为8员工varchar不为空原部门varchar不为空新部门varchar不为空原职务varchar不为空新职务varchar不为空调出时间smalldatatime不为空调入时间smalldatatime不为空4）员工人数信息数据：包括的数据项有员工人数表4员工人数数据表结构字段名数据类型说明员工人数Int主键3详细设计3.1运行流程当程序运行这后，你首先看到的界面如下图所示，其中窗体的顶部有菜单编 辑器，分别有系统， 员工基本信息，员工调动信息，打印报表，帮助等菜单。窗体作为程序的

6、启动窗体。使用菜单编辑器为主窗体添加多级子菜单：添加员工 信息，修改员工信息，删除员工信息，查询员工信息，添加员工调动信息， 删除员工调动信息，修改员工调动信息，查询员工调动信息，帮助。系统主窗体 如图2所示单击”修改密码”子菜单，则进入修改密码窗体。窗体中使用文本框显示旧 密码，新密码，确认密码数据。单击“确定”按钮可添加修改密码。数据库的 uerinfo表中则相应的修改这一条纪录。单击“取消”按钮，可取消修改用户的 密码。用户管理窗体如图3所示图4密码管理窗体单击“员工基本信息”子菜单可以看到它有四个子菜单。其中单击“添加员工信息”子菜单，进入员工基本信息窗体。在窗体中可 设置各种员工信息

7、。单击“确定”按钮，可保存当前设置，单击“取消”按钮可 取消记录的设置。添加员工信息窗体如图5所示。潜in员二基本信息员工基本借息个人基本信息个人工作信息 爹加工作吁何；本处司起薪吋间;遊入本公司时间=所在邵门；2002-2-1备注倨息取消图5员工信息管理信息其中单击“查询员工信息”子菜单，进入查询员工基本信息窗体。在窗体中可根据员工编号，员工以及员工的入职时间，其中任意一项信息，都可以查 询。单击“确定”按钮，开始查询，单击“取消”按钮可取消此操作。添加员工信息窗体如图6所示。图6查询员工基本信息其中单击“修改员工信息”子菜单，进入员工修改信息窗体。在窗体中可 根据员工编号，员工以及员工的入

8、职时间，其中任意一项信息，都可以确定员工 的信息。然后右键点击选中的员工信息，贝U会弹出员工基本信息表，此时，就可 以修改员工信息了。单击“确定”按钮，则会弹出提示框，提示修改成功，数据 库中也会相应的修改。单击“取消”按钮可取消此操作。其中单击“删除工信息”子菜单，进入员工删除信息窗体。在窗体中可根 据员工编号，员工以及员工的入职时间，其中任意一项信息，都可以确定员工的 信息。然后右键点击选中的员工信息，贝U会弹出菜单提示删除的操作，此时， 就可以删除员工信息了。单击“确定”按钮，则会弹出提示框，提示删除成功， 数据库中也会相应的修改。单击“取消”按钮可取消此操作。单击“员工调动信息”子菜单

9、可以看到它有四个子菜单。其中单击“查询员工调动信息”子菜单，进入员工调动信息窗体。在窗体 中可根据员工编号，员工的调出时间，其中任意一项信息，都可以查询。单击“确 定”按钮，开始查询，单击“取消”按钮可取消此操作。添加员工信息窗体如图 7所示。图7查询员工调动信息其中单击“添加员工调动信息”子菜单，进入员工调动信息窗体。在窗体 中可设置各种员工调动信息。单击“确定”按钮，可保存当前设置，单击“取消” 按钮可取消记录的设置。添加员工调动信息窗体如图8所示。图8添加员工调动信息其中单击“修改员工调动信息”子菜单，进入员工基本信息窗体。在窗体 中可根据员工编号、员工的调出时间，其中任意一项信息，都可

10、以确定员工的信 息。然后右键点击选中的员工信息，贝U会弹出员工基本信息表，此时，就可以修 改员工信息了。单击“确定”按钮，则会弹出提示框，提示修改成功，数据库中 也会相应的修改。单击“取消”按钮可取消此操作。其中单击“删除员工调动信息”子菜单，进入员工基本信息窗体。在窗体 中可根据员工编号、员工的调出时间，其中任意一项信息，都可以确定员工的信 息。然后右键点击选中的员工信息，贝U会弹出员工基本信息表，此时，就可以删 除员工信息了。单击“确定”按钮，则会弹出提示框，提示删除成功，数据库中 也会相应的修改。单击“取消”按钮可取消此操作。244系统登录员工信息管理系统在启动时首先显示登录窗体， 用户

11、输入用户名和密码后, 单击“确定”按钮登录。如果用户名和密码正确，则启动系统主窗体。单击“取 消”按钮则取消登录。系统登录窗体如图9所示。图9系统登录窗体3. 设计结果与分析在完成了程序各个功能模块的创建之后，就可以运行整个系统了。运行程 序，进入系统，界面如图10所示：图10系统主窗体登录系统由用户登录、修改密码、退出系统等组成。系统管理由添加用户、修改 密码和退出系统组成，其中管理员中可以对员工的基本信息进行添加，修改，查 询，删除操作；还可以对员工的调动信息进行添加，修改，查询，删除操作；还 可以将员工的基本信息和员工的调动信息打印报表。界面如图 11所示：11 S' 酣【won

12、 刘讹:azzaSIwp:STouti»张飞r2D硕士ST工图币ttMft#®A图11员工信息打印报表4. 设计体会通过本次课程设计，使我从更深的层次了解了VB的设计技巧和应用方法。在程序的编制和调试过程中，我从中学到了很多有用的方法，比如通过本次设计， 我更深刻的体会到了 VB系统的方便与实用。在课程设计的过程中，我对课本上 的知识进行了复习，从中找出了不少盲点，由衷地感觉到学习过程中应该把学的 知识作扎实，多动手多思考，这样才能最大限度的减少知识的漏洞。把课本上的东西变成实际的东西，让其有使用的价值，是一件很让人高兴的事。我切实的体会到 VB这门课程是有用处的，它解释了

13、我平时学习中的很多 疑惑，让我增长了很多见识。5. 参考文献1 天惠.Visual Basic 程序设计教程M.:清华大学大学，2003.12-242 龚沛曾.Visual Basic 程序设计教程M.高等教育,2004.28-453 加伏.Visual Basic 程序设计教程M.: 邮电大学，2003.10-564 Microsoft .Visual Basic 6.0中文版控件大全M:电子工业,2004.15 236 .附录源程序代码如下：(1) 用户登录窗体Private Sub cmdOK_Click()Dim SQL As Stri ngDim rs As ADODB.Record

14、setIf Trim(UserName.Text = "") ThenMsgBox "没有输入用户名称，请重新输入!", vbOKO nly + vbExclamatio n,"警告IIUserName.SetFocusElse'查询用户SQL = "select * from Userlnfo where UserID='" & UserName.Text & ""'Set rs = Tran sactSQL(SQL)If iflag = 1 The nIf rs

15、.EOF = True The nMsgBox "没有这个用户，请重新输入！", vbOKO nly + vbExclamatio n,"I!警告UserName.SetFocusElseIf Trim(rs.Fields(1) = Trim(PassWord.Text) The nrs.CloseMe.HidegUserName = Trim(UserName.Text) '保存用户名称FrmMai n. ShowUn load MeElseMsgBox "密码不正确，请重新输入！", vbOKO nly + vbExclamatio

16、 n,I!I!警告PassWord.SetFocusPassWord.Text =""End IfEnd IfElseUn load MeEnd IfEnd IfpwdCou nt = pwdCou nt + 1'判断输入次数If pwdCou nt = 3 The nUn load MeExit SubEnd IfEnd SubPrivate Sub Form_Load()pwdCo unt = 0gUserName =""End SubPrivate Sub PassWord_KeyDow n(KeyCode As In teger, Shi

17、ft As In teger)TabToE nter KeyCodeEnd SubPrivate Sub UserName_KeyDow n( KeyCode As In teger, Shift As In teger)TabToE nter KeyCodeEnd Sub(2) 添加用户窗体Opti on ExplicitPublic strl As Stri ng'保存修改时的 SQL语句Public ID As In teger'保存记录编号Private baddflag As Boolea nrivate Sub AID_KeyDow n(KeyCode As In

18、teger, Shift As In teger)TabToE nter KeyCodeEnd SubPrivate Sub AID_LostFocus()Dim SQL As Stri ngDim rs As New ADODB.RecordsetSQL = "select SName,SDept,SPositi on from StuffI nfo where SID='" & & "”Set rs = Tran sactSQL(SQL)If rs.EOF = False The nMe.AName = rs(0)'初始化员工M

19、e.AOldDept = rs(1)Me.AOldPosition = rs(2)ElseMsgBox "员工编号输入错误，或者没有这个员工！", vbOKOnly + vbExclamation,"IIMe.AID =""End Ifrs.CloseEnd Sub课程设计说明书NO.19Private Sub cmdCa ncel_Click()Un load MeExit SubEnd Sub rivate Sub check in put()If Me.ANewPositi on = "" The nMsgBox &q

20、uot;请输入新的职务！", vbOKO nly + vbExclamatio n,"警告！IIMe.ANewPositio n.SetFocusElseIf Me.AOutTime = "" Or IsDate(Me.AOutTime) = False ThenMsgBox "请输入正确的调出时间！", vbOKO nly + vbExclamatio n,"警告！I IIMe.AOutTime =""ElseIf Me.AI nTime = "" Or lsDate(Me.A In

21、 Time) = False ThenMsgBox "请输入正确的调入时间！", vbOKO nly + vbExclamatio n,"警告！I IIMe.AI nTime =""Me.AI nTime.SetFocusElsebaddflag = TrueEnd IfEnd SubPrivate Sub cmdOK_Click()Dim SQL As Stri ngDim rs As New ADODB.RecordsetNo.20添加结果!课程设计说明书baddflag = FalseCall check in putIf baddfla

22、g = True ThenIf flag = 1 The n'Call checki nputSQL = "select * from Alteratio nlnfo"Set rs = Tran sactSQL(SQL)rs.AddNewrs.Fields(l)=Me.AIDrs.Fields (2)=Me.ANamers.Fields (3)=Me.AOldDeptrs.Fields (4)=Me.ANewDeptrs.Fields (5)=Me.AOldPositi onrs.Fields (6)=Me.ANewPositionrs.Fields =Me.AOu

23、tTimers.Fields(8)=Me.AI nTimers.Fields(9)=Me.ARemarkrs.Updaters.CloseSQL = "update Stuffl nfo set SDept='" & Me.ANewDept & "', SPositio n="'SQL = SQL & Me.ANewPositi on & "' where SID='" & Me.AID & "”'Tran sactSQL (SQ

24、L)MsgBox "已经添加调动信息！", vbOKO nly + vbExclamatio n,"SQL = "select * from Alteratio nlnfo order by ID"课程设计说明书NO.21+ App.Path + "Perso n.mdb"If SQL <> "" The nEnd IfElse'修改记录'Call checki nputSQL = "update StuffI nfo set SDept='" &a

25、mp; Me.ANewDept & "', SPositio n="'SQL = SQL & Me.ANewPositi on & "' where SID='" & Me.AID & "”'Tran sactSQL (SQL)SQL = "update Alterationlnfoset AOldDept='" & Me.AOIdDept & "',ANewDept='"SQL = S

26、QL & Me.ANewDept & "',AOIdPositio n=”' & Me.AOIdPositi onSQL = SQL & "',ANewPosition=”'& Me.ANewPosition & "',AOutTime=#" &Me.AOutTimeSQL = SQL & "#,AInTime=#" & Me.AInTime & "# where ID=" & IDTra

27、n sactSQL (SQL)MsgBox "已经修改信息！", vbOKO nly + vbExclamati on,"修改结果！"Un load MeSQL = "select * from Alteratio nlnfo order by ID"+ App.Path + "Perso n.mdb"If SQL <> "" The nEnd If课程设计说明书NO.22frmAlterati on Result.ShowfrmAlteratio nResult.ZOrder 0C

28、all initMe.ZOrder 0End IfEnd IfEnd Sub(3) 查询员工信息窗体Opti on ExplicitPrivate query As StringPrivate fromdate As Stri ngPrivate todate As Stri ngPrivate Sub cmdCa ncel_Click()Un load MeExit SubEnd SubPrivate Sub Combi neDate()& "-" & Me.FromMo nth.Text & "-1"& "-"& & "-1","yyyy-mm-dd")& "-" & & "-1"todate =