Нажатие на кнопку при выполнении условий.

[spotip]

Подскажите на форме у меня компонент DbGridEH1 и Button1 связка ADOConnection1-ADOQuery1-DataSource1-DbGridEH1, как нажать на Button1 при условии что в двух столбцах "1" "2" DbGridEH1 будут единицы ?

[Toxa]

if (колонка1 = 1) and (колонка2 = 1) then 
button1.click;

[evg_m]

при условии что в двух столбцах "1" "2" DbGridEH1 будут единицы ?

во всех строках(записях DataSet) ?
в текущей строке(записи DataSet) ?

flag:=false;
.... // проверяем уточненное условие и устанавливаем флаг
if flag then Button1.Click; /// нажать на Button1

[spotip]

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

во всех строках(записях DataSet) ?
в текущей строке(записи DataSet) ?

flag:=false;
.... // проверяем уточненное условие и устанавливаем флаг
if flag then Button1.Click; /// нажать на Button1

да во всех строках.
а можно ли проверить dataset на наличие строки и нажать кнопку? просто у меня в dbgrid строку можно добавить только при нажатии на кнопку, т.е мне надо проверить есть ли в dbgrid строка с данными если есть то кнопку не нажимать, а если нет нажать кнопку и добавить данные.

я может не правильно объяснил проблему, в Dbgrid я показываю только одну строку если столбец с датой в бд совпадает с текущей датой, эту строку можно добавить через кнопку и запуск хранимой процедуры в бд, так вот мне надо чтоб пользователь зайдя в программу уже имел строку для заполнения и ему не надо нажимать на кнопку добавления этой самой строки.

[evg_m]

Вар 1.

if not DataSet.Locate(<имя поля поиска>, <значение поля поиска>, []) then begin // нужной записи нет
  // добавить требуемую запись в БАЗУ
   DataSet.Insert;
   // !!! заполнить нужные поля (запись с текущей датой!)
   DataSet.Post;
  // или любой ДРУГОЙ вариант SQL заполнения БД но тогда надо будет выполнить обновление DataSet (Close; Open);
end; // И не надо никаких кнопок

Вар 2.

if DataSet.IsEmpty then begin  
  //и снова все то же самое(Insert; Post; SQL) и опять без кнопок.

вар 3.

if DataSet.IsEmpty then begin
// Запуск хранимой процедуры
//обновление данных(DataSet)
end;

Вар 4

if DataSet.fieldbyname('cx').IsNULL then begin
//запуск хранимики + обновление данных
end;

[spotip]

Спасибо всем большое, 3 вар. мне подходит.