关于ado多线程的问题，请大家帮忙看看

[entironment]

unit Main;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, DB, ADODB,ActiveX;

type
TForm1 = class(TForm)
Button1: TButton;
ADOQuery1: TADOQuery;
Edit1: TEdit;
Lab: TLabel;
Button3: TButton;
procedure Button1Click(Sender: TObject);
procedure FormDestroy(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
type
TTestThread = class(TThread)
private
a,count:integer;
betweentime :TDateTime;
procedure GiveCountnum;
protected
procedure Execute; override;
public
constructor Create(b:integer); virtual;
end;


var
Form1: TForm1;
myado:array of TADOQuery;
testThread : array of TTestThread ;
myLab:array of TLabel;
between:Tdatetime;
countnum:integer;
implementation

{$R *.dfm}
constructor TTestThread.Create(b: integer);
begin
a:=b;
inherited Create(false);
FreeOnTerminate := False;
end;

procedure TTestThread.GiveCountnum;
begin
countnum:=count;
between:=betweentime;
end;


procedure TTestThread.Execute;
var
begintime,endtime:TDateTime;
begin
//coinitialize(nil);
begintime:=time;
myado[a].Open; //执行到这里为什么开始循环了，不继续向下执行。
count:=myado[a].Fields[0].AsInteger;
endtime:=time;
betweentime:=endtime-begintime;
Synchronize(GiveCountnum);
//couninitialize;
//FreeOnTerminate := false;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
i,j:integer;
begin
setlength(myado,strtoint(edit1.Text));
setlength(testThread,strtoint(edit1.Text));
setlength(mylab,strtoint(edit1.Text));
for i:=0 to strtoint(edit1.Text)-1 do
begin
myado[i]:=TADOQuery.Create(self);
myado[i].ConnectionString:='Provider=SQLOLEDB.1;Password=jycc;Persist Security Info=True;User ID=sa;Initial Catalog=gome-new';
myado[i].Close;
myado[i].SQL.Clear;
myado[i].SQL.Add('select count(*) from usr_zxthh');

myLab[i]:=TLabel.Create(self);
myLab[i].Parent:=self;
myLab[i].Left:=i*200;
myLab[i].Top:=50;

end;
for j:=0 to strtoint(edit1.Text)-1 do
begin
testThread[j] := TTestThread.Create(j);
//if testThread[i].Suspended then testThread[i].Resume else testThread[i].Suspend;
myLab[j].Caption:='线程'+inttostr(j+1)+'执行时间：'+TimetoStr(between)+'结果：'+inttostr(countnum);
end;

end;

procedure TForm1.FormDestroy(Sender: TObject);
var
k:integer;
begin
for k:=0 to strtoint(edit1.Text)-1 do
begin
testThread[k].Terminate;
testThread[k].Destroy;
end;
end;

end.

为什么执行到线程的execute方法中，开始循环了。

[entironment]

procedure TTestThread.GiveCountnum;
begin
begintime:=time;
myado[a].Open;
count:=myado[a].Fields[0].AsInteger;
endtime:=time;
betweentime:=endtime-begintime;
countnum:=count;
between:=betweentime;
end;

procedure TTestThread.Execute;
begin
Synchronize(GiveCountnum);
end;

to：chenzhuo(灼) 是这样的吗，还是不行啊，谢谢！

[universe]

当然要开始循环了，如果和单线程一样一步一步走，还要多线程干什么

做多线程不是一件容易的事情，要充分考虑到线程中的同步问题

否则很容易出现多线程同时访问一个。。。的问题，出现异常

[entironment]

楼上的大哥，说的是，小弟初学多线程，还请指点如何同步。这个程序该怎么改。

[entironment]

没人帮帮忙吗？自己顶！谢谢各位了

[chenzhuo]

ADO没有线程安全,把Execute里的代码放在一个过程里,用
Synchronize()去执行!

[entironment]

在顶，周末那位高手抽出点时间给看看啊

[chenzhuo]

我靠,马甲!

[net3]

[e-mail]
交流。