PowerDesigner常用操作基本技巧

1、PowerDesigner提示This data item is already used in a primary identifier.的处理方法
菜单栏上的“tool”-〉“Model Option”-〉“Model Setting”
把右边的“Data Item”数据框中的“Unique code”选项框取消掉。
如果在由CDM-〉PDM转换的时候提示属性错误，请把PDM GENERATION OPTIONS中的Check model钩取消掉.

 

2、设计时表显示注释选项
需在物理数据模型下设置，选定编辑的表,右键- >Properties- >Columns- >Customize Columns and Filter(或直接用快捷键Ctrl+U)- >Comment(前面打勾)- >OK

3、设置自动增长列(identity)
需在物理数据模型下设置，（DBMS设置方法：当是SQL2000时，DBMS一定要选SQL2000
DataBase-->Chang Current DBMS-->选择Microsoft SQL Server 2000）
当是SQL2000时 双击实体表,选中Columns,在你所要设为自增型的键上（比如你的id）双击，弹出一个Column Properties对话框，右下角有一个Identify的选择框，选中它OK，就可以了,当是SQL2005时,列类型设为numeric

 

4、设置种子和步长
需在物理数据模型下设置，双击实体表,双击设为Identity的列,在Microsoft选项卡里面设置Identity seed and increment 的值即可。
如：1,1

 

5、设置默认值
需在物理数据模型下设置，双击实体表,双击Columns,选中satanddard checks里面default就是默认值了

 

6、取消Name和Code关联的设置
     在设计PDM文件的时候,设计一张表,在填写栏位的时候,如果我们输入Name,Code会跟着变化.这个完全是西方人的习惯,因为他们的Name和 Code都是E文,所以不会出现什么问题.但是,我们使用的时候,就会很不习惯,Name应该是中文名字,Code才是资料库的实际字段名.
     下面记录修改设置的步骤:
Step 1:菜单栏找到Tools,点开,找到General Options
Step 2:选择左侧的Dialog，右侧将Operating modes中的 Name To Code mirroring　將前面的勾去掉

 

7、在PDM图形窗口中显示数据列的中文注释
打开物理模型，输入以下脚本（Ctrl+Shift+X）运行（来自：http://blog.youkuaiyun.com/zengzhe/archive/2006/07/25/974205.aspx）
'****************************************************************************** '* File: comment2name.vbs '* Purpose: 在PowerDesigner的PDM图形窗口中显示数据列的中文注释 '* Title: 将字段的comment赋值到字段的name中 '* Category: 打开物理模型，运行本脚本（Ctrl+Shift+X） '* Copyright:foxzz@163.com,2006/07/25 . '* Author: foxzz '* Created: '* Modified: '* Version: 1.0 '* Comment: 遍历物理模型中的所有表，将字段的comment赋值到字段的name中。 ' 在将name置换为comment过程中，需要考虑的问题 ' 1、name必须唯一，而comment有可能不唯一。 ' 处理办法是如果字段的comment重复，则字段的name=comment+1、2、3... ' 2、comment值有可能为空，这种情况下对字段的name不处理。 ' 针对oracle数据库,将comment on column 字段名称 is '';添加到C:/pdcomment.txt文件中。 ' 在补充comment完毕后，便于在数据库中执行 '****************************************************************************** Option Explicit ValidationMode = True InteractiveMode = im_Batch Dim system, file Set system = CreateObject("Scripting.FileSystemObject") Dim ForReading, ForWriting, ForAppending '打开文件选项 ForReading = 1 ' 只读 ForWriting = 2 ' 可写 ForAppending = 8 ' 可写并追加 '打开文本文件 Set file = system.OpenTextFile("C:/pdcomment.txt", ForWriting, true) '判断当前model是否物理数据模型 Dim mdl Set mdl = ActiveModel If (mdl Is Nothing) Then MsgBox "处理对象无模型" ElseIf Not mdl.IsKindOf(PdPDM.cls_Model) Then MsgBox "当前模型不是物理数据模型" Else ProcessFolder mdl,file End If file.Close '****************************************************************************** Private sub ProcessFolder(folder,file) Dim i,j,k i=0:j=0:k=0 '列数组，记录字段里不重复的comment Dim ColumnComment() Dim ColumnCommentNumber() ReDim Preserve ColumnComment(i) ReDim Preserve ColumnCommentNumber(i) Dim tbl '当前表 Dim col '当前字段 dim curComment '当前字段comment '处理模型中的表 for each tbl in folder.tables if not tbl.isShortcut then if len(trim(tbl.comment))<>0 then '可以在这里显示table的comment 'tbl.name = tbl.name+"("+trim(tbl.comment)+")" end if '处理表中的列 for each col in tbl.columns k = 0 curComment = trim(col.comment) if len(curComment)<>0 then '遍历相异的comment数组 for j = 0 to i if ColumnComment(j) = curComment then '如果找到相同的comment,则相关计数器加1 ColumnCommentNumber(j) = ColumnCommentNumber(j) + 1 k = j end if Next '如果没有相同的comment,则k=0,此时ColumnCommentNumber(0)也为0 '否则ColumnCommentNumber(k)不为0 if ColumnCommentNumber(k) <> 0 then col.name = curComment & cstr(ColumnCommentNumber(k)) else col.name = curComment 'ColumnComment(0)、ColumnCommentNumber(0)永远为空 '将相异的comment记录添加到数组中 i = i + 1 ReDim Preserve ColumnComment(i) ReDim Preserve ColumnCommentNumber(i) ColumnComment(i) = curComment ColumnCommentNumber(i) = 0 end if else '写入文件中 file.WriteLine "comment on column "+ tbl.name+"."+col.code+" is '';" end if next end if '由于不同表的name允许相同,因此此时重新初始化。 '因为ColumnComment(0)、ColumnCommentNumber(0)为空，可以保留 ReDim Preserve ColumnComment(0) ReDim Preserve ColumnCommentNumber(0) i=0:j=0:k=0 next Dim view '当前视图 for each view in folder.Views if not view.isShortcut then '可以在这里显示view的comment 'view.name = view.comment end if next '对子目录进行递归 Dim subpackage 'folder For Each subpackage In folder.Packages if not subpackage.IsShortcut then ProcessFolder subpackage , file end if Next end sub