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

程式目的:

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

程式碼:

function NStringQuery(vcn,vSQL:string):string;//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:=''//若為null-->轉為空字串
  else
    result:=vQuery.Fields[0].AsString;
  vQuery.Close;
  FreeAndNil(vQuery);//關閉動態產生TADOQuery
end;