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

1、课程设计报告课程设计题目： 个人财务管理小帮手 学生姓名 董翔专 业 计算机科学与技术班 级 10304101指导教师 谢小林 2011 年 6 月11 日一、 实验题目：设计一个个人财务管理小帮手本系统由五部分组成：用户管理、录入模块、查询模块、统计模块、分析模块。二、 实验时间、地点： 2011-6-72011-6-9 信工楼302三、实验目的 1. 通过该题目的设计，使学生掌握软件开发过程的问题分析、系统设计、程序编码、测试等基本方法和技能；2. 掌握利用VB开发数据库系统的方法；3. 掌握文件的操作方法。四、实验内容与要求 本系统由五部分组成：用户管理、录入模块、查询模块、统计模块、分

2、析模块。 1. 用户管理：实现用户的添加、删除、密码修改功能。2. 录入模块：对日常收支情况进行登记。收入和支出按类别登记，如学习、交通、通信、伙食费、娱乐、礼品等，内容包括时间、地点、金额、备注等。3. 查询模块：可按年、月、日查看收支明细。4. 统计模块：对收入、支出情况可按类型、时间段进行统计。5. 分析模块：分析并显示每项支出所占总支出的百分比。显示按支出类型排序后的支出信息（最好用图表形式）。将排序后的内容保存。要求：1. 3人完成2. 数据可以存放到文件中，也可以存放到access数据库中。3. 提供登录界面。4. 用户根据口令进入系统，不同的用户拥有不同权限：可读可写、只读、只读

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

4、修改自身密码功能模块图本系统按照功能需求和部门使用的情况，将系统划分为多个子系统，每个子系统完成一定的功能。数据库的设计数据库设计设计是对于一个给定的应用环境，构造最优的数据库模式，建立数据库及其应用系统，使之能有效地存取数据，满足用户的信息要求和处理要求。本实验的数据库内容包括收入、支出、收入项目、支出项目等表；功能齐全六、部分代码（登陆界面）Public UserLimit As StringPublic iConcstr As String '字符串Public db As ADODB.Connection '定义为数据库连接Public strSql As String

5、 '数据库查询字符串Public Rs As ADODB.Recordset '数据集Public strYear As StringPublic strMonth As StringPublic strDay As StringPublic Sub DB_OPEN() On Error GoTo errp iConcstr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "finance.mdb;" Set db = New ADODB.Con

6、nection db.Open iConcstr Exit Suberrp: MsgBox (Str(Err.Number) & "数据库访问失败,或者数据库不存在，请选择有效的数据库文件！")End SubPrivate Sub cmdQuit_Click() EndEnd SubPrivate Sub cmdSure_Click() strSql = "select key from user_key where user='" & Trim(txtUser) & "'" 'strS

7、ql = "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 Tri

8、m(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,

9、adOpenStatic, adLockReadOnly UserLimit = Rs("limit") Unload Me MDIMain.Show Else MsgBox ("password err") End If End IfEnd SubPrivate Sub Form_Load() '连接数据库 DB_OPEN End Sub七、实验总结 1、通过本周的VB实验，我基本做出试验的功能，能够对财务进行一般的统计、记录、查询，达到了实验目的与要求。2、在实验的过程中也遇到过不少问题，主要是对数据库的建立、连接、调用、处理不熟悉不了解，导致无法对代码进行编写。3、代码的编写要条理分明，这样才不至于在运行的时候出现过多的错误，同时各个窗体之间的联系与处理也非常关键。八、心得体会 通过一周的VB课程设计，我对数据库和VB6.0软件的使用更加熟练，积累了有效