家庭理财管理系统设计论文.

毕业论文中文 题 快递公司问题件快递公司问题件货款处理关于圆的周长面积重点题型关于解方程组的题及答案关于南海问题 目家庭理财管理系统英文题目Familyfinancialmanagementsystem系别：信息管理系年级专业：2012级信息管理与信息系统姓名：林雅雯学号：125022415指导教师：崔玉胜职称：教授、副教授、讲师、助教闽南理工学院教务处制2013年月日家庭理财管理系统【摘要】家庭财务管理系统是典型的管理信息系统(MIS)，其开发主要包括后台数据库的建立和维护以及前端应用程序的开发两个方面。对于前者要求建立起数据一致性和完整性强、数据安全性好的库。而对于后者则要求应用程序功能完备,易使用等特点。经过分析，我们使用MICROSOFT公司的VISUALBASIC开发工具,利用其提供的各种面向对象的开发工具,尤其是数据窗口这一能方便而简洁操纵数据库的智能化对象,首先在短时间内建立系统应用原型,然后,对初始原型系统进行需求迭代,不断修正和改进,直到形成用户满意的可行系统。【关键词】家庭理财，管理信息系统，MIS，VisualBasic目录一、绪论 1（一）课题简介 1（二）开发的意义 1二、开发环境及实现技术 1（一）开发环境 1（二）设计目的 2三、数据库设计 2（一）数据库需求分析 2（二）新建一个数据库 2（三）修改已建的数据库 2四、系统设计 2（一）主界面的设计与实现 2（二）日常收支与维护模块的设计与实现 4（三）现金收支查询模块的设计与实现 7（四）收入/支出项目维护模块的设计与实现 8（五）信用卡收支与维护管理模块的设计与实现 13（六）登录管理模块的设计与实现 15六、系统使用说明 18（一）使用说明 18（二）运行环境 18七、设计心得 18参考文献 19一、绪论（一）课题简介家庭财务管理系统是每一个家庭管理家庭财务收入和支出的不可缺少的一个管理信息系统,它的内容对于家庭的管理者来说是至关重要的,所以家庭财务管理系统应该能够为每一个家庭的管理者提供充足的信息和快捷的查询手段，大的方便家庭的管理者的合理理财。因此，开发这样一套管理软件成为很有必要的事情，对于我们即将毕业的学生来说，也是一次将所学的理论知识应用于现实管理的一次很有意义的实践活动。（二）开发的意义计算机已经成为我们学习和工作的得力助手，使用其可方便的管理家庭财务。今天，计算机的价格已经十分低廉，性能却有了长足的进步。它已经被应用于许多领域。现在我国的家庭财务管理水平大部分都还停留在纸介质的基础上，这样的机制已经不能适应时代的发展，因为它浪费了许多人力和物力，在信息时代这种传统的管理方法必然被计算机为基础的信息管理所取代。我作为一个信息管理类的毕业生，希望可以在这方面有所贡献。我希望能用我所学的知识编制出一个实用的程序来帮助家庭进行财务管理。开发这一系统的好处大约有以下几点：第一、可以存储家庭日常财务信息。第二、只需了解操作系统，就能实现方便快捷的家庭财务管理，节省人力；第三、可以迅速家庭财务历史信息，做到收入支出心中有数。现今社会互联网已经十分普及，而且现在各大银行个人网上银行系统都日趋完善，本系统为家庭的合理化理财做了很好的前期铺垫，比如计算机的财务管理模式的建立。二、开发环境及实现技术（一）开发环境衡量是否具备使用新系统所需的条件，一般可从软硬件的性能要求、环境条件、技术人员水平和数量等方面去考虑和分析，其中开发人员的技术水平应首先考虑近期内可以培养和发展的技术人员。近些年计算机技术飞速发展，硬件条件可以说是日新月异，其发展速度已令人惊讶的成倍比例发展。软件方面同样进展神速，无论任何系统都难不到如今的计算机。本系统就是由VB与access数据库相结合而设计出来的。以下为本系统开发需求。本系统开发需求的软件为：1、WindowsXP操作系统。2、VB6.03、ACCESS数据库本系统开发需求的硬件为：CPU为400MHZ以上；硬盘数据量最小配置为200G；计算机内存要求为2GB以上；（二）设计目的对于家庭财务管理信息系统应着重分析其经济效益，整合现有资源提高工作效率。三、数据库设计（一）数据库需求分析根据普通大众家庭财务管理的实际情况，分析得到如下的数据库结构。1、现金日常收支表2、信用卡日常收支表3、收入/支出项目表4、用户管理表（二）新建一个数据库创建任何一个数据库的第一步是仔细的规划数据库，设计必须是灵活的、有逻辑的。创建一个数据库结构的过程被认为是数据模型设计。1、标识需要的数据；2、收集被标识的字段到表中；3、标识主关键字字段；4、绘制一个简单的数据图表；5、 规范 编程规范下载gsp规范下载钢格栅规范下载警徽规范下载建设厅规范下载 数据；6、标识指定字段的信息；7、创建物理表。（三）修改已建的数据库四、系统设计（一）主界面的设计与实现主界面是用菜单形式表现的。如图：图1：主界面菜单的制作过程如下：首先通过“工具”菜单中的“菜单编辑器”调出菜单编辑器，然后进行菜单的设置，如下图：图2：菜单编辑器图此过程中要注意各菜单的名称唯一，另外还要注意菜单的级别。最后设置如下的代码（只要单击菜单即可设置各菜单代码）代码如下图：图3：菜单设置（二）日常收支与维护模块的设计与实现1、运行界面：图4：日常收支管理属性2、实现过程：第一步，将所需的控件放到窗体的相应位置；方法：首先在“工具箱”中选中所需的控件图标，然后在表单的恰当位置上单击鼠标并拖动鼠标，即可把由所选取的控件生成的对象添加到窗体上。如下图：图5：工具箱第二步，选择窗体或控件进行属性设置，如图为日期文本框控件的属性设置界面:图6：属性设置其它属性和控件的设置方法类似。第三步，双击相应的控件，在控件的相应过程中编写代码：此窗体上用了3个Adodc控件，Adodc1用来连接日常收支表，Adodc2用来连接收入项目表，Adodc3用来连接支出项目表。使用方法是首先通过Adodc控件与数据库相连，然后将各数据项与数据字段相连。（三）现金收支查询模块的设计与实现1、运行界面：图7：日常收支表表格用来存放查询的结果。表格的主要属性为：图8：查询属性表（四）收入/支出项目维护模块的设计与实现1、运行界面：图9：收入类型设置图10：支出类型设置2、实现过程：收入，支出项目的代码如下：PrivateSubCmd_OK_Click()IfLen(Trim(cob_Flag.Text))=0ThenMsgBox"请选择收支类型"cob_Flag.SetFocusExitSubEndIfIfLen(Trim(dco_Type.Text))=0ThenMsgBox"请选择收支分类"dco_Type.SetFocusExitSubEndIfIfLen(Trim(dco_Acc.Text))=0ThenMsgBox"请选择银行账号"dco_Acc.SetFocusExitSubEndIfIfLen(Trim(txtDate))=0ThenMsgBox"请输入收支日期"txtDate.SetFocusExitSubEndIfIfLen(Trim(txtSum))=0ThenMsgBox"请输入收支金额"txtSum.SetFocusExitSubEndIfIfLen(Trim(dco_Mem.Text))=0ThenMsgBox"请选择使用人"dco_Mem.SetFocusExitSubEndIf'当交易类型为取款（1）时，选择帐户信息后，需要判断是否此账号金额是否足够IfMyAcc.GetInfo(Trim(dco_Acc.BoundText()))AndMyAcc.ASum<Val(txtSum)_Andcob_Flag.ListIndex=1ThenMsgBox"帐户余额不足，请重新选择收支帐户"dco_Acc.SetFocusExitSubEndIfWithMyList.TypeId=Val(dco_Type.BoundText()).UseDate=Trim(txtDate).ANo=Trim(dco_Acc.BoundText()).UseSum=Val(txtSum).MemId=Val(dco_Mem.BoundText()).Memos=Trim(txtMemo).Flag=cob_Flag.ListIndexIfModify=FalseThen.InsertMsgBox"添加成功"Else.Update(OriLId)MsgBox"修改成功"EndIfEndWith'对比现在的收支金额和原来的收支金额DSum=Val(txtSum)-OldSum'更改后将更新对应的帐户信息Ifcob_Flag.ListIndex=0Then'收入MyAcc.UpdateSumTrim(dco_Acc.Text),0,DSumElse'支出MyAcc.UpdateSumTrim(dco_Acc.Text),1,0-DSumEndIfUnloadMeEndSubPrivateSubCheck1_Click()'当选中全部时，将下拉列表数据清空，并设置为不可用状态。IfCheck1.Value=0Thencob_Flag.Enabled=Truedco_Type.Enabled=Truecob_Date.Enabled=TrueElsecob_Flag.Enabled=Falsedco_Type.Enabled=Falsecob_Date.Enabled=Falsedco_Type.Text=""cob_Date.Text=""cob_Flag.ListIndex=-1EndIf'刷新数据DataRefreshEndSubPrivateSubCmd_Add_Click()FrmListEdit.Modify=FalseFrmListEdit.OldSum=0FrmListEdit.txtDate=DateFrmListEdit.txtSum=0FrmListEdit.Show1'刷新数据DataRefreshEndSubPrivateSubCmd_Back_Click()UnloadMeEndSubPrivateSubCmd_Del_Click()IfAdodc1.Recordset.BOF=TrueThenMsgBox"请选择 记录 混凝土 养护记录下载土方回填监理旁站记录免费下载集备记录下载集备记录下载集备记录下载 "ExitSubEndIf'确认删除IfMsgBox("是否确定要删除收支信息？",vbYesNo,"请确认")=vbNoThenExitSubEndIf'删除收支信息MyList.Delete(Adodc1.Recordset.Fields(0))MsgBox"成功删除"'刷新数据DataRefreshEndSubPrivateSubCmd_Modi_Click()IfAdodc1.Recordset.BOF=TrueThenMsgBox"请选择记录"ExitSubEndIfFrmListEdit.Modify=TrueFrmListEdit.OriLId=Adodc1.Recordset.Fields(0)FrmListEdit.cob_Flag.ListIndex=Adodc1.Recordset.Fields(8)'修改时，收支类型不能改变FrmListEdit.cob_Flag.Enabled=FalseFrmListEdit.dco_Type.Text=Trim(Adodc1.Recordset.Fields(2))FrmListEdit.dco_Acc.Text=Trim(Adodc1.Recordset.Fields(3))FrmListEdit.txtDate=Trim(Adodc1.Recordset.Fields(4))FrmListEdit.OldSum=Adodc1.Recordset.Fields(5)FrmListEdit.txtSum=Adodc1.Recordset.Fields(5)FrmListEdit.dco_Mem.Text=Trim(Adodc1.Recordset.Fields(6))IfIsNull(Trim(Adodc1.Recordset.Fields(7)))ThenFrmListEdit.txtMemo=""ElseFrmListEdit.txtMemo=Trim(Adodc1.Recordset.Fields(7))EndIfFrmListEdit.Show1'刷新数据DataRefreshEndSubPrivateSubDataRefresh()DimTmpSourceAsStringDimStrSchAsStringDimStrDateAsString'设置查询条件'判断是否选中“全部”，如果没有则提取不同的查询条件IfCheck1.Value=1ThenStrSch=""ElseIfcob_Flag.ListIndex>-1ThenStrSch="Andl.Flag="+Trim(cob_Flag.ListIndex)EndIfIfLen(Trim(dco_Type.Text()))>0ThenStrSch=StrSch+"Andl.TypeId="+dco_Type.BoundText()EndIfIfLen(Trim(cob_Date.Text))>0ThenStrDate=Format(cob_Date.Text,"yyyy-mm-dd")StrSch=StrSch+"Andl.UseDate=#"+Trim(StrDate)+"#"EndIfEndIfTmpSource="Selectl.Id,IIF(l.Flag=0,'收入','支出')AS收支类型,"_+"t.TypeNameAS分类名称,l.ANoAS账号,l.UseDateAS收支日期,"_+"l.UseSumAS收支金额,m.MemNameAS使用人,l.MemosAS说明,l.Flag"_+"FromInOutListl,Typest,Membersm"_+"Wherel.MemId=m.MemIdAndl.TypeId=t.TypeId"+StrSch_+"OrderByl.UseDateDesc"'MsgBoxTmpSourceAdodc1.ConnectionString=ConnAdodc1.RecordSource=TmpSourceAdodc1.RefreshSetDataGrid1.DataSource=Adodc1DataGrid1.Columns(0).Width=0'编号DataGrid1.Columns(1).Width=2100'收支类型DataGrid1.Columns(2).Width=1000'分类名称DataGrid1.Columns(3).Width=1600'账号DataGrid1.Columns(4).Width=1000'收支日期DataGrid1.Columns(5).Width=1200'收支金额DataGrid1.Columns(6).Width=1000'使用人DataGrid1.Columns(7).Width=1200'说明DataGrid1.Columns(8).Width=0'FlagEndSub（五）信用卡收支与维护管理模块的设计与实现1、运行界面：图11：银行信息管理属性设置2、实现过程：第一步将所需的控件放到窗体的相应位置；方法：首先在“工具箱”中选中所需的控件图标，然后在表单的恰当位置上单击鼠标并拖动鼠标，即可把由所选取的控件生成的对象添加到窗体上。如下图：图12：家庭理财系统属性设置第二步，选择窗体或控件进行属性设置，如图为窗体的属性设置界面:图13：窗体属性设置其它属性和控件的设置方法类似。第三步，双击相应的控件，在控件的相应过程中编写代码。比如DataGrid1控件的主要属性设置如下：图14：DataGrid1控件的主要属性设置（六）登录管理模块的设计与实现界面如下图：图15：登录界面设计主要代码如下：PrivateSubCmd_OK_Click()'判断输入的用户名和密码是否符合 标准 excel标准偏差excel标准偏差函数exl标准差函数国标检验抽样标准表免费下载红头文件格式标准下载 IfTrim(txtUserName)=""ThenMsgBox"请输入用户名"txtUserName.SetFocusExitSubEndIfIfLen(txtPass)<6ThenMsgBox"密码长度不能小于6"txtPass.SetFocustxtPass.SelStart=0txtPass.SelLength=Len(txtPass2)ExitSubEndIfIftxtPass<>txtPass2ThenMsgBox"密码和确认密码不相同，请重新确认"txtPass2.SetFocustxtPass2.SelStart=0txtPass2.SelLength=Len(txtPass2)ExitSubEndIf'判断用户名是否已经存在'如果是插入新的用户，则必须进行判断；如果是修改已有的用户，则当用户名被修改时进行判断WithMyUserIfModify=FalseOrOriUser<>Trim(txtUserName)ThenIf.In_DB(txtUserName)=TrueThenMsgBox"用户名已经存在，请重新输入"txtUserName.SetFocustxtUserName.SelStart=0txtUserName.SelLength=Len(txtUserName)ExitSubEndIfEndIf.UserName=Trim(txtUserName).UserPwd=Trim(txtPass)'根据变量Modify的值决定是插入新数据，还是更新已有的数据IfModify=FalseThen.InsertMsgBox"添加成功"Else.Update(OriUser)'如果修改自身用户名，则更新CurUser对象IfOriUser=CurUser.UserNameAndTrim(txtUserName)<>OriUserThenCurUser.UserName=Trim(txtUserName)CurUser.GetInfo(CurUser.UserName)EndIfMsgBox"修改成功"EndIfEndWithUnloadMeEndSub六、系统使用说明（一）使用说明1、运行于WindowsXP以上操作系统。2、数据库的默认路径：D:设计\家庭理财\家庭理财.mdb3、系统默认密码：admin（二）运行环境：WindowsXP以上操作系统。七、设计心得经过三个多月的设计和开发，家庭理财管理系统基本开发完毕。通过这次毕业设计，在老师的指导下，我初步掌握了用VB开发软件的方法，我在进行设计软件时遇到了一些困难，于是我在老师的提示下，查资料，上网和网友进行探讨。我在程序员之家，网址为http://www.csdn.net上的论坛和高手进行交流，对我受益菲浅。此外我还登录到天极网站看了不少优秀的vb技术文章。这些对我搞好毕业设计起了至关重要的作用。在此再次感谢指导老师对我的悉心指导与帮助。由于时间仓促，这个软件肯定还有不完善的地方，不足之处恳请各位老师提出批评改进 意见 文理分科指导河道管理范围浙江建筑工程概算定额教材专家评审意见党员教师互相批评意见 。我相信,本次毕业设计我为本系统搭下了一个框架，以后我一定在此基础上不断完善它.但是由于毕业设计时间较短，所以该系统还有许多不尽如人意的地方，比如联机文档比较少，用户界面不够美观，出错处理不完善等多方面问题。这些都有待进一步改善。参考文献1、《软件工程》，杨文龙，电子工业出版社，2001年2、《VisualBasic程序设计》，李大友，清华大学出版社，2002年3、《VisualBasic程序设计》，陈明，中央广播电大出版社，2001年4、《VisualBasic6.0程序设计》，刘世峰，中央广播电大出版社，2003年5、《数据库系统概论（第二版）》，萨师煊王珊，高等教育出版社，2001年