内置子程序
Forms内置子程序包括非受限子程序和受限子程序，其中非受限子程序可以在任何触发器和子程序中调用，而受限子程序则不能在PRE-XXX和POST-xxx触发器中调用。
一、警告内置子程序
1)FIND_ALERT
该函数用于返回警告对象的ID标识符，返回值类型为Alert。适用于输入——查询模式。
语法如下：
Function FIND_ALERT(alert_name varchar2);
事例：
DECLARE
Temp alert;
Button number;
Begin
Temp:=find_alert('alert_exit');
Button:=show_alert(temp);
If button=alert_button1 then
Exit_form;
End if;
End;
2)ID_NULL
该函数用于检查警告对象是否存在，返回值类型为BOOLEAN。
语法：function id_null(alert_id alert);
Alert_id用户指定警告对象的ID标识号。
混合动力是什么意思
3)SET_ALERT_BUTTON_PROPERTY
该过程用于设置警告按钮的标签文本。
ppli语法：
PROCEDURE SET_ALERT_BUTTON_PROPERTY
(alert_id ALERT,button NUMBER,property varchar2,value varcher2);
PROCEDURE SET_ALERT_BUTTON_PROPERTY
(alert_name ALERT,button NUMBER,property varchar2,value varcher2);
Button :ALERT_BUTTON1,ALERT_BUTTON2,ALERT_BUTTON3
Property用于指定属性常量（只能设置为“LABEL”）。
4)SET_ALERT_PROPERTY
该过程用于设置警告对象的消息文本。
PROCEDURE SET_ALERT_PROPERTY
(alert_id alert,property number,message varchar2);
PROCEDURE SET_ALERT_PROPERTY
(alert_name alert,property number,message varchar2);
Property参数取值：
ALERT_MESSAGE_TEXT：用于指定警告对象的消息文本。
TITLE：用于指定警告对象的标题。
5)SHOW_ALERT
该函数用于显示警告对象，并返回被选择的按钮。
FUNCTION SHOW_ALERT(alert_id alert);
FUNCTION SHOW_ALERT(alert_name varchar2);
二、应用内置子程序
取得和设置应用属性
1)ADJUST_TZ
该过程用于将日期值从一个时区调整到另一个时区。
语法：
PROCEDURE ADJUST_TZ
(date_var IN OUT DA TE,form_tz varchar2,to_tz varchar2);staples
PROCEDURE ADJUST_TZ
(date_var IN OUT DA TE,form_tz varchar2,to_tz varchar2
Is_daylight IN OUT BOOLEAN,is_in_overlap OUT BOOLEAN,
Timezone_label out varchar2);
Date_var用于指定要调整的日期变量，form_tz用于指定源时区，to_tz用于指定目标时区，is_daylight用于确定日期时间是否为白天，is_in_verlap用于确定日期是否处于交迭周期，timezone_label用于输出时区标签。
2)DO_KEY
该过程用于执行与特定内置子程序相对应的键触发器，如果键触发器不存在，那么执行被指定的内置子程序。该过程是受限过程。
语法：hav
PROCEDURE DO_KEY(subprogram_name varchar2);
Subprogram_name用于指定内置子程序名。
3)GET_APPLICA TION_PROPERTY
该函数用于取得应用模块的属性设置，返回值类型为varchar2。
FUNCTION GET_APPLICA TION_PROPERTY(property number);
Property用于指定属性常量，并且该参数具有以下取值：
东方娃娃怎么样●APPLICA TION_INSTANCE：用于返回实例句柄的指针值。注意：该属性
只适用于WINDOWS平台。
●BUILTIN_DA TE_FORMA T：用于返回FORMS应用的内置日期格式掩码。
●CALLING_FORM：用于返回调用表单的名称。注意：如果当前表单不是
用CALL_FORM函数所调用，那么会返回NULL。
●CONNECT_STRING：用于返回数据库连接字符串。
●CURRENT_FORM：用于返回当前表单的FMX文件名。
●CURRENT_FORM_NAME用于返回当前表单的名称。
●CURSOR_STYLE：用于返回当前光标风格，返回值为BUSY、
CROSSHAIR、DEFAULT、HELP或者INSERTION。
●DA TASOURCE：用于返回当前数据库数据源的名称，返回值为NULL、
ORACLE、DB2、NONSTOP、TERADA TA、NCR/3600/NCR/3700或者SQL SERVER
●DA TETIME_LOCAL_TZ：用于返回本地时区。
●DA TA TIME_SERVER_TZ：用于返回本地时区。
●DISPLAY_HEIGHT：用于返回显示高度。
●DISPLA T_WIDTH：用于返回显示宽度。
●ERROR_DA TE/DA TETIME_FORMA T：用于返回错误的日期格式掩码值。
●FLAG_USER_V ALUE_TOO_LONG：用于返回项值超出最大长度是否截断
的属性设置，返回值为TRUE或FALSE。
●OPERA TING_SYSTEM：用于返回当前操作系统的名称。
●PASSWORD：用于返回当前用户的口令。
●PLSQL_DA TE_FORMA T：用于返回PL/SQL日期格式掩码值。
●SA VEPOINT_NAME：用于返回最近设置的保存点名。注意：该属性只能
在ON-SA VEPOINT和ON-Rollback触发器中使用。
●SSO_USERID：用于返回包含SSO用户的字符串。
●TIMER_NAME：用户返回定时器的名称。
●USER_DA TE/DA TETIME_FORMA T：用于返回用户日期格式掩码的当前
值。
●USER_INTERFACE：用于返回当前用户界面的名称，有效值为MOTIF、
MACINTOSH、MSWINDOWS、MSWINDOWS32、WIN32COMMON、WEB、PM、BLOCKMODE、X或者UNKNOWN。
●USER_NLS_CHARACTER_SET：用于返回环境变量USER_NLS_LANG
字符集部分的当前值。如果未设置环境变量USER_NLS_LANG，那么其默认值为环境变量NLS_LANG的设置。
●USER_NLS_DA TE_FORMA T：用于取得当前NLS日期格式掩码。
●USER_NLS_LANG：用于返回环境变量USER_NLS_LANG的当前值。如
果未设置环境变量USER_NLS_LANG，那么其默认值为环境变量NLS_LANG的设置。
●USER_NLS_LANGUAGE：用于返回环境变量USER_NLS_LANG地区部
分的当前值。如果未设置环境变量USER_NLS_LANG，那么其默认值为环境变量NLS_LANG的设置。
●USER_NLS_TREEITORY：用于返回环境变量USER_NLS_LANG地区部
分的当前值。如果未设置环境变量USER_NLS_LANG，那么其默认值为环境变量NLS_LANG的设置。
●USERNAME：用于返回当前数据库用户的名称。
●VERSION：用于返回Form Runtime的版本号。
例子：
DECLARE
hammer headThe_urname V ARCHAR2(20);
The_password V ARCHAR2(20);
The_connect V ARCHAR2(20);
--显示登录屏
region是什么意思Logon_Screen;
--获取用户名、口令和连接串。
The_urname := Get_application_property(USERNAME);
The_password := Get_application_property(PASSWORD);
The_connect := Get_application_property(CONNECT_STRING);
--登录到数据库
If the_connect is not null then
LOGON(the_urname,the_password||'@'||the_connect);
El
LOGON(the_urname,the_password);
END IF
--设置鼠标光标风格
Set_Application_Property(CURSON_STYLE,'CROSSHAIR');
END
4)HOST
该过程用于在Forms应用中执行命令行工具和OS命令。
PROCEDURE HOST(system_command_string V ARCHAR2);
PROCEDURE HOST
(system_command_string V ARCHAR2,screen_action NUMBER);
System_command_string用于指定要执行的操作系统命令，参数screen_action 用于指定屏幕参数，并且该参数具有以下取值：
●无参数：清屏并提示返回。
●NO_PROMPT：清屏但不提示返回。
●NO_SCREEN：不清屏，同时不提示返回。
5)PAUSE
该过程用于暂停应用。
语法：
PROCEDURE PAUSE；
6)SET_APPLICA TION_PROPERTY
该过程用于设备Forms应用的属性。
语法：
PROCEDURE Set_application_property
(property NUMBER,value varchar2)
孙燕姿仓木麻衣Property 具有以下取值：
●BUILTIN_DA TE_FORMA T：用于设置内置的日期格式掩码。
●CURSOR_STYLE：用于设置光标的显示风格。
●DA TETIME_LOCAL_TZ：用于设置本地时区。
●FLAG_USER_V ALUE_TOO_LONG：用于设置当项值超出最大长度时
Forms应用的处理方式。
●PLSQL_DA TE_FORMA T：用于设置PL/SQL的日期格式掩码。
7)USER_EXIT
该过程用于调用3GL的用户出口子程序。
PROCEDURE USER_EXIT(ur_exit_string V ARCHAR2);
PROCEDURE USER_EXIT
(ur_exit_string V ARCHAR2,error_string V ARCHAR2);
三、块内置子程序
块内置子程序是指与数据块和控制块相关的一些内置子程序。
1)CLEAR_BLOCK
清空当前数据库的所有记录
Procedure clear_block;
Procedure clear_block(commit_mode number);
Commit_mode:
ASK_COMMIT：用于显示内置的提交消息窗口。
DO_COMMIT：用于校验并提交数据。
NO_COMMIT：用于校验但不提交数据。
NO_V ALIDA TE：用于直接清空当前数据库（不提示、不提交、不校验）。
2)FIND_BLOCK
检索特定块的ID标识符
Function find_block(block_name varchar2);
Return block.
3)GET_BLOCK_PROPERTY
取得块的属性
Function get_block_property(block_id block,property number);
Fucntion get_block_proprety(block_name varchar2,property number);
4)GO_BLOCK
导航到特定块
Procedure Go_block(block_name varchar2);
5)ID_BULL
曲奇英文检查特定块是否存在
Function ID_NULL(block_id number);
Return true or fal;
6)NEXT_BLOCK
导航到下一个块
PROCEDURE next_block;
下面在KEY-NEXT-ITEM触发器中引用该过程：
declare
cur_itm varchar(80) := :System.cursor_item;
cur_blk varchar(80) := :System.cursor_Block;
lst_itm varchar(80);
begin
stay hungry stay foolish
lst_itm := cur_blk || '.' || get_block_property (cur_blk, Last_item);
if cur_itm = lst_itm then
next_block;
el
