【正文】
六、總結(jié)及個(gè)人心得體會(huì)七、參考文獻(xiàn)程序功能涉及知識(shí)點(diǎn):(1)讀文本文件;(2)動(dòng)態(tài)數(shù)組(3)字符串處理(4)列表框控件的使用(4)多行文本框控件的使用功能要求:(1)程序啟動(dòng)后,左邊的列表框顯示所有的車次,點(diǎn)擊其中一項(xiàng),顯示相應(yīng)的詳細(xì)信息。(2)在“經(jīng)停車站”組合框中選擇或輸入一個(gè)站名然后回車,列表框中只列出經(jīng)過該車站的車次。(3)文本框(或右邊的列表框)中詳細(xì)信息整齊排列。界面設(shè)計(jì)界面有frame,list,bol,text,mand,、功能模塊設(shè)計(jì)課程設(shè)計(jì)總結(jié)(1)整體的功能還是實(shí)現(xiàn)了,運(yùn)行應(yīng)該是沒有問題的。(3)我也知道了,不能光靠自己的課本,要借助網(wǎng)絡(luò)快速的查找自己所需要的知識(shí)點(diǎn)。第一個(gè)大的問題就是怎樣才能實(shí)現(xiàn)查詢經(jīng)過站點(diǎn)和顯示車次途徑車站和,經(jīng)過查閱書籍之后,通過以下代碼就可以實(shí)現(xiàn)了:Private Sub Com1_Click()39。清除界面For i = 0 To kIf str(i)= ThenFor j = 0 To num1 If b = str1(i)Then = str2(i): = str3(i)39。判斷站名長(zhǎng)度以便list2中各項(xiàng)對(duì)齊Case Is = 2: p = 5Case Is = 3: p = 3Case Is = 4: p = 1End Select(j)= str(m)+ Space(p)+ RTrim(Format(str(m + 1), ”))+ RTrim(Format(str(m + 2), “))39。 ”“, )39。 ”“, )39。將Detail數(shù)組內(nèi)容寫入經(jīng)停車站下拉欄For q = 1 To UBound(Detail, 2)If Detail(w, q, 0) Nothing And Detail(w, q, 0) ”“ ThenIf (Detail(w, q, 0))= False Then(Detail(w, q, 0))End IfEnd IfNextNextEnd SubPrivate Sub ShowAllTrains_Click(sender As , e As )Handles 39。)NextEnd SubPrivate Sub ListBox1_SelectedIndexChanged(sender As , e As)Handles 39。= Detail(Selection, u, 0)amp。 Detail(Selection, u, 2)amp。= Detail(Selection, u, 0)amp。 Detail(Selection, u, 1)amp。 Detail(Selection, u, 2)amp。經(jīng)停站輸入文字或下拉欄選中某項(xiàng)所觸發(fā)的事件()For z = 0 To UBound(Detail)For c = 1 To UBound(Detail, 2)If Detail(z, c, 0)= ThenIf (Detail(z, 0, 0))= False Then(Detail(z, 0, 0))End IfEnd IfNextNextEnd SubFunction Selection()As Integer 39。?“, ”)ThenReturn qExit FunctionEnd IfNextReturn1End FunctionPrivate Sub Form1_Load(ByVal sender As , ByVal e As )Handles End Sub End Class總結(jié)及個(gè)人心得體會(huì)綜合分析,本設(shè)計(jì)有四個(gè)難點(diǎn):。,包括車次名,起點(diǎn)站,終點(diǎn)站,發(fā)車時(shí)刻,到達(dá)時(shí)刻,一個(gè)車次占一行。每個(gè)車次信息的保存方式都是相同的:首先一個(gè)星號(hào)“*”為一行:然后是車次名為一行:在后是??空镜恼久偷竭_(dá),發(fā)車時(shí)刻,每個(gè)站為一行。因?yàn)槊看诬囃?空镜臄?shù)目不同,必須正確判斷星號(hào)“*”的位置。存在的不足:只能夠查詢信息,不能夠擴(kuò)充程序使之對(duì)列車信息進(jìn)行修改,添加和刪除操作。通過這次課程設(shè)計(jì)是我懂得了理論與實(shí)踐相結(jié)合是很重要的,只有理論知識(shí)是遠(yuǎn)遠(yuǎn)不夠的,只有把所學(xué)的理論知識(shí)與實(shí)踐相結(jié)合起來,從理論中得出結(jié)論,才能真正為社會(huì)服務(wù),從而提高自己的實(shí)際動(dòng)手能力和獨(dú)立思考的能力。通過這次課程設(shè)計(jì)之后,一定把以前所學(xué)的知識(shí)重新溫故??赡苁且粋€(gè)良性循環(huán)的開始吧,相信以后會(huì)做的更好的。)本題目旨在設(shè)計(jì)與一個(gè)可對(duì)個(gè)人日常手入和消費(fèi)帳目進(jìn)行管理和查詢統(tǒng)計(jì)的程序,通過此程序的設(shè)計(jì),可以加深我們對(duì)上學(xué)期的vb基礎(chǔ)知識(shí)的印象,使理論升華為實(shí)際操作,同時(shí)也有助于我們培養(yǎng)理財(cái)意識(shí),用電子記錄的形式取代從前的手寫記錄,使得信息更加精準(zhǔn),不易丟失。此外根據(jù)課本121頁要求,,支出類型和收入支出帳目。我的筆記本打不開這個(gè)文件,即便打開看到的也不再是密碼本身。程序要求實(shí)現(xiàn)如下功能(主要根據(jù)窗口由易到難的順序來)。有密碼的設(shè)定和破譯,開始時(shí)必須先輸入密碼。,它是連接所有窗口的平臺(tái)。窗口的三個(gè)選項(xiàng)卡是通過SSTab或Tabstrip控件來制作。4.收入類別和支出類別的選項(xiàng)卡分別需要實(shí)現(xiàn)對(duì)兩者的添加,刪除,修改,返回操作,更為重要的是要保存在文件中,以備在流水帳和查詢統(tǒng)計(jì)的bobox中使用。因?yàn)榇藭r(shí)列表框的條目未被選中,所以修改和刪除已失去意義,不可用。本程序中,按下添加按鈕,則此時(shí)文本框被清空可編輯,而對(duì)比來說,按下修改按鈕文本框不清空且可編輯。此外,我把其設(shè)為了在保存時(shí)也 會(huì)提醒,有助于我們記憶?!叭粘A魉畮ぁ边M(jìn)入日常收支原始資料的主要輸入窗口。我設(shè)置了進(jìn)入窗體時(shí)列表框?yàn)榭?,以便于?duì)剛輸入的情況一目了然。其中的列表框中的項(xiàng)目為參數(shù)設(shè)置所得,只需從中選擇即可。單擊取消按鈕則可以清空各個(gè)文本框中的內(nèi)容以便于重新輸入。本程序的重點(diǎn)和難點(diǎn)原先粗步估計(jì)集中在查詢統(tǒng)計(jì)這一窗體模塊中,所以采用了由易到難的策略。設(shè)定這兩種模式時(shí)需要通過單選框的改變來結(jié)合visible屬性。收入支出對(duì)比一項(xiàng)用于顯示某段時(shí)間內(nèi)總收入和總支出的量化對(duì)比,在輸入時(shí)間段后按確定按鈕即可顯示。,主要用于自定義數(shù)據(jù)類型中的使用。設(shè)計(jì)思路與總體方案(說明用到哪些控件并進(jìn)行難點(diǎn)分析,說明所使用到的模塊、過程、變量、數(shù)組、自定義數(shù)據(jù)類型及其相互關(guān)系,必要時(shí)給出系統(tǒng)結(jié)構(gòu)圖等圖表。) 窗體frm1 這是啟動(dòng)窗體,僅使用了兩個(gè)標(biāo)簽和一個(gè)文本框及兩個(gè)按鈕,但是要考慮的地方卻有很多。此處只有三個(gè)通用過程,分別為CmdCancel_Click,Cmdok_Click,txtpassword_KeyPress,難點(diǎn)集中在后兩者上,其中txtpassword_KeyPress在后面也會(huì)用到;Private Sub CmdCancel_Click()Unload Me End SubPrivate Sub Cmdok_Click()39。使用靜態(tài)變量三次來累計(jì) Exit Sub End If int1 = Open amp。僅有一字符串變量來實(shí)現(xiàn) Private Sub Form_Load()Dim str1 As String Open amp。讀文件進(jìn)入列表框LoopOpen amp。取消密碼輸入 End SubPrivate Sub cmdfh_Click(Index As Integer)39。取消按鈕 Dim m As Integer m = Index Text1(m).Text = ”“ End SubPrivate Sub Cmdsc_Click(Index As Integer)39。添加按鈕 Dim m As Integerm = Index Text1(m).SetFocus Text1(m).Locked = False Text1(m).Text = ”“ End SubPrivate Sub List1_Click(Index As Integer)Dim j As Integer39。修改按鈕。確定按鈕?!?,請(qǐng)重新輸入“,