zoukankan      html  css  js  c++  java
  • powerdesign导出SQL时自己主动生成凝视

    1、使用脚本的方式

    在里面执行

    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 
                            '把列name和comment合并为comment
                            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


    点击run后



  • 相关阅读:
    English trip V2-B 14 Yes, I can! 是的,我能! Teacher:Russell
    I1-3 Weather Teacher:Corrine
    4-redis数据过期策略
    redis持久化
    redis优势
    解决error while loading shared libraries
    1-zookeeper基本原理和使用
    ObjectiveSQL框架让你不要再写复杂SQL
    sharding-proxy+sharding-ui安装使用配置
    vim 多行取消注释
  • 原文地址:https://www.cnblogs.com/yxysuanfa/p/6903884.html
Copyright © 2011-2022 走看看