实验五简单PLSQL程序设计报告.doc

实验五报告 说明：本实验代码量太多，若需要该报告doc文档和实验所用源 代码可加Q: 1270001405颂取，验证信息填写方式：oracle实验 五报告和代码 crcotc tabic ACOOWTCMl nuiher? AnM* varhar2(100). balaiKe nuaterd^Z) declare lrv-balarv:c accowit.balonccttypc. begin update account set balance : balance f 5000 where .Twnr balance Into free aecomi where ?vur* if lrvbalmc. 5000 then ：*?!?： update account ict balor:e - balance - 5000 where onw cosmt, eUe rollback, end If. end ?软? (h) create or replace procedure rec.l e 呼 Vow type. becin ?elect ? into reJ freo enp J(?ves*no ：? 7654) at where ? zmwe?D?w. tw_output. put.Une(员工ff)!8 名为? ? II r?.l. enaoc II *.番门 tfj 号为i ?丨丨 tO-har (rec J. deptno) II *. R 水力i * II to.chartrec.l. exception ?hcn NOJMTMOUO then dbnv output.put JineC 没賓H工号为? | 丨 to har(an enpno) 11 ?的HUSH :鉍:. b?in M: end. m ? iflU 5wn MkF) moo，mv) m?(h ^pJipLsal 4) ereMe or replace trigger T.tIPDATF.JCf_SA1 after update of nirvalary on Job! for each row becin p.sal (：olL job.14. :new. ndn.salory). 7喇之K篱，Wr?iJffp.ew.?l中的湖心?句 ? replace procfcirc PJIP-SALUcJobjd varchar. cruw 说明.flh， create or cmtcot cur_ew is select ? fr? wh?re job : upper (?c.job.i d) md ol for update. ^ eaptrowtypc. begin open cur.ew. loop fetch cur.^np Into exit *hen ur_eopteotfown4, update op ?ct tai - wvjtirv雪 where current of cur_c?p. end loop, clone (做-吻， mi PJIP.SAL. f. eruwn.ial rwober) m an_aarv?al fleet ? froo EXP where JC? 2 ?CLERK*. update JOSS Mt IIN^aiLARY ? SSOOllAXJALMnr 囂 5500 where 风ID ? .CUWC. iclcct ? fro? JC?S where JOB 10 - ?CLZRJT . 7)8) 7) 8) comit. HP Jf? ? ?nJMT 一、实验目的 理解PL/SQL程序结构，掌握Oracle的PL/SQL程序的编制与 调试方法并理解Oracle数据库中的异常处理。 实验内容 了解PL/SQL语法特点，熟悉其程序结构和语句； 熟练掌握PL/SQL各种运算符、控制语句的功能及使用方法 三、实验习题的源程序清单/命令清单/图形界面截 以Scott用户身份登录，完成以下任务。 （一）匿名程序块 建立一个帐户表，并插入数据 涵 SQL 窗□- create table ACCOUNT( ANO number, Aname varchar2(100), Balance number(18,2)); insert into A... SQL输出 统计裘 SQL 输出 统计裘 create table ACCOUNT ( ANO number, Aname varchar2 (100), Balance number (18, 2) )： I:insert into ACCOUNT (1/李文\ 13000): I: 1000);insert into ACCOUNT values(2 1000)