大型數(shù)據(jù)庫(kù)技術(shù)：PL SQL練習(xí)

PL/SQL練習(xí)練習(xí)一編寫(xiě)一個(gè)觸發(fā)器，當(dāng)任何時(shí)候某個(gè)部門(mén)從DEPT中刪除時(shí)，該觸發(fā)器將從EMP表中刪除該部門(mén)的所有雇員。createorreplacetriggertri_dept_empafterdeleteondeptforeachrowbegindeletefromempwheredeptno=:old.deptno;end;/練習(xí)二某招生系統(tǒng)，要求計(jì)算考生的總分，并根據(jù)每門(mén)專(zhuān)業(yè)課的最低分?jǐn)?shù)線(xiàn)和總分的最低分?jǐn)?shù)線(xiàn)自動(dòng)將考生歸類(lèi)為錄取考生或落選考生。SID 考生編號(hào)SName考生姓名Status 標(biāo)志位TotalScore總分EnglishScore英語(yǔ)成績(jī)PoliticsScore政治成績(jī)Major1Score專(zhuān)業(yè)課1成績(jī)Major2Score專(zhuān)業(yè)課2成績(jī)Major3Score專(zhuān)業(yè)課3成績(jī)createorreplaceprocedurehandle_score(esnumber,psnumber,m1snumber,m2snumber,m3snumber,tsnumber)iscursorc_scoreisselect*fromscoreforupdatenowait;beginforcinc_scoreloopupdatescoresettotalscore=c.englishscore+c.politicsscore+c.major1score+c.major2score+c.major3scorewherecurrentofc_score;ifc.totalscore>=tsandc.englishescore>=esandc.politicsscore>=psandc.major1score>=m1sandc.major2score>=m2sandc.major3score>=m3sthenupdatescoresetc.status='PASS'wherecurrentofc_score;elseupdatescoresetc.status='FAIL'wherecurrentofc_score;endif;endloop;end;/練習(xí)三編寫(xiě)一個(gè)函數(shù)以檢查所指定雇員的薪水是否有效范圍內(nèi)。不同職位的薪水范圍為：Designation RangeClerk 1500-2500Salesman 2501-3500Analyst 3501-4500Others 4501andabove.如果薪水在此范圍內(nèi)，則顯示消息"SalaryisOK"，否則更新薪水為該范圍內(nèi)的最小值。createorreplaceprocedureProc_Chk_Emp_Sal(Emp_NoINemp.emp_id%TYPE)asVc_Jobemp.job%TYPE;N_Salemp.emp_salary%TYPE;beginselectjob,emp_salaryintoVc_Job,N_Salfromempwhereemp_id=Emp_No;ifUpper(Vc_Job)='CLERK'thenifN_Sal<=2500andN_Sal>=1500thenDBMS_OUTPUT.PUT_LINE('SalaryisOK!');elseupdateempsetemp_salary=1500whereemp_id=Emp_No;endif;elsifUpper(Vc_Job)='SALESMAN'thenifN_Sal<=3500andN_Sal>=2501thenDBMS_OUTPUT.PUT_LINE('SalaryisOK!');elseupdateempsetemp_salary=2501whereemp_id=Emp_No;endif;elsifUpper(Vc_Job)='ANALYST'thenifN_Sal<=4500andN_Sal>=3501thenDBMS_OUTPUT.PUT_LINE('SalaryisOK!');elseupdateempsetemp_salary=3501whereemp_id=Emp_No;endif;elsifUpper(Vc_Job)='OTHERS'thenifN_Sal>=4501thenDBMS_OUTPUT.PUT_LINE('SalaryisOK!');elseupdateempsetemp_salary=4501whereemp_id=Emp_No;endif;elsenull;endif;end;/練習(xí)四“北京到香港”的飛機(jī)票目前還剩3張，假設(shè)現(xiàn)在有4個(gè)訂票點(diǎn)都同時(shí)要訂“北京到香港”的機(jī)票，那么必然至少有一個(gè)訂票點(diǎn)不能訂到票。請(qǐng)?jiān)O(shè)計(jì)一個(gè)訂票程序來(lái)保證機(jī)票的正確訂出。訂票表的結(jié)構(gòu)createtableticket(idnumber(3)primarykey,--唯一idroutevarchar2(20)notnull,--航線(xiàn)名稱(chēng)

numnumber(3)--票的余數(shù));insertintoticketvalues(1,'北京到香港',3);createorreplaceprocedurepro_plane(v_routevarchar2,v_numnumber)asCURSORcur_ticket(v_p_route)ISselectnumfromticketwhereroute=v_p_routeforupdate;beginOPENcur_ticket(v_route);ifcur_ticket.num<v_numthenDBMS_OUTPUT.PUT_LINE('NotEnoughTicketAvailable!');elseupdateticketsetnum=num-v_numwherecurrentofcur_ticket;endif;CLOSEcur_ticket;commit;end;/練習(xí)五醫(yī)院藥品都實(shí)行效期管理，效期早的藥品先使用。請(qǐng)?jiān)O(shè)計(jì)一個(gè)程序來(lái)按效期使用藥品，要求:使用觸發(fā)器來(lái)維護(hù)兩個(gè)表之間的庫(kù)存的一致性對(duì)藥品出庫(kù)時(shí),能正確選擇批次藥品庫(kù)存表kccreatetablekc(idnumber(2)primarykey,--藥品idypnamevarchar2(20),--藥品名稱(chēng)

numnumber(5)--數(shù)量);insertintokcvalues(1,'青霉素',3000);insertintokcvalues(2,'雙黃連',4000);藥品批次庫(kù)存表batchkccreatetablebatchkc(idnumber(2)referenceskc(id),--藥品idvaliddatedate,--到期時(shí)間

bnumnumber(5),--數(shù)量

primarykey(id,validdate));insertintobatchkcvalues(1,'01-5月-04',2500);insertintobatchkcvalues(1,'01-12月-04',500);insertintobatchkcvalues(2,'12-1月-04',1000);insertintobatchkcvalues(2,'07-6月-04',1000);insertintobatchkcvalues(2,'13-8月-04',1000);insertintobatchkcvalues(2,'13-12月-05',1000);出庫(kù)青霉素2700支

1,'01-5月-04',25001,'01-12月-04',200createorreplaceproceduredeliver(v_nameVARCHAR2,v_numNUMBER)asv_kcNUMBER;v_leftNUMBER;v_p_idNUMBER;cursorcur_batchkc(v_idNUMBER)isselectbnumfrombatchkcwhereid=v_idorderbyvaliddateforupdate;beginselectnum,idintov_kc,v_p_idfromkcwhereypname=v_name;ifv_kc>=v_numthenv_left:=v_num;foriterincur_batchkc(v_p_id)loopifiter.bnum>v_leftthenupdatebatchkcsetbnum=bnum-v_leftwherecurrentofcur_batchkc;EXIT;elsifiter.bnum=v_numthendeletefrombatchkcwherecurrentofcur_batchkc;EXIT;elsedeletefrombatchkcwherecurrentofcur_batchkc;v_left:=v_left-iter.bnum;endif;endloop;elseDBMS_OUTPUT.PUT_LINE('NotEnoughinInventory!');endif;end;/createorreplacetriggertri_batchkcafterdeleteorupdateonbatchkcforeachrowdeclarev_numNUMBER;beginifDELETINGthenupdatekcsetnum=num-: