[DDim1000]

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

Код:

1 2 3 4 5 6

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 не всегда срабатывает правильно и всгда находит только первое вхождение.

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19

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;