如你有如下查询你想测试它的速度，在delphi中可如下：
var
iTimeLong: Cardinal ;
begin
iTimeLong:=GetTickCount;
if Query.Active then
Query.Close;
Query.SQL.Clear;
Query.SQL.Add('select * from tablename');
Query.SQL.Open;
iTimeLong:=GetTickCount-iTimeLong;
ShowMessage('查询所用时间是'+IntToStr(iTimeLong div 1000)+'秒！');
end;
