DELPHI select 回傳結果所用的時間
咋寫了 毫秒為單位
uj5u.com熱心網友回復：
var SQL,S1,S2:string;
D1,D2:TDateTime;
N:double;
begin
D1:=Now;
SQL:='select .....;
DataModule1.ClientDataSet9.Active:=False;
DataModule1.ClientDataSet9.DataRequest(SQL);
DataModule1.ClientDataSet9.Active:=True;
...... // 讀入DBGrid
D2:=Now;
DateTimetoString(S1,'ss.zzz',D1);
DateTimetoString(S2,'ss.zzz',D2);
N:=StrToFloat(S2)-StrToFloat(S1);
ShowMessage(' 耗時：'+FloatToStr(N)+'秒 ');
uj5u.com熱心網友回復：
上述代碼僅在三層中運用，僅供參考。加入自己的相關代碼，修改SQL陳述句，加入連接到DBGrid的代碼。uj5u.com熱心網友回復：
var
start_t， end_t ， cost_t : integer;
begin
start_t := Trunc(GetTickCount());
/// 開始 select 查詢等操作
end_t := Trunc(GetTickCount());
cost_t := EndTime - StartTime ;
end;
轉載請註明出處，本文鏈接：https://www.uj5u.com/houduan/94485.html
標籤：數據庫相關
上一篇：jpg圖片防篡改演算法