|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
07.02.2007, 18:01 | #1 |
Пользователь
Регистрация: 20.01.2007
Сообщений: 38
|
Поиск по базе
У меня одна вещь никак не получается.
У меня в базе данных две одинаковые фамилии, а после поиска отображается только одна. Кнопки "Следующая запись" и "Предыдущая запись" не активны и никак не реагируют на нажатие после выполнения поиска. Поиск выполняю через 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 |
08.02.2007, 01:56 | #2 |
*
Старожил
Регистрация: 22.11.2006
Сообщений: 9,201
|
Опять - двадцать пять!
Ты уже задавала такой вопрос. Если забыла - смотри ниже под твоим ником тема HELP... И поставь, наконец у Query RequestLive в True... |
08.02.2007, 11:09 | #3 |
Пользователь
Регистрация: 20.01.2007
Сообщений: 38
|
|
09.02.2007, 10:53 | #4 |
Форумчанин
Регистрация: 01.12.2006
Сообщений: 241
|
Татьяна, это не повод создавать новую тему с таким же вопросом. Пришлите пожалуйста заархивированый исходник, посмотрим что можно сделать...
Програмисты - единственные люди, которым платят за исправления их же ошибок
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
апят пра поиск в базе данных | bmb_66 | БД в Delphi | 0 | 14.03.2008 17:38 |
Поиск по базе данных | ERASERROR | БД в Delphi | 4 | 14.03.2008 16:34 |
Поиск по базе | Антон Шестаков | БД в Delphi | 1 | 22.01.2008 20:32 |
Поиск в базе по значению в Edit | Arteom | БД в Delphi | 2 | 19.10.2007 22:23 |