《中小型企业人事信息管理系统设计1bxgh.docx》由会员分享，可在线阅读，更多相关《中小型企业人事信息管理系统设计1bxgh.docx（100页珍藏版）》请在taowenge.com淘文阁网|工程机械CAD图纸|机械工程制图|CAD装配图下载|SolidWorks_CaTia_CAD_UG_PROE_设计图分享下载上搜索。
1、河南理工大学本科毕业设计（论文）中小型企业“人事信息管理系统”设计摘要随着市场竞争的加剧，中小型企业要想在激烈的竞争中立于不败之地，就要不断的加强管理，信息量也就不可避免增加很多，以往的管理模式已不再适应现在社会经济发展的需求和企业对信息的需求，拥有一套能够对企业人事信息进行系统管理的应用软件，就显得犹为得要。在毕业设计计期间，我我根据中中小型企企业自身身的特点点，设计计了一套套经济型型的信息息管理系系统。在在这个系系统的设设计中我我使用了了功能强强大的VVisuual Bassic 6.00作为软软件开发发工具，MMicrrosooft Acccesss 20000作作为数据据库管理理系统，
2、该该系统实实现了较较为简单单的人事事信息管管理，其其中包括括部门管管理，员员工管理理，工资资管理等等功能。本本系统设设计适用用于中小小型企业业的人事事系统管管理，在在一定程程序上提提高了企企业的管管理效率率，规范范了管理理，减轻轻人事管管理部门门的压力力，将人人们从繁繁重而单单一的工工作中解解放出来来，从而而进一步步提高了了小型企企业人事事信息管管理的工工作效率率，以下下为我关键词：数数据库，模模块，部部门管理理，员工工管理，工工资管理理Abstrractt目 录1前言1.1 课课题的意意义、目目的1.2 课课题研究究的范围围1.3 软软件设计计所能达达到的技技术参数数1.4 课课题解决决的主
3、要要问题正文2系统用户户管理模模块2.1 开开发前提提2.2 模模块的建建立2.3 模模块的整整体流程程2.4 数数据库的的设计2.5 程程序的实实现 2.5.11 操作作方法2.5.22代码的的实现（1）添加加用户（2）删除除用户（3）修改改用户2.6 得得出的结结果以及及对结果果的讨论论3部门信息息管理3.1模块块开发前前提3.2模块块的建立立 3.3 模模块的整整体流程程3.4 数数据库的的设计3.5 程程序的实实现3.5.11部门信信息查询询3.5.11.1 部门信信息查询询的操作作方法：3.5.11.2代代码的实实现（1）弹出出部门查查询窗休休（2）实现现查询功功能的代代码如下下3.
4、5.22部门信信息管理理3.5.22.1部部门信息息管理的的操作方方法3.5.22.2代代码实现现（1）弹出出部门管管理窗体体（frrmDeepMaanagge.ffrm）的的代码（2）实现现部门管管理中的的添加、删删除、修修改功能能的代码码4员工信息息管理4.1模块块开发前前提4.2模块块的建立立4.3 模模块的整整体流程程4.4数据据库设计计4.5程序序的实现现4.5.11员工信信息查询询4.5.11.1员员工信息息查询的的操作方方法4.5.11.2代代码实现现4.5.22员工信信息管理理4.5.22.1员员工信息息管理的的操作方方法4.5.22.2员员工管理理中的添添加、删删除、修修改代
5、码码实现5工资信息息管理5.1模块块开发前前提52模块块的建立立5.3模块块的整体体流程5.4数据据库的设设计5.5程序序的实现现5.5.11工资信信息查询询5.5.11.1工工资信息息查询的的操作方方法5.5.11.2代代码实现现5.5.22工资信信息管理理5.5.22.1工工资信息息管理的的操作方方法5.5.22.2代代码实现现6数据管理理6.1开发发前提6.2程序序的实现现6.2.11数据备备份（1）数据据备份操操作方法法（2）数据据备份代代码实现现6.2.22数据恢恢复（1）数据据恢复的的操作方方法（2）数据据恢复代代码的实实现7 结论7.1取得得的成果果7.1.11简便的的操作方方法
6、7.1.22 进一一步加强强了对数数据库技技术的认认识7.2 存存在的问问题7.3 以以后的努努力方向向8 致谢9参考文献献1前言1.1 课课题的意意义、目目的随着市场竞竞争的加加剧，有有关企业业人事管管理的各各项信息息量也成成倍增长长。面对对越来越越大的信信息量，就就需要使使用“小型企企业人事事管理系系统”来提高高整个企企业的管管理工作作效率。1.2 课课题研究究的范围围因为计算机机及其应应用软件件的不断断发展，使使得企业业信息化化管理已已经越来来越得到到重视。而而实现企企业信息息化的管管理，能能够提高高企业管管理质量量、减轻轻企业人人事管理理部门的的压力。那那么就我我设计的的“中小型型企业
7、人人事信息息管理系系统”软件具具体的讲讲，就是是要做到到对企业业人事信信息的规规范化管管理、和和快速的的查询，从从而减少少管理方方面的工工作量。1.3 软软件设计计所能达达到的技技术参数数本次软件开开发的工工具是VVisuual Bassic 6.00，数据据环境使使用的是是Miccrossoftt Acccesss 220000。充分分考虑到到实际情情况，使使得开发发的应用用系统具具有较好好的维护护性。在在符合管管理需要要的条件件下，使使操作简简单、便便捷。而而且采用用了功能能强大的的数据库库系统，适适应大规规模数据据处理的的要求。应应用软件件在当前前居于主主流且技技术领先先系统平平台上设设
8、计，并并且安装装简单。我设计的“中小型型企业人人事信息息管理系系统”具有以以下几个个特点：（1） 查查询方便便提供信息重重组功能能，将离离散、单单一的信信息通过过有机的的结合，向向使用者者提供的的数据更更加快速速、有效效和准确确。（2） 简简化工作作流程大大的提高高了人事事系统的的的办事事效率，从从而节省省了大量量的人力力、物力力和财力力等资源源。（3） 实实用性强强软件充分满满足中小小型企业业的不同同管理需需求，且且操作简简单，易易于维护护，便于于保存和和传阅。（4） 操操作简便便软件使用直直观的图图形界面面，即见见既得的的录入格格式、方方便的录录入方式式，电脑脑操作与与手工处处理流程程完全
9、一一致，任任何人员员可在极极短时间间内无师师自通。（5）功能能齐全可以随时查查询或统统计企业业员工的的各种资资料。1.4 课课题解决决的主要要问题首先简要陈陈述一下下我设计计的中小小型“企业人人事信息息管理系系统”软件主主要解决决的几方方面问题题：（1） 在在“系统用用户管理理模块”中，完完成系统统用户的的添加、用用户密码码的修改改操作；（2） 在在“部门管管理模块块”中，用用户可根根据所在在企业部部门的划划分及变变动情况况，实现现对企业业部门信信息的查查询，添添加，修修改，删删除工作作。（3） 在在“员工管管理模块块”中，可可以实现现对所在在企业员员工基本本信息的的录入，根根据不同同的身份份
10、给予不不同的使使用权限限，实现现对员工工基本信信息的添添加、编编辑和删删除操作作；（4） 在在“工资管管理模块块”中，分分为工资资信息查查询和工工资信息息管理。在在工资信信息查询询功能中中，用户户可以在在表中选选择所列列出的员员工编码码和工资资月份，选选择相应应的员工工编码和和工资月月份，点点击查询询进行查查询；在在工资信信息管理理窗口中中，根据据表中已已经列出出的当前前数据库库中的所所有员工工工资信信息，选选择需处处理的员员工信息息，然后后点击相相应的操操作按钮钮，如添添加，删删除，修修改等，然然后进行行操作，点点击确定定按钮即即可实现现相应的的功能。 （5） 在在“数据管管理模块块”中，实
11、实现对数数据的备备份及恢恢复功以以。即用用户可输输入所要要备份数数据文件件及恢复复数据文文件的完完整保存存路径，包包括保存存文件名名，并为为此次操操作起一一个别名名，点击击备份即即可。备备份或恢恢复成功功后会有有相应的的成功提提示信息息出现。正文 我开发的的中小企企业“人事信信息管理理系统”软件主主要由系系统用户户管理、部部门管理理、员工工管理、工工资管理理、数据据管理和和和帮助助六个模模块组成成。以下下为我对对这几个个模块的的整个开开发过程程。2系统用户户管理模模块2.1 开开发前提提一般在开发发一个数数据库系系统时，需需要设置置操作人人员，而而这些操操作人员员的身份份也有所所不同，那那么他
12、们们就可以以根据各各自不同同的身份份利用本本系统来来进行不不同的操操作。而而本模块块的作用用就在于于：利用用系统初初始设置置的两个个用户名名和密码码登录后后（Addminnisttrattor用用户和UUserr用户），可可根据不不同的权权限对系系统拥有有不同的的操作权权限。Adminnisttrattor用用户是管管理员用用户，可可以在系系统用户户管理中中，增加加相应的的用户，并并且指定定用户的的权限（即即拥有添添加、删删除、修修改系统统信息的的权限）；Useer用户户为普通通用户，只只能对系系统信息息浏览。2.2 模模块的建建立根据本系统统的需求求，结合合实际系系统管理理情况，本本模块应应
13、作如下下的细化化：（1） 用用户登录录界面在安装好本本系统后后，首次次使用时时利用系系统初始始设置的的用户名名和密码码登录，即即后进入入系统用用户管理理窗体，后后可添加加，删除除，修改改用户。登登陆界面面如图所所示：图2-1 登陆界界面（2） 添添加新用用户因为企业信信息管理理的工作作量较大大，因此此需要参参与的各各层管理理人员也也会相应应的增加加，所以以我专门门增加了了一些管管理人员员，以适适应企业业管理的的需求，通通过点击击操作界界面上的的“系统维维护”菜单中中的“系统用用户管理理”，就可可以进入入下图的的界面，从从而实现现对用户户的添加加，删除除，修改改操作。2.3 模模块的整整体流程程
14、登录系统通过验证系统管理模块主窗体添加新用户删除用户修改用户重新登录图2-2式式模块整整体流程程2.4 数数据库的的设计本次设计的的系统使使用的是是Acccesss 20000作作为数据据库管理理系统，在在Acccesss中，新新建一个个数据库库，将其其命名为为“HR.mdbb”，在新新建的数数据库中中建立一一个名为为SysstemmUseer的表表，表中中用户名名为关键键字，唯唯一标识识出表中中的记录录。其字字段结构构如表33-1所所示：表2-1 用户管管理表（AAdmiin）字段名字段说明类型宽度备注用户名称管理员名文本10主关键字用户权限管理员权限限文本8不能为空密码管理员密码码文本8不
15、能为空2.5 程程序的实实现 2.5.11 操作作方法当用户以AAdmiinisstraatorr用户登登录窗体体后，点点击“系统维维护”菜单中中的“系统用用户管理理”项后，则则出现如如图2-3所示示的“系统用用户管理理”窗体。图2-3 系统用用户管理理界面（1）添加加系统用用户：点点击添加加按钮，输输入相应应的用户户名称，用用户权限限和用户户口令（最最好不少少于6位位），再再点击保保存即可可；（2）删除除系统用用户：在在列表中中选择要要删除的的用户，之之后再点点击删除除索按钮钮即可；（3）修改改系统用用户：再再列表中中选择要要修改的的用户，然然后点击击图片，修修改用户户信息，最最后点击击保存
16、即即可；2.5.22代码的的实现（1）添加加用户Privaate Subb cmmdAddd_CClicck() ttxtNNamee.Ennablled = TTruee ttxtPPasssworrd.EEnabbledd = Truue ccmbPPermmisssionn.Ennablled = TTruee ccmdSSavee.Ennablled = TTruee CCalll CllearrInffoEnd SSubPrivaate Subb cmmdSaave_Cliick() IIf ttxtNNamee.Teext = TThenn MsggBoxx 用用户名不不能为空空,
17、请输输入用户户名., vvbInnforrmattionn + vbOOKOnnly, 信信息不完完整 txttNamme.SSetFFocuus Exiit SSub EEnd If IIf ttxtPPasssworrd.TTextt = Theen MsggBoxx 用用户口令令不能为为空,请请输入用用口令., vbIInfoormaatioon + vbbOKOOnlyy, 信息不不完整 txttPassswoord.SettFoccus Exiit SSub EEnd If IIf LLen(Triim(ttxtPPasssworrd.TTextt) 66 Thhen If Msgg
18、Boxx(用用户口令令长度小小于6位位,建议议使用长长度大于于6位的的口令! & vbbCrLLf & 是是: 修修改/否否:不修修改, vbbInfformmatiion + vvbYeesNoo, 安全提提示) = vbYYes Theen txxtPaasswwordd.Teext = txxtPaasswwordd.SeetFoocuss Exxit Subb Endd Iff EEnd If IIf ccmbPPermmisssionn.Teext = TThenn MsggBoxx 用用户权限限不能为为空,请请输入用用户权限限., vbbInfformmatiion + vvbOK
19、KOnlly, 信息息不完整整 cmbbPerrmisssioon.SSetFFocuus Exiit SSub EEnd If SSet Useer = Noothiing UUserr.UsserNNamee = Triim(ttxtNNamee.Teext) UUserr.UsserPPasssworrd = Trrim(txttPassswoord.Texxt) UUserr.UsserPPermmisssionn = Triim(ccmbPPermmisssionn.Teext) IIf UUserrs.AAddUUserr(Usser) = Truue TThenn Calll C
20、CleaarInnfo MsggBoxx 添添加系统统用户成成功!, vvbInnforrmattionn + vbOOKOnnly, 成成功提示示 EElsee Calll CCleaarInnfo MsggBoxx 添添加系统统用户失失败!, vvbCrritiicall + vbOOKOnnly, 错错误提示示 EEnd If SSet subbiteem = lvvwMaain.LisstIttemss.Addd(, KK_ & UUserr.UsserNNamee, UUserr.UsserNNamee) ssubiitemm.LiistSSubIItemms.AAdd , , Us
21、ser.UseerPeermiissiion ssubiitemm.LiistSSubIItemms.AAdd , , Usser.UseerPaasswwordd ccmdSSavee.Ennablled = FFalsse ttxtNNamee.Ennablled = FFalsse ttxtPPasssworrd.EEnabbledd = Fallse ccmbPPermmisssionn.Ennablled = FFalsseEnd SSub（2）删除除用户Privaate Subb cmmdDeelette_CClicck() llvwMMainn.LiistIItemms.RRem
22、oove lvwwMaiin.SSeleecteedIttem.Keyy UUserrs.DDeleeteUUserr Usser.UseerNaame CCalll CllearrInffoEnd SSub（3）修改改用户 IIf ttxtNNamee.Teext = TThenn MsggBoxx 用用户名不不能为空空,请输输入用户户名., vvbInnforrmattionn + vbOOKOnnly, 信信息不完完整 txttNamme.SSetFFocuus Exiit SSub EEnd If IIf ttxtPPasssworrd.TTextt = Theen MsggBoxx
23、用用户口令令不能为为空,请请输入用用口令., vbIInfoormaatioon + vbbOKOOnlyy, 信息不不完整 txttPassswoord.SettFoccus Exiit SSub EEnd If IIf LLen(Triim(ttxtPPasssworrd.TTextt) 66 Thhen If MsggBoxx(用用户口令令长度小小于6位位,建议议使用长长度大于于6位的的口令! & vbbCrLLf & 是是: 修修改/否否:不修修改, vbbInfformmatiion + vvbYeesNoo, 安全提提示) = vbYYes Theen txxtPaasswword
24、d.Teext = txxtPaasswwordd.SeetFoocuss Exxit Subb Endd Iff EEnd If IIf ccmbPPermmisssionn.Teext = TThenn MsggBoxx 用用户权限限不能为为空,请请输入用用户权限限., vbbInfformmatiion + vvbOKKOnlly, 信息息不完整整 cmbbPerrmisssioon.SSetFFocuus Exiit SSub EEnd If UUserr.UsserNNamee = Triim(ttxtNNamee.Teext) UUserr.UsserPPasssworrd = T
25、rrim(txttPassswoord.Texxt) UUserr.UsserPPermmisssionn = Triim(ccmbPPermmisssionn.Teext) UUserrs.MModiifyUUserr Usser llvwMMainn.SeeleccteddIteem.TTextt = Useer.UUserrNamme llvwMMainn.SeeleccteddIteem.LListtSubbIteems(1).Texxt = Usser.UseerPeermiissiion lvwwMaiin.SSeleecteedIttem.LisstSuubIttemss(2).
26、Teext = UUserr.UsserPPasssworrd CCalll CllearrInffo ccmdMModiify.Enaableed = FaalseeEnd SSub2.6 得得出的结结果以及及对结果果的讨论论通过使用该该模块，就就可以有有效的规规范拥有有使用权权限的不不同层次次的管理理人员的的数量，便便于企业业领导随随时查阅阅他们的的信息，规规范管理理，保证证输入本本系统的的所有信信息的准准确性和和一致性性，确保保“人事信信息管理理系统”的正常常运行。3部门信息息管理3.1模块块开发前前提每个企业因因其企业业性质及及管理模模式的不不同，组组织结构构也不尽尽相同，因因此部门门
27、的划分分方法及及细化程程度也不不一样。但但对于一一个中小小型企业业来说，一一般都会会采用直直线制，部部门职能能制等适适合中小小型企业业的组织织结构。在组织所划划分的这这些部门门中，它它们既相相互独立立，又相相互协作作，不同同的部门门拥有不不同的工工作内容容，承担担着不同同的职责责，拥有有不同的的权限，需需完成组组织特定定方面的的工作，各各部门又又相互协协作，共共同完成成组织方方方面面面的工作作，从而而实现组组织的目目标，因因此对部部门的信信息进行行管理就就显必不不可少了了。3.2模块块的建立立 根据本系统统的需求求，结合合实际管管理情况况，本模模块应作作如下细细化：（1）在查查询方面面随着企业
28、规规模的不不断扩大大，企业业中设立立的部门门也越来来越具体体化，因因此部门门的数量量也不可可避免的的增加，查查询功能能的实现现，可以以很好的的解决管管理工作作中繁琐琐的查找找工作，从从而很好好的提高高管理效效率。（2）在操操作方面面在此部分中中，用户户可以根根据管理理中的不不同需求求，对部部门信息息进行调调整，即即可以执执行添加加、删除除和修改改基本信信息的操操作，以以适应管管理上的的需求。通通过此模模块，可可以快速速高效的的对部门门进行的的调整，以以减少不不必要的的工作量量，将工工作人员员从繁琐琐的日常常事务中中解脱出出来。3.3 模模块的整整体流程程根据大多数数中小企企业的管管理流程程，结
29、合合上述的的功能，模模块的整整体流程程如图33-1所所示：登录用户通过验证程序主窗口对现有部门的信息进行管理（包括添加、修改、删除）查询现有部门的相关信息重新登录查询帮助信息图3-1 部门管管理模块块总体流流程图3.4 数数据库的的设计本次设计所所用的数数据库为为Acccesss，在名名为HRR的数据据库中建建立了一一个表，名名字为DDepaartmmentt，可以以在程序序中对其其进行调调用。本模块以企企业部门门的基本本信息为为对象，编编制了一一份表格格，其中中详述了了每个字字段的设设置及对对其的说说明。在在此表中中，以部部门编码码字段为为该表的的主关键键字（PPrimmaryy Keey，
30、PPK），它它唯一标标识了每每一个部部门的记记录， 其详表表如下表表所示：表3-1 Deeparrtmeent表表字段名类型宽度备注部门编码文本7主关键字部门名称文本10不能为空部门主管数字长整型不能为空，对对应于DDepaartmmentt表idd字段部门描述文本200可以为空录入时间日期/时间间10可以为空录入人文本8可以为空3.5 程程序的实实现在主菜单中中，设计计了三个个根菜单单，“人事信信息管理理”，“系统维维护”和“杂项”。“人事信信息管理理”菜单用用来对企企业的部部门、员员工、工工资等信信息进行行管理，在在本节中中，着重重谈到的的是其中中的对部部门信息息的管理理工作。3.5.11
31、部门信信息查询询在窗体中添添加一个个部门信信息查询询的窗体体，取名名为frrmDeepQuueryy .ffrm,并为ffrmDDepQQuerry .frmm窗体进进行菜单单的设计计和代码码的设计计。3.5.11.1 部门信信息查询询的操作作方法：当用户需要要对部门门信息进进行查询询时，可可以在主主界面的的“人事信信息管理理”根菜单单中，选选择“部门信信息查询询”选项，也也可点击击主窗体体上的快快捷键“部门信信息查询询”，弹出出“部门信信息查询询”窗体，如如图3-2所示示图3-2 部门信信息查询询界面在窗体中的的“部门编编码”中输入入要查询询的部门门编码，点点击“查询”按钮，即即可在窗窗体中
32、“查询结结果”下方显显示所要要查询的的信息。如如果没有有查找到到相关信信息，则则会弹出出“错误揭揭示”消息框框，并显显示“您所查查找的部部门不存存在,请请重新查查找!”点击确确定后，重重新输入入进行查查找。3.5.11.2代代码的实实现（1）弹出出部门查查询窗休休（frrmDeepQuueryy .ffrm）：Privaate Subb mnnuDeeparrtQuueryy_Cllickk() LListtBarrMaiin.AActiiveLListt = 1 ffrmDDepQQuerry.SShowwEnd SSub（2）实现现查询功功能的代代码如下下：Privaate Subb cm
33、mdQuueryy_Cllickk()On Errrorr GooTo LabbErrr ttxtDDepIID.TTextt = Depparttmennts.Depparttmennts(K_ & cmmbDeepIDD.Teext).DeepIDD ttxtDDepNNamee.Teext = DDepaartmmentts.DDepaartmmentts(K_ & cmbbDeppID.Texxt).deppNamme ttxtDDepMMastter.Texxt = Deeparrtmeentss.Deeparrtmeentss(KK_ & ccmbDDepIID.TTextt).d
34、depMMastter ttxtDDepNNotee.Teext = DDepaartmmentts.DDepaartmmentts(K_ & cmbbDeppID.Texxt).deppNotte ttxtDDateeIn.Texxt = Deeparrtmeentss.Deeparrtmeentss(KK_ & ccmbDDepIID.TTextt).ddepDDateeIn ttxtIInneer.TTextt = Depparttmennts.Depparttmennts(K_ & cmmbDeepIDD.Teext).deepInnnerr EExitt SuubLabErrr: C
35、Calll CllearrInffo MMsgBBox 您所所查找的的部门不不存在,请重新新查找!, vbCCritticaal + vbbOKOOnlyy, 错误提提示End SSub3.5.22部门信信息管理理在工程中添添加一个个部门信信息管理理的窗体体，取名名为frrmDeepMaanagge.ffrm 并为这这个窗体体进行代代码设计计。3.5.22.1部部门信息息管理的的操作方方法对部门信息息进行管管理，即即对部门门信息进进行增加加、删除除、修改改操作，从从而实现现对部门门信息的的管理工工作。可可在进入入主界面面后单击击“人事信信息管理理”菜单，选选择“部门信信息管理理”项，则则会弹出
36、出部门信信息管理理窗体，如如图3-3 所所示：图3-33 部门门信息管管理界面面在此窗体中中即可实实现对部部门信息息的管理理工作，（1） 点击“添加加”按钮，即即可弹出出“添加部部门”(frrmAdddDeep)窗窗体，如如图3-4所示示：图3-4 部门门添加界界面在窗体中输输入需要要更改的的信息后后，点击击“添加”按扭后后，添加加信息，如如想取消消输入则则点击清清除按扭扭即可，然然后点击击“关闭”按钮退退出添加加窗体（2）点击击“删除”按钮点击“删除除”按钮后后，弹出出“部门信信息删除除”（frrmDeeletteDeep）窗窗体，如如图3-5所示示：图3-5 删除部部门信息息界面在列表中点
37、点击要删删除的信信息后，点点击“删除”按钮，即即可删除除信息，点点击“关闭”关闭窗窗体。（3）点击击“修改”按钮先在列表中中选中需需修改的的部门信信息，点点击“修改”按钮后后弹出“部门信信息修改改”（frrmMoodiffyDeep）窗窗体，如如图3-6所示示：图3-6 部门信信息修改改界面修改过信息息后，点点击“修改”按钮，即即完成对对部门信信息的修修改工作作，然后后点击“关闭”按钮退退出修改改窗体。3.5.22.2代代码实现现（1）弹出出部门管管理窗体体（frrmDeepMaanagge.ffrm）的的代码Privaate Subb mnnuDeeparrtMaanagge_CClicck
38、() LListtBarrMaiin.AActiiveLListt = 1 ffrmDDepMManaage.ShoowEnd SSub（2）实现现部门管管理中的的添加、删删除、修修改功能能实现添加加部门信信息的的的代码Privaate Subb cmmdAddd_CClicck() IIf ttxtDDepIID.TTextt = Theen MsggBoxx 部部门编码码不能为为空,请请输入部部门编码码!, vbbInfformmatiion + vvbOKKOnlly, 信息息不完整整 txttDeppID.SettFoccus Exiit SSub EEnd If IIf ttxtDD
39、epNNamee.Teext = TThenn MsggBoxx 部部门名称称不能为为空,请请输入部部门名称称!, vbbInfformmatiion + vvbOKKOnlly, 信息息不完整整 txttDeppNamme.SSetFFocuus Exiit SSub EEnd If If txttDeppMassterr.Teext = TThenn MsggBoxx 部部门主管管不能为为空,请请输入部部门主管管!, vbbInfformmatiion + vvbOKKOnlly, 信息息不完整整 txttDeppMassterr.SeetFoocuss Exiit SSub EEnd I
40、f IIf ttxtDDepNNotee.Teext = TThenn MsggBoxx 部部门描述述不能为为空,请请输入部部门描述述!, vbbInfformmatiion + vvbOKKOnlly, 信息息不完整整 txttDeppNotte.SSetFFocuus Exiit SSub EEnd If IIf ttxtIInneer.TTextt = Theen MsggBoxx 部部门录入入人不能能为空,请输入入部门录录入人!, vbIInfoormaatioon + vbbOKOOnlyy, 信息不不完整 txttInnner.SettFoccus Exiit SSub EEnd
41、If SSet Depp = Notthinng 当对象象引用到到集合中中的其他他的内存存空间时时，再添添加新的的数据时时，可以以正常添添加数据据，但再再次查询询时，原原来集合合中对应应的数据据会被覆覆盖掉，但但不会影影响到数数据库的的巨鹿添添加 DDep.DeppID = TTrimm(txxtDeepIDD.Teext) DDep.deppNamme = Trrim(txttDeppNamme.TTextt) DDep.deppMassterr = Triim(ttxtDDepMMastter.Texxt) DDep.deppNotte = Trrim(txttDeppNotte.TTex
42、tt) DDep.deppDatteInn = Triim(DDTPIIn.VValuue) DDep.deppInnner = TTrimm(txxtInnnerr.Teext) IIf DDepaartmmentts.AAddDDepaartmmentt(Deep) = TTruee Thhen Calll CCleaarInnfo Sett suubittem = ffrmDDepMManaage.lvwwMaiin.LListtIteems.Addd(, K_ & Deep.DDepIID, Depp.DeepIDD) subbiteem.LListtSubbIteems.Addd , , DDep.deppNamme subbiteem.LListtSubbIteems.Addd , , DDep.deppMassterr subbiteem.LListtSubbIteems.Addd , , DDep.deppNotte subbiteem.LListtSubbIteems.Addd , , DDep.deppDatteInn subbiteem.LListtSubbIteems.Addd , , DDep.deppInnner MsggBoxx 添添加部门门信息成成功!, vvbInnforrmattionn + v