实验七 过程式数据库对象的使用.pdfVIP

实验七过程式数据库对象的使用

1.存储过程

1.1创建存储过程，使用employees表中的员工人数来初始化一个局部变量，并调用这个存

储过程

useyggl;

delimiter$$

createproceduretest(outnumber1integer)

begin

declarenumber2integer;

setnumber2=(selectcount(*)fromemployees);

setnumber1=number2;

end$$

delimiter;

calltest(@number);

select@number;

1.2比较两个员工的实际收入，若前者比后者高就输出0，否则就输出1

delimiter$$

createprocedure

compa(inid1char(6),inid2char(6),outbjinteger)

begin

declaresr1,sr2float(8);

selectincome-outcomeintosr1fromsalarywhereemployeeid=id1;

selectincome-outcomeintosr2fromsalarywhereemployeeid=id2;

ifid1id2then

setbj=0;

elsesetbj=1;

endif;

end$$

delimiter;

callcompa(01,02,@bj);

select@bj;

1.3使用游标定一个员工的实际收入是否排在前三名，结果为true表示是，结果为false表

示否。

DELIMITER$$CREATEPROCEDURETOP3(INEM_IDCHAR(6),OUTOKBOOLEAN)

BEGINDECLAREX_EM_IDCHAR(6);

DECLARESEQINT;DECLAREACT_INFLOAT;

DECLAREFOUNDBOOLEAN;

DECLARESALARY_DISCURSORFORSELECTEmployeeID,InCome-OutComeFROMSalary

ORDERBY2DESC;

DECLARECONTINUEHANDLERFORNOTFOUND

SETFOUND=FALSE;

SETSEQ=0;SETFOUND=TRUE;

SETOK=FALSE;

OPENSALARY_DIS;

FETCHSALARY_DISINTOX_EM_ID,ACT_IN;

WHILEFOUNDANDSEQ3ANDOK=FALSEDO

SETSEQ=SEQ+1;

IFX_EM_ID=EM_IDTHEN

SETOK=TRUE;

ENDIF;

FETCHSALARY_DISINTOX_EM_ID,ACT_IN;

ENDWHILE;

CLOSESALARY_DIS;

END$$DELIMITER;

CALLTOP3(01,@OUT1);

1.4创建存储过程，要求当一个员工的工作年份大于6年时将其转到经理办公室工作。

DELIMITER$$

CREATEPROCEDUREt1()

BEGIN

DECLAREDIDCHAR(3);

SELECTDEPARTMENTIDINTODIDFROMDEPARTMENTS

WHEREDEPARTMENTNAME=经理办公室;

UPDATEEMPLOYEESSETDEPARTMENTID=DID

WHEREWORKYEAR6;

END$$

2.存储函数

2.1创建存储函数，返回员工总人数

CREATEFUNCTIONEM_NUM()

RETURNSINTRETURN(SELECTCOUNT(*)FROMemployees);

selectEM_NUM();

2.2创建存储函数，删除在salary表中有employees表中不存在的员工号，若在employees

表中存在则返回false，若不存在则删除该员工号并返回true

DELIMITER$$

CREATEFUNCTIONDELETE_EM(EM_IDCHAR(6))

RETURNSBOOLEANBEGINDECLAR