【文章內(nèi)容簡(jiǎn)介】 ame, )).Value = .Add((@PassWord,)).Value = .Add((ReturnValue, )).Direction= End With然后再將獲取的信息與信息表里的信息進(jìn)行比較，做出是否登錄的判斷，如果用戶名和密碼不相匹配的話，則無(wú)法登錄。相關(guān)代碼為：Dim dr As String dr = CStr() If dr Then (已經(jīng)登錄了, + 用戶號(hào), , ) flag = True Else flag = False (登錄失敗, 請(qǐng)先登錄, , , ) = False () End If 用戶信息管理模塊的設(shè)計(jì)添加用戶信息頁(yè)面主要實(shí)現(xiàn)對(duì)新用戶的信息進(jìn)行添加的功能。因?yàn)楸鞠到y(tǒng)涉及到對(duì)用戶的財(cái)務(wù)信息進(jìn)行相關(guān)的管理，這些信息對(duì)于用戶來說應(yīng)該是相當(dāng)機(jī)密相當(dāng)重要的。所以，本系統(tǒng)添加的用戶只能夠是家庭內(nèi)部成員。在以后需要的情況下，可以由已經(jīng)存在的擁護(hù)從數(shù)據(jù)庫(kù)中添加新的用戶。從下圖中，我們可以看到添加用戶信息的界面中的各個(gè)需要添加的信息項(xiàng)：圖 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è)計(jì)在該系統(tǒng)中密碼是保護(hù)信息的安全性的重要工具，定期的更換密碼對(duì)于保證用戶信息的安全性是非常有好處的，也是非常必要的。在本系統(tǒng)中對(duì)于用戶密碼的修改是很簡(jiǎn)單的，用戶只需要來到密碼修改的頁(yè)面上，輸入自己的登錄名、原來的用戶密碼以及新密碼，就可以輕松地完成密碼修改了。密碼修改如下圖所示：圖 5 密碼修改界面用戶在修改密碼時(shí)，需要輸入用戶的登錄名、用戶原來的密碼以及新的密碼，當(dāng)用戶輸入完以上信息，點(diǎn)擊修改按鈕之后，系統(tǒng)將會(huì)觸發(fā)一系列的事件。首先系統(tǒng)會(huì)將用戶登錄名和用戶原來的密碼與數(shù)據(jù)庫(kù)中的用戶信息做比較，判斷是否是該用戶在進(jìn)行操作，如果判斷是該用戶的話，則將新密碼保存到數(shù)據(jù)庫(kù)中去，系統(tǒng)便會(huì)彈出 MessageBox 提示用戶密碼修改成功。如果判斷不是該用戶的話，系統(tǒng)也會(huì)彈出 MessageBox 提示用戶不能修改密碼。密碼修改功能的相關(guān)代碼如下：If Then With Search .ComstrKou = Update MemberName set = + + where PassName like 39。% + + 39。 .ConstrKou = Constr End With If = 1 Then (成功的更改, 海星 ) = = Else (更新失敗,你使用不當(dāng) ) End IfEnd If 數(shù)據(jù)庫(kù)備份模塊的設(shè)計(jì)數(shù)據(jù)庫(kù)備份模塊對(duì)于用戶非常重要，數(shù)據(jù)庫(kù)備份模塊可以把用戶的信息在數(shù)據(jù)庫(kù)里再保存一份，為以后發(fā)生特殊情況做準(zhǔn)備，也可以說是為用戶信息的安全又加了一層保險(xiǎn)，數(shù)據(jù)庫(kù)備份模塊界面如下圖所示：圖 6 數(shù)據(jù)庫(kù)備份模塊界面以下代碼的功能是刪除原來的文件： gDatabaseName = oBackup = New oBackupEvent = oBackup = gDatabaseName gBkupRstrFileName = = gBkupRstrFileName進(jìn)行數(shù)據(jù)庫(kù)備份：If Len(Dir(gBkupRstrFileName)) 0 Then Kill((gBkupRstrFileName)) End If = 恢復(fù)數(shù)據(jù)庫(kù)：Dim oRestore As gDatabaseName = oRestore = New oRestoreEvent = oRestore = gDatabaseName gBkupRstrFileName = = gBkupRstrFileName = 收入模塊的設(shè)計(jì)對(duì)于該家庭理財(cái)系統(tǒng)來說，收入模塊是很非常重要的一個(gè)模塊。因?yàn)樗苡涗浻脩羰杖氲囊磺行畔?，為用戶提供一個(gè)非常實(shí)用且便捷的記錄功能。此外，該模塊還具有修改、刪除、排序、查找等功能。在家庭理財(cái)系統(tǒng)中，用戶添加收入記錄是很頻繁的事，那么在系統(tǒng)中收入的記錄就會(huì)非常多。正因?yàn)槿绱?，每條記錄的信息就顯得尤為重要。添加收入信息記錄的內(nèi)容包括：收入來源、金額、收入日期、收入者、存放方以及相關(guān)備注這幾項(xiàng)。另外為了用戶能夠方便的查看收入記錄，故將收入來源進(jìn)行了分類，具體分為三類，分別為工資、股票以及其他。收入模塊的界面如下圖所示：圖 7 收入模塊 添加收入記錄以下是添加收入記錄的代碼，首先找出收入記錄中最大的 ID 號(hào)，然后把將要插入的收入記錄中的 ID 號(hào)，在最大 ID 號(hào)的基礎(chǔ)上加 1，然后根據(jù)用戶輸入的收入記錄的信息保存到數(shù)據(jù)庫(kù)中，并顯示在收入界面的右半部分。Public Sub save() Dim id As String With data .Commadstr = select Max(ID)from InputChashTable .connstring = End With id = CType((), String) id = id + 1 (InputComes, InputChash, InputForms, InputName, InputContant, InputDataTime, id)End Sub 刪除收入記錄在刪除記錄的時(shí)候，只需要讓該記錄獲取焦點(diǎn)，再點(diǎn)擊工具欄中的刪除圖標(biāo)就可以了。在該記錄后的記錄的 ID 號(hào)都減 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è)計(jì)對(duì)于該家庭理財(cái)系統(tǒng)來說，支出模塊是很非常重要的一個(gè)模塊。因?yàn)樗苡涗浻脩糁С龅囊磺行畔?，讓用戶能清楚地知道每一分錢到底是花在了什么地方。為用戶提供一個(gè)非常實(shí)用且便捷的記錄功能。此外，該模塊還具有修改、刪除、排序、查找等功能。在家庭理財(cái)系統(tǒng)中，用戶添加支出記錄是很頻繁的事，那么在系統(tǒng)中支出的記錄就會(huì)非常多。正因?yàn)槿绱?，所以每條記錄的信息就顯得尤為重要。添加收入信息記錄的內(nèi)容包括：支出金額、支出者、支出日期、支出用途以及相關(guān)備注這幾項(xiàng)。圖 8 支出模塊 添加支出記錄以下是添加支出記錄的代碼，首先找出收入記錄中最大的 ID 號(hào)，然后把將要插入的支出記錄中的 ID 號(hào)，在最大 ID 號(hào)的基礎(chǔ)上加 1，然后根據(jù)用戶輸入的支出記錄的信息保存到數(shù)據(jù)庫(kù)中，并顯示在收入界面的右半部分。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 刪除支出記錄在刪除記錄的時(shí)候，只需要讓該記錄獲取焦點(diǎn)，再點(diǎn)擊工具欄中的刪除圖標(biāo)就可以了。在該記錄后的記錄的 ID 號(hào)都減 1，以下是刪除收入記錄的相關(guān)代碼：Public Sub delectItem(ByVal CurrentID As String) With data .connstring = End With (CurrentID) End Sub Public Sub updata(ByVal CurrentID As String) (OutputChash, OutputName, UserName, OutputContant, OutputDate, CurrentID) (CurrentID) End Sub 帳目統(tǒng)計(jì)模塊的設(shè)計(jì)對(duì)于該家庭理財(cái)系統(tǒng)來說，帳目統(tǒng)計(jì)模塊是一個(gè)不可缺少的模塊，它的一個(gè)重要的功能就是將用戶所有的收入金額、總支出金額、總結(jié)余做一個(gè)匯總，使用戶對(duì)自己總體的財(cái)務(wù)狀況有一個(gè)很清晰的了解，對(duì)收支是否平衡等情況一目了然。此外，因?yàn)樵谠撃K界面的右邊做了收入記錄和支出記錄的鏈接，所以該模塊還具有跳轉(zhuǎn)到收入和支出兩表的功能。圖 9 帳目統(tǒng)計(jì)模塊界面用戶想要查看帳目統(tǒng)計(jì)是非常簡(jiǎn)單的，用戶只需要登錄到系統(tǒng)主界面，再進(jìn)入到收入支出表就可以了，而并不需要輸入信息，這樣對(duì)于用戶來講就十分方便。該模塊核心代碼如下：Dim m As = New (outining, n) 39。命令類型 = Dim CheckNumber As String = CType(, Double).ToString(c) = CheckNumber m = New (InputChashNumber, n) = Dim OutPutNum As String = CType(,Double).ToString(c) = OutPutNum = CType(CInt(OutPutNum) CInt(CheckNumber), Double).ToString(c) () 查詢模塊的設(shè)計(jì)對(duì)于家庭理財(cái)系統(tǒng)來說，查詢功能是非常重要的一個(gè)功能。該家庭理財(cái)系統(tǒng)查詢模塊包含四個(gè)查詢方式，以收入表為例，這四種查詢方式分別是按收入類型、按收入時(shí)間、按收入者、按收入金額范圍進(jìn)行查詢，對(duì)應(yīng)收入表和支出表，并實(shí)現(xiàn)對(duì)其他相關(guān)表單的跨表查詢。用戶能按多種不同的方式更清楚地了解到自己的財(cái)務(wù)情況。下圖是查詢模塊的界面示意圖：圖 10 查詢模塊