Вопрос для --> Ega23

← →
K_Lock (2006-03-02 00:55) [0]

Ega23 © (20.02.06 13:30) [1]
Я обычно, простой Edit использую. Пример:
unit uClassFields;
Доброй ночи Всем.
Разбирался с твоим примером по Редактированию запросов в обычных едитах, никак не могу понять что, и как работает это:
QuOpen(DMMain.aqTemp, ss);
То, что "ss" это запрос, понятно. А остальное? Особенно QuOpen.
Заранее спасибо.

← →
Германн © (2006-03-02 02:43) [1]

> K_Lock (02.03.06 00:55)

А по "мылу" задать вопрос - Влом!? Олег, имхо, нормально доступен по электронной почте.
Зачем засорять форум?

← →
Ega23 © (2006-03-02 08:47) [2]

Действительно, давай лучше по мылу. Оно реальное.

← →
Ega23 © (2006-03-02 08:58) [3]

Хотя если в двух словах, то это аналогично следующему коду:
QuOpen(DMMain.aqTemp, ss); With DMMain.aqTemp do begin if Active then Close; SQL.Text:=ss; Open; end;

Там несколько сложнее функция, есть анализ запроса и ещё кое-какие навороты, но это тебя не должно волновать...

← →
msguns © (2006-03-02 09:48) [4]

Ага, раз выложил, то получай ! ;))

Дай полный код функции, а то это чудо кастрированное убого выглядит.
Просто интересно

← →
Ega23 © (2006-03-02 09:51) [5]

> Дай полный код функции, а то это чудо кастрированное убого
> выглядит.
> Просто интересно
>

Их несколько. Работает BDE-шная, для ADO пока не доделана...

← →
msguns © (2006-03-02 11:13) [6]

Хмм.. А зачем отдельно для адо и бде. В одном "стакане" нельзя ?

← →
Ega23 © (2006-03-02 12:00) [7]

> Хмм.. А зачем отдельно для адо и бде. В одном "стакане"
> нельзя ?
>

А для ADO с букмарками проблемы появились...
Вообще-то функция не моя, её до меня кто-то писал. Я лишь активно использовал.

> if Active then Close;

Эта предварительная проверка совершенно излишняя, поскольку она все равно выполняется и в методе Close. Достаточно просто одного Close.

> Эта предварительная проверка совершенно излишняя, поскольку
> она все равно выполняется и в методе Close. Достаточно просто
> одного Close.
>

Это старые приколы. Уже на автомате получается (раньше сохранял позицию курсора, чтобы при переоткрытии Locate на последнюю выбранную делать).

А вообще, если мне память не изменяет,
procedure TDataSet.Close; begin Active:=False; end; procedure TDataSet.Open; begin Active:=True; end;

> Active:=False;

При этом вызывается SetActive где и происходит проверка при которой в итоге вызывается GetActive.

Вопрос для --> Ega23 Найти похожие ветки