//{公用函數單元（完成服務器的具體的功能）
unit frm_Public_Func;

interface
uses
    Windows, Messages, SysUtils, Variants, Classes,  Controls, Forms,
    ExtCtrls,  StdCtrls,db,ComCtrls,adodb;
function queryrecord (queryname:TADOQuery;sql:string):boolean; //查詢 true 為有記錄，false為沒有記錄;
implementation
function queryrecord(queryname:TADOQuery;sql:string):boolean; //查詢 true 為有記錄，false為沒有記錄;
begin
    queryname.Close;
    queryname.SQL.Clear;
    queryname.SQL.Text:=trim(sql);
    queryname.Open;
    if queryname.RecordCount<=0 then
    begin
        result:=false;
    end
    else
    begin
        result:=true;
    end;
end;

end.