фильтрация в делфи

[Азамат Казанчев]

бд подключена через adoquery, вывожу в dbgrid, нужно что бы при нажатии на название поля в шапке таблицы происходила фильтрация данных по элементам этого поля. литературу смотрел, но не разобрался, поэтому просьба не посылать куда то, а помочь, направить

[SERG1980]

с квери хорошо через SQL запрос работать, слыхали о таком?
Примерчик

with adoquery1 do
 begin
  Close;
  SQL.Clear;
  SQL.Add('SELECT * FROM MyTable WHERE MyField  = 10')
  Open;

В данном примере мы отобразили все записи у которых поле MyField равно 10

[Азамат Казанчев]

с sql запросами я знаком, но сдесь это не то, что мне надо. Я наверное плохо сформулировал вопрос. есть таблица с 3 полями, выводится на главной форме. надо что бы при нажатии на заголовок первого поля была фильтрация по элементам этого поля, при нажатии на заголовок втрого поля-фильтрация по данным второго поля и тд. Слышал о таком

[SERG1980]

Может сортировка? Для фильтрации должно условие отбора быть. У вас какое тогда условие для фильтрации

[Азамат Казанчев]

может сортировка. по сути в таблице 1ое поле содержит числовые значения, 2 - содержит дату, 3 - содержит название. интересны сортировки по перврму и второму полю по возрастанию, так что бы сортировалась вся таблица

[SERG1980]

Ну тогда так попробуйте

procedure TForm1.DBGrid1TitleClick(Column: TColumn);
begin
Column.Field.
with form1.ADOQuery1 do
 begin
  Close;
  SQL.Clear;
  SQL.Add('SELECT * FROM MyTable ORDER BY ' + Column.Field.FieldName + ' ASC');//сортировка по возрастанию
 //SQL.Add('SELECT * FROM MyTable ORDER BY ' + Column.Field.FieldName + ' DESC');//сортировка по убыванию
  Open;
 end;
end;

[Азамат Казанчев]

если я правильно понял

procedure TForm1.DBGrid1TitleClick(Column: TColumn);
begin
Column.Field;
with form1.ADOQuery1 do
 begin
  Close;
  SQL.Clear;
  SQL.Add('SELECT * FROM MyTable ORDER BY ' + Column.Field.FieldName + ' ASC');//сортировка по возрастанию
 //SQL.Add('SELECT * FROM MyTable ORDER BY ' + Column.Field.FieldName + ' DESC');//сортировка по убыванию
  Open;
 end;
end;

в этом коде:
MyTable - имя моей таблицы
asc и desc - функции для сортировки
как это подогнать мне под себя если я изначально опирирую с бд а в таблице где надо сортировать я вывожу поля из двух таблиц бд с помощью sql запроса

select Предприятие.[Наименование предприятия], Баланс.Баланс, Баланс.[дата след проверки]
from Предприятие INNER JOIN Баланс ON Предприятие.ID=Баланс.[ID предприятия]

через adoquery я подключаю не таблицу с именем а бд, или это не имеет значения и уже начал тупить

[SERG1980]

ну и допишите эту строку к вашему запросу

 ORDER BY ' + Column.Field.FieldName + ' ASC'

[Азамат Казанчев]

выводит такую ошибку
Doc1.doc
дописываю так

select Предприятие.[Наименование предприятия], Баланс.Баланс, Баланс.[дата след проверки]
from Предприятие INNER JOIN Баланс ON Предприятие.ID=Баланс.[ID предприятия]
ORDER BY ' + Column.Field.FieldName + ' ASC'

уточняю - запрос записываю в свойство sql->string компонента adoquery

[SERG1980]

Сообщение от Азамат Казанчев

уточняю - запрос записываю в свойство sql->string компонента adoquery

да нет конечно этот запрос должен быть вот здесь

procedure TForm1.DBGrid1TitleClick(Column: TColumn);

а если в query то

select Предприятие.[Наименование предприятия], Баланс.Баланс, Баланс.[дата след проверки]
from Предприятие INNER JOIN Баланс ON Предприятие.ID=Баланс.[ID предприятия] ORDER BY Предприятие.[Наименование предприятия] ASC

будет сортировка по полю Наименование предприятия, или вставьте другое поле по которому будете сортировать