《中小型企业人事信息管理系统设计137834.docx》由会员分享，可在线阅读，更多相关《中小型企业人事信息管理系统设计137834.docx（71页珍藏版）》请在taowenge.com淘文阁网|工程机械CAD图纸|机械工程制图|CAD装配图下载|SolidWorks_CaTia_CAD_UG_PROE_设计图分享下载上搜索。
1、河南理工大学本科毕业设计（论文）中小型企业“人事信息管理系统”设计摘要随着市场竞竞争的加剧剧，中小型型企业要想想在激烈的的竞争中立立于不败之之地，就要要不断的加加强管理，信信息量也就就不可避免免增加很多多，以往的的管理模式式已不再适适应现在社社会经济发发展的需求求和企业对对信息的需需求，拥有有一套能够够对企业人人事信息进进行系统管管理的应用用软件，就就显得犹为为得要。在毕业设计计期间，我我根据中小小型企业自自身的特点点，设计了了一套经济济型的信息息管理系统统。在这个个系统的设设计中我使使用了功能能强大的VVisuaal Baasic 6.0作作为软件开开发工具，MMicroosoftt Acc
2、cess 20000作为数据据库管理系系统，该系系统实现了了较为简单单的人事信信息管理，其其中包括部部门管理，员员工管理，工工资管理等等功能。本本系统设计计适用于中中小型企业业的人事系系统管理，在在一定程序序上提高了了企业的管管理效率，规规范了管理理，减轻人人事管理部部门的压力力，将人们们从繁重而而单一的工工作中解放放出来，从从而进一步步提高了小小型企业人人事信息管管理的工作作效率，以以下为我关键词：数数据库，模模块，部门门管理，员员工管理，工工资管理Abstrract目 录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.5.22部门
4、信息息管理3.5.22.1部门门信息管理理的操作方方法3.5.22.2代码码实现（1）弹出出部门管理理窗体（ffrmDeepMannage.frm）的的代码（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.1模块块开发前提提5
5、2模块块的建立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简便的操操作方法7.1.22 进一步步加强了对对数据库技技术的认识识7.2 存存在的问题题7.
6、3 以以后的努力力方向8 致谢9参考文献献1前言1.1 课课题的意义义、目的随着市场竞竞争的加剧剧，有关企企业人事管管理的各项项信息量也也成倍增长长。面对越越来越大的的信息量，就就需要使用用“小型企业业人事管理理系统”来提高整整个企业的的管理工作作效率。1.2 课课题研究的的范围因为计算机机及其应用用软件的不不断发展，使使得企业信信息化管理理已经越来来越得到重重视。而实实现企业信信息化的管管理，能够够提高企业业管理质量量、减轻企企业人事管管理部门的的压力。那那么就我设设计的“中小型企企业人事信信息管理系系统”软件具体体的讲，就就是要做到到对企业人人事信息的的规范化管管理、和快快速的查询询，从而
7、减减少管理方方面的工作作量。1.3 软软件设计所所能达到的的技术参数数本次软件开开发的工具具是Vissual Basiic 6.0，数据据环境使用用的是Miicrossoft Acceess 22000。充充分考虑到到实际情况况，使得开开发的应用用系统具有有较好的维维护性。在在符合管理理需要的条条件下，使使操作简单单、便捷。而而且采用了了功能强大大的数据库库系统，适适应大规模模数据处理理的要求。应应用软件在在当前居于于主流且技技术领先系系统平台上上设计，并并且安装简简单。我设计的“中小型企企业人事信信息管理系系统”具有以下下几个特点点：（1） 查查询方便提供信息重重组功能，将将离散、单单一的信
8、息息通过有机机的结合，向向使用者提提供的数据据更加快速速、有效和和准确。（2） 简简化工作流流程大大的提高高了人事系系统的的办办事效率，从从而节省了了大量的人人力、物力力和财力等等资源。（3） 实实用性强软件充分满满足中小型型企业的不不同管理需需求，且操操作简单，易易于维护，便便于保存和和传阅。（4） 操操作简便软件使用直直观的图形形界面，即即见既得的的录入格式式、方便的的录入方式式，电脑操操作与手工工处理流程程完全一致致，任何人人员可在极极短时间内内无师自通通。（5）功能能齐全可以随时查查询或统计计企业员工工的各种资资料。1.4 课课题解决的的主要问题题首先简要陈陈述一下我我设计的中中小型“
9、企业人事事信息管理理系统”软件主要要解决的几几方面问题题：（1） 在在“系统用户户管理模块块”中，完成成系统用户户的添加、用用户密码的的修改操作作；（2） 在在“部门管理理模块”中，用户户可根据所所在企业部部门的划分分及变动情情况，实现现对企业部部门信息的的查询，添添加，修改改，删除工工作。（3） 在在“员工管理理模块”中，可以以实现对所所在企业员员工基本信信息的录入入，根据不不同的身份份给予不同同的使用权权限，实现现对员工基基本信息的的添加、编编辑和删除除操作；（4） 在在“工资管理理模块”中，分为为工资信息息查询和工工资信息管管理。在工工资信息查查询功能中中，用户可可以在表中中选择所列列出
10、的员工工编码和工工资月份，选选择相应的的员工编码码和工资月月份，点击击查询进行行查询；在在工资信息息管理窗口口中，根据据表中已经经列出的当当前数据库库中的所有有员工工资资信息，选选择需处理理的员工信信息，然后后点击相应应的操作按按钮，如添添加，删除除，修改等等，然后进进行操作，点点击确定按按钮即可实实现相应的的功能。 （5） 在在“数据管理理模块”中，实现现对数据的的备份及恢恢复功以。即即用户可输输入所要备备份数据文文件及恢复复数据文件件的完整保保存路径，包包括保存文文件名，并并为此次操操作起一个个别名，点点击备份即即可。备份份或恢复成成功后会有有相应的成成功提示信信息出现。正文 我开发的的中
11、小企业业“人事信息息管理系统统”软件主要要由系统用用户管理、部部门管理、员员工管理、工工资管理、数数据管理和和和帮助六六个模块组组成。以下下为我对这这几个模块块的整个开开发过程。2系统用户户管理模块块2.1 开开发前提一般在开发发一个数据据库系统时时，需要设设置操作人人员，而这这些操作人人员的身份份也有所不不同，那么么他们就可可以根据各各自不同的的身份利用用本系统来来进行不同同的操作。而而本模块的的作用就在在于：利用用系统初始始设置的两两个用户名名和密码登登录后（AAdminnistrratorr用户和UUser用用户），可可根据不同同的权限对对系统拥有有不同的操操作权限。Adminnistr
12、ratorr用户是管管理员用户户，可以在在系统用户户管理中，增增加相应的的用户，并并且指定用用户的权限限（即拥有有添加、删删除、修改改系统信息息的权限）；Userr用户为普普通用户，只只能对系统统信息浏览览。2.2 模模块的建立立根据本系统统的需求，结结合实际系系统管理情情况，本模模块应作如如下的细化化：（1） 用用户登录界界面在安装好本本系统后，首首次使用时时利用系统统初始设置置的用户名名和密码登登录，即后后进入系统统用户管理理窗体，后后可添加，删删除，修改改用户。登登陆界面如如图所示：图2-1 登陆界面面（2） 添添加新用户户因为企业信信息管理的的工作量较较大，因此此需要参与与的各层管管理
13、人员也也会相应的的增加，所所以我专门门增加了一一些管理人人员，以适适应企业管管理的需求求，通过点点击操作界界面上的“系统维护护”菜单中的的“系统用户户管理”，就可以以进入下图图的界面，从从而实现对对用户的添添加，删除除，修改操操作。2.3 模模块的整体体流程登录系统通过验证系统管理模块主窗体添加新用户删除用户修改用户重新登录图2-2式式模块整体体流程2.4 数数据库的设设计本次设计的的系统使用用的是Acccesss 20000作为数数据库管理理系统，在在Acceess中，新新建一个数数据库，将将其命名为为“HR.mmdb”，在新建建的数据库库中建立一一个名为SSysteemUseer的表，表表
14、中用户名名为关键字字，唯一标标识出表中中的记录。其其字段结构构如表3-1所示：表2-1 用户管理理表（Addmin）字段名字段说明类型宽度备注用户名称管理员名文本10主关键字用户权限管理员权限限文本8不能为空密码管理员密码码文本8不能为空2.5 程程序的实现现 2.5.11 操作方方法当用户以AAdminnistrratorr用户登录录窗体后，点点击“系统维护护”菜单中的的“系统用户户管理”项后，则则出现如图图2-3所所示的“系统用户户管理”窗体。图2-3 系统用户户管理界面面（1）添加加系统用户户：点击添添加按钮，输输入相应的的用户名称称，用户权权限和用户户口令（最最好不少于于6位），再再点
15、击保存存即可；（2）删除除系统用户户：在列表表中选择要要删除的用用户，之后后再点击删删除索按钮钮即可；（3）修改改系统用户户：再列表表中选择要要修改的用用户，然后后点击图片片，修改用用户信息，最最后点击保保存即可；2.5.22代码的实实现（1）添加加用户Privaate SSub ccmdAddd_Cllick() ttxtNaame.EEnablled = Truue ttxtPaasswoord.EEnablled = Truue ccmbPeermisssionn.Enaabledd = TTrue ccmdSaave.EEnablled = Truue CCall CleaarInff
16、oEnd SSubPrivaate SSub ccmdSaave_CClickk() IIf txxtNamme.Teext = Thenn MMsgBoox 用用户名不能能为空,请请输入用户户名., vbIInforrmatiion + vbOOKOnlly, 信息不完完整 ttxtNaame.SSetFoocus EExit Sub EEnd IIf IIf txxtPasssworrd.Teext = Thenn MMsgBoox 用用户口令不不能为空,请输入用用口令., vbbInfoormattion + vbbOKOnnly, 信息不不完整 ttxtPaasswoord.SSetF
17、oocus EExit Sub EEnd IIf IIf Leen(Trrim(ttxtPaasswoord.TText) 6 Thhen IIf MssgBoxx(用户户口令长度度小于6位位,建议使使用长度大大于6位的的口令! & vvbCrLLf & 是: 修改/否否:不修改改, vvbInfformaationn + vvbYessNo, 安全提提示) = vbbYes Thenn ttxtPaasswoord.TText = ttxtPaasswoord.SSetFoocus EExit Sub EEnd IIf EEnd IIf IIf cmmbPerrmisssion.Textt
18、= Thhen MMsgBoox 用用户权限不不能为空,请输入用用户权限., vvbInfformaationn + vvbOKOOnly, 信息息不完整 ccmbPeermisssionn.SettFocuus EExit Sub EEnd IIf SSet UUser = Noothinng UUser.UserrNamee = TTrim(txtNName.Textt) UUser.UserrPassswordd = TTrim(txtPPasswword.Textt) UUser.UserrPermmissiion = Triim(cmmbPerrmisssion.Textt) IIf
19、 Ussers.AddUUser(Userr) = Truee Theen CCall CleaarInffo MMsgBoox 添添加系统用用户成功!, vvbInfformaationn + vvbOKOOnly, 成功功提示 EElse CCall CleaarInffo MMsgBoox 添添加系统用用户失败!, vvbCriiticaal + vbOKKOnlyy, 错错误提示 EEnd IIf SSet ssubittem = lvwwMainn.LisstIteems.AAdd(, K_ & Userr.UseerNamme, UUser.UserrNamee) ssubitte
20、m.LListSSubIttems.Add , , Userr.UseerPerrmisssion ssubittem.LListSSubIttems.Add , , Userr.UseerPasssworrd ccmdSaave.EEnablled = Fallse ttxtNaame.EEnablled = Fallse ttxtPaasswoord.EEnablled = Fallse ccmbPeermisssionn.Enaabledd = FFalseeEnd SSub（2）删除除用户Privaate SSub ccmdDeeletee_Cliick() llvwMaain.LLi
21、stIItemss.Remmove lvwMMain.SeleecteddItemm.Keyy UUserss.DelleteUUser Userr.UseerNamme CCall CleaarInffoEnd SSub（3）修改改用户 IIf txxtNamme.Teext = Thenn MMsgBoox 用用户名不能能为空,请请输入用户户名., vbIInforrmatiion + vbOOKOnlly, 信息不完完整 ttxtNaame.SSetFoocus EExit Sub EEnd IIf IIf txxtPasssworrd.Teext = Thenn MMsgBoox 用用
22、户口令不不能为空,请输入用用口令., vbbInfoormattion + vbbOKOnnly, 信息不不完整 ttxtPaasswoord.SSetFoocus EExit Sub EEnd IIf IIf Leen(Trrim(ttxtPaasswoord.TText) 6 Thhen IIf MssgBoxx(用户户口令长度度小于6位位,建议使使用长度大大于6位的的口令! & vvbCrLLf & 是: 修改/否否:不修改改, vvbInfformaationn + vvbYessNo, 安全提提示) = vbbYes Thenn ttxtPaasswoord.TText = ttxt
23、Paasswoord.SSetFoocus EExit Sub EEnd IIf EEnd IIf IIf cmmbPerrmisssion.Textt = Thhen MMsgBoox 用用户权限不不能为空,请输入用用户权限., vvbInfformaationn + vvbOKOOnly, 信息息不完整 ccmbPeermisssionn.SettFocuus EExit Sub EEnd IIf UUser.UserrNamee = TTrim(txtNName.Textt) UUser.UserrPassswordd = TTrim(txtPPasswword.Textt) UUser
24、.UserrPermmissiion = Triim(cmmbPerrmisssion.Textt) UUserss.ModdifyUUser Userr llvwMaain.SSelecctedIItem.Textt = UUser.UserrNamee llvwMaain.SSelecctedIItem.ListtSubIItemss(1).Textt = UUser.UserrPermmissiion lvwMMain.SeleecteddItemm.LisstSubbItemms(2).Texxt = Userr.UseerPasssworrd CCall CleaarInffo cc
25、mdMoodifyy.Enaabledd = FFalseeEnd SSub2.6 得得出的结果果以及对结结果的讨论论通过使用该该模块，就就可以有效效的规范拥拥有使用权权限的不同同层次的管管理人员的的数量，便便于企业领领导随时查查阅他们的的信息，规规范管理，保保证输入本本系统的所所有信息的的准确性和和一致性，确确保“人事信息息管理系统统”的正常运运行。3部门信息息管理3.1模块块开发前提提每个企业因因其企业性性质及管理理模式的不不同，组织织结构也不不尽相同，因因此部门的的划分方法法及细化程程度也不一一样。但对对于一个中中小型企业业来说，一一般都会采采用直线制制，部门职职能制等适适合中小型型企业
26、的组组织结构。在组织所划划分的这些些部门中，它它们既相互互独立，又又相互协作作，不同的的部门拥有有不同的工工作内容，承承担着不同同的职责，拥拥有不同的的权限，需需完成组织织特定方面面的工作，各各部门又相相互协作，共共同完成组组织方方面面面的工作作，从而实实现组织的的目标，因因此对部门门的信息进进行管理就就显必不可可少了。3.2模块块的建立 根据本系统统的需求，结结合实际管管理情况，本本模块应作作如下细化化：（1）在查查询方面随着企业规规模的不断断扩大，企企业中设立立的部门也也越来越具具体化，因因此部门的的数量也不不可避免的的增加，查查询功能的的实现，可可以很好的的解决管理理工作中繁繁琐的查找找
27、工作，从从而很好的的提高管理理效率。（2）在操操作方面在此部分中中，用户可可以根据管管理中的不不同需求，对对部门信息息进行调整整，即可以以执行添加加、删除和和修改基本本信息的操操作，以适适应管理上上的需求。通通过此模块块，可以快快速高效的的对部门进进行的调整整，以减少少不必要的的工作量，将将工作人员员从繁琐的的日常事务务中解脱出出来。3.3 模模块的整体体流程根据大多数数中小企业业的管理流流程，结合合上述的功功能，模块块的整体流流程如图33-1所示示：登录用户通过验证程序主窗口对现有部门的信息进行管理（包括添加、修改、删除）查询现有部门的相关信息重新登录查询帮助信息图3-1 部门管理理模块总体
28、体流程图3.4 数数据库的设设计本次设计所所用的数据据库为Acccesss，在名为为HR的数数据库中建建立了一个个表，名字字为Deppartmment，可可以在程序序中对其进进行调用。本模块以企企业部门的的基本信息息为对象，编编制了一份份表格，其其中详述了了每个字段段的设置及及对其的说说明。在此此表中，以以部门编码码字段为该该表的主关关键字（PPrimaary KKey，PPK），它它唯一标识识了每一个个部门的记记录， 其其详表如下下表所示：表3-1 Deppartmment表表字段名类型宽度备注部门编码文本7主关键字部门名称文本10不能为空部门主管数字长整型不能为空，对对应于Deepartt
29、mentt表id字字段部门描述文本200可以为空录入时间日期/时间间10可以为空录入人文本8可以为空3.5 程程序的实现现在主菜单中中，设计了了三个根菜菜单，“人事信息息管理”，“系统维护护”和“杂项”。“人事信息息管理”菜单用来来对企业的的部门、员员工、工资资等信息进进行管理，在在本节中，着着重谈到的的是其中的的对部门信信息的管理理工作。3.5.11部门信息息查询在窗体中添添加一个部部门信息查查询的窗体体，取名为为frmDDepQuuery .frmm,并为ffrmDeepQueery .frm窗窗体进行菜菜单的设计计和代码的的设计。3.5.11.1 部部门信息查查询的操作作方法：当用户需要
30、要对部门信信息进行查查询时，可可以在主界界面的“人事信息息管理”根菜单中中，选择“部门信息息查询”选项，也也可点击主主窗体上的的快捷键“部门信息息查询”，弹出“部门信息息查询”窗体，如如图3-22所示图3-2 部门信息息查询界面面在窗体中的的“部门编码码”中输入要要查询的部部门编码，点点击“查询”按钮，即即可在窗体体中“查询结果果”下方显示示所要查询询的信息。如如果没有查查找到相关关信息，则则会弹出“错误揭示示”消息框，并并显示“您所查找找的部门不不存在,请请重新查找找!”点击确定定后，重新新输入进行行查找。3.5.11.2代码码的实现（1）弹出出部门查询询窗休（ffrmDeepQueery
31、.frm）：Privaate SSub mmnuDeeparttQuerry_Cllick() LListBBarMaain.AActivveLisst = 1 ffrmDeepQueery.SShowEnd SSub（2）实现现查询功能能的代码如如下：Privaate SSub ccmdQuuery_Clicck()On Errror GoToo LabbErr ttxtDeepID.Textt = DDeparrtmennts.DDeparrtmennts(K_ & cmmbDeppID.TText).DeppID ttxtDeepNamme.Teext = Deppartmmentss.
32、Deppartmmentss(K_ & cmbDDepIDD.Texxt).ddepNaame ttxtDeepMasster.Textt = DDeparrtmennts.DDeparrtmennts(K_ & cmmbDeppID.TText).deppMastter ttxtDeepNotte.Teext = Deppartmmentss.Deppartmmentss(K_ & cmbDDepIDD.Texxt).ddepNoote ttxtDaateInn.Texxt = Depaartmeents.Depaartmeents(K_ & ccmbDeepID.Textt).deepDa
33、tteIn ttxtInnner.Textt = DDeparrtmennts.DDeparrtmennts(K_ & cmmbDeppID.TText).deppInneer EExit SubLabErrr: CCall CleaarInffo MMsgBoox 您您所查找的的部门不存存在,请重重新查找!, vvbCriiticaal + vbOKKOnlyy, 错错误提示End SSub3.5.22部门信息息管理在工程中添添加一个部部门信息管管理的窗体体，取名为为frmDDepMaanagee.frmm 并为这这个窗体进进行代码设设计。3.5.22.1部门门信息管理理的操作方方法对部门信
34、息息进行管理理，即对部部门信息进进行增加、删删除、修改改操作，从从而实现对对部门信息息的管理工工作。可在在进入主界界面后单击击“人事信息息管理”菜单，选选择“部门信息息管理”项，则会会弹出部门门信息管理理窗体，如如图3-33 所示：图3-33 部门信信息管理界界面在此窗体中中即可实现现对部门信信息的管理理工作，（1） 点击“添加加”按钮，即即可弹出“添加部门门”(frmmAddDDep)窗窗体，如图图3-4所所示：图3-4 部门添添加界面在窗体中输输入需要更更改的信息息后，点击击“添加”按扭后，添添加信息，如如想取消输输入则点击击清除按扭扭即可，然然后点击“关闭”按钮退出出添加窗体体（2）点击
35、击“删除”按钮点击“删除除”按钮后，弹弹出“部门信息息删除”（frmmDeleeteDeep）窗体体，如图33-5所示示：图3-5 删除部门门信息界面面在列表中点点击要删除除的信息后后，点击“删除”按钮，即即可删除信信息，点击击“关闭”关闭窗体体。（3）点击击“修改”按钮先在列表中中选中需修修改的部门门信息，点点击“修改”按钮后弹弹出“部门信息息修改”（frmmModiifyDeep）窗体体，如图33-6所示示：图3-6 部门信息息修改界面面修改过信息息后，点击击“修改”按钮，即即完成对部部门信息的的修改工作作，然后点点击“关闭”按钮退出出修改窗体体。3.5.22.2代码码实现（1）弹出出部门
36、管理理窗体（ffrmDeepMannage.frm）的的代码Privaate SSub mmnuDeeparttManaage_CClickk() LListBBarMaain.AActivveLisst = 1 ffrmDeepMannage.ShowwEnd SSub（2）实现现部门管理理中的添加加、删除、修修改功能实现添加加部门信息息的的代码码Privaate SSub ccmdAddd_Cllick() IIf txxtDeppID.TText = Theen MMsgBoox 部部门编码不不能为空,请输入部部门编码!, vvbInfformaationn + vvbOKOOnly,
37、信息息不完整 ttxtDeepID.SetFFocuss EExit Sub EEnd IIf IIf txxtDeppNamee.Texxt = TThen MMsgBoox 部部门名称不不能为空,请输入部部门名称!, vvbInfformaationn + vvbOKOOnly, 信息息不完整 ttxtDeepNamme.SeetFoccus EExit Sub EEnd IIf IIf txxtDeppMastter.TText = Theen MMsgBoox 部部门主管不不能为空,请输入部部门主管!, vvbInfformaationn + vvbOKOOnly, 信息息不完整 tt
38、xtDeepMasster.SetFFocuss EExit Sub EEnd IIf IIf txxtDeppNotee.Texxt = TThen MMsgBoox 部部门描述不不能为空,请输入部部门描述!, vvbInfformaationn + vvbOKOOnly, 信息息不完整 ttxtDeepNotte.SeetFoccus EExit Sub EEnd IIf IIf txxtInnner.TText = Theen MMsgBoox 部部门录入人人不能为空空,请输入入部门录入入人!, vbIInforrmatiion + vbOOKOnlly, 信息不完完整 ttxtInnn
39、er.SetFFocuss EExit Sub EEnd IIf SSet DDep = Notthingg 当对对象引用到到集合中的的其他的内内存空间时时，再添加加新的数据据时，可以以正常添加加数据，但但再次查询询时，原来来集合中对对应的数据据会被覆盖盖掉，但不不会影响到到数据库的的巨鹿添加加 DDep.DDepIDD = TTrim(txtDDepIDD.Texxt) DDep.ddepNaame = Triim(txxtDeppNamee.Texxt) DDep.ddepMaasterr = TTrim(txtDDepMaasterr.Texxt) DDep.ddepNoote = Tr
40、iim(txxtDeppNotee.Texxt) DDep.ddepDaateInn = TTrim(DTPIIn.Vaalue) DDep.ddepInnner = Trrim(ttxtInnner.Textt) IIf Deeparttmentts.AdddDeppartmment(Dep) = TTrue Thenn CCall CleaarInffo SSet ssubittem = frmmDepMManagge.lvvwMaiin.LiistIttems.Add(, KK_ & Depp.DeppID, Dep.DepIID) ssubittem.LListSSubIttems.A
41、dd , , Dep.depNName ssubittem.LListSSubIttems.Add , , Dep.depMMasteer ssubittem.LListSSubIttems.Add , , Dep.depNNote ssubittem.LListSSubIttems.Add , , Dep.depDDateIIn ssubittem.LListSSubIttems.Add , , Dep.depIInnerr MMsgBoox 添添加部门信信息成功!, vvbInfformaationn + vvbOKOOnly, 成功功提示 EElse MMsgBoox 添添加部门信信息失
42、败!, vvbCriiticaal + vbOKKOnlyy, 错错误提示 EEnd IIfEnd SSub实现对部部门信息删删除的代码码Privaate SSub ccmdCllear_Clicck() CCall CleaarInffoEnd SSubPrivaate SSub CClearrInfoo() ttxtDeepID.Textt = ttxtDeepNamme.Teext = ttxtDeepMasster.Textt = ttxtDeepNotte.Teext = ttxtInnner.Textt = ttxtDeepID.SetFFocussEnd SSubPrivaate SSub FForm_Loadd() DTPPIn.VValuee = ttodayy()End SSubPrivaate SSub FForm_Unlooad(CCanceel Ass Inttegerr) SSet DDep = NotthinggEnd SSub实现对部部门信息修修改功能的的代码 IIf txxtDeppID.TText = Theen MMsgBoox 部部门编码不不能为空,请输入部部门编码!