汽车零部件查询系统设计说明书

1、 计算机应用基础课程设计PAGE PAGE - 49 -交通与汽汽车工程程学院课程设计计说明书书课 程 名 称称: 计算机机应用基基础课程程设计 课 程 代 码码:600113339题 目:汽车零零部件查查询系统统设计年级/专专业/班:学 生 姓 名名:学 号号:开 始 时 间间:20012年年4月1 日完 成 时 间间:20012年年 4月12日课程设计计成绩：学习态度度及平时时成绩（30）技术水平平与实际际能力（20）创新（55）说明书（计算书书、图纸纸、分析析报告）撰写质质量（445）总 分（1000）指导教师师签名：年月日目 录摘要11 引言言2 方案案设计2.汽车车零部件件查询模模拟

2、系统统方案设设计52.1.1系统统功能描描述52.1.2系统统结构分分析52.1.3系统统流程分分析52.2程程序界面面和代码码设计62.2.1系统统工程设设计框架架62.2.2系统统各界面面设计及及代码设设计83 结果果分析 33结论 445致谢 446参考文献献 447摘 要随着计算算机的普普及,计算机机高级语语言已经经运用到到生活中中的各个个方面，本次课课程设计计使用VVB语言言作为开开发工具具，进行行了汽车车零部件件查询系系统的程程序设计计，该程程序能实实现汽车车零部件件查询模模拟功能能，进行行汽车零零部件的的查询，修改，添加等等操作，查询结结果简便便明了，运行界界面清晰晰实用，操作方

3、方便，易易于实际际处理。关键词：网络化化 计计算机 对策策 VVB语言言 汽车车零部件件 查查询 程序序1 引 言1.1 问题的的提出随着计算算机的普普及，网网络进入入大众的的家庭。VB一一种可视视化的、面向对对象和采采用事件件驱动方方式的高高级程序序设计语语言，可可用于开开发Wiindoows环环境下的的各类应应用程序序。本次次课程设设计主要要内容就就是使用用VB编编制简单单、实用用的小程程序，以以巩固我我们所学学的计算算机VBB语言知知识，提提高分析析问题和和解决问问题的能能力，锻锻炼我们们独立动动手的能能力。1.2任任务与分分析本课题主主要的目目的是为为了检测测步进电电机步距距角误差差，

4、并把把误差进进行分析析计算，最终得得到一份份误差数数据，用用误差曲曲线的方方式在坐坐标上面面把误差差和步数数结果表表现出来来，方便便日后对对误差的的分析、误差的的减少讨讨论出相相应的方方案2 设计计方案首先根据据题目要要求设计计合理界界面，确确定哪些些控件会会用到，要考虑虑到操作作的方便便性和美美观性。再按题题目的功功能要求求编写对对象的事事件代码码，并其其逐一进进行调试试和修改改。2.1系系统总体体方案的的设计2.1.1系统统的驱动动控制方方案设计计根据设计计要求，程序要要达到的的功能如如下： （1）、用随机机文件建建立汽车车零部件件和管理理员的信信息档案案； （2）、读出汽汽车零部部件的信

5、信息，显显示在列列表框中中； （3）、能实现现汽车零零部件及及管理员员的信息息的查询询，修改改，添加加，删除除等操作作； （4）、对汽车车零部件件搜索。2.1.2系统统结构分分析根据上面面对系统统功能的的描述，构建出出系统的的总体功功能结构构图，如如图1所所示汽车零部件查询系统对管理员信息的维护对汽车零部件信息的维护对汽车零部件搜索对汽车零部件的查询使用说明图1系统统的总体体功能结结构图2.1.3系统统流程分分析本系统运运行后从从欢迎（登录）界面进进入主界界面。程程序的主主要工作作流程图图如图22所示。用户登录读取用户数据并登录开始失败重试3次操作主界面(1).卡片式（2）.列表框式查询零件精

6、确或粗略搜索搜索零件1.添加数据2.删除数据3.修改数据管理员数据1.添加数据2.删除数据3.修改数据零件管理图2系统统主要流流程图2.2程程序界面面和代码码设计 2.2.1系统统工程设设计框架架在设计程程序之前前，应先先布局整整个工程程。本系统统可设立立一个工工程文件件，取名名汽车零零部件查查询系统统.vbbp，该该工程中中包括11个模块块文件，11个个窗体文文件，如如图3所示。图3工程程内容模块代码码如下：Dim hTypee qiicheepj AAs SStriing * 110ljxhh Ass Sttrinng * 100sychh Ass Sttrinng * 100jg AAs

7、 SStriing * 110fb AAs SStriing * 110rq AAs SStriing * 110dw AAs SStriing * 110End TyppeDim carrs AAs qqichheTypee maanaggerbh AAs SStriing * 110 xb AAs VVariianttxm AAs VVariianttmm AAs SStriing * 110End TyppeDim perrs AAs mmanaagerrSub savve()Killl Appp.PPathh + mmag.dattOpenn Appp.PPathh + mmag.da

8、tt FFor Ranndomm Ass #11For i = 0 To Forrm4.Lisst1.LisstCoountt - 1perss.bhh = Forrm4.Lisst1.Lisst(ii)perss.xbb = Forrm4.Lisst2.Lisst(ii)perss.xmm = Forrm4.Lisst3.Lisst(ii)perss.mmm = Forrm4.Lisst4.Lisst(ii)Put #1, i + 11, pperssNextt iClosseEnd SubbSub xisshi(p)Formm10.Texxt5(0) = Formm10.Texxt5(1)

9、 = Formm10.Texxt5(2) = Formm10.Texxt5(3) = Formm10.Texxt5(4) = Formm10.Texxt5(5) = Formm10.Texxt5(0) = FFormm12.Lisst1(0).Lisst(pp)Formm10.Texxt5(1) = FFormm12.Lisst1(1).Lisst(pp)Formm10.Texxt5(2) = FFormm12.Lisst1(2).Lisst(pp)Formm10.Texxt5(3) = FFormm12.Lisst1(3).Lisst(pp)Formm10.Texxt5(4) = FForm

10、m12.Lisst1(4).Lisst(pp)Formm10.Texxt5(5) = FFormm12.Lisst1(5).Lisst(pp)End Subb2.2.2 系系统各界界面设计计根据功能能不同，在本系系统中设设计了111个窗窗体。欢迎界面面欢迎界面面的主要要功能是是让用户户了解程程序软件件的用途途（2）用用户登录录界面用户登录录界面的的功能是是让管理理员进入入系统，防止非非工作人人员进入入。用户登录录主界面面如图55所示图5登录录界面登录页面面主要代代码如下下：Dim perrs AAs mmanaagerrPrivvatee Suub CCommmandd1_CClicck()

11、登登录系统统按钮Stattic t AAs IInteegerrf = FallseIf TTextt2.TTextt = Or Texxt1 = TThennMsgBBox 请填填写完整整的个人人信息End IfIf TTextt2.TTextt ThhenOpenn Appp.PPathh + mmag.datt FFor Ranndomm Ass #11n = LOFF(1) / Lenn(peers)Do WWhille NNot EOFF(1)Get #1, , perrsIf TTrimm(Teext22.Teext) = Triim(pperss.bhh) TThennf = T

12、ruueFormm3.SShowwUnlooad Forrm2Exitt DooEnd IfLooppClosseIf ff = Fallse Theent = t + 1If tt 3 TThennMsgBBox 用户户不存在在,请重重新输入入！, vbbOKOOnlyy + vbIInfoormaatioon, 用户户名错误误ElseeMsgBBox 重试试次数已已到，即即将退出出本系统统!, vbbOKOOnlyy + vbEExcllamaatioon, 用户户名错误误EndExitt SuubEnd IfEnd IfEnd IfEnd SubbPrivvatee Suub CComm

13、mandd2_CClicck() 结束按按钮EndEnd Subb（3）主主界面一一如图6所所示主界面的的功能是是展示出出系统软软件的功功能，使使用户一一目了然然。图6 主主界面主要代码码如下：Dim carrs AAs qqichhe 通用用定义代代码Dim a(55)Privvatee Suub FFormm_Looad() Fraame11.Viisibble = FFalsseListt2.VVisiiblee = FallseEnd SubbPrivvatee Suub bbz_CClicck()查看系系统帮助助Formm9.SShowwEnd SubbPrivvatee Suub

14、sss_CClicck()搜索零零件Listt2.VVisiiblee = TruueFramme1.Vissiblle = TrrueListt2.VVisiiblee = Nott Liist22.ViisibbleListt2.CCleaarEnd SubbPrivvatee Suub CCommmandd1_CClicck()依照零零件信息息对零件件搜索For i = 0 To 4If CCombbo1(i).Texxt = ThhenFor j = 0 To Forrm122.Liist11(i).LiistCCounnt - 1Listt3(ii).AAddIItemm Foorm

15、112.LListt1(ii).LListt(j)Nextt jElseet = iCalll huunt(t)End IfNextt iIf TTextt1 AAnd Texxt2 TheenCalll huunt22ElseeIf Texxt1 = AAnd Texxt2 Theen TTextt1 = 0: Caall hunnt2ElseeIf Texxt1 Andd Teext22 = Theen TTextt2 = 100 10: Caall hunnt2ElseeFor j = 0 To Forrm122.Liist11(5).LiistCCounnt - 1Listt3(55)

16、.AAddIItemm Foorm112.LListt1(55).LListt(j)Nextt jEnd IfFor k = 0 To 5 m = Liist33(k).LiistCCounnt Forr j = 00 Too m If Lisst3(k).Lisst(jj) TThenn a(kk) = a(k) + 11 Endd Iff Nexxt jjNextt kMax = aa(0)For i = 1 To 5If aa(i) Maxx ThhenMax = aa(i)End IfNextt iFor k = 0 To Vall(Maax)If LListt3(00).LListt

17、(k) Annd LListt3(11).LListt(k) Annd LListt3(22).LListt(k) Annd LListt3(33).LListt(k) Annd LListt3(44).LListt(k) Annd LListt3(55).LListt(k) ThhenListt2.AAddIItemm Liist33(0).Liist(k) & LListt3(11).LListt(k) & Lisst3(2).Lisst(kk) & Liist33(3).Liist(k) & LListt3(44).LListt(k) & Lisst3(5).Lisst(kk)End I

18、fNextt kFramme1.Vissiblle = FaalseeListt2.VVisiiblee = TruueEnd SubbSub hunnt(tt)For i = 0 To Forrm122.Liist11(t).LiistCCounnt - 1If TTrimm(Coomboo1(tt).TTextt) = Trrim(Forrm122.Liist11(t).Liist(i) ThhenListt3(tt).AAddIItemm Foorm112.LListt1(tt).LListt(i), iiElseeListt3(tt).AAddIItemm , iiEnd IfNext

19、t iEnd SubbSub hunnt2()For i = 0 To Lisst1(5).LisstCoountt - 1If VVal(Texxt1) Vall(Liist11(5).Liist(i) ThhenListt3(55).AAddIItemm Liist11(5).Liist(i), iElseeListt3(55).AAddIItemm , iiEnd IfNextt iEnd SubbPrivvatee Suub CCommmandd2_CClicck()退出搜搜索零部部件Framme1.Vissiblle = FaalseeEnd SubbPrivvatee Suub g

20、glsjj_Cllickk()打开管管理员数数据管理理功能Formm4.SShowwEnd SubbPrivvatee Suub bbk_CClicck()表框式式查询零零部件Formm10.ShoowFormm10.Fraame11.Viisibble = TTrueeEnd SubbPrivvatee Suub kkp_CClicck()卡片式式查询零零部件Formm10.ShoowFormm10.Fraame22.Viisibble = TTrueeEnd SubbPrivvatee Suub lljgll_Cllickk()打开零零部件数数据管理理功能Formm12.ShoowEnd

21、SubbPrivvatee Suub ttc_CClicck()退出系系统EndEnd Subb（4）主主界面二二如图7所示图7 主主界面主要代码码如下：1卡片片式零件件查询：Dim q（1).查看上上一个零零件的代代码如下下:Privvatee Suub CCommmandd1_CClicck()Stattic q AAs IInteegerrIf qq = -1 Theen qq = Lisst2.LisstCoountt - 1p = Vall(Liist22.Liist(q)Calll xiishii(p)q = q - 1End Subb（2）查查看下一一个零件件代码如如下：Priv

22、vatee Suub CCommmandd2_CClicck()Stattic q AAs IInteegerrIf qq Lisst2.LisstCoountt - 1 TThenn q = 00p = Vall(Liist22.Liist(q)Calll xiishii(p)q = q + 1Commmandd1.EEnabbledd = TruueEnd Subb（3）退退出卡片片式查询询代码如如下：Privvatee Suub CCommmandd3_CClicck()Formm3.SShowwUnlooad MeEnd Subb（4）查查看第一一个零件件代码如如下：Privvatee

23、 Suub CCommmandd4_CClicck()p = Vall(Liist22.Liist(0)Calll xiishii(p)End Subb（5）查查看最后后一个零零件代码码如下：Privvatee Suub CCommmandd5_CClicck()p = Vall(Liist22.Liist(Lisst2.LisstCoountt - 1)Calll xiishii(p)End Subb（6）卡卡片式配配件框发发生改变变代码如如下：Privvatee Suub TTextt3_CChannge()Listt2.CCleaarFor i = 0 To Forrm122.Liist

24、11(0).LiistCCounnt - 1If TTextt3 AAnd Texxt4 = TThennIf TTrimm(Teext33) = Trrim(Forrm122.Liist11(0).Liist(i) ThhenListt2.AAddIItemm iEnd IfEnd IfIf TTextt3 AAnd Texxt4 TheenIf TTrimm(Foorm112.LListt1(00).LListt(i) = Trrim(Texxt3) Annd TTrimm(Foorm112.LListt1(11).LListt(i) = Trrim(Texxt4) ThhenListt2

25、.AAddIItemm iEnd IfEnd IfNextt iIf LListt2.LListtCouunt 00 ThhenListt2.LListtInddex = 00p = Vall(Liist22.Teext)Calll xiishii(p)ElseeTextt5(00) = Textt5(11) = Textt5(22) = Textt5(33) = Textt5(44) = Textt5(55) = End IfIf LListt2.LListtCouunt 11 Thhen Commmannd2.Enaableed = TrrueEnd Subb（7）卡卡片式零零件型号号框发

26、生生改变代代码如下下：Privvatee Suub TTextt4_CChannge()Listt2.CCleaarFor i = 0 To Forrm122.Liist11(0).LiistCCounnt - 1If TTextt4 AAnd Texxt3 = TThennIf TTrimm(Teext44) = Trrim(Forrm122.Liist11(1).Liist(i) ThhenListt2.AAddIItemm iEnd IfEnd IfIf TTextt3 AAnd Texxt4 TheenIf TTrimm(Foorm112.LListt1(00).LListt(i) =

27、 Trrim(Texxt3) Annd TTrimm(Foorm112.LListt1(11).LListt(i) = Trrim(Texxt4) ThhenListt2.AAddIItemm iEnd IfEnd IfNextt iIf LListt2.LListtCouunt 00 ThhenListt2.LListtInddex = 00p = Vall(Liist22.Teext)Calll xiishii(p)ElseeTextt5(00) = Textt5(11) = Textt5(22) = Textt5(33) = Textt5(44) = Textt5(55) = End I

28、fIf LListt2.LListtCouunt 11 Thhen Commmannd2.Enaableed = TrrueEnd Subb2.列表表框式零零件查询询： （11）列表框框式配件件框发生生改变代代码如下下：Privvatee Suub TTextt1_CChannge()Listt1.CCleaarListt1.AAddIItemm 配配件 & & & 零件件型号 & & & 适用用车型 & & & & & 发布布日期 & & & & 单位位 & & & & & & 价价格For i = 0 To Forrm122.Liist11(0).LiistCCounnt - 1If TT

29、extt1 AAnd Texxt2 = TThennIf TTrimm(Foorm112.LListt1(00).LListt(i) = Trrim(Texxt1) ThhenListt1.AAddIItemm Foorm112.LListt1(00).LListt(i) & Forrm122.Liist11(1).Liist(i) & FFormm12.Lisst1(2).Lisst(ii) & Foorm112.LListt1(33).LListt(i) & Forrm122.Liist11(4).Liist(i) & FFormm12.Lisst1(5).Lisst(ii)End IfE

30、nd IfIf TTextt1 AAnd Texxt2 TheenIf TTrimm(Foorm112.LListt1(00).LListt(i) = Trrim(Texxt1) Annd TTrimm(Foorm112.LListt1(11).LListt(i) = Trrim(Texxt2) ThhenListt1.AAddIItemm Foorm112.LListt1(00).LListt(i) & Forrm122.Liist11(1).Liist(i) & FFormm12.Lisst1(2).Lisst(ii) & Foorm112.LListt1(33).LListt(i) &

31、Forrm122.Liist11(4).Liist(i) & FFormm12.Lisst1(5).Lisst(ii)End IfEnd IfNextt iEnd Subb（2）列列表框式式零件型型号框发发生改变变代码如如下：Privvatee Suub TTextt2_CChannge()Listt1.CCleaarListt1.AAddIItemm 配配件 & & & 零件件型号 & & & 适用用车型 & & & & & 发布布日期 & & & & 单位位 & & & & & & 价价格For i = 0 To Forrm122.Liist11(0).LiistCCounnt - 1If

32、 TTextt1 = Annd TTextt2 TThennIf TTrimm(Foorm112.LListt1(11).LListt(i) = Trrim(Texxt2) ThhenListt1.AAddIItemm Foorm112.LListt1(00).LListt(i) & Forrm122.Liist11(1).Liist(i) & FFormm12.Lisst1(2).Lisst(ii) & Foorm112.LListt1(33).LListt(i) & Forrm122.Liist11(4).Liist(i) & FFormm12.Lisst1(5).Lisst(ii)End

33、 IfEnd IfIf TTextt1 AAnd Texxt2 TheenIfTrrim(Forrm122.Liist11(0).Liist(i) = Triim(TTextt1) Andd Trrim(Forrm122.Liist11(1).Liist(i) = Triim(TTextt2) TheenListt1.AAddIItemm Foorm112.LListt1(00).LListt(i) & Forrm122.Liist11(1).Liist(i) & FFormm12.Lisst1(2).Lisst(ii) & Foorm112.LListt1(33).LListt(i) & F

34、orrm122.Liist11(4).Liist(i) & FFormm12.Lisst1(5).Lisst(ii)End IfEnd IfNextt iEnd Subb（5）主主界面三三如图8所示图8 主主界面主要代码码如下:Dim carrs AAs qqichhe通用代代码Dim a(55)（1）修修改零件件代码如如下：Privvatee Suub CCommmandd1_CClicck()If LListt1(00).TTextt = TheenMsgBBox 请选选择要修修改的零零件ElseeFormm7.SShowwFormm7.TTextt1 = Liist11(0).Teext

35、Formm7.TTextt2 = Liist11(1).TeextFormm7.TTextt3 = Liist11(2).TeextFormm7.TTextt4 = Liist11(3).TeextFormm7.TTextt5 = Liist11(4).TeextFormm7.TTextt6 = Liist11(5).TeextListt1(00).RRemooveIItemm Liist11(0).LiistIIndeexListt1(11).RRemooveIItemm Liist11(1).LiistIIndeexListt1(22).RRemooveIItemm Liist11(2).

36、LiistIIndeexListt1(33).RRemooveIItemm Liist11(3).LiistIIndeexListt1(44).RRemooveIItemm Liist11(4).LiistIIndeexListt1(55).RRemooveIItemm Liist11(5).LiistIIndeexEnd IfEnd Subb（2）添添加零部部件代码码如下：Privvatee Suub CCommmandd2_CClicck()Formm8.SShowwEnd Subb（3）删删除零部部件代码码如下：Privvatee Suub CCommmandd3_CClicck()Li

37、stt1(00).RRemooveIItemm Liist11(0).LiistIIndeexListt1(11).RRemooveIItemm Liist11(1).LiistIIndeexListt1(22).RRemooveIItemm Liist11(2).LiistIIndeexListt1(33).RRemooveIItemm Liist11(3).LiistIIndeexListt1(44).RRemooveIItemm Liist11(4).LiistIIndeexListt1(55).RRemooveIItemm Liist11(5).LiistIIndeexEnd Subb

38、（3）退退出零部部件查询询系统代代码如下下：Privvatee Suub CCommmandd4_CClicck()Formm3.SShowwUnlooad MeEnd Subb（4）打打开窗体体运行代代码如下下：Privvatee Suub FFormm_Looad()Openn Appp.PPathh + ccar.datt FFor Ranndomm Ass #22Do WWhille NNot EOFF(2)i = i + 1Get #2, i, caarsListt1(00).AAddIItemm caars.pjListt1(11).AAddIItemm caars.ljxxhLi

39、stt1(22).AAddIItemm caars.sycchListt1(33).AAddIItemm caars.fbListt1(44).AAddIItemm caars.dwListt1(55).AAddIItemm caars.jgLooppClosseEnd SubbPrivvatee Suub LListt1_CClicck(IIndeex AAs IInteegerr)点击零零部件显显示属性性Seleect Casse IIndeex Casse 00Listt1(55).LListtInddex = LListt1(00).LListtInddexListt1(44).LLi

40、sttInddex = LListt1(00).LListtInddexListt1(33).LListtInddex = LListt1(00).LListtInddexListt1(22).LListtInddex = LListt1(00).LListtInddexListt1(11).LListtInddex = LListt1(00).LListtInddexCasee 1Listt1(55).LListtInddex = LListt1(11).LListtInddexListt1(44).LListtInddex = LListt1(11).LListtInddexListt1(

41、33).LListtInddex = LListt1(11).LListtInddexListt1(22).LListtInddex = LListt1(11).LListtInddexListt1(00).LListtInddex = LListt1(11).LListtInddexCasee 2Listt1(55).LListtInddex = LListt1(22).LListtInddexListt1(44).LListtInddex = LListt1(22).LListtInddexListt1(33).LListtInddex = LListt1(22).LListtInddex

42、Listt1(00).LListtInddex = LListt1(22).LListtInddexListt1(11).LListtInddex = LListt1(22).LListtInddexCasee 3Listt1(55).LListtInddex = LListt1(33).LListtInddexListt1(44).LListtInddex = LListt1(33).LListtInddexListt1(00).LListtInddex = LListt1(33).LListtInddexListt1(22).LListtInddex = LListt1(33).LList

43、tInddexListt1(11).LListtInddex = LListt1(33).LListtInddexCasee 4Listt1(55).LListtInddex = LListt1(44).LListtInddexListt1(00).LListtInddex = LListt1(44).LListtInddexListt1(33).LListtInddex = LListt1(44).LListtInddexListt1(22).LListtInddex = LListt1(44).LListtInddexListt1(11).LListtInddex = LListt1(44

44、).LListtInddexCasee 5Listt1(00).LListtInddex = LListt1(55).LListtInddexListt1(44).LListtInddex = LListt1(55).LListtInddexListt1(33).LListtInddex = LListt1(55).LListtInddexListt1(22).LListtInddex = LListt1(55).LListtInddexListt1(11).LListtInddex = LListt1(55).LListtInddexEnd SellecttEnd Subb（6）主主界面四四

45、如图9所示图9 主主界面主要代码码如下：（1）添添加零部部件代码码如下：Privvatee Suub CCommmandd1_CClicck()If CCombbo1(0).Texxt AAnd Commbo11(1).Teext Andd Coomboo1(22).TTextt Annd CCombbo1(3).Texxt AAnd Commbo11(4).Teext Andd Teext11 ThhenFormm3.LListt1(00).AAddIItemm Coomboo1(00).TTexttFormm3.LListt1(11).AAddIItemm Coomboo1(11).TTe

46、xttFormm3.LListt1(22).AAddIItemm Coomboo1(22).TTexttFormm3.LListt1(33).AAddIItemm Coomboo1(33).TTexttFormm3.LListt1(44).AAddIItemm Coomboo1(44).TTexttFormm3.LListt1(55).AAddIItemm Teext11Calll saave22Formm3.SShowwUnlooad MeElseeMsgBBox 请写写入完整整的信息息！End IfEnd Subb（2）退退出添加加零部件件页面代代码如下下：Privvatee Suub C

47、Commmandd2_CClicck()Formm3.SShowwUnlooad MeEnd Subb（7）主主界面五五如图100所示图10 主界面面主要代码码如下：（1）添添加个人人信息代代码如下下：Privvatee Suub CCommmandd1_CClicck()Formm5.SShowwEnd Subb（2）删删除个人人信息代代码如下下：Privvatee Suub CCommmandd2_CClicck()Listt1.RRemooveIItemm Liist11.LiistIIndeexListt2.RRemooveIItemm Liist22.LiistIIndeexList

48、t3.RRemooveIItemm Liist33.LiistIIndeexListt4.RRemooveIItemm Liist44.LiistIIndeexCalll saaveEnd Subb（1）修修改个人人信息代代码如下下：Privvatee Suub CCommmandd3_CClicck()If LListt1.TTextt = TheenMsgBBox 请选选择修改改对象ElseeFormm6.SShowwFormm6.TTextt1 = Liist11.TeextFormm6.TTextt2 = Liist33.TeextFormm6.CCombbo1.Texxt = Lii

49、st22.TeextListt1.RRemooveIItemm Liist11.LiistIIndeexListt2.RRemooveIItemm Liist22.LiistIIndeexListt3.RRemooveIItemm Liist33.LiistIIndeexListt4.RRemooveIItemm Liist44.LiistIIndeexEnd IfEnd Subb（4）退退出个人人信息窗窗口代码码如下：Privvatee Suub CCommmandd4_CClicck()Formm3.SShowwUnlooad MeEnd Subb（5）打打开个人人信息窗窗口运行行代码如如

50、下：Privvatee Suub FFormm_Looad()i = 0Openn Appp.PPathh + mmag.datt FFor Ranndomm Ass #11Do WWhille NNot EOFF(1)i = i + 1Get #1, i, peersListt1.AAddIItemm peers.bh, i - 11Listt2.AAddIItemm peers.xb, i - 11Listt3.AAddIItemm peers.xm, i - 11Listt4.AAddIItemm peers.mm, i - 11LooppClosseEnd SubbPrivvatee

51、Suub LListt1_CClicck()Listt2.LListtInddex = LListt1.LListtInddexListt3.LListtInddex = LListt1.LListtInddexListt4.LListtInddex = LListt1.LListtInddexEnd SubbPrivvatee Suub LListt2_CClicck()Listt1.LListtInddex = LListt2.LListtInddexListt3.LListtInddex = LListt2.LListtInddexListt4.LListtInddex = LListt

52、2.LListtInddexEnd SubbPrivvatee Suub LListt3_CClicck()Listt1.LListtInddex = LListt3.LListtInddexListt2.LListtInddex = LListt3.LListtInddexListt4.LListtInddex = LListt3.LListtInddexEnd SubbPrivvatee Suub LListt4_CClicck()Listt1.LListtInddex = LListt4.LListtInddexListt2.LListtInddex = LListt4.LListtInddexListt3.LListtInddex = LListt4.LListtInddexEnd Subb（8）主主界面六六如图111所示图11 主界面面主要代码码如下：Dim perrs AAs mmanaagerrPrivvatee Suub FFormm_Looad()Textt3 = End SubbPrivvatee Suub CCommmandd1_CClicck()确定添添加按钮钮If TTextt1 = Orr Teext22 = Or Texxt3 = OOr CCombbo1.Texxt = ThhenMsgBBox