vb60家庭財務(wù)管理系統(tǒng)-wenkub
2022-12-17 01:37:00 本頁面
【正文】 結(jié)果 2． 統(tǒng)計相關(guān)信息 I O P 輸入收入與支出的項目 提供相應(yīng)的界 面供操作人員操作 保存到收入 /支出項目表 10 信用卡的收入 /支出模塊 IPO 圖： 信用卡余額的查詢模塊 IPO 圖： 密碼修改模塊 IPO 圖： I O P 收入 /支出信息 提供相應(yīng)的界面供操作人員錄入 保存到表 I O P 查詢內(nèi)容的設(shè)定 提供相應(yīng)的界面供操作人員操作 3． 顯示查詢的結(jié)果 4． 統(tǒng)計相關(guān)信息 I O P 原密碼 新密碼 確認(rèn)密碼 提供相應(yīng)的界面供操作人員操作 保存到用戶管理表 11 第四章 數(shù)據(jù)庫設(shè)計 此階段由我與同 學(xué)劉云菲共同完成。關(guān)系數(shù)據(jù)庫中包含了多個數(shù)據(jù)表的信息，數(shù)據(jù)庫含有各個不同部分的術(shù)語，象記錄、域等。 修改已建的數(shù)據(jù)庫 數(shù)據(jù)庫的修改分為：添加、編輯和刪除記錄。一個更高級的連接形式稱為自連接。 12 4． 2數(shù)據(jù)庫需求分析 根據(jù)本人家庭財務(wù)管理的實際情況，分析得到如下的數(shù)據(jù)庫結(jié)構(gòu)。 Unload me 語句的作用是下載窗體。 （ 2） Text3 控件的屬性設(shè)置如下： 數(shù) 據(jù) 庫的名稱 數(shù)據(jù)庫中的表名 運行時是否隱藏 22 Visible 屬性的設(shè)置同 Data1 控件。如下圖： N Y 開始 增加刪除等操作 是否繼續(xù) 退出 25 第二步，選擇窗體或控件進(jìn)行屬性設(shè)置，如圖為日期文本框控件的屬性設(shè)置界面 : 其它屬性和控件的設(shè)置方法類似。 5． 4現(xiàn)金收支查詢模塊 的設(shè)計與實現(xiàn) 1．流程圖： 連接數(shù)據(jù)庫 數(shù)據(jù)庫中的何表 數(shù)據(jù)來源 對應(yīng)表中的字段 30 2．運行界面： 3．實現(xiàn)過程： 界面的設(shè)計過程與學(xué)生檔案管理模塊類似，這邊不再重復(fù)。 39。 39。 39。 39。 39。 39。 表格用來存放查詢的結(jié)果。 b amp。 5． 6信用卡收支與維護(hù)管理模塊的設(shè)計與實現(xiàn) 1．流程圖： 2．運行界面： N Y 開始 增加刪除等操作 是否繼續(xù) 退出 35 3．實現(xiàn)過程： 第一步將所需的控件放到窗體的相應(yīng)位置；方法：首先在“工具箱”中選中所需的控件圖標(biāo)，然后在表單的恰當(dāng)位置上單擊鼠標(biāo)并拖動鼠標(biāo)，即可把由所選取的控件生成的對象添加到窗體上。使用 Adodc 控件來實現(xiàn)與數(shù)據(jù)庫的連接的。 39。 39。 39。 39。 39。 39。 的代碼如下： Private Sub Command4_Click() c = For n = 1 To c If Len((收入項目 )) Then a = a + (金額 ) Else b = b + (金額 ) End If Next 44 MsgBox 收入為： amp。 Chr(13) + 現(xiàn)金余額為： amp。 數(shù)據(jù)庫的默認(rèn)路徑： D:\05上設(shè)計 \家庭理財 \家庭理財 .mdb 系統(tǒng)默認(rèn)密碼： admin 6． 2運行環(huán)境 運行環(huán)境： Windows 98 以上操作系統(tǒng)。 51 參考文獻(xiàn) 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)機(jī)文檔比較少，用戶界面不夠美觀，出錯處理不完善等多方面問題。 5． 8密碼管理模塊的設(shè)計與實現(xiàn) 界面如下圖： 數(shù)據(jù)庫的連接方法同上。 支出為： amp。然后通過 = strQuery 來進(jìn)行數(shù)據(jù)源更新。 amp。 amp。 amp。 amp。 amp。 amp。 第三步雙擊相應(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 已到庫尾！ 窗體的標(biāo)題 窗體顯示的位置 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(確認(rèn)刪除當(dāng)前記錄嗎？ , vbYesNo, 確認(rèn)窗口 ) = 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ù)庫中獲取，方法是首先通過
研究報告相關(guān)推薦
鄂ICP備17016276號-1