在ORACLE的前端工具FORM中封装过程资源相当丰富且用途广泛笔者在系统设计中借助其中的封装过程FORMS_DDL解决了许多应用难题以下就所实现部分功能作简要介绍
一 实现数据的批量复制
在应用系统中经常存在需要成批量处理的数据采用程序实现后可以大大地提高工作效率如以电表电耗DHJL（电表柜号DBGH电表号DBH倍率BL月份YF CHAR()上月表底数BS本月表底数BS）为例用户当月的工作是将上月数据再追加一次然后将BS值自动替换为本月（A）的BS值而用户只需输入本月的BS值编程实现如下
根据上月产生当月（A〔的记录的查询
H:=SELECT DBGHDBHBL||||A||
||YFBSBS FROM NHJL
WHERE YF=TO_CHAR(ADD_MONTHS(TO_DATE
(AYYYYMM))YYYYMM);
生成临时表DHJL
FORMS_DDL(CREATE TABLE DHJL AS ||H);
将临时表追加到DHJL中但不能重复
H:=INSERT INTO NHJL SELECT * FROM
DHJL WHERE (DBGHDBHBLYF)
NOT IN (SELECT DBGHDBHBLYF NHJL);
FORMS_DDL(H);
删除临时表
FORMS_DDL(DROP TABLE DHJL);
提交
COMMIT_FORM;
二 解决按周期换算问题
日常应用中还有一类具有典型周期性的应用如在设备管理中设备的周期性维修保养计划WXJH（设备编号SBBH保养部位WXBW保养内容WXNR维修周期WXZQ开始月份KSRQ CHAR（））用户在进行数据初始化之后只要输入一个年份值（A）就根据维修周期和输入年份换算出当年设备维修保养计划（WXJH）的内容程序实现如下
A:=; 初始化
产生出月份的维修保养项目的查询语句的字符串并初始化H
H:=SELECT SBBHWXBWWXNR
||||A||A||||YF FROM WXJH
WHERE MOD(||A||A||TO_NUMBER(KSRQ)WXZQ)= AND
KSRQ< ='||''''||A1||A2||'''';
K1:=2; 初始化
产生出2到12月份的维修保养项目的查询语句的字符串，并用UNION连接
WHILE K1< 13 LOOP
A2:=TO_CHAR(K1);
A2:=LPAD(A2,2,'0'); 格式转换
H1:=H1||' UNION '||'SELECT SBBH,WXBW,WXNR,
'||''''||A1||A2||''''||'"YF" FROM
WXJH WHERE MOD('||A1||A2||'-TO_NUMBER(KSRQ),WXZQ)=0
AND KSRQ< ='||''''||A1||A2||'''';
K1:=K1+1;
END LOOP;
删除旧表并创建新表
FORMS_DDL('DROP VIEW WXJH1');
FORMS_DDL('CREATE VIEW WXJH1 AS '||H1);
三、 实现用户自定义公式列
对于应用系统来说，绝大部分的编程和维护工作是由报表的调整引起的。Tw.wiNGWit.Com用户会提出自己输入公式定义新列的要求。实现方法如下:
1、定义基表
T1(行关键字ROWKEY, 列关键字COLKEY char(2) ,值VALUE number );
T2(行关键字ROWKEY，列1COL00 ,列2 COL01,。。。。。。，列nnCOLmn);
T3(列编码COLKEY char(2), 公式FORMU varchar2(300));
基表T1和基表T2中存放要查询的基本数据,实现N：1的对应关系。在T1上创建实现这种关系的数据库触发子，实现自动维护中间表T2（具体实现不再赘叙）。建立基表T1的主要目的，是为了REPORT中采用“矩阵风格”输出报表。基表T3中存放着所有可维护的列编码和列的公式。
2、具体实现
DECLARE
H1 VARCHAR2(3000),
H VARCHAR2(3000),
CURSOR ZB IS SELECT 'SELECT ROWKEY,'||''''||COLKEY||''''||
'"COLKEY",'||FORMU||'"VALUE" FROM T2' FROM T3
WHERE FORMU IS NOT NULL; 定义按公式产生的新记录的游标
BEGIN
产生对基本T1的查询的字符串
H1:='SELECT ROWKEY,COLKEY,VALUE FROM T1';
将产生的新记录查询的“UNION”到基本T1上
OPEN ZB;
FETCH ZB INTO H;
WHILE ZB%FOUND LOOP
H1:=H1||' UNION '||H;
FETCH ZB INTO H;
END LOOP;
CLOSE ZB;
删除旧视图并创建新视图V1
FORMS_DDL('DROP VIEW V1');
FORMS_DDL('CREATE VIEW V1 AS '||H1);
END;
