vb员工信息管理系统

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

2、行添添加，修修改，删删除，查查询操作作，还可可以对员员工的调调动信息息进行添添加，删删除，修修改，查查询等操操作。真正实现现了员工工信息管管理的自自动化和和信息化化。2概要要设计2.1系系统结构构沈 阳阳 大大 学学课程设计计说明书书NO.2管理员登录修改口令输入用户名和密码判断用户名和密码进入主界面退 出员工信息管理系统1系统2 员工基本信息3员工调动信息5帮助退 出添加员工信息修改员工信息查询员工信息添加调动信息修改密码添加用户删除员工信息修改调动信息查询调动信息员工基本信息员工调动信息删除调动信息关于4打印报表图1员工工信息管管理信息息沈 阳阳 大大 学学课程设计计说明书书NO.32.2

3、数数据库设设计数据库设设计是数数据库管管理系统统的第二二个步骤骤，应根根据系统统功能模模块绘制制系统数数据流图图，总数数据字典典，设计计数据库库结构。根据员工工信息管管理系统统的需求求，总结结出下面面的数据据字典：(1)用用户数据据：内部部工作人人员使用用员工信信息管理理系统的的身份数数据，包包括的数数据项有有用户名名、密码码。(2)员员工基本本信息数数据：包包括的数数据项有有员工编号号、员工工姓名、性别、籍贯、年龄、生生日、学学历、专专业、地地址、邮邮编、电电话、邮邮箱、入入职时间间、部门门、职位位等。(3)员员工调职职信息数数据：包包括的数数据项有有员工编编号、员员工姓名名、原部部门、新新

4、部门、原职务务、新职职务、调调出时间间、调入入时间等等。(4)员员工人数数信息数数据：包包括的数数据项有有员工人人数。本员工信信息管理理系统使使用Acccesss创建建员工信信息管理理系统的的数据库库。根据据前面分分析的数数据字典典，为每每一个数数据建立立一个数数据表。各个数数据表的的的结构构分别如如下:1)用户户数据表表用户数据据表命名名为“用户表”，其结结构如表表1所示示。其中中“用户名名”字段定定义为主主键（PPrimmaryy Keey）.nott nuull表表示不允允许空值值。表1 用户户表结构构字段名数据类型说明用户名Char主键，字段大小为6密码Char字段大小为62)员工工基

5、本信信息表：其结构构如表22所示。其中，“员工编号”字段定义为主键（Primary Key）.沈 阳阳 大大 学学课程设计计说明书书NO.4沈 阳阳 大大 学学课程设计计说明书书NO.5表2 员员工基本本信息数数据表结结构字段名数据类型说明编号Varchar自动编号,主键姓名Varchar不为空性别char不为空籍贯Varchar不为空年龄Int不为空出生日期smalldatatime不为空学历Varchar不为空专业Varchar不为空地址Varchar不为空邮编Varchar不为空电话Varchar可为空邮箱Varchar可为空入职时间smalldatatime不为空进入公司时间small

6、datatime不为空参加工作时间smalldatatime不为空起薪时间smalldatatime不为空职位Varchar不为空3)员工工调动信息息表：其其结构如如表3所示。包括的的数据项项有员工工编号、员工姓姓名、原原部门、新部门门、原职职务、新新职务、调出时时间、调调入时间间等。沈 阳阳 大大 学学课程设计计说明书书NO.6表3 读读者类别别数据表表结构字段名数据类型说明记录编号char主键，字段为1员工编号varchar不为空，字段为8员工姓名varchar不为空原部门varchar不为空新部门varchar不为空原职务varchar不为空新职务varchar不为空调出时间smalld

7、atatime不为空调入时间smalldatatime不为空4)员工工人数信信息数据据：包括括的数据据项有员员工人数数表4员工工人数数数据表结结构字段名数据类型说明员工人数Int主键3.详细细设计3.1运运行流程程当程序运运行这后后，你首首先看到到的界面面如下图图所示，其其中窗体体的顶部部有菜单单编辑器器，分别别有系统统，员工工基本信信息，员员工调动动信息，打打印报表表，帮助助等菜单单。窗体作作为程序序的启动动窗体。使用菜菜单编辑辑器为主主窗体添添加多级级子菜单：添添加员工工信息，修修改员工工信息，删删除员工工信息，查查询员工工信息，添添加员工工调动信信息，删除员工工调动信信息，修修改员工工调

8、动信信息，查查询员工工调动信信息，帮帮助。系系统主窗窗体如图图2所示示沈 阳阳 大大 学学课程设计计说明书书NO.7图2主窗窗体2.4.2设计计系统管管理窗体体系统管理理菜单下下共有33个子菜菜单,分分别是添添加用户户，修改改密码和和退出。单击”添添加用户户”子菜单单,则进进入用户户管理窗窗体。窗窗体中使使用文本本框显示示记录用用户名和和密码字字段数据据。单击击“添加用用户”按钮可可添加用用户名和和密码。单击“修改密密码”按钮，可可修改用用户的密密码。单单击“退出”按钮，则则关闭窗窗体。用户管理理窗体如如图3所所示图3 用户管管理窗体体沈 阳阳 大大 学学课程设计计说明书书NO.8单击”修修改

9、密码码”子菜单单,则进进入修改改密码窗窗体。窗窗体中使使用文本本框显示示旧密码码，新密密码，确确认密码码数据。单击“确定”按钮可可添加修修改密码码。数据据库的uueriinfoo表中则则相应的的修改这这一条纪纪录。单单击“取消”按钮，可可取消修修改用户户的密码码。用户户管理窗窗体如图图3所示示图4密码码管理窗窗体单击“员员工基本本信息”子菜单单可以看看到它有有四个子子菜单。其中单击击“添加员员工信息息”子菜单单，进入入员工基基本信息息窗体。在窗体体中可设设置各种种员工信信息。单单击“确定”按钮，可可保存当当前设置置，单击击“取消”按钮可可取消记记录的设设置。添加员工工信息窗窗体如图图5所示。沈

10、 阳阳 大大 学学课程设计计说明书书NO.9图5员工工信息管管理信息息其中单击击“查询员员工信息息”子菜单单，进入入查询员员工基本本信息窗窗体。在在窗体中中可根据据员工编编号，员员工姓名名以及员员工的入入职时间间，其中中任意一一项信息息，都可可以查询。单击击“确定”按钮，开开始查询询，单击击“取消”按钮可可取消此此操作。添加员工工信息窗窗体如图图6所示。沈 阳阳 大大 学学课程设计计说明书书NO.100图6查询询员工基基本信息息其中单击击“修改员员工信息息”子菜单单，进入入员工修修改信息息窗体。在窗体体中可根根据员工工编号，员员工姓名名以及员员工的入入职时间间，其中中任意一一项信息息，都可可以

11、确定定员工的的信息。然后右右键点击击选中的的员工信信息，则则会弹出出员工基基本信息息表，此此时，就就可以修修改员工工信息了了。单击击“确定”按钮，则则会弹出出提示框框，提示示修改成成功，数据库库中也会会相应的的修改。单击“取消”按钮可可取消此此操作。其中单击击“删除工工信息”子菜单单，进入入员工删删除信息息窗体。在窗体体中可根根据员工工编号，员员工姓名名以及员员工的入入职时间间，其中中任意一一项信息息，都可可以确定定员工的的信息。然后右右键点击击选中的的员工信信息，则则会弹出出菜单提提示删除除的操作作，此时时， 沈 阳阳 大大 学学课程设计计说明书书NO.111就可以删删除员工工信息了了。单击

12、击“确定”按钮，则则会弹出出提示框框，提示示删除成成功，数数据库中中也会相相应的修修改。单单击“取消”按钮可可取消此此操作。单击“员员工调动动信息”子菜单单可以看看到它有有四个子子菜单。其中单击击“查询员员工调动动信息”子菜单单，进入入员工调调动信息息窗体。在窗体体中可根根据员工工编号，员员工的调调出时间间，其中中任意一一项信息息，都可可以查询询。单击击“确定”按钮，开开始查询询，单击击“取消”按钮可可取消此此操作。添加员员工信息息窗体如如图7所所示。图7查询询员工调调动信息息其中单击击“添加员员工调动动信息”子菜单单，进入入员工调调动信息息窗体。在窗体体中可设设置各种种员工调调动信息息。单击

13、击“确定”按钮，可可保存当当前设置置，单击击“取消”按钮可可取消记记录的设设置。添加员工工调动信息息窗体如如图8所所示。沈 阳阳 大大 学学课程设计计说明书书NO.122图8添加加员工调调动信息息其中单击击“修改员员工调动动信息”子菜单单，进入入员工基基本信息息窗体。在窗体体中可根根据员工工编号、员工的的调出时间间，其中中任意一一项信息息，都可可以确定定员工的的信息。然后右右键点击击选中的的员工信信息，则则会弹出出员工基基本信息息表，此此时，就就可以修修改员工工信息了了。单击击“确定”按钮，则则会弹出出提示框框，提示示修改成成功，数数据库中中也会相相应的修修改。单单击“取消”按钮可可取消此此操

14、作。其中单击击“删除员员工调动动信息”子菜单单，进入入员工基基本信息息窗体。在窗体体中可根根据员工工编号、员工的的调出时时间，其其中任意意一项信信息，都都可以确确定员工工的信息息。然后后右键点点击选中中的员工工信息，则则会弹出出员工基基本信息息表，此此时，就就可以删删除员工工信息了了。单击击“确定”按钮，则则会弹出出提示框框，提示示删除成成功，数数据库中中也会相相应的修修改。单单击“取消”按钮可可取消此此操作。沈 阳阳 大大 学学课程设计计说明书书NO.1332.4.4系统统登录员工信息息管理系系统在启启动时首首先显示示登录窗窗体，用用户输入入用户名名和密码码后，单单击“确定”按钮登登录。如如

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

16、改，查查询，删删除操作作；还可可以将员员工的基基本信息息和员工工的调动动信息打打印报表表。界面面如图111所示示：图11员员工信息息打印报报表沈 阳阳 大大 学学课程设计计说明书书NO.155设计计体会通过本次次课程设设计，使使我从更更深的层层次了解解了VBB的设计计技巧和和应用方方法。在在程序的的编制和和调试过过程中，我我从中学学到了很很多有用用的方法法，比如如通过本本次设计计，我更更深刻的的体会到到了VBB系统的的方便与与实用。在课程程设计的的过程中中，我对对课本上上的知识识进行了了复习，从从中找出出了不少少盲点，由由衷地感感觉到学学习过程程中应该该把学的的知识作作扎实，多多动手多多思考，

17、这这样才能能最大限限度的减减少知识识的漏洞洞。 把课本上上的东西西变成实实际的东东西，让让其有使使用的价价值，是是一件很很让人高高兴的事事。我切切实的体体会到VVB这门门课程是是有用处处的，它它解释了了我平时时学习中中的很多多疑惑，让让我增长长了很多多见识。 .参考考文献1 刘天惠惠.Viisuaal BBasiic程序序设计教教程MM. 北京: 清华华大学大大学出版版社，220033.122-244 2 龚沛曾曾.Viisuaal BBasiic程序序设计教教程MM. 高等教教育出版版社, 20004.228-4453 蒋加伏伏.Viisuaal BBasiic程序序设计教教程MM.北北京:

18、北北京邮电电大学出出版社，20003.10-564 Miccrossoftt .VVisuual Bassic 6.00 中文文版控件件大全M北北京：电电子工业业出版社社,20004.11523.附录录源程序代代码如下下：（）用用户登录录窗体Privvatee Suub ccmdOOK_CClicck() Dimm SQQL AAs SStriing Dimm rss Ass ADDODBB.Reecorrdseet沈 阳阳 大大 学学课程设计计说明书书NO.166If TTrimm(UsserNNamee.Teext = ) Theen MssgBoox 没有输输入用户户名称，请请重新输输入

19、！, vvbOKKOnlly + vbbExcclammatiion, 警警告 UsserNNamee.SeetFoocuss Elsse 查查询用户户 SQQL = sseleect * ffromm UsserIInfoo whheree UsserIID= & UsserNNamee.Teext & Seet rrs = TrranssacttSQLL(SQQL) Iff ifflagg = 1 TThenn Iff rss.EOOF = Trrue Theen MsggBoxx 没没有这个个用户，请请重新输输入！, vvbOKKOnlly + vbbExcclammatiion, 警警

20、告 UseerNaame.SettFoccus EElsee If Triim(rrs.FFiellds(1) = Triim(PPasssWorrd.TTextt) TThenn rss.Cllosee Me.Hidde gUUserrNamme = Trrim(UseerNaame.Texxt) 保存用用户名称称 FrrmMaain.Shoow Unnloaad MMe Elsse MssgBoox 密码不不正确，请请重新输输入！, vvbOKKOnlly + vbbExcclammatiion, 警警告 PaassWWordd.SeetFoocuss PaassWWordd.Teext

21、= 沈 阳阳 大大 学学课程设计计说明书书NO.177End If EEnd IfElsee UUnlooad Me Ennd IIfEnd IfpwdCCounnt = pwwdCoountt + 1 判断断输入次次数 If pwddCouunt = 33 Thhen Unnloaad MMe Exxit Subb Endd IffEnd SubbPrivvatee Suub FFormm_Looad() pwddCouunt = 00 gUsserNNamee = End SubbPrivvatee Suub PPasssWorrd_KKeyDDownn(KeeyCoode As Intt

22、egeer, Shiift As Inttegeer) TabbToEEnteer KKeyCCodeeEnd SubbPrivvatee Suub UUserrNamme_KKeyDDownn(KeeyCoode As Inttegeer, Shiift As Inttegeer) TabbToEEnteer KKeyCCodeeEnd Subb沈 阳阳 大大 学学课程设计计说明书书NO.188（）添添加用户户窗体Optiion ExppliccitPubllic strr1 AAs SStriing 保存存修改时时的SQQL语句句Publlic ID As Inttegeer 保保存记录录

23、编号Privvatee baaddfflagg Ass Boooleeanrivaate Subb AIID_KKeyDDownn(KeeyCoode As Inttegeer, Shiift As Inttegeer) TabbToEEnteer KKeyCCodeeEnd SubbPrivvatee Suub AAID_LosstFoocuss() Dimm SQQL AAs SStriing Dimm rss Ass Neew AADODDB.RRecoordsset SQLL = seelecct SSNamme,SSDeppt,SSPossitiion froom SStufffIn

24、nfo wheere SIDD= & Me.AIDD.Teext & Sett rss = TraansaactSSQL(SQLL) If rs.EOFF = Fallse Theen Mee.ANNamee = rs(0) 初始化化员工姓姓名 Mee.AOOldDDeptt = rs(1) Mee.AOOldPPosiitioon = rss(2) ElsseMsgBBox 员工工编号输输入错误误，或者者没有这这个员工工！, vbbOKOOnlyy + vbEExcllamaatioon, 警告告！ Mee.AIID = Mee.AIID.SSetFFocuus Mee.AIID.LList

25、tInddex = 00End If rs.ClooseEnd Subb沈 阳阳 大大 学学课程设计计说明书书NO.199Privvatee Suub ccmdCCanccel_Cliick() Unlloadd Mee Exiit SSubEnd Subbrivaate Subb chheckkinpput() If Me.ANeewPoosittionn = Theen MMsgBBox 请输输入新的的职务！, vbOOKOnnly + vvbExxclaamattionn, 警告！ MMe.AANewwPossitiion.SettFoccus EllseIIf MMe.AAOuttTi

26、mme = Orr IssDatte(MMe.AAOuttTimme) = FFalsse TThenn MMsgBBox 请输输入正确确的调出出时间！, vbOOKOnnly + vvbExxclaamattionn, 警告！ MMe.AAOuttTimme = MMe.AAOuttTimme.SSetFFocuus EllseIIf MMe.AAInTTimee = Or IsDDatee(Mee.AIInTiime) = Fallse Theen MMsgBBox 请输输入正确确的调入入时间！, vbOOKOnnly + vvbExxclaamattionn, 警告！ MMe.AAInT

27、Timee = MMe.AAInTTimee.SeetFoocuss Ellse bbadddflaag = Trrue Endd IffEnd SubbPrivvatee Suub ccmdOOK_CClicck() Dimm SQQL AAs SStriing Dimm rss Ass Neew AADODDB.RRecoordsset沈 阳阳 大大 学学课程设计计说明书书NO.200badddflaag = FaalseeCalll chheckkinpputIf bbadddflaag = Trrue Theen If flaag = 1 Theen Calll cchecckinnp

28、utt SQQL = sseleect * ffromm AllterratiionIInfoo Seet rrs = TrranssacttSQLL(SQQL)rs.AAddNNew rss.Fiieldds(11) = Mee.AIID rss.Fiieldds(22) = Mee.ANNamee rss.Fiieldds(33) = Mee.AOOldDDeptt rss.Fiieldds(44) = Mee.ANNewDDeptt rss.Fiieldds(55) = Mee.AOOldPPosiitioon rss.Fiieldds(66) = Mee.ANNewPPosiitioo

29、n rss.Fiieldds(77) = Mee.AOOutTTimee rss.Fiieldds(88) = Mee.AIInTiime rss.Fiieldds(99) = Mee.ARRemaark rss.Uppdatte rss.ClloseeSQL = upddatee SttufffInffo sset SDeept= & MMe.AANewwDeppt & , SSPossitiion= SQQL = SQQL & Mee.ANNewPPosiitioon & whheree SIID= & Mee.AIID & TrranssacttSQLL (SSQL) MssgBoox

30、已经添添加调动动信息！, vbOOKOnnly + vvbExxclaamattionn, 添加结结果！ SQQL = sseleect * ffromm AllterratiionIInfoo orrderr byy IDD沈 阳阳 大大 学学课程设计计说明书书NO.211frmAAlteerattionnRessultt.Addodcc1.CConnnecttionnStrringg = Prroviiderr=Miicroosofft.JJet.OLEEDB.4.00;Daata Souurcee= + AApp.Patth + Perrsonn.mddb frrmAllterratii

31、onRResuult.Adoodc11.ReecorrdSoourcce = SQQL Iff SQQL TThenn ffrmAAlteerattionnRessultt.Addodcc1.RRefrreshh Ennd IIfElsee 修修改记录录 CCalll chheckkinpput SQQL = uupdaate StuuffIInfoo seet SSDeppt= & Mee.ANNewDDeptt & , SPPosiitioon= SQQL = SQQL & Mee.ANNewPPosiitioon & whheree SIID= & Mee.AIID & Trannsac

32、ctSQQL (SQLL) SQQL = uupdaate AltteraatioonInnfo sett AOOldDDeptt= & Me.AOlldDeept & ,AANewwDeppt= SQQL = SQQL & Mee.ANNewDDeptt & ,AOlldPoosittionn= & Me.AOlldPoosittionn SQQL = SQQL & ,ANNewPPosiitioon= & Mee.ANNewPPosiitioon & ,AOOutTTimee=# & Me.AOuutTiime SQQL = SQQL & #,AIInTiime=# & MMe.AAInT

33、Timee & # wheere ID= & IDD TrranssacttSQLL (SSQL) MssgBoox 已经修修改信息息！, vbbOKOOnlyy + vbEExcllamaatioon, 修改改结果！ Unnloaad MMe SQQL = sseleect * ffromm AllterratiionIInfoo orrderr byy IDD frrmAllterratiionRResuult.Adoodc11.CoonneectiionSStriing = Proovidder=Miccrossoftt.Jeet.OOLEDDB.44.0;Datta SSourrce=

34、 + Appp.PPathh + PPersson.mdbb ffrmAAlteerattionnRessultt.Addodcc1.RRecoordSSourrce = SSQL Iff SQQL TThenn ffrmAAlteerattionnRessultt.Addodcc1.RRefrreshh Ennd IIf沈 阳阳 大大 学学课程设计计说明书书NO.222Set frmmAltteraatioonReesullt.DDataaGriid1.DattaSoourcce = frrmAllterratiionRResuult.Adoodc11.Reecorrdseet frrmAl

35、lterratiionRResuult.DattaGrrid11.Reefreesh frrmAllterratiionRResuult.Shoow frrmAllterratiionRResuult.ZOrrderr 0 Caall iniit Mee.ZOOrdeer 00 Endd Iff Endd IffEnd Subb（3）查查询员工工信息窗窗体Optiion ExppliccitPrivvatee quueryy Ass SttrinngPrivvatee frromddatee Ass SttrinngPrivvatee toodatte AAs SStriingPrivvate

36、e Suub ccmdCCanccel_Cliick() Unlloadd Mee Exiit SSubEnd SubbPrivvatee Suub CCombbineeDatte() froomdaate = MMe.FFrommYeaar.TTextt & - & Me.FroomMoonthh.Teext & -1 froomdaate = FFormmat(Me.FroomYeear.Texxt & - & Mee.FrromMMontth.TTextt & -11, yyyyy-mm-dd) toddatee = Me.ToYYearr.Teext & - & MMe.TToMoonthh.Teext & -1 toddatee = F