【正文】 If dr Then (已經(jīng)登錄了, + 用戶號, , ) flag = True Else flag = False (登錄失敗, 請先登錄, , , ) = False () End If 用戶信息管理模塊的設(shè)計添加用戶信息頁面主要實現(xiàn)對新用戶的信息進(jìn)行添加的功能。所以，本系統(tǒng)添加的用戶只能夠是家庭內(nèi)部成員。從下圖中，我們可以看到添加用戶信息的界面中的各個需要添加的信息項：圖 4 用戶信息管理界面示意圖以下是添加新用戶的代碼：Private Sub InsertTpb() () Dim str As String = select UserName from UserInfo sqlconstr = New (Constr) Dim dp As = New (str, sqlconstr) (ds, table) If Not ds Is Nothing Then For i As Integer = 0 To (0). 1 If (0). = 0 Then Exit For End If ((0).Rows(i)(0).ToString) Next End IfEnd Sub 密碼管理模塊的設(shè)計在該系統(tǒng)中密碼是保護(hù)信息的安全性的重要工具，定期的更換密碼對于保證用戶信息的安全性是非常有好處的，也是非常必要的。密碼修改如下圖所示：圖 5 密碼修改界面用戶在修改密碼時，需要輸入用戶的登錄名、用戶原來的密碼以及新的密碼，當(dāng)用戶輸入完以上信息，點擊修改按鈕之后，系統(tǒng)將會觸發(fā)一系列的事件。如果判斷不是該用戶的話，系統(tǒng)也會彈出 MessageBox 提示用戶不能修改密碼。% + + 39。因為它能記錄用戶收入的一切信息，為用戶提供一個非常實用且便捷的記錄功能。在家庭理財系統(tǒng)中，用戶添加收入記錄是很頻繁的事，那么在系統(tǒng)中收入的記錄就會非常多。添加收入信息記錄的內(nèi)容包括：收入來源、金額、收入日期、收入者、存放方以及相關(guān)備注這幾項。收入模塊的界面如下圖所示：圖 7 收入模塊 添加收入記錄以下是添加收入記錄的代碼，首先找出收入記錄中最大的 ID 號，然后把將要插入的收入記錄中的 ID 號，在最大 ID 號的基礎(chǔ)上加 1，然后根據(jù)用戶輸入的收入記錄的信息保存到數(shù)據(jù)庫中，并顯示在收入界面的右半部分。在該記錄后的記錄的 ID 號都減 1，以下是刪除收入記錄的相關(guān)代碼：Public Sub delectItem(ByVal CurrentID As String) With data .connstring = End With (CurrentID) End Sub Public Sub delectItem(ByVal CurrentID As String, ByVal name As String) With data .connstring = End With (CurrentID, name) End Sub 支出模塊的設(shè)計對于該家庭理財系統(tǒng)來說，支出模塊是很非常重要的一個模塊。為用戶提供一個非常實用且便捷的記錄功能。在家庭理財系統(tǒng)中，用戶添加支出記錄是很頻繁的事，那么在系統(tǒng)中支出的記錄就會非常多。添加收入信息記錄的內(nèi)容包括：支出金額、支出者、支出日期、支出用途以及相關(guān)備注這幾項。Public Sub save() Dim id As String With data .Commadstr = select Max(ID)from OutPutTable .connstring = End With id = CType((), String) id = id + 1 (OutputChash, OutputName, UserName, OutputContant, OutputDate, id) End Sub 刪除支出記錄在刪除記錄的時候，只需要讓該記錄獲取焦點，再點擊工具欄中的刪除圖標(biāo)就可以了。此外，因為在該模塊界面的右邊做了收入記錄和支出記錄的鏈接，所以該模塊還具有跳轉(zhuǎn)到收入和支出兩表的功能。該模塊核心代碼如下：Dim m As = New (outining, n) 39。該家庭理財系統(tǒng)查詢模塊包含四個查詢方式，以收入表為例，這四種查詢方式分別是按收入類型、按收入時間、按收入者、按收入金額范圍進(jìn)行查詢，對應(yīng)收入表和支出表，并實現(xiàn)對其他相關(guān)表單的跨表查詢。下圖是查詢模塊的界面示意圖：圖 10 查詢模塊本系統(tǒng)采用統(tǒng)一的查詢模塊 TheOrderWithSelect 進(jìn)行查詢。通常情況下，實現(xiàn)查詢的流程為：首先對 string 類型的字符串連接屬性進(jìn)行賦值，該值為 。通過 my 實現(xiàn)了對系統(tǒng)資源的訪問，其中系統(tǒng)資源包含 settings，通過 settings 實現(xiàn)了對系統(tǒng)資源的保存。再次實現(xiàn)對數(shù)據(jù)庫命令屬性初始化，并修改 mandstring（數(shù)據(jù)庫命令字符串） 。其中 DataAdapter 實現(xiàn)對數(shù)據(jù)庫底層的操作，并返回一張類型為 XML 的表單，該表單保存了相應(yīng)的查詢結(jié)果，并填充 dataset 數(shù)據(jù)集。當(dāng)需要修改數(shù)據(jù)時，只需提交 XML 表單便實現(xiàn)了對實體的操作，但是作為存放數(shù)據(jù)的 dataset 數(shù)據(jù)集，仍然有很大的缺陷，不能直接對 XML 的查詢，而是在新建連接的情況下實現(xiàn)對數(shù)據(jù)集的再次填充，從而損耗了部分系統(tǒng)資源。 + + 39。將所得到的表的列名，賦值給單元格：Dim xlApp As New Dim xlBook As Dim xlSheet As Dim rowIndex, colIndex As IntegerrowIndex = 1colIndex = 0xlBook = ().AddxlSheet = (sheet1)Dim Table As New DataTableTable = (0)得到的表所有行,賦值給單元格：Dim Col As DataColumnDim Row As DataRowFor Each Col In colIndex = colIndex + 1 (1, colIndex) = Next系統(tǒng)在執(zhí)行打印時，其實是生成了一張 Excel 的表，然后再將信息打印出來。在編程的過程中就可以對所做的模塊進(jìn)行運行，發(fā)現(xiàn)錯誤，以便立即進(jìn)行改正。通過進(jìn)行系統(tǒng)各個子模塊的測試和總體的測試，本系統(tǒng)各個模塊運行良好，能夠完成其對應(yīng)的功能。在登錄之后，進(jìn)入系統(tǒng)主界面。在各個子模塊中，用戶能夠?qū)ψ幽K中對應(yīng)的信息進(jìn)行相應(yīng)的操作，本系統(tǒng)的各個模塊都能正常的運行。作為一個短時間內(nèi)完成的實用性軟件，本系統(tǒng)在實用性和全面性方面肯定還有不少的欠缺?？偟膩碇v，這個家庭理財系統(tǒng)能夠基本滿足簡家庭內(nèi)部成員的理財需求。其實還有一些模塊功能可以進(jìn)一步的完善，希望可以通過以后的學(xué)習(xí)能夠不斷的完善和強大本系統(tǒng)的功能?？偟膩碚f，通過這次畢業(yè)設(shè)計，讓我取得了一個相當(dāng)大的進(jìn)步?，F(xiàn)在已經(jīng)有越來越多的人開始認(rèn)識到家庭理財系統(tǒng)的優(yōu)勢所在，大范圍的推廣和使用家庭理財系統(tǒng)來管理個人財務(wù)信息會逐漸成為大眾化個人財務(wù)管理的主流模式。參考文獻(xiàn)[1] CARSTEN 數(shù)據(jù)庫開發(fā)[M] .北京：清華大學(xué)出版社,2022。[3] 賈文晉, 組件開發(fā)專業(yè)教程[M] .北京：清華大學(xué)出版社,2022。[5] 函數(shù)技術(shù)教程[M].北京：清華大學(xué)出版社,2022。[7] 方睿,刁仁宏,[M].成都：四川大學(xué)出版社 ,2022。在此向他表示我最衷心的感謝！感謝陳念偉老師在課題研究初期給予的幫助，在陳念偉老師的幫助下課題才得以很好的展開，有了一個很好的開端！在論文完成過程中，本人還得到了其他老師和許多同學(xué)的熱心幫助，本人向他們表示深深的謝意！最后向在百忙之中評審本文的各位專家、老師表示衷心的感謝！作者簡介：姓 名：易 帆 性別：男 出生年月：198507 民族：漢Email：聲 明本論文是 2022 年 2 月至 2022 年 6 月在成都信息工程學(xué)院網(wǎng)絡(luò)工程系完成的。除非另有說明，本文的工作是原始性工作。（2）學(xué)?？梢圆捎糜坝?、縮印或其他復(fù)制方式保存學(xué)位論文。（4）學(xué)校可允許學(xué)位論文被查閱或借閱。除非另有科研合同和其他法律文書的制約，本論文的科研成果屬于成都信息工程學(xué)院