记录类型和%TYPE

<!-- [if gte mso 9]><xml> <w:WordDocument> <w:View>Normal</w:View> <w:Zoom>0</w:Zoom> <w:PunctuationKerning/> <w:DrawingGridVerticalSpacing>7.8 磅</w:DrawingGridVerticalSpacing> <w:DisplayHorizontalDrawingGridEvery>0</w:DisplayHorizontalDrawingGridEvery> <w:DisplayVerticalDrawingGridEvery>2</w:DisplayVerticalDrawingGridEvery> <w:ValidateAgainstSchemas/> <w:SaveIfXMLInvalid>false</w:SaveIfXMLInvalid> <w:IgnoreMixedContent>false</w:IgnoreMixedContent> <w:AlwaysShowPlaceholderText>false</w:AlwaysShowPlaceholderText> <w:Compatibility> <w:SpaceForUL/> <w:BalanceSingleByteDoubleByteWidth/> <w:DoNotLeaveBackslashAlone/> <w:ULTrailSpace/> <w:DoNotExpandShiftReturn/> <w:AdjustLineHeightInTable/> <w:BreakWrappedTables/> <w:SnapToGridInCell/> <w:WrapTextWithPunct/> <w:UseAsianBreakRules/> <w:DontGrowAutofit/> <w:UseFELayout/> </w:Compatibility> <w:BrowserLevel>MicrosoftInternetExplorer4</w:BrowserLevel> </w:WordDocument> </xml><![endif]--><!-- [if gte mso 9]><xml> <w:LatentStyles DefLockedState="false" LatentStyleCount="156"> </w:LatentStyles> </xml><![endif]--><!-- [if !mso]> <object classid="clsid:38481807-CA0E-42D2-BF39-B33AF135CC4D" id=ieooui> </object> <style> st1/:*{behavior:url(#ieooui) } </style> <![endif]--><!-- [if gte mso 10]> <style> /* Style Definitions */ table.MsoNormalTable {mso-style-name:普通表格; mso-tstyle-rowband-size:0; mso-tstyle-colband-size:0; mso-style-noshow:yes; mso-style-parent:""; mso-padding-alt:0cm 5.4pt 0cm 5.4pt; mso-para-margin:0cm; mso-para-margin-bottom:.0001pt; mso-pagination:widow-orphan; font-size:10.0pt; font-family:"Times New Roman"; mso-fareast-font-family:"Times New Roman"; mso-ansi-language:#0400; mso-fareast-language:#0400; mso-bidi-language:#0400;} </style> <![endif]-->

Connected to Oracle Database 10g Enterprise Edition Release 10.2.0.1.0

Connected as scott

SQL> set serveroutput on;

SQL> declare /* 定义一个记录类型 */

2 type BookRecord is record(

3 bookNo integer,

4 bookName varchar2(40),

5 isbn varchar2(20),

6 authorName varchar2(20),

7 pressName bookName%type ,

8 status char(1),

9 bookPrice float

10 );

11 Book1 BookRecord;/* 初始化一个记录变量 */

/* 建立一个过程，将记录里面的信息全部输出 */

12 procedure printBookRecord(BookA in BookRecord) is

13 begin

14

15 dbms_output.enable;

16 dbms_output.put(' 序号 :'||BookA.bookNo);

17

18 dbms_output.put(' 书名 :'||BookA.bookName);

19 dbms_output.put('ISBN:'||BookA.isbn);

20 dbms_output.put(' 作者 :'||BookA.authorName);

21 dbms_output.put(' 出版社 :'||BookA.pressName);

22

23 if BookA.status='Y' then

24 dbms_output.put(' 库存情况：目前有货 ');

25 else

26 dbms_output.put(' 库存情况：目前没货 ');

27 end if;/* 每个 if 都有一个 end if 与之相对应 */

28

29 dbms_output.put(' 书价 :'||BookA.bookPrice);

30 dbms_output.put_line(' 一条图书信息打印完毕 ');

31 end printBookRecord;/* 过程定义结束也得用 end*/

/* 为记录变量赋值 */

32 begin

33 Book1.bookNo:=102;

34 Book1.bookName:=' 爱国者 ';

35 Book1.isbn:='7-4556-8795-8';

36 Book1.authorName:=' 小明 ';

37 Book1.pressName:=' 高教出版社 ';

38 Book1.status:='Y';

39 Book1.bookPrice:=50.25;

40 /* 调用过程输出记录变量的值 */

41 printBookRecord(Book1);

42 end;

43 /

序号 :102 书名 : 爱国者 ISBN:7-4556-8795-8 作者 : 小明出版社 : 高教出版社 库存情况：目前有货 书价 :50.25 一条图书信息打印完毕

PL/SQL procedure successfully completed

--the end--