數(shù)據(jù)庫oracle 8初學(xué)者指南

程序員應(yīng)能夠裝配一個數(shù)據(jù)集并能處理每次查詢一行的數(shù)據(jù)。設(shè)想你推著滿滿一車自選商品到超級市場的收款臺，要求收款員用條形碼掃描器一次完成全部物品的掃描。收款員絕對無法控制價格的計算。如果沒有逐行處理數(shù)據(jù)的能力，依賴于應(yīng)用程序需求的程序員要像的收款員了。從版本6Oracle實現(xiàn)了一種過程處理語言，稱為PL/SQL，它使用戶能更容易地完成工作。PL/SQL具有與大多數(shù)其他程序設(shè)計語言相似的編程結(jié)構(gòu)。有兩種PL/SL版本：一種是數(shù)據(jù)庫引擎(ngne)部分，另一種是嵌入到許多racle工具中的獨立引擎，將它們分別稱為數(shù)據(jù)庫PL/SQL和工具PL/SQL。兩者非常相似，都具有相同的編程結(jié)構(gòu)、語法和邏輯機制，工具PL/SQL另外增加了用于支持工具需求的語法。例如：在窗體上設(shè)置下壓式按扭，以定位到屏幕的底部，此動作可用OraceForms系統(tǒng)中的L/SQL來編程實現(xiàn)。本章主要討論數(shù)據(jù)庫PL/QL。Oracle在何處使用PL/SQL用于Internet的PL/SQL在本章的PL/SQL代碼樣例中，將用三個點(?)來表示省略。此三點并非代碼的組成部分，僅表示此處某些代碼與所介紹的內(nèi)容關(guān)系不大，沒必要列出。可執(zhí)行(Executable)文件是某種計算機程序設(shè)計語言編寫的程序文件。用戶輸入可執(zhí)行字符集(CharacterSet)描述計算機語言支持以及報表中顯示的字符范圍。大多數(shù)程序設(shè)算術(shù)運算符(ArithmeticOperator) 關(guān)系運算符(RelationalOperator) 個日期以二者之間的關(guān)系。常見的關(guān)系運算符有：>、<、<>等。變量(Variable) Word)在PL/SQL中有特殊的含義。它們被留下來供Oracle使用，不能用數(shù)據(jù)類型(DataType)定義數(shù)據(jù)(或信息)的類別。如日常生活中，我們把信息分為數(shù)值和字符。字符類型包括某個特定字母表中所有可表示的字符，數(shù)值類型包括由0～9組成的所循環(huán)(Loop)退出條件(ExitCondition)是循環(huán)的一部分，在循環(huán)中測試數(shù)據(jù)。如果有兩個不同的數(shù)控制結(jié)構(gòu)(ControlStructure)影響計算機程序的處理流程。如果有兩個不同的數(shù)據(jù)處理對象(StoredObject)是存放在數(shù)據(jù)庫里的PL/SQL代碼段，為開發(fā)者所使用，最終用戶將其當(dāng)作Oracle系統(tǒng)的操作。在1.3.1之2“過程組件”中曾提到過Oracle的這種過程性功能。過程(Procedure)是一個在數(shù)據(jù)庫中命名了的PL/SQL集合。它可以或不包含輸入輸函數(shù)也是在數(shù)據(jù)庫中的PL/SQL集合。與過程的主要區(qū)別是函數(shù)必須有一個返回值包(Package)是根據(jù)相同功能的特點把過程和函數(shù)在一起的集合。所有的內(nèi)部過程數(shù)據(jù)庫觸發(fā)器(DatabaseTrigger)也是的可執(zhí)行PL/SQL。數(shù)據(jù)庫觸發(fā)器在插入、更改或刪除語句之前或之后運行。這些數(shù)據(jù)語言(DML)的語句在第7章中討論過。Oracle應(yīng)用服務(wù)器(OracleApplicationServer，縮寫為OAS)是一個Oracle數(shù)據(jù)庫的附加工具。OAS可用來建立基于eb的數(shù)據(jù)庫應(yīng)用并可以在eb請求、PL/SQL引擎和數(shù)據(jù)庫之間作為主要的引擎。HTML(HypertextMarkupLanguage)是基于Web瀏覽的Internet標(biāo)準(zhǔn)語言。文本和圖形HTML標(biāo)記用來標(biāo)識HTML文檔。標(biāo)記作為命令傳給Web瀏覽器，例如標(biāo)識哪個文本頁(DynamicWebPage)是一個用命令建立的HTML文檔。在OAS中，它通常是WYSIWYG是Web服務(wù)器可寫入或讀出的與Wb瀏覽器有關(guān)的文本字符串。在眾多的應(yīng)用中，用來控制eb和應(yīng)的計。持久連接是指應(yīng)用與數(shù)據(jù)庫之間的一種聯(lián)接狀態(tài)。前端事務(wù)應(yīng)用當(dāng)用戶完成一個從表單到表單的導(dǎo)航時通常保持一個與數(shù)據(jù)庫連續(xù)連接。Web網(wǎng)頁的請求結(jié)果是一個不需要與數(shù)據(jù)庫持久連接的HTML文檔。的使用是用戶學(xué)習(xí)模仿持久連接的一個方法。為什么要學(xué)習(xí)作者當(dāng)初剛使用PL/SQL時，在盤上找一個名為plsql己嘗試著用SQL*Plus編寫了一個PL/SQL模塊，獲得了成功。不過學(xué)習(xí)PL/SQL，提高自己技能的最佳途徑是使用OracleForms或其前一代產(chǎn)品SQL*Forms版本。在使用Oracle的過程中，數(shù)據(jù)庫觸發(fā)器、打包和函數(shù)都要用PL/SQL編寫代碼。因此，如果不了解PL/SQL就不可能深入掌握Oracle。PL/SQ是應(yīng)用下列Oracle工具編程的基礎(chǔ)：OracleOracleOracleOracleApplication如果用戶想熟練地使用Oracle產(chǎn)品，就必須掌握PL/SQL。如果用戶具有使用Ada編程的經(jīng)驗，對PL/SQL就不會陌生。本章介紹了初步的概念和編程結(jié)構(gòu)。只有在更熟悉PL/SQL后，和所有其他程序設(shè)計語言一樣，PL/SQL也有一個字符集。用戶能從鍵盤上輸入的字符都數(shù)字0～9符號：()+－*/=！~；：.'@"#$^&_|{}[]其中一些字符用于編程，另一些用作算術(shù)運算操作符(除法、加法、冪等)及關(guān)系運算符(等于和不等于)。例如：在通信應(yīng)用程序中，開發(fā)人員可能會使用變量名“area_code”存放下面列出了PL/SQL中常用的算術(shù)運算符，如果用戶使用過其他高級程序設(shè)計語言，想必不會陌生。運算 意 下面列出了PL/SQL中常用的關(guān)系運算符，如果用戶使用過其他程序設(shè)計語言，一定見過這些符號：運算 意 符號意義樣例(;.項分隔(在例子中，分隔account與Select*from'ifvar1=Rec_read:=--Thisisa/*This,too,isa 變量必須以字母(A~Z)其后跟可選的一個或多個字母、數(shù)字(0~9)或特殊字符$、#或_變量長度不超過30先來看幾個實例。表8-2給出了樣例變量名并評價了其 變量 合法 特殊字符只能是變量 合法 love多于30 保留字可視為PL/SQL 的字符串。在定義變量名時，用戶不能使用這些保留字“l(fā)oop”在PL/SQL中有特殊含義，因此下列代碼是的：employeevarchar2(0)loopnumber保留字不能用作變量名。盡管我們不推薦，但如果用戶愿意，也可以連接兩個保留字形成變量名(如loop_varchar2。完整的PL/SQL保留字表可以在Oracle8i文檔中找到。到目前為止，討論了在PL/SQL中編程時允許使用的字符、變量名和保留字。下面著重討論數(shù)據(jù)類型。PLSQL程序用于處理和顯示多種類型的數(shù)據(jù)。和所有計算機軟件一樣，Oracle也將數(shù)據(jù)類型分成大量的子類。例如：數(shù)可分為整型(不允許有小數(shù))和小數(shù)(有一位小數(shù)variable_namevarchar2(max_length);vc_fieldvc_fieldvarchar2(10):='STARTVALUE'num_fieldnumber(precision scale);其中 可以有1～38個數(shù)字位，而scale表示在precision位數(shù)字中小數(shù)點后的數(shù)num_fieldnumber(12,2表示num_field是一個整數(shù)部分最多10位、小數(shù)部分最多2date_fielddate，Oracle以DD-MON-YY， 年月日顯示為-SEP-0。PL/SQL中編程處理日期必須使用這種格式。是否可以說用戶必須用數(shù)據(jù)庫缺省的日期格式除非用戶用O_CHAR或TO_DATE？是否能提醒用戶用自己的TO_DATE/O_CHAR定義的格式而不賴缺省的期式？那使用程序方和更少依于init.ora設(shè)置。 Oracle中還有DD-MON-RR的日期格式，用來表示4位年份以確保Oracle不會省去兩位數(shù)。關(guān)于這種表示的詳細(xì)情況請參閱SQL*Plus文檔集。這種數(shù)據(jù)類型只有兩個值：true或false。在使用boolean變量時，如果為true，則做某事，否則做另外的事。例如，如果試圖某公司是否分發(fā)了一個10KB的2000年年度預(yù)算表，可用boolean變量。若該公司分發(fā)了此表，則該變量值為true。下面討論PL/SQL是如何構(gòu)成的。利用前幾節(jié)學(xué)到的知識，我們可以建立一些生動有趣的代碼實例。PL/SQL提供了一組標(biāo)準(zhǔn)的自從計算機出現(xiàn)以來，開發(fā)人員一直在使用的過程化技術(shù)：邏輯、循環(huán)以及錯誤處理機制。變量PL/SQL程序是由獨的量執(zhí)代碼和常理等部代塊寫成。PL/SQ可在SQL*Plus窗口中作為一個的塊編碼。當(dāng)在數(shù)據(jù)庫中PL/SQL時，子程序包括單元命名的頭部分、程序類型的以及可選的in、out和inoutbegin和enddeclare和exception部分是可選的。 createorrecper/生時的程序流程以后，PL/SQL的好處將變得更明顯。這將在8.7.4“異常”部分討論。甚至在被createorreceprocedure(pharmacy_idin

/從Oracle8i開始，Oracle已經(jīng)引進(jìn)了自主的事務(wù)處理。在PL/SQL的早期版本中，在子程序中的commit和rollback名PL/SQL塊、過程、函數(shù)或者數(shù)據(jù)庫觸發(fā)器的部分增加一個自主的事務(wù)語句，保證一個在那個塊的commit或rollback語句將對從初始化塊開始的未完成的事務(wù)沒有影響。一個塊中的自主事務(wù)只能由第一個部分組成，自主事務(wù)不允許任何嵌套。下面的例子說明了怎樣創(chuàng)建一個自主事務(wù)塊：pramaautonomous_transaction;/ 此PL/SQL塊用于定義變量。如果用戶熟悉COBOL語言，declare段就相當(dāng)于COBOL中的工作區(qū)。在declare段中，可找到前面講過的常用數(shù)據(jù)類型以及下一節(jié)要介紹的cursor(游標(biāo))當(dāng)對象(命名塊)產(chǎn)生時，declare段自動跟著as關(guān)鍵字。在SQL*Plus編寫一個PL/SQL代碼塊(塊)時，用戶必須指定DECLARE。createor ceproceduresamp(i_salaryini_cityin datesysdate-;變量能在此初始化status_flagvarchar2(1);mess_textvarchar2(80);temp_buffercursormy_cursorselectemployee_number,last_name,first_namefromemployeea,departmentbwherea.department_number=b.department_numberanda.salary>i_salaryandb.location=i_city;/控制結(jié)構(gòu)是所有程序設(shè)計語言的。因為絕大多數(shù)系統(tǒng)都用于處理各種不同的情況，三種類型的if1.1. 知“更換執(zhí)照請到12-G房間”。而在12-G房間，又得到指示“用現(xiàn)金或保付支票(Certifiedcheck)付帳的在1臺及2 策的程序控制如表8-3所示。表8-3下一步 2.iftrue，做某事；為FALSE，做另一件不同的事。PLSQL提供三種if邏輯結(jié)構(gòu)供用戶測試測試為false，則程序控制轉(zhuǎn)到測試后面的代碼。下面的代碼說明PL/SQL這個邏輯的實現(xiàn)：ifvar1>10thenvar2:=var1+20;end語句中的測試(>)是在8.“PL/SQl字符集”中講過的關(guān)系運算符。上面的語句也可以用下列語句替換，結(jié)果一樣。ifnot(var1<=10)thenvar2:=var1+20;endifvar1>10ifvar2<var1thenvar2:=endif;注意，上面代碼中的兩個endif，分別對應(yīng)兩個不同的if。在PL/SQL中實現(xiàn)if邏輯有兩條規(guī)則每個if語句塊以相應(yīng)的endif這種結(jié)構(gòu)與if語句非常相似，唯一不同的是在條件為false時，執(zhí)行跟在else后的一條或多ifvar1>10thenvar2:=var1+20;var2:=var1*var1;endif;注意，同樣的控制邏輯也可以用另外的方式表達(dá)，使var1+20在else部分執(zhí)行，而var1的ifvar1<=10thenvar2:=var1*var1;var2:=var1+20;endif;這種結(jié)構(gòu)用于替代嵌套if-then-else結(jié)構(gòu)。前面中的嵌套if-then-else語句可改寫為elsif無匹配的endifendif仿佛針對前面的ifvar1>10thenvar2:=var1+20;elsifvar1between7and8thenvar2:=2*var1;end if屬于本語句塊開始的if，而不屬于elsif關(guān)鍵字。注意上列各 注意 我們建議用戶編寫程序代碼時采用縮進(jìn)格式—跟上和理解邏輯和控制流是比較容易。前面的例子只說明了一個elsif的語句。但是，在任何if語句中可以有許多elsif語句。值得注意的是elseelsif語句的if/*Codesegment1-易讀ifvar1<5thenvar2:='y';elsifvar1=5thenvar2:=elsevar2:=null;end /*Codesegment2易讀*/ifvar1<5thenvar2y elseifvar1=5:=nulendif;

對前面舉過的駕照管理部門DMVPLSQL編程表示其邏輯如下。根據(jù)“the_act12a,12b,12g3.循環(huán)提供了一遍又一遍直至完成執(zhí)行同一個處理過程的能力。在現(xiàn)實生活中，從自己的車上卸下雜貨的過程中就有兩個循環(huán)：第一個是將好幾個雜貨包一個一個搬到家中的重復(fù)動168-4所示的邏輯。設(shè)置進(jìn)入循環(huán)的條件(2結(jié)束循環(huán)條件為真(如YES=55YES=設(shè)置退出條件(如22編寫循環(huán)語句時，要注意的問題是一定要確保在退出條件滿足時有相應(yīng)的退出代碼。遺憾的是，很多時候開發(fā)人員還是寫了無終止的循環(huán)(當(dāng)然，我們沒有犯過這樣的錯誤，但我們)。在洗發(fā)液說明書上可以見到一個沒有循環(huán)結(jié)束的很好例子：沖洗、抹上、再來。在一個聯(lián)機技術(shù)詞典中有一個非常精辟的總結(jié)說明循環(huán)的概念和開發(fā)人員最容易犯的錯誤：(1)LOOP-EXIT-END ifcnt>=100then測試cnt end End (2)LOOP-EXITWHEN-END10end whilecnt100loopwhile End 第三部分：關(guān)鍵字endlooforin部分定義循環(huán)的變量endloopforcntin1..3insertintotablvalues('Stillinloop',cnt);endloop；在本章的前面部分，討論了PL/SQL塊結(jié)構(gòu)化編碼，介紹了在每個代碼塊中可以選擇的異無論何時發(fā)生錯誤，控制自動地轉(zhuǎn)向執(zhí)行異常部分。表8-5PL/SQL異常， 如果一個select 檢測到有多行數(shù)據(jù)存在(有關(guān)隱式游標(biāo)參閱8.8.2“隱式游標(biāo)”) dup_val_on_index 如果某索引中已有某鍵列值，若還要在該索引中創(chuàng)建該鍵碼值的索引項時，出現(xiàn)此異常。例如：假設(shè)一個計費系統(tǒng)以號為鍵碼，當(dāng)某個應(yīng)用程序準(zhǔn)備創(chuàng)建一個重復(fù)的號時，產(chǎn)生此異常value_error 此異常表示指定目標(biāo)域的長度小于待放入其中的數(shù)據(jù)的長度。例如：ABCDEFGH”字符串放入定義為“varchar2(6)”的域時，產(chǎn)生此異常當(dāng)遇到預(yù)先定義的錯誤時，錯誤被當(dāng)前塊的異常部分相應(yīng)的when...then語句捕捉。跟在when句子后的then語句的代碼被執(zhí)行。then語句執(zhí)行后，控制運行到了緊跟著當(dāng)前塊的end語句的行。如果你的錯誤陷阱代碼只是退出內(nèi)部嵌套的塊，程序?qū)⒗^續(xù)執(zhí)行跟在內(nèi)部塊end語句如果在當(dāng)前塊中沒有聯(lián)系錯誤的when子句并且begin/end塊是嵌套的，程序?qū)⒗^續(xù)在外部塊中尋找錯誤處理柄，直到找到一個。當(dāng)錯誤發(fā)生而在任何異常部分沒有與之聯(lián)系的錯誤處理柄，程序?qū)⒔K止。Oracle給我們提供了“抓住一切”的錯誤處理柄來捕捉不是預(yù)定義的錯誤。whenothersthen錯誤處理柄將捕捉所有Oracle預(yù)定義錯誤范圍之外的錯誤。通過Oracle的sqlcode和sqlerrm函數(shù)在whenothersthen錯誤處理柄中顯示錯誤代碼和錯誤信息是一個好主意。規(guī)則通常用一個whenothers錯誤處理柄。如果你在異常部分有其他的錯誤處理柄，確定whenothers是最后一個。如果你錯誤地先寫whenothers子句，它將捕捉所有的錯誤，即使是那些 有時，特別是在使用if邏輯時，用戶結(jié)束測試一個條件。當(dāng)測試條件為true，什么工作都ifcnt>=90theninsertintotab1values('Stilllessthan90',cnt);endif;關(guān)鍵字nullnull”結(jié)構(gòu)常用于捕捉某個異常，但不做任何處理，然后繼續(xù)執(zhí)行下一塊代碼而不終止程序單元。PL/SQL用游標(biāo)來管理SQ的select語句。游標(biāo)是為處理這些語句而分配的一大塊內(nèi)存。有時用戶手工定義游標(biāo)。游標(biāo)定義類似于其他PL/SQL變量，并且必須遵守同樣名規(guī)則。在本節(jié)中，介紹顯式游標(biāo)(ExplicitCursor)和隱式游標(biāo)(ImplicitCursor)。顯式游標(biāo)要(Declare)，在使用前要打開(Open)，使用完畢要關(guān)閉(Close)。使用隱式游標(biāo)時，用戶無需執(zhí)行上述步驟，只要簡單地編碼select語句并讓PL/SQL根據(jù)需要處理游標(biāo)即可。與循環(huán)結(jié)構(gòu)結(jié)合的顯式游標(biāo)處理返回多于一行的Select語句。與循環(huán)結(jié)合的游標(biāo)將允許你顯式游標(biāo)是作為declare段中的一部分進(jìn)行定義的。所定義的SQL語句必須只包含select語句，并且不能用insert、update或delete關(guān)鍵字。當(dāng)select語句可能返回零或多于一行時，必須用顯式游標(biāo)。本節(jié)介紹如下內(nèi)容：準(zhǔn)備(或打開) 表中，first_name,last_namearchar2(20)而ssn是fnamevarchar2(10);lnamevarchar2(30);ssec_numvarchar2(8);cursorregion_curisselectfirst_name,last_name,ssnwhereregion_number=region_number_in;openfetchregion_curintofname,lname,ssec_num;whileregion_cur%foundifssec_numisnullinsertintoe_msgvalues(pin_in,'noinsertintoe_tabvalues(pin_in,sysdate);endif;fetchregion_curintofname,lname,ssec_num;endloop;closeregion_cur;/found”和“％notfound”檢驗游標(biāo)(此處為“mycur”)成功與否。如果游標(biāo)按照ifmycur%foundendifmycur%notfoundendfetchmycurintotemp_buffer;closemycur;ifmycur%foundend循環(huán)執(zhí)行游標(biāo)取數(shù)操作時，檢索出的總數(shù)據(jù)行數(shù)存放在系統(tǒng)變量“％rowcountwhilecounter<100fetchmycurintotemp_buffer;ifmycur%rowcount<=50thenendcounter:=counter+1;endloop;openmycur;fetchmycur;ifmycur%foundcursormycurselect /*in是數(shù)字型* /*Last_name是字符型*fromwherepin=pin_in;field1varchar2(10);field2number;openfetchmycurintocursormycurselect fromwherepin=pin_in;field1varchar2(10);field2number;openfetchmycurinto如果試圖打開一個已打開的游標(biāo)或關(guān)閉一個已關(guān)閉的游標(biāo)，將會出現(xiàn)錯誤。因此用戶在打開或關(guān)閉游標(biāo)前，若不清楚其狀態(tài)，應(yīng)該用“%isopentrue或false，采取相應(yīng)的動作。ifmycur%isopenthenopenmycur;endif;游標(biāo)的for缺了游標(biāo)的for循環(huán)的簡單介紹，這節(jié)不能算完全。這部分要求用戶忽視剛剛了解的顯式游標(biāo)。游標(biāo)的for循環(huán)的優(yōu)點是用戶不需打開游標(biāo)、取數(shù)據(jù)、測試數(shù)據(jù)的存在(%found)游標(biāo)或定義存放數(shù)據(jù)的變量。相同之處是在部分中的游標(biāo)定義。當(dāng)游標(biāo)被調(diào)用時，用Select語句中的同樣一些元素創(chuàng)建一條記錄。對于由游標(biāo)檢索出的每一行繼續(xù)執(zhí)行循環(huán)內(nèi)的全部代碼，當(dāng)沒有數(shù)據(jù)發(fā)現(xiàn)時，游標(biāo)自動地關(guān)閉。該方法要求最少的編程和得到很少游標(biāo)結(jié)構(gòu)前面的例子用游標(biāo)的forcursorregion_curselectfirst_name,last_name,ssnwhereregion_number=region_number_in;forregion_recinregion_curifregion_rec.ssnisnullinsertintoe_msgvalues(pin_in,'nossnum');insertintoe_tabvalues(pin_in,sysdate);endif;endloop;/ifcounter>=20thenselectlast_nameintolnamewherepin=/每個隱式游標(biāo)必須有一個intoifthis_value>0selectcount(*)from endif;ifthis_value>0selectcount(*)intocnterfrom endif;和顯式游標(biāo)一樣，帶有關(guān)鍵字“隱式游標(biāo)一次僅返回一行，使用時必須檢查表 8-5給出的異常。最常見的異常為“too_many_rowsifcounter>=10thenselectageintov_agewherepin=pin_value;whentoo_many_rowsinsertintotabavalues(pin_value,sysdate);whenno_data_foundthenend/通過檢查PL/SQL的系統(tǒng)變量“％found”或“％notfound”確認(rèn)成功或失敗。使用顯式游標(biāo)的代碼段簡單地檢測這些系統(tǒng)變量以確定使用顯示游標(biāo)的select語句成功或失敗。在學(xué)習(xí)關(guān)系數(shù)據(jù)庫理論時，很有趣的是，由兩個或多個表聯(lián)接構(gòu)成的查詢結(jié)果本身就是一個表。常常需要用PL/SQL循環(huán)查詢一組數(shù)據(jù)并對一組查詢值進(jìn)行比較。PL/SQL允許將這少的I/O操作。本書很多地方都談到了數(shù)據(jù)類型—字符、字母數(shù)字、數(shù)值等等。而PL/SQL表卻是用一個用戶定類表來說的考查下程，看看了找目的怎將州裝入內(nèi)的。setserveroutputonsize100000typejust_namesistableofindexbybinary_integer局部表just_name包含了和stateibinary_integer:= nametabforstate_rec (selectnamefromstate)i:=nametab(i):=state_;endloop;/注意PL/SQL表為PL/SQL的版本2.3PL/SQL是SQL*Plus和過程化代碼共同構(gòu)成的一個混合體。注釋文本括在斜杠星號(/*declaretfieldvarchar2(20);selectdesc_textintotfieldfromprod /*prod是一個中心查詢*/wherepnum='FR4512';/*表的擁有者為 /或declaretfieldvarchar2(20);selectdesc_textintotfieldfrom wherepnum='FR4512'; /或declaretfieldvarchar2(20);selectintotfieldfromprodwherepnum='FR4512';/createorreceprocedure(order_number_inincursordetail_curselectproduct_number,tyfromorder_detailwhereorder_number=order_number_in;v_product_numbernumber;v_tynumber;openfetchdetail_curintov_product_number,v_ty;whiledetail_cur%foundifv_ty>100insertintoorder_audit(order_number,product_number,ty)values(order_number_in,v_product_number,v_ty);endif;"if""Endif"結(jié)束fetchdetail_curintoend/Oracle給開發(fā)者提供了更容易的工具集合。其中一個例子就是有許多適合編程人員的內(nèi)置程序包。內(nèi)置程序包是預(yù)先生成的、在數(shù)據(jù)庫中、能在PL/SQL代碼塊中調(diào)用的根據(jù)需求可以傳遞參數(shù)的程序，它們用來完成下面的各種任務(wù)：把結(jié)果輸出到終端窗口(dbms_output)直接從操作系統(tǒng)文件讀寫數(shù)據(jù)(utl_file)執(zhí)行動態(tài)的SQL(dbms_sql)PL/SQL的功能在于許多預(yù)先寫好的過程。在8.14.2中的“動態(tài)HTML概念”部分，將演示怎樣用Web開發(fā)工具中的內(nèi)置程序包創(chuàng)建頁。當(dāng)Oracle編譯PL/SQL塊時，可能會提示一些錯誤。如同我們面中所表示的，斜杠(/)結(jié)束PL/SQL塊，并且傳遞代碼至Oracle。參閱下述出錯編譯，注意PL/SQL編譯時并不顯示錯誤，要顯示錯誤可用語句shoerrors。sql>createor ceproceduretemp(countinnumber)declarecursormycurselectcount(*)fromopenfetch/warning:Procedurecreatedwithcompilationerrors.SQI>shoerrorsErrorsforPROCEDURELINE/COL PLS-00103:Encounteredthesymbol";"whenexpectingoneofthebegindeclareexitforgotoifloopmodnullpragmaraisereturnselectupdatewhile<anidentifier><adouble_quoteddelimited-identifier><abindvariable><<closecurrentdeletefetchlockinsertopenrollbacksavepointsetsqlexecutecommitforall<asingle-quotedSQLsql>createor ceproceduretemp(countinnumber)declarecursormycurselectcount(*)fromopenfetchwarning:ProcedurecreatedwithcompilationSQL>shoerrorsErrorsforPROCEDURETEMP:LINE/COLERROR

PLS-00103:Encounteredthesymbo;l”whenexpectingoneof.into下面將給出三個簡單的需求，并示范如何用PL/SQL來完成。每個例子中的注釋說明了在本章講過的一些要點。我們用到的編碼風(fēng)格同時說明了良好的編碼技巧。Oracle的保留字已經(jīng)實例本例將通過社會號碼查詢其出生日期。注釋代碼說明PL/SQL如何工作。例中使createorre ceprocedureget_dob(ss_numvarchar2,doboutdate)select

into wheresoc_sec_num=ss_num;exceptionwhenno_data_foundthen /定義的過程有兩個包含在括號中的變量，第一個包括要查詢其出生日期的人員的社會保險號，第二個接受出生日期并將其返回給本過程的調(diào)用者。注意在begin和createorreceprocedureas代碼行間無分號。此兩行間不允許有分號實例本例用函數(shù)而非過程達(dá)到上述相同的結(jié)果。正如下列所示，函數(shù)可以接受多個變量procedure換成了function。createorre cefunctionget_dob(ss_numvarchar2)returndateselectintobirthd wheresoc_sec_num=ss_num;whenno_data_foundthenerror_notify(ss_num);-birthd:=whenothersreturn 實例由于區(qū)域代碼(AreaCode)分成片段(Piece)，某些編號仍然是舊的代碼，而某些已是新的。我createorreceprocedureac_switch(oacinnacinl_change_swnumber(3); cursorac_curSelectdistinctpref_3fromwherearea_code=oac;forac_recinac_curl_change_it:='N';selectintol_change_swfromstatic_excwhereareacode=

andpref_3=ac_rec.pref_3;whenno_data_foundl_change_it:=ifl_change_it='Y'

updatesetarea_code=nacwherearea_code=andpref_3=ac_rec.pref_3;endif;endloop;/

注意在游標(biāo)時distinct的使用。有的讀者可能熟悉關(guān)鍵字unique，但它只用在forac_recinac_curloop語句連續(xù)取每次與查詢語句中的謂詞匹配的行存放到ac_recstatic_exc的select語句包含在自身的內(nèi)部beginend塊內(nèi)，當(dāng)需要在隱式游標(biāo)中檢查一個或多個異常時可以這樣來進(jìn)行。用于Internet的這節(jié)打算簡潔地接觸Oracle應(yīng)用程序服務(wù)器和怎樣編寫PL/SQL代碼，這種代碼把動態(tài)HTML文檔返回到客戶端Web。PL/SQL存放在數(shù)據(jù)庫中。它是一個應(yīng)用邏輯和產(chǎn)生HTML、這節(jié)從通過給出一個對HTML的綜述開始，它是什么和它怎樣解釋。隨著對HTML基礎(chǔ)的理解，這節(jié)剩余部分將試圖使你熟悉工具和產(chǎn)生頁的方法。通過融合你的PL/SQL、游標(biāo)和HTML知識，產(chǎn)生一個從數(shù)據(jù)庫中獲得與一個傳遞參數(shù)值相匹配的數(shù)據(jù)的應(yīng)用程序來結(jié)束本節(jié)。HTML入被eb瀏覽器翻譯成格式化和顯示信息?；貞汸C字處理時代的早期，在indows的所見即所得的環(huán)境之前，如果看文檔的代碼，你可能已經(jīng)看到了“粗體開始”前和一個“粗體結(jié)束”后的文本將以粗體打印。這種標(biāo)識文檔的方法用來幫助員工決定打印的文檔看起來像什么。HTML用同樣的方法標(biāo)識文本文檔。它用任何文本編輯器和本機標(biāo)識語言來寫。同樣，eb編寫軟件也能進(jìn)行簡單的點擊操作。下一次，你瀏覽網(wǎng)頁，能從瀏覽器菜單里頁源代碼，并能看到各種各樣的圍繞著正在看的文本和圖形的。我們提供的例子可以完全按照你所見到的形式用一個計算機的文本編輯器編寫，然后通過在eb瀏覽器中輸出文件的路徑來顯示。我們有目的地提供一個沒有精美的背景和圖象的例子，使你可以親自嘗試一下：圖8-1顯示了HTML代碼在Web瀏覽器如何出現(xiàn)。在繼續(xù)本節(jié)的創(chuàng)建動態(tài)HTML之前，下通常成對出現(xiàn)，封裝被格式化的文本和圖形。第一個定義了標(biāo)識的開始點，第二個定了格式到里結(jié)束例以<html>是HTML。在文本文件的最后一行可以發(fā)現(xiàn)是</html>，在這里結(jié)束了eb瀏覽器翻譯的HTML。為了在HTM文檔中專業(yè)化地布置和排列文本和圖形，表格是必不可少的。簡單地說，表格是一個網(wǎng)格，有產(chǎn)生插入文本和圖形的單元格的行和列。我們的例子甚至在一個外部表格的單元格中嵌套了一個表格。表格是通過打開表格<table>和關(guān)閉表格</table>定義的。在表格里，表格的行通過<tr>打開、</tr>關(guān)閉。在行中的列通過表格數(shù)據(jù)定義。表格數(shù)據(jù)打開是<td></td>。在表格數(shù)據(jù)之間，有在文檔中顯示的數(shù)據(jù)(文本、圖形、超鏈等等和支持的任何格式屬性(下劃線、粗體、斜體等等)。圖8-1HTML文檔的Web成功應(yīng)用表格的關(guān)鍵是在以正確的順序中使用。用戶通常是在出現(xiàn)相反順序時關(guān)閉。因此，表格打開直到所有的表格行和表格數(shù)據(jù)已經(jīng)編碼才能關(guān)閉。下面顯示了一個簡單的表格：我們知道能從數(shù)據(jù)庫中用游標(biāo)一次抽取一行數(shù)據(jù)。想象從數(shù)據(jù)庫中的數(shù)據(jù)表集生成一個HTML。通過傳遞“執(zhí)行部門”的工作分類給過程，游標(biāo)能從雇員表中檢索出每個“執(zhí)行部門”類型的雇員的人事信息并從放假表中檢索出他或假期余額。我們開始討論動態(tài)HTMHTML右之間安排它。OracleApplicationServer和PL/SQL是在Oracle數(shù)據(jù)庫中用發(fā)現(xiàn)的數(shù)據(jù)生成頁的角色。機智的開發(fā)者將為標(biāo)準(zhǔn)背景、表格布局和導(dǎo)航等等的eb地址生成模板。這些標(biāo)準(zhǔn)能作為每次網(wǎng)頁建立時調(diào)用的獨立的模塊。這些獨立過程的調(diào)用和應(yīng)用邏輯的組合將產(chǎn)生有動態(tài)信息的專業(yè)的HTML動態(tài)HTML以上出現(xiàn)了“動態(tài)”的概念，為了更好地理解它，我們通過對照“靜態(tài)”概念來解釋它的意思。用戶所的大多數(shù)網(wǎng)頁是靜態(tài)的。當(dāng)用戶在瀏覽器中輸入HTML文檔的URL時，一個在Web服務(wù)器上的文件，它只有在某個網(wǎng)絡(luò)管理員在Web服務(wù)器上放置一個同名的新文件時才改變內(nèi)容。相反，當(dāng)用戶從URL調(diào)用一個PL/SQL過程時，依靠數(shù)據(jù)庫中數(shù)據(jù)的變化或者傳遞參數(shù)的不同，PL/SQL代碼生成HTML文檔，并為每次請求返回可能不同的網(wǎng)頁。Oracle給開發(fā)者提供了一組內(nèi)置程序包，它可產(chǎn)生HTML、發(fā)送或接收文本、生成前端表單等。讓我們介紹幾個這樣的工具，看看它們怎樣幫助我們數(shù)據(jù)和作為一個HTML在應(yīng)用程序服務(wù)器PL/SL代碼中應(yīng)用定義在HTP內(nèi)置程序包的過程，用戶可生成HML和返回一個Web瀏覽器可以調(diào)用的HML文檔。這里有幾個HTP打程和一個在缺少適當(dāng)?shù)腍TP過程的情況下用來傳遞HML字符串的通用過程。下面例子的代碼和輸出說明了HPcreateor ceprocedure(zip_inincursorphrmc_curselectname,contacts,phone_numberfrompharmacywherezip=htp.title('HealthInformationCorporation');htp.bodyopen(cattributes=>'bgcolor=htp.tablecaption('PharmacyInformation','center');htp.tableheader('PharmacyName');htp.tableheader('ContactName');htp.tableheader('PhoneNumber');forphrmc_recinphrmc_curendloop;/在下一節(jié)，將演示怎樣在一個eb表單中調(diào)用這個過程。下面是一個前面過程被調(diào)用時生成HTM的示例。在HTML中出現(xiàn)的(藥房名)、(聯(lián)系人名)、()將依賴zip_in參數(shù)值成HTML的eb瀏覽器顯示結(jié)果。<TITLE>HealthInformation<BODYbgcolor=<TABLE<CAPTIONALIGN="CENTER">Pharmacy<TH>Pharmacy<TH>Contact<TH>Phone<TD>A.B.ThriftDrug<TD>Arlene<TD>MirageMedicalCenter<TD>John<TD>NumberFiveDrug<TD>Mark 每個人調(diào)用產(chǎn)生相應(yīng)的 、屬性和文本的HTP打包的過程。頁標(biāo)題、標(biāo)題、表頭是硬編碼，因此這頁的每次生成是相同的。 面的例子中，在藥房表中有三個與輸入的郵政編碼匹配的藥房。由于“游標(biāo)for循環(huán)”代碼完全在一組表的 內(nèi)部，一個簡單的HTML一個每次循環(huán)迭代的表行生成。 htp.tabledata過程調(diào)用內(nèi)部的htp.tablerowopen，ht