vb60家庭財務(wù)管理系統(tǒng)-資料下載頁
2024-12-06 01:37本頁面
【導(dǎo)讀】端應(yīng)用程序的開發(fā)兩個方面。對于前者要求建立起數(shù)據(jù)一致性和完整性強、數(shù)據(jù)安全性好的庫。后者則要求應(yīng)用程序功能完備,易使用等特點。經(jīng)過分析,我們使用MICROSOFT公司的VISUALBASIC開發(fā)工具,利用其提供的各種面向?qū)ο蟮摹Ｐ?然后,對初始原型系統(tǒng)進行需求迭代,不斷修正和改進,直到形成用戶滿意的可行系統(tǒng)。
【正文】 End If End Sub Private Sub Command8_Click() If Then MsgBox 已到庫尾！ 窗體的標題 窗體顯示的位置 37 End If End Sub Private Sub Command7_Click() End Sub 的代碼為： Private Sub Command1_Click() = False = False = False = True = True = True = True = True = True End Sub 刪除的代碼為： Private Sub Command2_Click() If MsgBox(確認刪除當前記錄嗎？ , vbYesNo, 確認窗口 ) = vbYes Then = False = False = False = True = False 38 If Then End If End If End Sub 的代碼為： Private Sub Command3_Click() = False = False = False = True = True = True = True = True = True = True End Sub 的代碼為： Private Sub Command4_Click() = False = False = False = False = False 39 = True = True = True = False = False End Sub 的代碼為： Private Sub Command5_Click() = False = False = False = False = False = True = True = True = False = False End Sub 的代碼為： Private Sub Command6_Click() Unload Me End Sub Option 按鈕組 的代碼為： 40 Private Sub Option1_Click(index As Integer) If index = 0 Then = True = False = Else = True = False = End If End Sub 另外卡的信息是從數(shù)據(jù)庫中獲取，方法是首先通過 Adodc 控件與數(shù)據(jù)庫相連，然后將各數(shù)據(jù)項與數(shù)據(jù)字段相連。 Adodc1 控件的屬性為： DataGrid1 控件的主要屬性設(shè)置如下： OLEDB 連接 數(shù)據(jù)庫中的何表 41 5． 7信用卡收支查詢模塊的設(shè)計與實現(xiàn)： 1．流程圖： 2．運行界面： 數(shù)據(jù)來源 N Y 開始 設(shè)置查詢條件查詢 是否繼續(xù) 退出 42 3．實現(xiàn)過程： 界面的設(shè)計過程與卡信息的收支與維護管理模塊類似，這邊不再重復(fù)。使用 Adodc 控件來實現(xiàn)與數(shù)據(jù)庫的連接的。 下面把此界面的主要代碼作一介紹： 按鈕的代碼如下： Private Sub Command1_Click() Dim strQuery As String d1 = Trim() d2 = Trim() = adCmdText If = True Then strQuery = select * from 卡日常收支 where len(收入項目 ) and 日期 =39。 amp。 d1 amp。 39。 And 日期 = 39。 amp。 d2 amp。 39。 End If If = True Then 43 strQuery = select * from 卡日常收支 where len(支出項目 ) and 日期 =39。 amp。 d1 amp。 39。 And 日期 = 39。 amp。 d2 amp。 39。 End If If = False And = False Then strQuery = select * from 卡日常收支 where 日期 =39。 amp。 d1 amp。 39。 And 日期= 39。 amp。 d2 amp。 39。 End If = strQuery If = 0 Then MsgBox 不存在此時間段的收支記錄 ! End If End Sub 查詢過程主要是借助于 SQL（結(jié)構(gòu)化查詢語言）語句來進行查詢，并通過 Option 按鈕組判斷用戶選擇的查詢方式。然后通過 = strQuery 來進行數(shù)據(jù)源更新。如果找不到要找學(xué)生，則提示退出。 的代碼如下： Private Sub Command4_Click() c = For n = 1 To c If Len((收入項目 )) Then a = a + (金額 ) Else b = b + (金額 ) End If Next 44 MsgBox 收入為： amp。 a amp。 支出為： amp。 b amp。 Chr(13) + 現(xiàn)金余額為： amp。 Str(a b), , 系統(tǒng)統(tǒng)計 End Sub 統(tǒng)計結(jié)果如下圖： 實現(xiàn)卡上的收入、支出及余額的統(tǒng)計。 5． 8密碼管理模塊的設(shè)計與實現(xiàn) 界面如下圖： 數(shù)據(jù)庫的連接方法同上。 主要代碼如下： 45 46 第六章 系統(tǒng)使用說明 6． 1使用說明 運行于 Windows 98 以上操作系統(tǒng)。 數(shù)據(jù)庫的默認路徑： D:\05上設(shè)計 \家庭理財 \家庭理財 .mdb 系統(tǒng)默認密碼： admin 6． 2運行環(huán)境 運行環(huán)境： Windows 98 以上操作系統(tǒng)。 JET 數(shù)據(jù)引擎 6． 3運行結(jié)果 圖 登錄界面 47 圖 系統(tǒng)主界面 圖 現(xiàn)金收支管理界面 48 圖 現(xiàn)金收支查詢界面 圖 信用卡收支管理界面 49 圖 信用卡收支查詢界面 圖 收入 /支出項目維護界面 圖 密碼修改界面 50 第七章 設(shè)計心得 經(jīng)過三個多月的設(shè)計和開發(fā)，家庭理財管理系統(tǒng)基本開發(fā)完畢。 ?? 但是由于畢業(yè)設(shè)計時間較短，所以該系統(tǒng)還有許多不盡如人意的地方，比如聯(lián)機文檔比較少，用戶界面不夠美觀，出錯處理不完善等多方面問題。這些都有待進一步改善。 51 參考文獻 1.《數(shù)據(jù)庫系統(tǒng)原理 與應(yīng)用》 閃四清 清華大學(xué)出版社 1999 年 2.《 Visual Basic 程序設(shè)計》 劉世峰 中央廣播電大出版社 2021 年 3.《 Visual Basic 程序設(shè)計》 陳 明 中央廣播電大出版社 2021 年 4.《軟件工程》 楊文龍 電子工業(yè)出版社 2021 年 5.《管理信息系統(tǒng)》 薛華成 清華大學(xué)出版社 1996 年
研究報告相關(guān)推薦
鄂ICP備17016276號-1