【正文】 。 他 無(wú)論在理論上還是在實(shí)踐中，都給與我很大的幫助，使我的水平得到了 很大的提高，這對(duì)于我以后的工作和學(xué)習(xí)都是一次巨大的幫助，感謝 高 老師對(duì)我細(xì)心的輔導(dǎo)。 經(jīng)過(guò)兩個(gè)多月的構(gòu)思與設(shè)計(jì)，在指導(dǎo)老師 高 中山 老師的精心指導(dǎo)下，本設(shè)計(jì)已經(jīng)設(shè)計(jì)完畢。由于知識(shí)能力有限，系統(tǒng)還不夠完美，程序也有待進(jìn)一步完善。 daynum amp。 RTrim() amp。 RTrim() amp。 1 amp。 amp。and 收 支 記 錄 表 . 收 支 日 期 between amp。 RTrim() amp。and 收支類(lèi)型表 .收支類(lèi)型 =39。固定類(lèi)型，按日期查詢(xún) sql = select 收支名稱(chēng) as 支出名稱(chēng) ,收支類(lèi)型表 .收支類(lèi)型 as 項(xiàng)目 ,收支日期 as 支出日期 ,金額 ,備注 from 收支記錄表 ,收支類(lèi)型表 where 收支記錄表 .收支類(lèi)型 =收支類(lèi)型表 .收支類(lèi)型 and 收支 =39。 39。 amp。支 39。固定類(lèi)型查詢(xún) If = 1 Then 39。 daynum amp。 RTrim() amp。 RTrim() amp。 1 amp。 amp。 and 收支記錄表 .收支日期 between amp。and 收支記錄表 .收支類(lèi)型 39。所有類(lèi)型，按月查詢(xún) sql = select 收支名稱(chēng) as 支出名稱(chēng) ,收支類(lèi)型表 .收支類(lèi)型 as 項(xiàng)目 ,收支日期 as 支出日期 ,金額 ,備注 from 收支記錄表 ,收支類(lèi)型表 where 收支記錄表 .收支類(lèi)型 =收支類(lèi)型表 .收支類(lèi)型 and 收支 =39。銀行存款 39。支 39。所有支出類(lèi)型查詢(xún) If = 1 Then 39。 i = 0 Do While Not (i) = (1).Value i = i + 1 Loop = = = Date = GoTo jump showerror: MsgBox ndata rsttable 銀行卡表 jump: End If End Sub 支出查詢(xún)： ndata 39。結(jié)束 = = = = Date = GoTo jump showerror: MsgBox ndata rsttable 銀行卡表 jump: End Sub 銀行卡刪除： 燕山大學(xué)本生科畢業(yè)設(shè)計(jì)（論文） 29 s = MsgBox(確定要?jiǎng)h除該卡嗎？刪除后該卡的所有收支記錄會(huì)丟失 , vbYesNo, 刪除選定銀行卡 ) If s = 6 Then On Error GoTo showerror () 39。顯示全部記錄 39。 \ .Open End With With rst If .State = adStateOpen Then .Close End If .LockType = adLockOptimistic .ActiveConnection = dbs .CursorLocation = adUseClient .CursorType = adOpenKeyset .Open 收支類(lèi)型表 , Options:=adCmdTable End With jump: = = = False = False End If Exit Do End If Loop = False = True 燕山大學(xué)本生科畢業(yè)設(shè)計(jì)（論文） 27 End Sub 收支類(lèi)型說(shuō)明： ss = m = 0 39。顯示全部記錄 i = 0 Do While Not (i) = (收支類(lèi)型 ).Value (i) = (收支 ).Value i = i + 1 燕山大學(xué)本生科畢業(yè)設(shè)計(jì)（論文） 26 Loop 39。結(jié)束 GoTo jump 燕山大學(xué)本生科畢業(yè)設(shè)計(jì)（論文） 24 showerror: MsgBox With dbs If .State = adStateOpen Then .Close End If .Provider = .ConnectionString = amp。 燕山大學(xué)本生科畢業(yè)設(shè)計(jì)（論文） 22 參考文獻(xiàn) 1 劉瑞新等 .Visual Basic 程序設(shè)計(jì)教程 .北京 :電子工業(yè)出版社 .2021 2 黃梯云等 .管理信息系統(tǒng) .北京 :高等教育出版社 . 2021 3 李玉林等 .Visual Basic 畢業(yè)設(shè)計(jì)指南與項(xiàng)目實(shí)踐 .北京 :科學(xué)出版社 . 2021 4 劉韜 .駱娟 .何旭等 .Visual Basic 數(shù)據(jù)庫(kù)系統(tǒng)開(kāi)發(fā)實(shí)例導(dǎo)航 .北京 :人民郵電出版社 . 2021 5 郭瑞軍 .唐邦民 .謝晗晰等 .Visual Basic 數(shù)據(jù)庫(kù)實(shí)例精粹 .北京 :電子工業(yè)出版社 . 2021 6 周?chē)?guó)民 . Visual Basic +Access 數(shù)據(jù)庫(kù)項(xiàng)目開(kāi)發(fā)指南 .北京 :中國(guó)鐵道出版社 . 2021 7 溫小敏 .Visual Basic 數(shù)據(jù)庫(kù)系統(tǒng)項(xiàng)目開(kāi)發(fā)實(shí)踐 .北京 :科學(xué)出版社 . 2021 8 王欽 visual Basic 入門(mén)與提高 .京 :人民郵電出版社 . 2021 9 白曉勇 .余健 .Visual Basic 課程設(shè)計(jì)案例精編 .北京 :清華大學(xué)出版社 . 2021 10 譚浩強(qiáng) .袁枚 .薛淑斌 Visual Basic 程序設(shè)計(jì) .北京 ： 清華大學(xué)出版社 . 2021 11 劉世峰 .Visual Basic 程序設(shè)計(jì) .北京 :中央廣播電大出版社 . 2021 12 王珊 .薩師煊 .數(shù)據(jù)庫(kù)系統(tǒng)概論 .北京 :高等教育出版社 . 2021 燕山大學(xué)本生科畢業(yè)設(shè)計(jì)（論文） 23 附錄：源程序代碼 添加類(lèi)別： = False And = False Then Dim str1 As Integer str1 = MsgBox(請(qǐng)選擇收支類(lèi)型，否則將默認(rèn)為 收 , 4128, 收支類(lèi)型必須指明 ) = True s = 收 ElseIf = True Then s = 收 ElseIf = True Then s = 支 End If If = Or = （不超過(guò) 12 字） Then Dim str2 As Integer str2 = MsgBox(請(qǐng)輸入收支類(lèi)型的名稱(chēng) , 4128, 收支名稱(chēng)必須指明 ) Else On Error GoTo showerror With rst .AddNew .(收支類(lèi)型 ).Value = .(收支 ).Value = s .(說(shuō)明 ).Value = Text_shuoming .Update .Requery End With 39。 這次的畢業(yè)論文是我大學(xué)的一次非常重要的理論與實(shí)際相結(jié)合的運(yùn)用， 作為一次畢業(yè)設(shè)計(jì)實(shí)踐的機(jī)會(huì)，我覺(jué)得實(shí)踐過(guò)程中是一個(gè)不斷學(xué)習(xí)、摸索的過(guò)程 。 燕山大學(xué)本科生畢業(yè)設(shè)計(jì)（論文） 21 結(jié) 論 在本系統(tǒng)的設(shè)計(jì)與實(shí)現(xiàn)的過(guò)程中主要講述了個(gè)人收支管理信息系統(tǒng)的系統(tǒng)設(shè)計(jì)部分，包括功能模塊設(shè)計(jì)、 ER 圖，數(shù)據(jù)庫(kù)結(jié)構(gòu)設(shè)計(jì)等。 單擊 “ 支出情況統(tǒng)計(jì) ” 菜單 可以按月進(jìn)行查詢(xún)或是按類(lèi)型查詢(xún) 。 單擊 “ 銀行卡記賬 ” 菜單，都會(huì)打開(kāi) 銀行卡記賬 窗體，對(duì) 銀行卡的選擇 、卡號(hào) 、 記賬日期 、 金額 、 備注進(jìn)行添加、修改。 2．記賬日志功能：打開(kāi)記賬日志管理窗體，有兩個(gè) 子菜單 —— “ 現(xiàn)金記賬 ” 、 “ 銀行卡記賬 ” 。 “ 銀行卡管理 ” ，打開(kāi)窗體，可以進(jìn)行對(duì)銀行卡名稱(chēng)、開(kāi)戶(hù)日期、開(kāi)戶(hù)銀燕山大學(xué)本科生畢業(yè)設(shè)計(jì)（論文） 20 行以及說(shuō)明的添加和修改。 單擊 “ 刪除類(lèi)別 ” 菜單，打開(kāi)類(lèi)別管理窗體可以對(duì)類(lèi)別名稱(chēng)進(jìn)行刪除 。 “ 收支 類(lèi)別管理 ” 下有 兩 個(gè)菜單 —— “ 添加類(lèi)別 ” 和 “ 刪除類(lèi)別 ” 。 圖 61 統(tǒng)主界面 主窗體菜單欄包括的主要菜單有 系統(tǒng)維護(hù)，記賬日志，詢(xún)和統(tǒng)計(jì) 。 表 53 銀行卡數(shù)據(jù)的表邏輯結(jié)構(gòu) 字段 名稱(chēng) 數(shù)據(jù)類(lèi)型 字段大小 允許空值 備注 銀行卡選擇 文本 4 否 主鍵自增 卡號(hào) 數(shù)字 20 辦理日期 數(shù)字 4 對(duì)應(yīng)的日記賬 編號(hào) 現(xiàn)金記賬數(shù)據(jù)表 該表的主要作用是記錄在 個(gè)人收支 管理中的 收支情況的基本信息，信息 內(nèi)容燕山大學(xué)本科生畢業(yè) 設(shè)計(jì)（論文） 18 可參考它的邏輯結(jié)構(gòu)定義，如表 53 所示。 表 52 讀者信息數(shù)據(jù)的表邏輯結(jié)構(gòu) 字段 名稱(chēng) 數(shù)據(jù)類(lèi)型 字段大小 允許空值 備注 銀行卡選擇