oralce高手篇(pl编程视图..

《oralce高手篇(pl编程视图..》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、/*以下代码是对emp表进行显示宽度设置*/colempnofor9999;colenamefora10;coljobfora10;colmgrfor9999;colhiredatefora12;colsalfor999999;colcommfor9999;coldeptnofor99;//------------------------------------------------------------------------------------------------------写一个P

2、LSQL程序，输出"helloworld"字符串begindbms_output.put_line('helloworld');end;/设置显示PLSQL程序的输出结果，默认情况下，不显示PLSQL程序的输出结果setserveroutputon;使用基本类型变量和常量，求10+100的和declarepsumnumber(3);msgvarchar2(20);beginpsum:=100+10;msg:='100+10的和为:';dbms_output.put_line(msg

3、

4、psum);e

5、nd;/使用引用型变量，输出7369号员工姓名和工资，【表名.列名%type】declare--定义变量penameemp.ename%type;psalemp.sal%type;begin--这是一个DML语句，放在begin和exception之间selectename,salintopename,psalfromempwhereempno=7369;--输出dbms_output.put_line(pename

6、

7、'的工资是'

8、

9、psal);end;/使用记录型变量，输出7369号员工姓名和工

10、资，【表名%rowtype】declareemp_recordemp%rowtype;beginselect*intoemp_recordfromempwhereempno=7369;dbms_output.put_line(emp_record.ename

11、

12、'的工资是'

13、

14、emp_record.sal);end;/使用if-elsif-elsif-else显示今天星期几declarepdayvarchar2(20);beginselectto_char(sysdate,'day')intopda

15、yfromdual;ifpday='星期六'thendbms_output.put_line('今天是'

16、

17、pday);elsifpday='星期日'thendbms_output.put_line('今天是'

18、

19、pday);elsedbms_output.put_line('工作日');endif;end;//*pday='星期六'相等pday:='星期六'覆值*/使用loop循环显示1-10declarepnumnumber(2);beginpnum:=1;--以下是循环语句loop--只有当条

20、件成立后，立即退出exitwhenpnum>10;--如果条件没成立，继续循环dbms_output.put_line(pnum);pnum:=pnum+1;endloop;end;/使用while循环显示10-20declarepnumnumber(2):=10;beginwhilepnum<=20loopdbms_output.put_line(pnum);pnum:=pnum+2;endloop;end;/使用for循环显示20-30declarepnumnumber(2):=20;begin

21、forpnumin20..30loopdbms_output.put_line(pnum);endloop;end;/使用光标，查询所有员工的姓名和工资，如果需要保存多行记录时，使用光标cursor。declare--光标中装着多条记录，类似于ResultSet集合cursorcursor_empisselectename,salfromemp;--声明自定义变量penameemp.ename%type;psalemp.sal%type;begin--开打光标opencursor_emp;--循环取

22、出每一条记录的值loop--取得每一条的记录，同时向下移动光标fetchcursor_empintopename,psal;--当光标没有找到有用的记录时，就退出exitwhencursor_emp%notfound;--显示dbms_output.put_line(pename

23、

24、'的工资是'

25、

26、psal);endloop;--关闭光标，释放资源closecursor_emp;end;/使用光标，给员工涨工资，总载涨1000，经理涨800，员工涨4000--使用光标