[DDim1000]

Написал простую программу, которая выводит таблицию из базы данных dbm, сделал поиск в программе, но этот ведется только в одном столбце "Имя", как сделать так, чтобы поиск был по всем столбцам таблиции? - Фамилия, Имя, Отчество.

Код:

procedure TForm1.DBGrid1KeyPress(Sender: TObject; var Key: Char);
begin
fs:=fs+key;
dbgrid1.DataSource.DataSet.Locate('Имя', fs, [loPartialKey]);
StatusBar1.Panels.Items[0].Text:='Ищем: '+fs;
end;

lmikle: пользуемся тегами

[lmikle]

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

Написал простую программу, которая выводит таблицию из базы данных dbm, сделал поиск в программе, но этот ведется только в одном столбце "Имя", как сделать так, чтобы поиск был по всем столбцам таблиции? - Фамилия, Имя, Отчество.

Я бы просто руками написал. Locate не всегда срабатывает правильно и всгда находит только первое вхождение.

Код:

function TForm1.FindEntry(AValue : String; AColumns : Array of String; AFromFirst : Boolean) : Boolean;
var
  I : Integer;
begin
  Result := False;
  If AFromFirst 
    Then dbgrid1.DataSource.DataSet.First
    Else dbgrid1.DataSource.DataSet.Next;
  While Not dbgrid1.DataSource.DataSet.Eof Do
    Begin
      For I := Low(AColumns) To High(AColumns) Do
        Begin
           Result := dbgrid1.DataSource.DataSet.FieldByName(AColumns[i]).AsString = AValue;
           If Result Then Break;
        End;
      If Result Then Break;
      dbgrid1.DataSource.DataSet.Next;
    End;
end;