【文章內(nèi)容簡(jiǎn)介】 sers 用來(lái)保存系統(tǒng)用戶(hù)信息，結(jié)構(gòu)如表 7 所示。 表 7 表 Users 的結(jié)構(gòu) 編號(hào) 字段名稱(chēng) 數(shù)據(jù)結(jié)構(gòu) `說(shuō)明 1 UserName 文本，長(zhǎng)度 50 用戶(hù)名，主鍵 2 UserPwd 文本，長(zhǎng)度 50 密碼 在表的結(jié)構(gòu)表 中定義每個(gè)表的主鍵，為了規(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)系”，打開(kāi)關(guān)系窗口，將數(shù)據(jù)庫(kù)中所有表都添加到關(guān)系窗口中。 第六章 系統(tǒng)詳細(xì)設(shè)計(jì) 登錄窗體和系統(tǒng)主界面設(shè)計(jì) 當(dāng)系統(tǒng)運(yùn)行時(shí)，首先打開(kāi)登錄窗體，只有有權(quán)限的用戶(hù)才能進(jìn)行系統(tǒng)。登錄成功后，將顯示系統(tǒng)主界面。 設(shè)計(jì)登錄窗體 登錄窗體的名稱(chēng)為 FrmLogin，它的界面布局如圖 4 所示。 圖 4 登錄窗體的界面布局 登錄窗體的屬 性表如表 9 所示。 表 9 設(shè)計(jì)登錄窗體的屬性 窗體屬性 設(shè)置值 具體說(shuō)明 名稱(chēng) Ｆ rmLogin 設(shè)置窗體名稱(chēng) BorderStyle 1Fixed Single 設(shè)置窗體的邊框?qū)傩? Caption 身份驗(yàn)證 窗體的標(biāo)題條文本 15 ControlBox False 取消控制按鈕，防止用戶(hù)通過(guò)控制按鈕關(guān)閉對(duì)話框 StartUpPosition 2屏幕中心 設(shè)置窗體彈出時(shí)，位置在屏幕中心 登錄窗體中控件的屬性如表 10 所示。 表 10 登錄窗體包含的控件及其屬性 對(duì)象名 屬性 屬 性值 Label1 Caption 用戶(hù)名 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 過(guò)程 當(dāng)用戶(hù)單擊“確定”按鈕時(shí)觸發(fā) Cmd_Click 事件，進(jìn)行身份驗(yàn)證，代碼如下： Private Sub Cmd_OK_Click() Dim j As Single 39。數(shù)據(jù)有效性檢查 If txtUser = Then MsgBox 請(qǐng)輸入用戶(hù)名 Exit Sub End If If txtPwd = Then MsgBox 請(qǐng)輸入密碼 Exit Sub End If 16 NameKey = MakeStr(txtUser) PasswordKey = MakeStr(txtPwd) 39。判斷用戶(hù)是否存在 If (NameKey) = False Then MsgBox 用戶(hù)名不存在 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 密碼錯(cuò)誤 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)前用戶(hù)的信息保存在 CurUser 中 () 39。關(guān)閉自己 Unload Me End Sub 程序的運(yùn)行過(guò)程如下： ? 判斷是否輸入了用戶(hù)名和密碼，如果沒(méi)有輸入，則返回，要求用戶(hù)輸入。 ? 將輸入的用戶(hù)名和密碼賦值到變量 NameKey 和 Passwordkey 中，便于處 17 理。 ? 調(diào)用 ()函數(shù)，判斷當(dāng)臆用戶(hù)名是否存在。如果不存在，則返回，要求用戶(hù)重新輸入，同時(shí)將計(jì)數(shù)變量 Try_times 加 1。 ? 如果用戶(hù)名存在，則調(diào)用 ()函數(shù)，讀取此用戶(hù)的數(shù)據(jù)，并將用戶(hù)密碼與輸入的密碼進(jìn)行比較。如果密碼不同，要求用戶(hù)重新輸入，同時(shí)將計(jì)數(shù)變量 Try_times 加 1。 ? 如果 Try_times 大于或等于 3，則退出系統(tǒng)。 ? 如果通過(guò)密碼驗(yàn)證，則將當(dāng)前用戶(hù)的信息保存到 curUser 對(duì)象中，以便以后使用。 ? 關(guān)閉登錄窗體。 設(shè)計(jì)主界面 主窗體是工程的啟動(dòng)對(duì)象，可以在 系統(tǒng)菜單中選擇“工程” /“屬性”，打開(kāi)屬性窗口設(shè)置啟動(dòng)對(duì)象。本系統(tǒng)中主窗體名為 FrmMain。 打開(kāi)窗體的設(shè)計(jì)窗口，選擇“工具”菜單項(xiàng)中的“菜單編輯器”，對(duì)菜單內(nèi)容進(jìn)行編輯，本系統(tǒng)的主界面如圖 5 所示。 圖 5 系統(tǒng)主界面 在主窗體 FrmMain 中添加如下代碼： Private Sub Form_Load() 18 1 End Sub 當(dāng)主窗體啟動(dòng)時(shí)，將打開(kāi)“登錄”對(duì)話框。如果不能通過(guò)身份驗(yàn)證，則不能進(jìn)行系統(tǒng)。 當(dāng)選擇“退出系統(tǒng)”菜單項(xiàng)時(shí)觸發(fā) mn_Click 事件，代碼如下： Private Sub mn_Exit_Click() DBapi_Disconnect End End Sub 基本信息管理模塊設(shè)計(jì) 基本信息管理模塊包括 銀行信息 管理、 收入類(lèi)型 管理 和支出類(lèi)型 管理。 設(shè)計(jì) 銀行信息 編輯窗體 銀行信息 編輯窗體 的名稱(chēng)為 FrmBankEdit，其布局如圖 6所示。窗體屬性與登錄窗體相似，下面介紹窗體中的主要代碼。 Cmd_OK_Click 過(guò)程 當(dāng)單擊“確定”按鈕時(shí)觸發(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 請(qǐng)輸入銀行全稱(chēng) 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 銀行信息管理 窗體 銀行信息管理 窗體的名稱(chēng)為 FrmaBankMan。在 窗體 FrmBankMan 中，使用DataGrid 和 Adodc 控件來(lái)顯示銀行信息數(shù)據(jù)。 窗體布局如圖 7所示。窗體屬性與登錄窗體相似。 窗體中主要控件的屬性如表 11所示。 表 11 設(shè)置窗體中主要控件的屬性 對(duì)象名 屬性 屬性值 /說(shuō)明 txtName 用于輸入查詢(xún)條件 CmdSearch Caption 查詢(xún) DataGrid1 用于顯示銀行信息 20 Adodc 為 DataGrid1控件提供數(shù)據(jù)源 Cmd_Add Caption 添加 Cmd_Modi Caption 修改 Cmd_Del Caption 刪除 Cmd_Back Caption 返回 下面介紹窗體中的主要代碼 DataRefresh 過(guò)程 DataRefresh 過(guò)程是在 Adodc 控件的結(jié)果集發(fā)生改變時(shí)，刷新 DataGrid 控件中的數(shù)據(jù)，對(duì)應(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 銀行編號(hào) ,BankName AS 銀行全稱(chēng) ,BShort AS 簡(jiǎn)稱(chēng) ,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 過(guò)程 當(dāng)用戶(hù)單 擊“ 添加 ”按鈕時(shí)觸發(fā) Cmd_Add_Click 事件，代碼如下： Private Sub Cmd_Add_Click() = False 21 1 39。刷新數(shù)據(jù) DataRefresh End Sub Cmd_Modi_Click 過(guò)程 當(dāng)用戶(hù)單 擊“ 修改 ”按鈕時(shí)觸發(fā) Cmd_Modi_Click 事件，代碼如下： Private Sub Cmd_Modi_Click() If = True Then MsgBox 請(qǐng)選擇記錄 Exit Sub End If = True = (0) = Trim((1)) = Trim((2)) = Trim((3)) 1 39。刷新數(shù)據(jù) DataRefresh End Sub Cmd_Del_Click 過(guò)程 當(dāng)用戶(hù)單 擊“ 刪除 ”按鈕時(shí)觸發(fā) Cmd_Del_Click 事件，代碼如下： Private Sub Cmd_Del_Click() If = True Then MsgBox 請(qǐng)選擇記錄 Exit Sub End If 39。查找?guī)?hù)信息 Account 表是否存在此銀行編號(hào)，如果存在則不允許刪除 If ((0)) Then MsgBox 帳戶(hù)信息中包含此銀行信息，不能刪除記錄 Exit Sub End If 39。確認(rèn)刪除 If MsgBox(是否確定要?jiǎng)h除銀行信息？ , vbYesNo, 請(qǐng)確認(rèn) ) = vbNo Then Exit Sub 22 End If 39。刪除銀行信 息 ((0)) MsgBox 成功刪除 39。刷新數(shù)據(jù) DataRefresh End Sub 收入類(lèi)型設(shè)置窗體 收入類(lèi)型設(shè)置窗體的名稱(chēng)為 FrmTypes，窗體中包含的控件及其屬性如表 12所示。 表 12 窗體 FrmType 中包含的控件及其屬性 對(duì)象名 屬性 屬性值 /說(shuō)明 DataList1 Name DataList1(用來(lái)顯示收入類(lèi)型名稱(chēng) ) AdoType Visible False(用于提供數(shù)據(jù)源 ) txtName Name txtName（用來(lái)編輯分類(lèi)名稱(chēng)） Cmd_Add Caption 添加 Cmd_Modi Ca