Integer GUID和Comb做主键的效率测试(Delphi+access)(二)--打印文章

Integer GUID和Comb做主键的效率测试(Delphi+access)(二)

作者：武汉SEO闵涛文章来源：敏韬网点击数4089 更新时间：2009/4/23 18:25:46 文章录入：mintao 责任编辑：mintao

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.

很简单的代码,无需加说明了.