PowerDesigner根据数据库生成数据字典

来源：互联网发布：图像拼接软件编辑：程序博客网时间：2024/05/02 01:38

一、把数据库结构导入到PowerDesigner

1、选择File->Reverse Engineer->DataBase

2、选择数据库

3、配置数据源

4、选择要导入的表

5、导入后生成报表

6、选择和拖入

7、选择展示列

8、生成RTF文档，可以用word打开，Report->Generate RTF

二、网上找了一段生成excel的脚本，Tools->Excute Commands->Edit /Run Script

Option Explicit   Dim rowsNum   rowsNum = 0'-----------------------------------------------------------------------------' Main function'-----------------------------------------------------------------------------' Get the current active modelDim ModelSet Model = ActiveModelIf (Model Is Nothing) Or (Not Model.IsKindOf(PdPDM.cls_Model)) Then  MsgBox "The current model is not an PDM model."Else ' Get the tables collection '创建EXCEL APP dim beginrow DIM EXCEL, SHEET set EXCEL = CREATEOBJECT("Excel.Application") EXCEL.workbooks.add(-4167)'添加工作表 EXCEL.workbooks(1).sheets(1).name ="table" set sheet = EXCEL.workbooks(1).sheets("table")  ShowProperties Model, SHEET EXCEL.visible = true '设置列宽和自动换行 sheet.Columns(1).ColumnWidth = 20  sheet.Columns(2).ColumnWidth = 20  sheet.Columns(3).ColumnWidth = 15 sheet.Columns(4).ColumnWidth = 15  sheet.Columns(1).WrapText =true End If'-----------------------------------------------------------------------------' Show properties of tables'-----------------------------------------------------------------------------Sub ShowProperties(mdl, sheet)   ' Show tables of the current model/package   rowsNum=0   beginrow = rowsNum+1   ' For each table   output "begin"   Dim tab   For Each tab In mdl.tables      ShowTable tab,sheet   Next   if mdl.tables.count > 0 then        sheet.Range("A" & beginrow + 1 & ":A" & rowsNum).Rows.Group   end if   output "end"End Sub'-----------------------------------------------------------------------------' Show table properties'-----------------------------------------------------------------------------Sub ShowTable(tab, sheet)   If IsObject(tab) Then     Dim rangFlag     rowsNum = rowsNum + 1      ' Show properties      Output "================================"      sheet.cells(rowsNum, 1) = "表名"      sheet.cells(rowsNum, 2) = tab.code      sheet.Range(sheet.cells(rowsNum, 3),sheet.cells(rowsNum, 4)).Merge      rowsNum = rowsNum + 1      sheet.cells(rowsNum, 1) = "字段中文名"      sheet.cells(rowsNum, 2) = "字段名"      sheet.cells(rowsNum, 3) = "字段类型"      sheet.cells(rowsNum, 4) = "注释"      '设置边框      sheet.Range(sheet.cells(rowsNum-1, 1),sheet.cells(rowsNum, 4)).Borders.LineStyle = "1"Dim col ' running columnDim colsNumcolsNum = 0      for each col in tab.columns        rowsNum = rowsNum + 1        colsNum = colsNum + 1      sheet.cells(rowsNum, 1) = col.name      sheet.cells(rowsNum, 2) = col.code      sheet.cells(rowsNum, 3) = col.datatype      sheet.cells(rowsNum, 4) = col.comment      next            sheet.Range(sheet.cells(rowsNum-colsNum+1,1),sheet.cells(rowsNum,4)).Borders.LineStyle = "2"      rowsNum = rowsNum + 1            Output "FullDescription: "       + tab.Name   End IfEnd Sub

0 0