东北大学数据库应用程序设计实践报告

时间：2020-09-14 11:43:29 来源：蒲公英阅读网 本文已影响人

相关热词搜索：程序设计 东北大学 实践

　课程编号：

　B080 １0 0 ９ 004

　数据库应用程序设计实践报告

　 姓 名

　学 号

　班 级

　指 导 教 师

　开 设 学 期

　２0 0 １6 6- -2 2 ０1 17 7 第一学 期

　开 设 时 间

　第 １ ３ 周 - -— — 第 第 5 15 周

　报 告 日 期

　201 ６ /12 ／ 16

　评 定 成 绩

　评 定 人

　评 定 日 期

　东北大学软件学院

　1. 问题定义 银行代收费系统给电力公司开发得一套缴费系统，方便用户通过网银支付电费. 主要得用例图:

　图 1 银行代收费系统用例图 根据用例图得出主要得业务需求：

　（1）抄表

　系统管理员把抄表记录录入系统,抄表记录包括当前电表数、抄表日期、抄表人等信息,根据抄表记录，系统自动计算每个计费设备当月得应收电费。每个计费设备有唯一

　编号。

　（2）查询

　用户随时查询欠费金额。一个用户名下可能多个计费设备，查询欠费时，将所有计费设备欠费总与输出。需要考虑设备得余额问题。如果余额大于欠费,则欠费为 0，更新余额,修改 recｅiｖable 中 fｌag 标志。

　（3）缴费

　在当月电费清单生成完毕后，用户可进行电费缴纳，缴纳金额可就是任意金额.系统将缴费金额存入设备余额中，再次查询则欠费应该减少。

　（4）冲正

　 用户在缴费过程中如果给其她用户缴费了,在当日 0 点前可以冲正，即把钱收回,放入余额，向 pａyfee 表中添加一个负数金额、相同银行流水号得记录.并且修改设备余额，此时查询欠费应该有改变。

　(5）对帐

　 每个银行每日凌晨给电力公司得代缴费系统发送对账信息,代缴费系统记录对账结果,对账明细，对账异常信息进行存储。错误信息为 10０银行没有此记录。10１企业没有此流水号、１０2 银行企业金额不等。

　2． ． 数据库设计 （1）ER 图设计: 自己设计得 EＲ图:

　经过老师修正统一得 ER 图：

　客户teladdress name设备deviceid拥有费用（应收）产生费用（实缴）缴纳银行缴给idnameflag

　idyearmonth paydate

　bankserial type

　 paymoney

　 idcodeidtype

　 balance

　抄表记录产生idyearmonth snum

　basicfee

　银行记录银行对账总表银行对账异常表id

　 payfee

　 bankserial

　 checkdate

　banktotalcountbanktotalmoneyourtotalcount ourtotalmoney id

　exceptiontype

　ourmoney id

　 checkdate

　 bankserial

　bankmoney （2）建表语句

　－－ Ｃreaｔe ｔabｌｅ ｃｒｅate table Ｂank (

　 iｄ

　 ｎumber（4),

　 nａme varｃhar2（２0），

　 code chaｒ（2）

　) ; —- Create/Ｒeｃｒeaｔe pｒｉmary, unｉqｕe and ｆoreigｎ keｙ constraints

　alter ｔablｅ Bank

　 ａｄd coｎsｔｒａint ＰK_BANＫ_ID ｐriｍａry keｙ （ID）； aｌｔeｒ table BANK

　 adｄ coｎstraｉｎt PK_ＢＡNK_COＤE ｕｎique (CODE）； －－ Ｃｒeatｅ taｂle ｃreatｅ tａblｅ cｌieｎｔ （

　 id

　number(4）,

　 name

　vａrcｈaｒ２（20),

　 addresｓ varｃhａｒ２（８０），

　 teｌ

　 vaｒchar２（20）

　）

　； —- Ｃreate/Reｃreaｔe primary， uniｑue and fｏreｉgn key coｎstrａｉｎtｓ

　aｌteｒ tａｂｌe clieｎt

　 add conｓtrａｉnt PＫ_CＬIENT＿ID ｐrimarｙ key （IＤ）； -— Ｃreatｅ ｔａblｅ create table deviｃe （

　 deviｃeid nｕmbeｒ（4),

　 cｌientｉd ｎｕmbeｒ（４）,

　 type

　 cｈａr（２)，

　 balance

　number（7,2）

　）

　； －- Create／Ｒecrｅate pｒimary， ｕｎiｑue and foreiｇn ｋey ｃoｎstraintｓ

　aｌｔｅr tａｂｌe ｄｅviｃe

　 ａdd coｎｓtｒaｉnt PＫ_ＤEVICＥ_DＥＶICEID primary key (DEVICEＩD）； aｌter taｂle ｄevicｅ

　 adｄ cｏnsｔraint FK_ＤEＶＩＣＥ_CLIENTID ｆorｅign ｋey (CLIENＴID)

　 reｆｅrenｃeｓ ｃlｉenｔ (ＩD）; —－ Cｒeate table create ｔａｂlｅ electriｃity (

　 id

　nｕmber(4)，

　 deviceid

　nuｍber(4），

　 ｙｅarmonth char（６）,

　 sｎum

　ｎｕmber（10）

　) ; －- Creatｅ/Recｒeaｔe pｒｉｍary， uｎiｑue aｎd ｆｏｒeign kｅy ｃonｓtｒaintｓ

　altｅｒ table ｅleｃtｒiｃｉty

　 add consｔraｉnｔ ＰＫ_ＥLECTRICＩＴＹ＿ID primaｒy key (IＤ）； alter tａｂle ｅlｅctricity

　 add coｎstｒainｔ FK＿ELECＴRＩＣITY_DEVＩCＥID forｅigｎ kｅｙ （DＥVIＣEＩD)

　 refｅreｎceｓ ｄeviｃe (DＥＶICEIＤ)； —－ Creatｅ table cｒeate ｔable RＥCEIVABLES (

　 id

　number(4),

　 yearmonth ｃhar(6），

　 ｄｅvｉceid

　nuｍbeｒ(４），

　 baｓｉｃfee

　ｎumbeｒ（7,２），

　 flaｇ

　char(1）

　）

　; －— Crｅａtｅ/Recreatｅ ｐrｉmary， ｕnｉｑuｅ and foreiｇn key coｎstｒaintｓ

　aｌter table RECEIVＡBLES

　 aｄd cｏｎstｒaｉnｔ PK_RＥＣＥＩＶＡBLＥS＿ID ｐrｉmａry kｅy （ＩＤ); ａlter table REＣEIVＡBLEＳ

　 aｄd conｓtrainｔ ＦK_RECEIVABLES_DＥVICEＩＤ ｆoｒeiｇn key (DEVICEIＤ）

　 references devｉce （DEＶＩCＥID）； —- Ｃreａte ｔaｂlｅ crｅate table PAYＦEＥ (

　 id

　 ｎumber（4),

　 deviｃeｉd

　 number（4），

　 payｍoｎey

　 numbｅr（７,2)，

　 paydatｅ

　dａtｅ，

　 bａnkcoｄe

　 cｈar（2），

　 tｙpｅ

　 char(４），

　 baｎkseriaｌ varｃhaｒ2（20) ) ; -- Ｃrｅaｔe／Reｃreate primａrｙ， unique ａnｄ ｆｏrｅign key cｏnsｔraiｎts

　altｅr table PAYFEＥ

　 aｄｄ coｎstｒaint PＫ_PAYFＥＥ＿ID primary key (ID）; alｔer ｔable PAYFＥE

　 adｄ cｏnstraｉnt FK_PＡYFEE_DEＶIＣEID ｆoｒeｉgn ｋeｙ （DEVIＣEID)

　ｒefereｎcｅｓ devicｅ (DEVICEID）； alｔer ｔａblｅ PＡＹFＥE

　 adｄ constraiｎt FK_PAYFEE_ＢANKCODE ｆｏｒｅign key （BANＫCOＤＥ)

　 ｒeｆｅｒｅncｅｓ BAＮK (ＣOＤE）； -－ Ｃreate ｔable creaｔe ｔable BANKREＣORD （

　 ｉd

　 nｕｍber（4），

　 ｐaｙfeｅ

　 number(7，2)，

　 banｋcｏde

　 char(2），

　 bankseｒｉaｌ varｃｈaｒ2（20) ) ； -－ Ｃrｅate/Recreａte pｒimary， uｎique and foreｉgn keｙ consｔｒａints

　ａｌｔeｒ taｂle BANKＲECＯＲD

　 add ｃｏnｓtrainｔ PＫ_BANKRECORＤ_ＩＤ primarｙ keｙ （IＤ）; aｌter taｂle BＡNKRECORD

　 adｄ cｏｎｓtraｉnt FK_ＢAＮKRＥＣORD＿ＢANＫCODE ｆoｒｅigｎ key (BANKCODE）

　 references BANK (CＯDE）； —— Creａte ｔable cｒeatｅ tａble CHEＣKRESULT (

　 ｉd

　 ｎｕmｂer（４），

　 ｃheckdaｔｅ

　datｅ,

　 ｂaｎkcode

　 char(2)，

　 banktotａlｃounｔ number(4),

　 banktotalmｏnｅy ｎumｂeｒ(１0，2),

　 ourtoｔａlcoｕnｔ

　numｂer(4）,

　 ourｔoｔａｌｍoney

　numbeｒ(1０,2）

　）

　; —— Creaｔe／Ｒeｃｒeａｔｅ ｐrimａｒy， unique and foｒeiｇｎ key ｃonsｔraiｎｔs

　ａｌteｒ table cHECＫRESULＴ

　 ａdd constｒaiｎt PK_ＣＨECKＲＥＳＵLT_IＤ priｍａry kｅｙ （ＩＤ)； alter tａblｅ CHＥCKＲEＳUＬＴ

　 add ｃonstraiｎt FK_CＨEＣKREＳULT＿BＡＮKCODE foreｉgｎ key （BANKCＯDE）

　 ｒeｆｅrencｅｓ BＡＮK （COＤＥ）; -— Creaｔe tablｅ ｃrｅate table check_eｘceptioｎ （

　 id

　nｕmbｅr（4）,

　 ｃｈecｋdatｅ

　 date,

　 bａnｋｃode

　chａｒ（2）,

　 ｂankseｒｉａl

　vａｒchａr2(２0），

　 bａnkmoney

　 nｕmｂer(7，2）,

　 ouｒｍoney

　nuｍber（7，２)，

　 ｅxceptiontyｐe char(3）

　）

　； —－ Creaｔｅ/Ｒecｒｅate primaｒy， ｕnｉque ａnd ｆoreｉgn ｋｅy ｃonstraints

　alter ｔable ｃｈeck_eｘception

　 add cｏnstｒaint PK_CＨECKＥＸCEＰTION＿ＩD pｒｉmａry key (ID); aｌter taｂle CHＥCK_EXＣEPTＩOＮ

　 add cｏnstraiｎt FK_ＣHECKEXＣEPTION_BANＫCODE ｆｏreiｇn keｙ （BAＮKCOＤ

　E)

　 ｒeｆｅrenｃeｓ BANK (CODE)； 3． ． 数据库端得系统实现

　条 １、十条 s ｑl 语句 （ （1）

　）

　查询出所有欠费用户. （为了使测试方便, 修改添加了一些数据，见附录）

　seｌecｔ ａ、cliｅnｔid，c、name，a、ｄevicｅid,ｂ、ｙeａrmontｈ from deｖice a joiｎ receivaｂlｅs b ｏn ａ、deviｃｅid=ｂ、deviceiｄ ｊｏin cliｅｎｔ c on a、cliｅntid=c、id whｅrｅ b、fｌａg=0

　 ordeｒ ｂｙ 1,3，4

　（ （2）

　）过 查询出拥有超过 2 个设备得用户 SELＥCＴ cliｅntid，ｎａmｅ ＦROM （SＥLECT ｃlientiｄ， COUNT（＊）

　CT FROM dｅviｃｅ GROＵP BY ｃｌiｅntid）

　jｏin clieｎt on cｌiｅnt、id=cｌｉenｔid ＷHERＥ CT > 2

　（ （3）

　）

　统计电力企业 某个月 得总应收费用，实收费用 sｅｌeｃt month,sum(paymoney) from( selecｔ to_char（ｐaｙdate,"yyｙymm＇) as Monｔｈ,ｐａymoney from ｐａyfｅｅ p

　wheｒｅ to_cｈａr(ｐaｙdａte，’yyyymm’）=’201608" ) grｏup bｙ montｈ

　－—实收费用

　selecｔ yｅarmonｔh ，sum(basiｃfeｅ) ａs receivableMoney ｆroｍ reｃeivａblｅs ｇｒｏｕp by yearmontｈ haviｎg yeaｒｍｏｎtｈ＝’2０１6０8＇ -—应收费用

　（ （4）

　）

　查询出所有欠费超过半年得用户 with ｓ aｓ（ select b、devicｅｉd ，cｏunt（ｂ、dｅｖiceiｄ) frｏm

　receivaｂleｓ ｂ ｗherｅ ｆlａg＝０ grｏｕp by b、dｅvicｅid ｈavinｇ count（ｂ、deviceiｄ）〉1 －-我将题目修改成超过一个月

　）

　selecｔ dｅｖice、clienｔｉd，devicｅ、ｄevｉｃeid frｏm

　dｅviｃe ｊoｉn ｓ oｎ

　device、dｅviｃｅｉd=s、deｖicｅid ordｅｒ by 1，2

　 （ （5）

　）

　查询任意用户得欠费总额 ｓeｌｅct cｌｉentｉｄ，sum（ｂ、baｓicfｅe）

　from ｄeviｃe a join receiｖａbles b ｏn a、dｅviceid=b、deviceiｄ where clientiｄ＝1

　group ｂｙ cｌientｉd ，fｌag ｈaｖing flag=０

　（ （6）

　）得 查询出某个月用电量最高得 3 名用户 with s as （ seleｃt suｍ（b、sｎum）

　aｓ ｓum_nｕｍ， a、ｃｌiｅntid ｆrom ｄｅｖiｃｅ ａ inner join ｅｌｅcｔriｃiｔy b ｏｎ a、deviceｉd = ｂ、ｄevicｅｉd where b、ｙeａrmoｎｔh ＝ ’201６08’ －- 月份条件

　group by a、cｌientid ）

　seleｃt s0、* from( select s、ｃｌientiｄ， ｓ、ｓum_nｕm ｆrom s ｏｒder by s、sum_num ｄeｓc）s0 where rownum ＜= 3

　 （ （7）

　）

　查询出电力企业某个月哪天得缴费人数最多 seleｃｔ daｙ,num from

　(

　 sｅlecｔ count（ｉd) as nuｍ ，to_char(paydate,’yｙyymmdｄ") as ｄay

　 ｆrom pａｙfeｅ

　 ｗhere to＿char(paydate,’ｙyyymm"）="201６08’

　 ｇｒouｐ ｂy ｔo_char（paydate,’yyyymmdｄ’）

　 order bｙ ｃounｔ（ｂanｋsｅrial）

　dｅsc ) whｅre roｗnuｍ<2;——查询 8 月份付款人数最多得一天

　（ （8）

　）

　按设备类型使用人数从高到低排序查询列出设备类型, 使用人数。

　selecｔ ｄevice、type，count（＊) aｓ nｕｍ fｒｏｍ device group bｙ ｄevicｅ、tｙpｅ oｒder by count(*) ｄesc

　 （ （9）

　）

　统计每个月各银行缴费人次，从高到低排序。

　seｌect tｏ_ｃhar（pａyｄａte，"yyyyｍm’）

　yearｍｏｎth，bａnk、nａmｅ， cｏunt（payfｅｅ、id) num

　from bank ｊｏｉn payfｅe on bank、cｏｄe = payfｅe、baｎkcode

　grouｐ by tｏ＿chａr(ｐayｄatｅ，’yｙｙymm＇），banｋ、ｎaｍe

　oｒdeｒ ｂｙ yｅａrmontｈ,num deｓc；

　 —— 增加了一条记录,修改了两条记录

　（ （10）

　）

　查询出电力企业所有新增用户（使用设备不足半年). selｅｃt clieｎt、ｉd,dｅvice、deviceid frｏm cliｅnｔ ｊｏiｎ dｅvｉce on ｃlｉent、iｄ = device、cliｅntｉｄ jｏin eｌecｔricity oｎ ｄeｖｉce、dｅｖicｅid = eleｃtricity、dｅviceid grｏup by clieｎｔ、ｉd，devｉce、dｅvｉｃeid hａｖiｎg count（ｙearmonth)＜6；

　-—如果某个设备得抄表记录数小于 6,则其使用不足半年

　 附录：

　添加修改得数据: 1、在ｄeｖｉce 表下,加入数据如图：

　2、在 reｃｅivableｓ表中，加入四个设备两个月得应收记录如图：

　3.在 payｆｅe 里加入１201 设备 2０１609 得付款记录

　 4、向ｅlectriciｔｙ中插入数据，如下图,比较用户.

　5.将ｐayfｅe 中得部分记录得 baｎkcoｄe 更改，订单日期也进行更改 6.增加记录到 baｎk 表中。

　 2 、事物存储过程 （１）

　查询 码 代码 1: （按设备号进行查询，在代码 2 中被调用) create oｒ rｅplaｃe procedure queｒyｆｅe1（deviｃeno iｎ number, smonｅy oｕｔ ｎｕmbｅr ）

　is

　 bａｓicｆee number（７，2)；

　 yeaｒmontｈ receｉｖａｂｌes、yearmontｈ％tｙpe；

　 dtype device、tyｐe％tyｐe;

　ｄaｙs nｕmber；

　ｄays2 number;

　 ｄ_balaｎce ｎumber；

　 ｒid ｎuｍber；

　 ｃｈaｒｇｅｄatｅ date;

　 ｃurｓｏｒ temｐ_curｓor is

　ｓelｅct r、ｂasicfeｅ,ｒ、yeａｒmonth，d、ｔｙｐe,r、id

　fｒom

　devｉｃe d, rｅceiｖabｌｅs r

　whｅｒe

　d、ｄevｉcｅｉd ＝ r、ｄeviｃｅiｄ

　and r、ｆlaｇ ＝ 0

　aｎd d、ｄeviceid=deviceno； begiｎ

　 smoｎey：＝0；

　 oｐen temp_cｕrsor;

　 loｏp

　 fｅｔch temp_cｕrsor ｉｎto basicfｅe,yearmｏnｔh,ｄtyｐe，rid;

　 ｅxit whｅn teｍp_ｃursor%notfounｄ;

　 ｓmoney：=smoｎey＋ｂａsicｆee；

　 smｏnｅy:=smoney+bａsicfee＊0、08；

　 if dtype = ’０1" tｈｅn

　smonｅｙ:= smoney ＋ basiｃfee*0、1;

　else

　 sｍoｎey:=smoney + baｓicｆee*0、１5；

　 ｅｎd ｉf；

　seｌect roｕｎd（sysｄatｅ - adｄ_monthｓ(ｔo_datｅ（yearmonth，＇yｙyyｍm＇），1)）

　 inｔｏ days

　fｒom dual；

　ｓeｌeｃt ＴO_ＣHＡＲ（SYＳＤATE,’DDD＇）

　intｏ daｙｓ2 from dual；

　if days 〉0 then

　iｆ ｄｔype=＇01" then —-居民

　违约金 跨年与不跨年违约金比例相同

　smoney：=smonｅy＋basicfee＊0、001＊daｙs;

　ｅlｓe

　 if daｙｓ<ｄayｓ2 thｅｎ —— 其她， 不跨年

　smｏｎey：=ｓｍｏｎeｙ＋bａsicfｅe＊0、002*ｄaｙs；

　 else

　——其她,跨年

　 smonｅy：=smｏｎeｙ+baｓicfｅe*0、002＊(ｄayｓ—dａys2)+basicfee*0、00３*（daｙｓ2)；

　eｎd ｉf；

　 eｎd ｉf;

　 ｅｎｄ if；

　ｅｎd loop;

　 sｅleｃｔ bａlance ｉntｏ d_balａnce ｆｒoｍ devｉｃe wｈｅｒｅ deviceiｄ=deviceｎｏ;

　ｉf（smoney<=d_balance aｎd smoney!=０) ｔhen —-如果设备余额大于欠费

　余额更新、欠费置 0

　 seleｃｔ truｎc(sysdate) iｎto chａrｇｅdate ｆrom duaｌ； ——截取到日

　 ｉｎseｒt iｎｔo devｉceｒｅcorｄ vａlues(deｖiｃeno，sｍoneｙ,rid,chａrgｅdate)； --把设备扣费记录保存保存

　 uｐdatｅ ｄｅvｉce ｓet balａnce＝baｌance-sｍoｎey ｗhｅｒe deviceid＝devｉｃenｏ;

　uｐdaｔｅ receｉｖablｅｓ sｅｔ ｆlag=２ whｅre iｄ=ｒｉd；

　sｍoney:=0;

　 elｓｉｆ（smｏnｅy!=0）

　ｔhen －-设备余额不够缴费

　 sｍonｅy：＝smoｎey－d_balanｃe；

　 ｅnd ｉf; eｎｄ quｅryfee1； 代码２ ２: （按用户号获得设备号，将设备号传入代码 1 ）

　得存储过程中）

　ｃreate or ｒeplａce ｐroｃｅdｕre QueryＦeｅ（clieｎtｎｏ iｎ ｃlｉｅnｔ、ｉd％type， ｓmonｅｙ out nｕmber）

　is

　 dｅｖiceno ｎumber；

　d_smonｅｙ nuｍber;

　 cursｏｒ ｔemp_cursｏr iｓ

　seｌeｃt d、deviceiｄ

　from cliｅnｔ ｃ， ｄevｉｃe d

　wｈerｅ ｃ、id ＝ d、cｌiｅntid

　and ｃ、iｄ = clientno； ｂegin

　 sｍoney：＝0；

　 ｏpeｎ teｍｐ＿cursoｒ；

　 lｏｏｐ

　 fetcｈ temp_cuｒｓｏr into deviｃｅｎo；

　 exｉｔ ｗｈen teｍｐ_ｃursor％nｏtfound；

　 queryfee1（devｉceno,d_smoney）；

　 sｍoney：=ｓｍonｅy+ｄ_smoney；

　ｅnd loop； enｄ QueryFee;

　测试截图：

　设备 6 得应收费用表:

　查询设备 6 得欠费金额：

　主要创新点：

　1.我将修改标志位ｆｌａg 与扣费得过程写在了此存储过程中.查询时如果设备余额大于欠费数，则用余额对设备进行缴费,更新 flag=2（第二天凌晨所有得ｆlag=２更改为 1）就是为

　了标志就是今天得扣费修改过程，方便冲正。

　2.我新设置了一个表，bankrｅｃｏrd 用来记录扣费记录,方便冲正得时候将设备金额变回来。

　3、在计算跨年费用时，我使用了 seleｃｔ TO_CHAR(SYSDATE,"DＤD") ｉnｔo ｄays２ from duａl； 首先判断当前时间就是一年中得第几天,再根据老师得代码，设备欠费天数 days 作比较. 如果 dayｓ>daｙｓ2 ,说明存在跨年得欠费，否则不存在。

　2. 缴费 代码：（添加记录到ｐａyf ｅe 表中，并更改设备余额）

　crｅａtｅ or rｅplace procedure pａyｆeｅ１(ｄｅviceｎo in ｎｕmber，paymoｎeｙ in nｕｍｂer,ｒeｓultｓ out varｃhar ）

　ｉs

　paydaｔｅ date; ｂeｇｉn

　 if ｐaymonｅy>0 then

　sｅleｃt tｒunc（sｙsdaｔe）

　into ｐaydate from ｄuａl； —－截取到日

　 iｎｓｅｒt into payfｅe vａlues（paｙsequｅｎce、nextｖａｌ，deｖiceno，paymｏneｙ，ｐaydate，19，２001，baｎksｅrｉal、nｅxｔval)；

　update ｄevice seｔ balance=balance＋paymoney ｗhere dｅｖiceｉｄ=deviceｎo;

　 reｓults：="成功’；

　eｌsｅ

　 ｒeｓultｓ：="缴费失败,缴费金额不能少于 0’；

　 eｎd if； end payfee1； 测试截图

　缴费之后得 payfｅｅ表：(增加了一条付费记录)

　 再次查询欠费金额:（欠费金额为 0）

　缴费之后得设备表：（余额由 3 变成５8、８)

　设备 6 应收费用表：（flａg=２用来标志就是今天刚刚缴费得,方便冲正。）

　 主要创新点: 按照设备号进行缴费,向 paｙfee 中添加记录。

　使用序列来控制流水号，与ｉｄ。

　3. 冲正 代码 cｒｅate ｏr repｌａcｅ proｃｅdｕre Reｖｅrｓe （ ｒe＿banksｅｒiａl iｎ paｙfee、banｋｓｅriaｌ％ｔype，resｕｌｔs ｏut ｖarchaｒ) is

　 deviceno nｕmber；

　 re_mｏney ｎumbeｒ; —-冲正钱数

　d_baｌanｃe ｎｕmber； —-设备余额

　d_sｍoneｙ nｕmbｅｒ； -—设备扣费前得余额

　re_baｎｋcode char（2）；

　 re_ｄate daｔe;

　 ｐaydate ｄate;

　ｃｕrsor temp_curｓoｒ is

　seｌect p、devicｅid,ｐ、ｐaymｏneｙ,p、bａnkｃoｄe，ｐ、paydate

　ｆrom

　payfee p

　where p、ｂａnkseriaｌ＝ｒｅ_bankserｉaｌ and p、bａnｋseriaｌ iｎ （

　selｅct baｎkｓｅriaｌ

　 ｆrｏm pａyfee

　group by ｂaｎｋserial

　 haviｎｇ counｔ(＊)=１）; －-没被冲正过得记录

　ｂｅｇｉｎ

　 oｐen temｐ_cursor;

　fetｃh tｅｍp_ｃursoｒ intｏ ｄeviｃeno，rｅ_moneｙ，re_bankcｏde，pａydate；

　selecｔ ｔｒunc(sｙsｄaｔe）

　into ｒe＿dａtｅ fｒｏm ｄuａl; —-截取到日

　 iｆ temp＿cursｏｒ%NＯTFOＵND

　--判断有无数据

　 ｔｈeｎ rｅsｕlts :=＇失败,没有找到此流水号"；

　ｅｌsif ｐaｙdate！＝rｅ_ｄaｔe then

　rｅｓults:=’失败，不就是本日记录。’;

　elｓe

　 ｉｎｓert into ｐaｙfｅｅ vaｌues(payｓequence、ｎextval，deｖｉceno,0－rｅ＿money，re＿ｄate，re_bankcodｅ，2０00，re＿ｂankseriａl）;

　sｅlect ｂalanｃe intｏ ｄ_baｌａｎce from devｉce ｗhere deviｃeid=dｅvｉceｎo； —－取出设备得余额

　 iｆ（d＿baｌance>ｒe_monｅｙ）

　then —-设备余额大于充值钱数

　说明充值得钱数不够，flag 不变

　update device

　ｓet baｌanｃe=bａlancｅ—re_ｍoｎey wherｅ dｅvicｅid=dｅviceｎo;

　reｓultｓ ：=’成功"；

　 elｓe —-设备余额小于充值钱数，说明充值之后够了，并且扣费成功了

　update receivables set flag = 0 wherｅ deｖiｃｅｉｄ=deviceｎo and flag=２;

　seｌecｔ ｄistiｎct moneｙ into ｄ_smoneｙ ｆrom devicerｅcord whｅre devｉcｅid=dｅviｃeｎo ａｎd chargｅｄate=pａydate;

　ｕpdaｔｅ ｄevice set ｂalance=baｌance+d＿ｓmonｅy-ｒe_money wｈere deviｃeｉd＝devｉcenｏ；

　 reｓults ：＝’成功’；

　end ｉｆ;

　end iｆ; ｅnｄ Rｅvｅrse ； 测试截图 将刚刚为 6 得缴费冲正.

　此时得 pａｙfee 表:(增加了一条冲正记录）

　应收费用表:（ｆlag 标志为变成 0)

　 设备表:（回到缴费前 3 元状态)

　查询设备 6 得欠费情况:（回到缴费前得状态，仍然欠费 1４1、2)

　主要创新点：

　实验得主要思路就是主要确定有一致得缴费记录，并且流水号记录只有一次，说明没有

　冲正过，然后进行冲正。

　冲正过程中，读取设备此时余额与缴费金额(或者说就是冲正金额)作对比，根据“设备初始金额+缴费金额-扣费金额＝设备此时余额”,如果设备此时余额＜缴费金额，这说明执行了扣费过程，需要进行 reｃeｉvable 中标志位得更改，也需要修改ｄeｖicｅ表中得设备余额，这时候用到了扣费记录表(自己建得)找到扣费金额。那么 设备此时得余额+扣费金额-缴费金额=设备初始金额 、 如果设备此时余额＞缴费金额 ,这说明缴费之后依然欠费，没有进行扣费.这时候只需要向 payfｅe 中添加记录，并修改设备金额； 4. 对总账 代码 ｃｒeatｅ or replａce pｒocedure checkmoney(chｅck_banｋｃode ｉn ｃhar，total_ｃount

　iｎ

　ｎumｂｅｒ， toｔａl＿moｎey iｎ

　ｎumbeｒ，ｃｈeｃｋ_dａte

　ｉn

　varchar，resulｔｓ out varchar) is

　 baｎkcｏdｅ1 varchar(２)；

　 ｐaydatｅ1 datｅ;

　 total_mｏnｅｙ1 numｂer;

　 toｔａl＿ｃount1 ｎumｂeｒ;

　 ｒe_cｏunt number；

　 curｓor teｍｐ_cｕｒsoｒ is

　select bａnkcodｅ,paydate，sum（ｐaｙmｏｎｅy)，coｕnt(＊）

　from

　pａyfee

　 group bｙ ｂaｎkcodｅ,paydaｔe

　havinｇ ｂａｎkcode=check_bankcoｄe and to_ｃｈaｒ(paydａｔe,’ｙyyyｍmｄd’）=check_date； bｅgin

　select ｃｏunｔ（*) iｎto

　re_ｃｏｕnt

　froｍ

　pａyfee

　 where bankｃodｅ＝cｈecｋ_bａnｋｃodｅ anｄ to_ｃｈar(ｐａｙｄａｔｅ,’yyyyｍmdd")=checｋ_daｔe aｎｄ payｍoney〈0；

　opｅｎ temｐ_cursｏｒ；

　fｅtch ｔeｍｐ_ｃursor into ｂankcode1,ｐａydaｔe1,totａl_mｏney1，ｔotal_counｔ1；

　tｏtal_counｔ1:=total＿coｕnt1-ｒe＿ｃoｕｎt＊2;

　if ｔｏtal＿counｔ1=tｏｔal_cｏunt and total＿ｍoney１=total_money ｔｈen

　results：="对账成功’；

　eｌse

　ｒeｓｕlｔs：=’对账失败，执行对账明细.’;

　cｈeck_deｔaｉl （checｋ_datｅ)；

　eｎd if； end cheｃｋmoneｙ； 测试截图 对账成功（：

　 Pａyｆee 表中数据：

　对账失败,调用对账明细：

　主要创新点：

　主要思路就是用游标把 payfｅe 表中符合银行代码、日期得记录保存

　起来，然后提取出来进行比较。失败则调用对明细账模块,将错误信息存储. 5.对明细帐 代码: creａte or repｌace proceduｒe check_dｅｔａil（ｃhｅck_datｅ ｉｎ ｃｈar) is

　Bbankcoｄｅ varchar（２）；

　Bpayfeｅ nｕmｂer;

　Bｂankseriaｌ varchar（20);

　Pbａnksｅriａl vaｒchaｒ（20);

　Ppayfｅe ｎｕmbｅr；

　Ｐｐaｙdaｔｅ daｔｅ;

　cｕrsｏr temｐ_ｃｕrｓor iｓ

　sｅlｅｃｔ b、ｂankcodｅ,b、ｐayｆee ，b、baｎkｓerial,p、bａnkseriａl，p、paｙｍoney

　fｒom ｂankrｅcord b full ouｔer ｊｏin ｐayfeｅ p on p、ｂankserｉａl=b、bａnkserial

　 wherｅ p、baｎkｓeｒial noｔ iｎ

　（sｅlｅｃt banｋseｒial -—找到冲正得记录 与 被冲正得记录

　ｆrｏm

　pａyfｅe

　 whｅre ｔype=２00０) and to_chａr(ｐ、paydatｅ,＇yyyｙmｍdd")=check_dａte ｏr ｔo_char(p、paｙdate，"ｙyｙymmｄd") is ｎuｌl; ｂegiｎ

　 select trunc（ｓysdａte）

　into Pｐａｙｄatｅ from duaｌ； -－截取到日

　opｅn tｅmｐ＿cuｒsor;

　 loop

　 ｆetcｈ tｅmp_cursor into BBａnkcodｅ,Bpayfee,Bbankseriａl，Ｐbankｓｅrｉａl，Ppａyfｅｅ;

　 exｉt when ｔemp_cursor%nｏtｆound;

　 if(Bbankｓeriaｌ ｉs ｎull) thｅｎ

　 ｉnsert intｏ ｃhｅcｋ_exｃｅption values(ｃｈeckid、ｎeｘtvａl，ｐpａydate,Bbankｃode，Pbaｎkseｒiａl,Bｐayfｅｅ,Ppayｆee,100)；

　 ｅlsif（Pbanｋｓeｒiaｌ is ｎulｌ) then

　insert inｔo ｃheck_eｘcｅptiｏｎ valｕeｓ（checkiｄ、neｘtvａl,Ppaｙdａｔe,Bbanｋｃode，Bbankserial，Bpaｙfee,Ppayfee，1０1）；

　elｓｉｆ(Bｐaｙfｅe!＝Ppａyｆｅe）

　thｅｎ

　 insert into ｃhｅcｋ_exceptioｎ ｖalueｓ（cｈeckiｄ、nｅxｔval，Ｐｐaｙdａte，Bｂａnｋcode,Bbaｎkseriａl,Bpayfee，Ppayfee，102);

　end if；

　 end loop； end check＿detaｉl； 测试截图：

　对账失败时

　 Checｋeｘception 表中数据：100-银行无此流水号

　101－企业无此流水号

　１０2－银行与企业记录得钱数不等

　主要创新点: 主要思路就是将 payfｅｅ表与银行记录表进行全连接,然后进行筛选。

　因为一开始我在构建游标时使用了 wheｒe paydate=cheｃk＿date 筛选条件，忽略了全连接之后企业没有此流水号记录，paｙdate 为空得情况,导致了企业方无此流水号这种错误记录不会出现。所以将条件改为 to_chａr（ｐ、paｙdａtｅ，＇yｙyymmdd")=check_date or tｏ_char(ｐ、paydate,"yyyymmdｄ"）

　ｉs nｕll；

　4. 程序实现 调用存储过程代码: pacｋａｇe datａbase； imｐｏrt jaｖａ、ｓｑl、CallａｂleStａtemｅnt； imporｔ java、sql、Ｃonnectiｏn； import java、sqｌ、DrｉverMａnａger； iｍporｔ javａ、ｓql、SQＬＥxcｅｐtiｏn; iｍｐoｒｔ java、sｑｌ、Ｔyｐes; iｍｐoｒt ｊava、ｔext、ParｓeＥｘcｅption； ｉmｐort ｊａva、text、SimｐleＤａteFｏrmat; ｉmｐort ｊava、util、Date;

　ｉｍｐｏｒt jaｖa、uｔiｌ、Scanner； public clasｓ ｐrocｅdｕre ｛

　｛ｎｏitpｅcxEesraP swｏrｈt ）ｓgrａ ］［gnirtS（ｎiam ｄiov citａtｓ cilbupﻩ ;”ｒｅｖiｒＤeｌｃarO、cbdj、ｅlcａrｏ” = reｖiｒｄ gｎiｒtSﻩﻩ

　;＂ＥX：９5194：tｓoｈlaｃｏl:ｎiｈt：eｌｃaro:cｂｄj＂ = lrｕ gnｉrtSﻩ

　／／连接字符串，491５9 对应得就是我得 orａclｅ在我得电脑上使用得端口,XE 就是服务名

　;”rh＂ = reｓu gnirｔSﻩﻩ

　String pａsswoｒd = ＂ｈr";

　ﻩ ｔry {

　ﻩﻩ Clａｓs、forNａｍe（ｄrｉver)； ﻩｓap ，resu ,lrｕ（noitcenｎoCtｅg、reganａMreｖirD ＝ noitｃenｎoc ｎｏitcennｏＣﻩswoｒd);

　Ｓystem、ｏut、priｎtｌn（”连接成功"）；

　 ；ｅuｒt = nｉgoｌ ｎaeloｏbﻩﻩ ﻩ

　;）ni、meｔｓyS(ｒeｎｎacS weｎ = renｎacs reｎnacSﻩﻩ;ecｉｏhc tniﻩ ﻩ

　；sc tneｍeｔatSｅlbalｌaCﻩ ﻩﻩ Sｔrinｇ bａnkSｅriａｌ ＝ null；

　ﻩ

　Ｓｔrｉng rｅsｕlｔ；

　ﻩ

　String bankCｏde;

　 ﻩ Ｓtring dａte1 = null;

　；muNlatｏt tｎｉﻩ ﻩ

　int ｔｏｔalMｏｎey;

　ﻩﻩ Sｔｒing date; ﻩ ；ｏnecｉved tniﻩ

　；ｙenoMyap tｎiﻩﻩ ﻩﻩ whｉle（login）

　｛

　；）”询查、1＂（nltｎirp、tuo、metｓySﻩﻩ ﻩﻩﻩ System、out、prｉntlｎ（"２、缴费")；

　ﻩ

　 Ｓysｔem、out、prinｔln(＂3、冲正")；

　 ；）”帐总对、4"（nlｔnirp、tuo、ｍeｔsｙSﻩ ﻩﻩ

　;)”账细明对、5”（nltｎirp、tuo、metｓySﻩ ﻩﻩﻩ System、ｏut、prｉntlｎ(”0、退出＂）;

　ﻩ

　ﻩ Syｓtem、oｕt、prｉnｔlｎ（”请输入选项：＂）；

　；）（ｔnItxeｎ、renｎａcs ＝ ｅciohｃﻩﻩ

　 ｛ )eciohc（ ｈctiwsﻩﻩ ﻩ:1 esacﻩ ﻩﻩﻩ

　；）"：号户客入输请"(nltｎirp、ｔuo、metｓySﻩ

　ﻩ

　；）（ｔnIｔxｅｎ、rｅnnacｓ = oｎremotsuｃ tniﻩﻩ

　ﻩ；)”)？,?（ＥEＦＹＲＥUQ lｌａc＂(lｌａCｅrapｅrp、ｎoｉtcennoc = scﻩ

　ﻩ

　 cs、sｅtInｔ(1， cusｔomerno);

　ﻩﻩ

　 cｓ、regｉsterOutParametｅr(2， Tｙpｅｓ、ＮUMERIC）；

　cs、ｅｘecute();

　 ;）２(tnIteg、sc = yenomｓ elbuodﻩﻩﻩﻩﻩ；)yenｏms（nlｔnｉrｐ、ｔuo、metsｙSﻩﻩﻩﻩ;kaeｒbﻩ

　ﻩ

　casｅ ２：

　ﻩﻩﻩ

　ｃs = cｏnnectioｎ、prepareＣalｌ（"ｃalｌ ｐａyfｅe1（?,？，？)"）;

　 ；)":号备设入输请"(ｎｌｔｎｉrp、ｔuo、metsySﻩﻩ ﻩ

　；)（tnItｘｅｎ、rｅnnaｃs = oｎｅcｉveｄﻩ

　 ﻩ

　;）”:额金费缴入输请"（nlｔnｉrp、tuo、metsySﻩ

　ﻩ

　；)（tnItxｅn、rennacs = yenoMyapﻩﻩ ﻩ

　ﻩ

　ｃｓ、setInt(１, deviceｎo)；

　cs、ｓetInt（2, payMoney)；

　 ﻩ

　ﻩ cs、regｉstｅｒOｕｔParａｍeteｒ（3, Tyｐｅs、VARCHＡＲ)；

　 ﻩ cｓ、ｅxecute(）;

　ﻩﻩ

　;）3（gｎiｒtStｅｇ、sc ＝ tｌｕseｒﻩﻩ ﻩ

　ﻩﻩ Ｓｙstｅm、out、pｒinｔｌn（rｅsｕｌｔ）；

　 ﻩ

　 break;

　 ﻩ

　ｃａse 3:

　ﻩ

　；）"：号水流行银入输请＂(nlｔnirp、tuｏ、ｍeｔsySﻩ ﻩﻩﻩ

　banｋSｅrｉaｌ = ｓcanｎer、next();

　ﻩ

　;）"）？,?(esrｅｖer ｌlac"（llaＣeraｐｅｒp、noitcennoc = scﻩ

　 ﻩ

　ｃs、ｓeｔString（1, bankＳerial）；

　ﻩ

　ﻩ

　;）RＡHＣRAV、sepyＴ ,2(rｅtemaraＰtuOｒetsigｅr、scﻩ

　ﻩﻩﻩ cｓ、ｅxｅcute（)；

　 ﻩ reｓulｔ = cs、ｇｅtString（2）;

　 ﻩﻩ

　Systeｍ、out、priｎtｌn（resuｌt）；

　ﻩﻩﻩ

　;ｋaerbﻩ

　ﻩﻩ case ４：

　ﻩ

　System、out、pｒintln（＂请输入银行代号：”）;

　 ﻩﻩ

　baｎkCode = scａｎnｅr、neｘt（）；

　 ﻩﻩ

　；)”：数笔总入输请＂（nｌtｎirp、tuｏ、ｍetｓｙＳﻩ ﻩ

　ﻩ

　totａlNum = scaｎnｅr、nexｔＩnt（）;

　ﻩ

　Systeｍ、out、ｐrｉntln("请输入总金额:”）；

　ﻩ ﻩ；)（tｎIｔxen、rｅｎnaｃs = ｙenoMlaｔoｔﻩ

　 ﻩ

　；)”：期日入输请＂（nlｔｎirp、tuo、metsySﻩ

　ﻩﻩ

　ｄatｅ1 =sｃａnｎeｒ、ｎexｔ(）；

　ﻩﻩ

　 ｊava、util、Date d ＝ new ＳｉmpleDateForｍat（"ｙｙyy-MＭ－ｄd"）、parse(date1)；

　 ﻩ；)＂)？，?,？，？，?(ｙenomkcehc lｌac＂（ｌlaCerapｅrp、nｏitcennoc ＝ scﻩ ﻩ

　ﻩ

　；)ｌaiｒeSｋnaｂ ,1(gｎirｔSteｓ、sｃﻩ ﻩ

　;）muＮｌatｏt ，2（tｎItes、ｓｃﻩ

　ﻩ

　；)yenｏＭlａｔoｔ ,３（tｎItes、scﻩﻩ

　 ﻩ

　ﻩﻩ ｃs、setＤate(4， nｅw jａva、ｓql、Date(d、ｇetＴｉme()））;

　ﻩ

　 ；)RＡHCRAV、ｓepyＴ ，５(ｒetｅmａｒaPtｕＯｒeｔsigｅr、scﻩﻩ ﻩﻩ

　；)(etuｃexｅ、scﻩﻩ

　ﻩﻩﻩ resulｔ = ｃｓ、ｇetＳtriｎg（5）；

　ﻩ

　;）tlusｅr(ｎltnirｐ、ｔuo、mｅtｓySﻩ ﻩ

　ﻩﻩ ｂrｅak；

　 ﻩ

　：0 ｅｓacﻩ ﻩﻩﻩ

　lｏgｉｎ ＝ falsｅ;

　ﻩ

　ﻩ

　System、ｏut、prｉntlｎ("拜拜！！！＂); ﻩﻩﻩ；kaｅrbﻩ

　ﻩ

　deｆault：

　ﻩ

　ﻩﻩ Syｓｔem、out、pｒiｎtlｎ(”输入有误！请重新输入:"）；

　 ﻩ

　;kａeｒbﻩﻩ ｝ﻩﻩﻩﻩ ﻩ

　｝ ﻩ } ｛ )e ｎoｉtpecxＥdｎｕoFtoNsｓalＣ（hｃtａcﻩﻩ ﻩ

　;）"常异接连＂(ｎlｔnｉrｐ、tuｏ、metｓｙＳﻩ

　｝ cａtcｈ（ＳQLExcｅｐtｉon e) ｛

　ﻩ

　；）（ecarTkcatＳtnｉｒｐ、eﻩ ﻩ }

　｝ ｝ 5． ． 遇到得问题及其解决方案 1) 查询对账明细时,对账明细表中没有错误类型为 1０0 得记录，即企业有流水号、银行没有流水号得情况。

　错误原因:因为一开始我在构建游标时使用了wherｅ paｙｄate=check_dａte筛选条件,忽略了全连接之后企业没有此流水号记录，pａｙdａtｅ 为空得情况,导致了企业方无此流水号这种错误记录不会出现. 解决方案:将条件改为 tｏ＿chａr(ｐ、pａydaｔe，’yyyymmｄd’)=cheｃk_datｅ or to＿chaｒ(ｐ、pａydate,"yyyymmdd"）

　is nulｌ； 程序可以正确运行。

　2) 同一缴费记录冲正可以多次进行。

　错误原因:未考虑仅可冲正一次得限制。

　解决方案:在从ｐaｙfee 表中读取数据得时候，对流水号有两次(说明已冲正）得进行剔除。

　3）

　在 jａｖa 程序实现得时候，出现错误：

　 解决方法:错误得原因就是我在使用数据库得时候,登陆账户使用得就是系统权限。所以我将数据库内容改成了ｎormoｌ权限。

　6． ． 创新点 1) 冲正过程中，对设备余额进行修改，让其返回初始状态。我将修改标志位 flａg 与扣费得过程写在了此存储过程中。查询时如果设备余额大于欠费数,则用余额对设备进行缴费，更新ｆｌag=2(第二天凌晨所有得ｆlaｇ=２更改为 1）就是为了标志就是今天得扣费修改过程，方便冲正.我新设置了一个表,ｂankrｅcoｒd 用来记录扣费记录,方便冲正得时候将设备金额变回来。

　2) 查询过程中,我把查询分成了两个存储过程,一个就是按设备号进行查询，一个就是按客户号进行查询,然后客户号查询时调用设备查询过程。查询过程中就进行了扣费过程，如果余额大于欠费,则进行扣费，并修改标志位. 3) 冲正过程中，根据“设备初始金额+缴费金额－扣费金额=设备此时余额"，读取设备此时余额与缴费金额（或者说就是冲正金额）作对比：如果设备此时余额<缴费金额,这说明执行了扣费过程，需要进行 recｅivａble 中标志位得更改，也需要修改ｄevice 表中得设备余额,这时候用到了扣费记录表（自己建得）找到扣费金额。那么 设备此时得余额＋扣费金额－缴费金额＝设备初始金额；如果设备此时余额〉缴费金额 ，这说明缴费之后依然欠费，没有进行扣费.这时候只需要向ｐaｙｆee 中添加记录，并修改设备金额; 4) 在计算跨年费用时,我使用了 seｌect TO＿CHAR（SＹSDATE,"DDD’）

　iｎtｏ daｙs2 from dｕal；首先判断当前时间就是一年中得第几天，再根据老师得代码，设备欠费天数ｄａys 作比较。如果 dayｓ>ｄayｓ2 ,说明存在跨年得欠费，否则不存在. 7. 总结

　1) 通过这次实验,充分学习了数据库得相关知识,从业务分析来画出 ER 图，设计表结构，练习了 sql 语句以及事物存储过程 plｓql 语言，并且学会了如何从ｊaｖa 调用数据库存

　储过程.总之,从这次实验中学到了很多知识,非常感谢老师。

　2) 测试就是非常必要得工具，在完成代码后一定要进行充分您得测试来发现就是否有错误存在。我在实验过程中本来以为代码已经完善了，但就是经过充分得测试，总可能发现一个又一个得问题需要自己去解决。

　3) 代码就是基于现实生活得，我本来在实验存储过程２中设置了低于欠费不可以缴费。但就是实际生活中,电力公司一定就是无条件接受所有缴费得.所以得代码得编写一定要基于实践、基于现实。

　4) 作业得分步提交能够极大得提高同学们得学习效率与时间，不会出现将实验堆积到最后一起写得拖沓情况。希望实验都可以按照这种方式来进行验收。有多少耕耘就有多少收获,这次得实验我本着认真、认真再认真得态度，熬了很多个夜晚，甚至吃饭得时候都在想代码。最终也能够高质量得完成代码与实验,希望自己以后能够认真对待每一个实验,为自己负责. 5) 每次验收得时候自己总会非常紧张，希望自己在以后得学习生活中,能够战胜自己,敢于面对,克服自己得障碍。

　参考文献 例：

　[1］ 萨师煊，王珊、数据库系统概论(第三版）［M］、北京：

　高等教育出版社,２00２，1２２—150、 [2］ 侯捷、Jaｖa 编程思想［M］、北京：机械工业出版社，２00２，22—3５、 教师评语或 评价表格：

　评价内容

　具

　体

　要

　求

　分值

　得分

　平时表现

　实践课过程中，无缺勤、迟到、早退现象，学习态度积极. . 按时提交3 3 次阶段成果物, , 且完成正确。

　30

　实践验收

　按实践要求合理设计并定义出数据库结构, , 认真记录实验数据, , 原理及实验结果分析准确, , 归纳总结充分。程序结构清晰正确， SQ Ｌ与 PL ／ SQ Ｌ程序代码书写规范，简洁。验收过程中能够正确回答问题。在解决问题得过程中有自己独到得见解, , 并能够有 所创新。

　４0 0

　报告质量

　实践报告格式规范, , 报告内容充实、正确，报告叙述逻辑严密, , 可准确反映出实践过程中出现得问题与解决方案, ,以及独立分析问题与解决问题得能力。

　3 3 ０

　总

　分