Oracle中巧用FORMS_DDL

　　在Oracle的前端工具FORM4.5中，封装过程资源相当丰富，且用途广泛。笔者在系统设计中，借助其中的封装过程“FORMS_DDL”，解决了许多应用难题。以下就所实现部分功能作简要介绍。

　　一、实现数据的批量复制

　　在应用系统中，经常存在需要成批量处理的数据，采用程序实现后,可以大大地提高工作效率。如以电表电耗DHJL（电表柜号DBGH，电表号DBH，倍率BL，月份YF CHAR(6)，上月表底数BS1，本月表底数BS2）为例，用户当月的工作是将上月数据再追加一次，然后将BS2值自动替换为本月（A1）的BS1值，而用户只需输入本月的BS2值。编程实现如下：

　　――根据上月产生当月（A1〔的记录的查询

　　H1:='SELECT DBGH,DBH,BL,'''''A1'''''"YF",BS2,BS2 FROM NHJL

　　WHERE YF=TO_CHAR(ADD_MONTHS(TO_DATE(A1,'YYYYMM'),-1),'YYYYMM');

　　――生成临时表DHJL1

　　FORMS_DDL('CREATE TABLE DHJL1 AS 'H1);

　　――将临时表追加到DHJL中，但不能重复

　　H1:='INSERT INTO NHJL SELECT * FROM DHJL1 WHERE (DBGH,DBH,BL,YF)

　　NOT IN (SELECT DBGH,DBH,BL,YF NHJL)';

　　FORMS_DDL(H1);

　　――删除临时表

　　FORMS_DDL('DROP TABLE DHJL1');

　　――提交

　　COMMIT_FORM;

　　二、解决按周期换算问题

　　日常应用中，还有一类具有典型周期性的应用。如在设备治理中,设备的周期性维修保养计划WXJH（设备编号SBBH,保养部位WXBW,保养内容WXNR,维修周期WXZQ,开始月份KSRQ CHAR（6）），用户在进行数据初始化之后，只要输入一个年份值（A1），就根据维修周期和输入年份换算出当年设备维修保养计划（WXJH1）的内容。程序实现如下：

　　A1:='01';――初始化

　　――产生出1月份的维修保养项目的查询语句的字符串，并初始化H1

　　H1:='SELECT SBBH,WXBW,WXNR,'''''A1A2'''''"YF" FROM WXJH

　　WHERE MOD('A1A2'-TO_NUMBER(KSRQ),WXZQ)=0 AND KSRQ<='''''A1A2'''';

　　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,'''''A1A2'''''"YF" FROM

　　 WXJH WHERE MOD('A1A2'-TO_NUMBER(KSRQ),WXZQ)=0

　　 AND KSRQ<='''''A1A2'''';

　　K1:=K1+1;

　　END LOOP;

　　――删除旧表并创建新表

　　FORMS_DDL('DROP VIEW WXJH1');

　　FORMS_DDL('CREATE VIEW WXJH1 AS 'H1);

　　三、实现用户自定义公式列

　　对于应用系统来说，绝大部分的编程和维护工作是由报表的调整引起的。用户会提出自己输入公式定义新列的要求。实现方法如下:

　　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;