Developing.ru

Всем добрый день!
Помогите, не могу связать dataset и progressbar между собой. не знаю куда ставить inc() и где взять max. Вот примерный код:

procedure TfmMain.sbShowmayqClick(Sender: TObject);
begin
with dm do
begin
qSubGR.close;
qSubGR.sql[3]:='where t.n_gr='''+qGR.fieldbyname('n_gr'). AsString+'''';
qSubGR.sql[39]:='substring(r.n_mat,1,2)='''+qGR.f ieldbyname('n_g r').AsString+'''';
qSubGR.active:=true;
end;
end;

ЗЫ delphi 5, бд absolute database

&quot писал(а):связать dataset и progressbar между собой

а что должен показывать прогрессор?

естественно я не хочу чтоб он мне показал сальто, свою функцию то есть при загрузке данных с БД отображать ход загрузки.

процесс фетча на клиента? неа, не выйдет.
не дёргать же с сервера по одной записи только ради того, чтобы вывести прогрессор, да и выдёргивать последовательно записи по одной не тривиальная задача

Вариант пустить загрузку из базы в отдельном потоке, а в основном в этом время высвятить, к примеру WaitDialog или свой самописный сплэшик с сообщением о том, что следует подождать, в котором будет производится message pumping.

В этом случае по крайней мере не будет проблем с белыми неперирисованными квадратами в UI.