|
elect count(*) as ttc from Tcomb2'''';ADOCommand1.Execute; TotalTime := GetTickCount - TotalTime; Label9.Caption := inttostr(TotalTime); end; procedure TForm1.Button3Click(Sender: TObject); var TotalTime : Cardinal; begin TotalTime := GetTickCount; ADOCommand1.CommandText :=''''select count(PInt) as ttc from TInteger''''; ADOCommand1.Execute; TotalTime := GetTickCount - TotalTime; Label3.Caption := inttostr(TotalTime); TotalTime := GetTickCount; ADOCommand1.CommandText :=''''select count(PGuid) as ttc from TGuid''''; ADOCommand1.Execute; TotalTime := GetTickCount - TotalTime; Label5.Caption := inttostr(TotalTime); TotalTime := GetTickCount; ADOCommand1.CommandText :=''''select count(PComb) as ttc from Tcomb''''; ADOCommand1.Execute; TotalTime := GetTickCount - TotalTime; Label7.Caption := inttostr(TotalTime); TotalTime := GetTickCount; ADOCommand1.CommandText :=''''select count(PComb) as ttc from Tcomb2''''; ADOCommand1.Execute; TotalTime := GetTickCount - TotalTime; Label9.Caption := inttostr(TotalTime); end; end. 很简单的代码,无需加说明了.
上一页 [1] [2] [3] [4]
[VB.NET程序]Read a byte, integer or long from memory [VB.NET程序]源代码推荐：vb的GUID生成算法
[Delphi程序]在Delphi中通过函数获取GUID [Delphi程序]Integer GUID和Comb做主键的效率测试(Delphi+acce…
[Delphi程序]Integer GUID和Comb做主键的效率测试(Delphi+acce…
| 
注：本站部分文章源于互联网，版权归原作者所有！如有侵权，请原作者与本站联系，本站将立即删除！ 本站文章除特别注明外均可转载，但需注明出处！ [MinTao学以致用网] 
