【文章內(nèi)容簡介】 長度200 備注信息 用戶信息表 Users 表 Users 用來保存系統(tǒng)用戶信息，結(jié)構(gòu)如表 7 所示。 表 7 表 Users 的結(jié)構(gòu) 編號 字段名稱 數(shù)據(jù)結(jié)構(gòu) `說明 1 UserName 文本，長度 50 用戶名，主鍵 2 UserPwd 文本，長度 50 密碼 在表的結(jié)構(gòu)表 中定義每個表的主鍵，為了規(guī)定各表之間的關(guān)系，還需要定義一組關(guān)系，如表 8 所示。 主鍵表 主鍵字段 相關(guān)表 外鍵字段 Types Typeld InOutList Typeld Members Memld InOutList Memld Account AccountNo InOutList Ano Banks Bankld Account Bid 14 Members Memld Account Memld Banks Bankld BankOper Bid Members Memld BankOper Memld Account AccountNo BankOper Ano 在系統(tǒng)菜單中選擇“工具” /“關(guān)系”，打開關(guān)系窗口，將數(shù)據(jù)庫中所有表都添加到關(guān)系窗口中。 第六章 系統(tǒng)詳細(xì)設(shè)計 登錄窗體和系統(tǒng)主界面設(shè)計 當(dāng)系統(tǒng)運行時，首先打開登錄窗體，只有有權(quán)限的用戶才能進(jìn)行系統(tǒng)。登錄成功后，將顯示系統(tǒng)主界面。 設(shè)計登錄窗體 登錄窗體的名稱為 FrmLogin，它的界面布局如圖 4 所示。 圖 4 登錄窗體的界面布局 登錄窗體的屬 性表如表 9 所示。 表 9 設(shè)計登錄窗體的屬性 窗體屬性 設(shè)置值 具體說明 名稱 Ｆ rmLogin 設(shè)置窗體名稱 BorderStyle 1Fixed Single 設(shè)置窗體的邊框?qū)傩? Caption 身份驗證 窗體的標(biāo)題條文本 15 ControlBox False 取消控制按鈕，防止用戶通過控制按鈕關(guān)閉對話框 StartUpPosition 2屏幕中心 設(shè)置窗體彈出時，位置在屏幕中心 登錄窗體中控件的屬性如表 10 所示。 表 10 登錄窗體包含的控件及其屬性 對象名 屬性 屬 性值 Label1 Caption 用戶名 Label2 Caption 密碼 txtUser Text 空 txtPwd Text 空 PasswordChar ＊ Cmd_Ok Caption 確定 Cmd_Cancel Caption 取消 下面介紹登錄窗體的部分代碼 （ 1） 變量聲明 登錄窗體的變量聲明如下： Public PasswordKey As String Public Try_times As Integer Public NameKey As String （ 2） Cmd_Click 過程 當(dāng)用戶單擊“確定”按鈕時觸發(fā) Cmd_Click 事件，進(jìn)行身份驗證，代碼如下： Private Sub Cmd_OK_Click() Dim j As Single 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。判斷用戶是否存在 If (NameKey) = False 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。判斷密碼是否正確 (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。登錄成功，將當(dāng)前用戶的信息保存在 CurUser 中 () 39。關(guān)閉自己 Unload Me End Sub 程序的運行過程如下： ? 判斷是否輸入了用戶名和密碼，如果沒有輸入，則返回，要求用戶輸入。 ? 將輸入的用戶名和密碼賦值到變量 NameKey 和 Passwordkey 中，便于處 17 理。 ? 調(diào)用 ()函數(shù)，判斷當(dāng)臆用戶名是否存在。如果不存在，則返回，要求用戶重新輸入，同時將計數(shù)變量 Try_times 加 1。 ? 如果用戶名存在，則調(diào)用 ()函數(shù)，讀取此用戶的數(shù)據(jù)，并將用戶密碼與輸入的密碼進(jìn)行比較。如果密碼不同，要求用戶重新輸入，同時將計數(shù)變量 Try_times 加 1。 ? 如果 Try_times 大于或等于 3，則退出系統(tǒng)。 ? 如果通過密碼驗證，則將當(dāng)前用戶的信息保存到 curUser 對象中，以便以后使用。 ? 關(guān)閉登錄窗體。 設(shè)計主界面 主窗體是工程的啟動對象，可以在 系統(tǒng)菜單中選擇“工程” /“屬性”，打開屬性窗口設(shè)置啟動對象。本系統(tǒng)中主窗體名為 FrmMain。 打開窗體的設(shè)計窗口，選擇“工具”菜單項中的“菜單編輯器”，對菜單內(nèi)容進(jìn)行編輯，本系統(tǒng)的主界面如圖 5 所示。 圖 5 系統(tǒng)主界面 在主窗體 FrmMain 中添加如下代碼： Private Sub Form_Load() 18 1 End Sub 當(dāng)主窗體啟動時，將打開“登錄”對話框。如果不能通過身份驗證，則不能進(jìn)行系統(tǒng)。 當(dāng)選擇“退出系統(tǒng)”菜單項時觸發(fā) mn_Click 事件，代碼如下： Private Sub mn_Exit_Click() DBapi_Disconnect End End Sub 基本信息管理模塊設(shè)計 基本信息管理模塊包括 銀行信息 管理、 收入類型 管理 和支出類型 管理。 設(shè)計 銀行信息 編輯窗體 銀行信息 編輯窗體 的名稱為 FrmBankEdit，其布局如圖 6所示。窗體屬性與登錄窗體相似，下面介紹窗體中的主要代碼。 Cmd_OK_Click 過程 當(dāng)單擊“確定”按鈕時觸發(fā) Cmd_Ok_Click 事件，代碼如下： Public OriBId As Long Public Modify As Boolean Private Sub Cmd_Cancel_Click() Unload Me End Sub Private Sub Cmd_OK_Click() If Len(Trim(txtBName)) = 0 Then MsgBox 請輸入銀行全稱 Exit Sub End If With MyBank 19 .BankName = Trim(txtBName) .BShort = Trim(txtShort) .Place = Trim(txtPlace) If Modify = False Then .Insert MsgBox 添加成功 Else .Update (OriBId) MsgBox 修改成功 End If End With Unload Me End Sub 銀行信息管理 窗體 銀行信息管理 窗體的名稱為 FrmaBankMan。在 窗體 FrmBankMan 中，使用DataGrid 和 Adodc 控件來顯示銀行信息數(shù)據(jù)。 窗體布局如圖 7所示。窗體屬性與登錄窗體相似。 窗體中主要控件的屬性如表 11所示。 表 11 設(shè)置窗體中主要控件的屬性 對象名 屬性 屬性值 /說明 txtName 用于輸入查詢條件 CmdSearch Caption 查詢 DataGrid1 用于顯示銀行信息 20 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() Dim strSearch As String Dim TmpSource As String strSearch = If Len(Trim(txtBName)) 0 Then strSearch = Where BankName Like 39。% + Trim(txtBName) + %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 21 1 39。刷新數(shù)據(jù) DataRefresh End Sub Cmd_Modi_Click 過程 當(dāng)用戶單 擊“ 修改 ”按鈕時觸發(fā) Cmd_Modi_Click 事件，代碼如下： Private Sub Cmd_Modi_Click() If = True Then MsgBox 請選擇記錄 Exit Sub End If = True = (0) = Trim((1)) = Trim((2)) = Trim((3)) 1 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。查找?guī)粜畔?Account 表是否存在此銀行編號，如果存在則不允許刪除 If ((0)) Then MsgBox 帳戶信息中包含此銀行信息，不能刪除記錄 Exit Sub End If 39。確認(rèn)刪除 If MsgBox(是否確定要刪除銀行信息？ , vbYesNo, 請確認(rèn) ) = vbNo Then Exit Sub 22 End If 39。刪除銀行信 息 ((0)) MsgBox 成功刪除 39。刷新數(shù)據(jù) DataRefresh End Sub 收入類型設(shè)置窗體 收入類型設(shè)置窗體的名稱為 FrmTypes，窗體中包含的控件及其屬性如表 12所示。 表 12 窗體 FrmType 中包含的控件及其屬性 對象名 屬性 屬性值 /說明 DataList1 Name DataList1(用來顯示收入類型名稱 ) AdoType Visible False(用于提供數(shù)據(jù)源 ) txtN