SELECT скрывать и отображать колонки! Резултат на второе форме

[xxbesoxx]

Здравствуйте ребята. Задача такой . ест Form1, Form2 на пример, на второе форму выводит результаты поиска

Пользователь хочет что на (второе форму где выводит результаты поиска ) был кнопка где он будет отметит какой столбик отображалось и какой скрывать

из первое форму делаю запрос выводит результат

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;
Poisk.ShowModal;
end;

Проблема за это ! как реализовать это ! что он мог (скрывать и отображать колонки) по своего желанию ?

[Serge_Bliznykov]

судя по всему, у Вас в гриде отображаются ВСЕ поля, которые есть в датасете...

тогда самый простой способ - хранить где-то (как и где - ваше дело, можно в INI, можно в БД) список полей.
вот этот:

employee_id, 
first_name, 
last_name, 
email, 
phone_number, 
hire_date,
job_id, 
salary, 
commission_pct,manager_id, 
department_id

написать функцию (например, GetSelectedFields()), возвращающую строку, с перечнем отобранных полей (через запятую),
и при формировании запроса выбирать только выделенные поля:

   Module.PoiskQuery.Close;
   Module.PoiskQuery.SQL.Clear;
    Module.PoiskQuery.SQL.Add('SELECT ' + GetSelectedFields() + ' FROM hr.employees');

[Аватар]

или
DBGrid.Columns[N].Visible:=True или False
N от 0 до DBGrid1.Columns.Count-1

[xxbesoxx]

Спасибо за внимание, надо ini файл создать , настройки где то должен хранить , программа клиент-серверный и каждое пользователь хочет настроит по своему. начинаю так

1 . uses -- inifiles, добавляю
2.

var
Poisk: TPoisk;
ini: tinifile; // ---- 2. переменное ini: tinifile;

Указываю путь
3.

procedure TPoisk.FormCreate(Sender: TObject);
begin
ini := tinifile.Create('C:\beso\Seting.ini ');
end;

При SELECT как написать что название все колонки сохранить туда ? и как написать потом GetSelectedFields() что программу когда он откроет второе раз, что все настройки почитал из ini файл ?

Poisk.DBGridEh1.Text := ini.ReadString // как здесь прописать помогите пожалуйста

Приближаю к задачу ближе, на второе форму на кнопку пишу

procedure TPoisk.SpeedButton1Click(Sender: TObject);
begin
ini.WriteString('Poisk','Edit', Module.PoiskQuery.SQL.Text);
end;

Сохраняется цели текст вот так . Мне надо только строки который выводить результату . Помогите кто не будь пожалуйста, время мало

[Poisk]
Edit=SELECT employee_id, first_name, last_name, email, phone_number, hire_date,job_id, salary, commission_pct,manager_id, department_id FROM hr.employees
WHERE first_name LIKE 'Bruce'

Голова кипит, взрывается, пожалуйста помогите это реализовать

[Stilet]

Во-первых:

 ini.WriteString('Poisk','Edit', Module.PoiskQuery.SQL.DelimitedText);

Это чтоб запрос в одну строку писался. ИНИ файлы не любят открытого многострочного текста.
Во-вторых:

Poisk.DBGridEh1.Text

Что это? У Эхгрида есть свойство, напрямую связывающее текст запроса с датасетом?

[xxbesoxx]

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

Во-первых:

 ini.WriteString('Poisk','Edit', Module.PoiskQuery.SQL.DelimitedText);

Это чтоб запрос в одну строку писался. ИНИ файлы не любят открытого многострочного текста.
Во-вторых:
Что это? У Эхгрида есть свойство, напрямую связывающее текст запроса с датасетом?

Спасибо за внимание , Но .DBGridEh1.Text =нету

напрямую да

[Stilet]

Но .DBGridEh1.Text =нету

Ну нет и не надо )
Считывай в Module.PoiskQuery.SQL

[xxbesoxx]

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

Во-первых:

 ini.WriteString('Poisk','Edit', Module.PoiskQuery.SQL.DelimitedText);

Это чтоб запрос в одну строку писался. ИНИ файлы не любят открытого многострочного текста.
Во-вторых:
Что это? У Эхгрида есть свойство, напрямую связывающее текст запроса с датасетом?

Смотрите как то доработал до это. Но сейчас как это настройки сохранить в ini файл , что [блондинка оператор] отметил что она хочет и это сохранилось в ini

ini.WriteString('Poisk','Edit', здесь что писать ? );

видео посмотрите пожалуйста

Пожалуйста у меня нету выход это надо разбирать , Это задача спасает меня жизнь, и я знаю что вы меня поможите . Я люблю русский народ Я люблю вас

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

Ну нет и не надо )
Считывай в Module.PoiskQuery.SQL

Смотрйте видео пожалуйста задача почти готов ! Осталось сохранить и почитать в ini файле

ini.WriteString('Poisk','Edit', CheckListBox1.Items.GetText );

сохраняет все название колонки , мне надо только который отметили

ini что сохраняет
-------------------------
[Poisk]
Edit=EMPLOYEE_ID
FIRST_NAME
LAST_NAME
EMAIL
PHONE_NUMBER
HIRE_DATE
JOB_ID
SALARY
COMMISSION_PCT
MANAGER_ID
DEPARTMENT_ID

[Sciv]

Проект бы с базой выложил - быстрее бы сделали.

[xxbesoxx]

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

Проект бы с базой выложил - быстрее бы сделали.

Вот смотрите пожалуйста, это аналогичные пример . Мне осталось все настройки сохранить в ini файл