DBGrid

← →
Марат (2004-06-11 12:20) [0]

Здрвствуйте, мастера. Вопрос такой. На одной из форм проекта создается запрос (Query1), который отображается на DBGrid1 (DataSource1). Затем по ID-шник текущей строки DBGrid1 запоминается в переменную ID_Cur:=Query1ID.AsInteger. По нажатию на Button2 открывается вторая форма в которой выполняется запрос, связанный с ID_Cur. Все это работает, но есть одна загвоздка- при открытии формы №1 DBGrid1 естественно пустой (пока не нажмем Button1) и при нажатии на Button2 выдается ошибка, т.к. ID_Cur=0. Пробовал избавится так:
if Query1.recordcount=0 then
showmessage("Невозможно открыть форму №2");
exit;
else
ID_Cur:=Query1ID.AsInteger;
ругается на close DataSet
Что делать?

← →
stone © (2004-06-11 12:30) [1]

> if Query1.recordcount=0 then

if Query1.Active and not Query1.IsEmpty then
ID_Cur:=Query1ID.AsInteger
else
showmessage("Невозможно открыть форму №2");

← →
Соловьев © (2004-06-11 12:31) [2]

> ID_Cur:=Query1ID.AsInteger

Qeury1.OnAfterScroll

> ругается на close DataSet

if Query1.Active then
if Query1.recordcount=0 then
showmessage("Невозможно открыть форму №2");
exit;
else
ID_Cur:=Query1ID.AsInteger;

← →
roottim (2004-06-11 12:32) [3]

ID_Cur := -1; if (Query1.Active) and (not Query1.IsEmpty) then showmessage("Невозможно открыть форму №2") else ID_Cur:=Query1ID.AsInteger;

← →
bushmen © (2004-06-11 12:35) [4]

Все можно сделать гораздо проще. В дизайнере устанавливаешь Button2.Enabled в False. При нажатии в программе на Button1 после
Query1.Open пишешь:
If not Query1.IsEmpty then Button2.Enabled := True
else Button2.Enabled := False;

← →
Соловьев © (2004-06-11 12:44) [5]

> [4] bushmen © (11.06.04 12:35)

для таких целей надо Action использовать

>If not Query1.IsEmpty then Button2.Enabled := True
>else Button2.Enabled := False;
Както мудрЁно ты это все...

DBGrid Найти похожие ветки