|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
Подключение несколько Checkbox на форме к одному DB Gridu
Подскажите пожалуйста. Что я неправильно делаю????? Когда выключаю галочку, все вроде выполняется, а когда опять выключаю обратных действий не происходит.
Код:
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, 20.02.2010 в 20:13. |