PowerDesigner脚本:自动设置Identity属性的代码

原创 2004年12月31日 17:25:00
'*****************************************************************************
'文件:SetIdentity.vbs
'版本:1.0
'版权:floodzhu (floodzhu@hotmail.com),2004.12.31
'功能:遍历物理模型中的所有表,把是主键但不是外键的字段设置为Identity,适用于
'      物理模型为MS Sql Server的类型。
'用法:打开物理模型,运行本脚本(Ctrl+Shift+X)
'备注:我有两个习惯,一个是把所有表的主键都定义为自增长的int类型,另一个是定义
'      一个Domain叫ID,在设计概念模型时把所有的PrimaryKey字段的Domain设置为ID
'      类型。
'
'      如果我进行了上面的设置,则在转化为物理模型时需要手工设置Identity,
'      最笨的方法是一个表一个表进行设置,最简单的方法是在物理模型中直接对Domain
'      进行设置。对Domain进行设置有一个小缺点,就是如果该字段不是主键也不是生
'      成的外键,而是一个一般字段,例如表示树状结构的PID,则它也会被设置为
'      Identity,不过由于这种字段比较少,而且在生成数据库时会发生错误可以提醒
'      你进行纠正,所以可以轻松过关而不至于隐藏错误,所以是一种好方法。
'
'      用下面的代码可以给你第三种选择,而不会发生任何错误。
'*****************************************************************************

dim model 'current model
set model = ActiveModel

If (model Is Nothing) Then
   MsgBox "There is no current Model"
ElseIf Not model.IsKindOf(PdPDM.cls_Model) Then
   MsgBox "The current model is not an Physical Data model."
Else
   ProcessTables model
End If

'*****************************************************************************
'函数:ProcessTables
'功能:递归遍历所有的表
'*****************************************************************************

sub ProcessTables(folder)
   '处理模型中的表
   dim table
   for each table in folder.tables
      if not table.IsShortCut then
         ProcessTable table
      end if
   next
  
   '对子目录进行递归
   dim subFolder
   for each subFolder in folder.Packages
      ProcessTables subFolder
   next
end sub

'*****************************************************************************
'函数:ProcessTable
'功能:遍历指定table的所有字段,如果该字段是主键但不是外键,则设置为Identity
'*****************************************************************************

sub ProcessTable(table)
   dim col
   for each col in table.Columns
      '对于是主键且不是外键的字段设置为Identity(自增长类型)
      if col.Primary and not col.ForeignKey then
         col.Identity = true
      end if
   next
end sub

PowerDesigner设定MySQL字段identity类型

自增长类型增加1.如果dbms是MsSql,则选定表后,database-> edit   current   dbms-> 出现DBMS   properties对话框,选择General页,左侧的...
  • welken
  • welken
  • 2010年04月20日 10:51
  • 2378

在 PowerDesigner 中 identity 的初始值 和 递增量

我用PowerDesigner 12.5,为了找identity的seed好久,终于找到了。 1. 设置column的数据类型(Data Type) int 2. 右点这个column,选属性(Pro...
  • stevenhzhang
  • stevenhzhang
  • 2010年03月05日 11:31
  • 1110

PowerDesigner15.1 自增长(Identity) vs PowerDesigner11.0 自增长 (Identity)

此BLOG不在更新,启用新的BLOG 网址:http://www.keniu360.com 今天在用PowerDesigner15.1版本 绘制数据库结构图,但是找不到自增长(Identity),以...
  • huaishuming
  • huaishuming
  • 2014年02月23日 23:08
  • 2019

自动设置Identity属性的代码(PowerDesigner脚本)

  • zgqtxwd
  • zgqtxwd
  • 2008年04月26日 17:58
  • 124

PowerDesigner 脚本使用详解

PowerDesign高级应用 编写相关的VBS脚本在PowerDesign里自定义一些命令与操作等,具体的可以参考C:\Program Files\Sybase\PowerDesigner 9\VB...
  • u012770274
  • u012770274
  • 2016年10月24日 13:04
  • 2511

powerdesigner 设置自动增长列(identity),和默认值

一、powerdesigner 设置自动增长列(identity),和默认值 1、在物理数据模型下设置 2、DBMS设置问题,当是SQL2000时,DBMS一定要选SQL2000 DataBa...
  • macavalier
  • macavalier
  • 2013年10月29日 16:21
  • 1918

PowerDesigner属性设置笔记

1,图形的name过长时,想让name自动换行并适应图形宽度:Tools ->Display Preferences ->Content,选择Word wrapping,点击OK。 ...
  • wag2765
  • wag2765
  • 2016年01月25日 16:24
  • 802

去掉identity列属性范例

当我们需要去掉一个列上的identity属性时。 我们需要做的就是:创建一个完全一样的新表,再将数据转移仅新表中,删除旧表。重命名新表。 下面就是一个此过程的范例,值得注意的是,当旧表数据量很大时...
  • starseeker7
  • starseeker7
  • 2013年01月30日 10:57
  • 1027

PowerDesigner设置MYSQL主键自动增长的方法

如何在PowerDesigner设置MYSQL主键自动增长的方法,打开PDM,选中一张表,双击打开表属性,选择Columns列,选中主键字段,双击打开,界面的最下方右下角有一个Identity,选中这...
  • liuxiao723846
  • liuxiao723846
  • 2015年01月28日 11:00
  • 1763

PowerDesigner设计数据库后将name自动添加到commit中

在使用PowerDesigner对数据库进行概念模型和物理模型设计时,一般在NAME或Comment中写中文,在Code中写英文。Name用来显 示,Code在代码中使用,但Comment中的文字会保...
  • xm1331305
  • xm1331305
  • 2013年06月25日 10:20
  • 1624
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:PowerDesigner脚本:自动设置Identity属性的代码
举报原因:
原因补充:

(最多只允许输入30个字)