家庭理财系统的设计与实现—计算机毕业设计(论文)

家庭理财系统的设计与实现—计算机毕业设计(论文)内容摘要：

否则页面将通过 Messagebox 控件显示登录时发生的相关错误信息。 用户登录成功后，系统将跳转到主界面。 首先是与数据库相连，其相关代码为： Dim conn As New = () 与数据库相连以后，获取用户输入的用户名及密码信息，相关代码为： With .Add(New (@name, )).Value = .Add((@PassWord,)).Value = .Add((ReturnValue, )).Direction = End With 第 8 页 共 20 页 然后再将获取的信息与信息表里的信息进行比较，做出是否登录的判断，如果用户名和密码不相匹配的话，则无法登录。 相关代码为： Dim dr As String dr = CStr() If dr Then ( 已经登录了 , + 用户号 , , ) flag = True Else flag = False ( 登录失败 , 请 先 登 录 , , , ) = False () End If 用户信息管理模块的设计 添加用户信息页面主要实现对新用户的信息进行添加的功能。 因为本系统涉及到对用户的财务信息进行相关的管理，这些信息对于用户来说应该是相当机密相当重要的。 所以，本系统添加的用户只能够是家庭内部成员。 在以后需要的情况下，可以由已经存在的拥护从数据库中添加新的用户。 从下图中，我们可以看到添加用户信息的界面中的各个需要添加的信息项： 图 4 用户信 息管理界面示意图 第 9 页 共 20 页 以下是添加新用户的代码： Private Sub InsertTpb() () Dim str As String = select UserName from UserInfo sqlconstr = New (Constr) Dim dp As = New (str, s qlconstr) (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 If End Sub 密码管理模块的设计 在该系统中密码是保护信息的安全性的重要工具，定期的更换密码对于保证用户信息的安全性是非常有好处的，也是非常必要的。 在本系统中对于用户密码的修改是很简单的，用户只需要来到密码修改的页面上，输入自己的登录名、原来的用户密码以及新密码，就可以轻松地完成密码修改了。 密码修改如下图所示： 图 5 密码修改界面 第 10 页 共 20 页 用户在修改密码时，需要输入用户的登录名、用户原来的密码以及新的密码，当用户输入完以上信息，点击修改按钮之后，系统将会触发一系列的事件。 首先系统会将用户登录名和用户原来的密码与数据库中的用 户信息做比较，判断是否是该用户在进行操作，如果判断是该用户的话，则将新密码保存到数据库中去，系统便会弹出 MessageBox 提示用户密码修改成功。 如果判断不是该用户的话，系统也会弹出 MessageBox 提示用户不能修改密码。 密码修改功能的相关代码如下： If Then With Search .ComstrKou = Update MemberName set = + + where PassName like 39。 % + + 39。 .ConstrKou = Constr End With If = 1 Then (成功的更改 , 海星 ) = = Else (更新失败 ,你使用不当 ) End If End If 数据库备份模块的设计 数据库备份模块对于用户非常重要，数据库备份模块可以把用户的信息在数据库里再保存一份，为以后发生特殊情况做准备，也可以说是为用户信息的安全又加了一层保险，数据库备份模块界面如下图 所示： 图 6 数据库备份模块界面 第 11 页 共 20 页 以下 代码的功能是 删除原来的文件 ： gDatabaseName = oBackup = New oBackupEvent = oBackup = gDatabaseName gBkupRstrFileName = = gBkupRstrFileName 进行数据库备份： If Len(Dir(gBkupRstrFileName)) 0 Then Kill((gBkupRstrFileName)) End If = 恢复数据库： Dim oRestore As gDatabaseName = oRestore = New oRestoreEvent = oRestore = gDatabaseName gBkupRstrFileName = = gBkupRstrFileName = 收入模块的设计 对于该家庭理财系统来说，收入模块是很非常重要的一个模块。 因为它能记录用户收入的一切信息，为用户提供一个非常实用且便捷的记录功能。 此外，该模块还具有修改 、删除、排序、查找等功能。 在家庭理财系统中，用户添加收入记录是很频繁的事，那么在系统中收入的记录就会非常多。 正因为如此，每条记录的信息就显得尤为重要。 添加收入信息记录的内容包括：收入来源、金额、收入日期、收入者、存放方以及相关备注这几项。 另外为了用户能够方便的查看收入记录，故将收入来源进行了分类，具体分为三类，分别为工资、股票以及其他。 收入 模块的界面如下图所示： 第 12 页 共 20 页 图 7 收入模块 添加收入记录 以下是添加收入记录的代码，首先找出收入记录中最大的 ID 号，然后把将要插入的收入记录中的 ID 号，在最大 ID 号的基础上加 1，然后根据用户输入的收入记录的信息保存到数据库中，并显示在收入界面的右半部分。 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 删除收入记录 在删除记录的时候，只需要让该记录获取焦点，再点击工具栏中的删除图标就可以了。 在该记录后的记录的 ID 号都减 1，以下是删除收入记录的相关代码： Public Sub delectItem(ByVal CurrentID As String) 第 13 页 共 20 页 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 支出模块的设计 对于该家庭理财系统来说，支出模块是很非常重要的一个模块。 因为它能记录用户支出的一切信息，让用户能清楚地知道每一分钱到底是花在了什么地方。 为用户提供一个非常实用且便捷的记录功能。 此外，该模块还具有修改 、删除、排序、查找等功能。 在家庭理财系统中，用户添加支出记录是很频繁的事，那么在系统中支出的记录就会非常多。 正因为如此，所以每条记录的信息就显得尤为重要。 添加收入信息记录的内容包括：支出金额、支出者、支出日期、支出用途以及相关备注这几项。 图 8 支出模块 第 14 页 共 20 页 添加支出记录 以下是添 加支出记录的代码，首先找出收入记录中最大的 ID 号，然后把将要插入的支出记录中的 ID 号，在最大 ID 号的基础上加 1，然后根据用户输入的支出记录的信息保存到数据库中，并显示在收入界面的右半部分。 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 删除支出记录 在 删除记录的时候，只需要让该记录获取焦点，再点击工具栏中的删除图标就可以了。 在该记录后的记录的 ID 号都减 1，以下是删除收入记录的相关代码： 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 帐目统计模块的设计 对于该家庭理财系统来说， 帐目统计模块是一个不可缺少的模块，它的一个重要的功能就是将用户所有的收入金额、总支出金额、总结余做一个汇总，使用户对自己总体的财务状况有一个很清晰的了解，对收支是否平衡等情况一目了然。 此外，因为在该模块界面的右边做了收入记录和支出记录的链接，所以该模块还具有跳转到收入和支出两表的功能。 第 15 页 共 20 页 图 9 帐目统计模块界面 用户想要查看帐目统计是非常简单的，用户只需要登录到系统主界面，再进入到收入支出表就可以了，而并不需要输入信息，这样对于用户来讲就十分方便。 该模块核心代码如下： Dim m As = New (outining, n) 39。 命令类型 =。