摘要: function TServerMethods1.ExecuteSql(const sql: String): Boolean;var d: TfrmDB;begin d := DBPool.Lock; if Assigned(d) then begin try try ... 阅读全文
posted @ 2014-10-25 18:14 delphi中间件 阅读(1848) 评论(1) 推荐(0) 编辑