关于数据库字典的汉字注释维护

关于数据库字典的汉字注释维护
（深圳：独孤求败2003-05-16）

众所周知，datawindow是PB的灵魂，但由于一般的数据库只支持英文字段名，所以字段的header和label也是英文的，给数据窗口对象设计带来极大的不方便，每次重画一次数据窗口对象都要重新输入一次汉字。虽然在数据库画板中可以一次性地把字段的header和label都设置成汉字，但总觉得其过于繁锁，也不方便维护，有没有什么更好的方法呢？

本人就是带着这一疑问进行了一番探索，终于如愿，现提出来与大家分享。

大家都知道，数据库表的属性，包括header和label的汉字注释均存放在数据库系统表中，但由于数据库系统表不容人置喙，“系统”两字咳住了不少人。其实只要知道其意义，不难对它操作自如。本文别找曲径，实现步骤如下：

1、创建数据窗口d_table的SQL语法：
SELECTTable_name,Comments
FROMuser_tab_comments
WHEREtable_type='TABLE'andtable_namelike:as_like
ORDERBYtable_nameasc

2、创建数据窗口d_col的SQL语法：
SELECTa.cname,b.comments,b.table_name,b.column_name,a.coltype,a.width,a.scale,
a.precision,a.nulls,a.defaultval,a.colno
FROMcola,user_col_commentsb
WHEREa.tname=b.table_nameANDa.cname=b.column_nameANDa.tname=:as_table
ORDERBYcolon

3、创建窗口w_wh_sjzd,窗口上放置控件如下：
控件名属性值
DatawindowControlNameDw_1
DataobjectD_table
DatawindowControlNameDw_2
DataobjectD_col
CommandButtonNameCb_save
Text保存
CommandButtonNameCb_close
Text关闭

4、定义实例变量：
stringis_ownr//数据库登录用户名称
窗口w_wh_sjzd的open事件
dw_1.settransobject(sqlca)
dw_2.settransobject(sqlca)
dw_1.retrieve()

5、数据窗口控件dw_1的pfc_updaterow用户自定义事件：
stringls_table,ls_comment,ls_sql
longll_row,ll_count,i
stringls_newrow,ls_tt
this.accepttext()
ll_count=this.rowcount()
fori=1toll_count
ls_tt="evaluate('IsRowModified()',"+string(i)+")"
ls_newrow=this.Describe(ls_tt)
ls_table=this.object.table_name[i]
ls_comment=this.object.comments[i]
ls_table=this.object.table_name[i]
//判断是否修改过
ifls_newrow='true'then
ls_sql="commentontable"+ls_table+"is'"+ls_comment+"'"
ifnotisnull(ls_sql)then
EXECUTEIMMEDIATE:ls_sql;
endif
//设置表名汉字注释
ifls_comment<>''then
insertintoSYSTEM.pbcattbl(pbt_tnam,pbt_ownr,pbt_cmnt)
values(:ls_table,:is_ownr,:ls_comment);
ifsqlca.sqlcode=-1then
updateSYSTEM.pbcattbl
setpbt_tnam=:ls_table,
pbt_ownr=:is_ownr,
pbt_cmnt=:ls_comment;
endif
endif
endif
next
commit;

6、数据窗口控件dw_1的rowfocuschanged事件：
stringls_xx
ifcurrentrow>0then
ls_xx=this.object.table_name[currentrow]
dw_2.retrieve(ls_xx)
endif

7、数据窗口控件dw_2的pfc_updaterow用户自定义事件：
stringls_table,ls_comment,ls_col,ls_sql
longll_row,ll_count,i
stringls_newrow,ls_tt
this.accepttext()
ll_row=dw_1.getrow()
ifll_row<0orisnull(ll_row)thenreturn
ls_table=dw_1.object.table_name[ll_row]
ll_count=this.rowcount()
fori=1toll_count
ls_tt="evaluate('IsRowModified()',"+string(i)+")"
ls_newrow=this.Describe(ls_tt)
ls_col=this.object.col_cname[i]
ls_comment=this.object.user_col_comments_comments[i]
ls_col=this.object.col_cname[i]
//判断是否修改过
ifls_newrow='true'then
ls_sql="commentoncolumn"+ls_table+"."+ls_col+"is'"+ls_comment+"'"
ifnotisnull(ls_sql)then
EXECUTEIMMEDIATE:ls_sql;
endif
ifls_comment<>''then
//设置header、label和字段名的汉字注释
insertinto"SYSTEM"."PBCATCOL"(pbc_tnam,pbc_ownr,pbc_cnam,pbc_labl,pbc_hdr)values(:ls_table,:is_ownr,:ls_col,:ls_comment,:ls_comment);
ifsqlca.sqlcode<>0then
UPDATE"SYSTEM"."PBCATCOL"
SET"PBC_TNAM"=:ls_table,
"PBC_OWNR"=:is_ownr,
"PBC_CNAM"=:ls_col,
"PBC_LABL"=:ls_comment,
"PBC_HDR"=:ls_comment;
endif
endif
endif
next
commit;
8、按钮cb_save的点击事件：
SetPointer(HourGlass!)
dw_1.dynamiceventpfc_updaterow()
dw_2.dynamiceventpfc_updaterow()
SetPointer(Arrow!)
9、按钮cb_close的点击事件：
close(parent)