Поиск по базе

[Таня84]

У меня одна вещь никак не получается.
У меня в базе данных две одинаковые фамилии, а после поиска отображается только одна.
Кнопки "Следующая запись" и "Предыдущая запись" не активны и никак не реагируют на нажатие
после выполнения поиска.
Поиск выполняю через sql запрос.
Вот листинг поиска:


procedure TForm2.N8Click(Sender: TObject);

varsurname: string[30];
begin

Surname:=InputBox('Поиск сотрудников по фамилии','Укажите фамилию и щелкните на OK.', '');

if surname <> '' then

begin

with Query1 do begin
Close; SQL.Clear;
SQL.Add('SELECT surname, Name, patron, birth_date, natio, photo, gorod, adres, sex, birthplace, pasport, telefon, RNN, SIK, Citizen');
SQL.Add('FROM ":Otdel_Kadrov:stuff.db"');
SQL.Add('WHERE');SQL.Add('LOWER(Surname) like LOWER ("%'+ surname + '%")');
SQL.Add('ORDER BY Name,birth_date, Surname');
Open;
end;

if Query1.RecordCount <> 0
thenDataSource1.DataSet:=Query1
else

begin
ShowMessage('В БД нет записей, удовлетворяющих критерию запроса.');
DataSource1.DataSet:=Table1;end;end;end;

Мне нужно так сделать:
Если в базе есть две одинаковые записи то кнопки должны стать активными.
Просто у меня данные отображаются через поля Edit

[mihali4]

Опять - двадцать пять!
Ты уже задавала такой вопрос.
Если забыла - смотри ниже под твоим ником тема HELP...
И поставь, наконец у Query RequestLive в True...

[Таня84]

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

Опять - двадцать пять!
Ты уже задавала такой вопрос.
Если забыла - смотри ниже под твоим ником тема HELP...
И поставь, наконец у Query RequestLive в True...

Просто мне никто не смог тогд помочь

[Speeker]

Татьяна, это не повод создавать новую тему с таким же вопросом. Пришлите пожалуйста заархивированый исходник, посмотрим что можно сделать...