数据库字典汉字注释维护

关于数据库字典的汉字注释（：独孤求败2003-05-众所周知，datawindow是PB的，但由于一般的数据库只支持英文字段名，所以字段的headerlabel于繁锁，也不方便，有没有什么更好的方法呢？本人就是带着这一疑问进行了一番探索，终于如愿，现提出来与大家1d_tableSQLSELECTTable_name,Comments WHEREtable_type='TABLE'andtable_namelike:as_likeORDERBYtable_nameasc2d_col的SQL ments,b.table_name,b.column_name,a.coltype,a.width,a.scala.precision,a.nulls,a.defaultval,FROMcol mentsWHEREa.tname=b.table_nameAND ame=b.column_nameANDa.tname=:as_tablORDERBY DatawindowControlNameDw_1DataobjectD_tableDatawindowControlNameDw_2DataobjectD_col NameCb_saveText保存 NameCb_closeText关闭4stringis_ownr//数据库登录用户名称w_wh_sjzdopen5、数据窗口控件dw_1的pfc_updaterow用户自定义 longll_row,ll_count,istringls_newrow,ls_ttll_count=this.rowcount()fori=1toll_countls_tt="evaluate('IsRowModified()',"+string(i)+")"ls_newrow=this.Describe(ls_tt)ls_table=this.object.table_name[i]ment ls_table=ifls_newrow='true'ls_sql="commentontable"+ls_table+"is'" ifnotisnull(ls_sql)thenEXECUTEend ment<>''insertinto ifsqlca.sqlcode=-1thenupdateSYSTEM.pbcattblsetpbt_tnam=:ls_table,pbt_ownr=:is_ownr, endif

endend6、数据窗口控件dw_1的rowfocuschangedstringifcurrentrow>0ls_xx=this.object.table_name[currentrow]end7、数据窗口控件dw_2的pfc_updaterow用户自定义 longll_row,ll_count,istringls_newrow,ls_ttll_row=ifll_row<0orisnull(ll_row)thenreturnls_table=dw_1.object.table_name[ll_row]ll_count=this.rowcount()fori=1tols_tt="evaluate('IsRowModified()',"+string(i)+")"ls_newrow=this.Describe(ls_tt)ls_col= ment= ls_col= ifls_newrow='true'ls_sql="commentoncolumn"+ls_table+"."+ls_col+"is'" ifnotisnull(ls_sql)thenEXECUTEend ment<>''header、labelinsertinto"SYSTEM"."PBCATCOL"(pbc_tnam,pbc_ownr, am,pbc_labl,pbc_hdr)valu ifsqlca.sqlcode<>0thenUPDATE"SYSTEM"."PBCATCOL"SET"PBC_TNAM"=:ls_table,"PBC_OWNR"=:is_ownr, AM"=:ls_col,"PBC_LABL" "PBC_HDR"= endifendend