Delphi必備好用函數--數字查詢

程式目的:

使用時僅需一行程式碼即可進行查詢，若為null-->傳回0以利後續處理。

程式碼:

function NZeroQuery(vcn,vSQL:string):variant;//vcn指定連結不同資料庫,vSQL:SQL語法
var vQuery:TADOQuery;//動態產生之TADOQuery
begin
  vQuery:=TADOQuery.Create(mainform);//動態產生TADOQuery
  vQuery.EnableBCD:=False;
  if vcn='cnSYS' then vQuery.Connection:=mainform.cnSYS//依傳入之參數選擇連結設定於mainform之資料庫
  else if vcn='cnGroup' then vQuery.Connection:=mainform.cnGroup
  else if vcn='cnHR' then vQuery.Connection:=mainform.cnHr;
  vQuery.Close;
  vQuery.SQL.Text:=vSQL;//傳入SQL語法
  vQuery.Open;
  vQuery.First;
  if (vQuery.Eof)or(vQuery.Fields[0].Value=null) then
    result:=0//若為null-->轉為0
  else
    result:=vQuery.Fields[0].Value;
  vQuery.Close;
  FreeAndNil(vQuery);//關閉動態產生TADOQuery
end;