PowerDesigner11中批量根据对象的name生成comment的脚本

楼主edeed（骨骨）2006-04-03 13:13:02 在 软件工程/管理 / Power Designer 提问

'******************************************************************************  
  '*   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  
                    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 问题点数：0、回复次数：4Top

  2XKI&!H!TQ8:[:RK:!XIhttp://www.itwz.net

1 楼jackyzjh（小猪）回复于 2006-04-28 15:51:40 得分 0

Column   (发生意外。  
    (0x80020009))  
  At   line   43,   character   13  
   
  楼主试过没有?用的是什么版本?Top

  2XKI&!H!TQ8:[:RK:!XIhttp://www.itwz.net

2 楼liu7537（数据库模型设计博客连载(http://blog.csdn.net/liu7537)）回复于 2006-05-17 11:47:33 得分 0

本人新近在CSDN上开通了“数据库模型设计”博客，计划分120天进行数据库模型设计有关实战的连载，希望大家捧场。  
  地址是：http://blog.csdn.net/liu7537  
  做个广告，楼主和版主不会介意吧？Top

  2XKI&!H!TQ8:[:RK:!XIhttp://www.itwz.net

3 楼shuiniu（飞扬的梦)(我是一头只吃西红柿的水牛）回复于 2006-09-27 18:44:31 得分 0

C:\Program   Files\Sybase\PowerDesigner   Trial   11\VB   Scripts\name2code.vbsTop

  2XKI&!H!TQ8:[:RK:!XIhttp://www.itwz.net

4 楼EricXP（知我者谓我心忧，不知我者谓我何求）回复于 2006-10-12 23:14:11 得分 0

谢谢LZ的脚本，解决了一个让我头疼的问题   ：）  
  另：楼上的朋友，你说的那个脚本是把Name转化成Code的，和LZ的脚本作用完全不同。  
  而且通常我们在设计时，Name会用中文名。Code才是数据库中的真实字段名。

Tags(标签):Pow