做的物流网站,小公司要不要建设网站,2018建盏大师最新排名,win7图标显示wordpress解决问题(有mysql数据库数据表想要将表导入到PowerDesigner 或导出Excel数据字典)一、下载工具1、工具PowerDesigner 百度自行下载安装2、mysql-connector-odbc 下载链接: https://pan.baidu.com/s/1cjb73f3GvkkMFAzZKi85xA 提取码: u5ih二、mysql数据库数据表想要将表导入到Po…解决问题(有mysql数据库数据表想要将表导入到PowerDesigner 或导出Excel数据字典)一、下载工具1、工具PowerDesigner 百度自行下载安装2、mysql-connector-odbc 下载链接: https://pan.baidu.com/s/1cjb73f3GvkkMFAzZKi85xA 提取码: u5ih二、mysql数据库数据表想要将表导入到PowerDesigner1、创建一个新的PowerDesigner(一)创建逆向工程(二)选择数据库类型我们这里是mysql(三)连接我们的数据库 点击连接按钮(四)点击配置(五)点击新增一个数据连接 点击确定(六)选择用户数据源 下一步(七)选择mysql 下一步(八)点击完成(九)填写用户名密码 第一项创建数据源名称第二项创建数据源描述第三项创建数据源的IP地址 端口号第四项名称第五项密码最后一项想要导的数据库这里可以不选 点击Test成功后点击ok 就会出现一个刚创建的数据源点击确定(十)选择刚刚创建的数据源 连接确定(十一)选择要导的库(如要导出所有表可滑到最上面可选择All users)点击ok再点击ok(十二)mysql数据库数据表想要将表导入到PowerDesigner(完成)三、导出Excel数据字典1、选中想要导出Excel数据字典的表 按ctrl shift x 然后运行脚本 大功告成******************************************************************************Option ExplicitDim rowsNumrowsNum 0----------------------------------------------------------------------------- Main function----------------------------------------------------------------------------- Get the current active modelDim ModelSet ModelActiveModelIf (Model Is Nothing) Or (Not Model.IsKindOf(PdPDM.cls_Model)) ThenMsgBoxThe current model is not an PDM model.Else Get the tables collection创建EXCEL APPdim beginrowDIM EXCEL, SHEET, SHEETLISTset EXCEL CREATEOBJECT(Excel.Application)EXCEL.workbooks.add(-4167)添加工作表EXCEL.workbooks(1).sheets(1).name 表结构set SHEET EXCEL.workbooks(1).sheets(表结构)EXCEL.workbooks(1).sheets.addEXCEL.workbooks(1).sheets(1).name 目录set SHEETLIST EXCEL.workbooks(1).sheets(目录)ShowTableList Model,SHEETLISTShowProperties Model, SHEET,SHEETLISTEXCEL.workbooks(1).Sheets(2).SelectEXCEL.visible true设置列宽和自动换行sheet.Columns(1).ColumnWidth 20sheet.Columns(2).ColumnWidth 20sheet.Columns(3).ColumnWidth 20sheet.Columns(4).ColumnWidth 40sheet.Columns(5).ColumnWidth 10sheet.Columns(6).ColumnWidth 10sheet.Columns(1).WrapText truesheet.Columns(2).WrapText truesheet.Columns(4).WrapText true不显示网格线EXCEL.ActiveWindow.DisplayGridlines FalseEnd If----------------------------------------------------------------------------- Show properties of tables-----------------------------------------------------------------------------Sub ShowProperties(mdl, sheet,SheetList) Show tables of the current model/packagerowsNum0beginrow rowsNum1Dim rowIndexrowIndex3 For each tableoutput beginDim tabFor Each tab In mdl.tablesShowTable tab,sheet,rowIndex,sheetListrowIndex rowIndex 1Nextif mdl.tables.count 0thensheet.Range(A beginrow 1 :A rowsNum).Rows.GroupendifoutputendEnd Sub----------------------------------------------------------------------------- Show table properties-----------------------------------------------------------------------------Sub ShowTable(tab, sheet,rowIndex,sheetList)If IsObject(tab) ThenDim rangFlagrowsNum rowsNum 1 Show propertiesOutput sheet.cells(rowsNum,1) tab.namesheet.cells(rowsNum,1).HorizontalAlignment3sheet.cells(rowsNum,2) tab.codesheet.cells(rowsNum, 5).HorizontalAlignment3sheet.cells(rowsNum, 6) sheet.cells(rowsNum, 7) 表说明sheet.cells(rowsNum, 3) tab.commentsheet.cells(rowsNum, 8).HorizontalAlignment3sheet.Range(sheet.cells(rowsNum, 3),sheet.cells(rowsNum, 7)).Merge设置超链接从目录点击表名去查看表结构字段中文名 字段英文名 字段类型 注释 是否主键 是否非空 默认值sheetList.Hyperlinks.Add sheetList.cells(rowIndex,2), ,表结构!BrowsNumrowsNum rowsNum 1sheet.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 1sheet.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.Size10Dim col running columnDim colsNumcolsNum 0foreach col in tab.columnsrowsNum rowsNum 1colsNum colsNum 1sheet.cells(rowsNum,1) col.namesheet.cells(rowsNum, 3) sheet.cells(rowsNum, 4) col.namesheet.cells(rowsNum, 2) col.codesheet.cells(rowsNum,3) col.datatypesheet.cells(rowsNum,4) col.commentIf col.Primary trueThensheet.cells(rowsNum,5) YElsesheet.cells(rowsNum,5) End IfIf col.Mandatory trueThensheet.cells(rowsNum,6) YElsesheet.cells(rowsNum,6) End Ifsheet.cells(rowsNum,7) col.defaultvaluenextsheet.Range(sheet.cells(rowsNum-colsNum1,1),sheet.cells(rowsNum,7)).Borders.LineStyle 3sheet.Range(sheet.cells(rowsNum-colsNum1,4),sheet.cells(rowsNum,9)).Borders.LineStyle 3sheet.Range(sheet.cells(rowsNum-colsNum1,1),sheet.cells(rowsNum,7)).Font.Size 10rowsNum rowsNum 2OutputFullDescription: tab.NameEnd IfEnd Sub----------------------------------------------------------------------------- Show List Of Table-----------------------------------------------------------------------------Sub ShowTableList(mdl, SheetList) Show tables of the current model/packageDim rowsNorowsNo1 For each tableoutput beginSheetList.cells(rowsNo,1) 主题SheetList.cells(rowsNo,2) 表中文名SheetList.cells(rowsNo,3) 表英文名SheetList.cells(rowsNo,4) 表说明rowsNo rowsNo 1SheetList.cells(rowsNo,1) mdl.nameDim tabFor Each tab In mdl.tablesIf IsObject(tab) ThenrowsNo rowsNo 1SheetList.cells(rowsNo,1) SheetList.cells(rowsNo,2) tab.nameSheetList.cells(rowsNo,3) tab.codeSheetList.cells(rowsNo,4) tab.commentEnd IfNextSheetList.Columns(1).ColumnWidth 20SheetList.Columns(2).ColumnWidth 20SheetList.Columns(3).ColumnWidth 30SheetList.Columns(4).ColumnWidth 60outputendEnd Sub
