【正文】 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 年 。 ?? 但是由于畢業(yè)設(shè)計時間較短，所以該系統(tǒng)還有許多不盡如人意的地方，比如聯(lián)機文檔比較少，用戶界面不夠美觀，出錯處理不完善等多方面問題。 數(shù)據(jù)庫的默認路徑： D:\05上設(shè)計 \家庭理財 \家庭理財 .mdb 系統(tǒng)默認密碼： admin 6． 2運行環(huán)境 運行環(huán)境： Windows 98 以上操作系統(tǒng)。 5． 8密碼管理模塊的設(shè)計與實現(xiàn) 界面如下圖： 數(shù)據(jù)庫的連接方法同上。 Chr(13) + 現(xiàn)金余額為： amp。 支出為： amp。 的代碼如下： Private Sub Command4_Click() c = For n = 1 To c If Len((收入項目 )) Then a = a + (金額 ) Else b = b + (金額 ) End If Next 44 MsgBox 收入為： amp。然后通過 = strQuery 來進行數(shù)據(jù)源更新。 39。 amp。 39。 amp。 39。 amp。 39。 amp。 39。 amp。 39。 amp。使用 Adodc 控件來實現(xiàn)與數(shù)據(jù)庫的連接的。 第三步雙擊相應(yīng)的控件，在控件的相應(yīng)過程中編寫代碼： 4 個按鈕的代碼為： Private Sub Command10_Click() End Sub Private Sub Command9_Click() If Then MsgBox 已到庫頭！ 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(確認刪除當(dāng)前記錄嗎？ , 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ù)字段相連。 5． 6信用卡收支與維護管理模塊的設(shè)計與實現(xiàn) 1．流程圖： 2．運行界面： N Y 開始 增加刪除等操作 是否繼續(xù) 退出 35 3．實現(xiàn)過程： 第一步將所需的控件放到窗體的相應(yīng)位置；方法：首先在“工具箱”中選中所需的控件圖標，然后在表單的恰當(dāng)位置上單擊鼠標并拖動鼠標，即可把由所選取的控件生成的對象添加到窗體上。 Str(a b), , 系統(tǒng)統(tǒng)計 End Sub 統(tǒng)計滿足條件的收入數(shù)、支出數(shù)、現(xiàn)金余額數(shù)，結(jié)果界面為： 數(shù)據(jù)源 表格的標題 33 5． 5收入 /支出項目維護模塊的設(shè)計與實現(xiàn) 1．流程圖： 2．運行界面： 3．實現(xiàn)過程： 界面的設(shè)計方法同上，在這不再重復(fù)。 b amp。 a amp。 表格用來存放查詢的結(jié)果。然后通過 = strQuery 來進行數(shù)據(jù)源更新。 39。 amp。 39。 amp。 39。 amp。 39。 amp。 39。 amp。 39。 amp。 5． 4現(xiàn)金收支查詢模塊 的設(shè)計與實現(xiàn) 1．流程圖： 連接數(shù)據(jù)庫 數(shù)據(jù)庫中的何表 數(shù)據(jù)來源 對應(yīng)表中的字段 30 2．運行界面： 3．實現(xiàn)過程： 界面的設(shè)計過程與學(xué)生檔案管理模塊類似，這邊不再重復(fù)。使用方法是首先通過 Adodc 控件與數(shù)據(jù)庫相連，然后將各數(shù)據(jù)項與數(shù)據(jù)字段相連。如下圖： N Y 開始 增加刪除等操作 是否繼續(xù) 退出 25 第二步，選擇窗體或控件進行屬性設(shè)置，如圖為日期文本框控件的屬性設(shè)置界面 : 其它屬性和控件的設(shè)置方法類似。 最后設(shè)置如下的代碼（只要單擊菜單即可設(shè)置各菜單代碼），代碼如下圖： 調(diào)節(jié)菜單的級別 24 自上而下分別為：退出、收入維護、收支查詢、收支維護、信用卡查詢、信用卡收 支維護、用戶管理、支出維護菜單的代碼，主要是通過 Show 方法調(diào)用相應(yīng)的窗體。 （ 2） Text3 控件的屬性設(shè)置如下： 數(shù) 據(jù) 庫的名稱 數(shù)據(jù)庫中的表名 運行時是否隱藏 22 Visible 屬性的設(shè)置同 Data1 控件。此三個控件的創(chuàng)建方法如下： 首先，將 Data、 Text 控件拖放到窗體上，其次，設(shè)置它們的屬性： （ 1） Data1 控件的屬性設(shè)置如下圖： 21 此兩個屬性的作用是保證 Data 控件與數(shù)據(jù)庫相連。 Un