[xxbesoxx]

Сообщение от Uniq!

Дружище, извини я не работаю с АДО. И баз нету.

Значит смотри
-DBGrid2, это таблица с твоей второй формы.
-MyQuery2, это "запрос" где ты делаешь поиск.
- первая процедура - это кнопка твоего поиска.
- вторая процедура это кнопка на второй форме для отображения колонок.

MyQuery2 = PoiskQuery (в твоём случае)

Код:

procedure TForm1.but_searchClick(Sender: TObject);
begin
  MyQuery2.SQL.Clear;
  MyQuery2.SQL.Add('Select * from `emp` where `comm` > 1');
  MyQuery2.Execute;
  MyQuery2.GetFieldNames(CheckListBox1.Items);
end;

procedure TForm1.but_checkClick(Sender: TObject);
var
  i: integer;
begin
  for i := 0 to CheckListBox1.Count - 1 do
    DBGrid2.Columns[i].Visible := CheckListBox1.Checked[i];
end;

Поправил вторую процедуру. В цикле не так чутка.

так выйдет CheckListBox1 , щас попробую скрыть и отображать . Вам спасибо за помочь . время мало и за это спишу

Код:

procedure TMainForm.cxButton1Click(Sender: TObject);
begin
  Module.PoiskQuery.Close;
   Module.PoiskQuery.SQL.Clear;
   Module.PoiskQuery.SQL.Add('SELECT employee_id, first_name, last_name, email, phone_number, hire_date,'+
                             'job_id, salary, commission_pct,manager_id, department_id '+
                             'FROM hr.employees');
  Module.PoiskQuery.SQL.Add('WHERE first_name LIKE '''+cxTextEdit1.Text+'''');
  Module.PoiskQuery.Open;
  Module.PoiskQuery.GetFieldNames(Poisk.CheckListBox1.Items);
  Poisk.ShowModal;
end;