PowerDesigner数据表物理模型

qq_37202188

已于 2025-01-13 14:54:35 修改

阅读量1k

点赞数 8

CC 4.0 BY-SA版权

文章标签：数据库

于 2024-06-11 18:27:55 首次发布

本文链接：https://blog.csdn.net/qq_37202188/article/details/139605053

创建物理模型

sql文件导入数据表

表显示字段和注释

1、创建物理模型

File->new model

2、sql文件导入数据表

打开对应的物理模型，选择Database -> Update Model from Database

导入成功后即可看到表了

3、表显示字段和注释

可以看到上面的表是没有显示中文注释的。

Tools > Display Preferences

勾选Code后确定，显示如下：

复制以下代码执行：


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