SQL生成PDM文件

Eccentric 收录于运维

2023-12-21 约 927 字预计阅读 2 分钟次阅读

基础操作设置

修改name,code同步修改，操作不便

版本在16.6之下

工具栏 Tools -> 常规选项 general Options -> Dialog 下 Name to Code mirroring 取消勾选

版本是16.6以及之上

工具栏 Tools -> 常规选项 general Options -> Respository 下 Display 取消 Name to Code mirroring 勾选

工具栏 Tools -> Modeal Options -> Naming Convention -> Synchronize code

SQL逆向生成PDM

第一步：File > Reverse Engineer > Database

第二步：设置DBMS参数

第三步：选择sql文件

生成的PDM将coments同步至name字段

Open PDM–Tools–Execute Commands–Run Script

脚本语法参考 Microsoft VBScript 脚本语法

脚本1

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24


Option   Explicit 
ValidationMode   =   True 
InteractiveMode   =   im_Batch 
Dim   mdl    
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) 
        Dim   Tab 
        for   each   Tab   in   folder.tables 
              if   not   tab.isShortcut   then
                    tab.name=tab.comment
                    Dim   col
                    for   each   col   in   tab.columns
                        col.name=col.comment 
                    next 
              end   if           
        next
end   sub

脚本2

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53


'------------------------------------------------------------
'
'脚本功能：
'    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
            Dim b
            for each col in tab.columns
                b = Split(col.comment,";") 
                if len(b(0)) <>0 then  
                    col.name = b(0)
                end if  
                if ubound(b) >0 then  
                    col.comment = b(1)
                else
                    col.comment = ""
                end if  
                On Error Resume Next  
            next  
        end if  
    next  
end sub 
'------------------------------------------------------------

kingdee脚本

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70


'------------------------------------------------------------
'
'脚本功能：
'    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
            Dim b
			Dim dataType
            for each col in tab.columns
                b = Split(col.comment,";") 
                if len(b(0)) <>0 then  
                    col.name = b(0)
                end if  
                if ubound(b) >0 then  
                    col.comment = b(1)
                else
                    col.comment = ""
                end if
				dataType = col.DataType
				if InStr(dataType,"bpchar(1)") then
					col.DataType = "char(1)"
					col.DefaultValue = "''"
					col.Mandatory = true
				elseif InStr(dataType,"timestamp") then
					col.DataType = "datetime"
					col.Mandatory = false
				elseif InStr(dataType,"int8") then
					col.DataType = "bigint"
					col.DefaultValue = 0
					col.Mandatory = true
				elseif InStr(dataType,"varchar") then
					col.DefaultValue = "''"
					col.Mandatory = true
				end if
                On Error Resume Next  
            next  
        end if  
    next  
end sub 
'------------------------------------------------------------

目录