1.txt

来自「2、 编写一个过程模拟到读书室刷卡借书。要求有一个IN参数和一个OUT参数。IN」· 文本 代码 · 共 35 行

2、	编写一个过程模拟到读书室刷卡借书。要求有一个IN参数和一个OUT参数。IN参数用于接受传递过来的借书证条码，然后在表中检索有无读者，如有则将该读者的名称赋给OUT参数。如没有则提示“没有找到该读者信息”。
Create table tab_liab
(num_card char(8),
sname varchar2(20))
insert into tab_liab values(‘001’,’zhou’);
上述表已经创建，只需针对此表编写即可。

Create table tab_liab(
num_card char(8),
sname varchar2(20)
);

insert into tab_liab values('001','zhou');

create or replace procedure find_reader
(i_num_card in char,o_sname out varchar2)
as
countstudent integer;
var_sname tab_liab.sname%type;
begin
  select count(*) into countstudent from tab_liab where i_num_card=num_card;
  if countstudent=0 then
	dbms_output.put_line('没有找到读者信息');
  else
	select sname into var_sname from tab_liab where i_num_card=num_card;
	dbms_output.put_line(var_sname);
  end if;
end find_reader;

declare
var_studentname varchar2(20);
begin
find_reader('002',var_studentname);
end;