VB课程设计-个人财务管理小帮手

课程设计报告
课程设计题目：个人财务管理小帮手
学生姓名董翔
专业计算机科学与技术
班级10304101
指导教师谢小林
2011 年6 月11 日
一、实验题目：
设计一个个人财务管理小帮手本系统由五部分组成：用户管理、录入模块、查询模块、统计模块、分析模块。

二、实验时间、地点：
2011-6-7~2011-6-9 信工楼302
三、实验目的
1. 通过该题目的设计，使学生掌握软件开发过程的问题分析、系统设计、程序编码、测试等基本方法和技能；
2. 掌握利用VB开发数据库系统的方法；
3. 掌握文件的操作方法。

四、实验内容与要求
本系统由五部分组成：用户管理、录入模块、查询模块、统计模块、分析模块。

1. 用户管理：实现用户的添加、删除、密码修改功能。

2. 录入模块：对日常收支情况进行登记。

收入和支出按类别登记，如学习、交通、通信、伙食费、娱乐、礼品等，内容包括时间、地点、金额、备注等。

3. 查询模块：可按年、月、日查看收支明细。

4. 统计模块：对收入、支出情况可按类型、时间段进行统计。

5. 分析模块：分析并显示每项支出所占总支出的百分比。

显示按支出类型排序后的支出信息（最好用图表形式）。

将排序后的内容保存。

要求：
1. 3人完成
2. 数据可以存放到文件中，也可以存放到access数据库中。

3. 提供登录界面。

4. 用户根据口令进入系统，不同的用户拥有不同权限：可读可写、只读、只读部分信息。

5. 界面友好，对用户可能输入的非法数据进行提示，如日期输入不正确
五、实现思路
个人财务管理小帮手理财管理系统包括基本信息管理、理财管理和数据统计等主要功能，具体功能如下：
基本信息的添加、修改、删除和查询；
理财信息的添加、修改、删除和查询；
数据统计模块包括日常收支统计、银行交易统计和个人资产统计等功能。

系统功能模块图
功能模块图
本系统按照功能需求和部门使用的情况，将系统划分为多个子系统，每个子系统完成一定的功能。

数据库的设计
数据库设计设计是对于一个给定的应用环境，构造最优的数据库模式，建立数据库及其应用系统，使之能有效地存取数据，满足用户的信息要求和处理要求。

本实验的数据库内容包括收入、支出、收入项目、支出项目等表；功能齐全
六、部分代码（登陆界面）
Public UserLimit As String
Public iConcstr As String '字符串
Public db As ADODB.Connection '定义为数据库连接
Public strSql As String '数据库查询字符串
Public Rs As ADODB.Recordset '数据集
Public strYear As String
Public strMonth As String
Public strDay As String
Public Sub DB_OPEN()
On Error GoTo errp
iConcstr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\finance.mdb;"
Set db = New ADODB.Connection
db.Open iConcstr
Exit Sub
errp:
MsgBox (Str(Err.Number) & "数据库访问失败,或者数据库不存在，请选择有效的数据库文件！")
End Sub
Private Sub cmdQuit_Click()
End
End Sub
Private Sub cmdSure_Click()
strSql = "select key from user_key where user='" & Trim(txtUser) & "'"
'strSql = "select 密码from 用户表where 用户名='" & Trim(txtUser) & "'"
Set Rs = New ADODB.Recordset
Rs.Open strSql, db, adOpenStatic, adLockReadOnly
If Rs.RecordCount = 0 Then
MsgBox ("user name err")
Else
'If Rs.BOF = True Or Rs.EOF = True Then Exit Sub
If Trim(txtKey) = Rs("key") Then
strSql = "select limit from user_key where user='" & Trim(txtUser) & "'"
'strSql = "select 密码from 用户表where 用户名='" & Trim(txtUser) & "'"
Set Rs = New ADODB.Recordset
Rs.Open strSql, db, adOpenStatic, adLockReadOnly
UserLimit = Rs("limit")
Unload Me
MDIMain.Show
Else
MsgBox ("password err")
End If
End If
End Sub
Private Sub Form_Load()
'连接数据库
DB_OPEN
End Sub
七、实验总结
1、通过本周的VB实验，我基本做出试验的功能，能够对财务进行一般的统计、记录、查询，达到了实验目的与要求。

2、在实验的过程中也遇到过不少问题，主要是对数据库的建立、连接、调用、处理不熟悉不了解，导致无法对代码进行编写。

3、代码的编写要条理分明，这样才不至于在运行的时候出现过多的错误，同时各个窗体之间的联系与处理也非常关键。

八、心得体会
通过一周的VB课程设计，我对数据库和VB6.0软件的使用更加熟练，积累了有效的数据库应用系统实战经验。

在这个过程中我深深感到了自己的不足，尤其是在编程方面还有很大的欠缺，今后还要继续学习。

并努力尝试在实践中应用所学知识，一方面提高自己的编程水平，一方面提高自己的学习和工作效率，只要我学好VB我相信对我以后的工作会有很大的帮助。

同时也非常感谢老师在实验过程中对我的帮助。