家庭理财管理系统数据库课设

目录一、课程设计的目的和意义2二、需求分析3三、概念结构设计（ER图）5四、逻辑结构设计6五、数据实施与维护751建立相应的表。752建立关系图9六、界面设计与代码（用VB作为开发工具）1061登陆界面1062系统主界面。1163基本信息管理界面1264理财信息管理界面1665数据统计管理界面2066用户管理模块22七、结果分析24八、参考文献25家庭理财管理系统一、课程设计的目的和意义家庭理财管理系统可以有效地记录和管理家庭财政的收支情况，合理规划和支配家庭资金，是家庭理财的好帮手，使您生活的更加幸福甜蜜。设计家庭理财管理系统，可以涉及到大多数ACCESS数据库的重要数据库对象、重要功能和特性，比如视图和存储过程等。由此，通过这个课程设计可以加深对这些ACCESS数据库知识的学习、理解，积累在实际工程应用中运用各种数据库对象的经验，从而掌握使用应用软件开发工具开发数据库管理系统的基本方法。本课程设计的主要目的是学习和练习ACCESS数据库的实际应用，所以选择ACCESS作为数据库服务器。二、需求分析家庭理财管理系统是家庭理财的好帮手，包括基本信息管理，理财管理和数据统计等主要功能，具体功能如下基本信息的添加、修改、删除和查询。理财信息的添加、修改、删除和查询。数据统计模块包括日常收支统计，银行交易统计和家庭资产统计等功能。用户管理关系图如下系统用户信息管理修改ADMIN用户的密码创建、修改和删除普通用户信息修改自身的密码ADMIN用户普通用户用户管理关系图系统总体设计图如下家庭理财管理系统基本信息管理银行信息管理收入类型管理支出类型管理家庭理财管理数据统计管理系统用户管理家庭成员馆管理用户信息管理修改自身密码家庭理财管理系统功能模块示意图日常收支管理银行往来管理银行账户管理日常收支统计银行交易统计家庭资产统计系统的流程分析图如下开始用户登录失败重试失败超过三次YESNO退出程序成功读取用户类型ADMIN用户管理自己的用户信息管理普通用户的信息普通用户管理自己的用户信息基本信息管理理财信息管理数据统计管理系统流程分析图三、概念结构设计（ER图）用户用户名密码银行编号简称地点银行名称银行交易信息编号家庭成员表编号银行编号账号利息交易日期交易类型交易金额备注信息定期存款月份日常收支信息成员编号账号金额类型编号人记录编号收支日期管理管理所属匹配四、逻辑结构设计将ER图转换成关系模式用户（用户名，密码）银行（银行编号，银行名称，简称，地点）家庭成员（记录编号，姓名，性别，生日，手机，工作单位）日常支出（记录编号，收支类型编号，收支日期，账号，收支金额，家庭成员编号，备注信息，类型0表示收入，1表示支出）银行账号（记录编号，账户类型，银行编号，家庭成员编号，开户日期，存款类型，账户金额，备注信息）银行交易信息表（记录编号，银行编号，家庭成员编号，交易日期，账号，交易金额，定期存款月份，利息，备注信息，交易类型）五、数据库实施与维护建立数据库打开ACCESS2003，建立数据库FM添加数据表在FM数据库中，添加表如图所示建立相应的表1、用户表2、银行信息表4、日常支出信息表6、银行账号信息表3、家庭成员信息表5、银行交易信息表7、基本信息表建立关系图六、界面设计与代码（用VB作为界面设计语言）1、登录界面其主要代码如下PRIVATESUBCMD_CANCEL_CLICKENDENDSUBPRIVATESUBCMD_OK_CLICKDIMJASSINGLE数据有效性检查IFTXTUSER“THENMSGBOX“请输入用户名“TXTUSERSETFOCUSEXITSUBENDIFIFTXTPWD“THENMSGBOX“请输入密码“TXTPWDSETFOCUSEXITSUBENDIFNAMEKEYTRIMTXTUSERPASSWORDKEYTRIMTXTPWD判断用户是否存在IFMYUSERIN_DBNAMEKEYFALSETHENMSGBOX“用户名不存在“TRY_TIMESTRY_TIMES1IFTRY_TIMES3THENMSGBOX“您已经三次尝试进入本系统，均不成功，系统将关闭“DBAPI_DISCONNECTENDELSEEXITSUBENDIFENDIF判断密码是否正确MYUSERGETINFONAMEKEYIFMYUSERUSERPWDPASSWORDKEYTHENMSGBOX“密码错误“TRY_TIMESTRY_TIMES1IFTRY_TIMES3THENMSGBOX“您已经三次尝试进入本系统，均不成功，系统将关闭“DBAPI_DISCONNECTENDELSEEXITSUBENDIFENDIF登录成功，将当前用户的信息保存在CURUSER中CURUSERGETINFOMYUSERUSERNAME关闭自己UNLOADMEENDSUB2、系统主界面其主要代码如下PRIVATESUBM_USER_CLICKIFUSERNAME“ADMIN“THENFRMUSERMANSHOWELSEMSGBOX“您无此权限“ENDIFENDSUB3、基本信息管理模块银行信息编辑窗体PUBLICORIBIDASLONGPUBLICMODIFYASBOOLEANPRIVATESUBCMD_CANCEL_CLICKUNLOADMEENDSUBPRIVATESUBCMD_OK_CLICKIFLENTRIMTXTBNAME0THENMSGBOX“请输入银行全称“TXTBNAMESETFOCUSEXITSUBENDIFWITHMYBANKBANKNAMETRIMTXTBNAMEBSHORTTRIMTXTSHORTPLACETRIMTXTPLACEIFMODIFYFALSETHENINSERTMSGBOX“添加成功“ELSEUPDATEORIBIDMSGBOX“修改成功“ENDIFENDWITHUNLOADMEENDSUB银行信息管理界面PRIVATESUBCMD_ADD_CLICKFRMBANKEDITMODIFYFALSEFRMBANKEDITSHOW1刷新数据DATAREFRESHENDSUBPRIVATESUBCMD_BACK_CLICKUNLOADMEENDSUBPRIVATESUBCMD_DEL_CLICKIFADODC1RECORDSETBOFTRUETHENMSGBOX“请选择记录“EXITSUBENDIF查找帐户信息ACCOUNT表是否存在此银行编号，如果存在则不允许删除IFMYACCGETINFOADODC1RECORDSETFIELDS0THENMSGBOX“帐户信息中包含此银行信息，不能删除记录“EXITSUBENDIF确认删除IFMSGBOX“是否确定要删除银行信息“,VBYESNO,“请确认“VBNOTHENEXITSUBENDIF删除银行信息MYBANKDELETEADODC1RECORDSETFIELDS0MSGBOX“成功删除“刷新数据DATAREFRESHENDSUBPRIVATESUBCMD_MODI_CLICKIFADODC1RECORDSETBOFTRUETHENMSGBOX“请选择记录“EXITSUBENDIFFRMBANKEDITMODIFYTRUEFRMBANKEDITORIBIDADODC1RECORDSETFIELDS0FRMBANKEDITTXTBNAMETRIMADODC1RECORDSETFIELDS1FRMBANKEDITTXTSHORTTRIMADODC1RECORDSETFIELDS2FRMBANKEDITTXTPLACETRIMADODC1RECORDSETFIELDS3FRMBANKEDITSHOW1刷新数据DATAREFRESHENDSUBPRIVATESUBCMD_SEARCH_CLICKDATAREFRESHENDSUBPRIVATESUBFORM_LOADDATAREFRESHENDSUB刷新数据PRIVATESUBDATAREFRESHDIMSTRSEARCHASSTRINGDIMTMPSOURCEASSTRINGSTRSEARCH“IFLENTRIMTXTBNAME0THENSTRSEARCH“WHEREBANKNAMELIKE“TRIMTXTBNAME“ENDIFTMPSOURCE“SELECTBANKIDAS银行编号,BANKNAMEAS银行全称,BSHORTAS简称,PLACEAS所在地址“_“FROMBANKS“STRSEARCH“ORDERBYBANKID“ADODC1CONNECTIONSTRINGCONNADODC1RECORDSOURCETMPSOURCEADODC1REFRESHSETDATAGRID1DATASOURCEADODC1DATAGRID1COLUMNS0WIDTH1000DATAGRID1COLUMNS1WIDTH2400DATAGRID1COLUMNS2WIDTH1200DATAGRID1COLUMNS3WIDTH2400ENDSUB4、设计收入类型窗体PRIVATEORIIDASLONG类型编号PRIVATEORITYPENAMEASSTRING原来的类型名称类型分类编号，0收入类型；1支出类型PUBLICNFLAGASINTEGERPRIVATESUBCMD_ADD_CLICK添加类型名称，先判断域是否为空IFLENTRIMTXTNAME0THENMSGBOX“请输入类型名称“TXTNAMESETFOCUSEXITSUBENDIF判断数据库中是否已经存在此类型名称IFMYTYPEIN_DBTRIMTXTNAME,NFLAGTRUETHENMSGBOX“已经存在此类型名称TXTNAMESETFOCUSEXITSUBENDIF插入新记录WITHMYTYPETYPENAMETRIMTXTNAMEFLAGNFLAGINSERTMSGBOX“添加成功“ENDWITHDATAREFRESHENDSUBPRIVATESUBCMD_DEL_CLICKIFLENTRIMDATALIST1BOUNDTEXTMSGBOX“请选择记录“EXITSUBENDIF确定删除IFMSGBOX“是否确定要删除“,VBYESNO,“请确认“VBNOTHENEXITSUBENDIF删除类型MYTYPEDELETEVALDATALIST1BOUNDTEXTMSGBOX“删除成功“DATAREFRESH刷新DATALIST1ENDSUBPRIVATESUBCMD_EXIT_CLICKUNLOADMEENDSUBPRIVATESUBCMD_MODI_CLICK修改类型名称IFLENTRIMDATALIST1BOUNDTEXTMSGBOX“请选择记录“EXITSUBENDIF判断新的名称是否和原来的相同IFTRIMTXTNAMEORITYPENAMETHENEXITSUBENDIF判断新的名称是否已经存在IFMYTYPEIN_DBTRIMTXTNAME,NTYPEIDTRUETHENMSGBOX“已经存在此类型名称TXTNAMESETFOCUSEXITSUBENDIF更新名称MYTYPETYPENAMETRIMTXTNAMEMYTYPEUPDATEORIIDMSGBOX“修改成功“DATAREFRESH刷新类型列表ENDSUB设计支出类型窗体支出类型信息管理同上，NFLAG的值为1设计家庭成员信息窗体代码与银行信息编辑类似。家庭成员信息管理主要代码如下PRIVATESUBFORM_LOADDATAREFRESHENDSUB刷新数据PRIVATESUBDATAREFRESHDIMTMPSOURCEASSTRINGTMPSOURCE“SELECTMEMID,MEMNAMEAS姓名,SEXAS性别,BIRTHAS出生日期,“_“MOBILEAS手机,JOBAS工作单位FROMMEMBERSORDERBYMEMID“ADODC1CONNECTIONSTRINGCONNADODC1RECORDSOURCETMPSOURCEADODC1REFRESHSETDATAGRID1DATASOURCEADODC1DATAGRID1COLUMNS0WIDTH0DATAGRID1COLUMNS1WIDTH1000DATAGRID1COLUMNS2WIDTH600DATAGRID1COLUMNS3WIDTH1200DATAGRID1COLUMNS4WIDTH1200DATAGRID1COLUMNS5WIDTH18004理财信息管理模块日常收支信息窗体PUBLICORILIDASLONGPUBLICMODIFYASBOOLEANPUBLICOLDSUMASDOUBLE记录原始收支金额PUBLICDSUMASDOUBLE差值IFLENTRIMTXTDATE0THENMSGBOX“请输入收支日期“TXTDATESETFOCUSEXITSUBENDIFIFLENTRIMTXTSUM0THENMSGBOX“请输入收支金额“TXTSUMSETFOCUSEXITSUBENDIFIFLENTRIMDCO_MEMTEXT0THENMSGBOX“请选择使用人“DCO_MEMSETFOCUSEXITSUBENDIF当交易类型为取款（1）时，选择帐户信息后，需要判断是否此账号金额是否足够IFMYACCGETINFOTRIMDCO_ACCBOUNDTEXTANDMYACCASUM0THENSTRSCH“ANDLFLAG“TRIMCOB_FLAGLISTINDEXENDIFIFLENTRIMDCO_TYPETEXT0THENSTRSCHSTRSCH“ANDLTYPEID“DCO_TYPEBOUNDTEXTENDIFIFLENTRIMCOB_DATETEXT0THENSTRDATEFORMATCOB_DATETEXT,“YYYYMMDD“STRSCH“ANDLUSEDATE“TRIMSTRDATE“ENDIFENDIFTMPSOURCE“SELECTLID,IIFLFLAG0,收入,支出AS收支类型,“_“TTYPENAMEAS分类名称,LANOAS账号,LUSEDATEAS收支日期,“_“LUSESUMAS收支金额,MMEMNAMEAS使用人,LMEMOSAS说明,LFLAG“_“FROMINOUTLISTL,TYPEST,MEMBERSM“_“WHERELMEMIDMMEMIDANDLTYPEIDTTYPEID“STRSCH_“ORDERBYLUSEDATEDESC“MSGBOXTMPSOURCEADODC1CONNECTIONSTRINGCONNADODC1RECORDSOURCETMPSOURCEADODC1REFRESHSETDATAGRID1DATASOURCEADODC1DATAGRID1COLUMNS0WIDTH0编号DATAGRID1COLUMNS1WIDTH2100收支类型DATAGRID1COLUMNS2WIDTH1000分类名称DATAGRID1COLUMNS3WIDTH1600账号DATAGRID1COLUMNS4WIDTH1000收支日期DATAGRID1COLUMNS5WIDTH1200收支金额DATAGRID1COLUMNS6WIDTH1000使用人DATAGRID1COLUMNS7WIDTH1200说明DATAGRID1COLUMNS8WIDTH0FLAGENDSUB银行交易信息管理代码与日常收支信息编辑窗体类似银行交易信息管理主要代码刷新数据PRIVATESUBDATAREFRESHDIMTMPSOURCEASSTRINGDIMSTRSCHASSTRING判断是否选中“全部”，如果没有则提取不同的查询条件IFCHECK1VALUE1THENSTRSCH“ELSEIFLENTRIMDCO_BANKTEXT0THENSTRSCH“ANDOBID“DCO_BANKBOUNDTEXTENDIFIFLENTRIMDCO_MEMTEXT0THENSTRSCHSTRSCH“ANDOMEMID“DCO_MEMBOUNDTEXTENDIFIFLENTRIMDCO_ACCTEXT0THENSTRSCHSTRSCH“ANDOANO“DCO_ACCBOUNDTEXT“ENDIFENDIFTMPSOURCE“SELECTOID,BBANKNAMEAS银行名称,MMEMNAMEAS交易人姓名,OANOAS账号,“_“OOPERDATEAS交易日期,OOPERSUMAS交易金额,“_“IIFOFLAG0,存款,IIFOFLAG1,取款,清户AS交易类型,“_“OSMONTHAS定期月份,OINTERESTAS实际利息,OMEMOSAS说明,OFLAG“_“FROMBANKOPERO,BANKSB,MEMBERSM“_“WHEREOBIDBBANKIDANDOMEMIDMMEMID“STRSCH_“ORDERBYOOPERDATEDESC“ADODC1CONNECTIONSTRINGCONNADODC1RECORDSOURCETMPSOURCEADODC1REFRESHSETDATAGRID1DATASOURCEADODC1DATAGRID1COLUMNS0WIDTH0编号DATAGRID1COLUMNS1WIDTH2100银行名称DATAGRID1COLUMNS2WIDTH1000交易人DATAGRID1COLUMNS3WIDTH1600账号DATAGRID1COLUMNS4WIDTH1000交易日期DATAGRID1COLUMNS5WIDTH1200交易金额DATAGRID1COLUMNS6WIDTH1000交易类型DATAGRID1COLUMNS7WIDTH1200定期月份DATAGRID1COLUMNS8WIDTH1000实际利息DATAGRID1COLUMNS9WIDTH1200说明DATAGRID1COLUMNS10WIDTH0FLAGENDSUB5、数据统计模块管理日常收支统计PRIVATESUBDATAREFRESHDIMSTRSCHASSTRINGDIMTMPSOURCEASSTRINGDIMSTRDATE1ASSTRINGDIMSTRDATE2ASSTRINGIFCOB_MONTHLISTINDEX0THEN如果月份大于0，则开始日期为本月1日STRDATE1TRIMCOB_YEARTEXT“TRIMCOB_MONTHLISTINDEX“01“IFCOB_MONTHLISTINDEX12THEN如果月份为12，则结束日期为下一年度1月1日STRDATE2TRIMVALCOB_YEARTEXT1“0101“STRSCH“ANDLUSEDATE“STRDATE1“ANDLUSEDATE0THEN如果月份大于0，则开始日期为本月1日STRDATE1TRIMCOB_YEARTEXT“TRIMCOB_MONTHLISTINDEX“01“IFCOB_MONTHLISTINDEX12THEN如果月份为12，则结束日期为下一年度1月1日STRDATE2TRIMVALCOB_YEARTEXT1“0101“ELSESTRDATE2TRIMCOB_YEARTEXT“TRIMCOB_MONTHLISTINDEX1“01“ENDIFSTRSCH“ANDOOPERDATE“STRDATE1“ANDOOPERDATETXTPASS2THENMSGBOX“密码和确认密码不相同，请重新确认“TXT