procedure TQueryThread.Execute;
begin
synchronize(DoQuery);
end;
procedure TQueryThread.doQuery();
begin
with SP do
begin
close;
ProcedureName:=PN;
Parameters.Refresh;
Parameters[1].Value:=Datetostr(Start_Date);
Parameters[2].Value:=DateToStr(End_date);
Prepared:=true;
open;
end;
end;
procedure TQueryThread.Execute;
begin
synchronize(DoQuery);
end;
procedure TQueryThread.doQuery();
begin
with SP do
begin
close;
ProcedureName:=PN;
Parameters.Refresh;
Parameters[1].Value:=Datetostr(Start_Date);
Parameters[2].Value:=DateToStr(End_date);
Prepared:=true;
open;
end;
end;