Фильтровка

[crit]

В общем на форме DBGrid и два ComboBox'а. DBGrid заполняется из базы, в ней ФИО,РАЗдЕл и другие. Проблема в том что не получается сделать фильтровочку по разделу. Значит в Combobox1 выбирается ФИО ,и в DBGrid отображается ФИО, кторые выбраны в этом комбобоксе(напрнимер выбран Иванов Сергей иванович и в гриде отобразятся все Ивановы Сергеи ивановичи), дальше нужно сделать выборку в следующем комбобоксе по Разделу но по той же фамилии которая была уже выбрана до этоого в комбобоксе 1. это программа-тест,тоесть человек может пройти нескольок раз тест но по разным разделам или несколько раз один и тот же.
Делаю так:

procedure TForm15.FormActivate(Sender: TObject);
begin
    OraQuery5.SQL.Text := 'SELECT  DISTINCT  FIO,TABEL,CEH,DOLJ,VREMYA,RAZD,REZ,OCOBSH,OCRUK FROM KURS_OC order by FIO';
  OraQuery5.Open;
  WHILE(OraQuery5.Eof<>true) do
    begin
    ComboBox1.Items.Add( OraQuery5.FieldByName('FIO').AsString);
    ComboBox2.Items.Add( OraQuery5.FieldByName('RAZD').AsString);
    OraQuery5.Next;

procedure TForm15.ComboBox1Select(Sender: TObject);
begin
OraQuery5.SQL.Text := 'SELECT  DISTINCT  FIO,CEH,DOLJ,tabel,VREMYA,REZ,OCOBSH,OCRUK FROM KURS_OC WHERE FIO=' + Quotedstr(ComboBox1.Text);
  OraQuery5.Open;

Procedure TForm15.ComboBox2Select(Sender: TObject);
begin
OraQuery5.SQL.Text := 'SELECT  FIO,CEH,DOLJ,tabel,VREMYA,RAZD,REZ,OCOBSH,OCRUK FROM KURS_OC WHERE RAZD=' + Quotedstr(ComboBox2.Text);
  OraQuery5.Open;

но тут получается что я щелкаю в комбобоксе1 нужную ФИО, выводятся фамилии в гриде, дальще я хочу посмотрреть по разделам,выбриаю в комбоксе2 раздел и тут в гриде выскакивают уже все ФИО а не та которую выбрал в комбобоксе 1.

[Evgeniy26]

Дак вы добавте в запросе с ComboBox2 еще отбор и по ComboBox1.

OraQuery5.SQL.Text := 'SELECT  FIO,CEH,DOLJ,tabel,VREMYA,RAZD,REZ,OCOBSH,OCRUK FROM KURS_OC WHERE RAZD=' + 
Quotedstr(ComboBox2.Text) + ' and FIO=' + Quotedstr(ComboBox1.Text);

[crit]

спасибо большое=)

[crit]

а как вернуться что было до фильтовки в гриде??

[Evgeniy26]

К какому моменту именно?

[crit]

да вообще до фильтровки по имени

[Evgeniy26]

OraQuery5.Clear;
OraQuery5.SQL.Add('SELECT  DISTINCT  FIO,TABEL,CEH,DOLJ,VREMYA,RAZD,REZ,OCOBSH,OCRUK FROM KURS_OC order by FIO');
OraQuery5.Open;

Добавте например в ComboBox "Показать все" и если выбрано "Показать все" тогда применяете код выше или в обработчик кнопки только тогда свойства Text ComboBox - ов сбросьте.

[crit]

мм.. а как условие прописать что типа если выбран первый итем " показать все" то выполняем запрос

[Evgeniy26]

Например добавляйте в ComboBox1 "Показать все" в начале или в конце

procedure TForm15.ComboBox1Select(Sender: TObject);
begin
 if ComboBox1.ItemIndex = 0 then//Если в конце ComboBox1.ItemIndex := ComboBox1.Items.Count - 1
 begin
   OraQuery5.Clear;
   OraQuery5.SQL.Add('SELECT  DISTINCT         FIO,TABEL,CEH,DOLJ,VREMYA,RAZD,REZ,OCOBSH,OCRUK FROM KURS_OC   order by FIO');
   OraQuery5.Open;
   ComboBox2.ItemIndex := -1;
  end else
  begin
    //ищем фамилию
  end;
end;

[crit]

спасибо!!!