powerdesigner****生成PDM时的列注释解决方案的补充

在《powerdesigner****生成PDM时的列注释解决方案 》一文中，我介绍了如何在****中从现有数据库中生成PDM文件时将数据库中的Description直接带到PDM中，主要解释了我的解决思路，有些乱。有的朋友不是很清楚，在本文中再次补充一个清晰的思路，希望能给大家带来帮助。

总体思路是根据PD自带的模板修改而成。修改前请备份Sybase安装路径/Resource Files/DBMS文件夹。

邀月使用的是Powerdesigner 15.3，数据库为SQL Server 2008 r2

步骤：

１、创建DBMS

Powerdesigner界 面－tools-Resources－DBMS,点击左上角的New,选择copy from templete,如果你的数据库是sql server 2005,选择系统自带的SQL server 2005，如果是sql server 2008,选择系统自带的sqlsv2k8.xdb。本例中是sql server 2008 r2，故选择 sqlsv2k8.xdb,起一个新名字，如 SQL2008_Mod_201105。

２、建立数据源，逆向生成测试，顺利成功！

此时再生成数据库脚本时，会自动将Comment中的中文注释带入到脚本中。

美中不足的是Name还是英文 ,在一个包中查看表时，感觉怪怪的。

有两个解决办法：

３－１、改进脚本

Powerdesigner界面－Database-Edit Current DBMS

如下： （本文以sql server 2008为例，sql server 2005类同。 ）

将表的Name换为Comment

将列的Name换为Comment

此时生成的效果最为理想。

３－２、利用vbs脚本完成。

在Sybase安装路径/VB Scripts 下新建Comments2Name.vbs，内容如下：

Option Explicit ValidationMode = True InteractiveMode = im_Batch Dim mdl 'the current model 'get the current active model Set mdl = ActiveModel If (mdl Is Nothing) Then MsgBox "There is no current Model" ElseIf Not mdl.IsKindOf(PdPDM.cls_Model) Then MsgBox "The current model is not an Physical Data model." Else ProcessFolder mdl End If 'This routine copy name into code for each table, each column and each view 'of the current folder Private sub ProcessFolder(folder) Dim Tab 'running table for each Tab in folder.tables if not tab.isShortcut then if len(tab.comment) <> 0 then tab.name = tab.comment end if On Error Resume Next Dim col 'running column for each col in tab.columns if len(col.comment) <>0 then col.name =col.comment end if On Error Resume Next next end if next end sub

在生成的PDM中，Powerdesigner界面－tools-Execute Cmmands－Edit/Run Scripts 在打开的界面中，左上角，选择打开,Ctrl+O,选取刚才的 Comments2Name.vbs,并Run,效果同上。