使用时PowerDesigner创建数据库设计，不显示注释的解决/及将comment转为名字

最新推荐文章于 2024-08-15 21:29:11 发布

我不成佛，佛奈我何

最新推荐文章于 2024-08-15 21:29:11 发布

阅读量1.6k

点赞数

分类专栏： PowerDesigner

本文链接：https://blog.csdn.net/weixin_43228740/article/details/83449963

版权

PowerDesigner 专栏收录该内容

1 篇文章 0 订阅

订阅专栏

当使用PowerDesigner创建数据库设计时，没有注释？按照我的引导，来创建一下吧
具体步骤如下：
1、菜单栏选择tools（工具）–>
在这里插入图片描述
2、选择显示首选项：

3、上面的操作hui弹出下面的第一步，然后按流程操作就好了

4、别急，还没有结束，

选择右面第一个Edit/run Script这个，将下列代码赋值进去执行一下，就大功告成了

name to 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

当然在错误的情况下，可以再将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
'   This   routine   copy   comment   into  name    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.name = tab.comment   
                  Dim   col   '   running   column 
                  for   each   col   in   tab.columns 
                        col.name = col.comment  
                  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


``