Oracle中巧用FORMS_DDL

　
　H1:=‘SELECT DBGH,DBH,BL,’||’’’’||A1||’’’’||’"YF",BS2,BS2 FROM NHJL 

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

FORMS_DDL(‘CREATE TABLE DHJL1 AS ‘||H1); 

    
    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; 

A1:=‘01’;――初始化 

    
H1:=‘SELECT SBBH,WXBW,WXNR,’||’’’’||A1||A2||’’’’||’"YF" FROM WXJH 
WHERE MOD(‘||A1||A2||’-TO_NUMBER(KSRQ),WXZQ)=0 AND 
KSRQ<=‘||’’’’||A1||A2||’’’’; 
K1:=2;――初始化 

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); 

    
     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 

H1:=‘SELECT ROWKEY,COLKEY,VALUE FROM T1’; 

  
  　 OPEN ZB; 

　　 FETCH ZB INTO H; 

　　 WHILE ZB%FOUND LOOP 

　　　　H1:=H1||’ UNION ‘||H; 

　　　　FETCH ZB INTO H; 

　　 END LOOP; 

　　 CLOSE ZB;