: PowerDesigner에서 name과 comment가 서로 변환됨

10006 단어 powerDesigner
1 PowerDesigner에서 객체의name에 기반한comment 스크립트를 대량 생성하는 방법: Open PDM - Tools - Execute Commands - Run Script
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                                                                                                                
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                                            

2 PowerDesigner 리버스 엔지니어링에서 데이터베이스에 있는 comment 스크립트를 PDM에 값을 지정하는name 실행 방법: Open PDM - Tools - Execute Commands - Run Script
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

 

좋은 웹페이지 즐겨찾기