1 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 <<loop1>> 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' ) is 125 begin 126 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) is 135 begin 136 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 else 146 147 dbms_output.put_line('未找到数据'); 148 149 end if; 150 151 152 153 exception --异常 154 155 156 157 158 when no_data_found then 159 160 --dbms_output.put_line('未查找到数据'); 161 dbms_output.put_line('sqlcode='|| sqlcode); 162 dbms_output.put_line('sqlerrm='|| sqlerrm); 163 164 when others then 165 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) is 175 176 v_xm t_hq_ryxx.xingm%type; 177 178 begin 179 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 is 192 begin 193 194 update t_hq_ryxx set bum= '101' where bum is null; 195 196 commit; 197 198 if sql%rowcount >0 then 199 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;