java子程序_子程序和程序包-1

黑山大魔王

于 2021-02-18 17:25:13 发布

阅读量148

点赞数

文章标签： java子程序

本文链接：https://blog.csdn.net/weixin_33230433/article/details/114345043

版权

--准备环境

--表1

CREATE TABLE itemfile

(

itemcode varchar2(4),

itemdesc varchar2(20),

p_category varchar2(20),

qty_hand number(5),

re_level number(5),

max_level number(5),

itemrate number(7,2)

);

INSERT INTO itemfile VALUES('i201','nuts','spares',100,50,250,20);

INSERT INTO itemfile VALUES('i202','bolts','spares',95,125,300,16.5);

INSERT INTO itemfile VALUES('i204','holders','spares',18,30,75,112);

INSERT INTO itemfile VALUES('i205','covers','accessories',30,15,50,400);

INSERT INTO itemfile VALUES('i203','panels','accessories',75,30,150,4000);

INSERT INTO itemfile VALUES('i206','brackets','spares',150,73,200,132);

COMMIT;

--表2

CREATE TABLE order_master

(

orderno VARCHAR2(5),

odate DATE,

vencode VARCHAR2(5),

ostatus CHAR(1),

del_date DATE

);

alter session set nls_date_language = 'AMERICAN';

INSERT INTO order_master VALUES('o001','12-MAY-05', 'V002','c', '15-MAY-05');

INSERT INTO order_master VALUES('o002','14-MAY-05', 'V001','p', '15-MAY-05');

INSERT INTO order_master VALUES('o003','14-MAY-05', 'V001','p', '15-FEB-05');

INSERT INTO order_master VALUES('o004','14-MAY-05', 'V003','p', '15-FEB-05');

INSERT INTO order_master VALUES('o005','14-MAY-05', 'V001','p', '15-FEB-05');

INSERT INTO order_master VALUES('o006','14-APR-03', 'V004','p', '18-MAY-05');

INSERT INTO order_master VALUES('o007','14-MAY-04', 'V003','p', '10-FEB-05');

INSERT INTO order_master VALUES('o008','11-MAY-05', 'V001','p', '12-JUN-05');

INSERT INTO order_master VALUES('o009','14-JAN-05', 'V002','c', '16-FEB-05');

INSERT INTO order_master VALUES('o011','14-JAN-05', 'V001','p', '10-FEB-05');

INSERT INTO order_master VALUES('o012','14-FEB-05', 'V003','p', '15-MAY-05');

INSERT INTO order_master VALUES('o013','14-MAR-05', 'V001','p', '15-MAY-05');

INSERT INTO order_master VALUES('o014','14-FEB-05', 'V002','c', '12-MAY-05');

INSERT INTO order_master VALUES('o015','14-APR-03', 'V004','p', '17-APR-05');

COMMIT;

alter session set nls_date_language = 'SIMPLIFIED CHINESE';

--表3

CREATE TABLE ORDER_DETAIL

(

ORDERNO VARCHAR2(5) PRIMARY KEY,

ODATE DATE,

VENCODE VARCHAR2(5),

itemcode VARCHAR2(10),

qty_ord NUMBER,

qty_deld NUMBER,

OSTATUS CHAR(1),

DEL_DATE DATE,

ORDER_COST NUMBER

);

--表4

create table student

(

stuid int,

stuname varchar2(10),

sex varchar2(2)

);

insert into student values (101, '刘德华', '男');

insert into student values (102, '张学友', '男');

insert into student values (103, '周润发', '男');

insert into student values (104, 'wind', '女');

insert into student values (105, '林青霞', '女');

--表5

create table subject

(

subid varchar2(10) primary key,

subname varchar2(30) not null

);

insert into subject values ('s001', 'oracle');

insert into subject values ('s002', 'java');

----------------------------------------------------------------

****************************************************************

第一部分：开发过程

****************************************************************

----------------------------------------------------------------

***************************************************************

1.建立过程：不带任何参数

---------------------------------------------------------------

--案例01：建立一个输出当前系统日期和时间的过程

create or replace procedure system_out_time

begin

dbms_output.put_line(systimestamp);

end;

调用过程方法01：

SQL> exec system_out_time;

调用过程方法02：

SQL> call system_out_time();

--案例01：打印乘法小九九

create or replace procedure xjj

i integer;

j integer;

begin

dbms_output.put_line(' 打印小九九 ');

for i in 1..9 loop

for j in 1..9 loop

if i>=j then

dbms_output.put_line(to_char(j) ||'*'||to_char(i) || '='||to_char(i*j)||' ');

end if;

end loop;

dbms_output.put_line(' ');

end loop;

end;

----------------------------------------------------------------

***************************************************************

2.建立过程：带输入IN参数

---------------------------------------------------------------

--案例01：使用输入参数查询用户信息

create or replace procedure find_emp(emp_no number)

empname emp.ename%type;

begin

select ename into empname from emp where empno=emp_no;

dbms_output.put_line(' 雇员的姓名是： '|| empname);

exception

when no_data_found then

dbms_output.put_line ( ' 雇员编号未找到： ');

end;

----案例02：根据已知的编号显示出对应职工的姓名

create or replace procedure queryempname

(sfindno emp.empno%type )

sname emp.ename%type;

sjob emp.job%type;

begin

select ename, job into sname, sjob from emp where empno=sfindno;

dbms_output.put_line(' 编号为 '||sfindno|| ' 的职工姓名为 '||sname || ' 工作为 :' ||sjob);

exception

when no_data_found then

dbms_output.put_line('没有符合条件的记录！');

when too_many_rows then

dbms_output.put_line('返回的行数太多！');

when others then

dbms_output.put_line('发生以外错误！');

end;

--案例03：新建一个带有输入参数的存储过程

create or replace procedure add_empoyee

(

eno number,

name varchar2,

sal number,

job varchar2 default 'CLERK',

dno number

)

e_inte exception;

pragma exception_init(e_inte, -2291); --关联例外和错误号,相当于raise

begin

insert into emp (empno, ename, sal, job,deptno) values (eno, name, sal, job, dno);

exception

when dup_val_on_index then --dup_val_on_index是oracle预定义错误

raise_application_error(-20000,'雇员信息不能重复！'); --raise_application_error显示触发例外

when e_inte then

raise_application_error(-20001, '部门号不存在！');

end;

---如该改写为，注意运行结果的异同：

create or replace procedure add_empoyee

(

eno number,

name varchar2,

sal number,

job varchar2 default 'CLERK',

dno number

)

e_inte exception;

begin

insert into emp (empno, ename, sal, job,deptno) values (eno, name, sal, job, dno);

exception

when dup_val_on_index then --dup_val_on_index是oracle预定义错误

dbms_output.put_line('雇员信息不能重复！');

when e_inte then

dbms_output.put_line('部门号不存在！');

end;

--调用方法

exec add_empoyee(&no,'&name', &sal,'&job',&dno);

exec add_empoyee(1113,'CLERK',2000,'MANAGER',15);

如果使用job的默认值则：

exec add_empoyee(1113,'CLERK',2000,null,10);

----------------------------------------------------------------

***************************************************************

3.建立过程：带输入out参数

---------------------------------------------------------------

--案例01:带有输出out参数的存储过程

--新建存储过程

create or replace procedure test001

(epno in number,

v02 out varchar2)

salary number;

begin

select sal into salary from emp

where empno=epno;

if salary <1000 then

v02:='这样的工资太低！';

elsif salary between 1000 and 2000 then

v02:='这样的工资还可以接受！';

else

v02:='这样的待遇是我们不离开的原因！';

end if;

end;

--调用存储过程方法01 (这样的值是固定的)：

declare

v2 varchar2(200); --声明变量时需要和输入参数的类型一致

begin

test001 (&no, v2);

dbms_output.put_line('v02的值为：'||v2);

end;

--调用存储过程方法02(用户交互)：

declare

empno number:=&empno;

v2 varchar(200); --声明变量时需要和输入参数的类型一致

begin

test001 (empno, v2);

dbms_output.put_line('v02的值为：'||v2);

end;

------也可以写成

declare

empno number;

v2 varchar(200); --声明变量时需要和输入参数的类型一致

begin

empno:=&empno;

test001 (empno, v2);

dbms_output.put_line('v02的值为：'||v2);

end;

--案例02：新建一个用于输出雇员名以及工资的过程

create or replace procedure query_emp

(

eno number,

name out varchar2,

salary out number

)

begin

select ename, sal into name, salary from emp where empno=eno;

exception

when no_data_found then

raise_application_error(-20000, '这个员工不存在！');

end;

--调用过程方法01:(使用固定的变量)

declare

nae varchar2(10); --这里的变量和过程中输入参数的类型需要对应

sala number;

begin

query_emp(7788,nae,sala);

dbms_output.put_line('the employee name is : '||nae);

dbms_output.put_line('the employee sal is : '||sala);

end;

--调用过程方法02:(使用交互的变量)

declare

nae varchar2(10); --这里的变量和过程中输入参数的类型需要对应

sala number;

begin

query_emp(&empno,nae,sala);

dbms_output.put_line('the employee name is : '||nae);

dbms_output.put_line('the employee sal is : '||sala);

end;

----------------------------------------------------------------

在存储过程中使用dbms_output.put_line

----------------------------------------------------------------

--案例02的另外一种写法：

create or replace procedure query_emp

(

eno number,

name out varchar2,

salary out number

)

begin

select ename, sal into name, salary from emp where empno=eno;

dbms_output.put_line('the employee name is : '||name);

dbms_output.put_line('the employee sal is : '||salary);

exception

when no_data_found then

raise_application_error(-20000, '这个员工不存在！');

end;

--调用过程方法01:(使用固定的变量)

declare

nae varchar2(10); --这里的变量和过程中输入参数的类型需要对应

sala number;

begin

query_emp(7788,nae,sala);

end;

--调用过程方法02:(使用交互式变量)

declare

nae varchar2(10); --这里的变量和过程中输入参数的类型需要对应

sala number;

begin

query_emp(&empno,nae,sala);

end;

----------------------------------------------------------------

***************************************************************

4.建立过程：带输入 IN out参数

---------------------------------------------------------------

--案例01：新建带 IN OUT参数的过程

--新建代码

create or replace procedure swap

(

p1 in out number,

p2 in out number

)

v_temp number;

begin

v_temp:=p1;

p1:=p2;

p2:=v_temp;

end;

--调用带IN OUT参数的存储过程方法01：

/*由于参数即是输入又是输出参数，所以需要声明变量并输入值*/

declare

n01 number:=100;

n02 number:=200;

begin

swap(n01, n02);

dbms_output.put_line ('n01=' ||n01);

dbms_output.put_line ('n02=' ||n02);

end;

--调用带IN OUT参数的存储过程方法02：

declare

n01 number;

n02 number;

begin

n01:=100;

n02:=200;

swap(n01, n02);

dbms_output.put_line ('n01=' ||n01);

dbms_output.put_line ('n02=' ||n02);

end;

--案例02:新建一个带有in out参数的过程

create or replace procedure comp

(

nm01 in out number,

nm02 in out number

)

v1 number;

v2 number;

begin

v1:=nm01/nm02;

v2:=mod(nm01,nm02);

nm01:=v1;

nm02:=v2;

end;

--调用

declare

n1 number;

n2 number;

begin

n1:=100;

n2:=30;

comp(n1,n2);

dbms_output.put_line(n1);

dbms_output.put_line(n2);

end;

----------------------------------------------------------------

***************************************************************

5.建立过程：为参数传递变量和数据

---------------------------------------------------------------

exec queryempname(sfindno=>7788);

exec queryempname(sfindno=>&no);

黑山大魔王

关注

0
点赞
踩
0

收藏

觉得还不错? 一键收藏
0
评论
java子程序_子程序和程序包-1

--准备环境--表1CREATE TABLE itemfile(itemcode varchar2(4),itemdesc varchar2(20),p_category varchar2(20),qty_hand number(5),re_level number(5),max_level number(5),itemrate number(7,2));INSERT INTO itemfile ...
复制链接

扫一扫