家庭财务管理系统论文Word文件下载.docx
- 文档编号:21589759
- 上传时间:2023-01-31
- 格式:DOCX
- 页数:19
- 大小:300.46KB
家庭财务管理系统论文Word文件下载.docx
《家庭财务管理系统论文Word文件下载.docx》由会员分享,可在线阅读,更多相关《家庭财务管理系统论文Word文件下载.docx(19页珍藏版)》请在冰豆网上搜索。
1.用户需求分析:
通过调查,要求系统需要有以下功能:
(1)由于操作人员的计算机知识普遍较差,那么就要求有良好的人机界面。
(2)方便的数据查询,支持多条件查询关生成相应的统计图。
(3)家庭成员信息的基本录入管理。
(4)家庭成员的银行卡管理。
(5)家庭日常的收入和支出管理。
2.系统功能分析:
系统作为普通家庭使用的家庭财务管理系统,主要包括系统设置、日常管理、
查询、每月明细四大模块。
(1)系统设置;
主要是对家庭成员的录入、删除、修改,对密码的修改,支出项目和收入项目的管理,更改用户的功能。
(2)日常管理:
对家庭日常收入支出、借入借出、定活期存款进行管理。
(3)查询:
按不同的方式分别进行查询,结果一致。
可以按日期、方式、金额、数目分别进行查询。
(4)理材报告:
查询每月节余并生成相应的统计图,统计图可以按人员进行统计也可以按收入来源进行统计。
通过对系统的用户需求和功能的分析得到系统的顶级DFD,如图2.1所示。
图2.1系统顶级DFD图
2.2可行性分析
经济可行性:
家庭财务管理系统的开发、运行、维护费用包括:
购买和安装设备的费用、人员费用、消耗品费用,但这些费用相对而言是比较低的。
另外,本系统开发成本低,仅需要一台电脑,一个人,花费一个月的时间足能完成该系统的开发。
开发任何一个基于计算机的系统,都会受到时间和资源上的限制。
因此,在接受任何一个项目开发任务之前,必须根据客户可能提供的时间和资源条件进行可行性分析,以减少项目开发风险,避免人力、物力和财力的浪费。
技术可行性:
从目前IT业界比较流行的数据库开发、管理软件来看,对于比较简单的中小型数据库,VB和Access的结合无疑是在实际应用中较为成功的一种解决方案。
为用户提供了业界软件开发一直坚持的非常友好、操作简单的用户界面、完善强大的数据库操作功能和简洁明了的数据库窗口,所以技术实行起来会相对容易。
3系统设计
3.1系统功能模块设计
家庭财务管理系主要完成对日常收入和支出、查询、修改、删除等,系统设置包括项目管理、添加成员、修改密码、更改用户、数据备份和退出系统。
日常管理包括日常收入、日常支出、活期账户、定期储蓄、借入款项、借出款项。
查询主要是对日常收入和日常支出进行不同方式的查询。
理材报告根据每月节余生成统计图。
具体的功能模块图如图3.1所示:
3.1图系统功能模块图
3.2数据库设计
3.2.1系统的设计目标
1.系统运行稳定,安全可靠。
2.界面设计美观,人机交互界面友好。
3.采用多种方式查询数据。
4.信息查询灵活、方便、快捷、准确,数据存储安全可靠。
5.具有统计图表分析功能。
3.2.2数据库概念结构设计
根据数据项和数据结构设计出系统的E—R图如下所示;
3.2图系统设计E—R图
活期存款表包括账号、存取、日期、数目、姓名和余额字段,设计的E—R图如下所示:
图3.3活期存款R—R图
收入表包括日期、方式、金额、项目、来源和人员,设计的E—R图如下所示:
图3.4收入表E—R图
借入表得款人、金额、出借人、日期和出借原因,设计的E—R图如下所示:
图3.5借入表E—R图
成员信息表包括称呼、姓名、生日和格言,设计的E—R图如下所示:
图3.6成员信息E—R图
3.2.3数据库的逻辑结构设计
将上面的数据库概念结构模型转化为Access数据库系统所支持的实际数据模型,也就是数据库的逻辑结构模型。
家庭财务管理系统中包括多个表,这里只列举其中的3个表,分别是:
日常收入表、借出表、活期存取表。
收入表:
存放家庭成员的收入信息,包括名称、数据类型、长度、允许为空、索引,表的数据字段和属性如下图所示:
图3.7收入表
名称
数据类型
长度
允许为空
索引
日期
文本
50
是
无
方式
金额
项目
来源
人员
备注
Key
自动编号
否
有
借出表:
主要记录家庭借出款项,包括名称、数据类型、长度、允许为空、索引,表的数据字段和属性如下图所示:
表3.8借出表
得款人
货币
自动
出借人
出借原因
已还
活期存取表:
家庭的存款方式,主要记录家庭取款的信息,包括名称、数据类型、长度、允许为空、索引,表的数据字段和属性如下图所示:
表3.9活期存取表
账号
存取
数目
姓名
余额
4
4系统实现
4.1数据库连接实现
系统用VB和Access的连接,用ADO编程模型连接数据库,具体语句如下:
PublicStr_pathAsString
PublicCnameAsString'
登陆时传用户名
PublicCdate1AsString'
传日期(收入情况列表)
PublicCdate2AsString'
传日期
PublicaaAsBoolean'
判断是否选择月份
'
ADO编程模型连接数据库
PublicFunctionConnectstring()AsString
DimStr_pathAsString
Str_path=CurDir()&
"
\"
&
MISER.MDB"
Connectstring="
Provider=Microsoft.Jet.OLEDB.4.0;
DataSource='
"
Str_path&
;
PersistSecurityInfo=False"
EndFunction
PublicFunctionExeCutesql(ByValSqlAsString,MsgstringAsString)AsADODB.Recordset
DimCnnAsADODB.Connection
DimRstAsADODB.Recordset
DimStokens()AsString'
数组
OnErrorGoToexecutesql_error
Stokens=Split(Sql)'
将sql语句按关键字保存在数组中
SetCnn=NewADODB.Connection
Cnn.OpenConnectstring
IfInStr("
INSERT,DELETE,UPDATE"
UCase$(Stokens(0)))Then
Cnn.ExecuteSql
Msgstring=Stokens(0)&
查询成功"
Else
SetRst=NewADODB.Recordset
Rst.OpenTrim$(Sql),Cnn,adOpenKeyset,adLockOptimistic'
重服务器中提取符合要求的记录集
SetExeCutesql=Rst
Msgstring="
查询到"
Rst.RecordCount&
条记录"
EndIf
executesql_exit:
SetRst=Nothing'
释放记录集
SetCnn=Nothing'
释放连接语句
ExitFunction
executesql_error:
查询错误:
Err.Description
Resumeexecutesql_exit
4.2系统的登录模块实现
对用户输入的用户名和密码进行验证,正确则进入系统,否则显示相应的提示信息,若用户名或密码连续输入三次后出现错误,则退出系统。
系统的登录界面如图4.1所示:
4.1图系统登录
登录界面实现所需的代码如下所示:
IfStr_name="
1"
AndStr_password="
2"
Then
frm_main.Show
UnloadMe
Else
SetMydb=ExeCutesql("
selectuserfromuser1whereuser='
Str_name&
Str_text)
IfMydb.EOFThen
MsgBox"
你输入的用户名不存在,请重新输入!
vbOKOnly+32,"
注意"
L=L+1
txt_name.SetFocus
IfL=5Then
你已经多次输入错误的用户名,请查证后重新登陆!
vbOKOnly+48,"
EndIf
EndIf
4.3查询模块功能的实现
查询是系统最基本的功能,用户可以随时对家庭的收入和支出进行查询,根据不同的方式查询显示的结果相同。
查询设计如图4.2所示:
44.2图系统查询
模块实现代码如下所示:
PrivateFunctionMode1()
SetMydb1=ExeCutesql("
select*from支出where方式='
Combo3.Text&
SetMSHFlexGrid2.DataSource=Mydb1
PrivateFunctionMoney1()
OnErrorResumeNext
DimB
B=CInt(txt_money1.Text)
SetMydb11=ExeCutesql("
select*from支出where金额="
B&
SetMSHFlexGrid2.DataSource=Mydb11
PrivateFunctionProject1()
SetMydb12=ExeCutesql("
select*from支出where项目='
Combo4.Text&
SetMSHFlexGrid2.DataSource=Mydb12
4.4理材模块功能的实现
开发系统的目的只要是对财务进行管理,理材就是重要的一部分。
它是在查询的基础上进行进一步的分析显示,并根据查询结果生成相应的统计图。
理材设计如图4.3所示:
图4.3理材实现图
理材模块所需代码如下:
PrivateSubForm_Load()
DimA,B,C,DAsInteger
Command4.Enabled=False
Command2.Enabled=False
SetMydb1=ExeCutesql("
selectsum(金额)from收入"
"
)
A=Mydb1.Fields(0)
select项目,sum(金额)as金额,str(cint(sum(金额)/'
A&
*100))&
'
%'
as百分比from收入groupby项目"
SetMSHFlexGrid1.DataSource=Mydb
SetMydb4=ExeCutesql("
selectsum(金额)from支出"
B=Mydb4.Fields(0)
SetMydb3=ExeCutesql("
as百分比from支出groupby项目"
SetMSHFlexGrid2.DataSource=Mydb3
Label1.Caption=Year(Now)&
年"
Month(Now)&
月"
:
Label6.Caption=A&
元"
Label7.Caption=B&
MSChart1.RowCount=1
MSChart2.RowCount=1
MSChart1.RowLabel="
收入情况"
MSChart2.RowLabel="
支出情况"
C=Mydb.RecordCount
D=Mydb3.RecordCount
IfC>
0Then
MSChart1.ColumnCount=C
MSChart1.ColumnLabel=Mydb.Fields(0)
IfD>
MSChart2.ColumnCount=D
MSChart2.ColumnLabel=Mydb3.Fields(0)
EndSub
4.5定期储蓄模块功能的实现
用户对储蓄的存款方式包括活期和定期两种,活期储蓄模块和定期类似,定期储蓄模块实现如下所示:
图4.4定期储蓄
模块所需的代码如下所示:
PrivateSubcmd_add_Click()
OnErrorResumeNext
DimA,B
B=1
SetCount1=ExeCutesql("
selectkeyfrom定期存款"
Count1.MoveLast
B=Count1.Fields(0)+1
A=MsgBox("
是否添加前记录?
vbYesNo+32,"
修改记录"
IfA=vbYesThen
ExeCutesql"
insertinto定期存款values('
Format(DTPicker1.Value,"
yyyy-mm-dd"
)&
'
txt_name.Text_&
txt_address.Text&
txt_size.Text&
"
txt_money.Text&
txt_time.Text&
Combo1.Text&
Check1.Value&
)"
Str_text
CallBangding
PrivateSubcmd_del_Click()
DimA
是否删除当前记录?
vbYesNo+32+256,"
添加记录"
DELETEfrom定期存款wherekey="
txt_key.Text&
CallBangding
PrivateSubcmd_edit_Click()
是否修改前记录?
Update定期存款Set日期='
DTPicker1.Value&
银行名称='
银行地址="
银行账号='
金额='
txt_money.Text_&
期限='
存款人='
取否='
Wherekey="
Str_text'
Mydb.Requery
MsgBox"
数据修改成功!
vbOKOnly+64,"
成功"
5系统测试
5.1测试内容及步骤
系统测试是为了发现程序中的错误。
系统测试的过程亦是程序运行的过程。
系统测试主要是测试功能是否完全实现。
实现测试的步骤如下:
1.在登录界面输入相应的用户名和密码,如果输入错误就进不入系统,若输入次数超过三次,系统关闭,输入成功,则进入系统。
2.测试查询收入支出模块时,要分别按照不同的方式进行查询,若一个方式都不点的话,则无法进行查询,显示不出查询结果。
3.测试生成统计图模块功能时,每月明细界面正常显示的话可以点击饼图出现统计图的界面,然后分别进行按人员统计和按项目统计,分别显示出正确的结果,则说明测试成功。
图5.1饼图测试结果显示图
5.2测试结果
在进行调试完后,系统能够实现简单的收入支出,查询,存取,自动生成统计图等功能,测试结果如下:
图5.2测试结果
测试模块
测试内容
测试结果
用户登录
用户名和密码是否正确
正确则进入下一模块,错误则退出
查询收入支出
按方式进行操作
不同方式查询结果相同
生成统计图
统计图显示是否正确
正确显示统计图内容
6结束语
开发本系统经历了从系统问题的提出—系统可行性分析—系统数据库的设计—总体的功能模块设计—详细设计—最后到程序的实现,就是以这样的一个思路完成的整个系统的开发。
通过这次毕业设计,使我感到高科技、新知识的力量。
这次毕业设计过程中,得到了学校的大力支持,给我提供了舒适的工作学习环境,也得到了广大老师、教授的精心指导,在此表示衷心的感谢!
由于本人第一次完整的设计程序,加之水平有限,设计中难免有不当之处,还请各位老师给予批评和指正。
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 家庭 财务管理 系统 论文