VB课程设计报告 财务帮手.doc

《VB课程设计报告 财务帮手.doc》由会员分享，可在线阅读，更多相关《VB课程设计报告 财务帮手.doc（6页珍藏版）》请在淘文阁 - 分享文档赚钱的网站上搜索。

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

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

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

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

5、ODB.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.Connection db.Open iConcstr Exit Suberrp: MsgBox (Str(Err.Number) & 数

6、据库访问失败,或者数据库不存在，请选择有效的数据库文件！)End SubPrivate Sub cmdQuit_Click() EndEnd SubPrivate 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

7、 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 strSq

8、l, db, 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软件的使用更加熟练，积累了有效的数据库应用系统实战经验。在这个过程中我深深感到了自己的不足，尤其是在编程方面还有很大的欠缺，今后还要继续学习。并努力尝试在实践中应用所学知识，一方面提高自己的编程水平，一方面提高自己的学习和工作效率，只要我学好VB我相信对我以后的工作会有很大的帮助。同时也非常感谢老师在实验过程中对我的帮助。