知识大全 Oracle 中巧用FORMS

Posted 2022-07-16 公式

篇首语：一艺之成，当尽毕生之力。本文由小常识网(cha138.com)小编为大家整理，主要介绍了知识大全 Oracle 中巧用FORMS相关的知识，希望对你有一定的参考价值。

Oracle 中巧用FORMS 以下文字资料是由(全榜网网www.cha138.com)小编为大家搜集整理后发布的内容，让我们赶快一起来看一下吧！

　　在ORACLE的前端工具FORM 中封装过程资源相当丰富且用途广泛笔者在系统设计中借助其中的封装过程 FORMS_DDL 解决了许多应用难题以下就所实现部分功能作简要介绍　　一实现数据的批量复制　　在应用系统中经常存在需要成批量处理的数据采用程序实现后可以大大地提高工作效率如以电表电耗DHJL（电表柜号DBGH 电表号DBH 倍率BL 月份YF CHAR( ) 上月表底数BS 本月表底数BS ）为例用户当月的工作是将上月数据再追加一次然后将BS 值自动替换为本月（A ）的BS 值而用户只需输入本月的BS 值编程实现如下　　根据上月产生当月（A 〔的记录的查询　　H := SELECT DBGH DBH BL || ||A ||　　 || YF BS BS FROM NHJL　　WHERE YF=TO_CHAR(ADD_MONTHS(TO_DATE　　(A YYYYMM ) ) YYYYMM );　　生成临时表DHJL 　　FORMS_DDL( CREATE TABLE DHJL AS ||H );　　将临时表追加到DHJL中但不能重复　　H := INSERT INTO NHJL SELECT * FROM 　　DHJL WHERE (DBGH DBH BL YF)　　NOT IN (SELECT DBGH DBH BL YF NHJL) ;　　FORMS_DDL(H );　　删除临时表　　FORMS_DDL( DROP TABLE DHJL );　　提交　　MIT_FORM;　　二解决按周期换算问题　　日常应用中还有一类具有典型周期性的应用如在设备管理中设备的周期性维修保养计划WXJH（设备编号SBBH 保养部位WXBW 保养内容WXNR 维修周期WXZQ 开始月份KSRQ CHAR（））用户在进行数据初始化之后只要输入一个年份值（A ）就根据维修周期和输入年份换算出当年设备维修保养计划（WXJH ）的内容程序实现如下　　A := ; 初始化　　产生出月份的维修保养项目的查询语句的字符串并初始化H 　　H := SELECT SBBH WXBW WXNR 　　 || ||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);　　三、实现用户自定义公式列　　对于应用系统来说，绝大部分的编程和维护工作是由报表的调整引起的。.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;　　 cha138/Article/program/Oracle/201311/16643