VB课程设计报告 财务帮手【荐】.docVIP

课程设计报告 课程设计题目： 个人财务管理小帮手 学生姓名 专 业 计算机科学与技术 班 级 指导教师 2011 年 6 月11 日 实验题目： 设计一个个人财务管理小帮手本系统由五部分组成：用户管理、录入模块、查询模块、统计模块、分析模块。2011-6-7~2011-6-9 信工楼302 三、实验目的 1. 通过该题目的设计，使学生掌握软件开发过程的问题分析、系统设计、程序编码、测试等基本方法和技能； 2. 掌握利用VB开发数据库系统的方法； 3. 掌握文件的操作方法。 四、实验内容与要求 本系统由五部分组成：用户管理、录入模块、查询模块、统计模块、分析模块。对支出情况进行统计分析显示每项支出所占总支出的百分比。显示按支出类型排序后的支出信息。将排序后的内容。用户根据口令进入系统 界面友好，输入如 功能模块图 本系统按照功能需求和部门使用的情况，将系统划分为多个子系统，每个子系统完成一定的功能。 数据库的设计 数据库设计设计是对于一个给定的应用环境，构造最优的数据库模式，建立数据库及其应用系统，使之能有效地存取数据，满足用户的信息要求和处理要求。 本实验的数据库内容包括收入、支出、收入项目、支出项目等表；功能齐全 六、部分代码（登陆界面） 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() 连接数据库