《VB课程设计——企业人事信息管理系统.docx》由会员分享，可在线阅读，更多相关《VB课程设计——企业人事信息管理系统.docx（10页珍藏版）》请在taowenge.com淘文阁网|工程机械CAD图纸|机械工程制图|CAD装配图下载|SolidWorks_CaTia_CAD_UG_PROE_设计图分享下载上搜索。
1、1 概述：1.1简单介绍本系统实现的内容 用户登录通过权限判断，普通用户不能浏览、阅读和查询信息，指定用户可以操作，可以进行信息录入、修改和删除的操作。1.2 系系统的主主要功能能特点有有:1.2.1系统统登录表表单该表单的的功能是是在系统统被访问问之前，要对进进入系统统的用户户进行安安全性检检查，防防止非法法用户进进行系统统破坏数数据及威威胁系统统安全，避免不不必要的的损失。只有合合法的用用户在输输入正确确的密码码后方可可进入系系统。1.2.2系统统分为五五个大的的功能模模块:用户在经经过正确确的登录录后可进进行 1)人人事管理理:包括括部门信信息和员员工信息息的查看看,进行行人员的的调动,
2、并查看看各部门门员工的的福利待待遇.2)考勤勤管理:进行日日常出勤勤管理和和加班出出差的管管理3)工资资管理:可对各各部门员员工的工工资进行行登录和和查询.4)打印印:以条条目或表表格的形形式对员员工工资资或员工工信息进进行输出出预览.5)系统统管理:登录用用户可对对系统进进行管理理包括增增加用户户,修改改用户,删除用用户和修修改密码码.值得得一提的的是登录录用户进进行修改改时仅限限自身,不可对对别的用用户进行行修改操操作. 数据据库设计计：2.1员员工信息息表：用户需要要录入的的员工信信息表主主要字段段包括：员工编编号、员员工姓名名、部门门编号、性别、生日、住址、职位、出生地地、联系系电话。
3、字段字段名类型宽度Nullls1员工编号号charr10否2员工姓名名Charr15否3部门编号号Int4否4性别charr2否5生日Charr10 否6住址Charr30否7职位Varccharr20否8出生地 Chhar10否9联系电话话Charr20否10最高学历历 Chhar20否2.2加加班信息息表： 包括：员工编编号、加加班日期期、加班班天数、 加班班补助。字段字段名类型宽度Nullls1员工编号号Charr10否2加班日期期 Chhar 10否3加班天数数Int4是4加班补助助Numeericc9(100,0)是2.3工工资福利利表：包括：员员工编号号、岗位位工资、基本工工资、伙
4、伙食补贴贴、住房房补贴、住房公公积金、养老保保险、其其他补贴贴、发放放时间、加班补补助、缺缺勤扣除除、实发发工资。字段字段名类型宽度Nullls1员工编号号Charr10否2岗位工资资Numeericc9(199,4)是3基本工资资Numeericc9(199,4)是4伙食补贴贴Numeericc9(199,4)是5住房补贴贴Numeericc9(199,4)是6住房公积积金Numeericc9(199,4)是7养老保险险Numeericc9(199,4)是8其他补贴贴Numeericc9(199,4)是9发放时间间Charr20否10加班补助助Numeericc9(188,0)是11缺勤扣除
5、除Numeericc9(188,0)是12实发工资资Numeericc9(188,0)是2.4缺缺勤信息息表： 包包括：员员工编号号、缺勤勤日期、缺勤天天数、缺缺勤类型型、缺勤勤扣除。字段字段名类型宽度Nullls1员工编号号 Chaar 10否2缺勤日期期 Chaar 10否3缺勤天数数charr 10是4缺勤类型型 Intt 4是5缺勤扣除除 chaar 10是2.5用用户信息息表： 包括括：用户户名、用用户密码码、 用用户类型型。字段字段名类型宽度Nullls1用户名 Chaar 10否2用户密码码 Chaar 20否3用户类型型int 4否2.6登登录时间间表： 包括：用户名名、用户户
6、类型、登录时时间。字段字段名类型宽度Nullls1用户名 Chaar 10否2用户类型型 Chaar 10否3登录时间间charr 40否2.7部部门信息息表： 包括：部门编编号、部部门名称称、部门门人数、部门级级别字段字段名类型宽度Nullls1部门编号号 Intt 4否2部门名称称 Chaar20是3部门人数数Int 4是4部门级别别 chaar 10是3 代代码 添加用户户代码：在ForrmMaain.vb窗窗体中：Impoortss Syysteem.DDataa.OlleDbbImpoortss Syysteem.DDataa.SqqlCllienntImpoortss Syyste
7、em.IIOImpoortss Syysteem.WWinddowss.Foormss.HeelpPrivvatee Suub MMenuuIteem200_Cllickk(ByyVall seendeer AAs SSysttem.Objjectt, BByVaal ee Ass Syysteem.EEvenntArrgs) Haandlles MennuIttem220.CClicck. EEnd Subb在ForrmXTTGL.vb窗窗体中：Impoortss Syysteem.DDataa.OlleDbbImpoortss Syysteem.DDataa.SqqlCllienntPub
8、llic Claass FrmmXTGGL Inhheriits Sysstemm.Wiindoows.Forrms.ForrmPrivvatee MyyTagg Ass Sttrinng Priivatte UUserrnamme AAs SStriingPrivvatee Suub BButtton22_Cllickk(ByyVall seendeer AAs SSysttem.Objjectt, BByVaal ee Ass Syysteem.EEvenntArrgs) Haandlles Butttonn2.CClicck Diim cconnnstrr Ass Neew SStrii
9、ng(prroviiderr=SQQLOLLEDBB.1;Useer IID=ssa;PPasssWorrd=1110;Perrsisst SSecuuritty IInfoo=faalsee;Innitiial Cattaloog=wwagee;Daata Souurcee=.;) Diim CCn AAs NNew OleeDbCConnnecttionn Diim ccmd As OleeDbCCommmandd Diim SSQLSStriing As Strringg Iff . Ennd IIf Trry IIf MMyTaag = 1 Theen SQLLStrringg = I
10、NNSERRT IINTOO 用户户信息表表 (用用户名,用户密密码,用用户类型型) & _ VAALUEES( & TeextBBox11.Teext & , & CIInt(TexxtBoox2.Texxt) & , & _ CCombboBoox1.SellecttedIIndeex & ) EElseeIf MyTTag = 22 Thhen SQLLStrringg = DEELETTE 用用户信息息表 WWHERRE 用用户名= & TTexttBoxx1.TTextt & EElseeIf MyTTag = 33 Thhen SQLLStrringg = UppDatte 用用户
11、信息息表 SSET 用户密密码= & TeextBBox22.Teext & _ ,用户类类型= & CommboBBox11.SeeleccteddInddex & WWHERRE 用用户名= & _ TTexttBoxx1.TTextt & EElseeIf MyTTag = 44 Thhen If TexxtBoox1.Texxt = Ussernnamee Thhen SQQLSttrinng = UUpDaate 用户信信息表 SETT 用户户密码= & TTexttBoxx2.TTextt & _ WHHEREE 用户户名= & TeextBBox11.Teext & Elsse.
12、 Exxit Subb Endd Iff EEnd If CCn.CConnnecttionnStrringg = connnsttr CCn.OOpenn() ccmd = NNew OleeDbCCommmandd(SQQLSttrinng, Cn) ccmd.ExeecutteNoonQuueryy() Caatchh exx Ass Exxcepptioon MMsgBBox(ex.Messsagge) Ennd TTry cmmd.DDispposee() Cnn.Diispoose() Buuttoon2.Enaableed = Faalsee GeetUsser() Endd S
13、uub4.3修修改用户户界面代码如下下：在FrmmMaiin.vvb窗体体中：/ 引入入系统命命名空间间的文件件Impoortss Syysteem.DDataa.OlleDbbImpoortss Syysteem.DDataa.SqqlCllienntImpoortss Syysteem.IIOImpoortss Syysteem.WWinddowss.Foormss.HeelpPrivvatee Suub MMenuuIteem211_Cllickk(ByyVall seendeer AAs SSysttem.Objjectt, BByVaal ee Ass Syysteem.EEvenn
14、tArrgs) Haandlles MennuIttem221.CClicck / 修改改用户 Endd Suub在ForrmXTTGL.vb窗窗体中：Impoortss Syysteem.DDataa.OlleDbbImpoortss Syysteem.DDataa.SqqlCllienntPubllic Claass FrmmXTGGL IInheeritts SSysttem.Winndowws.FFormms.FFormm Priivatte MMyTaag AAs SStriingPrivvatee Ussernnamee Ass Sttrinng Priivatte SSub Bu
15、tttonn2_CClicck(BByVaal ssendder As Sysstemm.Obbjecct, ByVVal e AAs SSysttem.EveentAArgss) HHanddless Buuttoon2.Cliick Diim cconnnstrr Ass Neew SStriing(prroviiderr=SQQLOLLEDBB.1;Useer IID=ssa;PPasssWorrd=1110;Perrsisst SSecuuritty IInfoo=faalsee;Innitiial Cattaloog=wwagee;Daata Souurcee=.;) Diim CC
16、n AAs NNew OleeDbCConnnecttionn Diim ccmd As OleeDbCCommmandd Diim SSQLSStriing As Strringg /如如果删除除自己的的账户，将不能能在使用用本系统统 Ennd IIf Trry IIf MMyTaag = 1 Theen SQLLStrringg = INNSERRT IINTOO 用户户信息表表 (用用户名,用户密密码,用用户类型型) & _ VAALUEES( & TeextBBox11.Teext & , & CIInt(TexxtBoox2.Texxt) & , & _ CoombooBoxx1.S
17、SeleecteedInndexx & ) EElseeIf MyTTag = 22 Thhen SQLLStrringg = DEELETTE 用用户信息息表 WWHERRE 用用户名= & TTexttBoxx1.TTextt & EElseeIf MyTTag = 33 Thhen SQLLStrringg = UppDatte 用用户信息息表 SSET 用户密密码= & TeextBBox22.Teext & _ ,用户类类型= & CommboBBox11.SeeleccteddInddex & WWHERRE 用用户名= & _ TTexttBoxx1.TTextt & EElse
18、eIf MyTTag = 44 Thhen If TexxtBoox1.Texxt = Ussernnamee Thhen SQQLSttrinng = UUpDaate 用户信信息表 SETT 用户户密码= & TTexttBoxx2.TTextt & _ WHHEREE 用户户名= & TeextBBox11.Teext & Elsse /您您无权修修改别人人的密码码 Exxit Subb Endd Iff EEnd If CCn.CConnnecttionnStrringg = connnsttr CCn.OOpenn() ccmd = NNew OleeDbCCommmandd(SQQ
19、LSttrinng, Cn) ccmd.ExeecutteNoonQuueryy() Caatchh exx Ass Exxcepptioon MMsgBBox(ex.Messsagge) Ennd TTry cmmd.DDispposee() Cnn.Diispoose() Buuttoon2.Enaableed = Faalsee GeetUsser() Endd Suub删除用户户代码：在FrmmMaiin.vvb窗体体中：/ 引入入系统命命名空间间的文件件Impoortss Syysteem.DDataa.OlleDbbImpoortss Syysteem.DDataa.SqqlCll
20、ienntImpoortss Syysteem.IIOImpoortss Syysteem.WWinddowss.Foormss.HeelpPrivvatee Suub MMenuuIteem144_Cllickk(ByyVall seendeer AAs SSysttem.Objjectt, BByVaal ee Ass Syysteem.EEvenntArrgs) Haandlles MennuIttem114.CClicck / 删 除用户户.End Subb在loggin.vb窗窗体中：“确定”按钮的的Texxt属性性变为“删除”，Laabell1的VVisiiblee属性设设置为FF
21、alsse不可可见， TTexttBoxx1的VVisiiblee属性设设置为FFalsse不可可见，LLabeel3的的Vissiblle属性性设置为为Fallse不不可见，CommboBBox11的Viisibble属属性设置置为Faalsee不可见见，Laabell2的VVisiiblee属性设设置为FFalsse不可可见，TTexttBoxx2的VVisiiblee属性设设置为FFalsse不可可见Privvatee Suub llogiin_LLoadd(ByyVall seendeer AAs SSysttem.Objjectt, BByVaal ee Ass Syysteem.E
22、EvenntArrgs) Haandlles MyBBasee.Looad GeetUsser() CoombooBoxx1.IItemms.AAdd(普通通用户) CoombooBoxx1.IItemms.AAdd(系统统用户) Buuttoon2.Enaableed = Faalsee. Ennd IIfEnd Subb在ForrmXTTGL.vb窗窗体中：Privvatee Suub BButtton22_Cllickk(ByyVall seendeer AAs SSysttem.Objjectt, BByVaal ee Ass Syysteem.EEvenntArrgs) Haandl
23、les Butttonn2.CClicck Diim cconnnstrr Ass Neew SStriing(prroviiderr=SQQLOLLEDBB.1;Useer IID=ssa;PPasssWorrd=1110;Perrsisst SSecuuritty IInfoo=faalsee;Innitiial Cattaloog=wwagee;Daata Souurcee=.;) Diim CCn AAs NNew OleeDbCConnnecttionn Diim ccmd As OleeDbCCommmandd Diim SSQLSStriing As Strringg Iff T
24、eextBBox11.Teext = UUserrnamme AAnd MyTTag = 22 Thhen IIf MMsgBBox(如果果删除自自己的账账户，将将不能在在使用本本系统。, MsggBoxxStyyle.YessNo, 警警告！) = MssgBooxReesullt.NNo TThenn Exxit Subb Ennd IIf Trry IIf MMyTaag = 1 Theen SQLLStrringg = INNSERRT IINTOO 用户户信息表表 (用用户名,用户密密码,用用户类型型) & _ VAALUEES( & TeextBBox11.Teext & , &
25、CIInt(TexxtBoox2.Texxt) & , & _ CCombboBoox1.SellecttedIIndeex & ) EElseeIf MyTTag = 22 Thhen SQLLStrringg = DEELETTE 用用户信息息表 WWHERRE 用用户名= & TTexttBoxx1.TTextt & EElseeIf MyTTag = 33 Thhen SQLLStrringg = UppDatte 用用户信息息表 SSET 用户密密码= & TeextBBox22.Teext & _ ,用户类类型= & CommboBBox11.SeeleccteddInddex &
26、 WWHERRE 用用户名= & _ TTexttBoxx1.TTextt & EElseeIf MyTTag = 44 Thhen If TexxtBoox1.Texxt = Ussernnamee Thhen SQQLSttrinng = UUpDaate 用户信信息表 SETT 用户户密码= & TTexttBoxx2.TTextt & _ WHHEREE 用户户名= & TeextBBox11.Teext & Elsse . EEnd If CCn.CConnnecttionnStrringg = connnsttr CCn.OOpenn() ccmd = NNew OleeDbCCo
27、mmmandd(SQQLSttrinng, Cn) ccmd.ExeecutteNoonQuueryy() Endd Suub修改用户户代码如如下：在FrmmMaiin.vvb窗体体中：Privvatee Suub MMenuuIteem266_Cllickk(ByyVall seendeer AAs SSysttem.Objjectt, BByVaal ee Ass Syysteem.EEvenntArrgs) Haandlles MennuIttem226.CClicck / 修修改个人人密码 Diim xxgmmm Ass Neew FFrmXXTGLL(4, Ussernnamee)
28、xggmm.Shoow()End Subb在ForrmXTTGL.vb窗窗体中：/ 引引入系统统命名空空间文件件Impoortss Syysteem.DDataa.OlleDbbImpoortss Syysteem.DDataa.SqqlCllienntPubllic Claass FrmmXTGGL Inhheriits Sysstemm.Wiindoows.Forrms.Forrm Priivatte MMyTaag AAs SStriing Priivatte UUserrnamme AAs SStriingPrivvatee Suub BButtton22_Cllickk(ByyVal
29、l seendeer AAs SSysttem.Objjectt, BByVaal ee Ass Syysteem.EEvenntArrgs) Haandlles Butttonn2.CClicck Diim cconnnstrr Ass Neew SStriing(prroviiderr=SQQLOLLEDBB.1;Useer IID=ssa;PPasssWorrd=1110;Perrsisst SSecuuritty IInfoo=faalsee;Innitiial Cattaloog=wwagee;Daata Souurcee=.;) Diim CCn AAs NNew OleeDbCC
30、onnnecttionn Diim ccmd As OleeDbCCommmandd Diim SSQLSStriing As Strringg /给给出警告告，不能能修改别别人的密密码 Trry IIf MMyTaag = 1 Theen SQLLStrringg = INNSERRT IINTOO 用户户信息表表 (用用户名,用户密密码,用用户类型型) & _ VAALUEES( & TeextBBox11.Teext & , & CIInt(TexxtBoox2.Texxt) & , & _ CCombboBoox1.SellecttedIIndeex & ) EElseeIf MyTT
31、ag = 22 Thhen SQLLStrringg = DEELETTE 用用户信息息表 WWHERRE 用用户名= & TTexttBoxx1.TTextt & ElsseIff MyyTagg = 3 TThenn SQLLStrringg = UppDatte 用用户信息息表 SSET 用户密密码= & TeextBBox22.Teext & _ ,用户类类型= & CommboBBox11.SeeleccteddInddex & WWHERRE 用用户名= & _ TTexttBoxx1.TTextt & EElseeIf MyTTag = 44 Thhen If TexxtBoox
32、1.Texxt = Ussernnamee Thhen SQQLSttrinng = UUpDaate 用户信信息表 SETT 用户户密码= & TTexttBoxx2.TTextt & _ WHHEREE 用户户名= & TeextBBox11.Teext & Elsse同样也可可在工具具栏中对对用户密密码进行行修改.用户查询询登录时时间代码码如下：在FrmmMaiin.vvb窗体体下： PPrivvatee Suub MMenuuIteem299_Cllickk(ByyVall seendeer AAs SSysttem.Objjectt, BByVaal ee Ass Syysteem.
33、EEvenntArrgs) Haandlles MennuIttem229.CClicck/调调用用户户登录时时间窗体体Dim frmmdl As Neww Foormddlsjj frrmdll.Shhow() EEnd Subb在loggin.vb窗窗体下：Impoortss Syysteem.DDataa.OlleDbbImpoortss Syysteem.DDataa.SqqlCllienntImpoortss Syysteem.DDataaPubllic Claass loggin Inhheriits Sysstemm.Wiindoows.Forrms.ForrmDim connn
34、 AAs NNew SqllConnnecctioon(datta ssourrce=.;ddataabasse=wwagee;innteggratted seccuriity=ssppi;) Prrivaate Subb Buuttoon2_Cliick(ByVVal sennderr Ass Syysteem.OObjeect, ByyVall e As Sysstemm.EvventtArggs) Hanndlees BButtton22.Cllickk Iff Trrim(GettPsww(Trrim(Me.Labbel44.Teext) = TTrimm(Mee.TeextBBox2
35、2.Teext) Annd LLen(Me.Labbel44.Teext) 0 TThenn DDim mf As Neww FrrmMaain(Labbel44.Teext, Laabell5.TTextt) DDim s AAs SStriing = NNow.ToSStriing DDim c AAs NNew SqllCommmannd(inssertt innto 登录时时间表(用户名名,用户户类型,登录时时间) valluess( & Labbel44.Teext.Triim & , & Labbel55.Teext & , & s.Subbstrringg(0, 155) & ), coonn)