个人财务管理系统知识讲义

1、爱个人财务管理系耙统第一章 绪论1.1课题背景哎 当今社邦会越来越着朝着碍信息化和数字化班法发展，计算机摆的应用领域使我吧们的生活越来越瓣方便和快捷，可般以说我们的每个按人生活都离不开碍计算机的帮助了暗。越来越多的个阿人应用软件成为傲了人们重要的助岸手，也在潜移默伴化的改变着我们阿的生活。背 随着市爱场经济的发展，办我国居民对理财班有着越来越高的把要求。理财，是拔每个家庭和个人吧所必须面对的问斑题。现在，关于爸企业的会计制度矮逐渐完善，而且靶针对企业的财务唉软件以及EPR跋(enterp胺rise re摆source 矮plannin板g)系统也在飞埃速发展，但针对白个人或家庭的财艾务系统目前

2、还是啊一段空白。昂 实际生板活中经常要对个敖人的各项财务收半支进行管理，本啊课题的目的就是八利用计算机对各爱项财务进行电子邦化的管理，使我搬们的理财更加方半便和理性化，提靶升我们生活的质俺量和品位。课题意义阿 我们经霸常看到企业的一办些财务报表，这搬些报表主要是关邦注企业的资产负隘债表和损益表。扮简单的说，前者案是反映这个企业跋有多少钱，是存拜量；后者，反映颁了企业在一定时稗间能赚到多少钱扳，是流量。哎 其实，搬对一个人或者家鞍庭的财务情况，啊也是关注这两个蔼方面。关注家里半存多少钱，关注奥今年赚了多少钱哎，花了多少，借拔出什么等等。扳 要做到哎这些需要对大量蔼的数据做存储和癌计算，工作是相傲

3、当的复杂繁琐和斑枯燥的，因而这胺些问题容易被人坝忽略。我们纵然傲可以为生活中的啊每一笔花销记账背，但是对这样大哎量的数据做分类叭处理确实是一个阿会令大多数人头班疼的问题，如果霸有一个个人理财啊的软件理财的软般件对我们的日常班财务进行那样的佰繁琐的数据处理百和计算工作，相霸信可以让我们理胺财的效率大大提鞍高。这样一个软办件不但可以方便扮我们的生活，更安可以使我们对自败己的财务状况有疤一个清楚的了解稗。傲与此同时，这样熬的一个软件开发阿和制作也是对我案们大学学到各种背知识进行的一次拜综合运用的一个吧好机会，是对我罢大学学习的一个凹检验和实践。背第2章 半可行性分析爱2.2.1柏 可行性分析斑当接受

4、一个软件凹开发任务，就进阿入软件生命的第哀一个阶段，即进案行可行性的研究唉。并不是所有问敖题都具有简单的扳解决办法，许多安问题不能在预定唉的规模之内解决般。可行性分析就扒是在系统调查的奥基础上，针对新芭系统的开发是否拌具备必要性和可熬能性，对新系统哎的开发从技术、搬经济、社会的方矮面进行分析和研叭究，以避免投资皑失误，保证新系矮统的开发成功。拜可行性研究的目挨的就是用最小的摆代价在尽可能短安的时间内确定问伴题是否能够解决按。皑2.1.2霸 技术可行性癌根据客户提出的吧系统功能、性能矮及实现系统的各败项约束条件，根搬据新系统目标，啊来衡量所需的技袄术是否具备。本懊系统主要采用数盎据库管理方法，傲

5、服务器选用微软埃的SQL Se坝rver伴 2008颁数据库，他是它扮是目前能处理所凹有中小型系统最扒方便的流行数据伴库，它能够处理皑大量数据，同时瓣保持数据的完整半性并提供许多高疤级管理功能。它袄的灵活性、安全耙性和易用性为数百据库编程提供了白良好的条件。硬笆件方面，该系统颁短小精悍对赢家摆没有太大要求，瓣只要能够运行凹W唉indows 白7拔就可以很好的运敖行该软件。另外袄在划单操作中可按用磁条来触发事肮件的响应，这项啊技术也已经很成蔼熟。班2.1.3般 操作可行性叭本系统采用用户拌界面交互方式，搬并有必要的帮助皑信息，操作简单阿，用户只要具备爱简单的应用计算柏机的能力，无论按学历，无论背

6、景办，均可以使用本袄系统，用户界面熬上的按钮的功能把明确，用户一看八就可以了解怎么叭使用本系统，以皑及本系统能够完胺成的功能，因此摆本系统在操作上稗是可行的。罢2.1.2吧 经济可行性案估算新系统的成肮本效益分析，其袄中包括估计项目按开发的成本，开鞍发费用和今后的隘运行、维护费用昂，估计新系统将矮获得的效益，估癌算开发成本是否懊回高于项目预期版的全部经费。并叭且，分析系统开办发是否会对其它板产品或利润带来吧一定影响。本系澳统作为一个课程案设计，没有必要跋考虑维护费用，瓣以及本系统可获挨得的效益等问题挨。芭2.1.4耙 法律及社会效岸益方面的可行性跋由于本系统只是阿一个课程设计，安在图书馆查询相

7、瓣关资料因此不存摆在侵权等法律与邦社会影响方面的俺问题，不存在侵摆权级相应的法律皑问题。傲关于效益方面，佰本系统仅仅是一阿个课程设计，只挨是为了提高自己斑的分析，设计能柏力，而非为了社班会效益而编写设佰计，因此社会效败益方面也是可行爱的。哀第3章 需求分拌析靶3.1 用户需班求埃本系统是针对用艾户要求，使用计笆算机对自己日常安的资金和物品的巴收入、支出以及叭相关的各种信息捌进行记录、修改傲、添加、删除等拜操作，并实现对敖信息进行统计和鞍以文档形式输出癌的操作而设计的霸一种现代化个人把财务管理软件。拌经过分析，本系柏统需要具有以下挨功能：跋1熬、能够实现个人瓣财务管理方面各般项功能，能成功板的对

8、用户各种信岸息进行管理。巴2胺、实现查询、修凹改、删除、添加澳数据方便，数据叭的稳定性和可靠熬性好。蔼3、能够实现按胺日期查询以及对熬库存数据进行按摆月统计和以文本板形式输出。胺4、拥有良好的鞍人机交互界面。肮3.2 功能需搬求系统业务需求懊本系统具有以下安几个功能模块：皑用户登录模块、爸系统管理模块、拌收支管理模块班、伴报表拜统计模块。用户鞍登录模块为每个蔼用户分配账号密笆码使得个人的财蔼务信息具有隐私罢性，爸收支管理模块能绊有效的管理用户氨的现金，可以进坝行添加，查询，翱删除操作靶，扒报表扳统计模块使得用俺户能够查询用户氨某月的金钱和物盎品统计信息，能昂够让用户背对自己每月或一班段时间的收

9、支情袄况，系统管理模拌块可以让用户修拔改密码。登陆功能安对于个人财务管胺理系统，我们要挨求软件满足用户暗对个人财务的隐熬私性管理，确保蔼在用户以外的其澳他人使用软件对办其信息进行操作白，所以要采用用百户注册和登录制昂度，确保用户对按自己财务信息的阿隐私管理。斑收支吧管理模块功能熬现金管理模块是鞍用户对现金进行案添加、删除、修爱改操作的模块，笆提供用户对现金澳的收入支出进行昂操作的功能，使爱得当用户的记录皑需要修改时，可扒以方便的添加和办修改。捌报表艾统计管理模块按提供用户对现金坝收支信息和物品哀收支信息进行统啊计输出功能。系统管理模块按系统管理模块提搬供用户对用户个斑人信息的管理和背修改的功能

10、。系统技术需求案稳定性：本系统疤为财务管理系统吧，多为查询、修按改、删除、添加半数据等操作，要罢求数据的稳定性胺好。按可靠性：用户财邦务数据多比较重扳要，要求系统具扒有数据备份，数颁据恢复等性能。扒安全性：系统设背计个人银行账号拌以及密码的保存瓣，要求系统提供跋加密保存等安全奥措施，即要求系颁统有较高的安全蔼性能。 数据流图数据字典埃名称：收支信息哀报表别名：昂描述：描述某日笆收支信息胺定义：收入报表蔼=【收入|支出邦】+金额+原因搬+日期班位置：显示给用耙户懊名称：收支统计案报表别名：疤描述：描述某月柏收支收支信息碍定义：月收支信搬息=收入总额+爸支出总额+日期班位置：显示给用伴途状态转换图

11、昂状态转换图模拟斑系统的行为模型哀，把系统概括的肮分为几个状态，哎并表示触发状态罢转换的事件，由碍于该系统是医院敖内部使用的小型拌系统故不用设置袄登录功能，打开敖系统自动初始化班为等待状态，接肮受事件，并根据俺事件类型进入相扮应状按4.2.1爱 ER 图耙数据库的ER图艾如下所示：八 八 爸 俺 啊 懊 图4八.2 ER 懊图巴其中用户编号是耙用户的主键，每绊个用户都有唯一把的编号，其中收伴入编号是收入的伴主键，收入类型爱包括买入、借入安，收入，如果是拜金钱，金额就是暗金钱的数量，备皑注就是对事件的皑详细说明，支出阿联系同收入联系懊，支出类型包括靶：借出、卖出、爱支出，备注可以拔填写用途或原因

12、八的说明。氨第四章：总体设扒计熬4.1：层次结坝构图邦把整个系统分为埃收支管理傲，唉报表柏统计管理，系统背管理四个模块，案收支管理模块分把为添加收入，添哎加支出，修改收邦入，修改支出，稗查询收支，删除敖收支6个模块，板统计管理模块分搬为物品统计信息蔼，收支统计信息哀两个模块，收支俺管理模块分为修澳改密码，数据备岸份，数据恢复，捌系统说明，退出八系统5个部分，爸每个模块完成的奥功能可以从名字熬上明显的看出。笆层次从结构图如柏下所示：个人财务管理收支管理统计管理添 加 收 入添加支出管理类型添加类型系统管理收支明细年度统计修改密码添加用户修改用户退出系统昂 鞍 罢 翱 捌 图4.1 伴层次结构图碍

13、4.2：数据库拌设计败4.2.2鞍 数据库表表4.1用户表班序号摆字段中文名背字段英文名摆类型、宽度、精白度氨取值约束哎空否肮默认值敖主键/外键哎1瓣用户编号背UserID扒bigint懊否班主键版2案用户名埃UserNam靶e稗varchar佰(50)靶少于50字符绊否伴3叭密码俺Passwor敖d皑varchar安(50)靶少于50字符板否拌表4.2 支出瓣信息表扮序号半字段中文名拜字段英文名败类型、宽度、精叭度挨取值约束埃空否柏默认值岸主键/外键哎1敖支出物资编号耙PayoutI啊D疤bigint碍否俺主键版2埃用户编号翱UserID笆bigint败否唉外键办3叭支出类型氨Paykind

14、唉varchar拜 (50)隘否熬4绊支出物资类型安payoutk扳ing挨V鞍archar(败50)哎否摆5半支出金额般PayAcco挨unt暗float扮否拜6爸支出时间奥PayTime跋date盎否熬7盎备注矮Remark鞍varchar敖（200）百少于200字符扳表4.3 收入八信息表哀序号癌字段中文名扳字段英文名暗类型、宽度、精邦度案取值约束背空否绊默认值颁主键/外键盎1肮收入信息编号艾IncomeI安D暗bigint懊否叭主键癌2叭用户编号半UserID邦bigint八否暗外键颁3案收入类型岸Inkind把varchar哀 (50)奥否柏4般收入物资类型靶Payinki俺nd吧V

15、archar坝(50)爸否哀5安收入金额芭InAccou唉nt坝float哎否板6傲收入时间巴InTime芭date芭否岸7盎备注扮Remark俺varchar板（200）耙少于200字符阿第五章：详细设坝计皑5.1界面设计爸：袄一个好的用户界绊面能够给用户一肮个好印象，甚至半能够事半功倍，安有的时候，即使隘软件设计的很好办，但用户界面不巴符合用户操作的邦习惯，也可能会般让用户不满意，疤因此说，一个好哎的用户界面是至凹关重要的。扳本系统的界面设白计如下：霸主界面耙左侧有四个选项瓣，分别对应层次摆图的四个模块，挨分别为：用户收哎支管理爱，统计查询，系拜统百管理矮，俺用户管理，拔每个选项下面还鞍有

16、相应的几个子绊选项，完成相应叭的添加、查询、瓣修改、删除操作奥，右侧为正文部颁分，显示用户需邦要的信息。用表凹单的形式显示出办来。唉5.2邦数据库查询设计奥输出的显示主要败是对数据库的组暗合或单独查询得凹出的结果，三个皑表用用户的编号颁联系起来，在用爱户表中用户的编暗号是主键，在收爱入表中和支出表罢中则是作为外键捌，三个表组合查跋询就可以查到想唉要的所有信息。俺其中收入类型填敖写金钱收入，借俺入物品，买入物颁品：收入物资类办型填写物品、金癌钱，支出类型填啊写金钱支出，物百品借出，物品卖搬出；备注填写原扒因后用途。奥5.3登录界面俺数据流程图版图5.1 登录挨界面数据流程图登录模块代码：%隘if

17、 requ唉est(ad芭min)=按 登 陆 暗then柏UserNam埃e=reque扒st.form胺(UserN邦ame)凹PassWd=凹md5(req啊uest.fo袄rm(Pas伴sWd)板set rs=袄server.柏CreateO爱bject(霸ADODB.R扮ecordSe版t)袄sql=se佰lect * 搬from u耙ser wh巴ere use稗rname=拜&UserN芭ame&哎rs.Open拔 Sql,co扒nn,1,1爱if rs(扮passwor邦d)Pa跋ssWd th唉en凹respons暗e.write跋alert版(伴啊用户或密码错误哀芭);lo

18、cat按ion.hre疤f=java艾script:爱history鞍.go(-1)把;袄respons扒e.endelse凹Respons耙e.Cooki胺es(key白)=gu_稗ke 盎Respons凹e.Cooki安es(key耙).expi败res=dat芭e+2败Respons摆e.Cooki邦es(use敖r)=rs(败userna瓣me) 笆Respons拌e.Cooki百es(use安r).exp吧ires=da巴te+2颁Respons扮e.Cooki耙es(id捌)=rs(i昂d) 鞍Respons跋e.Cooki柏es(id昂).expir扮es=date板+2暗res

19、pons岸e.redir版ect ad氨min.asp鞍end if傲rs.clos摆eend if%扳艾扮巴登陆页面耙稗functio碍n Check巴Form() 盎拔 鞍 if (d班ocument稗.form1.案UserNam扒e.value颁=)鞍 耙 绊 凹 ale熬rt(用户不肮能为空);昂 吧 doc昂ument.f板orm1.Us耙erName.唉focus()哎;八 蔼 ret拌urn fal埃se;笆 碍 翱 白 if (d搬ocument叭.form1.板Passwd.啊value=佰)办 蔼 澳 哎 al袄ert(密码凹不能为空);敖 扳 do稗cument.疤fo

20、rm1.P肮asswd.f捌ocus();暗 百 re瓣turn fa安lse;败 袄 挨柏扒跋 碍用户：邦矮密码：八 白袄添加用户模块：翱唉傲斑案靶八%拔set rs=八server.邦createo奥bject(疤adodb.r拔ecordse班t) 爱sql=se邦lect * 耙from u啊ser wh隘ere id=埃&Reque哀st.Cook蔼ies(id佰)罢rs.open翱 sql,co埃nn,1,1疤if rs(搬admin)版1 the盎n袄Respons版e.Write版 aler板t(系统超时昂);this绊.locati碍on.href熬=index傲.asp;俺

21、rs.clos百e罢respons按e.endend If办If Requ班est.for芭m(add疤)= 添 加隘 Then埃Set rs=邦Conn.Ex霸ecute(胺Select 鞍* From 按user 把Where u瓣sername八=&Req胺uest.fo跋rm(use胺r)&柏)傲If Not 爱(rs.Eof拔 or rs.隘Bof) Th拌en扒Respons摆e.Write稗 aler岸t(该用户已俺存在);th矮is.loca案tion.hr按ef=add安_user.a班sp;傲Respons斑e.End靶rs.clso阿eend if把If requ柏est

22、.for埃m(pwd2把) r皑equest.扳form(p办wd3) t办hen摆Respons背e.Write白 aler阿t(两次密码哀不相同);l哎ocation盎=javas白cript:h傲istory.安back(-1靶)邦Respons芭e.Endend if百Set rs 笆= Serve扳r.Creat背eObject岸(ADODB挨.Record芭Set)败Sql = 安Select 办* From 懊user 办Where (按ID is n叭ull)霸rs.Open把 皑Sql佰,班Conn唉,1,3拌rs.addN柏ew芭rs(use坝rname)百 = Requ跋

23、est.for跋m(user搬)扒rs(adm板in) = 阿Request百.form(霸admin)凹md5pwd=挨md5(req敖uest(n邦ame2)绊rs(pas癌sword)板=md5(re皑quest.f版orm(pw埃d2)按rs.Upda澳te般rs.Clos翱e袄Respons白e.Write俺 aler岸t(操作成功班);this蔼.locati拌on.href半=t_use盎r.asp;半end if%笆懊懊俺矮 罢 伴 用户：伴 敖 颁 瓣 肮 权限：傲 摆 拔 八普通用户暗 罢 板管理员暗 般 版- 请选择拌 笆 瓣 密码：爱 吧拌 霸 傲 重复密码：把 哎版

24、敖 氨 翱艾 扮 盎 阿管理用户：扳败把唉俺暗%肮set rs=皑server.矮createo氨bject(敖adodb.r按ecordse拌t) 案sql=se昂lect * 坝from u百ser wh般ere id=案&Reque背st.Cook懊ies(id扮)懊rs.open哀 sql,co芭nn,1,1绊if rs(鞍admin)佰1 the斑n八Respons扒e.Write拜 aler叭t(系统超时绊);this澳.locati搬on.href哎=index把.asp;按rs.clos搬eend if柏If Requ傲est.for斑m(user坝)= 修 瓣改 The矮n皑

25、Set rs 敖= Serve按r.Creat笆eObject肮(ADODB笆.Record碍Set)碍Sql = 胺Select 百* From 笆user 拜Where i岸d=&Req伴uest(i凹d)&捌rs.Open懊 叭Sql挨,笆Conn吧,1,3皑rs(adm安in) = 哀Request氨.form(扒admin)挨rs.Upda叭te碍rs.Clos昂e把Respons敖e.Write芭 aler哀t(操作成功袄);this爸.locati搬on.href叭=t_use昂r.asp;啊end if%袄扒肮 暗 敖 用户：伴 哎 肮 蔼 权限：罢 扒管理员inp败ut na

26、me白=admin拌 type=安radio埃 value=般1 /伴  澳; 普通用户芭input n扳ame=ad班min ty鞍pe=rad盎io val版ue=0 坝 / 案 搬 般 鞍 盎佰 绊 挨 矮耙显示当前用户及颁退出模块：霸 吧 佰 胺 皑 当前班用户: 退出挨 哎 拜矮管理收入类型模霸块:班摆芭澳斑敖%岸idd=Req隘uest.Co巴okies(肮id)八If Requ暗est.for埃m(add靶)= 添 加盎 Then扳paytype爸 = Trim安(Reques昂t.Form(靶paytyp矮e)昂io = Tr巴im(Requ罢est.For昂m(io)

27、版)敖Set rs=稗Conn.Ex袄ecute(隘Select 白PayType岸 From 俺type W案here us矮er=&id扒d& and爱 PayTyp肮e=&pa案ytype&疤)啊If Not 芭(rs.Eof岸 or rs.扮Bof) Th癌en疤Respons坝e.Write爱 aler拔t(该类型已背存在);th敖is.loca安tion.hr瓣ef=add败_type.a柏sp;背Respons搬e.End班rs.clso挨eelse斑Set rs 案= Serve氨r.Creat稗eObject阿(ADODB暗.Record阿Set)拔Sql = 颁Select

28、 疤* From 鞍type 半Where (颁ID is n背ull)耙rs.Open跋 霸Sql颁,靶Conn半,1,3敖rs.addN班ew巴rs(Pay叭Type) 搬= payty皑pe耙rs(dat哎e) = n癌ow()傲rs(InO熬ut) = 矮io皑rs(use巴r) = i摆dd暗rs.Upda坝te班rs.Clos爸eEnd if白Respons埃e.Write俺 aler百t(操作成功澳);this爱.locati岸on.href唉=type.败asp;罢end if%霸澳爱扒拜 叭 懊 费用类型：瓣 笆 靶 爱 矮 所属类型：傲 傲 肮 霸收入背 敖 肮支出百 半

29、叭- 请选择靶 埃 般 颁鞍 绊 暗 摆管理类型模块：隘翱疤岸稗按%办idd=Req矮uest.Co岸okies(挨id)版If Requ捌est.for哎m(type隘)= 修 埃改 The岸n蔼paytype阿 = Trim白(Reques皑t.Form(扮paytyp埃e)疤Set rs=伴Conn.Ex柏ecute(扮Select 跋PayType疤 From 巴type W翱here us癌er=&id案d& and案 PayTyp扳e=&pa笆ytype&芭)稗If Not 艾(rs.Eof邦 or rs.扮Bof) Th埃en艾Respons扳e.Write爸 aler翱t(该类

30、型已矮存在);th扒is.loca白tion.hr唉ef=jav扒ascript扒:histor翱y.back(捌-1);啊唉Respons凹e.End哎rs.clso奥eelse矮Set rs 白= Serve傲r.Creat巴eObject版(ADODB半.Record办Set)邦Sql = 白Select 阿* From 拌type 办Where u伴ser=&i艾dd& an般d id=&伴Request矮(id)&扒扮rs.Open傲 安Sql班,盎Conn矮,1,3安rs(Pay拌Type) 碍= payty懊pe稗rs.Upda版te办rs.Clos氨eEnd if拜Respon

31、s半e.Write啊 aler柏t(操作成功唉);this板.locati蔼on.href扳=type.隘asp;芭end if%拜坝埃案柏 鞍 暗 费用类型：霸 inp背ut name扮=payty爱pe typ疤e=text般 size=绊30 ma肮xlength俺=30 v哎alue= /安 爱 盎 败 昂 添加日期：案 凹 拔 般 所属类型：爱 %隘柏If rs(笆InOut)挨=0 Then澳按Respons瓣e.Write颁 支出Else半疤Respons白e.Write俺 收入End if敖埃%搬 邦 扳 芭隘 埃 昂 挨埃添加收入、添加氨支出模块：跋俺%皑idd=Req笆ue

32、st.Co碍okies(笆id)按InOut =哀 Reques阿t(add翱)肮If Requ肮est.for癌m(add靶)= 添 加佰 Then霸adddate八 = Requ懊est.For啊m(addd坝ate)碍selpaye靶r = Req碍uest.Fo白rm(sel凹payer)捌seltype暗 = Requ拔est.For耙m(selt案ype)啊moneys 翱= Trim(鞍Request耙.Form(皑moneys般)半pjna = 爱Trim(Re叭quest.F盎orm(pj霸na)捌if selt般ype= 皑then绊Respons翱e.Write哎 ale

33、r碍t(请先添加罢相关费用类型!笆);loca邦tion=a扮dd_type伴.asp案瓣Respons唉e.Endend if袄Set rs 靶= Serve拜r.Creat班eObject芭(ADODB俺.Record啊Set)爸Sql = 背Select 案* From 伴list 拌Where (绊ID is n坝ull)白rs.Open般 按Sql百,敖Conn半,1,3八rs.addN案ew靶rs(InO佰ut) = 熬InOut伴rs(Pay白TypeID搬) = sel佰type奥rs(Mon搬eys) =拔 moneys昂rs(Pro百ject) 半= pjna盎rs(add

34、矮Time) 柏= addda暗te罢rs(use唉r) = i俺dd阿rs.Upda坝te爸rs.Clos绊e板Respons芭e.Write坝 aler蔼t(操作成功矮);this凹.locati搬on.href安=pay.a背sp;End if%埃氨爸敖爸颁肮functio瓣n Check邦Form() 袄肮 捌 if (d瓣ocument按.form1.半adddate敖.value=芭=)坝 暗 俺 拜 ale碍rt(请选择八日期);巴 啊 ret拜urn fal笆se;绊 叭 傲 爱 if (d把ocument按.form1.办moneys.扳value=胺)班 鞍 爸 胺 al扒

35、ert(金额鞍不能为空);霸 白 do暗cument.艾form1.m跋oneys.f霸ocus();半 靶 re胺turn fa懊lse;瓣 隘 胺 唉 if (d斑ocument稗.form1.澳pjna.va芭lue=半)啊 扮 盎 癌 al吧ert(项目扒名称不能为空坝);碍 哎 do吧cument.岸form1.p吧jna.foc唉us();坝 癌 re捌turn fa暗lse;吧 熬 拌绊阿翱 靶 板 败笆%If In癌Out=1 T班hen跋Respons罢e.Write艾 添 熬加 收 入Else阿Respons碍e.Write敖 添 加摆 支 出End if搬% 翱盎 凹 斑

36、 日期：捌 叭 拜 哎 癌 拜 费用类型版：安 %捌set rs=半server.袄createo般bject(昂adodb.r邦ecordse安t)翱sql=se爱lect * 伴from t办ype Wh吧ere use版r=&idd班& and 暗InOut=鞍&InOut&鞍暗rs.open敖 sql,co八nn,1,1吧do whil扮e not r半s.eof半sel=se伴lected捌 伴respons盎e.write翱 邦+rs(Pa癌yType)熬+c澳hr(13)+熬chr(10)疤rs.move耙nextloop皑rs.clos办e%胺 绊 - 请选办择捌 巴 搬 金额

37、：矮 绊瓣 昂叭 （输入数字拔整数 如：25般0）摆 巴 办 项目名称：盎爸 拔 邦 叭 坝 傲 癌般收支明细统计模氨块：坝奥%爱idd=Req拔uest(i暗d)靶If Requ袄est(哎del熬) = 拌del扳 Then颁Set rs 摆= Conn.爱Execute澳(Delet挨e * Fro跋m list凹 where搬 user=啊&idd& 颁and ID 背=&Requ安est(id半)哀Respons岸e.Write靶 aler柏t(操作成功鞍);this罢.locati按on.href颁=pay.a艾sp;拜rs.clos安eEnd if%爸盎挨袄柏唉functio柏n

38、 delpa板y()耙 if(c伴onfirm(半确定删除？盎)阿 re柏turn tr按ue; else瓣 re搬turn fa瓣lse;案拌 碍肮罢 百 澳 用户: 拜 &n败bsp;&nb般sp;&nbs佰p; 按;暗 收 支 明班 细 表 俺 编号霸 项目名称班 败类 型拜笆 艾金 额佰邦 奥添加日期 % 巴set rs=凹server.耙createo班bject(绊adodb.r巴ecordse艾t) 坝sql=se皑lect * 爱from l埃ist wh伴ere use翱r=&idd扒& orde岸r by ad拌dtime d斑esc拌rs.open佰 sql,co

39、埃nn,1,1隘const m鞍axperpa搬ge=20 凹每一页显示 瓣 胺 哀 跋 艾 爱dim cur隘rentpag罢e 奥 扒 昂 八 爱 盎rs.page挨size=ma稗xperpag霸e 碍 敖 版 败 傲 捌current疤page=re般quest.q凹uerystr罢ing(pa凹geid) 背 白 办 扮 吧 爱if curr摆entpage摆= the把n 敖 笆 岸 版 白 胺current安page=1 伴 背 熬 扒 拌 伴elseif 扳current跋page rs.p爱agecoun靶t then 板 班 班 唉 拜 懊胺current岸page=rs拌

40、.pageco拜unt 叭 八 疤 蔼 矮 暗阿end if 懊 八 叭 班 爸 百end if 昂 颁 矮 袄 摆 胺 袄 搬 艾 敖 吧if not 敖isnumer懊ic(curr板entpage败) then 埃 暗 埃 八 叭 皑current盎page=1 罢 按 蔼 罢 熬 拌end if 跋 奥 暗 肮 暗 艾dim tot翱alput,n般 鞍 耙 矮 哀 拜totalpu奥t=rs.re袄cordcou佰nt 拜 隘 澳 霸 袄 把if tota艾lput mo白d maxpe扒rpage=0背 then 败 霸 啊 爸 佰 坝n=total伴putmax胺perpage哎

41、 疤 板 肮 袄 挨else 埃 巴 袄 蔼 办 罢n=total瓣putmax瓣perpage扒+1 瓣 安 摆 癌 安 碍end if 瓣 奥 跋 巴 叭 般if n=0 邦then 俺 挨 半 霸 哀 癌n=1 颁 扮 翱 癌 笆 办end if 霸 隘 敖 肮 澳 熬rs.move霸(curren捌t1白)*maxpe罢rpage 拜 岸 岸 坝 懊 板i=0 捌 邦 板 芭 邦 熬do whil唉e i 懊 扒 巴 爸 %八伴If InOu扮t=1 The叭n昂靶Respons八e.Write靶 &rs(熬Moneys霸)&Else啊拜Respons蔼e.Write爸 -&rs(碍M

42、oneys耙)&End if懊板%案 吧隘癌颁白 翱 绊 斑 碍 爱页数：/ 坝 扒 吧 半 败%k=cur背rentpag啊e 芭 傲 版 鞍 爸 盎 唉 捌 巴 胺 把 跋 if k扳1 then%暗 案 澳 班 佰首 页 扒;吧a hre扒f=ad_pa岸y.asp?p叭ageid=蔼上一页 伴 &奥nbsp;&n伴bsp;首 扒页 袄;拔上一页&n澳bsp; 蔼 跋 扮 稗 疤 般 凹 阿 邦 笆 碍 啊暗%if kn then奥% 啊 胺 胺 案 扮 稗 安 矮 疤 肮 皑 哀a hre捌f=ad_pa背y.asp?p安ageid=安下一页 巴;稗a hre版

43、f=ad_pa把y.asp?p袄ageid=尾扒 页柏 佰 坝下一页&nb白sp;&nbs罢p;尾 页敖 般 八 柏 阿 熬 捌 啊 捌 翱 埃 版 耙 坝共有 条记鞍录氨板啊 唉 疤年度统计模块：板半班扮版阿爱拜functio爸n Chk(t矮heForm)斑if (the阿Form.ni版an.valu唉e = 瓣)八 半 扮 alert岸(请输入你要败统计的年份!敖);摆 胺 俺 theFo百rm.nian唉.focus(翱);暗 八 澳 retur唉n (fals凹e);癌 el胺se矮哎updated按.style.啊display鞍 = ;扮吧唉安 斑 艾 凹 矮 扮用户: 挨 &

44、nb八sp;&nbs佰p; 芭;半 艾伴 昂 -请选择-把-%挨idd=Req版uest(i扒d)把Set rs 澳= Conn.八Execute败(Selec班t disti笆nct yea霸r(addTi斑me) Fro扒m list白 where碍 user=唉&idd&百)隘Do Whil坝e Not r伴s.Eof 班Respons半e.Write胺  敖;邦 & rs(皑0) & 癌rs.Move艾NextLoop霸rs.clos巴e%拜 稗 &n爱bsp;&nb蔼sp;&nbs捌p;佰 唉 &n奥bsp;&nb败sp;&nbs暗p;氨 凹 皑年度统计表般 白 扮

45、盎 版拌 哎 哎 坝 背正在统计哎，请稍后.袄 澳绊9 鞍Then矮盎month(i扮) = nia版n & -矮 & iElse半袄month(i鞍) = nia搬n & -0瓣 & iEnd ifNext%耙摆半 耙 伴 蔼 扒 盎 费用类型熬 盎 斑1月澳 办 笆2月班 巴 版3月胺 拔 凹4月八 扳 半5月搬 袄 皑6月版 搬 靶7月邦 佰 疤8月版 敖 岸9月百 斑 拜10月吧哀 白 白11月鞍吧 敖 安12月氨隘 暗 挨合计稗 哀 %昂Set rs 熬= Serve胺r.Creat百eObject矮(ADODB拜.Record艾Set)爸Sql = 凹Select 拌ID,PayT

46、罢ype,InO白ut From扮 type拌 where 拔user=&昂idd& O碍rder By疤 InOut 懊desc,ID鞍 Asc稗rs.Open叭 笆Sql颁,凹Conn爱,1,1爸If rs.E八of Then昂Respons鞍e.Write邦 没有搬记录摆Else癌rs.Move靶Last耙RecordC叭ou = rs绊.Record耙Count岸rs.Move芭First昂For i=1岸 To Rec靶ordCou%伴 笆 1疤2巴Money =拜 0氨Set rs2氨 = Conn奥.Execut扳e(Sele氨ct Mone败ys From安 list澳 Whe

47、re 氨user=&拌idd& a胺nd PayT八ypeID=拌&rs(id佰)& an佰d addTi般me like扒 %&mo敖nth(j)&案% )癌If Not 版rs2.Eof肮 Then背 Do W板hile No八t rs2.E艾of吧 If r柏s(InOu摆t) = 1办 Then M版oney = 啊Money +拔 rs2(0)隘 If r哎s(InOu拜t) = 0瓣 Then M办oney = 绊Money -埃 rs2(0)安 rs2.爸MoveNex柏t Loop啊Totel =懊 Totel 瓣+ Money袄 稗 For k=翱1 To 12柏 蔼 If

48、k=岸j Then碍 佰 If 绊Money0半 Then I吧nMonth(隘k) = In昂Month(k罢) + Mon扮ey扮 氨 Sum靶Month(k阿) = Sum艾Month(k罢) + Mon拌ey颁 癌 End i安f把 班 Next 靶 斑If Mone邦y 0 T佰hen Mon稗ey = 埃& Mone般y &唉Respons瓣e.Write佰 搬 & Mon埃ey & Else疤Respons芭e.Write敖 氨0End if般rs2.clo八se肮j = j +捌 1Loop%蔼胺%If To敖tel0 T矮hen 伴Respons叭e.Write啊 & T艾o

49、tel &扒哎Else背Respons扳e.Write板 TotelEnd if%0 The捌n InTot背el = In隘Totel +斑 Totel靶If Tote捌l疤 跋 疤 摆 支出合计肮鞍昂斑 挨 败 扒 俺 稗 瓣 收入合计捌摆稗昂 叭 胺 吧 哀 疤 袄 蔼 结算熬%For i搬=1 To 1爸2阿If SumM挨onth(i)阿0 Then邦 SumMon蔼th(i) =百 & 芭SumMont把h(i) &奥疤%埃蔼绊俺矮办数据库连接模块稗：唉创建数据fin隘ance的脚本叭代码：蔼USE fi澳nanceGO背SET ANS鞍I_NULLS啊 ONGO搬SET QUO岸

50、TED_IDE八NTIFIER办 ONGO俺CREATE 摆TABLE 爱dbo.u啊ser(矮爱ID i罢nt NOT爱 NULL,坝盎userna八me nv碍archar皑(50) NU唉LL,敖伴passwo安rd nv搬archar巴(50) NU百LL,挨碍admin把 int 绊NULL盎) ON P啊RIMARYGO矮SET ANS板I_NULLS阿 ONGO挨SET QUO埃TED_IDE叭NTIFIER艾 ONGO胺CREATE 俺TABLE 艾dbo.t坝ype(懊柏ID i疤nt NOT伴 NULL,癌笆PayTyp阿e nva袄rchar(爱50) NUL笆L,爱坝I

51、nOut案 int 捌NULL,袄般date 伴dateti把me NUL佰L,扳安user 白int N阿ULL案) ON P霸RIMARYGO跋SET ANS瓣I_NULLS背 ONGO叭SET QUO白TED_IDE扒NTIFIER蔼 ONGO爸CREATE 扮TABLE 岸dbo.l捌ist(懊澳ID i瓣nt NOT安 NULL,八安PayTyp捌eID i阿nt NUL败L,拜邦Moneys叭 int拔 NULL,靶安Projec佰t nva班rchar(矮50) NUL傲L,按八addTim矮e nva挨rchar(摆50) NUL白L,奥埃user 拌int N班ULL扳) ON P邦RIMARYGO结论鞍个人财务管理信爸息系统，本质上按是对数据库的更败新和检索。不知扮不觉一周的课程敖设计就结束了，柏我们小组有最开