收到Sybase公司PowerDesigner產品的律師函后，只能改進一下思路了

   以前一直做各種各樣數據庫的信息化開發工作，有SQL Server 有Oracle 有DB2 有Mysql；所以一直就想着寫一套代碼邏輯后各種數據庫上都能正常運行，雖然這個想法比較難100%實現，但是經過這些年的摸索算是得到了很多寶貴經驗，並一直用PowerDesigner設計表結構后用配套的代碼生成器生成代碼。

   當然我們也想購買正版的 PowerDesigner 但是實在太貴了，有些買不起；最近正好收到了Sybase公司的律師函了，若再用就會吃官司了，那麻煩事情就大了；只能把所有跟Sybase公司相關的東西能卸載的全卸載了，只能忍痛割愛了；因為法律不是開玩笑的，若真在用那打了官司就必輸了，直接全部卸載干凈多一事情不如少一事情了。

   最近幾年總是遇到各種數據庫的情況也變得少了一些，經常用SQL Server的狀態了，那代碼生成器干脆直接從SQL Server生成就好了，省心省事了；也不搞那么大的野心什么數據庫就生成了。

   第一步：選哪個數據庫上生成代碼？

  

  每個表都可以寫好說明，這樣生成代碼時可以把說明帶上。

  

  下面語句是獲取所有表的的名字及說明的方法

  下面語句是獲取表的所有列的信息的方法。

同時給有需要的附加上整理好的sql語句，希望能派上一些參考意義：

SELECT A.name AS TableName
                                         ,B.value AS Description
                                        FROM (SELECT name, id 
                                                FROM SysObjects 
                                              WHERE xType='U' AND category = 0) AS A LEFT OUTER JOIN
                                                  (SELECT major_id, value 
                                                     FROM sys.extended_properties 
                                                    WHERE name='MS_Description' 
                                                          AND minor_id = 0) AS B  ON A.id = B.major_id
                                        ORDER BY A.name

SELECT 表名  = CASE a.colorder WHEN 1 THEN c.name ELSE '' END, 
                                       序    = a.colorder, 
                                       字段名= a.name, 
                                       標識  = CASE COLUMNPROPERTY(a.id,a.name,'IsIdentity') WHEN 1 THEN '√' ELSE '' END, 
                                       主鍵  = CASE 
                                  WHEN EXISTS ( SELECT * FROM sysobjects WHERE xtype='PK' 
                                AND name IN (SELECT [name] FROM sysindexes   WHERE id=a.id 
                                AND indid IN (SELECT indid FROM sysindexkeys WHERE id=a.id 
                                AND colid IN (SELECT colid FROM syscolumns   WHERE id=a.id 
                                AND name=a.name)))) THEN '√' ELSE '' END, 
                                     類型= b.name, 
                                     字節數= a.length, 
                                     長度  = COLUMNPROPERTY(a.id,a.name,'Precision'), 
                                     小數  = CASE ISNULL(COLUMNPROPERTY(a.id,a.name,'Scale'),0) WHEN 0 THEN '' ELSE CAST(COLUMNPROPERTY(a.id,a.name,'Scale') AS VARCHAR) END, 
                                     允許空= CASE a.isnullable WHEN 1 THEN '√' ELSE '' END, 
                                     默認值= ISNULL(d.[text],''), 
                                     說明  = ISNULL(e.[value],'') 
                                 FROM syscolumns a 
                                LEFT JOIN systypes b ON a.xtype=b.xusertype 
                                INNER JOIN sysobjects c ON a.id=c.id AND c.xtype='U' AND c.name<>'dtproperties' 
                                LEFT JOIN syscomments d ON a.cdefault=d.id 
                                LEFT JOIN sys.extended_properties e ON a.id = e.major_id AND a.colid=e.minor_id AND e.name='MS_Description'
                                WHERE c.name = '" + tableName + @"'
                                ORDER BY c.name, a.colorder"