東北大學(xué)數(shù)據(jù)庫應(yīng)用程序設(shè)計(jì)實(shí)踐報(bào)告

1、本文格式為word版，下載可任意編輯東北大學(xué)數(shù)據(jù)庫應(yīng)用程序設(shè)計(jì)實(shí)踐報(bào)告 課程編號(hào)： b080 0 0 004 數(shù)據(jù)庫應(yīng)用程序設(shè)計(jì)實(shí)踐報(bào)告 姓 名 學(xué) 號(hào) 班 級(jí) 指 導(dǎo) 教 師 開 設(shè) 學(xué) 期 0 0 6 6- -2 2 1 17 7 第一學(xué) 期 開 設(shè) 時(shí) 間 第 周 - - 第 第 5 15 周 報(bào) 告 日 期 201 /12 16 評(píng) 定 成 績 評(píng) 定 人 評(píng) 定 日 期 東北高校軟件學(xué)院 1. 問題定義 銀行代收費(fèi)系統(tǒng)給電力公司開發(fā)得一套繳費(fèi)系統(tǒng)，便利用戶通過網(wǎng)銀支付電費(fèi). 主要得用例圖: 圖 1 銀行代收費(fèi)系統(tǒng)用例圖 依據(jù)用例圖得出主要得業(yè)務(wù)需求： （1）抄表 系統(tǒng)管理員把抄表記錄

2、錄入系統(tǒng),抄表記錄包括當(dāng)前電表數(shù)、抄表日期、抄表人等信息,依據(jù)抄表記錄，系統(tǒng)自動(dòng)計(jì)算每個(gè)計(jì)費(fèi)設(shè)備當(dāng)月得應(yīng)收電費(fèi)。每個(gè)計(jì)費(fèi)設(shè)備有唯一 編號(hào)。 （2）查詢 用戶隨時(shí)查詢欠費(fèi)金額。一個(gè)用戶名下可能多個(gè)計(jì)費(fèi)設(shè)備，查詢欠費(fèi)時(shí)，將全部計(jì)費(fèi)設(shè)備欠費(fèi)總與輸出。需要考慮設(shè)備得余額問題。假如余額大于欠費(fèi),則欠費(fèi)為 0，更新余額,修改 reciable 中 fag 標(biāo)志。 （3）繳費(fèi) 在當(dāng)月電費(fèi)清單生成完畢后，用戶可進(jìn)行電費(fèi)繳納，繳納金額可就是任意金額.系統(tǒng)將繳費(fèi)金額存入設(shè)備余額中，再次查詢則欠費(fèi)應(yīng)當(dāng)削減。 （4）沖正 用戶在繳費(fèi)過程中假如給其她用戶繳費(fèi)了,在當(dāng)日 0 點(diǎn)前可以沖正，即把錢收回,放入余額，向 pyf

3、ee 表中添加一個(gè)負(fù)數(shù)金額、相同銀行流水號(hào)得記錄.并且修改設(shè)備余額，此時(shí)查詢欠費(fèi)應(yīng)當(dāng)有轉(zhuǎn)變。 (5）對(duì)帳 每個(gè)銀行每日凌晨給電力公司得代繳費(fèi)系統(tǒng)發(fā)送對(duì)賬信息,代繳費(fèi)系統(tǒng)記錄對(duì)賬結(jié)果,對(duì)賬明細(xì)，對(duì)賬特別信息進(jìn)行存儲(chǔ)。錯(cuò)誤信息為 10銀行沒有此記錄。10企業(yè)沒有此流水號(hào)、2 銀行企業(yè)金額不等。 2 數(shù)據(jù)庫設(shè)計(jì) （1）er 圖設(shè)計(jì): 自己設(shè)計(jì)得 e圖: 經(jīng)過老師修正統(tǒng)一得 er 圖： 客戶teladdress name設(shè)備deviceid擁有費(fèi)用（應(yīng)收）產(chǎn)生費(fèi)用（實(shí)繳）繳納銀行繳給idnameflag idyearmonth paydate bankserial type paymoney idco

4、deidtype balance 抄表記錄產(chǎn)生idyearmonth snum basicfee 銀行記錄銀行對(duì)賬總表銀行對(duì)賬特別表id payfee bankserial checkdate banktotalcountbanktotalmoneyourtotalcount ourtotalmoney id exceptiontype ourmoney id checkdate bankserial bankmoney （2）建表語句 reae ab ate table ank ( i umber（4), nme varhar2（0）， code cha（2） ) ; - create/ee

5、ae pmary, unqe and oreig ke constraints alter abl bank d cosint k_ban_id riry ke （id）； ae table bank ad costrat pk_nk_coe ique (code）； eat tale reat tbl cie （ id number(4）, name vrca（20), addres varh（）， te vachar（20） ） ； - reate/rereae primary， uniue and fregn key costrt ate te cliet add contrnt p_c

6、ientid rimar key （i）； - reat bl create table devie （ devieid nmbe（4), cientd mbe（）, type cr（)， balance number（7,2） ） ； - createecrate pimary， iue and forein ey ostraint ar te vie dd cotant p_evic_diceid primary key (deviced）； ater tale evic ad cnsraint fk_e_clientid orign ey (clienid) rerene len (d）

7、; ceate table create l electriity ( id nmber(4)， deviceid nuber(4）， armonth char（）, sum mber（10） ) ; - creat/receae pary， uiue ad eign ky ontaint alt table letity add consran _lectricid primay key (i）； alter tle lctricity add costain fkelecrity_devcid forig k （dvied) refrece evie (dicei)； creat tabl

8、e ceate able rceivables ( id number(4), yearmonth har(6）， vceid nube(）， bafee umbe（7,）， fla char(1） ） ; crt/recreat rmary， nu and forein key costaint ater table receivbles ad cstan pk_rblsid rmry ky （); lter table reeivble ad contrain k_receivables_dvice oein key (devicei） references devce （decid）；

9、- rete al crate table paye ( id umber（4), devied number（4）， payoey numbr（,2)， paydat dt， bnkcoe car（2）， tp char(）， bakseria varha2（20) ) ; - raerereate primr， unique n rign key cnsraits altr table payfe a costaint p_payfid primary key (id）; aler able payfe ad cnstrant fk_pyfee_deieid oegn e （devieid

10、) eferec devic (deviceid）； aler bl pfe ad constrait fk_payfee_ankcode ign key （banco) enc bak (oe）； - reate able creae able bankreord （ d nber（4）， afe number(7，2)， bancde char(2）， banksea vara2（20) ) ； - rate/recrete pimary， uique and foregn ke consints e tale bankecd add ntrain p_bankrecor_ primar

11、ke （i）; ater tale bnkrecord ad ctrant fk_akrordancode oig key (bankcode） references bank (cde）； crete able ceat tble chekresult ( d mer（）， heckda dat, akcode char(2)， banktotloun number(4), banktotalmny ume(0，2), ourtolcon numer(4）, ourooney numbe(1,2） ） ; creaeee rimy， unique and foei key onsrais t

12、e table checresul dd constait pk_ecklt_i priry k （)； alter tbl chckeu add onstrait fk_cekreultbkcode foreg key （bankcde） erenc bk （co）; - creae tabl rate table check_eceptio （ id nmbr（4）, ecdat date, bnode ch（2）, anksel vchr2(0）， bnkmoney nmer(7，2）, ouoney nuber（7，)， xceptiontye char(3） ） ； crea/eca

13、te primay， nque nd oregn y onstraints alter able eck_eception add cnstaint pk_ceckcetiond pmry key (id); ater tale chck_exepto add cnstrait fk_heckexeption_bancode rein ke （bakco e) erene bank (code)； 3 數(shù)據(jù)庫端得系統(tǒng)實(shí)現(xiàn) 條 、十條 s l 語句 （ （1） ） 查詢出全部欠費(fèi)用戶. （為了使測試便利, 修改添加了一些數(shù)據(jù)，見附錄） seec 、clinid，c、name，a、evicid,、

14、ermont from deice a joi receivals b n 、deviid=、devicei in cli c on a、clintid=c、id whr b、fg=0 orde 1,3，4 （ （2） ）過 查詢出擁有超過 2 個(gè)設(shè)備得用戶 selc clintid，m rom （slect lienti， count（） ct from dvi grop by intid） jin cliet on cint、id=cenid her ct 2 （ （3） ） 統(tǒng)計(jì)電力企業(yè) 某個(gè)月 得總應(yīng)收費(fèi)用，實(shí)收費(fèi)用 set month,sum(paymoney) from( sele

15、c to_char（adate,yyymm) as mon,ymoney from yf p whe to_cr(adte，yyyymm）=202108 ) grup b mont 實(shí)收費(fèi)用 selec yarmonh ，sum(basife) s receivablemoney ro reeivbls p by yearmont havig yeat268 -應(yīng)收費(fèi)用 （ （4） ） 查詢出全部欠費(fèi)超過半年得用戶 with a（ select b、devicd ，cunt（、dicei) frm receivale her lg grp by b、dvicid avin count（、dev

16、icei）1 -我將題目修改成超過一個(gè)月 ） selec dice、cliend，devic、eveid frm dvie on o device、dvid=s、deicid ord by 1，2 （ （5） ） 查詢?nèi)我庥脩舻们焚M(fèi)總額 ect cent，sum（、baicfe） from evie a join receibles b n a、dviceid=b、devicei where clienti1 group cientd ，fag aing flag= （ （6） ）得 查詢出某個(gè)月用電量最高得 3 名用戶 with s as （ selet su（b、sum） a um_n，

17、a、intid rom i inner join criiy b a、deviced = 、evicd where b、ermoh 20108 - 月份條件 group by a、cientid ） selet s0、* from( select s、ienti， 、um_nm rom s der by s、sum_num ec）s0 where rownum = 3 （ （7） ） 查詢出電力企業(yè)某個(gè)月哪天得繳費(fèi)人數(shù)最多 sele da,num from ( slec count（d) as nu ，to_char(paydate,yyymmd) as ay rom pfe here toc

18、har(paydate,yyymm）=20108 ou y o_char（paydate,yyyymmd） order b oun（ansrial） dsc ) whre ronu2;查詢 8 月份付款人數(shù)最多得一天 （ （8） ） 按設(shè)備類型使用人數(shù)從高到低排序查詢列出設(shè)備類型, 使用人數(shù)。 selec evice、type，count（) a n f device group b evic、tp oder by count(*) esc （ （9） ） 統(tǒng)計(jì)每個(gè)月各銀行繳費(fèi)人次，從高到低排序。 seect t_har（pyte，yyyym） yearth，bnk、nm， cunt（payf

19、、id) num from bank n payfe on bank、ce = payfe、bakcode grou by tchr(ayat，yymm），ban、ae ode yrmont,num dec； 增加了一條記錄,修改了兩條記錄 （ （10） ） 查詢出電力企業(yè)全部新增用戶（使用設(shè)備不足半年). selt cliet、d,dvice、deviceid frm clin i dvce on lent、i = device、clint jin eecricity o ece、dicid = eletricity、dviceid grup by clie、d，devce、dveid hi

20、g count（earmonth)6； -假如某個(gè)設(shè)備得抄表記錄數(shù)小于 6,則其使用不足半年 附錄： 添加修改得數(shù)據(jù): 1、在ece 表下,加入數(shù)據(jù)如圖： 2、在 reivable表中，加入四個(gè)設(shè)備兩個(gè)月得應(yīng)收記錄如圖： 3.在 paye 里加入201 設(shè)備 2609 得付款記錄 4、向lectrici中插入數(shù)據(jù)，如下圖,比較用戶. 5.將ayfe 中得部分記錄得 bakcoe 更改，訂單日期也進(jìn)行更改 6.增加記錄到 bak 表中。 2 、事物存儲(chǔ)過程 （） 查詢 碼 代碼 1: （按設(shè)備號(hào)進(jìn)行查詢，在代碼 2 中被調(diào)用) create o rplae procedure queye1（de

21、vieno i number, smony o mbr ） is bicee number（，2)； yeamont recees、yearmonttpe； dtype device、tyetye; as nmber； ays2 number; _balace umber； id uber； aat date; ur tem_curor is elct r、asicfe,、yemonth，d、e,r、id fom deve d, rceiabs r whe d、evcd r、evii and r、la 0 ad d、eviceid=deviceno； begi smoey：0； oen tem

22、p_crsor; lop fch temp_crsor to basicfe,yearmnh,tye，rid; xit whn tep_ursor%notfoun; money：=smoeysicee； smny:=smoney+bsicfee0、08； if dtype = 1 tn smon:= smoney basifee*0、1; else soey:=smoney + baicee*0、5； d f； seect rod（sysat - ad_month(o_dat（yearmonth，yyym），1)） in days fom dual； eet o_h（syate,ddd） in

23、t da2 from dual； if days 0 then i ype=01 then -居民 違約金 跨年與不跨年違約金比例相同 smoney：=smonybasicfee0、001das; le if daay2 th 其她， 不跨年 smey：=ebsicfe0、002*as； else 其她,跨年 smony：=sme+baicfe*0、002(aydys2)+basicfee*0、00*（da2)； ed f； ed f; if； d loop; sle blance nt d_balnce o deve w devicei=device; f（smoney=d_balance

24、ad smoney!=) hen -假如設(shè)備余額大于欠費(fèi) 余額更新、欠費(fèi)置 0 sele truc(sysdate) ito chrdate rom dua； 截取到日 set io devcecor vlues(deieno，sone,rid,chrgdate)； -把設(shè)備扣費(fèi)記錄保存保存 udat vce et balncebaance-soey he deviceiddeven; uda receabl s lag= whre i=d； soney:=0; el（smny!=0） hen -設(shè)備余額不夠繳費(fèi) sony：smoeyd_balane； nd f; e quryfee1； 代碼

25、 : （按用戶號(hào)獲得設(shè)備號(hào)，將設(shè)備號(hào)傳入代碼 1 ） 得存儲(chǔ)過程中） reate or eplce rodre querye（cliet i ln、dtype， mon out nmber） is diceno umber； d_smon nuber; curs emp_cursr i seet d、devicei from clin ， eve d wer 、id d、cintid and 、i = clientno； egin soney：0； pe tecurso； l fetc temp_cur into devio； ex en te_ursorntfound； queryfee1（

26、devceno,d_smoney）； soney：=ony+_smoney； nd loop； en queryfee; 測試截圖： 設(shè)備 6 得應(yīng)收費(fèi)用表: 查詢設(shè)備 6 得欠費(fèi)金額： 主要?jiǎng)?chuàng)新點(diǎn)： 1.我將修改標(biāo)志位g 與扣費(fèi)得過程寫在了此存儲(chǔ)過程中.查詢時(shí)假如設(shè)備余額大于欠費(fèi)數(shù)，則用余額對(duì)設(shè)備進(jìn)行繳費(fèi),更新 flag=2（其次天凌晨全部得lag=更改為 1）就是為 了標(biāo)志就是今日得扣費(fèi)修改過程，便利沖正。 2.我新設(shè)置了一個(gè)表，bankrrd 用來記錄扣費(fèi)記錄,便利沖正得時(shí)候?qū)⒃O(shè)備金額變回來。 3、在計(jì)算跨年費(fèi)用時(shí)，我使用了 sele to_char(sysdate,dd) no ays

27、 from dul； 首先推斷當(dāng)前時(shí)間就是一年中得第幾天,再依據(jù)老師得代碼，設(shè)備欠費(fèi)天數(shù) days 作比較. 假如 dayda2 ,說明存在跨年得欠費(fèi)，否則不存在。 2. 繳費(fèi) 代碼：（添加記錄到y(tǒng)f e 表中，并更改設(shè)備余額） crt or rplace procedure pye(viceo in mber，paymoe in ner,eult out varhar ） s payda date; en if aymony0 then slet tunc（ssdae） into aydate from ul； 截取到日 it into payfe vlues（pasequce、next，d

28、eiceno，paymne，aydate，19，001，baksral、nxval)； update evice se balance=balancepaymoney here dice=deviceo; reults：=勝利； es eult：=繳費(fèi)失敗,繳費(fèi)金額不能少于 0； ed if； end payfee1； 測試截圖 繳費(fèi)之后得 payf表：(增加了一條付費(fèi)記錄) 再次查詢欠費(fèi)金額:（欠費(fèi)金額為 0） 繳費(fèi)之后得設(shè)備表：（余額由 3 變成8、) 設(shè)備 6 應(yīng)收費(fèi)用表：（flg=用來標(biāo)志就是今日剛剛繳費(fèi)得,便利沖正。） 主要?jiǎng)?chuàng)新點(diǎn): 根據(jù)設(shè)備號(hào)進(jìn)行繳費(fèi),向 pafee 中添加記錄。

29、使用序列來掌握流水號(hào)，與。 3. 沖正 代碼 cate r repc prodre rere （ ebanksil i pafee、banriaype，ress ut archa) is deviceno nmber； re_mney umbe; -沖正錢數(shù) d_baane mber； -設(shè)備余額 d_sone nmb； -設(shè)備扣費(fèi)前得余額 re_bacode char（2）； re_ate dae; aydate ate; rsor temp_curo is seect p、devicid,、aymne,p、bnkoe，、paydate rom payfee p where p、nkseri

30、a_banksera and p、bnseria i （ selct bakria rm pyfee group by aserial havi coun()=）; -沒被沖正過得記錄 oen tem_cursor; feth tp_urso int evieno，r_mone，re_bankcde，pydate； selec unc(ssae） into edt fm ul; -截取到日 i tempcurs%ntfond -推斷有很多據(jù) e rslts :=失敗,沒有找到此流水號(hào)； sif adate！r_ae then rults:=失敗，不就是本日記錄。; ele ert into a

31、f vaues(payequence、extval，deceno,0rmoney，reate，re_bankcod，200，reankseril）; slect alane int _bace from devce here devieid=dvceo； 取出設(shè)備得余額 i（dbaancee_mon） then -設(shè)備余額大于充值錢數(shù) 說明充值得錢數(shù)不夠，flag 不變 update device et baane=blancre_oey wher dvicid=dviceo; reult ：=勝利； ele -設(shè)備余額小于充值錢數(shù)，說明充值之后夠了，并且扣費(fèi)勝利了 update receiv

32、ables set flag = 0 wher dei=deviceo and flag=; seec istict mone into _smone rom devicercord whre devcid=dvieo d chargate=pydate; pda evice set alance=baance+dmony-e_money were devieddevcen； reults ：勝利； end ; end i; n rvrse ； 測試截圖 將剛剛為 6 得繳費(fèi)沖正. 此時(shí)得 pfee 表:(增加了一條沖正記錄） 應(yīng)收費(fèi)用表:（lag 標(biāo)志為變成 0) 設(shè)備表:（回到繳費(fèi)前 3

33、元狀態(tài)) 查詢設(shè)備 6 得欠費(fèi)狀況:（回到繳費(fèi)前得狀態(tài)，仍舊欠費(fèi) 11、2) 主要?jiǎng)?chuàng)新點(diǎn)： 試驗(yàn)得主要思路就是主要確定有全都得繳費(fèi)記錄，并且流水號(hào)記錄只有一次，說明沒有 沖正過，然后進(jìn)行沖正。 沖正過程中，讀取設(shè)備此時(shí)余額與繳費(fèi)金額(或者說就是沖正金額)作對(duì)比，依據(jù)設(shè)備初始金額+繳費(fèi)金額-扣費(fèi)金額設(shè)備此時(shí)余額,假如設(shè)備此時(shí)余額繳費(fèi)金額，這說明執(zhí)行了扣費(fèi)過程，需要進(jìn)行 reevable 中標(biāo)志位得更改，也需要修改eic表中得設(shè)備余額，這時(shí)候用到了扣費(fèi)記錄表(自己建得)找到扣費(fèi)金額。那么 設(shè)備此時(shí)得余額+扣費(fèi)金額-繳費(fèi)金額=設(shè)備初始金額 、 假如設(shè)備此時(shí)余額繳費(fèi)金額 ,這說明繳費(fèi)之后依舊欠費(fèi)，沒有

34、進(jìn)行扣費(fèi).這時(shí)候只需要向 payfe 中添加記錄，并修改設(shè)備金額； 4. 對(duì)總賬 代碼 eat or replce pocedure checkmoney(chck_banode n har，total_ount i um， tolmoey i umbe，e_dte n varchar，resul out varchar) is bakcd1 varchar()； aydat1 dat; total_mn1 numer; tolount1 ume; e_cunt number； curor te_cso is select bnkcod,paydate，sum（amy)，cont(） from

35、 pyfee group b akcod,paydae havin kcode=check_bankcoe and to_a(payde,yyymd）=check_date； bgin select un（*) ito re_nt fro pyfee where bankodcec_bnod an to_ar(,yyyymdd)=chec_dae a payoney0； op tem_curs； ftch e_ursor into ankcode1,ydae1,totl_mney1，otal_coun1； ttal_coun1:=totalcont1-eot2; if talcoun1=tal

36、_cunt and totaloney=total_money en results：=對(duì)賬勝利； ese els：=對(duì)賬失敗，執(zhí)行對(duì)賬明細(xì).; ceck_deal （chec_dat)； ed if； end chemone； 測試截圖 對(duì)賬勝利（： pyee 表中數(shù)據(jù)： 對(duì)賬失敗,調(diào)用對(duì)賬明細(xì)： 主要?jiǎng)?chuàng)新點(diǎn)： 主要思路就是用游標(biāo)把 payfe 表中符合銀行代碼、日期得記錄保存 起來，然后提取出來進(jìn)行比較。失敗則調(diào)用對(duì)明細(xì)賬模塊,將錯(cuò)誤信息存儲(chǔ). 5.對(duì)明細(xì)帳 代碼: crete or repace procedue check_dil（hck_dat ar) is bbankco varc

37、har（）； bpayfe nmer; bankseria varchar（20); pbnksril vacha（20); ppayfe mbr； ada da; crsr tem_ror i sl b、ankcod,b、ayee ，b、bakerial,p、bnkseril，p、paoney fom ankrcord b full ouer in ayfe p on p、ankserl=b、bnkserial wher p、bakeial no i （slt banseial -找到?jīng)_正得記錄 與 被沖正得記錄 rm pyfe whre ype=00) and to_chr(、paydat

38、,yyymdd)=check_dte r o_char(p、padate，yymmd) is ul; egi select trunc（ysdte） into pat from dua； -截取到日 opn tmcusor; loop etc tmp_cursor into bbnkcod,bpayfee,bbankseril，bankrl，ppyf; ext when emp_cursor%ntound; if(bbankeria s ull) th nsert int hc_exption values(eckid、etvl，pydate,bbankode，pbakseil,bayf,pp

39、ayee,100)； lsif（pbaneia is ul) then insert ino heck_ecpti vale（checki、netvl,ppade,bbanode，bbankserial，bpafee,ppayfee，11）； el(bafe!ppye） th insert into hc_exceptio alue（cecki、nxval，adte，bncode,bbakseril,bpayfee，ppayfee，102); end if； end loop； end checkdetal； 測試截圖： 對(duì)賬失敗時(shí) checeception 表中數(shù)據(jù)：100-銀行無此流水號(hào)

40、101企業(yè)無此流水號(hào) 2銀行與企業(yè)記錄得錢數(shù)不等 主要?jiǎng)?chuàng)新點(diǎn): 主要思路就是將 payf表與銀行記錄表進(jìn)行全連接,然后進(jìn)行篩選。 由于一開頭我在構(gòu)建游標(biāo)時(shí)使用了 whee paydate=chekdate 篩選條件，忽視了全連接之后企業(yè)沒有此流水號(hào)記錄，padate 為空得狀況,導(dǎo)致了企業(yè)方無此流水號(hào)這種錯(cuò)誤記錄不會(huì)消失。所以將條件改為 to_chr（、padt，yyymmdd)=check_date or t_char(、paydate,yyyymmd） s nll； 4. 程序?qū)崿F(xiàn) 調(diào)用存儲(chǔ)過程代碼: pace datbase； imrt ja、l、calllesttemnt； impor

41、 java、sql、onnectin； import java、sq、drvermnger； ipor jav、ql、sqxctin; io java、s、yes; iot ava、ext、parecption； mort va、text、simletefrmat; mort ava、util、date; t jaa、ui、scanner； public clas rocdre itpcxeesrap swrt ）gr gnirts（iam iov citt cilbup ;iearo、cbdj、lcr = rei gits ;x：5194：tolal:it：earo:cj = lr gnrts 連接字符串，4919 對(duì)應(yīng)得就是我得 orcl在我得電腦上使用得端口,xe 就是服務(wù)名 ;rh = reu gnirs string psswod = r; ry cls、forne（rver)； ap ，resu ,lr（noitcenoctg、reganmreird noitenoc itcennswo