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