【正文】 載入銀行信息 = Conn = Select * From Banks Order By BankId Set = Ado_Bank = BankName = BankId 39。刷新記錄 DataRefresh 47 End Sub Private Sub dco_Type_Click(Area As Integer) 39。刷新數(shù)據(jù) DataRefresh End Sub Private Sub dco_Bank_Click(Area As Integer) 39。刷新數(shù)據(jù) DataRefresh End Sub Private Sub Cmd_Modi_Click() If = True Then MsgBox 請選擇記錄 Exit Sub End If = True 46 = Trim((0)) = Trim((1)) = Trim((2)) = Trim((3)) = Trim((4)) = (5) = (5) = (7) = (8) = (10) 39。確認(rèn)刪除 If MsgBox(是否確定要?jiǎng)h除帳戶信息？ , vbYesNo, 請確認(rèn) ) = vbNo Then Exit Sub End If 39。刷新數(shù)據(jù) DataRefresh End Sub Private Sub Cmd_Back_Click() 45 Unload Me End Sub Private Sub Cmd_Del_Click() If = True Then MsgBox 請選擇記錄 Exit Sub End If 39。 If = 0 Then = True = True = True Else = = False = = False = = False End If 39。 MsgBox TmpSource = Conn = TmpSource Set = Adodc1 (0).Width = 1600 (1).Width = 1800 (2).Width = 1600 End Sub 銀行往來 管理 窗體代碼 Private Sub Check1_Click() 44 39。如果月份大于 0，則 開始日期為本月 1 日 StrDate1 = Trim() + + Trim() + 01 43 If = 12 Then 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。如果修改自身用戶名，則更新 CurUser 對象 If OriUser = And Trim(txtUserName) OriUser Then = Trim(txtUserName) () End If MsgBox 修改成功 End If End With Unload Me End Sub 日常收支統(tǒng)計(jì)窗體代碼 Private Sub Cmd_Back_Click() Unload Me End Sub Private Sub cob_Month_Click() DataRefresh End Sub Private Sub cob_Year_Click() DataRefresh End Sub Private Sub Form_Load() 39 Dim StrDate As String StrDate = Str(Year(Date)) Str(Year(Date) 1), 0 Str(Year(Date)), 1 Str(Year(Date) + 1), 2 = 1 , 0 1, 1 2, 2 3, 3 4, 4 5, 5 6, 6 7, 7 8, 8 9, 9 10, 10 11, 11 12, 12 = Month(Date) DataRefresh End Sub Private Sub DataRefresh() Dim StrSch As String Dim TmpSource As String Dim StrDate1 As String Dim StrDate2 As String If 0 Then 39。如果是插入新的用戶，則必須進(jìn)行判斷；如果是修改已有的用戶，則當(dāng)用戶名被修改時(shí)進(jìn)行判斷 With MyUser If Modify = False Or OriUser Trim(txtUserName) Then If .In_DB(txtUserName) = True Then MsgBox 用戶名已經(jīng)存在，請重新輸入 = 0 = Len(txtUserName) Exit Sub End If 38 End If .UserName = Trim(txtUserName) .UserPwd = Trim(txtPass) 39。判斷輸入的用戶名和密碼是否符合標(biāo)準(zhǔn) If Trim(txtUserName) = Then 37 MsgBox 請輸入用戶名 Exit Sub End If If Len(txtPass) 6 Then MsgBox 密碼長度不能小于 6 = 0 = Len(txtPass2) Exit Sub End If If txtPass txtPass2 Then MsgBox 密碼和確認(rèn)密碼不相同，請重新確認(rèn) = 0 = Len(txtPass2) Exit Sub End If 39。設(shè)置用戶名 lblUserName = 39。如果沒有選擇用戶名，則返回 If = Then Exit Sub End If 36 39。啟動(dòng)窗體 FrmUserEdit .Show 1 End With 39。如果當(dāng)前用戶為 Admin，則不能修改用戶名 If Format(, ) = admin Then . = False End If 39。如果沒有選擇用戶名，則返回 If = Then MsgBox 請選擇要修改的用戶 Exit Sub End If 39。刪除當(dāng)前用戶 () MsgBox 刪除成功 39。如果選擇用戶名為 Admin，則提示不能刪除，返回 If Format(, ) = admin Then MsgBox 此用戶不能刪除 Exit Sub End If 39。 33 參考文獻(xiàn) [1] Visual Basic 使用指南 ， Bob Reselman , Richard Peasley , Wayne Pruchniak，電子工業(yè)出版社 [2] Visual Basic 中文版控件大全 ， Microsoft， 電子工業(yè)出版社 [3] 中文 Access 2021 24 學(xué)時(shí)教程 ， Craig Eddy ， Timothy Buchanan 機(jī)械工業(yè)出版社 [4] 肖春蓮 . 合同管理系統(tǒng)設(shè)計(jì) . 有色冶金設(shè)計(jì)與研究 .2021,(3),5060,64 [5] 劉祟欣 , 張 建 新 . 合 同 管 理 信 息 系 統(tǒng) . 計(jì)算機(jī) .1997,(6),3132,37 [6] 黃華 ,付鋒 ,陳軒 . Visual Basic 在高校教務(wù)管理系統(tǒng)中的應(yīng)用 . 計(jì)算機(jī)與現(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è)進(jìn)口設(shè)備合同管理信息系統(tǒng) . 南京郵電學(xué)院學(xué)報(bào) . 1996,(12),8690 [11] 李微 . 數(shù)據(jù) 庫軟件在我院 技術(shù)合同管理 中的應(yīng)用 . 糧食 和食品工業(yè) . 2021,(3),3740 [12] 朱成彪 ,楊紅杰 . 銷售合同管理系統(tǒng)的設(shè)計(jì)與研究 . 嘉 興學(xué)院學(xué)報(bào) . 2021,(5)， 4445， 63 附錄：部分窗體源代碼 用戶管理窗體代碼 Private Sub Cmd_Add_Click() With FrmUserEdit .txtUserName = .txtPass = .txtPass2 = .Show 1 End With 34 DataList1_Click End Sub Private Sub Cmd_Back_Click() Unload Me End Sub Private Sub Cmd_Del_Click() 39。 另外， 我還要感謝在這幾年來對我教導(dǎo)所有的老師，他們孜孜不倦的教誨不但讓我學(xué)到了很多知識，而且讓我掌握了學(xué)習(xí)的方法，更教會(huì)了我做人處事的道理，在此表示感謝。他無論在理論上還是在實(shí)踐中，都給與我很大的幫助，使我得到 很大 的提高 ， 這對于我以 后 的工作和學(xué)習(xí)都有一種巨大的幫助， 在此 感謝他耐心的輔導(dǎo)。 在本次畢業(yè)設(shè)計(jì)中，我從指導(dǎo)老 師 身上學(xué)到了很多東西。相信本 家庭理財(cái) 管理系統(tǒng)是一套 家庭 在日常管理中必不可少的管理軟件，通過開發(fā)這個(gè)系統(tǒng)，我掌握了的項(xiàng)本過程，了解了的基本知識鞏固了我對 Visual Basic 的學(xué)習(xí)，但在這次畢業(yè)設(shè)計(jì)中的最大收獲并不是掌握這幾門開發(fā)工具的應(yīng)用，而是學(xué)會(huì)了設(shè)計(jì)系統(tǒng)的思維方法，以及與同學(xué)們之間相互幫助的精神。在本次開發(fā)過程由于硬件的限制，未能實(shí)現(xiàn)網(wǎng)絡(luò)功能，因此在以后的系統(tǒng)更新過程中可能會(huì)造成一些不必要的數(shù)據(jù)損失。因此，該系統(tǒng)必然會(huì)存在一些缺陷和不足。 編輯用戶信息窗體 結(jié)束語 31 在本系統(tǒng)的開發(fā)過程中，由于本人是初次開發(fā)軟件，在知識、經(jīng)驗(yàn)方面都存在著不足。 用戶管理模塊設(shè)計(jì) 30 用戶管理模塊包括用戶管理和修改密碼等功能。 設(shè)計(jì)銀行交易統(tǒng)計(jì)窗體 銀行交易統(tǒng)計(jì)窗體的名稱為 FrmSBank，窗體布局如圖 18 所示。 28 數(shù)據(jù)統(tǒng)計(jì)管理模塊設(shè)計(jì) 數(shù)據(jù)統(tǒng)計(jì)管理模塊包括日常收支統(tǒng)計(jì)、銀行交易統(tǒng)計(jì)和家庭資產(chǎn)等功能。 設(shè)計(jì)銀行帳戶信息管理窗體 27 銀行帳戶信息編