Программно установить курсор в DBGrid

[Serge_Bliznykov]

Сообщение от Аватар

Будет, но только один раз. Срабатывает, один раз если запись найдена и ни разу если не найдена.

Нет, нет!
Когда я говорил, что при LOCATE обработчик не будет срабатывать, я имел в виду, что при locate не будет срабатывания множество раз (для каждой перебранной записи). Сработает только один раз, после позиционирования на нужной записи! Именно так оно и должно работать!!

а вот в случае цикла с этим будет просто катастрофа!


p.s. впрочем, мне кажется, что мы зря спорим, автор темы для себя уже нашёл работающий (пусть и кривой) вариант, он его устраивает, остаётся пожалеть пользователей программы и тему можно закрывать...

[Toxa]

увидели сравнение ДВУХ полей?!!!

каюсь, проглядел, показалось идет сравнение в одном гриде

что-то сомневаюсь... Вы проверяли или это так, предположения?

проверял, на компонентах OracleDataSet от DOA, а он наследуется от TDataSet,
тут при Locate идет множество срабатываний события AfterScroll

[Аватар]

Сообщение от Toxa

проверял, на компонентах OracleDataSet от DOA, а он наследуется от TDataSet,
тут при Locate идет множество срабатываний события AfterScroll

Какой-то прикол, так не должно быть, возможно разработчики компонента начудили.

[Serge_Bliznykov]

Сообщение от Toxa

каюсь, проглядел, показалось идет сравнение в одном гриде


проверял, на компонентах OracleDataSet от DOA, а он наследуется от TDataSet,
тут при Locate идет множество срабатываний события AfterScroll

Категорически не согласен!
Я не знаю, что у Вас там творилось в вашем проекте.

Но я не поленился сделать с нуля новый проект (благо Oracle крутится под рукой и DOA есть лицуха!).
проверил.

Так вот - это НЕ ТАК!
Событие AfterScroll срабатывает ТОЛЬКО после установки на запись.
Т.е. в случае успешного LOCATE - 1 (ОДИН) раз, в случае неуспешного - ни разу!

немножко технических деталей.
клиент Oracle 10.2.0
DOA // Version 4.1.1 (February 22, 2008)


проект был такой:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  Db, Grids, DBGrids, StdCtrls, OracleData, Oracle;

type
  TForm1 = class(TForm)
    OracleSession1: TOracleSession;
    OracleDataSet1: TOracleDataSet;
    Label1: TLabel;
    DBGrid1: TDBGrid;
    DataSource1: TDataSource;
    btGoTop: TButton;
    btLocate: TButton;
    Label2: TLabel;
    edEQ_ID: TEdit;
    procedure FormCreate(Sender: TObject);
    procedure OracleDataSet1AfterScroll(DataSet: TDataSet);
    procedure btGoTopClick(Sender: TObject);
    procedure btLocateClick(Sender: TObject);
  private
    CountScroll : integer;
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}
procedure TForm1.FormCreate(Sender: TObject);
begin
  CountScroll := 0;
  OracleSession1.Connected := True;
  OracleDataSet1.Open;
end;

procedure TForm1.OracleDataSet1AfterScroll(DataSet: TDataSet);
begin
  Inc(CountScroll);
  Label1.Caption := IntToStr(CountScroll);
  Application.ProcessMessages;
end;


procedure TForm1.btGoTopClick(Sender: TObject);
begin
  OracleDataSet1.First;
end;

procedure TForm1.btLocateClick(Sender: TObject);
var _id : double;
begin
  _id := StrToFloat( edEQ_ID.Text );
  if not OracleDataSet1.Locate('EQ_ID', _id ,[]) then ShowMessage('Not found');
end;

end.

исходный код проекта я могу выложить.
НО! Как Вы понимаете, без БД Oracle он не заработает.
Поэтому, если есть желание, могу работу проекта показать на видео...


Успехов и безбажного Вам кода!

[Toxa]

решил перепроверить, сделал тестовое приложение
теперь я понял как я ошибался, и косился в сторону не виновного, проблема оказалась не в DOA, а в cxGrid от DevExpress, он занимается вредительством

[Serge_Bliznykov]

Сообщение от Toxa

решил перепроверить, сделал тестовое приложение
теперь я понял как я ошибался, и косился в сторону не виновного, проблема оказалась не в DOA, а в cxGrid от DevExpress, он занимается вредительством

вот, правильно сделали, что нашли вредителя!
Теперь Вы знаете, что от него ждать.

[Muramidaza]

Спасибо за пример с Locate - только из него понял как с ним работать. Мой код кстати работал хорошо, но цикл как то некрасиво смотрелся, хотя и вроде глюков не обнаружилось. Обработчика на это событие не будет.