Сделать отображение dbgrid похожим, как в PLSQL Developer

@ProRockX · Регистрация: 16.03.2013

Author24 — интернет-сервис помощи студентам

Здравствуйте, форумчане. У меня 3 вопроса:
В проекте на D7 есть грид dbGridEh (компанент Ehlib), запрос TOraQuery (компанент ODAC, FetchAll=false), выше него лежит сплитер, чтоб изменять положение грида.
Открываю TOraQuery. В таблице, откуда идёт выборка 30 записей. В грид вместились только 10.
1) Если после этого поднять сплитер, то количество записей записей в гриде увеличивается. А мне нужно, чтоб оно оставалось таким же и увеличивалось только в том случае, если у TOraQuery FetchAll будет равен true.
2) Если в гриде 10 записей и TOraQuery.RecordCount= 10 (хотя запрос возвращает 30) и я перехожу по записям вниз, то на 10 курсор не останавливается и происходит Fetch до тех пор, пока я не достигну конца TOraQuery. Подскажите, как правильно сделать так, чтоб если в гриде 10 записей, а в запросе больше - не выводить остальные, пока не будет нажата кнопка, с обработчиком:

Delphi

1	ORAQuery.FetchAll=true;

3) Правильно ли, что у меня при открытии запроса, если в нём больше записей, чем возвращает грид в сессиях этот запрос остаётся открытым. Хотя, в PLSQL Developer при таких же условиях запрос не активен, он активен только если он выполняется.

@ProRockX · 18.09.2015, 22:54 **[ТС]**

Разобрался. Если кому интересно - реализовал так:

Delphi

procedure TForm1.Oraquery1AfterOpen(DataSet: TDataSet);
begin
  ...
  FRecordCount := DataSet.RecordCount; //присваиваем значение глобальной переменной; QueryRecCount у DataSet = false
  ...
  DataSet.Tag := 1;
  ...
 
procedure TForm1.Oraquery1BeforeFetch(DataSet: TCustomDADataSet;
  var Cancel: Boolean);
begin
  if ((Dataset.RecNo = FRecordCount) and (FRecordCount > 0)) or
     (DataSet.Tag = 1) then
    begin
      Cancel:= True;
    end;
end;

	18.09.2015, 22:54

Опции темы