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

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

2、汽车零零部件查查询模拟拟系统方方案设计计52.1.11系统功功能描述述52.1.22系统结结构分析析52.1.33系统流流程分析析52.2程序序界面和和代码设设计662.2.11系统工工程设计计框架62.2.22系统各各界面设设计及代代码设计计83 结果分分析 333结论 455致谢 466参考文献 477摘 要要随着计算机机的普及及,计算机机高级语语言已经经运用到到生活中中的各个个方面，本本次课程程设计使使用VBB语言作作为开发发工具，进进行了汽汽车零部部件查询询系统的的程序设设计，该该程序能能实现汽汽车零部部件查询询模拟功功能，进进行汽车车零部件件的查询询，修改改，添加加等操作作，查询询结

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

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

5、和和管理员员的信息息档案； （22）、读读出汽车车零部件件的信息息，显示示在列表表框中； （33）、能能实现汽汽车零部部件及管管理员的的信息的的查询，修修改，添添加，删删除等操操作； （44）、对对汽车零零部件搜搜索。2.1.22系统结结构分析析根据上面对对系统功功能的描描述，构构建出系系统的总总体功能能结构图图，如图图1所示示 汽车零部件查询系统对管理员信息的维护对汽车零部件信息的维护对汽车零部件搜索汽车零部件查询系统对管理员信息的维护对汽车零部件信息的维护对汽车零部件搜索对汽车零部件的查询使用说明图1 系统统的总体体功能结结构图2.1.33系统流流程分析析本系统运行行后从欢欢迎（登登录）界

6、界面进入入主界面面。程序序的主要要工作流流程图如如图2所所示。 用户登录用户登录读取用户数据并登录开始失败重试3次操作主界面(1).卡片式（2）.列表框式查询零件精确或粗略搜索搜索零件1.添加数据2.删除数据3.修改数据管理员数据1.添加数据2.删除数据3.修改数据零件管理 图图2系统统主要流流程图2.2程序序界面和和代码设设计 2.2.11系统工工程设计计框架在设计程序序之前，应应先布局局整个工工程。本系统统可设立立一个工工程文件件，取名名汽车零零部件查查询系统统.vbbp，该该工程中中包括11个模块块文件，111个窗窗体文件件，如图图3所示。图3工程内内容 模块代码如如下： Diim hh

7、Type qicchepj Ass Sttrinng * 100ljxh As Strringg * 10sych As Strringg * 10jg Ass Sttrinng * 100fb Ass Sttrinng * 100rq Ass Sttrinng * 100dw Ass Sttrinng * 100End TTypeeDim ccarss Ass qiicheeType mannageerbh Ass Sttrinng * 100 xb Ass Vaariaantxm Ass Vaariaantmm Ass Sttrinng * 100End TTypeeDim pperss

8、Ass maanaggerSub ssavee()Kill Appp.Paath + maag.ddatOpen Appp.Paath + maag.ddat Foor RRanddom As #1For ii = 0 TTo FFormm4.LListt1.LListtCouunt - 11pers.bh = FFormm4.LListt1.LListt(i)pers.xb = FFormm4.LListt2.LListt(i)pers.xm = FFormm4.LListt3.LListt(i)pers.mm = FFormm4.LListt4.LListt(i)Put #1, i + 1

9、, peersNext iCloseeEnd SSubSub xxishhi(pp)Form110.TTextt5(00) = Form110.TTextt5(11) = Form110.TTextt5(22) = Form110.TTextt5(33) = Form110.TTextt5(44) = Form110.TTextt5(55) = Form110.TTextt5(00) = Foorm112.LListt1(00).LListt(p)Form110.TTextt5(11) = Foorm112.LListt1(11).LListt(p)Form110.TTextt5(22) =

10、Foorm112.LListt1(22).LListt(p)Form110.TTextt5(33) = Foorm112.LListt1(33).LListt(p)Form110.TTextt5(44) = Foorm112.LListt1(44).LListt(p)Form110.TTextt5(55) = Foorm112.LListt1(55).LListt(p)End SSub2.2.22 系统统各界面面设计根据功能不不同，在在本系统统中设计计了111个窗体体。欢迎界面欢迎界面的的主要功功能是让让用户了了解程序序软件的的用途（2）用户户登录界界面用户登录界界面的功功能是让让管理员员进入

11、系系统，防防止非工工作人员员进入。用户登录主主界面如如图5所所示图5登录界界面登录页面主主要代码码如下：Dim pperss Ass maanaggerPrivaate Subb Coommaand11_Cllickk() 登录录系统按按钮Statiic tt Ass Innteggerf = FFalsseIf Teext22.Teext = OOr TTextt1 = ThhenMsgBoox 请填写写完整的的个人信信息End IIfIf Teext22.Teext TheenOpen Appp.Paath + maag.ddat Foor RRanddom As #1n = LLOF(1

12、) / LLen(perrs)Do Whhilee Noot EEOF(1)Get #1, , pperssIf Trrim(Texxt2.Texxt) = TTrimm(peers.bh) Thhenf = TTrueeForm33.ShhowUnloaad FFormm2Exit DoEnd IIfLoopCloseeIf f = FFalsse TThennt = tt + 1If t 33 ThhenMsgBoox 用户不不存在,请重新新输入！, vbOOKOnnly + vvbInnforrmattionn, 用户名名错误ElseMsgBoox 重试次次数已到到，即将将退出本本系统!

13、, vbOOKOnnly + vvbExxclaamattionn, 用户名名错误EndExit SubbEnd IIfEnd IIfEnd IIfEnd SSubPrivaate Subb Coommaand22_Cllickk() 结结束按钮钮EndEnd SSub（3）主界界面一如图6所所示主界面的功功能是展展示出系系统软件件的功能能，使用用户一目目了然。 图66 主界界面主要代码如如下：Dim ccarss Ass qiichee 通用定定义代码码Dim aa(5)Privaate Subb Foorm_Loaad() FFramme1.Vissiblle = FaalseeList2

14、2.Viisibble = FFalsseEnd SSubPrivaate Subb bzz_Cllickk() 查看系系统帮助助Form99.ShhowEnd SSubPrivaate Subb sss_Cllickk() 搜索零零件List22.Viisibble = TTrueeFramee1.VVisiiblee = TruueList22.Viisibble = NNot Lisst2.VissiblleList22.CllearrEnd SSubPrivaate Subb Coommaand11_Cllickk() 依照零零件信息息对零件件搜索For ii = 0 TTo 44If

15、 Coomboo1(ii).TTextt = TheenFor jj = 0 TTo FFormm12.Lisst1(i).LisstCoountt - 1List33(i).AdddIttem Forrm122.Liist11(i).Liist(j)Next jElset = iiCall hunnt(tt)End IIfNext iIf Teext11 Annd TTextt2 TThennCall hunnt2ElseIIf TTextt1 = Annd TTextt2 TThenn Teext11 = 0: Calll hhuntt2ElseIIf TTextt1 AAnd Texxt

16、2 = TThenn Teext22 = 10 110: Calll hhuntt2ElseFor jj = 0 TTo FFormm12.Lisst1(5).LisstCoountt - 1List33(5).AdddIttem Forrm122.Liist11(5).Liist(j)Next jEnd IIfFor kk = 0 TTo 55 m = Lisst3(k).LisstCoountt For j = 0 To m If LListt3(kk).LListt(j) Thhen a(k) = a(kk) + 1 End If Nextt jNext kMax = a(0)For i

17、i = 1 TTo 55If a(i) MMax TheenMax = a(i)End IIfNext iFor kk = 0 TTo VVal(Maxx)If Liist33(0).Liist(k) Andd Liist33(1).Liist(k) Andd Liist33(2).Liist(k) Andd Liist33(3).Liist(k) Andd Liist33(4).Liist(k) Andd Liist33(5).Liist(k) TheenList22.AdddIttem Lisst3(0).Lisst(kk) & Liist33(1).Liist(k) & LListt3(

18、22).LListt(k) & Lisst3(3).Lisst(kk) & Liist33(4).Liist(k) & LListt3(55).LListt(k)End IIfNext kFramee1.VVisiiblee = FallseList22.Viisibble = TTrueeEnd SSubSub hhuntt(t)For ii = 0 TTo FFormm12.Lisst1(t).LisstCoountt - 1If Trrim(Commbo11(t).Teext) = Triim(FFormm12.Lisst1(t).Lisst(ii) TheenList33(t).Add

19、dIttem Forrm122.Liist11(t).Liist(i), iElseList33(t).AdddIttem , iEnd IIfNext iEnd SSubSub hhuntt2()For ii = 0 TTo LListt1(55).LListtCouunt - 11If Vaal(TTextt1) VVal(Lisst1(5).Lisst(ii) TheenList33(5).AdddIttem Lisst1(5).Lisst(ii), iElseList33(5).AdddIttem , iEnd IIfNext iEnd SSubPrivaate Subb Coomma

20、and22_Cllickk() 退出搜搜索零部部件Framee1.VVisiiblee = FallseEnd SSubPrivaate Subb gllsj_Cliick() 打开管管理员数数据管理理功能Form44.ShhowEnd SSubPrivaate Subb bkk_Cllickk() 表框式式查询零零部件Form110.SShowwForm110.FFramme1.Vissiblle = TrrueEnd SSubPrivaate Subb kpp_Cllickk() 卡片式式查询零零部件Form110.SShowwForm110.FFramme2.Vissiblle = Tr

21、rueEnd SSubPrivaate Subb ljjgl_Cliick() 打开零零部件数数据管理理功能Form112.SShowwEnd SSubPrivaate Subb tcc_Cllickk() 退出系系统EndEnd SSub（4）主界界面二如图7所示 图7 主界界面主要代码如如下：1卡片式式零件查查询：Dim qq（1).查查看上一一个零件件的代码码如下:Privaate Subb Coommaand11_Cllickk()Statiic qq Ass InnteggerIf q = -1 TThenn q = LListt2.LListtCouunt - 11p = VVal

22、(Lisst2.Lisst(qq)Call xisshi(p)q = qq - 1End SSub（2）查看看下一个个零件代代码如下下：Privaate Subb Coommaand22_Cllickk()Statiic qq Ass InnteggerIf q LListt2.LListtCouunt - 11 Thhen q = 0p = VVal(Lisst2.Lisst(qq)Call xisshi(p)q = qq + 1Commaand11.Ennablled = TTrueeEnd SSub（3）退出出卡片式式查询代代码如下下：Privaate Subb Coommaand33_

23、Cllickk()Form33.ShhowUnloaad MMeEnd SSub（4）查看看第一个个零件代代码如下下：Privaate Subb Coommaand44_Cllickk()p = VVal(Lisst2.Lisst(00)Call xisshi(p)End SSub（5）查看看最后一一个零件件代码如如下：Privaate Subb Coommaand55_Cllickk()p = VVal(Lisst2.Lisst(LListt2.LListtCouunt - 11)Call xisshi(p)End SSub（6）卡片片式配件件框发生生改变代代码如下下：Privaate Su

24、bb Teext33_Chhangge()List22.CllearrFor ii = 0 TTo FFormm12.Lisst1(0).LisstCoountt - 1If Teext33 Annd TTextt4 = ThhenIf Trrim(Texxt3) = Triim(FFormm12.Lisst1(0).Lisst(ii) TheenList22.AdddIttem iEnd IIfEnd IIfIf Teext33 Annd TTextt4 TThennIf Trrim(Forrm122.Liist11(0).Liist(i) = Triim(TTextt3) Andd Trr

25、im(Forrm122.Liist11(1).Liist(i) = Triim(TTextt4) TheenList22.AdddIttem iEnd IIfEnd IIfNext iIf Liist22.LiistCCounnt 0 TheenList22.LiistIIndeex = 0p = VVal(Lisst2.Texxt)Call xisshi(p)ElseText55(0) = Text55(1) = Text55(2) = Text55(3) = Text55(4) = Text55(5) = End IIfIf Liist22.LiistCCounnt 1 Theen CCo

26、mmmandd2.EEnabbledd = TruueEnd SSub（7）卡片片式零件件型号框框发生改改变代码码如下：Privaate Subb Teext44_Chhangge()List22.CllearrFor ii = 0 TTo FFormm12.Lisst1(0).LisstCoountt - 1If Teext44 Annd TTextt3 = ThhenIf Trrim(Texxt4) = Triim(FFormm12.Lisst1(1).Lisst(ii) TheenList22.AdddIttem iEnd IIfEnd IIfIf Teext33 Annd TTextt

27、4 TThennIf Trrim(Forrm122.Liist11(0).Liist(i) = Triim(TTextt3) Andd Trrim(Forrm122.Liist11(1).Liist(i) = Triim(TTextt4) TheenList22.AdddIttem iEnd IIfEnd IIfNext iIf Liist22.LiistCCounnt 0 TheenList22.LiistIIndeex = 0p = VVal(Lisst2.Texxt)Call xisshi(p)ElseText55(0) = Text55(1) = Text55(2) = Text55(

28、3) = Text55(4) = Text55(5) = End IIfIf Liist22.LiistCCounnt 1 Theen CCommmandd2.EEnabbledd = TruueEnd SSub2.列表框框式零件件查询： （1）列表框框式配件件框发生生改变代代码如下下：Privaate Subb Teext11_Chhangge()List11.CllearrList11.AdddIttem 配件件 & & & 零件型型号 & & & 适用车车型 & & & & & 发布日日期 & & & & 单位 & & & & & & 价格格For ii = 0 TTo FFormm12

29、.Lisst1(0).LisstCoountt - 1If Teext11 Annd TTextt2 = ThhenIf Trrim(Forrm122.Liist11(0).Liist(i) = Triim(TTextt1) TheenList11.AdddIttem Forrm122.Liist11(0).Liist(i) & FFormm12.Lisst1(1).Lisst(ii) & Foorm112.LListt1(22).LListt(i) & Forrm122.Liist11(3).Liist(i) & FFormm12.Lisst1(4).Lisst(ii) & Foorm112

30、.LListt1(55).LListt(i)End IIfEnd IIfIf Teext11 Annd TTextt2 TThennIf Trrim(Forrm122.Liist11(0).Liist(i) = Triim(TTextt1) Andd Trrim(Forrm122.Liist11(1).Liist(i) = Triim(TTextt2) TheenList11.AdddIttem Forrm122.Liist11(0).Liist(i) & FFormm12.Lisst1(1).Lisst(ii) & Foorm112.LListt1(22).LListt(i) & Forrm

31、122.Liist11(3).Liist(i) & FFormm12.Lisst1(4).Lisst(ii) & Foorm112.LListt1(55).LListt(i)End IIfEnd IIfNext iEnd SSub（2）列表表框式零零件型号号框发生生改变代代码如下下：Privaate Subb Teext22_Chhangge()List11.CllearrList11.AdddIttem 配件件 & & & 零件型型号 & & & 适用车车型 & & & & & 发布日日期 & & & & 单位 & & & & & & 价格格For ii = 0 TTo FFormm12.L

32、isst1(0).LisstCoountt - 1If Teext11 = Andd Teext22 ThhenIf Trrim(Forrm122.Liist11(1).Liist(i) = Triim(TTextt2) TheenList11.AdddIttem Forrm122.Liist11(0).Liist(i) & FFormm12.Lisst1(1).Lisst(ii) & Foorm112.LListt1(22).LListt(i) & Forrm122.Liist11(3).Liist(i) & FFormm12.Lisst1(4).Lisst(ii) & Foorm112.L

33、Listt1(55).LListt(i)End IIfEnd IIfIf Teext11 Annd TTextt2 TThennIf Trrim(Forrm122.Liist11(0).Liist(i) = Triim(TTextt1) Andd Trrim(Forrm122.Liist11(1).Liist(i) = Triim(TTextt2) TheenList11.AdddIttem Forrm122.Liist11(0).Liist(i) & FFormm12.Lisst1(1).Lisst(ii) & Foorm112.LListt1(22).LListt(i) & Forrm12

34、2.Liist11(3).Liist(i) & FFormm12.Lisst1(4).Lisst(ii) & Foorm112.LListt1(55).LListt(i)End IIfEnd IIfNext iEnd SSub（5）主界界面三如图8所示 图8 主界界面 主要代码如如下:Dim ccarss Ass qiichee 通用代代码Dim aa(5)（1）修改改零件代代码如下下：Privaate Subb Coommaand11_Cllickk()If Liist11(0).Teext = TThennMsgBoox 请选择择要修改改的零件件ElseForm77.ShhowForm77

35、.Teext11 = Lisst1(0).TexxtForm77.Teext22 = Lisst1(1).TexxtForm77.Teext33 = Lisst1(2).TexxtForm77.Teext44 = Lisst1(3).TexxtForm77.Teext55 = Lisst1(4).TexxtForm77.Teext66 = Lisst1(5).TexxtList11(0).ReemovveIttem Lisst1(0).LisstInndexxList11(1).ReemovveIttem Lisst1(1).LisstInndexxList11(2).ReemovveItte

36、m Lisst1(2).LisstInndexxList11(3).ReemovveIttem Lisst1(3).LisstInndexxList11(4).ReemovveIttem Lisst1(4).LisstInndexxList11(5).ReemovveIttem Lisst1(5).LisstInndexxEnd IIfEnd SSub（2）添加加零部件件代码如如下：Privaate Subb Coommaand22_Cllickk()Form88.ShhowEnd SSub（3）删除除零部件件代码如如下：Privaate Subb Coommaand33_Cllickk()L

37、ist11(0).ReemovveIttem Lisst1(0).LisstInndexxList11(1).ReemovveIttem Lisst1(1).LisstInndexxList11(2).ReemovveIttem Lisst1(2).LisstInndexxList11(3).ReemovveIttem Lisst1(3).LisstInndexxList11(4).ReemovveIttem Lisst1(4).LisstInndexxList11(5).ReemovveIttem Lisst1(5).LisstInndexxEnd SSub（3）退出出零部件件查询系系统代码

38、码如下：Privaate Subb Coommaand44_Cllickk()Form33.ShhowUnloaad MMeEnd SSub（4）打开开窗体运运行代码码如下：Privaate Subb Foorm_Loaad()Open Appp.Paath + caar.ddat Foor RRanddom As #2Do Whhilee Noot EEOF(2)i = ii + 1Get #2, i, carrsList11(0).AdddIttem carrs.ppjList11(1).AdddIttem carrs.lljxhhList11(2).AdddIttem carrs.ssy

39、chhList11(3).AdddIttem carrs.ffbList11(4).AdddIttem carrs.ddwList11(5).AdddIttem carrs.jjgLoopCloseeEnd SSubPrivaate Subb Liist11_Cllickk(Inndexx Ass Inntegger) 点击零零部件显显示属性性Selecct CCasee Inndexx Casee 0List11(5).LiistIIndeex = Liist11(0).LiistIIndeexList11(4).LiistIIndeex = Liist11(0).LiistIIndeexL

40、ist11(3).LiistIIndeex = Liist11(0).LiistIIndeexList11(2).LiistIIndeex = Liist11(0).LiistIIndeexList11(1).LiistIIndeex = Liist11(0).LiistIIndeexCase 1List11(5).LiistIIndeex = Liist11(1).LiistIIndeexList11(4).LiistIIndeex = Liist11(1).LiistIIndeexList11(3).LiistIIndeex = Liist11(1).LiistIIndeexList11(

41、2).LiistIIndeex = Liist11(1).LiistIIndeexList11(0).LiistIIndeex = Liist11(1).LiistIIndeexCase 2List11(5).LiistIIndeex = Liist11(2).LiistIIndeexList11(4).LiistIIndeex = Liist11(2).LiistIIndeexList11(3).LiistIIndeex = Liist11(2).LiistIIndeexList11(0).LiistIIndeex = Liist11(2).LiistIIndeexList11(1).Lii

42、stIIndeex = Liist11(2).LiistIIndeexCase 3List11(5).LiistIIndeex = Liist11(3).LiistIIndeexList11(4).LiistIIndeex = Liist11(3).LiistIIndeexList11(0).LiistIIndeex = Liist11(3).LiistIIndeexList11(2).LiistIIndeex = Liist11(3).LiistIIndeexList11(1).LiistIIndeex = Liist11(3).LiistIIndeexCase 4List11(5).Lii

43、stIIndeex = Liist11(4).LiistIIndeexList11(0).LiistIIndeex = Liist11(4).LiistIIndeexList11(3).LiistIIndeex = Liist11(4).LiistIIndeexList11(2).LiistIIndeex = Liist11(4).LiistIIndeexList11(1).LiistIIndeex = Liist11(4).LiistIIndeexCase 5List11(0).LiistIIndeex = Liist11(5).LiistIIndeexList11(4).LiistIInd

44、eex = Liist11(5).LiistIIndeexList11(3).LiistIIndeex = Liist11(5).LiistIIndeexList11(2).LiistIIndeex = Liist11(5).LiistIIndeexList11(1).LiistIIndeex = Liist11(5).LiistIIndeexEnd SSeleectEnd SSub（6）主界界面四如图9所示 图9 主界界面主要代码如如下：（1）添加加零部件件代码如如下：Privaate Subb Coommaand11_Cllickk()If Coomboo1(00).TTextt Annd

45、 CCombbo1(1).Texxt AAnd Commbo11(2).Teext Andd Coomboo1(33).TTextt Annd CCombbo1(4).Texxt AAnd Texxt1 TheenForm33.Liist11(0).AdddIttem Commbo11(0).TeextForm33.Liist11(1).AdddIttem Commbo11(1).TeextForm33.Liist11(2).AdddIttem Commbo11(2).TeextForm33.Liist11(3).AdddIttem Commbo11(3).TeextForm33.Liist1

46、1(4).AdddIttem Commbo11(4).TeextForm33.Liist11(5).AdddIttem Texxt1Call savve2Form33.ShhowUnloaad MMeElseMsgBoox 请写入入完整的的信息！End IIfEnd SSub（2）退出出添加零零部件页页面代码码如下：Privaate Subb Coommaand22_Cllickk()Form33.ShhowUnloaad MMeEnd SSub（7）主界界面五如图100所示 图图10 主主界面主要代码如如下：（1）添加加个人信信息代码码如下：Privaate Subb Coommaand11

47、_Cllickk()Form55.ShhowEnd SSub（2）删除除个人信信息代码码如下：Privaate Subb Coommaand22_Cllickk()List11.ReemovveIttem Lisst1.LisstInndexxList22.ReemovveIttem Lisst2.LisstInndexxList33.ReemovveIttem Lisst3.LisstInndexxList44.ReemovveIttem Lisst4.LisstInndexxCall savveEnd SSub（1）修改改个人信信息代码码如下：Privaate Subb Coommaand

48、33_Cllickk()If Liist11.Teext = TThennMsgBoox 请选择择修改对对象ElseForm66.ShhowForm66.Teext11 = Lisst1.TexxtForm66.Teext22 = Lisst3.TexxtForm66.Coomboo1.TTextt = Lisst2.TexxtList11.ReemovveIttem Lisst1.LisstInndexxList22.ReemovveIttem Lisst2.LisstInndexxList33.ReemovveIttem Lisst3.LisstInndexxList44.Reemovve

49、Ittem Lisst4.LisstInndexxEnd IIfEnd SSub（4）退出出个人信信息窗口口代码如如下：Privaate Subb Coommaand44_Cllickk()Form33.ShhowUnloaad MMeEnd SSub（5）打开开个人信信息窗口口运行代代码如下下：Privaate Subb Foorm_Loaad()i = 00Open Appp.Paath + maag.ddat Foor RRanddom As #1Do Whhilee Noot EEOF(1)i = ii + 1Get #1, i, perrsList11.AdddIttem perrs

50、.bbh, i - 1List22.AdddIttem perrs.xxb, i - 1List33.AdddIttem perrs.xxm, i - 1List44.AdddIttem perrs.mmm, i - 1LoopCloseeEnd SSubPrivaate Subb Liist11_Cllickk()List22.LiistIIndeex = Liist11.LiistIIndeexList33.LiistIIndeex = Liist11.LiistIIndeexList44.LiistIIndeex = Liist11.LiistIIndeexEnd SSubPrivaat

51、e Subb Liist22_Cllickk()List11.LiistIIndeex = Liist22.LiistIIndeexList33.LiistIIndeex = Liist22.LiistIIndeexList44.LiistIIndeex = Liist22.LiistIIndeexEnd SSubPrivaate Subb Liist33_Cllickk()List11.LiistIIndeex = Liist33.LiistIIndeexList22.LiistIIndeex = Liist33.LiistIIndeexList44.LiistIIndeex = Liist

52、33.LiistIIndeexEnd SSubPrivaate Subb Liist44_Cllickk()List11.LiistIIndeex = Liist44.LiistIIndeexList22.LiistIIndeex = Liist44.LiistIIndeexList33.LiistIIndeex = Liist44.LiistIIndeexEnd SSub（8）主界界面六如图111所示 图11 主主界面主要代码如如下：Dim pperss Ass maanaggerPrivaate Subb Foorm_Loaad()Text33 = End SSubPrivaate Subb Coommaand11_Cllickk() 确定添添加按钮钮If Teext11 = Or Texxt2 = OOr TTextt3 = Orr Coomboo1.TTextt = TheenMsgBoox 请输入入完整的的信息Text11.SeetFoocussExit SubbEnd I