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