1、先把基本的数据库对象reverse出来;
2、在菜单model->extended model definitions...中,把预定义的powerbuilder加近来;
3、执行菜单功能tools->powerbuilder->reverse extended attributes;
4、在tools->excute commands->edit/run script中书写并执行一下脚本:
Dim model
Dim tbl
Dim ModelTables
Set model = ActiveModel
Set ModelTables = model.Tables
For Each tbl In ModelTables
For each col in tbl.columns
col.comment=col.name
On Error Resume Next
next
On Error Resume Next
NEXT
On Error Resume Next 注意这句当有空的时候就跳过去
本文介绍如何使用 PowerBuilder 对数据库对象进行逆向工程,包括基本对象的逆向、预定义对象的添加及使用脚本为数据库字段添加注释的过程。
3631

被折叠的 条评论
为什么被折叠?



