做這個東東, 原屬偶然. 只是因為需要在客戶那里維護一些數據, 但是人家的電腦不見得都安裝了SQL Server客戶端, 每次帶光盤去給人家裝程序也不好意思. 于是就寫這個東東.

開始時, 也是很簡單的, 只用了TADODataSet + TDBGrid來做. 代碼也很穩定, 功能也夠用了, 但是有些有些細微之處, 比如PRINT語句打出的來消息, 卻獲取不了. 后來拋棄了TADODataSet, 直接使用ADOInt.pas中的接口, 并且重新做一個簡單的網格控件, 這才看起來像一回事.

寫這東東也就是玩玩, 沒花太多精力, 只是隨興而寫, 代碼不夠藝術, 結構也松散, 如果代碼看不懂, 只好見諒了. 程序中用到的圖標, 動畫都是從微軟的SQLServer搞過來的, 罪過罪過.  我很少把一個程序堅持寫到最后. 編寫的過程出現的一些問題, 讓我一直想改用OLE DB或ODBC來重做, 不過業余時間有限, 只好做罷了, 希望有興趣的人繼續. ^_^!

唯一值得一提的是, 我用了ADO Binding for VC++ Extension(MSDN上有詳細資料), 速度比用Variant快(在ADOBinding.pas和RowData.pas)

目前仍存在的一些問題:
   Recordset.NextRecordset 返回的記錄影響數目不太準確. 懷疑是ADO本身的BUG
   Connection出現連接問題時, State屬性仍然是adStateOpen, 好像判斷連接問題沒有正式的文檔說明.
   對于消息性錯誤, ADO沒什么好辦法來判斷. 
   SQL調試, 實在不會搞....

只在Delphi7編譯, XP Pro SP2, ADO 2.8下運行測試過, 其它的平臺沒試過, 反正我的客戶也都是XP的, 不想再花時間了.

謹以此作, 紀念那些辛苦維護垃圾代碼的同志們!

penal
2007.05.19