摘要：
// Writen by 咏南工作室(陈新光) 2009-6-26 14:31:26{ for example:var q: TADOQuery;begin Result := nil; q := g_adoquerypool.GetAdoQuery; if q <> nil then begin q.Close; q.SQL.Clear; q.SQL.Text := sqlCommand; q.Open; Result := q; g_adoquerypool.returnAdoQuery(q); end;}unit AdoQueryPool;{$HINTS OFF}{$WARN 阅读全文
摘要：
// Writen by 咏南工作室(陈新光) 2009-6-26 11:58:17// 数据库连接池类// 使用ADO引擎，支持access, sqlServer, oracle三种数据库// 连接对象.tag = 正数 表示此连接对象处于非使用状态，否则反之// 所有时间单位均为秒unit UDataConnPool;{$HINTS OFF}{$WARNINGS OFF}interface uses SysUtils, Classes, DB, ADODB, Contnrs, Windows, ExtCtrls;// 常量定义const c_sql = 'sqloledb' 阅读全文