VB課程設(shè)計報告模板

1、Visual Basic課程設(shè)計報告題目1： 難度： * 題目2： 難度： 指導(dǎo)教師： 姓 名：學(xué) 號：專 業(yè)：班 級：學(xué) 院：日 期：目錄1、題目簡介22、設(shè)計思路與總體方案42.1 窗體frm142.2窗體form162.3窗體 frmcssz72.4 窗體frmlsz102.5窗體 frmcxtj122.6 標準模塊173、設(shè)計過程遇到的主要問題及解決方法184、設(shè)計中尚存的不足分析185、心得體會186、參考文獻191、題目簡介(簡要說明課程設(shè)計所設(shè)計的程序的主要功能。)本題目旨在設(shè)計與一個可對個人日常手入和消費帳目進行管理和查詢統(tǒng)計的程序，通過此程序的設(shè)計，可以加深我們對上學(xué)期的vb

2、基礎(chǔ)知識的印象，使理論升華為實際操作，同時也有助于我們培養(yǎng)理財意識，用電子記錄的形式取代從前的手寫記錄，使得信息更加精準，不易丟失。報告正文請采用“小四號”“宋體”，行間距20磅。單倍行間距，段頭空兩個空格的位置?！皟啥藢R格式”。題目的難度系數(shù)相對不高，但牽涉到眾多的知識點作為典型的多模塊設(shè)計類型的題目，本程序由五個窗體模塊frm1,form1,frmcssz,frmcxtj，frmlsz和一個標準模塊共同構(gòu)成。此外根據(jù)課本121頁要求，另有三個文本文件inputtype.txt,outputtype.txt和balance.txt分別用于保存收入類型,支出類型和收入支出帳目。本程序的密碼按

3、照題目要求保存在了Balance.pas中，并自行設(shè)計加密處理。我的筆記本打不開這個文件，即便打開看到的也不再是密碼本身。這點盡管在這個程序中用處不是太大，但為我們保存重要文件提供了一種思路。程序要求實現(xiàn)如下功能（主要根據(jù)窗口由易到難的順序來）。如圖1所示對插圖的引用標記， frm1是啟動窗體。有密碼的設(shè)定和破譯，開始時必須先輸入密碼。每次錯誤后會彈出對話框給予提示，連續(xù)累計三次則程序自動退出初始密碼為空，直接單擊即可進入。屏幕截圖或插圖要作居中處理，大小要合適?？赏ㄟ^按快捷鍵Alt+PrtScr組合鍵來復(fù)制當(dāng)前窗口至操作系統(tǒng)剪切板，切換到Word中用Ctrl+V進行粘貼操作。也可以用其它截圖

4、軟件，如QQ或360等作截屏操作。圖1. 程序主界面每個圖都要給出一個圖名，并給圖進行統(tǒng)一編號處理。2. 輸入密碼后則進入主界面，它是連接所有窗口的平臺。3. 單擊“參數(shù)設(shè)置”按鈕進入“參數(shù)設(shè)置”窗口。窗口的三個選項卡是通過SSTab或Tabstrip控件來制作。這些陌生的外部空間對于我通過安裝了vb企業(yè)版方才得到（詳見課本6-7頁兩者對比），因為ssTab控件相對來說簡單，所以在這個程序的中我完全采用了SSTab控件。4收入類別和支出類別的選項卡分別需要實現(xiàn)對兩者的添加，刪除，修改，返回操作，更為重要的是要保存在文件中，以備在流水帳和查詢統(tǒng)計的combobox中使用。開始時，“添加”和“返回

5、”按鈕可用，而其余兩個被置灰，而且文本框不可輸入。因為此時列表框的條目未被選中，所以修改和刪除已失去意義，不可用。“添加”按鈕比較繁瑣，其本身可以被“確定”按鈕替代功能。本程序中，按下添加按鈕，則此時文本框被清空可編輯，而對比來說，按下修改按鈕文本框不清空且可編輯。圖2. 輸入錯誤的密碼時的提示5 通過“密碼修改”選項卡修改密碼，如果兩次輸入不一致或者輸入有誤(圖2和3)則會提醒用戶。此外，我把其設(shè)為了在保存時也 會提醒，有助于我們記憶。右上角的返回按鈕可以隨時返回主界面上。6. 單擊主界面上的“日常流水帳”進入日常收支原始資料的主要輸入窗口。該窗口主要由“收入記賬”和“支出記賬”兩大部分組成

6、。我設(shè)置了進入窗體時列表框為空，以便于對剛輸入的情況一目了然。這里面就涉及到了另一種新的控件，DTPicker控件的問題，這個控件使用起來極為方便，單擊即可彈出日期選擇框，且默認當(dāng)天時間，簡明易懂。其中的列表框中的項目為參數(shù)設(shè)置所得，只需從中選擇即可。需要我們添加新的收支信息時，我設(shè)定了備注為可有可無的輸入項但其他三個空如果有一個未填則會在單擊保存后彈出msgbox提示，否則則會在底部的列表框中每行顯示一個完整項，并且把信息存儲到balance.txt中用于接下來的步驟。單擊取消按鈕則可以清空各個文本框中的內(nèi)容以便于重新輸入。添加完畢后單擊右上角的返回按鈕則回到主界面。7 本程序的重點和難點原

7、先粗步估計集中在查詢統(tǒng)計這一窗體模塊中，所以采用了由易到難的策略。該窗體由三個選項卡組成，既可以選擇按類型查詢從而了解單獨的情況，也可以采用時間段的模式，從而宏觀大體的知道某個時間內(nèi)的情況。設(shè)定這兩種模式時需要通過單選框的改變來結(jié)合visible屬性。實際并非沒有想象中的困難，但是，因為框架控件的問題，我在這里還是繞了歧路最終放棄了控件數(shù)組，原本代碼可能會更簡明些。收入支出對比一項用于顯示某段時間內(nèi)總收入和總支出的量化對比，在輸入時間段后按確定按鈕即可顯示。返回按鈕同上述情況。8. 程序中我設(shè)置了一個標準模塊，主要用于自定義數(shù)據(jù)類型中的使用。借用其配合，可使程序顯得更簡潔些。2、設(shè)計思路與總體

8、方案(說明用到哪些控件并進行難點分析，說明所使用到的模塊、過程、變量、數(shù)組、自定義數(shù)據(jù)類型及其相互關(guān)系，必要時給出系統(tǒng)結(jié)構(gòu)圖等圖表。對如下事項逐步進行必要的分析、說明：l 程序設(shè)計的主要思想，程序功能是如何實現(xiàn)的？l 設(shè)計了幾個程序模塊(有幾個窗體模塊、幾個標準模塊)，各個功能模塊的作者及想到之間的關(guān)系(模塊間是如何傳遞信息和數(shù)據(jù)的，采用什么方式，為什么？)？l 程序中定義了哪些主要的變量(分別定義了哪些過程級變量？模塊級變量和全局變量)，這些變量起什么作用？是否全局變量？這里不需要給出大段的源程序，只需要給出關(guān)鍵的實現(xiàn)代碼即可。)2.1 窗體frm1這是啟動窗體,僅使用了兩個標簽和一個文本框

9、及兩個按鈕，但是要考慮的地方卻有很多。下面我配合圖和文字講述下加密的過程，及對于輸入字符時的對話框，還有累計三次時將自動退出的設(shè)置。此處只有三個通用過程，分別為CmdCancel_Click，Cmdok_Click，txtpassword_KeyPress，難點集中在后兩者上，其中txtpassword_KeyPress在后面也會用到；Private Sub CmdCancel_Click()Unload MeEnd SubPrivate Sub Cmdok_Click() '自行設(shè)計的簡易解密過程 Dim int1 As String Dim a As Long: Static b

10、As Integer: Dim i As Integer If txtpassword.Text = "" Then Form1.Show'使用靜態(tài)變量三次來累計frm1.Hide Exit Sub End If int1 = txtpassword.Text Open App.Path & "balance.pas" For Input As 1 Input #1, a Close 1 Do While i <= Len(CStr(np) And i >= 1 a = a - Asc(Mid("CStr(np)&q

11、uot;, i, 1) Loop If a = int1 Then Form1.Show Unload Me Else txtpassword.Text = "" txtpassword.SetFocus b = b + 1 If b = 3 Then MsgBox "三次密碼輸入不正確，請查實后再登錄，謝謝!", "48", "錯誤!" Unload Me Else MsgBox "密碼錯誤，請查實后再登錄。", "48", "錯誤!" End If E

12、nd IfEnd SubPrivate Sub txtpassword_KeyPress(KeyAscii As Integer)If KeyAscii < 48 Or KeyAscii > 57 Then KeyAscii = 0 '密碼含非數(shù)字字符，則顯示錯誤 MsgBox "密碼應(yīng)當(dāng)為數(shù)字，請重新輸入", , "提示" End If End Sub2.2窗體form1 這是主界面，最沒有難度的環(huán)節(jié)。但是我在此退出鍵上也設(shè)了一個對話框，這就提供了返回的余地.此處我設(shè)置了四個按鈕控件，一個標簽，和一個圖像控件。幾段代碼相似，僅有cl

13、ick過程Private Sub Cmdlsz_Click() Frmlsz.Show Unload MeEnd SubPrivate Sub CmdCxtj_Click() Frmcxtj.Show Unload MeEnd SubPrivate Sub CmdEsc_Click()Dim i As Integer i = MsgBox("Are you sure to exist?", 49, "Warn") If i = 1 Then Unload Me Else Form1.ShowEnd If End SubPrivate Sub Cmdcss

14、z_Click()Load frmcsszfrmcssz.ShowUnload MeEnd SubPrivate Sub Cmdtjcx_Click()Load FrmcxtjFrmcxtj.ShowUnload MeEnd Sub2.3窗體 frmcssz該窗體是以三個選項卡所構(gòu)成的，了解到前兩者具有對稱性，這就提供給了我們思路，控件數(shù)組的使用可以簡化兩者的代碼，從而提高程序的可讀性。窗口共出現(xiàn)了十五個按鈕控件，我多將其設(shè)置成為了數(shù)組的模式，利用index屬性的轉(zhuǎn)換，簡化工作量。此外九個標簽，四個文本框及兩個列表框均是圍繞著實現(xiàn)兩個框架承載的內(nèi)部結(jié)構(gòu)所展開。下述一段是利用數(shù)組寫文件的過程 ，

15、僅使用兩個變量循環(huán)著輸出便得以實現(xiàn)Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer) Dim i As Integer, j As Integer Open App.Path & "InputType.txt" For Output As 1 Open App.Path & "OutputType.txt" For Output As 2 用unload的一個過程寫文件 For i = 0 To 1 For j = 1 To List1(i).Lis

16、tCount Write #i + 1, List1(i).List(j - 1) Next j Next i CloseEnd Sub 下述一段代碼為讀入列表框時所使用。僅有一字符串變量來實現(xiàn)Private Sub Form_Load()Dim str1 As String Open App.Path & "OutputType.txt" For Input As #2 Do While Not EOF(2) Input #2, str1 List1(1).AddItem str1'讀文件進入列表框 Loop Open App.Path & &qu

17、ot;InputType.txt" For Input As #1 Do While Not EOF(1) Input #1, str1 List1(0).AddItem str1 Loop CloseEnd SubPrivate Sub Cancel_Click()np.Text = "": np2.Text = "" '取消密碼輸入End SubPrivate Sub cmdfh_Click(Index As Integer) '返回按鈕Unload frmcsszForm1.ShowEnd SubPrivate Sub C

18、mdqx_Click(Index As Integer) '取消按鈕Dim m As Integerm = IndexText1(m).Text = ""End SubPrivate Sub Cmdsc_Click(Index As Integer) '刪除按鈕 Dim j As Integer: j = Index List1(j).RemoveItem List1(j).ListIndex Text1(j).Text = ""End SubPrivate Sub Cmdtj_Click(Index As Integer) '添

19、加按鈕Dim m As Integerm = IndexText1(m).SetFocusText1(m).Locked = FalseText1(m).Text = ""End SubPrivate Sub List1_Click(Index As Integer) Dim j As Integer '點擊列表框?qū)崿F(xiàn)兩鍵的去灰 j = Index Cmdxg(j).Enabled = True Cmdsc(j).Enabled = True Text1(j).Text = List1(j).TextEnd SubPrivate Sub Cmdxg_Click(In

20、dex As Integer) '修改按鈕。修改鍵解除文本框鎖定 Dim j As Integer j = Index Text1(j).Locked = False Text1(j).SetFocusEnd SubPrivate Sub Cmdqd_Click(Index As Integer) Dim int1 As Integer, k As Integer '確定按鈕。對欄目的添加, 修改 k = Index If List1(k).SelCount = 0 Then List1(k).AddItem Text1(k).Text Else int1 = List1(k)

21、.ListIndex List1(k).List(int1) = Text1(k).Text End If Text1(k).Text = "": Text1(k).Locked = True Cmdxg(k).Enabled = False: Cmdsc(k).Enabled = False Cmdtj(k).SetFocusEnd Sub后面一段當(dāng)時看來顯得很費精力，因為需要自行設(shè)定加密方法Private Sub sure_click() Dim i As Integer, password As Long i = 1 If np.Text <> np2.T

22、ext Then MsgBox "兩次密碼不一樣 （。）/，請重新輸入", 48, "提示" ElseIf Len(Trim(np) > 8 Then MsgBox "請保證密碼不超過8位", 48 Else '兩次輸入一樣就加密并保存到文件 MsgBox "密碼已修改，a請記住您的密碼哦！", 64, "溫馨提示" End IfDo While i <= Len(np.Text) And i >= 1 np = np + Asc(Mid(np.Text, i, 1)

23、Loop Open App.Path & "Balance.pas" For Output As #1 '設(shè)置密碼 Write #1, np Close #1 End Sub Private Sub np_KeyPress(KeyAscii As Integer) If KeyAscii < 48 Or KeyAscii > 57 Then KeyAscii = 0 '密碼含非數(shù)字字符，則顯示錯誤 MsgBox "密碼應(yīng)當(dāng)為數(shù)字，請重新輸入", , "提示" End If2.4 窗體frmlsz窗體

24、frmlsz供用戶輸入每日的收支帳目，即收支類型、收支時間、金額和備注。每次加載窗體frmlsz時從Inputtype.txt讀出收入類型，從Outputtype.txt讀出支出類型給combo控件初始化，便于用戶選擇相應(yīng)的類型輸入日常流水賬。為實現(xiàn)數(shù)據(jù)逐條讀寫采用do loop循環(huán) EOF（）文件函數(shù)和input語句。利用If語句判斷data的int1取值，確定數(shù)據(jù)是收入還是支出，這是一種較為簡便的方式，在后面的數(shù)據(jù)查詢中有很大的發(fā)揮空間Frmlsz在主界面中的default屬性被我改成了true。其結(jié)構(gòu)簡單，但設(shè)計上還是需要注意些問題，比方說就看下面一段代碼，我們有時候確實有必要在細節(jié)上較

25、真Private Sub Cmdbc_Click(Index As Integer)Dim j As Integer: j = IndexDim str1 As String If Coblb(j).Text = "" Or txtje(j).Text = "" Then '輸入信息 MsgBox "請輸入完整 >o<", , "嘿嘿，注意"Exit SubElsestr1 = DTPicker1(j).Value & Space(4) & Coblb(j).Text &

26、 Space(9) & txtje(j) & Space(12) & txtbz(j) Call List1(j).AddItem(str1)End IfDim newdata As data 1 = j newdata.time1=DTPicker1(j).Value newdata.moneytype= Coblb(j).Text '收集信息并保存到文件 newdata.money = Str(Val(txtje(j).Text) newdata.addition = txtbz(j).Text Open App.Path &

27、"Balance.txt" For Append As #1 Write #1, 1, newdata.time1, newdata.moneytype, newdata.money, newdata.addition Close #1End SubPrivate Sub cmdfh_Click(Index As Integer) '返回Unload FrmlszForm1.ShowEnd SubPrivate Sub Cmdqk_Click(Index As Integer) '清空按鈕Dim j As Integer: j = In

28、dexCoblb(j).Text = "": txtje(j).Text = "": txtbz(j).Text = ""End Sub這段代碼基本上在所有類似的情況中都大同小異Private Sub Form_Load() '讀取信息Dim str1 As String Open App.Path & "OutputType.txt" For Input As #2 Do While Not EOF(2) Input #2, str1 Coblb(1).AddItem str1 Loop Open

29、 App.Path & "InputType.txt" For Input As #1 Do While Not EOF(1) Input #1, str1 Coblb(0).AddItem str1 Loop CloseEnd Sub2.5窗體 frmcxtj窗體frmcxtj算是對于上述窗體的綜合應(yīng)用。在數(shù)組的基礎(chǔ)上同時也涉及到了自定義變量類型，利用其尋找到時間或類別上符合要求的項，通過EOF語句不斷賦值，再通過do loop循環(huán)得到。兩組單選框的value值改變而轉(zhuǎn)化frame的visible屬性，這是大致的思路框架。具體落實到代碼的編寫上，比方尋找時間段是通

30、過與dtpicker的value值比較Private Sub Cmd3_Click()Dim newdata As data, i As Integer此句為收入支出對比一欄上給兩個文本框計算的過程Dim amount As Long, money1 As Long, money2 As IntegerLbldb.Caption = "從" & Space(3) & DTPicker5.Value & Space(2) & "到" & Space(2) & DTPicker6.Value & Spa

31、ce(2) & "期間" 標簽Open App.Path & "Balance.txt" For Input As #1 Do While Not EOF(1) Input #1, 1 Input #1, newdata.time1 Input #1, newdata.moneytype Input #1, newdata.money Input #1, newdata.addition If (newdata.time1 >= (DTPicker5.Value) And (newdata.time1 <

32、= (DTPicker6.Value) And 1 = 0 Then money1 = money1 + newdata.money End IfIf (newdata.time1 >= (DTPicker5.Value) And (newdata.time1 <= (DTPicker6.Value) And 1 = 1 Then money2 = money2 + newdata.money End If Loop Text1.Text = money1 Text2.Text = money2 CloseText1.Locked = T

33、rueText2.Locked = True End SubPrivate Sub Cmd1_Click() 第一個確定按鈕 List1.Clear 'Dim newdata As data, i As IntegerDim amount As Long, money As Longamount = 0Open App.Path & "Balance.txt" For Input As #1 '當(dāng)選擇收入類型查詢時If Option2.Value = True Then Do While Not EOF(1) Input #1, newdata.in

34、t1 Input #1, newdata.time1 Input #1, newdata.moneytype Input #1, newdata.money Input #1, newdata.additionIf (newdata.time1 >= (DTPicker9.Value) And (newdata.time1 <= (DTPicker10.Value) And newdata.moneytype = Combo1.Text ThenList1.AddItem newdata.time1 & Space(5) & newdata.moneytype &a

35、mp; Space(5) & CStr(newdata.money) & Space(5) & newdata.additionmoney = newdata.moneyEnd Ifamount = amount + moneyLoopLabelsr.Caption = "從" & DTPicker9.Value & "到 " & DTPicker10.Value & " 共收入" & amount & "元"Else Do While Not

36、 EOF(1) Input #1, 1 '當(dāng)選擇按時間查收入時 Input #1, newdata.time1 Input #1, newdata.moneytype Input #1, newdata.money Input #1, newdata.addition If (newdata.time1 >= (DTPicker7.Value) And (newdata.time1 <= (DTPicker8.Value) And 1 = 0 Then List1.AddItem newdata.time1 & Space

37、(5) & newdata.moneytype & Space(5) & CStr(newdata.money) & Space(5) & newdata.additionmoney = newdata.moneyEnd If amount = amount + moneyLoop Labelsr.Caption = "從" & DTPicker7.Value & "到 " & DTPicker8.Value & " 共收入" & amount &

38、 "元" End If Close End Sub Private Sub Cmd2_Click() 第二個確定按鈕 List2.Clear Dim newdata As data, i As Integer Dim amount As Long, money As Long amount = 0Open App.Path & "Balance.txt" For Input As #2'當(dāng)選擇支出類型查詢時If Option4.Value = True Then Do While Not EOF(2) Input #2, newdata.

39、int1 Input #2, newdata.time1 Input #2, newdata.moneytype Input #2, newdata.money Input #2, newdata.additionIf (newdata.time1 >= (DTPicker3.Value) And (newdata.time1 <= (DTPicker4.Value) And newdata.moneytype = Combo2.Text Then '當(dāng)選擇按時間查支出時List2.AddItem newdata.time1 & Space(5) & new

40、data.moneytype & Space(5) & CStr(newdata.money) & Space(5) & newdata.additionmoney = newdata.moneyEnd Ifamount = amount + moneyLoopLabelzc.Caption = "從" & DTPicker3.Value & "到 " & DTPicker4.Value & " 共支出" & amount & "元"E

41、lse Do While Not EOF(2) Input #2, 1 Input #2, newdata.time1 Input #2, newdata.moneytype Input #2, newdata.money Input #2, newdata.addition If (newdata.time1 >= (DTPicker1.Value) And newdata.time1 <= (DTPicker2.Value) And 1 = 1 Then List2.AddItem newdata.time1 & Space(

42、5) & newdata.moneytype & Space(5) & CStr(newdata.money) & Space(5) & newdata.additionmoney = newdata.moneyEnd Ifamount = amount + money Loop Labelzc.Caption = "從" & DTPicker1.Value & "到 " & DTPicker2.Value & " 共支出" & amount &

43、"元" End IfCloseEnd SubPrivate Sub Command1_Click(Index As Integer) '返回Unload MeForm1.Show End SubPrivate Sub Form_Load() '讀取信息 Dim str1 As String Open App.Path & "OutputType.txt" For Input As #2 Do While Not EOF(2) Input #2, str1 Combo2.AddItem str1 Loop Open App.Path

44、 & "InputType.txt" For Input As #1 Do While Not EOF(1) Input #1, str1 Combo1.AddItem str1 Loop Close End SubPrivate Sub Option1_Click() '以下為單選框的四類情況Frame2.Visible = False Frame1.Visible = TrueEnd SubPrivate Sub Option2_Click()Frame2.Visible = True Frame1.Visible = FalseEnd SubPrivate Sub Option3_Click() Frame3.Visible = True Frame4.Visible = FalseEnd SubPrivate Sub Option4_Click() Frame3.Visible = False Frame4.Visible = TrueEnd Sub2.6 標準模塊標準模塊