EXCEL数据字典批量转换为PDM,POWERDESIGNER 导出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底部
好啦，给你们看一下效果图~
备注
当从oracle反序列化pd的时候，表很多时候效率很低。我们可以使用oracle导入到excel中，然后使用上面的方法从excel再反序列化为pd。
oralce查询用户所有表：
select -- a.owner , nvl(c.comments,a.table_name) as 中文表名 ,a.table_name as 英文表名 ,d.COMMENTS as 字段描述 ,b.column_name as 英文字段 --,b.data_type as 字段类型 ,'VARCHAR2(50)' as 字段类型 ,'' as 字段说明 ,'' as 字段长度 ,nvl2(( select cu.COLUMN_NAME from all_cons_columns cu, all_constraints au where cu.constraint_name = au.constraint_name and au.constraint_type = 'P' and au.table_name = 'S_COMPANY' and cu.owner='H2' and au.OWNER='H2' and cu.TABLE_NAME=a.TABLE_NAME and cu.COLUMN_NAME=b.COLUMN_NAME ),'TRUE','FALSE') as 主键 ,'FALSE' as 外键 ,'FALSE' as 是否为空 ,'' as Precision --,b.data_length as 字段长度22 from all_tables a join all_tab_columns b on a.table_name= b.table_name left join all_tab_comments c on c.table_name=a.table_name left join all_col_comments d on d.table_name=a.table_name and d.column_name=b.column_name where a.owner='H2' and b.owner='H2' and c.OWNER='H2' and d.OWNER='H2' -- and a.table_name in ('S_COMPANY','T_FACTORY','S_DEPT') order by b.table_name,b.column_id
使用自己开发的winfrom程序，导出excel
public static bool wwww(DataTable dataTable, string file) { try { //1、创建excel FileInfo newFile = new FileInfo(file); if (newFile.Exists) { return false; } //2、创建一个excel包,就是一个excel文件 //许可证，必须添加许可证，否则会报错 ExcelPackage.LicenseContext = OfficeOpenXml.LicenseContext.NonCommercial; using (ExcelPackage package = new ExcelPackage(newFile)) { //3、创建一个excel，工作表 sheet ExcelWorksheet worksheet = package.Workbook.Worksheets.Add("Sheet1"); for (int i = 0; i < dataTable.Columns.Count; i++) { worksheet.Cells[1, (i + 1)].Value = dataTable.Columns[i].ColumnName; } try { string vTableName = string.Empty; int m = 0; for (int i = 0; i < dataTable.Rows.Count; i++) { if (string.IsNullOrEmpty(vTableName)) { vTableName = dataTable.Rows[i][1].ToString(); } if (vTableName != dataTable.Rows[i][1].ToString()) { //写一行 空格 for (int j = 0; j < dataTable.Columns.Count; j++) { worksheet.Cells[(i + 2 + m), (j + 1)].Value = ""; } vTableName = dataTable.Rows[i][1].ToString(); m = m + 1; for (int j = 0; j < dataTable.Columns.Count; j++) { //写列 worksheet.Cells[(i + 2 + m), (j + 1)].Value = dataTable.Rows[i][j].ToString(); } } else { for (int j = 0; j < dataTable.Columns.Count; j++) { //写列 if (j == 0 || j == 1) { worksheet.Cells[(i + 2 + m), (j + 1)].Value = ""; } else { worksheet.Cells[(i + 2 + m), (j + 1)].Value = dataTable.Rows[i][j].ToString(); } } } } } catch (Exception vErr) { string vInfo = vErr.Message; } package.Save(); } return true; } catch (Exception vErr) { throw; } }
导出插件为“”“EPPlus” 版本6.0.3.0。
