powerdesigner中可执行脚本代码(VB)

最新推荐文章于 2024-07-04 14:19:04 发布
最新推荐文章于 2024-07-04 14:19:04 发布
阅读量1.8k 收藏 5
点赞数 1
分类专栏： powerdesigner使用 文章标签： powderdesigner 可执行代码
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。
本文链接：https://blog.csdn.net/code_yun/article/details/101053781
版权

powerdesigner中可执行脚本代码(VB)

文章目录

1. 用于Physical Data Mode的脚本

参考地址：https://blog.csdn.net/chao_1990/article/details/52620206

1.1 name转化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

1.2 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    
    
Private   sub   ProcessFolder(folder)     
On Error Resume Next    
      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

1.3 name变成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  
  
Private   sub   ProcessFolder(folder)   
On Error Resume Next  
      Dim   Tab   'running     table   
      for   each   Tab   in   folder.tables   
            if   not   tab.isShortcut   then   
                  tab.name   =   tab.code  
                  Dim   col   '   running   column   
                  for   each   col   in   tab.columns   
                  if col.code="" then  
                  else  
                        col.name=   col.code   
                  end if  
                  next   
            end   if   
      next  
  
      Dim   view   'running   view   
      for   each   view   in   folder.Views   
            if   not   view.isShortcut   then   
                  view.name   =   view.code   
            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

1.4 将excel表格导入table中

参考地址:https://blog.csdn.net/royzhang7/article/details/41118145

Option Explicit
 
Dim mdl ' the current model
Set mdl = ActiveModel
If (mdl Is Nothing) Then
   MsgBox "There is no Active Model"
End If
 
Dim HaveExcel
Dim RQ
RQ = vbYes 'MsgBox("Is Excel Installed on your machine ?", vbYesNo + vbInformation, "Confirmation")
If RQ = vbYes Then
   HaveExcel = True
   ' Open & Create Excel Document
   Dim x1  '
   Set x1 = CreateObject("Excel.Application")
   x1.Workbooks.Open "E:\test.xls"   '指定excel文档路径
   x1.Workbooks(1).Worksheets("Sheet1").Activate   '指定要打开的sheet名称
Else
   HaveExcel = False
End If
 
a x1, mdl
sub a(x1, mdl)
dim rwIndex   
dim tableName
dim colname
dim table
dim col
dim count
on error Resume Next
 
For rwIndex = 2 To 1000   '指定要遍历的Excel行标  由于第1行是表头，从第2行开始
        With x1.Workbooks(1).Worksheets("Sheet1")
            If .Cells(rwIndex, 1).Value = "" Then '如果遍历到第一列为空，则退出
               Exit For
            End If
            If .Cells(rwIndex, 3).Value = "" Then '如果遍历到第三列为空，则此行为表名
               set table = mdl.Tables.CreateNew     '创建表
                table.Name = .Cells(rwIndex , 2).Value '指定表名，第一列的值
                table.Code = .Cells(rwIndex , 1).Value 
                table.Comment = .Cells(rwIndex , 2).Value '指定表注释，第二列的值
                count = count + 1  
            Else
               set col = table.Columns.CreateNew   '创建一列/字段
               'MsgBox .Cells(rwIndex, 1).Value, vbOK + vbInformation, "列"            
                  col.Name = .Cells(rwIndex, 1).Value   '指定列名       
               'MsgBox col.Name, vbOK + vbInformation, "列"
               col.Code = .Cells(rwIndex, 2).Value   '指定列名                        
               col.DataType = .Cells(rwIndex, 4).Value '指定列数据类型           
                 'MsgBox col.DataType, vbOK + vbInformation, "列类型"               
               col.Comment = .Cells(rwIndex, 3).Value  '指定列说明
            End If      
        End With
Next
MsgBox "生成数据表结构共计 " + CStr(count), vbOK + vbInformation, "表"
 
Exit Sub
End sub

对应的excel表格格式为:
在这里插入图片描述

1.5 删除工程中所有table中的某个同一的属性

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   
                   Dim   col   '   running   column   
                  for   each   col   in   tab.columns   
                        if col.code="对应的code名称" then                    
                        col.delete 
                        end if
                  next   
            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

2. 用于Object Oriented Model的脚本

2.1 将Excel导入class中

Option Explicit
 
Dim mdl ' the current model
Set mdl = ActiveModel
If (mdl Is Nothing) Then
   MsgBox "There is no Active Model"
End If
 
Dim HaveExcel
Dim RQ
RQ = vbYes 'MsgBox("Is Excel Installed on your machine ?", vbYesNo + vbInformation, "Confirmation")
If RQ = vbYes Then
   HaveExcel = True
   ' Open & Create Excel Document
   Dim x1  '
   Set x1 = CreateObject("Excel.Application")
   x1.Workbooks.Open "E:\实体类测试.xls"   '指定excel文档路径
   x1.Workbooks(1).Worksheets("Sheet1").Activate   '指定要打开的sheet名称
Else
   HaveExcel = False
End If
 
a x1, mdl
sub a(x1, mdl)
dim rwIndex   
dim tableName
dim colname
dim table
dim col
dim anno
dim count
on error Resume Next
 
For rwIndex = 2 To 1000   '指定要遍历的Excel行标  由于第1行是表头，从第2行开始
        With x1.Workbooks(1).Worksheets("Sheet1")
            If .Cells(rwIndex, 1).Value = "" Then '如果遍历到第一列为空，则退出
               Exit For
            End If
            If .Cells(rwIndex, 3).Value = "" Then '如果遍历到第三列为空，则此行为表名
               set table = mdl.Classes.CreateNew     '创建表
                table.Name = .Cells(rwIndex , 2).Value '指定表名，第一列的值
                table.Code = .Cells(rwIndex , 1).Value 
                table.Comment = .Cells(rwIndex , 2).Value '指定表注释，第二列的值
                count = count + 1  
            Else
               set col = table.Attributes.CreateNew   '创建一列/字段
               'MsgBox .Cells(rwIndex, 1).Value, vbOK + vbInformation, "列"            
                  col.Name = .Cells(rwIndex, 1).Value   '指定列名       
               'MsgBox col.Name, vbOK + vbInformation, "列"
               col.Code = .Cells(rwIndex, 2).Value   '指定列名                        
               col.DataType = .Cells(rwIndex, 3).Value '指定列数据类型           
                 'MsgBox col.DataType, vbOK + vbInformation, "列类型"               
               col.Comment = .Cells(rwIndex, 1).Value  '指定列说明
            End If    
            If .Cells(rwIndex, 4).Value <> "" Then 
            set anno = table.Annotations.CreateNew  '创建类的注解
            anno.Name = .Cells(rwIndex, 4) '指定注解名称
                If .Cells(rwIndex, 5).Value <> "" Then
                anno.Text = .Cells(rwIndex, 5) '指定注解内容
                End If
            End If  
        End With
Next
MsgBox "生成类共计 " + CStr(count), vbOK + vbInformation, "表"
 
Exit Sub
End sub

对应的Excel表格格式为
在这里插入图片描述

mind_code
关注
专栏目录
PowerDesigner导入SQL脚本生成带中文注释（comment）的ER图并保存为图片格式（含通用可执行vb脚本文件）
蓝多多的小仓库
12-18 7693
先多选一列code（用于改为注释），步骤：Tools------>Display Preferences------>table------>Advances------>columns------>select------>勾选code------>OK------>确定。到此，我们可以看到刚刚选择好的需要导入的 SQL 脚本文件列表，如果还需要选择，可重复步骤4；Tools------>Display Preferences------>table，这里你需要显示什么就勾选即可。
PowerDesigner 脚本
12-05
PowerDesigner 逆向工程脚本，comment2name.vbs 将字段注释转成字段名、表注释转成表名称, name2comment.vbs——名称转注释，已有注释不覆盖。在PowerDesigner 菜单里Tools——Excute Commands——Edit/Run Scripts...里执行。
PowerDesigner VB 脚本
weixin_30698527的博客
10-31 273
shift+ctrl+x执行 批量添加字段（无则添加） Option Explicit Dim mdl ' the current model Set mdl = ActiveModel Dim Tab 'running table Dim col_create_date, col_update_date,col_create_by,col_update...
power designer常用功能使用教程
最新发布
weixin_39840884的博客
07-04 1258
基础的用法，比如建立逻辑模型，物理模型这种的我就不说，作为一个开发，我觉得里面有几个很好用的功能。有一个文档一久后又不知道去哪儿了，所以做个记录。喜欢的开发人员，可以学习使用。1、问题：设计利用excel设计了一版数据库，然后作为开发的你怎么生成生成SQL脚本创建表之类的？解决：拿到excel生成mysql或者orcale脚本。2、问题：数据库与初始设计的excel表字段不一样，让你更新文档，让其保持数据库和文档一致的时候?解决：有数据库需要写数据库说明文档的时候。
Power Designer 常见问题【收集中...】
weixin_30367945的博客
01-09 305
1.在生成代码时不包含drop语句在菜单Database->Generate Database，选择弹出的窗口中的Options标签页，去掉窗口右边drop...选项即可。2.在生成代码中字段默认值不需要带单引号'，如default 'to_char(sysdate,'yyyymmdd')'要改成default to_char(sysdate,'yyyymmdd')在菜单Database-...
PowerDesigner-VBSrcipt-自动设置主键，外键名等(SQL Server)
weixin_33701617的博客
07-01 231
在PowerDesigner中的设计SQL Server 数据表时，要求通过vbScript脚本实现下面的功能：   主键：pk_TableName 外键：fk_TableName_ForeignKeyColumnList   当字段作为主键，而且类型为smallint,int,bigint,那么要设置Identity =true. 当字段作为主键，而且类型为uniqueidentif...
PowerDesigner脚本
luking的博客
02-03 846
打开脚本编辑/运行窗口 菜单栏里找不到的话（比如我就没找到），直接按 Ctrl + Shift + X 。就是它了 使用的话把脚本粘贴进去，看需求编辑一下，然后执行。 当然也可以保存和加载脚本，嗯，看图标就知道了。 导入Excel表格中的信息生成新实体 1.“E:\Docs\ldm\脚本及模型\table.xlsx” 文件路径需要替换一下； 2.只读取Excel文件中的第一个Sheet，且Sheet名是“sheet1”； 3.第一行是数据表的信息，第1-3列放表名Code、表名、表注释； 4.第二行之后的
在powerdesigner中使用vb script 创建index
qq8610636的专栏
03-19 1134
感谢网上看到的这个问题，帮我解决了一般的问题，下面我来回答这个问题 这段时间一直在研究powerdesigner 应用vbscript，发现挺灵活的  但是，遇到一个棘手的问题  在excel文件导入index（索引）时，创建索引是没问题的，就是索引项关联的表列项，怎么也不行，不知道大家有没有用过vbs生成索引的？  例如：创建索引是：set index = table.indexes.c
把powerdesigner中表名为汉字以及列名为汉字的转为汉语拼音抽头的方法
04-18
本文将介绍如何使用 VBScript 脚本将 PowerDesigner 中的汉字表名和列名转换为汉语拼音抽头，以提高数据模型的可读性和维护性。 方法： 1. 打开 PowerDesigner，创建一个新的数据模型或打开已有的数据模型。 2. ...
PowerDesigner15.1中文教程.pdf
09-24
- 物理数据模型（PDM）：将CDM对象转换成PDM对象，用于创建数据库脚本，执行逆向工程等操作。 除此之外，PowerDesigner还支持多维模型的创建，包括创建多维图、多维对象、Cube以及Cube数据的创建。这些功能使得...
powerdesigner辅助脚本数据库设计
12-18
powdesigner设计了表，将name名自动复制到comment的vb语言写的脚本。
PowerDesigner使用教程
02-23
本文所有文字及图片皆为gzllm（处长）原创，发表于COC未经作者许可，请勿随意转载 PowerDesigner简介 　　PowerDesigner是Sybase公司的CASE工具集，使用它可以方便地对管理信息系统进行分析设计，它几乎包括了数据库模型设计的全过程。利用PowerDesigner可以制作数据流程图、概念数据模型、物理数据模型，可以生成多种客户端开发工具的应用程序，还可为数据仓库制作结构模型，也能对团队设计模型进行控制。它可与许多流行的数据库设计软件，例如：PowerBuilder，Delphi，VB等相配合使用来缩短开发时间和使系统设计更优化。
PowerDesigner生成带注释的pdm脚本
11-09
当PowerDesigner连接好数据库，并生成模型后，在PowerDesigner用Ctrl+Shift+x快捷键打开，然后将脚本内容粘贴运行，就可以开始生成数据库中存在的注释了
PowerDesigner使用VBScript把表结构导出为Excel
You can't stand me now
07-15 1036
前面有篇文章介绍了如何把Excel编写好的表结构导入到PowerDesigner（见链接：PowerDesigner从Excel导入表结构），在实际的工作中，这两者的互相转化，是经常的事情。 这里给出对应于那篇文章中约定好的Excel格式的导出脚本： '**********************************************************************...
PowerDesigner使用VBScript脚本设置表属主
You can't stand me now
07-15 1712
系统如果比较大，表会特别多，手写建表语句效率太低了，正常来说，建表语句都是生成的。就会有童靴用PowerDesigner来生成建表语句。有些公司的运维会要求开发在建表语句内必须加入属主。一个一个加，不管是在Powerdesigner内加还是在生成的SQL加，都有操作乏味，检查费劲，还容易漏了的问题。那么，如何用VBScript脚本来指定PowerDesigner中的表属主呢。下面给出操作指引：1....
PowerDesigner设置脚本
dreamship
01-27 367
PowerDesigner实用脚本
powerdesigner的执行脚本----写入名字到注释中.vbs
runnerrunning的专栏
01-25 4208
powerdesigner是个好东西，我对它很有感情，不过也有些不满，不满有三：1。采用ms技术，不能在linux等非windows平台上使用，脚本执行语言采用vbscript，建议采用javascript,python,perl等更大众的语言。2。仅仅支持到uml1.43。连接数据的方式只有odbc，很麻烦又落后，连pb都可以支持jdbc连接数据库了，pd是否也该提高一下？不过
PowerDesigner非常有用的两个VBScript
nisjlvhudy的专栏
11-09 3909
1、根据条件更改字符类型.vbs 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 Ms
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值