1. 程式人生 > >PowerDesigner 建立唯一索引及生成comment

PowerDesigner 建立唯一索引及生成comment

PowerDesigner建立唯一索引 注意key2 不要選中 p



PowerDesigner設計時錶顯示註釋選項: 

選定編輯的表,右鍵- >Properties- >Columns- >Customize Columns and Filter(或直接用快捷鍵Ctrl+U)- >Comment(前面打勾)- >OK


方式二:database -generateDatabase


反向工程生成註釋

 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   
if len(tab.comment) <> 0 then   
tab.name = tab.comment   
end if   
On Error Resume Next   
Dim col 'running column   
for each col in tab.columns   
if len(col.comment) <>0 then   
col.name =col.comment   
end if   
On Error Resume Next   
next   
end if   
next   
end sub