【正文】 Cmd_Add_Click() 39。設(shè)置數(shù)據(jù)源 Set = AdoType 購買設(shè)計 ： 382540551 全套包括 :開題報告 ,論文 ,源程序 ,源代碼 ,答辯 PPT,萬余套設(shè)計 ,歡迎咨詢選購 ,價格最低質(zhì)量最好 24 = TypeName 39。設(shè)置連接字符串 = Conn 39。 下面分別介紹窗體中的部分代碼 Form_Load 過程 當(dāng)裝入窗體 FrmType 時觸發(fā) Form_Load 事件，對應(yīng)的代碼如下： Private Sub Form_Load() 39。刷新數(shù)據(jù) DataRefresh End Sub 收入類型設(shè)置窗體 收入類型設(shè)置窗體的名稱為 FrmTypes，窗體中包含的控件及其屬性如表 12所示。確認(rèn)刪除 If MsgBox(是否確定要刪除銀行信息？ , vbYesNo, 請確認(rèn) ) = vbNo Then Exit Sub End If 39。刷新數(shù)據(jù) DataRefresh End Sub Cmd_Del_Click 過程 當(dāng)用戶單 擊“ 刪除 ”按鈕時觸發(fā) Cmd_Del_Click 事件，代碼如下： Private Sub Cmd_Del_Click() If = True Then MsgBox 請選擇記錄 Exit Sub End If 39。 End If TmpSource = Select BankId AS 銀行編號 ,BankName AS 銀行全稱 ,BShort AS 簡稱 ,Place AS 所在地址 _ + From Banks + strSearch + Order By BankId = Conn = TmpSource Set = Adodc1 (0).Width = 1000 (1).Width = 2400 (2).Width = 1200 (3).Width = 2400 End Sub Cmd_Add_Click 過程 當(dāng)用戶單 擊“ 添加 ”按鈕時觸發(fā) Cmd_Add_Click 事件，代碼如下： Private Sub Cmd_Add_Click() = False 1 39。 表 11 設(shè)置窗體中主要控件的屬性 對象名 屬性 屬性值 /說明 txtName 用于輸入查詢條件 CmdSearch Caption 查詢 DataGrid1 用于顯示銀行信息 Adodc 為 DataGrid1控件提供數(shù)據(jù)源 Cmd_Add Caption 添加 Cmd_Modi Caption 修改 Cmd_Del Caption 刪除 Cmd_Back Caption 返回 下面介紹窗體中的主要代碼 DataRefresh 過程 DataRefresh 過程是在 Adodc 控件的結(jié)果集發(fā)生改變時，刷新 DataGrid 控件中的數(shù)據(jù)，對應(yīng)的代碼如下： Private Sub DataRefresh() 購買設(shè)計 ： 382540551 全套包括 :開題報告 ,論文 ,源程序 ,源代碼 ,答辯 PPT,萬余套設(shè)計 ,歡迎咨詢選購 ,價格最低質(zhì)量最好 21 Dim strSearch As String Dim TmpSource As String strSearch = If Len(Trim(txtBName)) 0 Then strSearch = Where BankName Like 39。窗體屬性與登錄窗體相似。在窗體 FrmBankMan 中，使用DataGrid 和 Adodc 控件來顯示銀行信息數(shù)據(jù)。窗體屬性與登錄窗體相似，下面介紹窗體中的主要代碼。 當(dāng)選擇“退出系統(tǒng)”菜單項時觸發(fā) mn_Click 事 件，代碼如下： Private Sub mn_Exit_Click() DBapi_Disconnect End End Sub 基本信息管理模塊設(shè)計 基本信息管理模塊包括 銀行信息 管理、 收入類型 管理 和支出類型 管理。 購買設(shè)計 ： 382540551 全套包括 :開題報告 ,論文 ,源程序 ,源代碼 ,答辯 PPT,萬余套設(shè)計 ,歡迎咨詢選購 ,價格最低質(zhì)量最好 18 圖 5 系統(tǒng)主界面 在主窗體 FrmMain 中添加如下代碼： Private Sub Form_Load() 1 End Sub 當(dāng)主窗體啟動時，將打開“登錄”對話框。本系統(tǒng)中主窗體名為 FrmMain。 ? 關(guān)閉登錄窗體。 ? 如果 Try_times 大于或等于 3，則退出系統(tǒng)。 ? 如果用戶名存在，則調(diào)用 ()函數(shù)，讀取此用戶的數(shù)據(jù)，并將用戶密碼與輸入的密碼進(jìn)行比較。 ? 調(diào)用 ()函數(shù)，判斷當(dāng)臆用戶名是否存在。關(guān)閉自己 Unload Me End Sub 程序的運(yùn)行過程如下： ? 判斷是否輸入了用戶名和密碼，如果沒有輸入，則返回，要求用戶輸入。判斷密碼是否正確 (NameKey) If PasswordKey Then MsgBox 密碼錯誤 Try_times = Try_times + 1 If Try_times = 3 Then MsgBox 您已經(jīng)三次嘗試進(jìn)入本系統(tǒng)，均 不成功，系統(tǒng)將關(guān)閉 DBapi_Disconnect End Else Exit Sub End If End If 39。數(shù)據(jù)有效性檢查 If txtUser = Then MsgBox 請輸入用戶名 購買設(shè)計 ： 382540551 全套包括 :開題報告 ,論文 ,源程序 ,源代碼 ,答辯 PPT,萬余套設(shè)計 ,歡迎咨詢選購 ,價格最低質(zhì)量最好 16 Exit Sub End If If txtPwd = Then MsgBox 請輸入密碼 Exit Sub End If NameKey = MakeStr(txtUser) PasswordKey = MakeStr(txtPwd) 39。 表 9 設(shè)計登錄窗體的屬性 窗體屬性 設(shè)置值 具體說明 名稱 Ｆ rmLogin 設(shè)置窗體名稱 BorderStyle 1Fixed Single 設(shè)置窗體的邊框?qū)傩? Caption 身份驗證 窗體的標(biāo)題條文本 ControlBox False 取消控制按鈕，防止用戶通過控制按鈕關(guān)閉對話框 StartUpPosition 2屏幕中心 設(shè)置窗體彈出時，位置在屏幕中心 登錄窗體中控件的屬性如表 10 所示。 設(shè)計登錄窗體 登錄窗體的名稱為 FrmLogin，它的界面布局如圖 4 所示。 第六章 系統(tǒng)詳細(xì)設(shè)計 登錄窗體和系統(tǒng)主界面設(shè)計 當(dāng)系統(tǒng)運(yùn)行時，首先打開登錄窗體，只有有權(quán)限的用戶才能進(jìn)行系統(tǒng)。 表 7 表 Users 的結(jié)構(gòu) 編號 字段名稱 數(shù)據(jù)結(jié)構(gòu) `說明 1 UserName 文本，長度 50 用戶名，主鍵 2 UserPwd 文本，長度 50 密 碼 在表的結(jié)構(gòu)表中定義每個表的主鍵，為了規(guī)定各表之間的關(guān)系，還需要定義購買設(shè)計 ： 382540551 全套包括 :開題報告 ,論文 ,源程序 ,源代碼 ,答辯 PPT,萬余套設(shè)計 ,歡迎咨詢選購 ,價格最低質(zhì)量最好 14 一組關(guān)系，如表 8 所示。 表 6 表 Amount 的結(jié)構(gòu) 編號 字段名稱 數(shù)據(jù)結(jié)構(gòu) `說明 1 AccountNo 文本，長度 50 記錄編號，主鍵 2 Atype 文本，長度 50 帳戶類型。 表 4 表 InOutList 的結(jié)構(gòu) 編號 字段名稱 數(shù)據(jù)結(jié)構(gòu) `說明 1 Id 自動編號 記錄編號，主鍵 2 Typeld 數(shù)字 /長整型 收支類型編號 3 UseDate 日期 /時間 收支日期 4 Ano 文本，長度 50 帳號 5 UseSum 單精度型 收支金額 6 Memld 數(shù)字 /長整型 家庭成員編號 7 Memos 文本，長度 200 備注信息 8 Flag 數(shù)字 /字節(jié) 類型， 0 表示收入， 1 表示支出 銀行交易信息表 BankOper 表 BankOper 用來保存銀行交易信息，結(jié)構(gòu)如表 5 所示。 表 2 表 Banks 的結(jié)構(gòu) 編號 字段名稱 數(shù)據(jù)結(jié)構(gòu) `說明 1 Bankld 自動編號 銀行編 號，主鍵 2 BankName 文本，長度100 銀行名稱 3 Bshort 文本，長度 50 簡稱 4 Place 文本，長度200 地點 家庭成員信息表 Members 表 Members 用來保存家庭成員信息，結(jié)構(gòu)如表 3 所示。 表 1 表 Types 的結(jié)構(gòu) 編號 字段名稱 數(shù)據(jù)結(jié)構(gòu) `說明 1 Typeld 自動編號 記錄編號，主鍵 2 TypeName 文本，長度 50 信息名稱 3 Flag 數(shù)字 /字節(jié) 類型標(biāo)記。下面分別介紹這些表的結(jié) 構(gòu)。因為數(shù)據(jù)庫結(jié)構(gòu)的變化會造成編碼的改動，所以必須認(rèn)真設(shè)計數(shù)據(jù)庫結(jié)構(gòu)后再進(jìn)行編碼，從而避免無所謂的重復(fù)工作。 與其他開發(fā)工具相比， Visual Basic 具有簡單易學(xué)、靈活方便和易于擴(kuò)充等特點，越來越多地被用作客戶 /服務(wù)器（ Client/Server，簡稱為 C/S）應(yīng)用程序的 普通用戶 A d m i n 用戶 管理自己的用戶信息 基本 信息管理 用戶登錄 開 始 讀取用戶類型 成功 失敗 失敗超過 3 次 是 退出程序 否 重試 ① 管理自己的用戶信息 ② 管理普通用戶的用戶信息 用戶管理模塊 家庭理財 管理模塊 理財 信 息 管理 數(shù)據(jù)統(tǒng)計 管理 購買設(shè)計 ： 382540551 全套包括 :開題報告 ,論文 ,源程序 ,源代碼 ,答辯 PPT,萬余套設(shè)計 ,歡迎咨詢選購 ,價格最低質(zhì)量最好 11 前端開發(fā)工具，與后端的開發(fā)工具 Access 數(shù)據(jù)庫結(jié)合，能夠提供一個高性能的管理信息系統(tǒng)解決方案因為本系統(tǒng)是單機(jī)版的數(shù)據(jù)庫應(yīng)用系統(tǒng)，所以采用 Visual Basic 作為 開發(fā)工具， Access 作為后臺數(shù)據(jù)庫。選擇開發(fā)工具時應(yīng)該考慮客戶需求、系統(tǒng)功能和性能需求以及開發(fā)人員的習(xí)慣等因素。如果 3次輸入的用戶名和密碼都無法與數(shù)據(jù)庫中的數(shù)據(jù)匹配，則強(qiáng)制退出系統(tǒng)。 本系統(tǒng)的流程分析如圖 3 所示。 在 數(shù)據(jù)統(tǒng)計管理模塊中，可以對日常收支、銀行交易和家庭資產(chǎn)等信息進(jìn)行統(tǒng)計。銀行帳戶信息包括帳號名稱、帳戶類型、存款類型、開戶銀 系統(tǒng)用戶信息管理 A dm i n 用戶 普通用戶 修改 A dm i n 用戶的密碼 創(chuàng)建、修改和刪除普通用戶信息 修改自身的用戶名和密碼 購買設(shè)計 ： 382540551 全套包括 :開題報告 ,論文 ,源程序 ,源代碼 ,答辯 PPT,萬余套設(shè)計 ,歡迎咨詢選購 ,價格最低質(zhì)量最好 10 行、開戶日期、開戶金額、開戶人等信息。銀行交易信息包括銀行名稱、交易類型、交易日期、銀行帳號、交易金額等內(nèi)容。在添加日常收支信息時，需要選擇收支類型、家庭成員和帳號信息。在 理財 信息管理模塊中可以對日常收入信息、銀行交易信息和銀行帳戶信息進(jìn)行添加、修改、刪除和查看等操作。 銀行信息 包括 銀行名稱、簡稱和所在地點等信息；收入類型信息和支出類型信息則只包含名稱信息。 在本系統(tǒng)中，應(yīng)該首先增加基本信息，之后才能增加 理財 信息。在創(chuàng)建用戶時，需要輸入要創(chuàng)建的用戶名和密碼。如果需要對普通用戶進(jìn)行管理，則使用 Admin 用戶登錄；否則建議使用 Users 用戶登錄。 ? 確認(rèn)用戶的類型。 運(yùn)行 系統(tǒng)后，首先會看到登錄窗體，對用戶的身份進(jìn)行認(rèn)證。用戶管理功能模塊的關(guān)系如圖 2 所示。系統(tǒng)管理員用戶為 Admin，普通用戶為 Users，由程序設(shè)計人員手動地添加到數(shù)據(jù)庫中，它們的默認(rèn)密碼均為 111111。 在本系統(tǒng)中，用戶管理模塊的功能比較簡單。 圖 1 家庭理財 管理系統(tǒng)功能模塊圖 在功能模塊示意圖的樹狀結(jié)構(gòu)中，每一個葉結(jié)點都是一個最小的功能模塊。 系統(tǒng)體系結(jié)構(gòu)設(shè)計 本節(jié)根據(jù)需求分析中總結(jié)的用戶需求設(shè)計系統(tǒng)的體系結(jié)構(gòu)。理財信息包括日常收支信息、銀行往來信息和銀行賬戶信息