pdmaner pg转mysql数据库 导出ddl pdm怎么导出sql

首先本人版本PowerDesigner16.5

批量转换，excel数据字典转换为PDM

三步搞定~
第一步
按excel模板填入表的内容（字段名，数据类型…）
新建一个excel，表头如下（共11列）就是excel模板了，表头的顺序不要错哦~

中文表名 英文表名 字段描述 英文字段 字段类型 字段说明 字段长度 主键 外键 是否为空 Precision

所有的表设计都放在excel的sheet1中，每个表中间空一行，然后表无限往下放

第二步
复制脚本,粘贴到txt文档， 内容搜索一下x1.Workbooks.Open，把excel的路径改成你上面建的excel表的路径即可，其他啥也不用动

'******************************************************************************  
'* 所有的表设计都放在一个excel的一个sheet中，每个表中间空一行，表体都有表头说明如下，  
'* 再前面一行是表名和表的说明，分别在A和C列。下面格式直接拷贝到excel中就可以看到，空格是制表符。  
'******************************************************************************    
'                             Excel 格式如下 
'中文表名	英文表名	字段描述	英文字段	字段类型	字段说明	字段长度	主键	外键	是否为空	Precision                                     
'******************************************************************************    
Option Explicit  
  
Dim mdl ' the current model  
Set mdl = ActiveModel  
If (mdl Is Nothing) Then  
    MsgBox "There is no Active Model"  
End If  
  
Dim HaveExcel  
Dim RQ  
RQ = vbYes 'MsgBox("Is Excel Installed on your machine ?", vbYesNo + vbInformation, "Confirmation")  
If RQ = vbYes Then  
    HaveExcel = True  
    ' Open & Create Excel Document  
    Dim x1  '  
    Set x1 = CreateObject("Excel.Application")  
    x1.Workbooks.Open "C:\Users\pc\Desktop\pdm导入导出\002.xlsx"  '指定excel文档路径  
    x1.Workbooks(1).Worksheets("Sheet1").Activate   '指定要打开的sheet名称  
Else  
    HaveExcel = False  
End If  
  
a x1, mdl  
sub a(x1, mdl)  
dim rwIndex  
dim tableName  
dim colname  
dim table  
dim col  
dim count  
dim abc  
  
on error Resume Next  
'--------------------------------  
'下面是读取excel，添加表实体属性  
'--------------------------------  
For rwIndex = 2 To 3031  '指定要遍历的Excel行标  由于第2行是表头，从第1行开始，看你这个表设计多少行  
    With x1.Workbooks(1).Worksheets("Sheet1")'需要循环的sheet名称  
        If .Cells(rwIndex,1).Value <> "" And  .Cells(rwIndex,2).Value <> ""  Then  
            set table = mdl.Tables.CreateNew '创建一个表实体  
            table.Code = .Cells(rwIndex,2).Value'从excel中取得表名称和编码  
            table.Name = .Cells(rwIndex,1).Value'
            table.Comment = .Cells(rwIndex,1).Value
            count = count + 1  
        End If 
        If .Cells(rwIndex,4).Value <>"" Then
            set col =table.Columns.CreateNew '创建一列/字段  
            col.Name = .Cells(rwIndex, 3).Value '指定列name  
            col.Code = .Cells(rwIndex, 4).Value '指定列code  
            col.DataType = .Cells(rwIndex, 5).Value '指定列数据类型 
            col.Comment =  .Cells(rwIndex, 6).Value '指定列说明   
            If .Cells(rwIndex, 8).Value = "True" or .Cells(rwIndex, 8).Value = "true" Then'指定主键  
              col.Primary = true  
              End If       
            If .Cells(rwIndex, 10).Value = "True" or .Cells(rwIndex, 10).Value = "true" Then'指定列是否可空 true 为不可空  
             col.Mandatory = true  
             End If 
         End If  
    End With  
Next  
    MsgBox "生成数据表结构共计 " + CStr(count), vbOK + vbInformation, "表"  
Exit Sub  
End sub

第三步

打开pdm,快捷键ctrl+shift+x 打开脚本窗口，老版本的pdm用ctrl+shift+h打开，复制你txt文档里的全部内容粘贴上来，点击run

静等即可，结束后会弹出"生成数据表结构共计多少"

确定后点击close就可以了，不用保存

PowerDesigner 导出sql

四步搞定~

第一步

database->change current DBMS 选择数据库

选择oracle或者mysql

第二步

把字段描述和字段说明拼在一起，不然他默认是导出字段说明，字段名就不见了

database -> edit current dbms->general选项卡->script -> objects -> column -> columncommnet-修改value值

value值直接复制就可以了，代码意思也很简单，字段说明和字段描述相等的时候显示字段描述，否则两个都显示

comment on column [%QUALIFIER%]%TABLE%.%COLUMN% is
.if (%COMMENT%==%COLNNAME%)
 '%COLNNAME%'
.else
 '%COLNNAME% %COMMENT%'
.endif(\n)

第三步

修改生成规则

database -> generate database->format选项卡->选中”generate name is empty comment”选项 即可

意思是如果字段说明为空，就显示字段描述为注释~

第四步

database->generate database(CTRL+G) 选择路径，其他不用动，点确定即可

确定后，看pdm底部

好啦，给你们看一下效果图~