老干部管理

《老干部管理》由会员分享，可在线阅读，更多相关《老干部管理（38页珍藏版）》请在装配图网上搜索。

1、中图分类号： 密 级： UDC： 本校编号： 毕 业 设设 计 论 文文论文题目：老干部部管理系系统小组成员：朱丽娟娟 李元元桃 周周满红 郭统平平 柴志志刚 学校指导教教师姓名名： 赵传成成 职称： 讲师师 申请学位等等级： 专专业：网网络技术术教育论文提交日日期： 20008年55月166日 论文文答辩日日期： 独创性声明明本人声明所所呈交的的毕业设设计论文文是本人人在老师师指导下下进行的的系统设设计，除除了文中中特别加加以标注注和致谢谢之处外外，论文文中不包包含其他他人已经经发表或或撰写过过的文章章，也不不包含获获得 兰州城城市学院院 或其他他教育机机构的学学位或证证书而使使用过的的材料

2、。同同组同学学对本所所做的任任何贡献献均已在在论文中中作了明明确的说说明并表表示了谢谢意。小组成员签签名： 签字日期： 年 月 日学位论文版版权使用用授权书书本论文作者者完全了了解 兰州城城市学院院 有关保保留、使使用毕业业论文的的规定。特特授权 兰州城城市学院院 可以将将毕业论论文的全全部或部部分内容容编入有有关数据据库进行行检索，并并采用影影印、缩缩印或扫扫描等复复制手段段保存、汇汇编以供供查阅和和借阅。同同意学校校向国家家有关部部门或机机构送交交论文的的复印件件和磁盘盘。小组成员签签名： 签字日期： 年 月 日日 指导教师签签名：签字日期： 年 月 日日 毕 业 设设 计 论 文文老干部

3、管理理系统The Mannagee SSysttem Off RRetiiredd CCadrre成 员 姓姓 名： 朱丽娟娟，李元元桃，柴柴志刚 郭统平平，周满满红 学科、专业业 ： 网 络络 技 术 教教 育 指 导 教教 师： 赵 传 成成 完 成 日日 期： 20008 年5月月 166日 兰州城城市学院Lanzhhou Citty Uniiverrsitty摘要 为了了对老干干部群体体进行统统计和管管理，基基于Viisuaal BBasiic6.0平台台，开发发了老干干部管理理系统。本本系统实实现了信信息录入入功能、浏浏览功能能、查询询功能、修修改功能能、以及及数据清清空等五五大模块

4、块。为及及时准确确的更新新和管理理老干部部成员提提供了方方便。关键词：查查询功能能 修改功功能 高级级可视化化语言AbstrracttIn orrderr too coountt annd mmanaage rettireed ccadrre, bassed on Vissuall Baasicc6.00 fllat rooof, we emppoldder rettireed ccadrre mmanaage sysstemm. TThe sysstemm haave acttuallizeed iinpuut ccommmuniicattionn fuuncttionn、broow cco

5、mmmuniicattionn fuuncttionn、fiind commmunnicaatioon ffuncctioon、eeditt coommuuniccatiion funnctiion andd cllearr coommuuniccatiion thiis ffivee moodulles. Its hhelpp foor yyou to upddatee annd mmanaage rettireee eexacctlyy annd bbetiimess.keywoordss: finnd ccommmuniicattionn fuuncttionn ; ediit ccom

6、mmuniicattionn fuuncttionn; aadvaanceed vvisuual lannguaage目 录摘要I引 言言1一、系统开开发思想想及功能能分析11.1设计计目标11.2开发发设计思思想11.3需要要实现的的系统功功能11.4系统统功能结结构2二定义数数据库22.1数据据库需求求分析22.2创建建数据库库中表的的结构3三.设计系系统结构构43.1创建建数据库库中表的的结构43.2认识识系统表表单6四.各个主主要功能能模块的的实现74.1登录录表单74.2浏览览表单84.3增加加记录表表单104.4删除除记录表表单114.5修改改记录表表单134.6查询询表单14五、

7、性能测测试与分分析18六、致谢19七、参考文文献19- III -引 言言“百善孝为为先”，尊敬敬老人是是我们中中华民族族的传统统美德。随随着社会会的发展展和科学学的进步步，人口口老龄化化是当今今社会发发展的一一个明显显趋势，特特别是在在我们人人口众多多的国家家，这种种现象尤尤为突出出。及时时全面的的统计老老干部的的基本情情况，然然后按照照一定的的政策法法规热心心的援助助他们，真真正做到到“老有所所养”，这样样社会才才能和谐谐发展。一、系统开开发思想想及功能能分析 当当我们设设计一个个实用系系统时，首首先要做做的是对对其进行行需求分分析。要要明确任任务是什什么，要要完成的的功能是是什么，以以及

8、客户户的特殊殊要求是是什么，然然后对资资料进行行研究和和分析，为为后面的的结构设设计做好好准备。1.1设计计目标本系统设计计的主要要目标是是让管理理人员轻轻松，快快捷，准准确的对对老干部部群体的的进行管理和和数据的的更新。1.2开发发设计思思想 在确定定了本系系统的开开发目标标后，开开发本系系统时主主要在本本系统中中体现了了如下几点开发设设计思想想：（1） 所开发的老老干部管管理系统统应适合合老干部部群体的的基本情情况，满满足老干干部管理理人员的的日常管管理需求求。（2） 达到操作过过程中直直观、方方便、实实用、安安全等要要求。（3） 所开发的系系统应采采用模块块化设计计方案，这这样既便便于系

9、统统功能的的组合和和修改，又又便于未未参与开开发的技技术维护护人员的的补充、维维护。（4） 所开发的系系统应具具备数据据库维护护功能，能能够及时时根据用用户需求求进行数数据添加加、删除除和修改改等操作作。1.3需要要实现的的系统功功能 本系统统是用于于对老干干部成员员进行管管理的系系统，采采用了面面向对象象的设计计思想，以以菜单和和表单的的形式进进行各表表单的调调用，其其系统功功能分析析是在系系统开发发的总体体任务的的基础上上完成的的。 因此，本本系统应应该主要要完成和和实现如如下功能能： （1）信信息录入入功能 本系系统应实实现老干干部的基基本信息息、老干干部参加加工作时时间、老老干部退退休

10、时间间、老干干部退休休前职务务、以及及老干部部政治面面貌等信信息的录录入。 （2）浏浏览功能能 该功功能包括括浏览所所有老干干部登记记情况、退退休前工工资情况况、政治治面貌，退退前职务务等，其其中又分分为逐个个浏览和和全部浏浏览。 （3）查查询功能能 该功功能包括括单记录录查询和和多记录录查询，其中单记录查询中可以根据姓名和序号字段进行查询，多记录查询可以通过籍贯、退前职务、工作时间、政治面貌、姓名、性别等组合查询。（4） 统统计功能能 该功能能包括对对老干部部人数以以及基本本信息库库存量的的统计。 （5）数数据清空空功能 此外，为为了保证证系统的的安全性性，在进进入本系系统前必必须输入入有效

11、的的密码，以以防止他他人对数数据的篡篡改，造造成不必必要的麻麻烦和损损失。1.4系统统功能结结构 此此系统的的运行从从登录表表单开始始，我们们可以在在这里要要求用户户输入自自己的登登录密码码，如果果密码输输入不正正确，则则无法进进如该系系统；否否则将进进入系统统并接受受用户操操作，在在操作完完毕后可可以从系系统菜单单中退出出系统。本本系统的的功能结结构框架架图如下下所示。开始登陆老 干 部 管 理 系 统信息浏览信息查询数据维护关于系统退出系统逐个浏览全部浏览添加用户删除用户用户密码修改添加记录数据修改与清除系统开发说名对应字段多记录查询单记录查询以退休时间为条件查询以退前职务为条件查询根据序

12、号查询以工作时间为条件查询以姓名为条件查询以政治面貌为条件查询以序号为条件查询根据姓名查询二定义数数据库2.1数据据库需求求分析管理员 老干部管理系统修改密码显示修改信息浏览用户显示添加信息添加用户显示浏览信息删除用户显示删除信息登录信息进入管理系统增加记录显示增加记录信息删除记录显示删除记录信息修改记录显示修改记录信息老干部信息 逐个浏览全部浏览单记录查询多记录查询2.2创建建数据库库中表的的结构由以上分析析我们可可以知道道，本系系统共有有2个数据据表组成成，分别别为：老老干部信信息表（llgbxxx.xxls）、用用户表（uuserr.xlls）。本系统数据据库中的的各个表表的设计计如下图

13、图所示 老干部部信息表表（lggbxxx.xlls）字段字段名数据类型字段大小1ID自动编号长整型2xh数字双精度型3xm文本2554xb文本2555mz文本2556zzmm文本2557jg文本2558csny文本2559gzsj数字双精度型10txsj数字双精度型11tqzw文本25512sfzh文本255用户表（uuserr.xlls）字段字段名数据类型字段大小1ID邮件列列表IDD自动编号长整型2usernnamee文本503pwd文本30三.设计系系统结构构 当我们们在需求求分析、概概念结构构设计的的基础上上得到数数据库的的逻辑结结构之后后，就可可以在MMicrrosooft Viss

14、uall Baasicc 6.0中文文版 数数据库系系统中来来实现该该逻辑结结构了3.1创建建数据库库中表的的结构 数数据库逻逻辑结构构的实现现是通过过 Miicroosofft EExceel 创创建表，然然后导入入到Miicroosofft AAcceess,下面是我我们具体体导入的的全过程程：创建表格的的操作步步骤如下下：（1）首先先，我们们需要创创建表，名名为“lgbbxx”、“useer”，将其其保存在在C:Doccumeentss annd SSetttinggsAAdmiinisstraatorr桌面面老干干部管理理系统下下。 (22）下面面，我们们将表llgbxxx,uuser

15、r导入MMicrrosooft Acccesss 数据据库。下下面我们们介绍导导入的过过程。首先打开MMicrrosooft Acccesss,点击击空数据据库，在在文件名名中输入入数据库库名（sshujjukuu）,如如下图所所示： 点击创建，进进入如图图所示界界面：选择文件获取外外部数据据导入，选选择预先先建的EExceel表，点点击导入入，结果果如下图图所示：勾选第一行行列标题题（I），按按下一步步，进入入如图所所示界面面：按系统下一一步，显显示如图图所示界界面：修改导入到到表（II）名为为:lggbxxx,点击击完成，llgbxxx表成成功导入入到数据据库Miicroosofft AA

16、cceess中中，usser表表的导入入与lggbxxx表完全全一致。3.2认识识系统表表单我们知道，在在Miccrossoftt Viisuaal BBasiic(设设计)中中，表单单和控件件都是应应用程序序中的对对象。而而所谓表表单，就就是指用用户所要要接触的的界面，是是用户操作作的对象象。用户户对本系系统的使使用和管管理都是是通过表表单进行行的了。因因此，我我们就可可以通过过设置对对象的属属性，编编写程序序来处理理对象。表表单的设设置和制制作在系系统中占占有重要要的地位位。在使用表单单设计器器的时候候我们可可以作到到：（1）对各各控件的的属性进进行设置置；（2）向表表单中添添加控件件对象

17、和和类；（3）编写写程序来来处理对对象。根据系统要要求按其其功能模模块确定定所需设设计的表表单，每每项功能能都对应应由一个个表单或或多个表表单来实实现。下表列出了了本系统统中所涉涉及到的的表单及及其功能能。序号文件名称功能含义1主表单系统主界面面2登录管理员进行行系统登登录3添加记录添加所需的的记录信信息4删除记录删除不必要要的记录录信息5全部浏览浏览所有记记录信息息6单记录查询询用于查询单单个记录录信息7多记录查询询用于查询多多个记录录信息8修改记录用于修改记记录信息息9字段对照表表核对字段名名10frmSpplassh介绍开发环环境和其其他信息息11用户浏览用于浏览记记录信息息12单记录浏

18、览览浏览单个记记录信息息13用户删除删除所要删删除的用用户信息息14添加用户添加所需用用户信息息15修改密码用于修改登登陆密码码四.各个主主要功能能模块的的实现采用模块化化思想可可以大大大提高设设计的效效率，并并且可以以最大限限度的减减少系统统不必要要的错误误。4.1登录录表单 登录表单的的具体实实现过程程如下： “确定”代码：Privaate Subb cmmdOKK_Cllickk()Dim uuserrnamme AAs SStriingDim mmrc As ADOODB.Reccorddsetttxtsqql = sseleect useernaame froom uuserr wh

19、heree ussernnamee= & Triim(ttxtUUserrNamme.TTextt) & Set mmrc = EExeccuteeSQLL(txxtsqql)If mrrc.EEOF = TTruee ThhenMsgBoox 用户户名错误误！, vbbExcclammatiion + vvbOKKOnlly, 警告告txtUsserNNamee.SeetFoocusstxtUsserNNamee.SeelSttartt = 0txtUsserNNamee.SeelLeengtth = Leen(MMe.ttxtUUserrNamme.TTextt)Exit SubbEnd

20、IIfusernnamee = mrcc.Fiieldds(00)txtsqql = sseleect useernaame froom uuserr whheree pwwd= & Trrim(txttPassswoord.Texxt) & Set mmrc = EExeccuteeSQLL(txxtsqql)If mrrc.EEOF = TTruee ThhenMsgBoox 密码码错误！, vbEExcllamaatioon + vbbOKOOnlyy, 警告txtPaasswwordd.SeetFoocusstxtPaasswwordd.SeelSttartt = 0txtPaassw

21、wordd.SeelLeengtth = Leen(MMe.ttxtPPasssworrd.TTextt)Exit SubbEnd IIf mainn.Shhow Unnloaad MMeEnd SSub4.2浏览览表单 浏览览表单分分为全部部浏览表表单和逐逐个浏览览表单。（一）全部部浏览表表单如下下图：MSFlexGrid1 运行结果果如下：（二）逐个个浏览表表单如下下：Data1具体实现代代码如下下： “上上一条”代码： Privaate Subb Coommaand11_Cllickk()Commaand22.Ennablled = TTruee DDataa1.RRecoordsset

22、.MovvePrreviiouss If DDataa1.RRecoordsset.BOFF ThhenCommaand11.Ennablled = FFalsseData11.Reecorrdseet.MMoveeFirrstEnd IIfShow DattaEnd SSub“下一条”代码： Priivatte SSub Commmannd2_Cliick()Commaand11.Ennablled = TTruee Dataa1.RRecoordsset.MovveNeextIf Daata11.Reecorrdseet.EEOF Theen Commmandd2.EEnabbledd =

23、 FallseData11.Reecorrdseet.MMoveeLasstEnd IIfShow DattaEnd SSub“第一条”代码：Privaate Subb Coommaand44_Cllickk()Data11.Reecorrdseet.MMoveeFirrstShow DattaEnd SSub “最后后一条”代码： PPrivvatee Suub CCommmandd5_CClicck()Data11.Reecorrdseet.MMoveeLasstShow DattaEnd SSub 4.3增增加记录录表单表单设计如如下：具体实现代代码如下下： “ 添添加”代码： Priv

24、vatee Suub CCommmandd1_CClicck()Commaand22.Ennablled = TTrueeData11.Reecorrdseet.AAddNNewFor ii = 1 TTo 99Text11(i).Ennablled = TTrueeText11(i).Teext = Next iComboo1.EEnabbledd = TruueText11(1).SeetFoocussCommaand11.Ennablled = FFalsseCommaand22.Ennablled = TTrueeCommaand33.Ennablled = TTrueeEnd SSu

25、b “完完成”代码： Priivatte SSub Commmannd2_Cliick()Data11.Reecorrdseet.UUpdaateMsgBoox 你已成成功填加加记录, vvbOKKOnlly, 祝贺贺你For ii = 0 TTo 99Text11(i).Ennablled = FFalsseText11(i).Teext = Next iCommaand11.Ennablled = TTrueeCommaand22.Ennablled = FFalsseCommaand33.Ennablled = FFalsseEnd SSub “取消”代码： PPrivvatee Suu

26、b CCommmandd3_CClicck()Data11.UppdatteCoontrrolssFor ii = 1 TTo 99Text11(i).Ennablled = FFalsseText11(i).Teext = Next iCommaand11.Ennablled = TTrueeCommaand22.Ennablled = FFalsseCommaand33.Ennablled = FFalsseEnd SSub 4.4删删除记录录表单 表单设设计如下下： 具体实现代代码如下下：“删除”代代码： Priivatte SSub Commmannd4_Cliick()on eerr

27、oor ggotoo tssDim aans As Inttegeerans = MssgBoox(你确定定要删除除吗？, vvbYeesNoo, 警告)If anns = vbbYess ThhenData11.Reecorrdseet.DDeleeteIf Daata11.Reecorrdseet.EEOF TheenData11.Reecorrdseet.MMoveeLasstEnd IIfEnd IIfData11.ReefreeshEnd SSub“上一条”代码： Prrivaate Subb Coommaand11_Cllickk()Commaand22.Ennablled = T

28、TrueeData11.Reecorrdseet.MMoveePreevioousIf Daata11.Reecorrdseet.BBOF TheenCommaand11.Ennablled = FFalsseData11.Reecorrdseet.MMoveeFirrstEnd IIfShow DattaEnd SSub “下下一条”代码： Prrivaate Subb Coommaand22_Cllickk()Commaand11.Ennablled = TTrueeData11.Reecorrdseet.MMoveeNexxtIf Daata11.Reecorrdseet.EEOF Th

29、eenCommaand22.Ennablled = FFalsseData11.Reecorrdseet.MMoveeLasstEnd IIfShow DattaEnd SSub4.5修改改记录表表单 表单单设计如如下：具体实现代代码如下下：“ 修改”代码： PPrivvatee Suub CCommmandd4_CClicck()If Teext112.TTextt = TheenMsgBoox 先输入入要修改改记录的的姓名!, vbOOKOnnly, 提提示Text112.SSetFFocuusElseText11.SeetFoocussData11.Reecorrdseet.eeditt

30、Data11.Reecorrdseet.UUpdaateEnd IIfEnd SSub“取消”代代码： PPrivvatee Suub CCommmandd2_CClicck()Data11.UppdatteCoontrrolssEnd SSub“定位”代代码：Privaate Subb Coommaand55_Cllickk()If Teext112.TTextt = TheenMsgBoox 先输入入要修改改记录的的姓名!, vbOOKOnnly, 提提示Text112.SSetFFocuusExit SubbEnd IIfData11.Reecorrdseet.FFinddFirrst

31、xmm= & Texxt122.Teext & If Daata11.Reecorrdseet.NNoMaatchh ThhenMsgBoox 输入有有误,请请核对, vvbOKKOnlly, 查找找结果Text112.TTextt = Text112.SSetFFocuusExit SubbEnd IIfText11.Ennablled = TTrueeText22.Ennablled = TTrueeText33.Ennablled = TTrueeText44.Ennablled = TTrueeText55.Ennablled = TTrueeText66.Ennablled = TT

32、rueeText77.Ennablled = TTrueeText88.Ennablled = TTrueeText99.Ennablled = TTrueeText110.EEnabbledd = TruueComboo1.EEnabbledd = TruueCommaand22.Ennablled = TTruee End Subb4.6查询询表单 查询有有单记录录查询表表单和多多记录查查询表单单。 （一）、单单记录查查询表单单如下：具体实现代代码如下下：“查询”代代码：Privaate Subb Coommaandddan_Cliick()If Teext112.TTextt = The

33、enm = MMsgBBox(先输输入要查查找的信信息!, vvbOKKOnlly, 提示示)Text112.SSetFFocuusExit SubbEnd IIfSelecct CCasee Coomboo1.LListtInddexCase Is = 00Data11.Reecorrdseet.FFinddFirrst xmm= & Texxt122.Teext & Case Is = 11Data11.Reecorrdseet.FFinddFirrst xhh= & Texxt122.Teext & End SSeleectText11.Ennablled = TTrueeText22.

34、Ennablled = TTrueeText33.Ennablled = TTrueeText44.Ennablled = TTrueeText55.Ennablled = TTrueeText66.Ennablled = TTrueeText77.Ennablled = TTrueeText88.Ennablled = TTrueeText99.Ennablled = TTrueeText110.EEnabbledd = TruueText111.EEnabbledd = TruueIf Daata11.Reecorrdseet.NNoMaatchh Thhenm = MMsgBBox(输入

35、入有误,请核对对, vbOOKOnnly, 查查找结果果)Text112.TTextt = Text112.SSetFFocuusText11.Ennablled = FFalsseText22.Ennablled = FFalsseText33.Ennablled = FFalsseText44.Ennablled = FFalsseText55.Ennablled = FFalsseText66.Ennablled = FFalsseText77.Ennablled = FFalsseText88.Ennablled = FFalsseText99.Ennablled = FFalsseT

36、ext110.EEnabbledd = FallseText111.EEnabbledd = FallseEnd IIfEnd SSub（二）多记记录查询询表单如如下：具体实现代代码如下下： “查询”代码： Priivatte SSub Commmanndduuo_CClicck()Dim sstr As StrringgDim ii, nn Ass InnteggerMSFleexGrrid11.CllearrSelecct CCasee Coomboo1.LListtInddexCase Is = 00Set mmrc = NNothhinggmrc.OOpenn sseleect xh,

37、xm,xb,mz,zzmmm,jjg,ccsnyy,gzzsj,txssj,ttqzww,sffzh froom llgbxxx wwherre xxb= & TTextt1.TTextt & , aadoccon, addOpeenDyynammic, addLocckOpptimmistticCase Is = 11Set mmrc = NNothhinggmrc.OOpenn sseleect xh,xm,xb,mz,zzmmm,jjg,ccsnyy,gzzsj,txssj,ttqzww,sffzh froom llgbxxx wwherre mmz= & TTextt1.TTextt

38、& , aadoccon, addOpeenDyynammic, addLocckOpptimmistticCase Is = 22Set mmrc = NNothhinggmrc.OOpenn sseleect xh,xm,xb,mz,zzmmm,jjg,ccsnyy,gzzsj,txssj,ttqzww,sffzh froom llgbxxx wwherre zzzmmm= & Teext11.Teext & , addocoon, adOOpennDynnamiic, adLLockkOpttimiistiic Casee Iss = 3 Set mrcc = Notthinng mrc

39、.Opeen sellectt xhh,xmm,xbb,mzz,zzzmm,jg,csnny,ggzsjj,txxsj,tqzzw,ssfzhh frrom lgbbxx wheere gzssj= & TTextt1.TTextt & , aadoccon, addOpeenDyynammic, addLocckOpptimmistticCase Is = 44Set mmrc = NNothhinggmrc.OOpenn sseleect xh,xm,xb,mz,zzmmm,jjg,ccsnyy,gzzsj,txssj,ttqzww,sffzh froom llgbxxx wwherre

40、ttxsjj= & Teext11.Teext & , addocoon, adOOpennDynnamiic, adLLockkOpttimiistiicCase Is = 55Set mmrc = NNothhinggmrc.OOpenn sseleect xh,xm,xb,mz,zzmmm,jjg,ccsnyy,gzzsj,txssj,ttqzww,sffzh froom llgbxxx wwherre ttqzww= & Teext11.Teext & , addocoon, adOOpennDynnamiic, adLLockkOpttimiistiicCase Is = 66Set

41、 mmrc = NNothhinggmrc.OOpenn sseleect xh,xm,xb,mz,zzmmm,jjg,ccsnyy,gzzsj,txssj,ttqzww,sffzh froom llgbxxx wwherre jjg= & TTextt1.TTextt & , aadoccon, addOpeenDyynammic, addLocckOpptimmistticEnd SSeleectIf Teext11.Teext = TThennMsgBoox 请输输入查找找内容！, vbEExcllamaatioon + vbbOKOOnlyy, 警告Text11.SeetFoocuss

42、Exit SubbEnd IIfIf Noot mmrc.EOFF ThhenMSFleexGrrid11.Cool = 1MSFleexGrrid11.Soort = fflexxSorrtSttrinngAsscenndinngMSFleexGrrid11.TeextMMatrrix(0, 0) = 序号i = 00MSFleexGrrid11.TeextMMatrrix(i, 1) = 姓名MSFleexGrrid11.TeextMMatrrix(i, 2) = 性别MSFleexGrrid11.TeextMMatrrix(i, 3) = 民族MSFleexGrrid11.TeextMM

43、atrrix(i, 4) = 政治面面貌MSFleexGrrid11.TeextMMatrrix(i, 5) = 籍贯MSFleexGrrid11.TeextMMatrrix(i, 6) = 出生年年月MSFleexGrrid11.TeextMMatrrix(i, 7) = 工作时时间MSFleexGrrid11.TeextMMatrrix(i, 8) = 退休时时间MSFleexGrrid11.TeextMMatrrix(i, 9) = 退前职职务MSFleexGrrid11.TeextMMatrrix(i, 10) = 身份份证号Whilee Noot mmrc.EOFFi = ii +

44、1MSFleexGrrid11.TeextMMatrrix(i, 0) = mmrc.Fieeldss(0).VaalueeMSFleexGrrid11.TeextMMatrrix(i, 1) = mmrc.Fieeldss(1).VaalueeMSFleexGrrid11.TeextMMatrrix(i, 2) = mmrc.Fieeldss(2).VaalueeMSFleexGrrid11.TeextMMatrrix(i, 3) = mmrc.Fieeldss(3).VaalueeMSFleexGrrid11.TeextMMatrrix(i, 4) = mmrc.Fieeldss(4).V

45、aalueeMSFleexGrrid11.TeextMMatrrix(i, 5) = mmrc.Fieeldss(5).VaalueeMSFleexGrrid11.TeextMMatrrix(i, 6) = mmrc.Fieeldss(6).VaalueeMSFleexGrrid11.TeextMMatrrix(i, 7) = mmrc.Fieeldss(7).VaalueeMSFleexGrrid11.TeextMMatrrix(i, 8) = mmrc.Fieeldss(8).VaalueeMSFleexGrrid11.TeextMMatrrix(i, 9) = mmrc.Fieeldss

46、(9).VaalueeMSFleexGrrid11.TeextMMatrrix(i, 10) = mrcc.Fiieldds(110).Valluemrc.MMoveeNexxtWendElsen = MMsgBBox(没有有找到符符合条件件的记录录，是否否重新查查找？, vvbYeesNoo + vbCCritticaal, 查找找结果)If n = vvbYees TThennText11.Teext = Text11.SeetFoocussElseUnloaad MMeEnd IIfEnd IIfEnd SSub五、 性能能测试与与分析 通过过对各个个模块的的测试，按按照自顶顶向下、逐逐

47、步求精精的理论论进行系系统测试试，对各各个模块块的功能能进行非非法操作作的调试试与纠错错，保证证了各个个功能模模块尽可可能多的的排错，为为整个系系统的稳稳定性奠奠定了坚坚实的基基础。经经整体的的系统测测试，该该系统运运行稳定定，使用用方便，对对查询数数据能够够进行严严格的验验证，数数据查询询结果准准确，有有实际意意义。六、致谢本系统是在在赵传成成老师的的精心指指导下完完成的，同同时，得得到了计计算机科科学教育育系各位位领导和和老师的的大力支支持，使使本系统统能够顺顺利完成成。在此此，谨向向他们一一并表示示诚挚的的谢意！七、参考文文献1.曾强聪聪.Viisuaal BBasiic 66.0程程序设计计教程.北京：中国水水利水电电出版社社.200032.梁文健健. Vissuall Baasicc 6.0程序序设计实实训教程程.北京：冶金工工业出版版社.22006631