ADO做的类SQL查询分析器.rar_ADO_headedwn9_sql

做这个东东, 原属偶然. 只是因为需要在客户那里维护一些数据, 但是人家的电脑不见得都安装了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