1、愛個人財務管理系耙統第一章 緒論1.1課題背景哎 當今社邦會越來越著朝著礙信息化和數字化班法發展，計算機擺的應用領域使我吧們的生活越來越瓣方便和快捷，可般以說我們的每個按人生活都離不開礙計算機的幫助了暗。越來越多的個阿人應用軟件成為傲了人們重要的助岸手，也在潛移默伴化的改變著我們阿的生活。背 隨著市愛場經濟的發展，辦我國居民對理財班有著越來越高的把要求。理財，是拔每個家庭和個人吧所必須面對的問斑題?，F在，關于爸企業的會計制度矮逐漸完善，而且靶針對企業的財務唉軟件以及EPR跋(enterp胺rise re擺source 矮plannin板g)系統也在飛埃速發展，但針對白個人或家庭的財艾務系統目前

2、還是啊一段空白。昂 實際生板活中經常要對個敖人的各項財務收半支進行管理，本啊課題的目的就是八利用計算機對各愛項財務進行電子邦化的管理，使我搬們的理財更加方半便和理性化，提靶升我們生活的質俺量和品位。課題意義阿 我們經霸常看到企業的一辦些財務報表，這搬些報表主要是關邦注企業的資產負隘債表和損益表。扮簡單的說，前者案是反映這個企業跋有多少錢，是存拜量；后者，反映頒了企業在一定時稗間能賺到多少錢扳，是流量。哎 其實，搬對一個人或者家鞍庭的財務情況，啊也是關注這兩個藹方面。關注家里半存多少錢，關注奧今年賺了多少錢哎，花了多少，借拔出什么等等。扳 要做到哎這些需要對大量藹的數據做存儲和癌計算，工作是相傲

3、當的復雜繁瑣和斑枯燥的，因而這胺些問題容易被人壩忽略。我們縱然傲可以為生活中的啊每一筆花銷記賬背，但是對這樣大哎量的數據做分類叭處理確實是一個阿會令大多數人頭班疼的問題，如果霸有一個個人理財啊的軟件理財的軟般件對我們的日常班財務進行那樣的佰繁瑣的數據處理百和計算工作，相霸信可以讓我們理胺財的效率大大提鞍高。這樣一個軟辦件不但可以方便扮我們的生活，更安可以使我們對自敗己的財務狀況有疤一個清楚的了解稗。傲與此同時，這樣熬的一個軟件開發阿和制作也是對我案們大學學到各種背知識進行的一次拜綜合運用的一個吧好機會，是對我罷大學學習的一個凹檢驗和實踐。背第2章 半可行性分析愛2.2.1柏 可行性分析斑當接受

4、一個軟件凹開發任務，就進阿入軟件生命的第哀一個階段，即進案行可行性的研究唉。并不是所有問敖題都具有簡單的扳解決辦法，許多安問題不能在預定唉的規模之內解決般?？尚行苑治鼍桶鞘窃谙到y調查的奧基礎上，針對新芭系統的開發是否拌具備必要性和可熬能性，對新系統哎的開發從技術、搬經濟、社會的方矮面進行分析和研叭究，以避免投資皚失誤，保證新系矮統的開發成功。拜可行性研究的目挨的就是用最小的擺代價在盡可能短安的時間內確定問伴題是否能夠解決按。皚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 支出瓣信息表扮序號半字段中文名拜字段英文名敗類型、寬度、精叭度挨取值約束?？辗癜啬J值岸主鍵/外鍵哎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結論鞍個人財務管理信爸息系統，本質上按是對數據庫的更敗新和檢索。不知扮不覺一周的課程敖設計就結束了，柏我們小組有最開