PowerDesigner使用VBScript脚本设置表属主

系统如果比较大，表会特别多，手写建表语句效率太低了，正常来说，建表语句都是生成的。就会有童靴用PowerDesigner来生成建表语句。有些公司的运维会要求开发在建表语句内必须加入属主。一个一个加，不管是在Powerdesigner内加还是在生成的SQL加，都有操作乏味，检查费劲，还容易漏了的问题。那么，如何用VBScript脚本来指定PowerDesigner中的表属主呢。

下面给出操作指引：

1.首先在PowerDesigner内新建一个用户。

在左侧的模型上，右键新建->user,输入属主名称和编码，一般名字和编码都一致就行了，点确认

可以左侧看到有了一个用户

2.接着，按Ctrl+Shift+X调出脚本窗口，输入以下脚本并运行,脚本也很好看懂，就不解释了。注意修改脚本内的属主名。

Dim Model
set MyModel = ActiveModel 

for each usr in MyModel.Users 
if usr.Code = "xxx" then '在这修改属主，而且要先在PD内新建一个cbpdata用户
for each n in MyModel.Tables 
set n.Owner = usr 
next 
exit for 
end if 
next 

运行后关闭脚本窗口，让我们来检验下效果。在任意一张表上，右键查看属性，可以看到表的owner项已有值了。预览生成的sql也可以看到带上了表属主，即设置成功。

参考链接：

http://nntp-archive.sybase.com/nntp-archive/action/article/%3C375_C295A51E9A1252770062057C85256CB7.0062058A85256CB7@webforums%3E