PD实用总结

1.PowerDesigner 的mysql PDM 的COMMENT注释

 

2.PD的得到中文注释的表名和列名

可能对于有些PD，如果上面链接的方法不能完成操作，就要麻烦一点了，通过VB脚本自己执行下如下命令：

在pd里面运行下面这段代码

 

 

'******************************************************************************   
  '*   File:           name2comment.vbs   
  '*   Purpose:     Database   generation   cannot   use   object   names   anymore     
  '                         in   version   7   and   above.   
  '                         It   always   uses   the   object   codes.   
  '   
  '                         In   case   the   object   codes   are   not   aligned   with   your     
  '                         object   names   in   your   model,   this   script   will   copy     
  '                         the   object   Name   onto   the   object   comment   for     
  '                         the   Tables   and   Columns.   
  '   
  '*   Title:         把对象name拷入comment属性中   
  '*   Version:     1.0   
  '*   Author：wangnc   
  '*   执行方法：PD11   --   Open   PDM   --   Tools   --     Execute   Commands   --   Run   Script   
  '******************************************************************************   
    
  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    tab.comment ="" then
                           
                   else 
                          tab.name=tab.comment
                           on error resume  next
                    end if
                       Dim   col   '   running   column   
                    for   each   col   in   tab.columns   
                       if col.comment="" then
                        ' MsgBox   "表"+tab.name+"列"+col.name +"没有comment" 
                       else 
                          col.name=col.comment
                          on error resume  next
                       end if
                    next   
              end   if   
              
        next   
    
        Dim   view   'running   view   
        for   each   view   in   folder.Views   
              if   not   view.isShortcut   then   
                   if view.comment="" then
                    MsgBox   "视图"+view.name +"没有comment" 
                   else 
                   view.name=view.comment
                    on error resume  next
                   end if
              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 

  3.其他一些操作，感觉生成数据字典功能还是不错的

http://qingfeng825.iteye.com/blog/1144750

 

ReportTemplates..可以编辑和新建自己的模板；

Reports..可以编辑和新建自己的Report

GenerateReports.. 可以选择模板，并生成。