Фильтр SringGrid`a

[Scorpuha]

На форме есть edit и StringGrid. StrinGrid заполняется данными из двух таблиц. Все ОК. Но есть еще задача, нужно что при вводе данных в едит grid фильтровался по одному из столбцов значению равному введенное в едит.
вот код заполнения grid

 LoadF.ADOQuery1.SQL.Clear;
  LoadF.ADOQuery1.SQL.Add('SELECT rabotniki.id, rabotniki.tabnum, rabotniki.familiya, rabotniki.imya, rabotniki.otchestvo, 
            rabotniki.dolzhnost_id, dolzhnosti.gruppa, dolzhnosti_napryazh.napryazh');
  LoadF.Adoquery1.sql.add('FROM sluzhby INNER JOIN ((dolzhnosti_personal INNER JOIN (dolzhnosti_napryazh 
            INNER JOIN dolzhnosti ON dolzhnosti_napryazh.id_napryazh = dolzhnosti.id_napryazh) 
                      ON dolzhnosti_personal.id_personal = dolzhnosti.id_personal)');
  LoadF.Adoquery1.sql.add(' INNER JOIN rabotniki ON dolzhnosti.dolzhnost_id = rabotniki.dolzhnost_id) 
            ON sluzhby.sluzhba_id = rabotniki.sluzhba_id');
  LoadF.ADOQuery1.Active:=True;
  LoadF.ADOQuery1.First;
  i := 0;
WorkerF.StringGrid1.ColWidths[0]:=-1;
WorkerF.StringGrid1.Cells[1,0]:='Таб.№';
  WorkerF.StringGrid1.Cells[2,0]:='Фамилия';
  WorkerF.StringGrid1.Cells[3,0]:='Группа по электробез.';
  WorkerF.StringGrid1.RowCount:=2;
  WorkerF.StringGrid1.ColWidths[1]:=100;
  WorkerF.StringGrid1.ColWidths[2]:=348;
  WorkerF.StringGrid1.ColWidths[3]:=200;
  while not LoadF.ADOQuery1.Eof do begin
      i := i+1;
      if i>1 then WorkerF.StringGrid1.RowCount:=WorkerF.StringGrid1.RowCount+1;
      WorkerF.StringGrid1.Cells[1,i]:=LoadF.ADOQuery1.FieldByName('tabnum').AsString;
      WorkerF.StringGrid1.Cells[2,i]:=LoadF.ADOQuery1.FieldByName('familiya').AsString+' '
                  +LoadF.ADOQuery1.FieldByName('imya').AsString+' '+LoadF.ADOQuery1.FieldByName('otchestvo').AsString;;
      WorkerF.StringGrid1.Cells[3,i]:=LoadF.ADOQuery1.FieldByName('gruppa').AsString;
      LoadF.ADOQuery1.Next;
     end;

[Stilet]

Оформи этот код в функцию, и в качестве ее параметра передавай то, что фильтруется. Функцию вызывай чтоб она перечитывала в Грид данные.

[Scorpuha]

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

[Scorpuha]

вообще думал заполнять сначала DBGrid, но не знаю аналог свойства dbgrida как у stringrid`a.cells и StringGrid1.RowCount

[Scorpuha]

вот код для заполнения DBGrida. Закинул на форму дополнительно DBGrid2 у которого свойство Datasource=DataSouce4 у которого в свою очередь DataSet=ADOQuery1, расположенный на другой форме. Код не работает, выдает ошибку "ADOquery1: Dataset not in edit or insert mode". Пожалуйста, укажите на ошибку.

LoadF.ADOQuery1.SQL.Clear;
  LoadF.ADOQuery1.SQL.Add('SELECT rabotniki.id, rabotniki.tabnum, rabotniki.familiya, rabotniki.imya, rabotniki.otchestvo, rabotniki.dolzhnost_id,
 dolzhnosti.gruppa, dolzhnosti_napryazh.napryazh');
  LoadF.Adoquery1.sql.add('FROM sluzhby INNER JOIN ((dolzhnosti_personal INNER JOIN (dolzhnosti_napryazh INNER JOIN dolzhnosti ON 
dolzhnosti_napryazh.id_napryazh = dolzhnosti.id_napryazh) ON dolzhnosti_personal.id_personal = dolzhnosti.id_personal)');
  LoadF.Adoquery1.sql.add(' INNER JOIN rabotniki ON dolzhnosti.dolzhnost_id = rabotniki.dolzhnost_id) ON sluzhby.sluzhba_id = rabotniki.sluzhba_id');
  LoadF.ADOQuery1.Active:=True;
  LoadF.ADOQuery1.First;
  i := 0;
   WorkerF.DBGrid2.Columns[0].title.caption:='№';
  WorkerF.DBGrid2.Columns[1].title.caption:='Название';
  WorkerF.DBGrid2.Columns[2].title.caption:='Полное название';
  WorkerF.DBGrid2.COLUMNS[1].Width:=100;
  WorkerF.DBGrid2.Columns[2].Width:=348;
  while not LoadF.ADOQuery1.Eof do begin
      i := i+1;
      if i>1 then WorkerF.DBGrid2.DataSource.DataSet.RecNo:=WorkerF.DBGrid2.DataSource.DataSet.RecNo+1;
      WorkerF.DBGrid2.DataSource.DataSet.Fields[0].AsString:=LoadF.ADOQuery1.FieldByName('tabnum').AsString;
      WorkerF.DBGrid2.DataSource.DataSet.Fields[1].AsString:=LoadF.ADOQuery1.FieldByName('familiya').AsString;
      WorkerF.DBGrid2.DataSource.DataSet.Fields[2].AsString:=LoadF.ADOQuery1.FieldByName('gruppa').AsString;
      LoadF.ADOQuery1.Next;
    end;

[Аватар]

Код не работает, выдает ошибку "ADOquery1: Dataset not in edit or insert mode". Пожалуйста, укажите на ошибку.

Написано же в сообщении - статус датасета не эдит и не инсерт. Что значит - поля можно обновлять только после метода Edit, Insert или Append. Иначе не видать удачи. Другое дело - а нужно ли та галиматья, что показана?

[Scorpuha]

Сообщение от Аватар

Написано же в сообщении - статус датасета не эдит и не инсерт. Что значит - поля можно обновлять только после метода Edit, Insert или Append. Иначе не видать удачи. Другое дело - а нужно ли та галиматья, что показана?

с аппендом не выдает ошибок, но и грид остается пустым, а вот с едитом или инсертом выдает ошибку "field id cannot modified"

Сообщение от Аватар

Другое дело - а нужно ли та галиматья, что показана?

Ваши предложения

[Stilet]

Ваши предложения

Заполнять подключенную к WorkerF.DBGrid2 таблицу одним запросом INSERT INTO...SELECT, а не этим циклом.

[Scorpuha]

не понимаю, в моем коде уже есть запрос данных из НЕСКОЛЬКИХ таблиц.

[Stilet]

Имею ввиду не просто SELECT а комбинацию INSERT и SELECT.
Хотя в твоем слчучае похоже на комбинацию UPDATE и SELECT...