pdm转excel（基于PowerDesigner软件）

最新推荐文章于 2024-06-08 13:49:16 发布
最新推荐文章于 2024-06-08 13:49:16 发布
阅读量1.8k 收藏 6
点赞数 2
分类专栏： 其它
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。
本文链接：https://blog.csdn.net/qq_16946803/article/details/105251493
版权

一、下载安装PowerDesigner

二、PowerDesigner中导入pdm文件

三、双击打开

四、打开运行窗口Run

五、Run代码

六、完啦，没有啦！还看个锤子

 

 

七、运行代码！

代码0（这个比较全）

'******************************************************************************

Option Explicit

   Dim rowsNum

   rowsNum = 0

'-----------------------------------------------------------------------------

' Main function

'-----------------------------------------------------------------------------

' Get the current active model

    Dim Model

    Set Model = ActiveModel

    If (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, SHEETLIST

      set EXCEL = CREATEOBJECT("Excel.Application")

      EXCEL.workbooks.add(-4167)'添加工作表

      EXCEL.workbooks(1).sheets(1).name ="表结构"

      set SHEET = EXCEL.workbooks(1).sheets("表结构")

       

      EXCEL.workbooks(1).sheets.add

      EXCEL.workbooks(1).sheets(1).name ="目录"

      set SHEETLIST = EXCEL.workbooks(1).sheets("目录")

      ShowTableList Model,SHEETLIST

 

      ShowProperties Model, SHEET,SHEETLIST

       

       

      EXCEL.workbooks(1).Sheets(2).Select

      EXCEL.visible = true

      '设置列宽和自动换行

      sheet.Columns(1).ColumnWidth = 20 

      sheet.Columns(2).ColumnWidth = 20 

      sheet.Columns(3).ColumnWidth = 20 

      sheet.Columns(4).ColumnWidth = 40 

      sheet.Columns(5).ColumnWidth = 10 

      sheet.Columns(6).ColumnWidth = 10 

      sheet.Columns(1).WrapText =true

      sheet.Columns(2).WrapText =true

      sheet.Columns(4).WrapText =true

      '不显示网格线

      EXCEL.ActiveWindow.DisplayGridlines = False

       

       

 End If

'-----------------------------------------------------------------------------

' Show properties of tables

'-----------------------------------------------------------------------------

Sub ShowProperties(mdl, sheet,SheetList)

   ' Show tables of the current model/package

   rowsNum=0

   beginrow = rowsNum+1

   Dim rowIndex 

   rowIndex=3

   ' For each table

   output "begin"

   Dim tab

   For Each tab In mdl.tables

      ShowTable tab,sheet,rowIndex,sheetList

      rowIndex = rowIndex +1

   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,rowIndex,sheetList)

   If IsObject(tab) Then

     Dim rangFlag

     rowsNum = rowsNum + 1

      ' Show properties

      Output "================================"

      sheet.cells(rowsNum, 1) =tab.name

      sheet.cells(rowsNum, 1).HorizontalAlignment=3

      sheet.cells(rowsNum, 2) = tab.code

      'sheet.cells(rowsNum, 5).HorizontalAlignment=3

      'sheet.cells(rowsNum, 6) = ""

      'sheet.cells(rowsNum, 7) = "表说明"

      sheet.cells(rowsNum, 3) = tab.comment

      'sheet.cells(rowsNum, 8).HorizontalAlignment=3

      sheet.Range(sheet.cells(rowsNum, 3),sheet.cells(rowsNum, 7)).Merge

      '设置超链接，从目录点击表名去查看表结构

      '字段中文名    字段英文名    字段类型    注释    是否主键    是否非空    默认值

      sheetList.Hyperlinks.Add sheetList.cells(rowIndex,2), "","表结构"&"!B"&rowsNum

      rowsNum = rowsNum + 1

      sheet.cells(rowsNum, 1) = "字段中文名"

      sheet.cells(rowsNum, 2) = "字段英文名"

      sheet.cells(rowsNum, 3) = "字段类型"

      sheet.cells(rowsNum, 4) = "注释"

      sheet.cells(rowsNum, 5) = "是否主键"

      sheet.cells(rowsNum, 6) = "是否非空"

      sheet.cells(rowsNum, 7) = "默认值"

      '设置边框

      sheet.Range(sheet.cells(rowsNum-1, 1),sheet.cells(rowsNum, 7)).Borders.LineStyle = "1"

      'sheet.Range(sheet.cells(rowsNum-1, 4),sheet.cells(rowsNum, 9)).Borders.LineStyle = "1"

      '字体为10号

      sheet.Range(sheet.cells(rowsNum-1, 1),sheet.cells(rowsNum, 7)).Font.Size=10

            Dim col ' running column

            Dim colsNum

            colsNum = 0

      for each col in tab.columns

        rowsNum = rowsNum + 1

        colsNum = colsNum + 1

          sheet.cells(rowsNum, 1) = col.name

        'sheet.cells(rowsNum, 3) = ""

          'sheet.cells(rowsNum, 4) = col.name

          sheet.cells(rowsNum, 2) = col.code

          sheet.cells(rowsNum, 3) = col.datatype

        sheet.cells(rowsNum, 4) = col.comment

          If col.Primary = true Then

        sheet.cells(rowsNum, 5) = "Y" 

        Else

        sheet.cells(rowsNum, 5) = " " 

        End If

        If col.Mandatory = true Then

        sheet.cells(rowsNum, 6) = "Y" 

        Else

        sheet.cells(rowsNum, 6) = " " 

        End If

        sheet.cells(rowsNum, 7) =  col.defaultvalue

      next

      sheet.Range(sheet.cells(rowsNum-colsNum+1,1),sheet.cells(rowsNum,7)).Borders.LineStyle = "3"       

      'sheet.Range(sheet.cells(rowsNum-colsNum+1,4),sheet.cells(rowsNum,9)).Borders.LineStyle = "3"

      sheet.Range(sheet.cells(rowsNum-colsNum+1,1),sheet.cells(rowsNum,7)).Font.Size = 10

      rowsNum = rowsNum + 2

       

      Output "FullDescription: "       + tab.Name

   End If

    

End Sub

'-----------------------------------------------------------------------------

' Show List Of Table

'-----------------------------------------------------------------------------

Sub ShowTableList(mdl, SheetList)

   ' Show tables of the current model/package

   Dim rowsNo

   rowsNo=1

   ' For each table

   output "begin"

   SheetList.cells(rowsNo, 1) = "主题"

   SheetList.cells(rowsNo, 2) = "表中文名"

   SheetList.cells(rowsNo, 3) = "表英文名"

   SheetList.cells(rowsNo, 4) = "表说明"

   rowsNo = rowsNo + 1

   SheetList.cells(rowsNo, 1) = mdl.name

   Dim tab

   For Each tab In mdl.tables

     If IsObject(tab) Then

         rowsNo = rowsNo + 1

      SheetList.cells(rowsNo, 1) = ""

      SheetList.cells(rowsNo, 2) = tab.name

      SheetList.cells(rowsNo, 3) = tab.code

      SheetList.cells(rowsNo, 4) = tab.comment

     End If

   Next

    SheetList.Columns(1).ColumnWidth = 20 

      SheetList.Columns(2).ColumnWidth = 20 

      SheetList.Columns(3).ColumnWidth = 30 

     SheetList.Columns(4).ColumnWidth = 60 

   output "end"

End Sub

代码1（普通版）：

'******************************************************************************

'* File:     pdm2excel.txt

'* Title:    pdm export to excel

'* Purpose:  To export the tables and columns to Excel

'* Model:    Physical Data Model

'* Objects:  Table, Column, View

'* Author:   ziyan

'* Created:  2012-05-03

'* Version:  1.0

'******************************************************************************

Option Explicit

   Dim rowsNum

   rowsNum = 0

'-----------------------------------------------------------------------------

' Main function

'-----------------------------------------------------------------------------

' Get the current active model

Dim Model

Set Model = ActiveModel

If (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 ="test"

 set sheet = EXCEL.workbooks(1).sheets("test")

 

 ShowProperties Model, SHEET

 EXCEL.visible = true

 '设置列宽和自动换行

 sheet.Columns(1).ColumnWidth = 20 

 sheet.Columns(2).ColumnWidth = 40 

 sheet.Columns(4).ColumnWidth = 20 

 sheet.Columns(5).ColumnWidth = 20 

 sheet.Columns(6).ColumnWidth = 15 

 sheet.Columns(1).WrapText =true

 sheet.Columns(2).WrapText =true

 sheet.Columns(4).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.name

      sheet.cells(rowsNum, 3) = ""

      sheet.cells(rowsNum, 4) = "表名"

      sheet.cells(rowsNum, 5) = tab.code

      sheet.Range(sheet.cells(rowsNum, 5),sheet.cells(rowsNum, 6)).Merge

      rowsNum = rowsNum + 1

      sheet.cells(rowsNum, 1) = "属性名"

      sheet.cells(rowsNum, 2) = "说明"

      sheet.cells(rowsNum, 3) = ""

      sheet.cells(rowsNum, 4) = "字段中文名"

      sheet.cells(rowsNum, 5) = "字段名"

      sheet.cells(rowsNum, 6) = "字段类型"

      '设置边框

      sheet.Range(sheet.cells(rowsNum-1, 1),sheet.cells(rowsNum, 2)).Borders.LineStyle = "1"

      sheet.Range(sheet.cells(rowsNum-1, 4),sheet.cells(rowsNum, 6)).Borders.LineStyle = "1"

Dim col ' running column

Dim colsNum

colsNum = 0

      for each col in tab.columns

        rowsNum = rowsNum + 1

        colsNum = colsNum + 1

      sheet.cells(rowsNum, 1) = col.name

      sheet.cells(rowsNum, 2) = col.comment

        sheet.cells(rowsNum, 3) = ""

      sheet.cells(rowsNum, 4) = col.name

      sheet.cells(rowsNum, 5) = col.code

      sheet.cells(rowsNum, 6) = col.datatype

      next

      sheet.Range(sheet.cells(rowsNum-colsNum+1,1),sheet.cells(rowsNum,2)).Borders.LineStyle = "2"       

      sheet.Range(sheet.cells(rowsNum-colsNum+1,4),sheet.cells(rowsNum,6)).Borders.LineStyle = "2"

      rowsNum = rowsNum + 1

      

      Output "FullDescription: "       + tab.Name

   End If

End Sub

展示： 

代码2（彩色版）：带目录结构哦

 
Option Explicit
 
Dim mdl 
Set mdl = ActiveModel
If (mdl Is Nothing) Then
   MsgBox "There is no Active Model"
End If
Dim EXCEL, SheetList
Set EXCEL = CreateObject("Excel.Application") 
EXCEL.Visible = True 
EXCEL.Workbooks.Add
 
Dim tab 
Dim sheet  
For Each tab In mdl.tables
        EXCEL.workbooks(1).sheets.add
        EXCEL.workbooks(1).sheets(1).name = tab.code
        set sheet = EXCEL.workbooks(1).sheets(tab.code)
        EXCEL.visible = true
        sheet.Columns(1).ColumnWidth = 25
        sheet.Columns(2).ColumnWidth = 20
        sheet.Columns(3).ColumnWidth = 15
        sheet.Columns(4).ColumnWidth = 7
        sheet.Columns(5).ColumnWidth = 7
        sheet.Columns(6).ColumnWidth = 10
        sheet.Columns(7).ColumnWidth = 60
        sheet.Columns(1).WrapText =true
        sheet.Columns(2).WrapText =true
        sheet.Columns(4).WrapText =true
        EXCEL.ActiveWindow.DisplayGridlines = False
        
Next
    EXCEL.workbooks(1).sheets.add
    EXCEL.workbooks(1).sheets(1).name ="目录"
    set SheetList = EXCEL.workbooks(1).sheets("目录")
    ShowTableList mdl, SheetList
    CreateTab mdl, SheetList
 
 
Sub CreateTab(mdl, SheetList)
    Dim rowsNum, tablecode, tablname
    rowsNum = 0
    For Each tab In mdl.tables
        rowsNum = 1
        set SHEET = EXCEL.workbooks(1).sheets(tab.code)
            sheet.cells(rowsNum, 1) = "表中文名"
        tablecode = tab.code
        tablname = tab.name
        tablname = replace(tablname, tablecode, "")
        sheet.cells(rowsNum, 2) = tablname
        sheet.cells(rowsNum, 3) = "表英文名"
        sheet.cells(rowsNum, 4) = tab.code
        sheet.Range(sheet.cells(rowsNum, 4),sheet.cells(rowsNum, 6)).Merge
        sheet.cells(rowsNum, 7) = "返回目录"
        sheet.Hyperlinks.Add sheet.cells(rowsNum,7), "","目录"&"!B"&rowsNum
        rowsNum = rowsNum + 1
        sheet.cells(rowsNum, 1) = "表中文说明"
        sheet.cells(rowsNum, 2) = tab.name
        sheet.Range(sheet.cells(rowsNum, 2),sheet.cells(rowsNum, 7)).Merge
        rowsNum = rowsNum + 1
        sheet.cells(rowsNum, 1) = "字段名"
        sheet.cells(rowsNum, 2) = "字段中文名"
        sheet.cells(rowsNum, 3) = "数据类型"
        sheet.cells(rowsNum, 4) = "空值"
        sheet.cells(rowsNum, 5) = "默认值"
        sheet.cells(rowsNum, 6) = "下拉菜单"
        sheet.cells(rowsNum, 7) = "字段说明"
        addTabsCol sheet, tab, rowsNum
        addTabsidx sheet, tab, rowsNum
        addTabPK sheet, tab, rowsNum
        
        sheet.Range(sheet.cells(1, 1),sheet.cells(rowsNum, 7)).Borders.LineStyle = "1"
        sheet.Range(sheet.cells(1, 1),sheet.cells(rowsNum, 7)).Font.Size=10
        sheet.Range(sheet.cells(1, 1),sheet.cells(rowsNum, 7)).Font.Name="微软雅黑"
        sheet.Range(sheet.cells(1, 1),sheet.cells(3, 7)).Interior.colorindex = "3"
        sheet.Range(sheet.cells(1, 1),sheet.cells(rowsNum, 7)).RowHeight = "21"
        sheet.Range(sheet.cells(1, 1),sheet.cells(3, 7)).Font.Bold = True
        sheet.Range(sheet.cells(3, 7),sheet.cells(rowsNum, 7)) = " "
    Next
    
    
End Sub
 
Sub addTabsCol(sheet, tab, rowsNum)
    Dim col 
    Dim colsNum
    colsNum = 0
        for each col in tab.columns
            rowsNum = rowsNum + 1
            colsNum = colsNum + 1
                sheet.cells(rowsNum, 1) = col.code
                sheet.cells(rowsNum, 2) = col.name
                sheet.cells(rowsNum, 3) = col.datatype
            If col.Mandatory = true Then
                sheet.cells(rowsNum, 4) = "非空" 
            Else
                sheet.cells(rowsNum, 4) = " " 
            End If
                sheet.cells(rowsNum, 5) = col.DefaultValue
                sheet.cells(rowsNum, 7) =  col.comment
        Next 
End Sub    
 
Sub addTabsidx(sheet, tab, rowsNum)
    rowsNum = rowsNum + 1
    sheet.cells(rowsNum, 1) = "索引名"
    sheet.cells(rowsNum, 2) = "索引类型"
    sheet.cells(rowsNum, 3) = "索引列表"
    sheet.Range(sheet.cells(rowsNum, 3),sheet.cells(rowsNum, 7)).Merge
    sheet.Range(sheet.cells(rowsNum, 1),sheet.cells(rowsNum, 7)).Font.Bold = True
    Dim index 
    Dim idxNm
    Dim indexstrlst  
    idxNm = 0
    for each index in tab.indexes
        rowsNum = rowsNum + 1
        idxNm = idxNm + 1
        sheet.cells(rowsNum, 1) = index.code
        if index.unique = "1" Then
            sheet.cells(rowsNum, 2) = "UNIQUE"
        Else
            sheet.cells(rowsNum, 2) = "NORM"
        End If
 
        Dim keystr
        Dim indexcol
        keystr = ""
        for each indexcol in index.IndexColumns
            keystr = keystr +","+ indexcol.code
        next
        keystr = mid(keystr, 2, len(keystr))
        sheet.cells(rowsNum, 3) = keystr
        sheet.Range(sheet.cells(rowsNum, 3),sheet.cells(rowsNum, 7)).Merge
      next
End Sub 
 
Sub addTabPK(sheet, tab, rowsNum)
    
    Dim key
    Dim keyNm
    Dim keystr
    Dim flag
    Dim keycode
    Dim keycol
    rowsNum = rowsNum + 1
    sheet.cells(rowsNum, 1) = "主键"
    sheet.cells(rowsNum, 2) = "索引类型"
    sheet.cells(rowsNum, 3) = "主键列表"
    sheet.Range(sheet.cells(rowsNum, 3),sheet.cells(rowsNum, 7)).Merge
    sheet.Range(sheet.cells(rowsNum, 1),sheet.cells(rowsNum, 7)).Font.Bold = True 
    for each key in tab.keys
        keycode = key.code
        if key.Primary = true Then
            flag = 1
            keystr = ""
            for each keycol in key.columns
                keystr = keystr +","+ keycol.code
            next
            keystr = mid(keystr, 2, len(keystr))
        End If
        next
        if flag = 1 Then
            rowsNum = rowsNum + 1
            keyNm = 1
            'sheet.cells(rowsNum, 1) = keycode
            sheet.cells(rowsNum, 1) = "PK_"+tab.code
            sheet.cells(rowsNum, 2) = "UNIQUE"
            sheet.Range(sheet.cells(rowsNum, 3),sheet.cells(rowsNum, 7)).Merge
            sheet.cells(rowsNum, 3) = keystr
        End If
End Sub 
 
Sub ShowTableList(mdl, SheetList)
    Dim rowsNum
    rowsNum=1
    SheetList.cells(rowsNum, 1) = "主题"
    SheetList.cells(rowsNum, 2) = "表中文名"
    SheetList.cells(rowsNum, 3) = "表英文名"
    SheetList.cells(rowsNum, 4) = "表说明"
    SheetList.Columns(1).ColumnWidth = 20 
    SheetList.Columns(2).ColumnWidth = 30 
    SheetList.Columns(3).ColumnWidth = 35 
    SheetList.Columns(4).ColumnWidth = 70 
    rowsNum = rowsNum + 1
    SheetList.cells(rowsNum, 1) = mdl.name
    
    Dim tab
    For Each tab In mdl.tables
        If IsObject(tab) Then
            rowsNum = rowsNum + 1
            SheetList.cells(rowsNum, 1) = ""
            SheetList.cells(rowsNum, 2) = replace(tab.name, tab.code, "")
            SheetList.cells(rowsNum, 3) = tab.code
            SheetList.cells(rowsNum, 4) = tab.comment
            sheetList.Hyperlinks.Add sheetList.cells(rowsNum,3), "",tab.code&"!B1"
            sheetList.Hyperlinks.Add sheetList.cells(rowsNum,2), "",tab.code&"!B1"
 
        End If
    Next
    SheetList.Range(SheetList.cells(1, 1),SheetList.cells(rowsNum, 4)).Borders.LineStyle = "1"
    SheetList.Range(SheetList.cells(1, 1),SheetList.cells(rowsNum, 4)).Font.Size=10
    SheetList.Range(SheetList.cells(1, 1),SheetList.cells(rowsNum, 4)).Font.Name="微软雅黑"
    SheetList.Range(SheetList.cells(1, 1),SheetList.cells(1, 4)).Interior.colorindex = "3"
    SheetList.Range(SheetList.cells(1, 1),SheetList.cells(rowsNum, 4)).RowHeight = "20"
    SheetList.Range(SheetList.cells(1, 1),SheetList.cells(1, 4)).Font.Bold = True
    SheetList.Range(SheetList.cells(2, 1),SheetList.cells(rowsNum, 3)).Font.Bold = True
    SheetList.Range(SheetList.cells(1, 5),SheetList.cells(rowsNum, 5)) = " "
    EXCEL.ActiveWindow.DisplayGridlines = False
 
End Sub

展示：

注：参考链接    https://www.php.cn/mysql-tutorials-380113.html       

手把手入门
关注
  • 2
    点赞
  • 踩
  • 6
    收藏
    觉得还不错? 一键收藏
  • 5
    评论
专栏目录
PDM生成EXCEL.txt
07-10
根据PDM生成EXCEL格式的文档，可以按自己的需求个性化定制
PowerDesigner导出表结构到Excel脚本
01-31
步骤： 1、用PowerDesigner打开要导出的PDM文件 2、Tools->Execute Commands -> Edit/Run Script... 3、点击Open图标（打开文件夹）找到该脚本文件 4、点击Run按钮
PowerDesigner导入Excel模板生成数据表
最新发布
weixin_44050161的博客
06-08 645
【代码】PowerDesigner导入Excel模板生成数据表。
PowerDesigner 将pdm模型表 用命令导出成Excel表格
一杯咖啡的博客
02-28 1078
【代码】PowerDesigner 将pdm模型表 用命令导出成Excel表格。
PowerDesigner中数据库表的Excel格式导入导出
我的博客
05-08 1403
文章目录概述导入Excel表生成PDM表结构1. 准备excel：2. 在pdm中，按 `crtl+shift+x` 打开脚本执行窗口3. 输入脚本，点击`run`执行4. 脚本如下：导出为Excel表1. 在pdm中，按 `crtl+shift+x` 打开脚本执行窗口2. 输入脚本，点击`run`执行3. 脚本如下： 概述 PowerDesigner简称PDM，是我们工作中常用的数据库模型设计工...
PDM和建表sql，PDM和EXCEL互转操作。
weixin_44396056的博客
02-04 1640
直入正题。 一、PDM转其他。 1、PDM转建表sql 选中表格，可以多选操作，然后按快捷键ctrl+g，最后会在桌面生成一个文件，用记事本打开即可。 2、PDM转Excel
PowerDesigner导入Excel表
weixin_45407811的博客
11-08 5863
1.Excel新建表 在工作中有时候会遇到在excel中建立表结构，如下图中表结构 地表水源不同水质供水量统计表 WR_SWVSQT_S 本表应描述不同水质地表水源的供水量信息 行政区划代码 ADDVCD CHAR(6) N 年份 YR SHORTINT(4) ...
powerdesigner文件转excel脚本.txt
08-26
PowerDesigner中依次选中：Tools---->Execute Commands---->Edit/Run Script；或者使用快捷键Ctrl+Shift+X打开运行窗口。然后执行导出脚本。
PowerDesigner里把Excel转成pdm
01-08
在PowerDesigner里执行脚本命令，从Excel里读取表结构生成pdm文件。
PowerDesigner里pdm表结构转换成Excel表结构
01-08
执行脚本命令，把pdm文件导出成Excel格式的表结构定义。
Excel导入PDM
08-07
NULL 博文链接：https://mazhihui.iteye.com/blog/2100105
从PDM物理模型中提取数据生成EXCEL格式字典表
09-19
因为我自己做PD数据模型并生成数据字典表，但它本身提供的数据字典DOC格式不太能满足我的要求，我想要一张统一的完成的字典数据表：数据表，表字段名，表字段代码，字段序号，字段填写说明，字段类型这些信息来制作自己的输出界面动态绑定显示，所以我就开发了这个工具，提供给有需要的朋友，如果有特殊的需求可以提供定制服务。
PowerDesigner（PDM）文件自动转换为Excel文件格式
12-06
这就是"PowerDesigner（PDM）文件自动转换为Excel文件格式"这个话题的核心。 这个转换过程涉及到以下几个关键知识点： 1. **PowerDesigner的PDM文件**：PDM文件是PowerDesigner保存物理数据模型的文件格式，其中...
pdm生成Excel
hsy1969864869的博客
07-21 1789
PDM文件通过powerdesigner生成Excel 因为要用公司核心数据，所以需要同步核心数据，自己系统中的数据库结构与核心不同，所以要找对应字段对应表，用pdm直接看的话有点不方便，想通过Excel来看就比较清晰了。 方法：用powerdesigner打开pdm文件，ctrl+shift+x，打开脚本编辑，添加以下代码：`’****************************************************************************** '* File:
pdm文件转excel的脚本
sunhs1024的博客
05-28 1908
这里仅仅是为了记录 shift+ctrl+X，打开脚本运行，脚本如下：'******************************************************************************'* File:     pdm2excel.txt'* Title:    pdm export to excel'* Purpose:  To export the t...
pdm转excel
Ctrain的专栏
06-22 971
参考文档：http://www.cnblogs.com/hggc/archive/2013/10/15/3369857.html 根据上面文档中的脚本导出的表结构看上去比较别扭，所以根据自己的需要对其进行了调整。'******************************************************************************'* File: pd
PowerDesigner中模型设计导出Excel表格
热门推荐
瘦子没有夏天
06-05 1万+
今天项目做设计，客户要看数据设计，需要到处Excel表格。去网上搜索下，把使用总结如下： 已经完成设计的pd设计 打开pd,快捷键Ctrl + Shift + X或者Tools>Exectue Commands > Edit/Run Script '**************************************************************...
PowerDesigner 数据库设计导出到Excel
077的专栏
01-14 1万+
在PowerDesigner 中 ctrl+shift+x 弹出执行脚本界面，输入如下代码就会生成 Excel 代码一：所有的表在同一个 Sheet 页中 '****************************************************************************** '* File: pdm2excel.txt '* Ti
PowerDesigner PDM转换CDM
04-01
PowerDesigner是一种强大的建模工具，它可以将物理数据模型（PDM）转换成概念数据模型（CDM）。以下是具体步骤： 1. 打开PowerDesigner，从“文件”菜单中选择“打开”选项，打开PDM文件。 2. 在打开的PDM文件中，选择“模型”菜单，然后选择“转换模型”选项。 3. 在“转换模型”对话框中，选择“物理模型转换为概念模型”选项，然后单击“确定”按钮。 4. 在“物理模型转换为概念模型”对话框中，选择要转换的对象，例如表、列、主键、外键等。 5. 单击“确定”按钮开始转换过程。在转换过程中，PowerDesigner会自动将选定的PDM对象转换成CDM对象。 6. 转换完成后，您可以在PowerDesigner中查看生成的CDM模型。如果需要，您可以对其进行修改、优化和调整，以满足您的需求。 总之，使用PowerDesigner可以快速、简便地将PDM转换成CDM，从而帮助您更好地理解和管理数据模型。
评论 5
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值