[asimpsons]

Всем добрый день!
Помогите, не могу связать 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.fieldbyname('n_g r').AsString+'''';
qSubGR.active:=true;
end;
end;

[XIO]

Если чесно ничего не понял.
1. Прогресс чего именно Вы собираетесь отобразить?
2. MAX = dataset.RecordCount

А дальше объясните что Вы вообще хотите сделать, и тогда станет ясно куда ставить Inc()

[xanorik]

Если хотите отобразить прогресс выполнения запроса, то нужно использовать фоновый поток и писать еще серверную чать (хранимую процедуру или типо того), а чтобы не забивать голову, используйте стиль ProgressBar = Marquee

[Страдалецъ]

ProgressBar = Marquee хорошо подходит для неопределнной длительности паузы, а если длительность известна то почему-бы по нормальному не сделать.
Как уже сказали, можно указать количество записей как Max
ProgressBar1.Max := DataSet.RecordCount;
ProgressBar1.Position := DataSet.RecNo;
Можно сделать в процентах:
ProgressBar1.Max := 100;
ProgressBar1.Position := DataSet.RecNo/DataSet.RecordCount*100;