利用PowerDesigner反向生成DB设计文档

最新推荐文章于 2022-11-03 10:56:53 发布
最新推荐文章于 2022-11-03 10:56:53 发布
阅读量216 收藏
点赞数
文章标签： 数据库 database
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。
本文链接：https://blog.csdn.net/m0_60196931/article/details/121989431
版权

从开发流程上来说，通常是先做设计书，在进行开发。

但是还是有很多项目由于各种各样的原因，需要后期补设计书。

本文的所述的方式是，通过PowerDesigner直连Mysql数据库（以此为例）。将DB结构导入到PowerDesigner中，而后通过vbs脚本，逆向生成Execl的DB设计书。

第一步：连DB。

关于 ODBC连接的配置方式

参考：https://blog.csdn.net/weixin_42517649/article/details/114475744

第二步：引入表结构之后，会发现不显示字段中文名

第三步：执行以下操作，先调出 code列

勾选Code

 第四步：执行VBS，将code列转成comment的值

Comment2Name.vbs代码如下
 

Option   Explicit 
ValidationMode   =   True 
InteractiveMode   =   im_Batch
 
Dim   mdl   '   the   current   model
'   get   the   current   active   model 
Set   mdl   =   ActiveModel 
If   (mdl   Is   Nothing)   Then 
      MsgBox   "There   is   no   current   Model " 
ElseIf   Not   mdl.IsKindOf(PdPDM.cls_Model)   Then 
      MsgBox   "The   current   model   is   not   an   Physical   Data   model. " 
Else 
      ProcessFolder   mdl 
End   If
Private   sub   ProcessFolder(folder) 
On Error Resume Next
      Dim   Tab   'running     table 
      for   each   Tab   in   folder.tables 
            if   not   tab.isShortcut   then 
                  tab.name   =   tab.comment
                  Dim   col   '   running   column 
                  for   each   col   in   tab.columns 
                  if col.comment="" then
                  else
                        col.name=   col.comment 
                  end if
                  next 
            end   if 
      next
      Dim   view   'running   view 
      for   each   view   in   folder.Views 
            if   not   view.isShortcut   then 
                  view.name   =   view.comment 
            end   if 
      next
 
      '   go   into   the   sub-packages 
      Dim   f   '   running   folder 
      For   Each   f   In   folder.Packages 
            if   not   f.IsShortcut   then 
                  ProcessFolder   f 
            end   if 
      Next 
end   sub

 

运行后效果

使用导出脚本

 

自行创建一个.vbs文件即可。

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, BOOK, SHEETLIST ,FRISTSHEET,SECONDSHEET
      set EXCEL = CREATEOBJECT("Excel.Application")
      set BOOK = EXCEL.workbooks.add(-4167) ' 创建工作簿
      '封面页
      BOOK.sheets(1).name ="封面"                     'Sheet名称
      set FRISTSHEET = BOOK.sheets("封面")     'Sheet对象
            output "[line(21) info]: book.Sheet: " + FRISTSHEET.Name
      '编辑封面页
      ShowFristSheet FRISTSHEET
      
      BOOK.sheets.add,BOOK.Sheets(1)               ' 添加工作表Sheet
      BOOK.sheets(2).name ="改版履历"                     'Sheet名称
      set SECONDSHEET = BOOK.sheets("改版履历")     'Sheet对象
            output "[line(21) info]: book.Sheet: " + SECONDSHEET.Name
           
      ShowSecondSheet SECONDSHEET
            
      BOOK.sheets.add,BOOK.Sheets(2)               ' 添加工作表Sheet
      BOOK.sheets(3).name ="目录"                     'Sheet名称
      set SHEETLIST = BOOK.sheets("目录")     'Sheet对象
            output "[line(21) info]: book.Sheet: " + SHEETLIST.Name
             
      BOOK.sheets.add,BOOK.Sheets(BOOK.Sheets.Count)               ' 添加工作表Sheet
            output "[line(24) info]: book.Sheet: " + BOOK.Sheets(1).Name
      'EXCEL.workbooks(1).sheets(1).name ="表结构"     'Sheet1名称
      'set SHEET = EXCEL.workbooks(1).sheets("表结构") 'Sheet1对象
        
      ShowTableList Model, SHEETLIST
              
      ShowProperties Model, BOOK
       
            output  "[line(32) info]: Select: " + BOOK.Sheets(BOOK.Sheets.count).name          
      BOOK.Sheets(1).Select     '选择默认打开的工作表
      EXCEL.visible = true  ' 弹出Excel工作簿
      '不显示网格线
            'EXCEL.ActiveWindow.DisplayGridlines = True
 End If
              
'-----------------------------------------------------------------------------
' Show properties of tables
'-----------------------------------------------------------------------------
Sub ShowProperties(mdl, book)
   ' Show tables of the current model/package
   rowsNum=0
   beginrow = rowsNum+1
     output "[line(46) info]:   tables count : " &mdl.tables.count
      
   
   output "[line(50) info]: 表结构 begin ========================"
   ' For each table
   Dim tab  ' Power Tables
   For Each tab In mdl.tables
      ShowTable mdl,tab,book
      EXCEL.visible = true
 
       
   Next
    
   output "[line(58) info]: 表结构 end ！Sheet totals is : " & book.Sheets.count
End Sub
 
'-----------------------------------------------------------------------------
' Show table properties
'-----------------------------------------------------------------------------
Sub ShowTable(mdl, tab, book)
  If IsObject(tab) Then
         Output "输出表 [" + tab.name + UCase(tab.code) + "] 开始"
        rowsNum = 0
        rowsNum = rowsNum + 1   'rowsNum=1,工作表第一行
        Dim sheet
        dim tableName
        set sheet = book.Sheets(book.Sheets.Count)
        
        
        tableName = tab.name
        tableName = replace(tableName,"/","")
        tableName = replace(tableName,"\","")
        tableName = replace(tableName,"?","")
        tableName = replace(tableName,"*","")
        if Len(tab.name) > 30 then
            sheet.name =left(tableName,30)
        else
            sheet.name =tableName
        end if
        
        Dim rangFlag
 
 
      ' Show properties
 
      Output "================================"
      
      sheet.Rows.RowHeight = 15
      
      sheet.Rows(1).RowHeight = 6
      
      rowsNum = rowsNum + 1
      
      sheet.Columns.ColumnWidth = 3
      
      sheet.Columns(1).ColumnWidth = 1
 
 
      sheet.Range(sheet.cells(rowsNum, 2),sheet.cells(rowsNum+3, 30)).Borders.LineStyle = 1
 
      sheet.Columns.Font.Size = 10
      sheet.Columns.Font.Name = "SimSun"
      sheet.Range(sheet.cells(rowsNum, 2),sheet.cells(rowsNum+3, 30)).Font.Size = 10.5
      
 
 
      sheet.Range(sheet.cells(rowsNum, 2),sheet.cells(rowsNum+3, 30)).HorizontalAlignment = -4108
 
      sheet.Range(sheet.cells(rowsNum, 2),sheet.cells(rowsNum+3, 2)).Borders(7).LineStyle = 3
      sheet.Range(sheet.cells(rowsNum, 2),sheet.cells(rowsNum+3, 2)).Borders(7).weight = 3
      sheet.Range(sheet.cells(rowsNum, 2),sheet.cells(rowsNum, 30)).Borders(8).LineStyle = 3
      sheet.Range(sheet.cells(rowsNum, 2),sheet.cells(rowsNum, 30)).Borders(8).weight = 3
      sheet.Range(sheet.cells(rowsNum, 30),sheet.cells(rowsNum+3, 30)).Borders(10).LineStyle = 3
      sheet.Range(sheet.cells(rowsNum, 30),sheet.cells(rowsNum+3, 30)).Borders(10).weight = 3
      sheet.Range(sheet.cells(rowsNum+3, 2),sheet.cells(rowsNum+3, 30)).Borders(9).LineStyle = 3
      sheet.Range(sheet.cells(rowsNum+3, 2),sheet.cells(rowsNum+3, 30)).Borders(9).weight = 3
 
      sheet.cells(rowsNum, 2) = "####公司"
      sheet.cells(rowsNum, 2).Interior.ColorIndex=35
      sheet.cells(rowsNum, 2).Font.Bold=true
      sheet.Range(sheet.cells(rowsNum, 2),sheet.cells(rowsNum+1, 8)).Merge
      sheet.cells(rowsNum, 9) = "系统名"
      sheet.cells(rowsNum, 9).Font.Bold=true
      sheet.Range(sheet.cells(rowsNum, 9),sheet.cells(rowsNum, 12)).Merge
      sheet.cells(rowsNum, 13) = "子系统名"
      sheet.cells(rowsNum, 13).Font.Bold=true
      sheet.Range(sheet.cells(rowsNum, 13),sheet.cells(rowsNum, 16)).Merge
      sheet.cells(rowsNum, 17) = "####项目-DB设计书"
      sheet.cells(rowsNum, 17).Font.Bold=true
      sheet.Range(sheet.cells(rowsNum, 17),sheet.cells(rowsNum+1, 30)).Merge
      
      rowsNum = rowsNum + 1
      
      sheet.cells(rowsNum, 9) = "####"
      sheet.Range(sheet.cells(rowsNum, 9),sheet.cells(rowsNum, 12)).Merge
      sheet.cells(rowsNum, 13) = "####"
      sheet.Range(sheet.cells(rowsNum, 13),sheet.cells(rowsNum, 16)).Merge
      
      rowsNum = rowsNum + 1
      
      sheet.cells(rowsNum, 2) = "版 数"
      sheet.cells(rowsNum, 2).Font.Bold=true
      sheet.Range(sheet.cells(rowsNum, 2),sheet.cells(rowsNum, 8)).Merge
      sheet.cells(rowsNum, 9) = "章 节"
      sheet.cells(rowsNum, 9).Font.Bold=true
      sheet.Range(sheet.cells(rowsNum, 9),sheet.cells(rowsNum, 16)).Merge
      sheet.cells(rowsNum, 17) = "改版日"
      sheet.cells(rowsNum, 17).Font.Bold=true
      sheet.Range(sheet.cells(rowsNum, 17),sheet.cells(rowsNum, 20)).Merge
      sheet.cells(rowsNum, 21) = "改版者"
      sheet.cells(rowsNum, 21).Font.Bold=true
      sheet.Range(sheet.cells(rowsNum, 21),sheet.cells(rowsNum, 23)).Merge
      sheet.cells(rowsNum, 24) = "作成日"
      sheet.cells(rowsNum, 24).Font.Bold=true
      sheet.Range(sheet.cells(rowsNum, 24),sheet.cells(rowsNum, 27)).Merge
      sheet.cells(rowsNum, 28) = "作成者"
      sheet.cells(rowsNum, 28).Font.Bold=true
      sheet.Range(sheet.cells(rowsNum, 28),sheet.cells(rowsNum, 30)).Merge
      
      rowsNum = rowsNum + 1
      sheet.cells(rowsNum, 2) = "V1.0"
      sheet.Range(sheet.cells(rowsNum, 2),sheet.cells(rowsNum, 8)).Merge
      sheet.cells(rowsNum, 9) = tab.name
      sheet.Range(sheet.cells(rowsNum, 9),sheet.cells(rowsNum, 16)).Merge
      sheet.cells(rowsNum, 17) = Format_Time(Now(),2)
      sheet.Range(sheet.cells(rowsNum, 17),sheet.cells(rowsNum, 20)).Merge
      sheet.cells(rowsNum, 21) = "####"
      sheet.Range(sheet.cells(rowsNum, 21),sheet.cells(rowsNum, 23)).Merge
      sheet.cells(rowsNum, 24) = Format_Time(Now(),2)
      sheet.Range(sheet.cells(rowsNum, 24),sheet.cells(rowsNum, 27)).Merge
      sheet.cells(rowsNum, 28) = "####"
      sheet.Range(sheet.cells(rowsNum, 28),sheet.cells(rowsNum, 30)).Merge
      
      rowsNum = rowsNum + 1
      
      
 
      sheet.Rows(rowsNum).RowHeight = 6
 
      rowsNum = rowsNum + 1
 
      sheet.cells(rowsNum, 2) = "表名（英文）"
      '对齐
      sheet.cells(rowsNum, 2).HorizontalAlignment = -4108
      '背景色
      sheet.cells(rowsNum, 2).Interior.ColorIndex=35
      '合并单元格
      sheet.Range(sheet.cells(rowsNum, 2),sheet.cells(rowsNum, 5)).Merge
      sheet.Range(sheet.cells(rowsNum, 2),sheet.cells(rowsNum, 5)).Borders.LineStyle = "1"
 
      sheet.cells(rowsNum, 6) = UCase(tab.code)
      sheet.Range(sheet.cells(rowsNum, 6),sheet.cells(rowsNum, 14)).Merge
      sheet.Range(sheet.cells(rowsNum, 6),sheet.cells(rowsNum, 14)).Borders.LineStyle = "1"
 
      sheet.cells(rowsNum, 15) = "表名（中文）"
      sheet.cells(rowsNum, 15).Interior.ColorIndex=35
      '对齐
      sheet.cells(rowsNum, 15).HorizontalAlignment = -4108
      sheet.Range(sheet.cells(rowsNum, 15),sheet.cells(rowsNum, 19)).Merge
      sheet.Range(sheet.cells(rowsNum, 15),sheet.cells(rowsNum, 19)).Borders.LineStyle = "1"
      
      sheet.cells(rowsNum, 20) = tab.name
      sheet.Range(sheet.cells(rowsNum, 20),sheet.cells(rowsNum, 30)).Merge
      sheet.Range(sheet.cells(rowsNum, 20),sheet.cells(rowsNum, 30)).Borders.LineStyle = "1"
 
      'sheet.cells(rowsNum, 10) = "封面"
      
      'sheet.cells(rowsNum, 11) = ""
      '高度
      'sheet.Rows(1).RowHeight = 30
      
      
      
      rowsNum = rowsNum + 1
 
      '对齐
      sheet.Range(sheet.cells(rowsNum, 2),sheet.cells(rowsNum, 30)).HorizontalAlignment = -4108
      
      sheet.cells(rowsNum, 2) = "No"
      sheet.Range(sheet.cells(rowsNum, 2),sheet.cells(rowsNum, 2)).Borders.LineStyle = "1"
 
      sheet.cells(rowsNum, 3) = "Field"
      
      sheet.Range(sheet.cells(rowsNum, 3),sheet.cells(rowsNum, 8)).Merge
      sheet.Range(sheet.cells(rowsNum, 3),sheet.cells(rowsNum, 8)).Borders.LineStyle = "1"
 
      sheet.cells(rowsNum, 9) = "Comment"
 
      sheet.Range(sheet.cells(rowsNum, 9),sheet.cells(rowsNum, 14)).Merge
      sheet.Range(sheet.cells(rowsNum, 9),sheet.cells(rowsNum, 14)).Borders.LineStyle = "1"
      
      sheet.cells(rowsNum, 15) = "Type"
      sheet.Range(sheet.cells(rowsNum, 15),sheet.cells(rowsNum, 18)).Merge
      sheet.Range(sheet.cells(rowsNum, 15),sheet.cells(rowsNum, 18)).Borders.LineStyle = "1"
      sheet.cells(rowsNum, 19) = "Not Null"
      sheet.Range(sheet.cells(rowsNum, 19),sheet.cells(rowsNum, 20)).Merge
      sheet.Range(sheet.cells(rowsNum, 19),sheet.cells(rowsNum, 20)).Borders.LineStyle = "1"
 
      sheet.cells(rowsNum, 21) = "PK"
      
      
      sheet.cells(rowsNum, 22) = "Index1"
      
      sheet.Range(sheet.cells(rowsNum, 22),sheet.cells(rowsNum, 23)).Merge
      sheet.Range(sheet.cells(rowsNum, 22),sheet.cells(rowsNum, 23)).Borders.LineStyle = "1"
      
      sheet.cells(rowsNum, 24) = "Index2"
      sheet.Range(sheet.cells(rowsNum, 24),sheet.cells(rowsNum, 25)).Merge
      sheet.Range(sheet.cells(rowsNum, 24),sheet.cells(rowsNum, 25)).Borders.LineStyle = "1"
      
      
      
      sheet.cells(rowsNum, 26) = "Default"
      sheet.Range(sheet.cells(rowsNum, 26),sheet.cells(rowsNum, 27)).Merge
      
      sheet.cells(rowsNum, 28) = "remark"
      sheet.Range(sheet.cells(rowsNum, 28),sheet.cells(rowsNum, 30)).Merge
      
      sheet.Range(sheet.cells(rowsNum, 2),sheet.cells(rowsNum, 30)).Interior.ColorIndex=35
      sheet.Range(sheet.cells(rowsNum, 2),sheet.cells(rowsNum, 30)).Borders.LineStyle = "1"
 
      '设置边框
 
      Dim col ' running column
 
      Dim colsNum
 
      colsNum = 0
 
      Dim fristDataRows
      
      fristDataRows = rowsNum + 1
         
      for each col in tab.columns
         
         rowsNum = rowsNum + 1
         
         colsNum = colsNum + 1
 
         sheet.cells(rowsNum, 2) = colsNum
         sheet.cells(rowsNum, 2).HorizontalAlignment = 1
         sheet.Range(sheet.cells(rowsNum, 2),sheet.cells(rowsNum, 2)).Borders.LineStyle = "1"
         sheet.cells(rowsNum, 3) = col.code
         sheet.Range(sheet.cells(rowsNum, 3),sheet.cells(rowsNum, 8)).Merge
         sheet.Range(sheet.cells(rowsNum, 3),sheet.cells(rowsNum, 8)).Borders.LineStyle = "1"
 
         sheet.cells(rowsNum, 9) = col.name
         sheet.Range(sheet.cells(rowsNum, 9),sheet.cells(rowsNum, 14)).Merge
         sheet.Range(sheet.cells(rowsNum, 9),sheet.cells(rowsNum, 14)).Borders.LineStyle = "1"
         
         sheet.cells(rowsNum, 15) = col.datatype
         sheet.Range(sheet.cells(rowsNum, 15),sheet.cells(rowsNum, 18)).Merge
         sheet.Range(sheet.cells(rowsNum, 15),sheet.cells(rowsNum, 18)).Borders.LineStyle = "1"
         
         If col.Mandatory = true Then
            sheet.cells(rowsNum, 19) = "Y"
         Else
            sheet.cells(rowsNum, 19) = " "
         End If
         sheet.Range(sheet.cells(rowsNum, 19),sheet.cells(rowsNum, 20)).Merge
         sheet.Range(sheet.cells(rowsNum, 19),sheet.cells(rowsNum, 20)).Borders.LineStyle = "1"
      
         If col.Primary = true Then
            sheet.cells(rowsNum, 21) = "○"
         Else
            sheet.cells(rowsNum, 21) = " "
         End If
         sheet.Range(sheet.cells(rowsNum, 21),sheet.cells(rowsNum, 21)).Borders.LineStyle = "1"
 
 
         sheet.Range(sheet.cells(rowsNum, 22),sheet.cells(rowsNum, 23)).Merge
         sheet.Range(sheet.cells(rowsNum, 22),sheet.cells(rowsNum, 23)).Borders.LineStyle = "1"
 
         sheet.Range(sheet.cells(rowsNum, 24),sheet.cells(rowsNum, 25)).Merge
         sheet.Range(sheet.cells(rowsNum, 24),sheet.cells(rowsNum, 25)).Borders.LineStyle = "1"
 
         sheet.Range(sheet.cells(rowsNum, 26),sheet.cells(rowsNum, 27)).Merge
         sheet.Range(sheet.cells(rowsNum, 26),sheet.cells(rowsNum, 27)).Borders.LineStyle = "1"
 
         sheet.Range(sheet.cells(rowsNum, 28),sheet.cells(rowsNum, 30)).Merge
         sheet.Range(sheet.cells(rowsNum, 28),sheet.cells(rowsNum, 30)).Borders.LineStyle = "1"
 
         'sheet.cells(rowsNum, 10) = col.name
         sheet.Range(sheet.cells(rowsNum, 2),sheet.cells(rowsNum, 30)).Borders(8).LineStyle = 3
         sheet.Range(sheet.cells(rowsNum, 2),sheet.cells(rowsNum, 30)).Borders(8).weight = 1
         sheet.Range(sheet.cells(rowsNum, 2),sheet.cells(rowsNum, 30)).Borders(9).LineStyle = 3
      next
      
      sheet.Range(sheet.cells(fristDataRows, 2),sheet.cells(fristDataRows, 30)).Borders(8).LineStyle = 1
      sheet.Range(sheet.cells(rowsNum, 2),sheet.cells(rowsNum, 30)).Borders(9).LineStyle = 1
      '设置列宽和自动换行
 
 
       sheet.Columns(1).WrapText =true
 
       sheet.Columns(2).WrapText =true
 
       sheet.Columns(10).WrapText =true
       
       'sheet.Range(sheet.cells(rowsNum-colsNum+1,1),sheet.cells(rowsNum,11)).Borders.LineStyle = "1"       
 
      'sheet.Range(sheet.cells(rowsNum-colsNum+1,4),sheet.cells(rowsNum,8)).Borders.LineStyle = "2"
 
      rowsNum = rowsNum + 1
      
        If book.Sheets.count-3 < mdl.tables.count Then book.Sheets.Add,book.Sheets(book.Sheets.Count)  
         
  End If
     
End Sub
 
 
 
Function Format_Time(s_Time, n_Flag)
	Dim y, m, d, h, mi, s
	Format_Time = ""
	If IsDate(s_Time) = False Then Exit Function
	y = cstr(year(s_Time))
	m = cstr(month(s_Time))
	If len(m) = 1 Then m = "0" & m
	d = cstr(day(s_Time))
	If len(d) = 1 Then d = "0" & d
	h = cstr(hour(s_Time))
	If len(h) = 1 Then h = "0" & h
	mi = cstr(minute(s_Time))
	If len(mi) = 1 Then mi = "0" & mi
	s = cstr(second(s_Time))
	If len(s) = 1 Then s = "0" & s
	Select Case n_Flag
		Case 1
			' yyyy-mm-dd hh:mm:ss
			Format_Time = y & "-" & m & "-" & d  & " "& h  &":" &  mi  &":" & s
		Case 2
			' yyyy-mm-dd
			Format_Time = y & "-" & m & "-" & d
		Case 3
			' hh:mm:ss
			Format_Time = h & ":" & mi & ":" & s
		Case 4
			' yyyy年mm月dd日
			Format_Time = y & "年" & m & "月" & d & "日"
		Case 5
			' yyyymmdd
			Format_Time = y & m & d
	End Select
End Function
 
'-----------------------------------------------------------------------------
' Show List Of Table
'-----------------------------------------------------------------------------
Sub ShowTableList(mdl, sheet)
   ' Show tables of the current model/package
   Dim rowsNum
   dim fristDataRows
      rowsNum=1
   output "[line(131) info]: 目录程序 begin"
   
   
      sheet.Rows.RowHeight = 15
      
      sheet.Rows(1).RowHeight = 6
      
      rowsNum = rowsNum + 1
      
      sheet.Columns.ColumnWidth = 3
      
      sheet.Columns(1).ColumnWidth = 1
 
 
      sheet.Range(sheet.cells(rowsNum, 2),sheet.cells(rowsNum+3, 30)).Borders.LineStyle = 1
 
      sheet.Columns.Font.Size = 10
      sheet.Columns.Font.Name = "SimSun"
      sheet.Range(sheet.cells(rowsNum, 2),sheet.cells(rowsNum+3, 30)).Font.Size = 10.5
      
      sheet.Range(sheet.cells(rowsNum, 2),sheet.cells(rowsNum+3, 30)).HorizontalAlignment = -4108
 
      sheet.Range(sheet.cells(rowsNum, 2),sheet.cells(rowsNum+3, 2)).Borders(7).LineStyle = 3
      sheet.Range(sheet.cells(rowsNum, 2),sheet.cells(rowsNum+3, 2)).Borders(7).weight = 3
      sheet.Range(sheet.cells(rowsNum, 2),sheet.cells(rowsNum, 30)).Borders(8).LineStyle = 3
      sheet.Range(sheet.cells(rowsNum, 2),sheet.cells(rowsNum, 30)).Borders(8).weight = 3
      sheet.Range(sheet.cells(rowsNum, 30),sheet.cells(rowsNum+3, 30)).Borders(10).LineStyle = 3
      sheet.Range(sheet.cells(rowsNum, 30),sheet.cells(rowsNum+3, 30)).Borders(10).weight = 3
      sheet.Range(sheet.cells(rowsNum+3, 2),sheet.cells(rowsNum+3, 30)).Borders(9).LineStyle = 3
      sheet.Range(sheet.cells(rowsNum+3, 2),sheet.cells(rowsNum+3, 30)).Borders(9).weight = 3
 
      sheet.cells(rowsNum, 2) = "####公司"
      sheet.cells(rowsNum, 2).Interior.ColorIndex=35
      sheet.cells(rowsNum, 2).Font.Bold=true
      sheet.Range(sheet.cells(rowsNum, 2),sheet.cells(rowsNum+1, 8)).Merge
      sheet.cells(rowsNum, 9) = "系统名"
      sheet.cells(rowsNum, 9).Font.Bold=true
      sheet.Range(sheet.cells(rowsNum, 9),sheet.cells(rowsNum, 12)).Merge
      sheet.cells(rowsNum, 13) = "子系统名"
      sheet.cells(rowsNum, 13).Font.Bold=true
      sheet.Range(sheet.cells(rowsNum, 13),sheet.cells(rowsNum, 16)).Merge
      sheet.cells(rowsNum, 17) = "####项目-DB设计书"
      sheet.cells(rowsNum, 17).Font.Bold=true
      sheet.Range(sheet.cells(rowsNum, 17),sheet.cells(rowsNum+1, 30)).Merge
      
      rowsNum = rowsNum + 1
      
      sheet.cells(rowsNum, 9) = "####"
      sheet.Range(sheet.cells(rowsNum, 9),sheet.cells(rowsNum, 12)).Merge
      sheet.cells(rowsNum, 13) = "####平台"
      sheet.Range(sheet.cells(rowsNum, 13),sheet.cells(rowsNum, 16)).Merge
      
      rowsNum = rowsNum + 1
      
      sheet.cells(rowsNum, 2) = "版 数"
      sheet.cells(rowsNum, 2).Font.Bold=true
      sheet.Range(sheet.cells(rowsNum, 2),sheet.cells(rowsNum, 8)).Merge
      sheet.cells(rowsNum, 9) = "章 节"
      sheet.cells(rowsNum, 9).Font.Bold=true
      sheet.Range(sheet.cells(rowsNum, 9),sheet.cells(rowsNum, 16)).Merge
      sheet.cells(rowsNum, 17) = "改版日"
      sheet.cells(rowsNum, 17).Font.Bold=true
      sheet.Range(sheet.cells(rowsNum, 17),sheet.cells(rowsNum, 20)).Merge
      sheet.cells(rowsNum, 21) = "改版者"
      sheet.cells(rowsNum, 21).Font.Bold=true
      sheet.Range(sheet.cells(rowsNum, 21),sheet.cells(rowsNum, 23)).Merge
      sheet.cells(rowsNum, 24) = "作成日"
      sheet.cells(rowsNum, 24).Font.Bold=true
      sheet.Range(sheet.cells(rowsNum, 24),sheet.cells(rowsNum, 27)).Merge
      sheet.cells(rowsNum, 28) = "作成者"
      sheet.cells(rowsNum, 28).Font.Bold=true
      sheet.Range(sheet.cells(rowsNum, 28),sheet.cells(rowsNum, 30)).Merge
      
      rowsNum = rowsNum + 1
      sheet.cells(rowsNum, 2) = "V1.0"
      sheet.Range(sheet.cells(rowsNum, 2),sheet.cells(rowsNum, 8)).Merge
      sheet.cells(rowsNum, 9) = "目录"
      sheet.Range(sheet.cells(rowsNum, 9),sheet.cells(rowsNum, 16)).Merge
      sheet.cells(rowsNum, 17) = Format_Time(Now(),2)
      sheet.Range(sheet.cells(rowsNum, 17),sheet.cells(rowsNum, 20)).Merge
      sheet.cells(rowsNum, 21) = "####"
      sheet.Range(sheet.cells(rowsNum, 21),sheet.cells(rowsNum, 23)).Merge
      sheet.cells(rowsNum, 24) = Format_Time(Now(),2)
      sheet.Range(sheet.cells(rowsNum, 24),sheet.cells(rowsNum, 27)).Merge
      sheet.cells(rowsNum, 28) = "####"
      sheet.Range(sheet.cells(rowsNum, 28),sheet.cells(rowsNum, 30)).Merge
      rowsNum = rowsNum + 1
      fristDataRows = rowsNum + 1
      
      sheet.Rows(rowsNum).RowHeight = 6
      
      rowsNum = rowsNum + 4
      sheet.cells(rowsNum, 3) = "- 目录 -"
   
      rowsNum = rowsNum + 1
      
   ' For each table
   Dim tab
   Dim count
   count  = 0
   For Each tab In mdl.tables
     If IsObject(tab) Then
        rowsNum = rowsNum + 1
        count = count + 1
        sheet.cells(rowsNum, 3) = tab.code
        sheet.cells(rowsNum, 27) = count
        sheet.Range(sheet.cells(rowsNum, 3),sheet.cells(rowsNum, 27)).Borders(9).LineStyle = 3
        sheet.Range(sheet.cells(rowsNum, 3),sheet.cells(rowsNum, 27)).Borders(9).weight = 1
     End If
   Next
      sheet.Range(sheet.cells(fristDataRows, 2),sheet.cells(fristDataRows+60, 30)).Interior.ColorIndex=2
      
      sheet.Range(sheet.cells(fristDataRows, 2),sheet.cells(fristDataRows+60, 2)).Borders(7).LineStyle = 3
      sheet.Range(sheet.cells(fristDataRows, 2),sheet.cells(fristDataRows+60, 2)).Borders(7).weight = 3
      
      sheet.Range(sheet.cells(fristDataRows, 2),sheet.cells(fristDataRows, 30)).Borders(8).LineStyle = 3
      sheet.Range(sheet.cells(fristDataRows, 2),sheet.cells(fristDataRows, 30)).Borders(8).weight = 3
      
      sheet.Range(sheet.cells(fristDataRows, 30),sheet.cells(fristDataRows+60, 30)).Borders(10).LineStyle = 3
      sheet.Range(sheet.cells(fristDataRows, 30),sheet.cells(fristDataRows+60, 30)).Borders(10).weight = 3
      
      sheet.Range(sheet.cells(fristDataRows+60, 2),sheet.cells(fristDataRows+60, 30)).Borders(9).LineStyle = 3
      sheet.Range(sheet.cells(fristDataRows+60, 2),sheet.cells(fristDataRows+60, 30)).Borders(9).weight = 3
End Sub
 
 
'-----------------------------------------------------------------------------
' ShowFristSheet
'-----------------------------------------------------------------------------
Sub ShowFristSheet(sheet)
   ' Show tables of the current model/package
   Dim rowsNum
   dim fristDataRows
      rowsNum=1
   output "[line(131) info]: 目录程序 begin"
   
   
      sheet.Rows.RowHeight = 15
      
      sheet.Rows(1).RowHeight = 6
      
      rowsNum = rowsNum + 1
      
      sheet.Columns.ColumnWidth = 3
      
      sheet.Columns(1).ColumnWidth = 1
 
 
      sheet.Range(sheet.cells(rowsNum, 2),sheet.cells(rowsNum+3, 30)).Borders.LineStyle = 1
 
      sheet.Columns.Font.Size = 10
      sheet.Columns.Font.Name = "SimSun"
      sheet.Range(sheet.cells(rowsNum, 2),sheet.cells(rowsNum+3, 30)).Font.Size = 10.5
      
      sheet.Range(sheet.cells(rowsNum, 2),sheet.cells(rowsNum+3, 30)).HorizontalAlignment = -4108
 
      sheet.Range(sheet.cells(rowsNum, 2),sheet.cells(rowsNum+3, 2)).Borders(7).LineStyle = 3
      sheet.Range(sheet.cells(rowsNum, 2),sheet.cells(rowsNum+3, 2)).Borders(7).weight = 3
      sheet.Range(sheet.cells(rowsNum, 2),sheet.cells(rowsNum, 30)).Borders(8).LineStyle = 3
      sheet.Range(sheet.cells(rowsNum, 2),sheet.cells(rowsNum, 30)).Borders(8).weight = 3
      sheet.Range(sheet.cells(rowsNum, 30),sheet.cells(rowsNum+3, 30)).Borders(10).LineStyle = 3
      sheet.Range(sheet.cells(rowsNum, 30),sheet.cells(rowsNum+3, 30)).Borders(10).weight = 3
      sheet.Range(sheet.cells(rowsNum+3, 2),sheet.cells(rowsNum+3, 30)).Borders(9).LineStyle = 3
      sheet.Range(sheet.cells(rowsNum+3, 2),sheet.cells(rowsNum+3, 30)).Borders(9).weight = 3
 
      sheet.cells(rowsNum, 2) = "####公司"
      sheet.cells(rowsNum, 2).Interior.ColorIndex=35
      sheet.cells(rowsNum, 2).Font.Bold=true
      sheet.Range(sheet.cells(rowsNum, 2),sheet.cells(rowsNum+1, 8)).Merge
      sheet.cells(rowsNum, 9) = "系统名"
      sheet.cells(rowsNum, 9).Font.Bold=true
      sheet.Range(sheet.cells(rowsNum, 9),sheet.cells(rowsNum, 12)).Merge
      sheet.cells(rowsNum, 13) = "子系统名"
      sheet.cells(rowsNum, 13).Font.Bold=true
      sheet.Range(sheet.cells(rowsNum, 13),sheet.cells(rowsNum, 16)).Merge
      sheet.cells(rowsNum, 17) = "####项目-DB设计书"
      sheet.cells(rowsNum, 17).Font.Bold=true
      sheet.Range(sheet.cells(rowsNum, 17),sheet.cells(rowsNum+1, 30)).Merge
      
      rowsNum = rowsNum + 1
      
      sheet.cells(rowsNum, 9) = "####"
      sheet.Range(sheet.cells(rowsNum, 9),sheet.cells(rowsNum, 12)).Merge
      sheet.cells(rowsNum, 13) = "####平台"
      sheet.Range(sheet.cells(rowsNum, 13),sheet.cells(rowsNum, 16)).Merge
      
      rowsNum = rowsNum + 1
      
      sheet.cells(rowsNum, 2) = "版 数"
      sheet.cells(rowsNum, 2).Font.Bold=true
      sheet.Range(sheet.cells(rowsNum, 2),sheet.cells(rowsNum, 8)).Merge
      sheet.cells(rowsNum, 9) = "章 节"
      sheet.cells(rowsNum, 9).Font.Bold=true
      sheet.Range(sheet.cells(rowsNum, 9),sheet.cells(rowsNum, 16)).Merge
      sheet.cells(rowsNum, 17) = "改版日"
      sheet.cells(rowsNum, 17).Font.Bold=true
      sheet.Range(sheet.cells(rowsNum, 17),sheet.cells(rowsNum, 20)).Merge
      sheet.cells(rowsNum, 21) = "改版者"
      sheet.cells(rowsNum, 21).Font.Bold=true
      sheet.Range(sheet.cells(rowsNum, 21),sheet.cells(rowsNum, 23)).Merge
      sheet.cells(rowsNum, 24) = "作成日"
      sheet.cells(rowsNum, 24).Font.Bold=true
      sheet.Range(sheet.cells(rowsNum, 24),sheet.cells(rowsNum, 27)).Merge
      sheet.cells(rowsNum, 28) = "作成者"
      sheet.cells(rowsNum, 28).Font.Bold=true
      sheet.Range(sheet.cells(rowsNum, 28),sheet.cells(rowsNum, 30)).Merge
      
      rowsNum = rowsNum + 1
      sheet.cells(rowsNum, 2) = "V1.0"
      sheet.Range(sheet.cells(rowsNum, 2),sheet.cells(rowsNum, 8)).Merge
      sheet.cells(rowsNum, 9) = "封面"
      sheet.Range(sheet.cells(rowsNum, 9),sheet.cells(rowsNum, 16)).Merge
      sheet.cells(rowsNum, 17) = Format_Time(Now(),2)
      sheet.Range(sheet.cells(rowsNum, 17),sheet.cells(rowsNum, 20)).Merge
      sheet.cells(rowsNum, 21) = "####"
      sheet.Range(sheet.cells(rowsNum, 21),sheet.cells(rowsNum, 23)).Merge
      sheet.cells(rowsNum, 24) = Format_Time(Now(),2)
      sheet.Range(sheet.cells(rowsNum, 24),sheet.cells(rowsNum, 27)).Merge
      sheet.cells(rowsNum, 28) = "####"
      sheet.Range(sheet.cells(rowsNum, 28),sheet.cells(rowsNum, 30)).Merge
      rowsNum = rowsNum + 1
      fristDataRows = rowsNum + 1
      
      sheet.Rows(rowsNum).RowHeight = 6
      
      rowsNum = rowsNum + 23
      sheet.cells(rowsNum, 2) = "#### 项目"
      sheet.cells(rowsNum, 2).Font.Size = 28
      sheet.cells(rowsNum, 2).Font.Bold=true
      sheet.Range(sheet.cells(rowsNum, 2),sheet.cells(rowsNum+4, 30)).Merge
      sheet.cells(rowsNum, 2).HorizontalAlignment = -4108
      
   
      rowsNum = rowsNum + 8
      sheet.cells(rowsNum, 2) = "- DB设计书 -"
      sheet.cells(rowsNum, 2).Font.Size = 28
      sheet.cells(rowsNum, 2).Font.Bold=true
      sheet.Range(sheet.cells(rowsNum, 2),sheet.cells(rowsNum+4, 30)).Merge
      sheet.cells(rowsNum, 2).HorizontalAlignment = -4108
      
      rowsNum = rowsNum + 6
      sheet.cells(rowsNum, 2) = "Ver. 1.0"
      sheet.cells(rowsNum, 2).Font.Size = 28
      sheet.cells(rowsNum, 2).Font.Bold=true
      sheet.Range(sheet.cells(rowsNum, 2),sheet.cells(rowsNum+4, 30)).Merge
      sheet.cells(rowsNum, 2).HorizontalAlignment = -4108
   
      sheet.Range(sheet.cells(fristDataRows, 2),sheet.cells(fristDataRows+60, 30)).Interior.ColorIndex=2
      
      sheet.Range(sheet.cells(fristDataRows, 2),sheet.cells(fristDataRows+60, 2)).Borders(7).LineStyle = 3
      sheet.Range(sheet.cells(fristDataRows, 2),sheet.cells(fristDataRows+60, 2)).Borders(7).weight = 3
      
      sheet.Range(sheet.cells(fristDataRows, 2),sheet.cells(fristDataRows, 30)).Borders(8).LineStyle = 3
      sheet.Range(sheet.cells(fristDataRows, 2),sheet.cells(fristDataRows, 30)).Borders(8).weight = 3
      
      sheet.Range(sheet.cells(fristDataRows, 30),sheet.cells(fristDataRows+60, 30)).Borders(10).LineStyle = 3
      sheet.Range(sheet.cells(fristDataRows, 30),sheet.cells(fristDataRows+60, 30)).Borders(10).weight = 3
      
      sheet.Range(sheet.cells(fristDataRows+60, 2),sheet.cells(fristDataRows+60, 30)).Borders(9).LineStyle = 3
      sheet.Range(sheet.cells(fristDataRows+60, 2),sheet.cells(fristDataRows+60, 30)).Borders(9).weight = 3
End Sub
 
 
'-----------------------------------------------------------------------------
' ShowSecondSheet
'-----------------------------------------------------------------------------
Sub ShowSecondSheet(sheet)
   ' Show tables of the current model/package
   Dim rowsNum
   dim colNum
   dim fristDataRows
      rowsNum=1
      colNum = 1
   output "[line(131) info]: 目录程序 begin"
   
   
      sheet.Rows.RowHeight = 15
      
      sheet.Rows(1).RowHeight = 6
      
      rowsNum = rowsNum + 1
      
      sheet.Columns.ColumnWidth = 3
      
      sheet.Columns(1).ColumnWidth = 1
 
 
      sheet.Range(sheet.cells(rowsNum, 2),sheet.cells(rowsNum+3, 30)).Borders.LineStyle = 1
 
      sheet.Columns.Font.Size = 10
      sheet.Columns.Font.Name = "SimSun"
      sheet.Range(sheet.cells(rowsNum, 2),sheet.cells(rowsNum+3, 30)).Font.Size = 10.5
      
      sheet.Range(sheet.cells(rowsNum, 2),sheet.cells(rowsNum+3, 30)).HorizontalAlignment = -4108
 
      sheet.Range(sheet.cells(rowsNum, 2),sheet.cells(rowsNum+3, 2)).Borders(7).LineStyle = 3
      sheet.Range(sheet.cells(rowsNum, 2),sheet.cells(rowsNum+3, 2)).Borders(7).weight = 3
      sheet.Range(sheet.cells(rowsNum, 2),sheet.cells(rowsNum, 30)).Borders(8).LineStyle = 3
      sheet.Range(sheet.cells(rowsNum, 2),sheet.cells(rowsNum, 30)).Borders(8).weight = 3
      sheet.Range(sheet.cells(rowsNum, 30),sheet.cells(rowsNum+3, 30)).Borders(10).LineStyle = 3
      sheet.Range(sheet.cells(rowsNum, 30),sheet.cells(rowsNum+3, 30)).Borders(10).weight = 3
      sheet.Range(sheet.cells(rowsNum+3, 2),sheet.cells(rowsNum+3, 30)).Borders(9).LineStyle = 3
      sheet.Range(sheet.cells(rowsNum+3, 2),sheet.cells(rowsNum+3, 30)).Borders(9).weight = 3
 
      sheet.cells(rowsNum, 2) = "####公司"
      sheet.cells(rowsNum, 2).Interior.ColorIndex=35
      sheet.cells(rowsNum, 2).Font.Bold=true
      sheet.Range(sheet.cells(rowsNum, 2),sheet.cells(rowsNum+1, 8)).Merge
      sheet.cells(rowsNum, 9) = "系统名"
      sheet.cells(rowsNum, 9).Font.Bold=true
      sheet.Range(sheet.cells(rowsNum, 9),sheet.cells(rowsNum, 12)).Merge
      sheet.cells(rowsNum, 13) = "子系统名"
      sheet.cells(rowsNum, 13).Font.Bold=true
      sheet.Range(sheet.cells(rowsNum, 13),sheet.cells(rowsNum, 16)).Merge
      sheet.cells(rowsNum, 17) = "####项目-DB设计书"
      sheet.cells(rowsNum, 17).Font.Bold=true
      sheet.Range(sheet.cells(rowsNum, 17),sheet.cells(rowsNum+1, 30)).Merge
      
      rowsNum = rowsNum + 1
      
      sheet.cells(rowsNum, 9) = "####"
      sheet.Range(sheet.cells(rowsNum, 9),sheet.cells(rowsNum, 12)).Merge
      sheet.cells(rowsNum, 13) = "####平台"
      sheet.Range(sheet.cells(rowsNum, 13),sheet.cells(rowsNum, 16)).Merge
      
      rowsNum = rowsNum + 1
      
      sheet.cells(rowsNum, 2) = "版 数"
      sheet.cells(rowsNum, 2).Font.Bold=true
      sheet.Range(sheet.cells(rowsNum, 2),sheet.cells(rowsNum, 8)).Merge
      sheet.cells(rowsNum, 9) = "章 节"
      sheet.cells(rowsNum, 9).Font.Bold=true
      sheet.Range(sheet.cells(rowsNum, 9),sheet.cells(rowsNum, 16)).Merge
      sheet.cells(rowsNum, 17) = "改版日"
      sheet.cells(rowsNum, 17).Font.Bold=true
      sheet.Range(sheet.cells(rowsNum, 17),sheet.cells(rowsNum, 20)).Merge
      sheet.cells(rowsNum, 21) = "改版者"
      sheet.cells(rowsNum, 21).Font.Bold=true
      sheet.Range(sheet.cells(rowsNum, 21),sheet.cells(rowsNum, 23)).Merge
      sheet.cells(rowsNum, 24) = "作成日"
      sheet.cells(rowsNum, 24).Font.Bold=true
      sheet.Range(sheet.cells(rowsNum, 24),sheet.cells(rowsNum, 27)).Merge
      sheet.cells(rowsNum, 28) = "作成者"
      sheet.cells(rowsNum, 28).Font.Bold=true
      sheet.Range(sheet.cells(rowsNum, 28),sheet.cells(rowsNum, 30)).Merge
      
      rowsNum = rowsNum + 1
      sheet.cells(rowsNum, 2) = "V1.0"
      sheet.Range(sheet.cells(rowsNum, 2),sheet.cells(rowsNum, 8)).Merge
      sheet.cells(rowsNum, 9) = "改版履历"
      sheet.Range(sheet.cells(rowsNum, 9),sheet.cells(rowsNum, 16)).Merge
      sheet.cells(rowsNum, 17) = Format_Time(Now(),2)
      sheet.Range(sheet.cells(rowsNum, 17),sheet.cells(rowsNum, 20)).Merge
      sheet.cells(rowsNum, 21) = "####"
      sheet.Range(sheet.cells(rowsNum, 21),sheet.cells(rowsNum, 23)).Merge
      sheet.cells(rowsNum, 24) = Format_Time(Now(),2)
      sheet.Range(sheet.cells(rowsNum, 24),sheet.cells(rowsNum, 27)).Merge
      sheet.cells(rowsNum, 28) = "####"
      sheet.Range(sheet.cells(rowsNum, 28),sheet.cells(rowsNum, 30)).Merge
      rowsNum = rowsNum + 1
      fristDataRows = rowsNum + 1
      
      
      sheet.Range(sheet.cells(fristDataRows, 2),sheet.cells(fristDataRows+60, 30)).Interior.ColorIndex=2
      
      sheet.Range(sheet.cells(fristDataRows, 2),sheet.cells(fristDataRows+60, 2)).Borders(7).LineStyle = 3
      sheet.Range(sheet.cells(fristDataRows, 2),sheet.cells(fristDataRows+60, 2)).Borders(7).weight = 3
      
      sheet.Range(sheet.cells(fristDataRows, 2),sheet.cells(fristDataRows, 30)).Borders(8).LineStyle = 3
      sheet.Range(sheet.cells(fristDataRows, 2),sheet.cells(fristDataRows, 30)).Borders(8).weight = 3
      
      sheet.Range(sheet.cells(fristDataRows, 30),sheet.cells(fristDataRows+60, 30)).Borders(10).LineStyle = 3
      sheet.Range(sheet.cells(fristDataRows, 30),sheet.cells(fristDataRows+60, 30)).Borders(10).weight = 3
      
      sheet.Range(sheet.cells(fristDataRows+60, 2),sheet.cells(fristDataRows+60, 30)).Borders(9).LineStyle = 3
      sheet.Range(sheet.cells(fristDataRows+60, 2),sheet.cells(fristDataRows+60, 30)).Borders(9).weight = 3
      
      
      
      sheet.Rows(rowsNum).RowHeight = 6
      
      
      rowsNum = rowsNum + 4
      sheet.cells(rowsNum, colNum+2) = "'- 改版履历 -"
      rowsNum = rowsNum + 2
      sheet.cells(rowsNum, 3) = "项"
      sheet.Range(sheet.cells(rowsNum, 3),sheet.cells(rowsNum, 4)).Merge
      sheet.cells(rowsNum, 5) = "版数"
      sheet.Range(sheet.cells(rowsNum, 5),sheet.cells(rowsNum, 7)).Merge
      sheet.cells(rowsNum, 8) = "年月日"
      sheet.Range(sheet.cells(rowsNum, 8),sheet.cells(rowsNum, 11)).Merge
      sheet.cells(rowsNum, 12) = "作成者"
      sheet.Range(sheet.cells(rowsNum, 12),sheet.cells(rowsNum, 15)).Merge
      sheet.cells(rowsNum, 16) = "承认者"
      sheet.Range(sheet.cells(rowsNum, 16),sheet.cells(rowsNum, 18)).Merge
      sheet.cells(rowsNum, 19) = "内容"
      sheet.Range(sheet.cells(rowsNum, 19),sheet.cells(rowsNum, 28)).Merge
      sheet.Range(sheet.cells(rowsNum, 3),sheet.cells(rowsNum, 28)).Borders.LineStyle = 1
      sheet.Range(sheet.cells(rowsNum, 3),sheet.cells(rowsNum, 28)).Interior.ColorIndex=15
      sheet.Range(sheet.cells(rowsNum, 3),sheet.cells(rowsNum, 28)).HorizontalAlignment = -4108
      
      rowsNum = rowsNum + 1
      sheet.cells(rowsNum, 3) = "1"
      sheet.Range(sheet.cells(rowsNum, 3),sheet.cells(rowsNum, 4)).Merge
      sheet.cells(rowsNum, 5) = "第1.0版"
      sheet.Range(sheet.cells(rowsNum, 5),sheet.cells(rowsNum, 7)).Merge
      sheet.cells(rowsNum, 8) = Format_Time(Now(),2)
      sheet.Range(sheet.cells(rowsNum, 8),sheet.cells(rowsNum, 11)).Merge
      sheet.cells(rowsNum, 12) = "####"
      sheet.Range(sheet.cells(rowsNum, 12),sheet.cells(rowsNum, 15)).Merge
      sheet.cells(rowsNum, 16) = "####"
      sheet.Range(sheet.cells(rowsNum, 16),sheet.cells(rowsNum, 18)).Merge
      sheet.cells(rowsNum, 19) = ""
      sheet.Range(sheet.cells(rowsNum, 19),sheet.cells(rowsNum, 28)).Merge
      sheet.Range(sheet.cells(rowsNum, 3),sheet.cells(rowsNum, 28)).Borders.LineStyle = 1
      sheet.Range(sheet.cells(rowsNum, 3),sheet.cells(rowsNum, 28)).Interior.ColorIndex=2
 
   
End Sub

 运行

弹出execl文档，自行保存即可。格式可以根据需求去调整vbs代码。也可以保存后自行编辑execl。

  


                

        

        

    




    

      

        

            

              
                
                  菲斯Face
                
              
            

            

                关注
              
            

        

        

          
    
            
  • 
              
                
                
                
                
                      0
                
              
              
    点赞
    
            
    • 
            
  • 
              
                
                
                
              
              
    踩
    
            
    • 
            
  • 
              
                
                
                
                
                    0
                
              
              
    
                
    
                  
                    收藏
                  
                
    
              
    
              
    
                
    
                  觉得还不错?
                  
                    一键收藏
                  
                 
                
    
              
    
            
    • 
                
  • 
                  
                    打赏
                    
                  
                  
    打赏
    
                
    • 
          
  • 
            
    
              
              
            
    
              
              
              
                    0
              
            
            
    评论
    
          
    • 
          
  • 
          
    • 
          
  • 
            
              
            
              
    
            
              
                
            
    
          
    • 
        

      

      










                



	

		

			

				
					
使用powerdesigner 生成数据库设计文档

				
			

			

				

					04-24
				

			

		

		

			
				
总的来说，PowerDesigner是一款强大的数据库设计工具，它的反向工程和文档生成功能极大地提高了工作效率，减少了人为错误。通过熟练掌握这些步骤，可以轻松地管理和维护数据库设计文档，为团队协作和项目维护提供...

			
		

	



                

              
                



	

		

			

				
					
powerDesigner 反向生成数据库所需驱动

				
			

			

				

					08-30
				

			

		

		

			
				
在本场景中，"powerDesigner 反向生成数据库所需驱动"主要涉及如何使用PowerDesigner连接到MySQL数据库，进行反向工程操作。  首先，我们需要理解PowerDesigner如何与MySQL数据库交互。PowerDesigner支持多种数据库...

			
		

	



                


  
              

                


	

		

			

				
					
db逆向

				
			

			

				

					weixin_33785972的博客
				

				

					04-03
					
					106
					
				

			

		

		

			
				
为什么80%的码农都做不了架构师？>>> 
                                        
                ...

			
		

	





	

		

			

				
					
PC微信逆向：两种姿势教你解密数据库文件

				
			

			

				

					翻肚鱼儿的博客
				

				

					11-03
					
					9111
					
				

			

		

		

			
				
文章目录

定位数据库文件密码
	定位数据库密钥的思路
		获取数据库密钥的实战分析
		CreateFileW断点
			常见错误
			排查堆栈
			排查堆栈地址
			
			单步跟踪
		
		用代码实现解密数据库
		编译选项
			解密代码
			实际效果
		
		动态获取数据库密钥
	
	定位数据库文件句柄
	关于微信数据库句...

			
		

	



		

			
		



	

		

			

				
					
利用PowerDesigner逆向生成数据库设计文档（Excel）

				
			

			

				

					jianghaijun552683的博客
				

				

					03-04
					
					665
					
				

			

		

		

			
				
首先PowerDesigner->File->Reverse Engineer->Database

选择相应的数据库类型，比如MySQL 5.0
选择数据库连接或者新建一个数据库连接

选择目标数据表，然后一直OK
接下来就是等待，生成完成。

以上准备工作完成后，接下来就是执行脚本的事情了
选中Tables,然后Tools->Execute Commands->E...

			
		

	





	

		

			

				
					
PowerDesigner实现文档生成

				
			

			

				

					求知若渴，虚心若愚。
				

				

					11-03
					
					1111
					
				

			

		

		

			
				
PowerDesigner

			
		

	





	

		

			

				
					
powerdesigner导出mysql脚本,PowerDesigner导出SQL的方法

				
			

			

				

					weixin_29668721的博客
				

				

					03-25
					
					2712
					
				

			

		

		

			
				
PowerDesigner是一款非常实用的数据库管理软件，它可以从物理和概念两个层面设计数据库，方便用户制作处清晰直观的数据流程图和结构模型；而且PowerDesigner还可以和NET、Eclipse等主流平台进行关联，从而优化整个项目的设计方案，达到大大缩短开发时间的效果。下面和小编一起来学习一下PowerDesigner导出SQL的方法教程，希望大家会喜欢。PowerDesigner导出SQ...

			
		

	





	

		

			

				
					
使用PowerDesigner生成数据库说明文档.docx

				
			

			

				

					01-10
				

			

		

		

			
				
PowerDesigner是一个功能强大的数据库设计工具，能够快速生成数据库说明文档。本文将分三个部分介绍：配置数据库的ODBC数据源、使用PowerDesigner生成pdm文件、使用PDMReader生成说明文档。  配置数据库的ODBC数据源...

			
		

	





	

		

			

				
					
PowerDesigner 反向生成

				
			

			

				

					08-06
				

			

		

		

			
				
综上所述，PowerDesigner的反向生成功能是数据库管理和设计不可或缺的一部分，它能有效提高工作效率，保证设计的准确性和一致性。通过使用像`fxs.rtb`和`fxs.rtp`这样的文件，用户可以方便地存储、共享和重复利用...

			
		

	





	

		

			

				
					
PowerDesigner反向生成ER图

				
			

			

				

					09-14
				

			

		

		

			
				
PowerDesigner反向生成ER图

			
		

	





	

		

			

				
					
db 设计db 设计

				
			

			

				

					07-22
				

			

		

		

			
				
db 设计文档，包含sql

			
		

	





	

		

			

				
					
PowerDesigner逆向生成MYSQL数据库表结构总结.docx

				
			

			

				

					05-28
				

			

		

		

			
				
PowerDesigner逆向生成MYSQL数据库表结构总结，详细图解
PowerDesigner逆向生成MYSQL数据库表结构总结，详细图解

			
		

	





	

		

			

				
					
PowerDesigner逆向工程

				
			

			

				

					03-31
				

			

		

		

			
				
NULL
博文链接：https://marsvaadin.iteye.com/blog/1342470

			
		

	





	

		

			

				
					
powerdesigner反向工程正向工程及生成文档步骤

				
			

			

				

					10-20
				

			

		

		

			
				
powerdesigner反向工程正向工程及生成文档步骤

			
		

	





	

		

			

				
					
db系统设计规范

				
			

			

				

					qq_39656648的博客
				

				

					12-03
					
					2246
					
				

			

		

		

			
				
前言

欲先设计一个系统，必先了解其组成。db系统的组成结构有且只有两种：实体、关系。因而，db系统的设计，实际上就是对实体及其之间的关系的设计。



正文

    下面，我们从一个简化的学校教务系统展开，说明db系统设计的过程。

第一步：分析实体与关系，建立数据表

    教务系统的实体有：老师、学生、课程、班级。关系有：老师-课程，课程-学生，课程-班级，班级-学生。所以一共需要建立 4（实体）+ 4（关系）=8张数据表。每个表的字段这里不作说明，因为那是属于数据...

			
		

	





	

		

			

				
					
TiDB 官方设计文档翻译（一）

				
			

			

				

					橙子wj的博客
				

				

					03-05
					
					1万+
					
				

			

		

		

			
				
TiDB是新兴的NEWSQL数据库，由国内的PINGCAP团队研发。 
有关于TiDB的架构、部署和运维，官方有中文的文档，链接是： 
https://github.com/pingcap/docs-cn官方还有另外一份文档，讲的是TiDB和TiKV的设计思想和技术细节，个人很喜欢，但是用英文写的。这里提供该文档的翻译。 
官方英文设计思想的文档链接: 
https://pingcap.github

			
		

	





	

		

			

				
					
MongoDB 进阶模式设计

				
			

			

				

					
				

				

					12-23
					
					1716
					
				

			

		

		

			
				
http://www.mongoing.com/mongodb-advanced-pattern-design


今天的话题是进阶模式，所以我假设在坐各位至少是已经对MongoDB有了一些基本的了解。 不过每次总有一些同学以为这里有水果吃才坐进来的，所以在这里我简单介绍一下：MongoDB 不是芒果(mango)，它在拉丁文中的原意是巨大的意思。如果用一句话来概括的话，mongo是一个高可

			
		

	





	

		

			

				
					
数据库设计说明书

					
热门推荐

				
			

			

				

					
				

				

					12-05
					
					2万+
					
				

			

		

		

			
				
数据库设计说明书


1引言


1.1编写目的
     数据库的设计是为了以后编码、测试以及维护阶段的后台数据的存储做准备。应用于系统开发前期，为后期数据库设计指引方向。
     预期的读者：系统开发人员、系统测试人员和系统维护人员
1.2背景
    开发项目的名称：机房收费系统
    数据库的名称：charge
    数据库系统：SQL SERVER 2008

			
		

	





	

		

			

				
					
使用powerdesigner导出设计文档

				
			

			

				

					木子叶的奔跑
				

				

					12-24
					
					1241
					
				

			

		

		

			
				
       在数据库设计过程中，powerdesigner可以用于设计数据库的物理视图，甚至直接通过设计文档生成对应数据库的表结构。同样，它也可以用于从已经存在的数据库中，动态生成对应的表关系结构，方便动态更新数据设计。对于非专业人士，PDM图不方便查阅和理解，那么，如何将PDM图转化为他们能够理解的文档呢？这里介绍一种使用p...

			
		

	





	

		

			

				
					
英文版 powerdesigner反向生成er图

					
最新发布

				
			

			

				

					11-24
				

			

		

		

			
				
以下是使用英文版PowerDesigner反向生成ER图的步骤： 1. 打开PowerDesigner并创建一个新的模型。 2. 选择“Database”模型类型并选择您要使用的数据库类型。 3. 在“Database”模型中，选择“File”>“Reverse ...

			
		

	



              



  
“相关推荐”对你有帮助么？

  

      
    
          
  • 
              
    
                  
                  
              
    
              
    非常没帮助
    
          
    • 
          
  • 
              
    
                  
                  
              
    
              
    没帮助
    
          
    • 
          
  • 
              
    
                  
                  
              
    
              
    一般
    
          
    • 
          
  • 
              
    
                  
                  
              
    
              
    有帮助
    
          
    • 
          
  • 
              
    
                  
                  
              
    
              
    非常有帮助
    
          
    • 
      

      

      

          
          提交
      

      

  




          




        



    





    



      

      

        
      

      





	

		评论	
	

	
	




  

    

      添加红包
      
    

    

      

        
        

          
          
        

        
请填写红包祝福语或标题

      

      

        
        

          
          个
        

        
红包个数最小为10个

      

      

        
        

          
          元
        

        
红包金额最低5元

      

      

        
        

          当前余额3.43元
          前往充值 >
        

      

      

        

          需支付：10.00元
        

        
        
      

    

  





  

    
    
  

  

    
    
  








  

    

      

        

          

            
            
成就一亿技术人!

          

          

        

        

          

          

            领取后你会自动成为博主和红包主的粉丝
            规则
          

        

      

      

        

          

            
              
            
            

              
hope_wisdom
 发出的红包
            

          

        

        

          

          

          

        

      

    

    

  





	
打赏作者

	

		

		
			
		
		

		

			
菲斯Face

			
你的鼓励将是我创作的最大动力

		

	

	

			

	

	

    ¥1
    ¥2
    ¥4
    ¥6
    ¥10
    ¥20
	

	

		

			

				

					扫码支付：¥1
				

				

					

					
					获取中
					

				

				

					
					
					扫码支付
				

			

		

		

			
您的余额不足，请更换扫码支付或充值

			
打赏作者

		

	



      
      

      
实付元

      
使用余额支付

      

        

          

            
            点击重新获取
          

        

        
扫码支付

      

      

        
          
            
          
          
        
      

      

        
        钱包余额
          0
          

            
            

              

                
抵扣说明：

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

              

            

          

      

      余额充值