PowerDesigner设计Name和Comment 替换

这两天在用powerdesigner设计数据库。一直以为name就是注释名字来着。后来生成sql语句 怎么就没有注释信息那。 后来看了半天才知道自己范2了。

通过各种信息查找。大多都是改database下的edit current DBMS 里面的东西。但是这样生成出来 不能直接执行。 自己琢磨半天。又查了查资料终于找到了。

comment 是注释。name 是字段描述

在 PowerDesigner中操作如下

PowerDesigner-->Tools-->Execute  Commands-->Edit/Run Scripts  下执行就OK了。

执行代码--------------------------------

把comment 覆盖name  方法如下：

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

Private   sub   ProcessFolder(folder)

On Error Resume Next

Dim   Tab   'running     table 

for   each   Tab   in   folder.tables 

if   not   tab.isShortcut   then 

tab.name   =   tab.comment

Dim   col   '   running   column 

for   each   col   in   tab.columns 

if col.comment="" then

else

col.name=   col.comment 

end if

next 

end   if 

next

Dim   view   'running   view

for   each   view   in   folder.Views 

if   not   view.isShortcut   then 

view.name   =   view.comment 

end   if 

next

'   go   into   the   sub-packages

Dim   f   '   running   folder 

For   Each   f   In   folder.Packages 

if   not   f.IsShortcut   then 

ProcessFolder   f 

end   if 

Next 

end   sub

将name覆盖 comment  方法如下

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   comment   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 

tab.comment   =   tab.name 

Dim   col   '   running   column 

for   each   col   in   tab.columns 

col.comment=   col.name 

next 

end   if 

next

Dim   view   'running   view

for   each   view   in   folder.Views 

if   not   view.isShortcut   then 

view.comment   =   view.name 

end   if 

next

'   go   into   the   sub-packages

Dim   f   '   running   folder 

For   Each   f   In   folder.Packages 

if   not   f.IsShortcut   then 

ProcessFolder   f 

end   if 

Next 

end   sub

完事。 自己纠结了好久。 终于解决了  自己留个纪念。顺便给菜鸟们存个档

将comment覆盖name

原文  http://www.cnblogs.com/LMJBlogs/p/4544366.html