以下内容为程序代码:

1 runmode:1;
2
3 starttime:=timetot0(currenttime);
4
5 for i=1 to 5000 do begin
6     extgbdataset(numtostr(i,0),i);
7 end
8
9 endtime:=timetot0(currenttime);
10
11 msgout(1,\'extgbdata write time : \'+numtostr(endtime-starttime,0));
12

以下内容为程序代码:

1 runmode:1;
2
3 starttime:=timetot0(currenttime);
4
5 for i=1 to 5000 do begin
6     debugfile(\'c:\\extgbdata.txt\',numtostr(extgbdata(numtostr(i,0)),0),0);
7 end
8
9 endtime:=timetot0(currenttime);
10
11 msgout(1,\'extgbdata write time : \'+numtostr(endtime-starttime,0));

以下内容为程序代码:

1 runmode:1;
2
3 starttime:=timetot0(currenttime);
4
5 database(\'provider=microsoft.jet.oledb.4.0;data source=test.mdb\');
6
7 for i=1 to 5000 do begin
8     sql:=\'insert into test(key1,value1) values("\'+numtostr(i,0)+\'",\'+numtostr(i,0)+\')\';    
9     dbexecute(sql);
10 end
11
12 endtime:=timetot0(currenttime);
13
14 msgout(1,\'database write time : \'+numtostr(endtime-starttime,0));
15

以下内容为程序代码:

1 runmode:0;
2
3 starttime:=timetot0(currenttime);
4
5 database(\'provider=microsoft.jet.oledb.4.0;data source=test.mdb\');
6
7 for i=1 to 5000 do begin
8     sql:=\'select * from test where key1=\'+numtostr(i,0);    
9     msgout(1,sql);
10     dbtable2(sql);
11     value:=dbvalue(\'value1\');    
12     debugfile(\'c:\\database.log\',numtostr(value,0),0);
13 end
14
15 endtime:=timetot0(currenttime);
16
17 msgout(1,\'database write time : \'+numtostr(endtime-starttime,0));
18