ORACLE应用程序开发人员指南-1

ORACLE应用程序开发人员指南
ORACLE APPLICATIONS DEVELOPER’S GUIDE
--译者：罗勇，对原文有删减、补充、纠正，不提供翻译质量保证。

--序言：阅读本文档，需要有点基础，也就是会做简单的form，懂点PL/SQL，懂做form时用到的一些东西，比如画布(含堆叠画布和内容画布)，数据块，参数，窗口，包等，对form的常用触发器有点理解。
1.在ORACLE应用程序中使用PL/SQL
1.1服务器端与客户端PL/SQL过程
1.1.1服务器端PL/SQL过程
服务器端PL/SQL过程(Server-Side PL/SQL procedure)指保存在ORACLE数据库中的过程。
1.1.2客户端PL/SQL过程
客户端PL/SQL过程(Client-Side PL/SQL procedure)指运行在ORACLE数据库客户机(本文一般指FORM所在的服务器，而不是用户使用的个人PC)中的过程。
1.2 PL/SQL编码普遍标准
1.2.1 尽量使用包组织PL/SQL
FORM的每个块，包括数据块和逻辑块都应该为之创建包(package).
1.2.2关于包的大小
客户端PL/SQL包单元(包单元指包说明或者包主体或者独立的过程)的源文件大小不能超过10K，其源文件和编译后的文件大小之和不能超过64K(超过64K编译会出错)。若会超过此大小，请拆分包单元，如果是包过大，可将包的私有变量和过程放到一个或者多个私有包(private package，目前我还不了解这个私有包，据称私有包内的变量和过程只有源包可以访问)中，若是单独的过程过大，可将过程拆为多个。
服务器端PL/SQL包和过程大小虽然没有限制，但是FORM在调用时生成的本地副本(local stub)却有大小限制。所以请限制包的过程数量在25个以内以防包的大小超过10K。
1.2.3为包添加新过程时添加到包的最后
不管是客户端还是服务器端PL/SQL过程，都应该如此，否则的话，需要编译每个引用该包的FORM，否则会带来ORA-4062错误。
1.2.4客户端PL/SQL包引用字段时加上数据块名做限定
一直使用数据块名加上点加上字段名来引用字段，而不是只写字段名，也就是应该使用BLOCK.FIELD_NAME而不是FIELD_NAME，因为不指定块名，oracle会所有表单中所有的块，降低效率。
1.2.5使用块名字段名调用含输入参数过程，不使用字段作为IN OUT或者OUT 参数调用
使用块名.字段名调用过程，然后使用COPY函数更新该调用字段，而不是用过程的IN OUT 或者OUT参数类型来调用过程。使用这种方法可以阻止字段在不管是否过程真的更改了该字段值都被标记为已更改的状态(being marked as changed)。过程中的OUT类型的参数在过程成功执行后都会被覆盖。举例说明：声明了一个过程test (my_var VARCHAR2 IN)，应该这样调用test(‘block.field’)，而不应该这样做：声明过程test
(my_var VARCHAR2 IN OUT)，然后这样调用它test(:block.field)。
还有个好习惯就是一个过程有多个参数时用=>符号来关联参数和传输的值。
1.2.6使用DEFAULT代替:=来声明过程参数的默认值
这是因为DEFAULT在声明默认值方面比:=更优，但是在FORM中声明常量时应该使用:=赋值，因为你是在赋值而不是在声明默认值。
1.2.7多使用OBJECT ID而不是OBJECT NAME
在对一个对象(OBJECT)使用SET_<OBJECT>_PROPERTY或者ORACLE应用程序对象库的类似方法更改多个属性时尽量使用OBJECT ID，而不是每次都使用OBJECT NAME，当然了这需要先使用类似FIND_ITEM之类的FIND_<OBJECT>方法找到其ID并赋给对应的变量类型(完整的FIND_<OBJECT>方法及返回类型见后)。当然还可以考虑将ID存放于一个包的全局变量中，这样只在FORM运行时寻找一次即可。
罗勇增加附：完整的FIND_<OBJECT>方法及返回类型(可参考FORM BUILDER帮助)

被查找对象类型	查找函数	查找函数返回值类型
Alert	FIND_ALERT	ALERT
Block	FIND_BLOCK	BLOCK
Canvas	FIND_CANVAS	CANVAS
Record Group Column	FIND_COLUMN	GROUPCOLUMN
Editor	FIND_EDITOR	EDITOR
Form	FIND_FORM	FORMMODULE
Record Group	FIND_GROUP	RECORDGROUP
Item	FIND_ITEM	ITEM
List of Values	FIND_LOV	LOV
Menu Item	FIND_MENU_ITEM	MENUITEM
Parameter List	GET_PARAMETER_LIST	PARAMLIST
Relation	FIND_RELATION	RELATION
Report	FIND_REPORT_OBJECT	REPORT
Tab Page	FIND_TAB_PAGE	TAB_PAGE
Timer	FIND_TIMER	TIMER
Tree Node	FIND_TREE_NODE	NODE
View	FIND_VIEW	VIEWPORT
Window	FIND_WINDOW	WINDOW

1.2.8 小心处理空值NULL
在用等号比较两个值时，若有任何一个值为空，则整个表达式返回false，比如a为null，b为null，那么a=b将会返回false，而不是true。所以比较稳妥的可能会涉及到空的比较的方法是((a=b) or ((a is null) and (b is null)))。附带提下，ORACLE这个文档中少了个括号，我在这里补充了一下。
1.2.9选择合适的全局变量种类
FORM BUILDER 和PL/SQL支持三种全局变量，分别是：


ORACLE 表单全局变量：就是以 :GLOBAL. 跟上名称的全局变量。罗勇补充该中变量可在表单中直接使用而无需事先声明。


PL/SQL包全局变量：在包说明中定义的变量。


ORACLE 表单参数：在FORM设计阶段通过Object Navigator的Parameters节点创建的。
三种全局变量比较

变 量 类 型 是 否 可 行 行 为	ORACLE 表单全局变量	PL/SQL包全局变量	ORACLE 表单参数
可否在设计时创建		是	是
可否在运行时创建	是
对所有的表单可见	是
对附加库可见	是		是
支持具体数据类型	总是CHAR(255)类型	是	是
有声明式默认值			是
能否非直接式引用	是		是
可否在命令行上指定			是
是否需要清除以恢复其占用的内存	是
ORACLE表单任何代码中都可使用	是		是

1.3客户端PL/SQL过程 还是 服务器端PL/SQL过程?
u 调用表单内置过程(ORACLE FORMS BUILT-INS)特别是客户端的内置过程时使用客户端PL/SQL过程
u 直接引用字段,比如使用:block.field或者NAME_IN或者COPY方法,使用客户端PL/SQL过程.当然更好的办法或许是将字段值或者字段名(block.name)作为参数传递给过程,这样有助于提升代码的模块化.
u 如果一个过程包含3个或者以上的SQL语句,一般宜使用服务器端PL/SQL过程.
u 不使用SQL和不访问数据库的过程哪儿方便就放哪儿.
u 一个过程只从服务器端调用,使用服务器端PL/SQL，如果客户端和服务器端都调用，除了该过程特别复杂应放在服务器端外，其余在服务器端和客户端都应保存。
1.4美化你的PL/SQL代码
u 对于包，先定义私有变量，然后是私有过程，最后是公有过程。
u 对于包和过程结束处的end，end后最好跟上包(过程)名称。
u 使用两个字符的代码缩进方法。
u SQL缩进方法如下所示(也是用两个字符式代码缩进，注意断行)：
DECLARE
CURSOR employee IS
SELECT empno
FROM emp
WHERE deptno = 10
AND ename IN (‘WARSHINGTON’,’MONROE’)

AND mgr =2701;
u 使用 -- 开始注释
u 注释行从注视符号 -- 开始缩进，而不是从注释行的语句开始。
u 如果语句肯定不需要了，删除它。
u 混合使用大小写，PL/SQL中的保留字使用大写，其余使用小写。
u 不要深层嵌套使用IF…THEN…ELSE，而应该使用IF…THEN…ELSIF，良好的格式如下所示:(此地不得不遗憾的提一句:FORMS BUILDER 6i不支持CASE语法)
IF … THEN …
ELSIF … THEN …
ELSIF … THEN …
ELSIF … THEN …
ELSIF … THEN …
END IF;
而不是如下格式
IF … THEN …ELSE
IF … THEN … ELSE
IF … THEN … ELSE
END IF
END IF
END IF;
u 除了过程中要处理某个异常，否则过程中不应该出现嵌套的PL/SQL块(即BEGIN/END块)。
1.5 异常处理
1.5.1 FORM中的PL/SLQ错误处理
如果出现错误想停止继续处理，先用FND_MESSAGE显示错误信息，再用RAISE_FORM_TRIGGER_FAILURE停止继续处理，语法格式如下(斜体部分根据实际情况撰写)：
IF (error_condition) THEN
fnd_message.set_name(appl_short_name,message_name);
fnd_message.error;
RAISE FORM_TRIGGER_FAILURE;
END IF;
1.5.2 数据库过程中的错误处理
指保存在数据库的过程，先用FND_MESSAGE.SETNAME定制显示的消息，然后使用APP_EXCEPTION.RAISE_EXCEPTION来停止继续处理，FORM中不需做任何事情来处理这个异常，因为ON-ERROR触发器会处理的。语法格式如下(斜体部分根据实际情况撰写)：
IF (error_condition) THEN
fnd_message.set_name(appl_short_name,message_name);
fnd_message.error;
APP_EXCEPTION.RAISE_EXCEPTION;
END IF;
1.5.3检测FORM_SUCCESS,FORM_FAILURE,FORM_FATAL
记住检测这些值时，这些值可能被你的内置过程触发的触发器中的另外的内置过程改变，举个例子：
GO_ITEM(‘emp.empno’);
IF FORM_FAILURE THEN
RAISE FORM_TRIGGER_FAILURE;
END IF;
可能会有这种情况，你的内置过程GO_ITEM触发了别的出发器，比较典型的就是WHEN-NEW-ITEM-INSTANCE。虽然GO_ITEM这个内置过程可能会失败，但是WHEN-NEW-ITEM-INSTANCE这个触发器可能会成功执行，这时候FORM_FAILURE就为false了，而不是true了，解决这个问题的方法：
GO_ITEM(‘emp.empno’);
IF :SYSTEM.CURSOR_ITEM != ‘EMP.EMPNO’ THEN
RAISE FORM_TRIGGER_FAILURE;
END IF;
1.5.4 避免使用RAISE_APPLICATION_ERROR因为它同服务器端处理异常的模式(schema)有冲突。