Доброго времени суток!
Вот это взял с Вашего форума (ссылка: "http://www.delphisources.ru/forum/showthread.php?t=13110") указваю ссылку т.к. тема закрыта. Всё компилится, но работает не так хорошо.
Код:
procedure TForm1.Button7Click(Sender: TObject);
begin
If not DBGrid1.DataSource.DataSet.Locate('Имя', Edit1.Text, [])
then ShowMessage('ТаLкой записи в Базе Данных Нет!');
end;
Я решил добавить сюда loPartialKey для более удобного поиска и получил следующее:
procedure TForm1.Button7Click(Sender: TObject);
begin
If not DBGrid1.DataSource.DataSet.Locate('Имя', Edit1.Text, [loPartialKey])
then ShowMessage('Такой записи в Базе Данных Нет!');
end;
Админ: Пользуемся тегами при оформлении кода!
Но у меня остался не решенным вопрос в продолжение темы. А вопрос такой: При нахождении одинаковых записей в БД и повторном нажатии кнопки "Поиск", поиск не продолжается. То есть, если много записей с одинаковым именем, то при нажатии на кнопку "Поиск" повторно, курсор остаётся на первой найденной записи. Ещё поиск из данного примера ищет не по всему полю. Если кто сталкивался с подобными проблемами и решил их, то пожалуйста помогите. За ранее Благодарен!