VB课程设计报告-财务帮手

《VB课程设计报告-财务帮手》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

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

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

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

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

5、AsString'数据库查询字符串PublicRsAsADODB.Recordset'数据集PublicstrYearAsStringPublicstrMonthAsStringPublicstrDayAsStringPublicSubDB_OPEN()OnErrorGoToerrpiConcstr="Provider=Microsoft.Jet.OLEDB.4.0;DataSource="&App.Path&"finance.mdb;"Setdb=NewADODB.Connection9db.OpeniConcstrExitSuber

6、rp:MsgBox(Str(Err.Number)&"数据库访问失败,或者数据库不存在，请选择有效的数据库文件！")EndSubPrivateSubcmdQuit_Click()EndEndSubPrivateSubcmdSure_Click()strSql="selectkeyfromuser_keywhereuser='"&Trim(txtUser)&"'"'strSql="select密码from用户表where用户名='"&Trim(txtUser)&"'"SetRs=NewADODB.RecordsetRs.OpenstrSql

7、,db,adOpenStatic,adLockReadOnlyIfRs.RecordCount=0ThenMsgBox("usernameerr")Else'IfRs.BOF=TrueOrRs.EOF=TrueThenExitSub9IfTrim(txtKey)=Rs("key")ThenstrSql="selectlimitfromuser_keywhereuser='"&Trim(txtUser)&"'"'strSql="select密码from用户表where用户名='"&Trim(txtUser)&"'"SetRs=NewADOD

8、B.RecordsetRs.OpenstrSql,db,adOpenStatic,adLockReadOnlyUserLimit=Rs("limit")UnloadMeMDIMain.Show