[Т@tali]

Подскажите пожалуйста. Что я неправильно делаю????? Когда выключаю галочку, все вроде выполняется, а когда опять выключаю обратных действий не происходит.

Код:

procedure TForm2.CheckBox1Click(Sender: TObject);
var SQ:string;
begin
SQ:= 'SELECT * from Strana where kont_id<>1';
if CheckBox1.Checked then with Query1 do
else
begin
Query1.close;
Query1.SQL.Clear;
Query1.SQL.Add(SQ);
Query1.Active:=true;
end;
end;

Admin: Пользуемся тегами!

[Ultras]

попробуйте так

Код:

procedure TForm2.CheckBox1Click(Sender: TObject);
var
  SQ: string;
begin
  if Query1.Active then Query1.Active := False;
  if CheckBox1.Checked then
  begin
    SQ := 'SELECT * from Strana where kont_id = 1'; //для примера
    // включение галочки
  end else
  begin
    // выключение галочки
    SQ := 'SELECT * from Strana where kont_id = 0'; //для примера
  end;
    Query1.SQL.Text := SQ;
    Query1.Active := True;
end;

а лучше написать функцию, которая будет собирать значения CheckBox'ов и строить запрос, тогда можно будет хоть 100 checkbox'ов влепить

[Т@tali]

Спасибо большое. Заработало. Благодарю сердечно.

[Т@tali]

Не подскажете как примерно эта функция должна выглядеть.???????????? Пожалуйста. Я не догоняю.

[Т@tali]

Код заработал. Скажите пожалуста. аналогично пытаюсь запрограмировать 2 checkbox. Код вроде работает, но при этом первый checkbox перестает работать. Как мне быть???????

[Ultras]

стуки завтра в аську 418018483, расскажу как функцию такую сделать, для нескольких checkbox'ов.

[Т@tali]

Спасиб. Вот номер моей аськи. 408611884

[Т@tali]

Спасибо Ultras здорово помог мне с темой. Подключила несколько Checkbox'ов на форме к одному DB Gridu. Все работает. Препод в восторге заценил. Курсовую на пять сделала.

[Ultras]

Т@tali, всегда пожалуйста