vb员工信息管理系统15996.docx
课程设计说明书NO.1员工信息管管理系统1.需求分分析通过用VBB6.0编编写员工信信息管理系系统，掌握握 Vissual Basiic语言的的数据类型型、表达式式、程序结结构与流程程控件语句句、数组、函函数、过程程的概念与与使用方法法； 掌握握程序界面面中菜单、工工具栏、状状态栏的设设计方法，能能用对话框框设计单文文档程序，掌掌握MDII多窗体程程序的设计计方法；了了解数据库库应用程序序的结构，初初步掌握以以DATAA控件、AADO控件件、ADOO对象为数数据源，设设计数据库库应用程序序的方法；。该系统主要要考虑了员员工信息管管理需求:，支持多条条件查询;修改、添添加、查询询、删除数数据方便简简单，数据据稳定性好好。本系统统可以对员员工基本信信息进行添添加，修改改，删除，查查询操作，还还可以对员员工的调动动信息进行行添加，删删除，修改改，查询等等操作。真正实现了了员工信息息管理的自自动化和信信息化。2概要设设计2.1系统统结构沈 阳 大 学课程设计说说明书NO.2管理员登录修改口令输入用户名和密码判断用户名和密码进入主界面退 出员工信息管理系统1系统2 员工基本信息3员工调动信息5帮助退 出添加员工信息修改员工信息查询员工信息添加调动信息修改密码添加用户删除员工信息修改调动信息查询调动信息员工基本信息员工调动信息删除调动信息关于4打印报表图1员工信信息管理信信息沈 阳 大 学课程设计说说明书NO.32.2数据据库设计数据库设计计是数据库库管理系统统的第二个个步骤，应应根据系统统功能模块块绘制系统统数据流图图，总数据据字典，设设计数据库库结构。根据员工信信息管理系系统的需求求，总结出出下面的数数据字典：(1)用户户数据：内内部工作人人员使用员员工信息管管理系统的的身份数据据，包括的的数据项有有用户名、密码。(2)员工工基本信息息数据：包包括的数据据项有员工工编号、员工工姓名、性别、籍贯、年龄、生日日、学历、专专业、地址址、邮编、电电话、邮箱箱、入职时时间、部门门、职位等等。(3)员工工调职信息息数据：包包括的数据据项有员工工编号、员员工姓名、原原部门、新新部门、原原职务、新新职务、调调出时间、调调入时间等等。(4)员工工人数信息息数据：包包括的数据据项有员工工人数。本员工信息息管理系统统使用Acccess创创建员工信信息管理系系统的数据据库。根据据前面分析析的数据字字典，为每每一个数据据建立一个个数据表。各各个数据表表的的结构构分别如下下:1)用户数数据表用户数据表表命名为“用户表”，其结构构如表1所示。其其中“用户名”字段定义义为主键（PPrimaary KKey）.not nulll表示不允允许空值。表1 用户表结结构字段名数据类型说明用户名Char主键，字段大小为6密码Char字段大小为62)员工基基本信息表表：其结构构如表2所所示。其中中，“员工编号号”字段定义义为主键（PPrimaary KKey）.沈 阳 大 学课程设计说说明书NO.4沈 阳 大 学课程设计说说明书NO.5表2 员工基基本信息数数据表结构构字段名数据类型说明编号Varchar自动编号,主键姓名Varchar不为空性别char不为空籍贯Varchar不为空年龄Int不为空出生日期smalldatatime不为空学历Varchar不为空专业Varchar不为空地址Varchar不为空邮编Varchar不为空电话Varchar可为空邮箱Varchar可为空入职时间smalldatatime不为空进入公司时间smalldatatime不为空参加工作时间smalldatatime不为空起薪时间smalldatatime不为空职位Varchar不为空3)员工调调动信息表表：其结构构如表3所示。包括的数数据项有员员工编号、员员工姓名、原原部门、新新部门、原原职务、新新职务、调调出时间、调调入时间等等。沈 阳 大 学课程设计说说明书NO.6表3 读者类类别数据表表结构字段名数据类型说明记录编号char主键，字段为1员工编号varchar不为空，字段为8员工姓名varchar不为空原部门varchar不为空新部门varchar不为空原职务varchar不为空新职务varchar不为空调出时间smalldatatime不为空调入时间smalldatatime不为空4)员工人人数信息数数据：包括括的数据项项有员工人人数表4员工人人数数据表表结构字段名数据类型说明员工人数Int主键3.详细设设计3.1运行行流程当程序运行行这后，你你首先看到到的界面如如下图所示示，其中窗窗体的顶部部有菜单编编辑器，分分别有系统统，员工基基本信息，员员工调动信信息，打印印报表，帮助助等菜单。窗体作为为程序的启启动窗体。使使用菜单编编辑器为主主窗体添加加多级子菜单：添加加员工信息息，修改员员工信息，删删除员工信信息，查询询员工信息息，添加员员工调动信信息，删除员工调调动信息，修修改员工调调动信息，查查询员工调调动信息，帮帮助。系统统主窗体如如图2所示沈 阳 大 学课程设计说说明书NO.7图2主窗体体2.4.22设计系统统管理窗体体系统管理菜菜单下共有有3个子菜单单,分别是是添加用户户，修改密密码和退出出。单击”添加加用户”子菜单,则进入用用户管理窗窗体。窗体体中使用文文本框显示示记录用户户名和密码码字段数据据。单击“添加用户户”按钮可添添加用户名名和密码。单单击“修改密码码”按钮，可可修改用户户的密码。单单击“退出”按钮，则则关闭窗体体。用户管理窗窗体如图33所示图3 用用户管理窗窗体沈 阳 大 学课程设计说说明书NO.8单击”修改改密码”子菜单,则进入修修改密码窗窗体。窗体体中使用文文本框显示示旧密码，新新密码，确确认密码数数据。单击击“确定”按钮可添添加修改密密码。数据据库的ueerinffo表中则则相应的修修改这一条条纪录。单单击“取消”按钮，可可取消修改改用户的密密码。用户户管理窗体体如图3所所示图4密码管管理窗体单击“员工工基本信息息”子菜单可可以看到它它有四个子子菜单。其中单击“添加员工工信息”子菜单，进进入员工基基本信息窗窗体。在窗窗体中可设设置各种员员工信息。单单击“确定”按钮，可可保存当前前设置，单单击“取消”按钮可取取消记录的的设置。添加员工信信息窗体如如图5所示。沈 阳 大 学课程设计说说明书NO.9图5员工信信息管理信信息其中单击“查询员工工信息”子菜单，进进入查询员员工基本信信息窗体。在在窗体中可可根据员工工编号，员员工姓名以及员员工的入职职时间，其其中任意一一项信息，都都可以查询。单击“确定”按钮，开开始查询，单单击“取消”按钮可取取消此操作作。添加员工信信息窗体如如图6所示。沈 阳 大 学课程设计说说明书NO.10图6查询员员工基本信信息其中单击“修改员工工信息”子菜单，进进入员工修修改信息窗窗体。在窗窗体中可根根据员工编编号，员工工姓名以及员员工的入职职时间，其其中任意一一项信息，都都可以确定定员工的信信息。然后后右键点击选选中的员工工信息，则则会弹出员员工基本信信息表，此此时，就可可以修改员员工信息了了。单击“确定”按钮，则会会弹出提示示框，提示示修改成功功，数据库中中也会相应应的修改。单击“取消”按钮可取消此操作。其中单击“删除工信信息”子菜单，进进入员工删删除信息窗窗体。在窗窗体中可根根据员工编编号，员工工姓名以及员员工的入职职时间，其其中任意一一项信息，都都可以确定定员工的信信息。然后后右键点击击选中的员员工信息，则则会弹出菜菜单提示删删除的操作作，此时， 沈 阳 大 学课程设计说说明书NO.11就可以删除除员工信息息了。单击击“确定”按钮，则则会弹出提提示框，提提示删除成成功，数据据库中也会会相应的修修改。单击击“取消”按钮可取取消此操作作。单击“员工工调动信息息”子菜单可可以看到它它有四个子子菜单。其中单击“查询员工工调动信息”子菜单，进进入员工调调动信息窗窗体。在窗窗体中可根根据员工编编号，员工工的调出时时间，其中中任意一项项信息，都都可以查询询。单击“确定”按钮，开开始查询，单单击“取消”按钮可取取消此操作作。添加员员工信息窗窗体如图77所示。图7查询员员工调动信信息其中单击“添加员工工调动信息息”子菜单，进进入员工调调动信息窗窗体。在窗窗体中可设设置各种员员工调动信息。单单击“确定”按钮，可可保存当前前设置，单单击“取消”按钮可取取消记录的的设置。添加员工调调动信息窗窗体如图88所示。沈 阳 大 学课程设计说说明书NO.12图8添加员员工调动信信息其中单击“修改员工工调动信息息”子菜单，进进入员工基基本信息窗窗体。在窗窗体中可根根据员工编编号、员工的调出出时间，其其中任意一一项信息，都都可以确定定员工的信信息。然后后右键点击击选中的员员工信息，则则会弹出员员工基本信信息表，此此时，就可可以修改员员工信息了了。单击“确定”按钮，则则会弹出提提示框，提提示修改成成功，数据据库中也会会相应的修修改。单击击“取消”按钮可取取消此操作作。其中单击“删除员工工调动信息息”子菜单，进进入员工基基本信息窗窗体。在窗窗体中可根根据员工编编号、员工工的调出时时间，其中中任意一项项信息，都都可以确定定员工的信信息。然后后右键点击击选中的员员工信息，则则会弹出员员工基本信信息表，此此时，就可可以删除员员工信息了了。单击“确定”按钮，则则会弹出提提示框，提提示删除成成功，数据据库中也会会相应的修修改。单击击“取消”按钮可取取消此操作作。沈 阳 大 学课程设计说说明书NO.132.4.44系统登录录员工信息管管理系统在在启动时首首先显示登登录窗体，用用户输入用用户名和密密码后，单单击“确定”按钮登录录。如果用用户名和密密码正确，则则启动系统统主窗体。单单击“取消”按钮则取取消登录。系统登录窗窗体如图99所示。图9 系系统登录窗窗体3.设计结结果与分析析在完成了程程序各个功功能模块的的创建之后后，就可以以运行整个个系统了。运行程程序，进入入系统，界界面如图110所示：图10 系统主窗窗体沈 阳 大 学课程设计说说明书NO.14登录系统由由用户登录录、修改密密码、退出出系统等组组成。系统统管理由添添加用户、修修改密码和和退出系统统组成,其其中管理员员中可以对员员工的基本本信息进行行添加，修修改，查询询，删除操操作；还可可以对员工工的调动信信息进行添添加，修改改，查询，删删除操作；还可以将将员工的基基本信息和和员工的调调动信息打打印报表。界面如图11所示：图11员工工信息打印印报表沈 阳 大 学课程设计说说明书NO.15设计体体会通过本次课课程设计，使使我从更深深的层次了了解了VBB的设计技技巧和应用用方法。在在程序的编编制和调试试过程中，我我从中学到到了很多有有用的方法法，比如通通过本次设设计，我更更深刻的体体会到了VVB系统的的方便与实实用。在课课程设计的的过程中，我我对课本上上的知识进进行了复习习，从中找找出了不少少盲点，由由衷地感觉觉到学习过过程中应该该把学的知知识作扎实实，多动手手多思考，这这样才能最最大限度的的减少知识识的漏洞。 把课本上的的东西变成成实际的东东西，让其其有使用的的价值，是是一件很让让人高兴的的事。我切切实的体会会到VB这这门课程是是有用处的的，它解释释了我平时时学习中的的很多疑惑惑，让我增增长了很多多见识。 .参考文文献1 刘刘天惠.VVisuaal Baasic程程序设计教教程M. 北京京: 清华华大学大学学出版社，2003.12-24 2 龚龚沛曾.VVisuaal Baasic程程序设计教教程M. 高等等教育出版版社, 20004.288-453 蒋蒋加伏.VVisuaal Baasic程程序设计教教程M.北京:北京邮电电大学出版版社，2003.10-5564 MMicroosoftt .Viisuall Bassic 66.0 中中文版控件件大全MM北京：电子工业业出版社,20044.1523.附录源程序代码码如下：（）用户户登录窗体体Privaate SSub ccmdOKK_Cliick() DDim SSQL AAs Sttringg DDim rrs Ass ADOODB.RRecorrdsett沈 阳 大 学课程设计说说明书NO.16If Trrim(UUserNName.Textt = """) TThen MMsgBoox "没没有输入用用户名称，请请重新输入入！", vbOKKOnlyy + vvbExcclamaationn, "警警告" UUserNName.SetFFocuss EElse ''查询用户户 SSQL = "seelectt * ffrom UserrInfoo wheere UUserIID='"" & UUserNName.Textt & ""'" SSet rrs = TrannsacttSQL(SQL) IIf ifflag = 1 Thenn IIf rss.EOFF = TTrue Thenn MMsgBoox "没没有这个用用户，请重重新输入！", vvbOKOOnly + vbbExcllamattion, "警告告" UUserNName.SetFFocuss EElse IIf Trrim(rrs.Fiieldss(1) = TTrim(PasssWordd.Texxt) TThen rrs.Cllose Me.Hidee ggUserrNamee = TTrim(UserrNamee.Texxt) ''保存用户户名称 FFrmMaain.SShow UUnloaad Mee EElse MMsgBoox "密密码不正确确，请重新新输入！"", vbbOKOnnly + vbEExclaamatiion, "警告"" PPassWWord.SetFFocuss PPassWWord.Textt = """沈 阳 大 学课程设计说说明书NO.17End IIf EEnd IIfElse UUnloaad Mee EEnd IIfEnd IIfpwdCoount = pwwdCouunt + 1 ''判断输入入次数 IIf pwwdCouunt = 3 TThen UUnloaad Mee EExit Sub EEnd IIfEnd SSubPrivaate SSub FForm_Loadd() ppwdCoount = 0 ggUserrNamee = """End SSubPrivaate SSub PPassWWord_KeyDDown(KeyCCode As IIntegger, Shifft Ass Inttegerr) TTabTooEnteer KeeyCoddeEnd SSubPrivaate SSub UUserNName_KeyDDown(KeyCCode As IIntegger, Shifft Ass Inttegerr) TTabTooEnteer KeeyCoddeEnd SSub沈 阳 大 学课程设计说说明书NO.18（）添加加用户窗体体Optioon ExxpliccitPubliic sttr1 AAs Sttringg '保存存修改时的的SQL语语句Publiic IDD As Inteeger '保存存记录编号号Privaate bbaddfflag As BBooleeanrivatte Suub AIID_KeeyDowwn(KeeyCodde Ass Inttegerr, Shhift As IIntegger) TTabTooEnteer KeeyCoddeEnd SSubPrivaate SSub AAID_LLostFFocuss() DDim SSQL AAs Sttringg DDim rrs Ass Neww ADOODB.RRecorrdsett SSQL = "seelectt SNaame,SSDeptt,SPoositiion ffrom StufffInffo whhere SID='" && Me.AID.Textt & ""'" SSet rrs = TrannsacttSQL(SQL) IIf rss.EOFF = FFalsee Theen MMe.ANName = rss(0) '初初始化员工工姓名 MMe.AOOldDeept = rs(1) MMe.AOOldPoositiion = rs(2) EElseMsgBoox "员员工编号输输入错误，或或者没有这这个员工！", vvbOKOOnly + vbbExcllamattion, "警告告！" MMe.AIID = "" MMe.AIID.SeetFoccus MMe.AIID.LiistInndex = 0End IIf rrs.ClloseEnd SSub沈 阳 大 学课程设计说说明书NO.19Privaate SSub ccmdCaancell_Cliick() UUnloaad Mee EExit SubEnd SSubrivatte Suub chheckiinputt() IIf Mee.ANeewPossitioon = "" TThen MMsgBoox "请请输入新的的职务！"", vbbOKOnnly + vbEExclaamatiion, "警告！" MMe.ANNewPoositiion.SSetFoocus EElseIIf Mee.AOuutTimme = "" OOr IssDatee(Me.AOuttTimee) = Falsse Thhen MMsgBoox "请请输入正确确的调出时时间！", vbOOKOnlly + vbExxclammatioon, ""警告！"" MMe.AOOutTiime = "" MMe.AOOutTiime.SSetFoocus EElseIIf Mee.AInnTimee = """ Orr IsDDate(Me.AAInTiime) = Faalse Thenn MMsgBoox "请请输入正确确的调入时时间！", vbOOKOnlly + vbExxclammatioon, ""警告！"" MMe.AIInTimme = "" MMe.AIInTimme.SeetFoccus EElse bbaddfflag = Trrue EEnd IIfEnd SSubPrivaate SSub ccmdOKK_Cliick() DDim SSQL AAs Sttringg DDim rrs Ass Neww ADOODB.RRecorrdsett沈 阳 大 学课程设计说说明书NO.20baddfflag = FaalseCall checckinpputIf baaddfllag = Truue Thhen IIf fllag = 1 TThen 'Calll cheeckinnput SSQL = "seelectt * ffrom AlteeratiionInnfo" SSet rrs = TrannsacttSQL(SQL)rs.AdddNeww rrs.Fiieldss(1) = Mee.AIDD rrs.Fiieldss(2) = Mee.ANaame rrs.Fiieldss(3) = Mee.AOlldDeppt rrs.Fiieldss(4) = Mee.ANeewDeppt rrs.Fiieldss(5) = Mee.AOlldPossitioon rrs.Fiieldss(6) = Mee.ANeewPossitioon rrs.Fiieldss(7) = Mee.AOuutTimme rrs.Fiieldss(8) = Mee.AInnTimee rrs.Fiieldss(9) = Mee.AReemarkk rrs.Uppdatee rrs.ClloseSQL = "uppdatee StuuffInnfo sset SSDeptt='" & Mee.ANeewDeppt & "', SPossitioon='"" SSQL = SQLL & MMe.ANNewPoositiion && "' wherre SIID='"" & MMe.AIID & "'" TTranssactSSQL (SQL) MMsgBoox "已已经添加调调动信息！", vvbOKOOnly + vbbExcllamattion, "添加加结果！"" SSQL = "seelectt * ffrom AlteeratiionInnfo oorderr by ID"沈 阳 大 学课程设计说说明书NO.21frmAllteraationnResuult.AAdodcc1.CoonnecctionnStriing = "Prrovidder=MMicroosoftt.Jett.OLEEDB.44.0;DData Sourrce="" + AApp.PPath + "Persson.mmdb" ffrmAllteraationnResuult.AAdodcc1.ReecorddSourrce = SQLL IIf SQQL <>> "" Thenn ffrmAllteraationnResuult.AAdodcc1.Reefressh EEnd IIfElse '修改记记录 ''Calll cheeckinnput SSQL = "uppdatee StuuffInnfo sset SSDeptt='" & Mee.ANeewDeppt & "', SPossitioon='"" SSQL = SQLL & MMe.ANNewPoositiion && "' wherre SIID='"" & MMe.AIID & "'"TranssactSSQL (SQL) SSQL = "uppdatee AltterattionIInfo set AOlddDeptt='" & Mee.AOlldDeppt & "',AANewDDept='" SSQL = SQLL & MMe.ANNewDeept && "',AOlddPosiitionn='" & Mee.AOlldPossitioon SSQL = SQLL & ""',ANNewPoositiion=''" & Me.AANewPPosittion & "'',AOuutTimme=#"" & MMe.AOOutTiime SSQL = SQLL & ""#,AIInTimme=#"" & MMe.AIInTimme & "# wwheree ID=" & ID TTranssactSSQL (SQL) MMsgBoox "已已经修改信信息！", vbOOKOnlly + vbExxclammatioon, ""修改结果果！" UUnloaad Mee SSQL = "seelectt * ffrom AlteeratiionInnfo oorderr by ID" ffrmAllteraationnResuult.AAdodcc1.CoonnecctionnStriing = "Prrovidder=MMicroosoftt.Jett.OLEEDB.44.0;DData Sourrce="" + AApp.PPath + "Persson.mmdb" frrmAltterattionRResullt.Addodc11.ReccordSSourcce = SQL IIf SQQL <>> "" Thenn ffrmAllteraationnResuult.AAdodcc1.Reefressh EEnd IIf沈 阳 大 学课程设计说说明书NO.22Set ffrmAllteraationnResuult.DDataGGrid11.DattaSouurce = frrmAltterattionRResullt.Addodc11.Reccordsset ffrmAllteraationnResuult.DDataGGrid11.Reffreshh ffrmAllteraationnResuult.SShow ffrmAllteraationnResuult.ZZOrdeer 0 CCall initt MMe.ZOOrderr 0 EEnd IIf EEnd IIfEnd SSub（3）查询询员工信息息窗体Optioon ExxpliccitPrivaate qqueryy As StriingPrivaate ffromddate As SStrinngPrivaate ttodatte Ass StrringPrivaate SSub ccmdCaancell_Cliick() UUnloaad Mee EExit SubEnd SSubPrivaate SSub CCombiineDaate() ffromddate = Mee.FroomYeaar.Teext && "-"" & MMe.FrromMoonth.Textt & ""-1" ffromddate = Foormatt(Me.FrommYearr.Texxt & "-" & Mee.FroomMonnth.TText & "-1", "yyyyy-mmm-dd"") ttodatte = Me.TToYeaar.Teext && "-"" & MMe.TooMontth.Teext && "-11" ttodatte = Formmat(ttodatte, ""yyyyy-mm-dd")End SSub沈 阳 大 学课程设计说说明书NO.23Privaate SSub ssetSQQL() IIf IDDChecck.Vaalue = vbbCheccked Thenn qqueryy = ""seleect * froom SttuffIInfo wherre SIID='"" & TTrim(Me.SSID) & "''"End IIfIf NaameChheck.Valuue = vbChheckeed Thhen qqueryy = ""seleect * froom SttuffIInfo wherre SNName='" && Triim(Mee.SNaame) & "''"End IIfEnd SSubPrivaate SSub ccmdOKK_Cliick() CCall CombbineDDate CCall setSSQL ffrmReesultt.creeateLList (queery) ffrmReesultt.Shoow UUnloaad MeeEnd SSubPrivaate SSub FForm_Loadd() DDim ii As Inteeger DDim SSQL AAs Sttringg DDim rrs Ass Neww ADOODB.RRecorrdsett SQLL = ""seleect ddistiinct dateepartt(yy,SInTTime) froom SttuffIInfo"" SSet rrs = TrannsacttSQL(SQL) IIf Noot rss.EOFF Theen rrs.MooveFiirst Whhile Not rs.EEOF IIf Noot IssNulll(rs.Fiellds(00) TThen沈 阳 大 学课程设计说说明书NO.24Me.FrromYeear.AAddIttem rrs(0) MMe.TooYearr.AdddItemm rs(0) EEnd IIf rrs.MooveNeext WWendrs.Cllose MMe.FrromYeear.LListIIndexx = 00 MMe.TooYearr.LisstInddex = 0 EEnd IIf FFor ii = 11 To 12 MMe.FrromMoonth.AddIItem i MMe.TooMontth.AdddIteem i NNext i MMe.FrromMoonth.ListtIndeex = 0 MMe.TooMontth.LiistInndex = 0End SSub至此,整个个程序系统统的实现就就完成了。沈 阳 大 学
