【正文】 If Try_times = 3 Then MsgBox 您已經(jīng)三次嘗試進入本系統(tǒng)，均 不成功，系統(tǒng)將關(guān)閉 DBapi_Disconnect End Else Exit Sub End If End If 39。 ? 如果 Try_times 大于或等于 3，則退出系統(tǒng)。 當(dāng)選擇“退出系統(tǒng)”菜單項時觸發(fā) mn_Click 事 件，代碼如下： Private Sub mn_Exit_Click() DBapi_Disconnect End End Sub 基本信息管理模塊設(shè)計 基本信息管理模塊包括 銀行信息 管理、 收入類型 管理 和支出類型 管理。 表 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。刷新數(shù)據(jù) DataRefresh End Sub 收入類型設(shè)置窗體 收入類型設(shè)置窗體的名稱為 FrmTypes，窗體中包含的控件及其屬性如表 12所示。設(shè)置列表綁定字段 End Sub Cmd_Add_Click 過程 在文本框中輸入新的類型名稱，單 擊“ 添加 ”按鈕時觸發(fā) Cmd_Add_Click 事件，代碼如下： Private Sub Cmd_Add_Click() 39。 購買設(shè)計 ： 382540551 全套包括 :開題報告 ,論文 ,源程序 ,源代碼 ,答辯 PPT,萬余套設(shè)計 ,歡迎咨詢選購 ,價格最低質(zhì)量最好 26 設(shè)計日常收支信息管理窗體 日常收支信息管理窗體的名稱為 FrmListMan，窗體布局如圖 12 所示。 用戶管理模塊設(shè)計 購買設(shè)計 ： 382540551 全套包括 :開題報告 ,論文 ,源程序 ,源代碼 ,答辯 PPT,萬余套設(shè)計 ,歡迎咨詢選購 ,價格最低質(zhì)量最好 31 用戶管理模塊包括用戶管理和修改密碼等功能。相信本 家庭理財 管理系統(tǒng)是一套 家庭 在日常管理中必不可少的管理軟件，通過開發(fā)這個系統(tǒng)，我掌握了的項本過程，了解了的基本知識鞏固了我對 Visual Basic 的學(xué)習(xí)，但在這次畢業(yè)設(shè)計中的最大收獲并不是掌握這幾門開發(fā)工具的應(yīng)用，而是學(xué)會了設(shè)計系統(tǒng)的思維方法，以及與同學(xué)們之間相互幫助的精神。 購買設(shè)計 ： 382540551 全套包括 :開題報告 ,論文 ,源程序 ,源代碼 ,答辯 PPT,萬余套設(shè)計 ,歡迎咨詢選購 ,價格最低質(zhì)量最好 34 參考文獻 [1] Visual Basic 使用指南 ， Bob Reselman , Richard Peasley , Wayne Pruchniak，電子工業(yè)出版社 [2] Visual Basic 中文版控件大全 ， Microsoft， 電子工業(yè)出版社 [3] 中文 Access 2021 24 學(xué)時教程 ， Craig Eddy ， Timothy Buchanan 機械工業(yè)出版社 [4] 肖春蓮 . 合同管理系統(tǒng)設(shè)計 . 有色冶金設(shè)計與研究 .2021,(3),5060,64 [5] 劉祟欣 , 張 建 新 . 合 同 管 理 信 息 系 統(tǒng) . 計算機 .1997,(6),3132,37 [6] 黃華 ,付鋒 ,陳軒 . Visual Basic 在高校教務(wù)管理系統(tǒng)中的應(yīng)用 . 計算機與現(xiàn)代化 .2021,(2),7983 [7] [美 ]Evangelous Petroutsos． Visual Basic 6 從入門到精通[M].北京：電子工業(yè)出版社， 1999． 1． [8] 新思維創(chuàng)作室． Visual Basic 編程 [M].北京，人民郵電出版社． 1998． 12． [9] 何斌，等． Visual Basic 應(yīng)用指南 [M].北京：人民郵電出版社， 1998， 12． [10] 安嘉瑩 ,章韻 . 企業(yè)進口設(shè)備合同管理信息系統(tǒng) . 南京郵電學(xué)院學(xué)報 . 1996,(12),8690 [11] 李微 . 數(shù)據(jù) 庫軟件在我院 技術(shù)合同管理 中的應(yīng)用 . 糧食 和食品工業(yè) . 2021,(3),3740 [12] 朱成彪 ,楊紅杰 . 銷售合同管理系統(tǒng)的設(shè)計與研究 . 嘉 興學(xué)院學(xué)報 . 2021,(5)， 4445， 63 附錄：部分窗體源代碼 用戶管理窗體代碼 Private Sub Cmd_Add_Click() With FrmUserEdit .txtUserName = .txtPass = .txtPass2 = .Show 1 End With 購買設(shè)計 ： 382540551 全套包括 :開題報告 ,論文 ,源程序 ,源代碼 ,答辯 PPT,萬余套設(shè)計 ,歡迎咨詢選購 ,價格最低質(zhì)量最好 35 DataList1_Click End Sub Private Sub Cmd_Back_Click() Unload Me End Sub Private Sub Cmd_Del_Click() 39。如果當(dāng)前用戶為 Admin，則不能修改用戶名 If Format(, ) = admin Then . = False End If 39。判斷輸入的用戶名和密碼是否符合標(biāo)準(zhǔn) If Trim(txtUserName) = Then MsgBox 請輸入用戶名 Exit Sub End If If Len(txtPass) 6 Then MsgBox 密碼長度不能小于 6 = 0 = Len(txtPass2) Exit Sub End If If txtPass txtPass2 Then MsgBox 密碼和確認密碼不相同，請重新確認 = 0 = Len(txtPass2) Exit Sub End If 39。如果月份為 12，則結(jié)束日期為下一年度1 月 1 日 StrDate2 = Trim(Val() + 1) + 0101 Else StrDate2 = Trim() + + Trim( + 1) + 01 End If StrSch = And = + StrDate1 + And + StrDate2 + Else StrDate1 = Trim() + 0101 StrDate2 = Trim() + 1231 StrSch = And = + StrDate1 + And = + StrDate2 + End If TmpSource = Select AS 收支分類 ,SUM() AS 收支金額 _ + From InOutList l,Types t Where = + StrSch _ + Group By , Order By 39。設(shè)置用戶名 lblUserName = 39。如果沒有選擇用戶名，則返回 If = Then MsgBox 請選擇要修改的用戶 Exit Sub End If 39。 另外， 我還要感謝在這幾年來對我教導(dǎo)所有的老師，他們孜孜不倦的教誨不但讓我學(xué)到了很多知識，而且讓我掌握了學(xué)習(xí)的方法，更教會了我做人處事的道理，在此表示感謝。在本次開發(fā)過程由于硬件的限制，未能實現(xiàn)網(wǎng)絡(luò)功能，因此在以后的系統(tǒng)更新過程中可能會造成一些不必要的數(shù)據(jù)損失。 購買設(shè)計 ： 382540551 全套包括 :開題報告 ,論文 ,源程序 ,源代碼 ,答辯 PPT,萬余套設(shè)計 ,歡迎咨詢選購 ,價格最低質(zhì)量最好 29 設(shè)計銀行交易統(tǒng)計窗體 銀行交易統(tǒng)計窗體的名稱為 FrmSBank，窗體布局如圖 18 所示。 理財信息管理模塊設(shè)計 理財信息管理模塊包括日常收支管理、銀行交易管理和銀行帳戶管理等功能。設(shè)置數(shù)據(jù)源 Set = AdoType 購買設(shè)計 ： 382540551 全套包括 :開題報告 ,論文 ,源程序 ,源代碼 ,答辯 PPT,萬余套設(shè)計 ,歡迎咨詢選購 ,價格最低質(zhì)量最好 24 = TypeName 39。確認刪除 If MsgBox(是否確定要刪除銀行信息？ , vbYesNo, 請確認 ) = vbNo Then Exit Sub End If 39。窗體屬性與登錄窗體相似。 購買設(shè)計 ： 382540551 全套包括 :開題報告 ,論文 ,源程序 ,源代碼 ,答辯 PPT,萬余套設(shè)計 ,歡迎咨詢選購 ,價格最低質(zhì)量最好 18 圖 5 系統(tǒng)主界面 在主窗體 FrmMain 中添加如下代碼： Private Sub Form_Load() 1 End Sub 當(dāng)主窗體啟動時，將打開“登錄”對話框。 ? 如果用戶名存在，則調(diào)用 ()函數(shù)，讀取此用戶的數(shù)據(jù)，并將用戶密碼與輸入的密碼進行比較。數(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。 表 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 所示。 表 1 表 Types 的結(jié)構(gòu) 編號 字段名稱 數(shù)據(jù)結(jié)構(gòu) `說明 1 Typeld 自動編號 記錄編號，主鍵 2 TypeName 文本，長度 50 信息名稱 3 Flag 數(shù)字 /字節(jié) 類型標(biāo)記。選擇開發(fā)工具時應(yīng)該考慮客戶需求、系統(tǒng)功能和性能需求以及開發(fā)人員的習(xí)慣等因素。銀行帳戶信息包括帳號名稱、帳戶類型、存款類型、開戶銀 系統(tǒng)用戶信息管理 A dm i n 用戶 普通用戶 修改 A dm i n 用戶的密碼 創(chuàng)建、修改和刪除普通用戶信息 修改自身的用戶名和密碼 購買設(shè)計 ： 382540551 全套包括 :開題報告 ,論文 ,源程序 ,源代碼 ,答辯 PPT,萬余套設(shè)計 ,歡迎咨詢選購 ,價格最低質(zhì)量最好 10 行、開戶日期、開戶金額、開戶人等信息。 銀行信息 包括 銀行名稱、簡稱和所在地點等信息；收入類型信息和支出類型信息則只包含名稱信息。 ? 確認用戶的類型。 在本系統(tǒng)