vb个人财务管理信息系统课设报告Word格式文档下载.doc
《vb个人财务管理信息系统课设报告Word格式文档下载.doc》由会员分享，可在线阅读，更多相关《vb个人财务管理信息系统课设报告Word格式文档下载.doc（24页珍藏版）》请在冰点文库上搜索。
4.4系统功能实现的各界面设计 10
4.4.1【项目管理】窗体的界面设计 10
4.4.2【用户信息管理】窗体的界面设计 10
4.4.3【银行卡管理】窗体的界面设计 10
4.4.4【日常收入管理】窗体的界面设计 10
4.4.5【日常支出管理】窗体的界面设计 10
4.4.6【借入款项管理】窗体的界面设计 10
4.4.7【借出款项管理】窗体的界面设计 10
4.4.8【月度统计】窗体的界面设计 10
4.4.9【月份选择】窗体的界面设计 11
5系统代码设计 12
5.1主窗体代码设计 12
5.2 【日常收入】窗体代码设计 12
5.3 【日常支出】窗体代码设计 12
5.4【借入款项】窗体代码设计 12
5.5【借出款项】窗体代码设计 12
5.6 【月度统计】窗体代码设计 12
5.7 【银行交易统计】窗体代码设计 16
5.8 【项目管理】窗体代码设计 16
5.9 【基本信息查询】窗体代码设计 16
5.10 【选择月份】窗体代码设计 16
6系统运行 18
6.1系统主界面操作 18
6.2项目管理操作 18
6.3日常收入、支出管理和银行账户信息操作 18
6.4借入款项、借出款项和用户个人信息管理操作 18
6.5月度统计管理操作 19
结束语 20
参考文献 21
21
（论文）
1前言
1.1作业背景
本文根据《VB程序设计》课程要求而做。
课程作业要求如下：
用VB开发一个实用的中小型信息系统。
1．根据课程设计时间选择适当规模大小的设计题目，分小组进行设计。
2．小组组长为组员分配任务，根据合理的安排，按照系统开发的流程及方法，踏实地开展课程设计活动。
3．课程设计活动中，撰写相关技术文档。
最后提交详细的课程设计报告。
4．开发出可上机运行的信息系统，通过上机检查。
1.2选题说明
1.2.1基本思路
个人财务管理系统是一个简易的信息管理系统，它具有操作简单、效率高优点。
该系统包括以下几个模块：
项目管理模块、用户信息管理、银行账户管理、日常收入管理模块、日常支出管理模块、借入款项管理模块、借出款项管理模块、月度统计模块、月份选择模块。
1.2.2作业目标
个人和个人的用户使用此软件，可以方便的进行个人理财，投资管理。
用户可以将自己的每一笔收入和支出输入到数据库中，软件帮你理财。
1.3工作业绩
1.3.1个人主要工作
系统总体规划、主界面设计、用户信息管理模块、银行账户管理模块。
1.3.2主要收获
1.3.3自我评定
□优□良□中□及格□不及格
1.3.4小组成员任务分工情况
本组为本次课程设计，组长为：
李想，小组所有成员分工如下：
学号：
0804060228姓名：
王伟任务：
项目管理模块、日常收入模块、日常支出模块、系统运行
0804060229姓名：
陈智校任务：
系统借款管理，借入款项模块、借出款项模块
学号：
0804060230姓名：
李想任务：
系统总体规划、主界面设计、用户信息管理模块、银行账户管理模块
0804060231姓名：
魏丹任务：
数据库设计、月份选择模块、月度统计模块
2系统分析
2.1系统需求分析
目前，个人对财务管理很大程度上仍局限于手工记录的管理方式，大部分的人采用传统的纸笔将每一笔收入和指出记录下来。
这种方式不仅需要大量的时间，而且由于记录的结构不合理，还可能导致记录结果与实际不符的情况，给我们的生活带来诸多的不便。
为了解决这个问题，更好的对个人财务进行合理的管理，我们开发了一个能实现以下功能的个人财务管理信息系统。
（1）对收入和支出项目进行管理。
（2）对日常收入记录进行管理。
（3）对日常支出记录进行管理。
（4）对借入款项记录进行管理。
（5）对借出款项记录进行管理。
（6）对选定的某一月份的收入和支出情况进行统计。
（7）对用户信息进行管理。
（8）对用户银行账户进行管理。
2.2系统功能模块设计
根据对系统需求的分析，个人财务管理信息系统主要划分为：
系统中的主要功能如图所示。
个人财务管理信息系统
项目管理
用户信息管理
银行账户管理
日常收入管理
日常支出管理
借入款项管理
借出款项管理
月度统计
月度选择
图1系统功能图
系统各个功能：
（1）项目管理模块：
对收入和支出项目进行管理。
可以添加新的收入、支出项目，修改、删除已存在的收入、支出项目。
（2）日常收入管理模块：
对日常收入记录进行管理。
对日常收入记录进行管理，可以添加新的日常收入的日期、方式、金额、来源及备注等信息，也可以对以保存的记录进行修改和删除。
（3）日常支出管理模块：
对日常支出记录进行管理。
（4）借入款项管理模块：
对借入款项记录进行管理。
（5）借出款项管理模块：
对借出款项记录进行管理。
（6）月度统计管理模块：
对选定的某一月份的收入和支出情况进行统计。
（7）用户信息管理模块：
对用户信息进行管理。
（8）银行账户管理模块：
对用户银行账户进行管理。
3数据库分析和设计
3.1数据库分析
有别于传统的记录方式，数据库存储高效、准确、快捷。
本系统采用的数据库是Access数据库。
个人财务管理信息系统数据库主要用到的表包含收入项目表、支出项目表、收入表、支出表、借入表、借出表、用户基本信息表、银行卡信息表等，如图2所示。
图2系统数据库
3.2创建数据库
根据对系统需求的分析和数据库分析，接下来开始创建数据库。
具体步骤如下。
⑴明确建立数据库的目的。
即用数据库做哪些数据的管理，有哪些需求和功能。
然后再决定如何在数据库中组织信息以节约资源，怎样利用有限的资源以发挥最大的效用。
⑵确定所需要的数据表。
在明确了建立数据库的目的之后，就可以着手把信息分成各个独立的主题，每一个主题都可以是数据库中的一个表。
⑶确定所需要的字段。
确定在每个表中要保存哪些信息。
在表中，每类信息称作一个字段，在表中显示为一列。
⑷确定关系。
分析所有表，确定表中的数据和其他表中的数据有何关系。
必要时，可在表中加入字段或创建新表来明确关系。
⑸改进设计。
对设计进一步分析，查找其中的错误。
创建表，在表中加入几个实际数据记录，看能否从表中得到想要的结果。
需要时可调整设计。
3.3创建表
3.3.1基本信息表
用来记录用户基本信息。
表结构如图所示。
图3用户基本信息表
3.3.2借出表
用来记录用户借出款项记录。
图4借出表
3.3.3借入表
用来记录用户借入款项记录。
图5借入表
3.3.4收入表
用来记录用户收入记录信息。
图6收入表
3.3.5收入项目表
用来记录系统的收入项目。
图7收入项目表
3.3.6银行卡信息表
用来记录用户银行卡交易等基本信息。
图8银行信息表
3.3.7支出表
用来记录用户支出记录。
图9支出表
3.3.8支出信息表
用来记录系统的支出项目。
图10支出信息表
4系统界面设计
4.1创建工程和数据库连接模块
首先为个人财务管理信息系统创建工程。
在visualbasic6.0中创建一个标准的EXE工程，工程保存为“个人财务管理信息系统”。
由于本系统经常读写数据库，所以将相关操作封装为函数的形式可以简化代码的编写，并且是代码简洁易懂。
4.2添加控件
在开始创建各个模块界面以前，首先要把系统需要使用的控件添加到工具箱中。
需要在工具箱中添加以下5个控件。
1、MicrosoftHierarchicalFlexGridControl6.0
该控件在系统中用于显示数据库中的记录。
2、MicrosoftTabbedDialogControl6.0
该控件用于在项目管理和月度统计窗体中使用SSTab控件。
3、MicrosoftWindowsCommonControl6.0
该控件用于在系统中创建及使用Toolbar控件和Imagelist控件。
4、ADODC控件
绑定控件通过ADO数据控件使用记录集内的数据，在有ADO控件将记录连接到数据库中的数据表，最终在窗口中显示数据记录。
4.3系统主界面设计
添加窗体，修改属性“名称”为“frm_main”，将该窗体的caption、picture等属性进行设置。
选择【工具】中【菜单编辑器】菜单命令，打开【菜单编辑器】对话框。
接下来为主窗体添加Toolbar控件和Imagelist控件添加图片，设置Toolbar控件的【图像列表】属性为“Imagelist”，然后设置其属性。
主窗体用来根据选择显示不同的窗体，并不用于实现具体的功能，工具栏命令按钮的单击事件则会调用相应的菜单单击事件。
4.4系统功能实现的各界面设计
4.4.1【项目管理】窗体的界面设计
该窗体主要用于对收入和支出项目进行管理。
4.4.2【用户信息管理】窗体的界面设计
该窗体主要用于对用户信息进行管理。
4.4.3【银行卡管理】窗体的界面设计
银行账户管理模块主要对用户银行账户进行管理。
4.4.4【日常收入管理】窗体的界面设计
日常收入管理模块：
4.4.5【日常支出管理】窗体的界面设计
日常支出管理模块主要用于对日常支出记录进行管理。
4.4.6【借入款项管理】窗体的界面设计
借入款项管理模块主要用于对借入款项记录进行管理。
4.4.7【借出款项管理】窗体的界面设计
借出款项管理模块主要用于对借出款项记录进行管理。
4.4.8【月度统计】窗体的界面设计
月度统计模块主要用于对选定的某一月份的收入和支出情况进行统计。
4.4.9【月份选择】窗体的界面设计
月度选择模块主要用于对选取某一月份进行统计。
图21月度选择模块
5系统代码设计
5.1主窗体代码设计
主窗体的作用是：
提供一个综合管理的界面，用户在这个界面中可以调用不同的功能窗体。
5.2【日常收入】窗体代码设计
5.3【日常支出】窗体代码设计
【日常支出】窗体的设计思路与【日常收入】窗体相同。
在【日常支出】窗体中，【金额】文本框活的焦点又失去焦点时，会判断文本框中输入的内容是否为空，以及是否为数字。
如果为空，则提醒用户“请输入金额”；
如果输入内容不是数字，则提醒用户“金额只能输入数字”。
5.4【借入款项】窗体代码设计
在窗体加载时，执行数据库查询语句，查询“借入”表，并将结果传回，然后设置Check1的默认值为“0”，Lable2的Caption值为数据记录个数。
5.5【借出款项】窗体代码设计
5.6【月度统计】窗体代码设计
【月度统计】窗体加载时执行Activate事件，会对本月的收入、支出情况进行统计，并在窗体上显示出来。
窗体代码设置如下：
DimMydbAsNewADODB.Recordset
DimMydb1AsNewADODB.Recordset
DimMoneyAsNewADODB.Recordset
DimMoney1AsNewADODB.Recordset
DimStr_textAsString
PrivateSubCommand2_Click（）
frm_month.Show
EndSub
PrivateSubCommand3_Click（）
UnloadMe
PrivateSubForm_Activate（）
OnErrorResumeNext
DimA,B,CAsInteger
DimDAsString
DimYear1,Month1,Riqi,Riqi1,Riqi3,Riqi4
Ifaa=TrueThen
SetMydb=ExeCutesql（"
select*from收入where日期between'
"
&
Cdate1&
"
'
and'
Cdate2&
"
）
SetMSHFlexGrid1.DataSource=Mydb
SetMydb1=ExeCutesql（"
select*from支出where日期between'
SetMSHFlexGrid2.DataSource=Mydb1
SetMoney=ExeCutesql（"
selectsum（金额）from收入where日期between'
and'
A=Money.Fields（0）
IfIsNull（A）Then
A=0
EndIf
Label2.Caption=A
SetMoney1=ExeCutesql（"
selectsum（金额）from支出where日期between'
B=Money1.Fields（0）
IfIsNull（B）Then
B=0
EndIf
Label6.Caption=B
C=A-B
IfC>
0Then
D="
盈余"
Else
D="
透支"
Label4.Caption=Format（Cdate1,"
yyyy年mm月"
）&
"
本月"
D&
C&
元"
Else
Year1=Year（Now）
Month1=Month（Now）
Riqi=Year1&
-"
Month1
Riqi1=Year1&
Month1+1
SetMydb=ExeCutesql（"
select*from收入where日期between'
Format（Riqi,"
yyyy-mm"
Format（Riqi1,"
Str_text）
SetMoney=ExeCutesql（"
B=Money1.Fields（0）
IfIsNull（B）Then
B=0
EndIf
Label6.Caption=B
C=A-B
IfC>
D="
C=Abs（C）
Label4.Caption=Year（Now）&
年"
Month（Now）&
月"
PrivateSubForm_Load（）
OnErrorResumeNext
DimDAsString
Year1=Year（Now）
Month1=Month（Now）
Riqi=Year1&
Riqi1=Year1&
SetMSHFlexGrid1.DataSource=Mydb
SetMydb1=ExeCutesql（"
select*from支出where日期between'
SetMoney=ExeCutesql（"
A=Money.Fields（0）
IfIsNull（A）Then
Label2.Caption=A
SetMoney1=ExeCutesql（"
B=Money1.Fields（0）
IfIsNull（B）Then
B=0
D="
C=Abs（C）
D="
PrivateSubMSHFlexGrid2_Click（）
5.7【银行交易统计】窗体代码设计
5.8【项目管理】窗体代码设计
5.9【基本信息查询】窗体代码设计
5.10【选择月份】窗体代码设计
代码设计如下：
DimRiqi,Riqi1,Year1,MonthAsString
PrivateSubCommand1_Click（）
IfCombo1.Text="
Then
MsgBox"
请选择年份！
vbOKOnly+32,"
注意！
Else
IfCombo2.Text="
MsgBox"
请选择月份！
aa=True
Year1=Combo1.Text
Month=Co
升级会员 