create or replace procedure pr_test1 is 2 begin 3 4 if 2 > 1 then 5 6 7 dbms_output.put_line('条件成立'); 8 9 elsif 4 > 3 then 10 11 if 7 > 6 then 12 13 dbms_output.put_line('条件不成立1'); 14 15 end if; 16 17 elsif 6 > 5 then 18 19 dbms_output.put_line('条件成立2'); 20 21 else 22 dbms_output.put_line('条件不成立3'); 23 24 end if; 25 26 27 28 29 30 31 end pr_test1; 32 33 34 35 create or replace procedure pr_text2 is 36 37 v_case number(3) := 100; 38 39 begin 40 41 case v_case 42 43 when 1 then 44 45 dbms_output.put_line('条件匹配=1'); 46 47 when 100 then 48 49 dbms_output.put_line('条件成匹配=100'); 50 51 else 52 53 dbms_output.put_line('条件不匹配'); 54 55 end case; 56 57 case 58 59 when 8 > 7 then 60 61 dbms_output.put_line('8>7成立'); 62 63 when 9 > 8 then 64 65 dbms_output.put_line('9>8成立'); 66 67 else 68 69 dbms_output.put_line('都不成立'); 70 71 end case; 72 73 --loop循环 74 75 < > 76 loop 77 78 v_case:=v_case-1; 79 80 dbms_output.put_line('v_case='||v_case); 81 82 --if(v_case = 90) then 83 84 --dbms_output.put_line('退出循环'); 85 86 exit loop1 when v_case =90; 87 88 --end if; 89 90 end loop; 91 92 93 while v_case >80 94 95 loop 96 97 v_case:=v_case-1; 98 99 dbms_output.put_line('v_case='||v_case);100 101 --exit when v_case =90;102 103 end loop;104 105 106 dbms_output.put_line('v_case='||'--------');107 for inx in reverse 1..10 loop --1..10(逐渐加1) reverse(从大向小加)108 109 110 v_case:=v_case+inx;111 112 dbms_output.put_line('v_case='||v_case);113 114 115 116 end loop;117 118 119 120 end pr_text2;121 122 123 124 create or replace procedure pr_test2(v_nl in varchar2 default '22' ) is125 begin126 127 update t_hq_ryxx set ruzrq = sysdate where nianl = v_nl;128 129 commit;130 131 end pr_test2;132 133 134 create or replace procedure pr_test3(v_nl in varchar2,v_xx in out varchar2) is135 begin136 137 select xingm into v_xx from t_hq_ryxx where nianl = v_nl and bum = v_xx;138 139 if sql%found then 140 141 142 dbms_output.put_line('查找到数据了');143 144 145 else146 147 dbms_output.put_line('未找到数据');148 149 end if;150 151 152 153 exception --异常154 155 156 157 158 when no_data_found then159 160 --dbms_output.put_line('未查找到数据');161 dbms_output.put_line('sqlcode='|| sqlcode);162 dbms_output.put_line('sqlerrm='|| sqlerrm);163 164 when others then165 dbms_output.put_line('查找出错');166 dbms_output.put_line('sqlcode='|| sqlcode);167 dbms_output.put_line('sqlerrm='|| sqlerrm);168 169 170 end pr_test3;171 172 173 174 create or replace procedure pr_test4(v_nl in varchar2) is175 176 v_xm t_hq_ryxx.xingm%type;177 178 begin179 180 v_xm := '102';181 pr_test3(v_nl,v_xm);182 183 dbms_output.put_line('v_xm='|| v_xm);184 185 186 187 end pr_test4;188 189 190 191 create or replace procedure pr_test5 is192 begin193 194 update t_hq_ryxx set bum= '101' where bum is null;195 196 commit;197 198 if sql%rowcount >0 then199 200 dbms_output.put_line('更新了'|| sql%rowcount || '记录');201 202 else 203 204 dbms_output.put_line('更新了0条记录');205 206 207 end if;208 209 end pr_test5; 
