чеоез что осушествлять сортировку?

[mmihan]

Добрый вечер
На форме есть RadioGroup c Radiobutton для выбора сортировки по определенному полю
Подскачите через что(как ) осуществить сортировку которая отображается в DBgrid


если через ADOTAble1 то после выполнения sql запроса .. сортировка уже не работает..
ADOQuery и ADODAtaSEt если не ошибаюсь нужен текст запроса

procedure TMForm.RadioGroup1Click(Sender: TObject);


   Begin
 //
  case RadioGroup1.ItemIndex of
0: ADOTAble1.sort:='КЛ';
1: ADOTAble1.sort:='ФИО';
2: ADOTAble1.Sort:='Оборудование';
3: ADOTAble1.Sort:='Дата';
4: ADOTAble1.Sort:='КЛ';



end;
end;

[Sparky]

а в чем проблема?

select * from t_table order by name_field

[mmihan]

Сбивает другой sql запрос..


Т.е у меня есть процедура поиска .. которая отображает результат поиска
и если сделать сортировку .. то запрос поиска спивается.. как это обойти?

[Sparky]

сделайте отдельный компонент ADOQuery и при выборе кнопки в радиогруппе даобавляйте в этот запрос то что я написала

[mmihan]

хм так тоже сбивает...

procedure TMForm.RadioGroup1Click(Sender: TObject);


   Begin
 //ADOQuery1.Close;
ADOQuery2.SQL.Clear;
  case RadioGroup1.ItemIndex of
0: ADOQuery2.sql.add('select * from Клиент order by КЛ');
1: ADOQuery2.sql.add('select * from Клиент order by ФИО');
2: ADOQuery2.sql.add('select * from Клиент order by Оборудование');
3: ADOQuery2.sql.add('select * from Клиент order by Дата');
4:ADOQuery2.sql.add('select * from Клиент order by КЛ');

end;

begin

  ADOQuery2.Active:=true;
   DSSearchDoc.DataSet:=ADOQuery2;
   DbGrid1.DataSource:=DSSearchDoc;
end;

вот процедура поиска

procedure TMform.SearchDoc(Sender: TObject);

begin

    with ADOQuery1 do
     begin


Close; {деактивируем запрос в качестве одной из мер предосторожности}
SQL.Clear; {стираем предыдущий запрос}
  SQL.Add('select *' ) ;
  SQL.Add('from Клиент');
  SQL.Add('where ((КЛ  LIKE '''+Edit1.Text+'%'') AND (ФИО  LIKE   '''+Edit2.Text+'%'' OR ФИО IS NULL )
  AND (Оборудование  LIKE   '''+Edit4.Text+'%'' OR Оборудование IS NULL) 
AND (Телефон  LIKE   '''+Edit3.Text+'%'' OR Телефон IS NULL) 
 AND (Дата > :dt1  AND Дата <:dt2 ) )');
Parameters.ParamByName('dt1').Value:=DateToStr(DateTimePicker1.DateTime);
Parameters.ParamByName('dt2').Value:=DateToStr(DateTimePicker2.DateTime);
   Active:=true;
 DSSearchDoc.DataSet:=ADOQuery1;
 DbGrid1.DataSource:=DSSearchDoc;
ADOQuery1.FieldByName('Внешний вид').Visible:=false;
  DbGrid1.Fields[0].DisplayLabel:='Номер';

   end;
end;

если DataSource сделать тоже другой.. то вообше от DBgrid отваливается таблица...

[mmihan]

хм тут доходит что так вообше не логично делать,,
Правильно ли я думаю..
если Radiobutton1 то сортировка по по полю КЛ.
и тут (поиск) отфильтровка методом Locate ?


но как организовать код ... что то туго.. Помогите пожалуйста. не догоняю..