繁體中文当前位置: 首页 > 图文教程 > 数据库 > Oracle > ORACLE应用经验(1)
- Oracle
- 解决Oracle 9i和Tomcat端口冲突
- Oracle JOB的建立，定时执行任务
- ORA-01562 和 ORA-01628 问题解决
- oracle startup时 ORA-00600错误解决
- 解决Oracle处理中文乱码的一种方法
- 用Oracle10g列值掩码技术隐藏敏感数据
- 如何解决JOB的Interval输入参数过长
- 理解物化视图刷新过程中出现的约束冲突
- Oracle数据库如何查询记录时给记录加锁
- 两种方法分析每月工作日计算程序
- 如何避免Oracle数据库密码出现@符号
- 在Oracle中使用登录触发器初始化用户会话
- Oracle数据库中的数据出错的解决办法
- Oracle11.2 命令行手工最简创建数据库的过程
- Oracle 语句优化分析说明
- ORACLE 常用函数总结(80个)
- 从Oracle 表格行列转置说起
- EXECUTE IMMEDIATE用法小结
- Oracle 创建用户及数据表的方法
- oracle 在一个存储过程中调用另一个返回游标的存储过程
Oracle 中的 ORACLE应用经验(1)
出处:互联网 整理: 软晨网（RuanChen.com） 发布: 2009-10-31 浏览: 105 ::
收藏到网摘: n/a
APR-4(April) MAY-5(May) JUN-6(June)
JUL-7(July) AUG-8(August) SEP-9(September)
OCT-10(October) NOV-11(November) DEC-12(December)
********************************************************************
****************************常用设置********************************
---on-log 触发器编写示范
Declare
flag varchar2(80):=null;
cou number:=1;
n number;
Begin
Loop
logon(USERNAME,PASSWORD||'@'||CONNECT,PROPERTY_FALSE....);
flag:=Get_Application_Property(DATASOURCE);
Exit when cou>8 or flag='ORACLE';
cou:=cou+1;
End Loop;
If flag<>'ORACLE' then
set_alert_property('a_1',alert_message_text,
'登录失败,请返回重试');
n:=show_alert('a_1');
raise form_trigger_failure; --中断 FORM
End if;
End;
---对基表执行查询(只对基表)
Set_Block_Property('Block_Name',Default_Where,'where ......');
Go_Block('Block_Name');
Execute_Query;
***************************************************
变量：
局部变量；
全局变量--------------1.:block.item
2.:parameter.v_name
3.:global.V_name
***************************************************
---同步发生显示
synchronize;
---实施'TRIGGER'触发
EXECUTE_TRIGGER(TRIGGER_NAME);
---清除模块
clear_block(NO_VALIDATE); 'NO_VALIDATE'不生效
--建立警告栏并由警告栏选择
Declare
n number;
Begin
Set_Alert_Property('Alert_Name',Alert_Message_Text,'message');
n:=Show_Alert('Alert_Name');
If n=Alert_Button1 then
...;
ElsIf n=Alert_Button2 then
...;
End if;
End;
---WINDOW设置
--运行时最大化,最小化
Set_Window_Property(FORMS_MDI_WINDOW, WINDOW_STATE, MAXIMIZE|MINIMIZE);
--WINDOW标题
Set_Window_Property(FORMS_MDI_WINDOW, title,'TEXT');
--退出是否为真
Set_Window_Property(FORMS_MDI_WINDOW, REMOVE_ON_EXIT,PROPERTY_FALSE|TRUE);
---设置系统提示信息等级
:System.Message_Level:= '5|10|15|20';
---设置ITEM属性
--设置ITEM属性ENABLED
Set_Item_Property('Block_name.Item_name',ENABLED,PROPERTY_TRUE|FALSE);
--设置ITEM属性NAVIGABLE
Set_Item_Property('Block_name.Item_name',NAVIGABLE,PROPERTY_TRUE|FALSE);
--设置ITEM属性VISUAL_ATTRIBUTE
Set_Item_Property('Block_name.Item_name',visual_attribute,'vname');
--'vname'由导航器中(VISUAL_ATTRIBUTES)定义
--设置ITEM属性DISPLAYED
Set_Item_Property('Block_name.Item_name',displayed,TRUE|FALSE);
--设置ITEM属性POSITION
Set_Item_Property('Block_name.Item_name',position,x,y);
--设置ITEM_SIZE
Set_Item_Property('Block_name.Item_name',item_size,x,y);
--设置ITEM属性LABLE
Set_Item_Property('Block_name.Item_name',LABEL,'MESSA
评论 (0) All
