PB自动生成注释.docVIP

PB自动生成注释 DELETE FROM PBCATCOL WHERE PBC_TNAM LIKE %; DELETE FROM PBCATTBL WHERE PBT_TNAM LIKE %; --- 同步表名 INSERT INTO PBCATTBL ( PBT_TNAM, PBT_OWNR , PBT_CMNT) SELECT ALL_TAB_COMMENTS.TABLE_NAME, ALL_TAB_COMMENTS.OWNER, ALL_TAB_COMMENTS.COMMENTS FROM ALL_TAB_COMMENTS WHERE ALL_TAB_COMMENTS.OWNER = EASYHIS AND TABLE_NAME LIKE %; --- 同步字段名 INSERT INTO PBCATCOL ( PBC_TNAM, PBC_OWNR, PBC_CNAM, PBC_LABL, PBC_CMNT, PBC_HDR) SELECT ALL_COL_COMMENTS.TABLE_NAME, ALL_COL_COMMENTS.OWNER, ALL_COL_COMMENTS.COLUMN_NAME, ALL_COL_COMMENTS.COMMENTS , ALL_COL_COMMENTS.COMMENTS , ALL_COL_COMMENTS.COMMENTS FROM ALL_COL_COMMENTS WHERE ALL_COL_COMMENTS.OWNER = EASYHIS AND TABLE_NAME LIKE %; COMMIT; /* CREATE OR REPLACE Function f_CreateTableComment(p_Tblname In Varchar2, p_Owner In Varchar2) Return Char Is Result Char; -- 更新表的PB中文列名 v_Tblname Varchar2(255); Cursor C1 Is Select Column_Name, Comments From All_Col_Comments Where Owner = p_Owner And Table_Name = p_Tblname; v_Comments Varchar(255); v_Column_Name Varchar(100); v_Tab_Comm Varchar(255); Begin -- V_TBLNAME := P_TBLNAME; v_Tab_Comm := ; Select Nvl(Comments, ) Into v_Tab_Comm From All_Tab_Comments a Where a.Owner = p_Owner And a.Table_Name = p_Tblname; Update Pbcattbl Set Pbt_Cmnt = v_Tab_Comm, Pbd_Fhgt = -9, Pbd_Ffce = 宋体, Pbh_Fhgt = -9, Pbh_Ffce = 宋体, Pbl_Fhgt = -9, Pbl_Ffce = 宋体 Where Pbt_Tnam = p_Tblname And Pbt_Ownr = p_Owner; If Sql%Notfound Then Insert Into Pbcattbl (Pbt_Tnam, Pbt_Ownr, Pbd_Fhgt, Pbd_Fwgt, Pbd_Fitl, Pbd_Funl, Pbd_Fchr, Pbd_Fptc, Pbd_Ffce, Pbh_Fhgt, Pbh_Fwgt, Pbh_Fitl, Pbh_Funl, Pbh_Fchr, Pbh_Fptc, Pbh_Ffce, Pbl_Fhgt, Pbl_Fwgt, Pbl_Fitl, Pbl_Funl, Pbl