Поиск в БД

[Sweta]

Подскажите пожалуйста, как решить следующую проблему.
По нажатию кнопи выполняется поиск по БД с использованием следующего запроса

ssql:='SELECT * FROM vuz_bd';
begin
  Query1.Active:=false;
  Query1.SQL.Clear;
  Query1.SQL.Add(ssql);
  Query1.Active:=true;
  if not Query1.Locate('Sys_kod',Edit1.Text,[])
  then
  ShowMessage('Запись не найдена');
end;

Находится первая запись. Как сделать, чтобы при следующем нажатии находилась следующая?

[Stilet]

Как сделать, чтобы при следующем нажатии находилась следующая?

Вынеси

ssql:='SELECT * FROM vuz_bd';
begin
  Query1.Active:=false;
  Query1.SQL.Clear;
  Query1.SQL.Add(ssql);
  Query1.Active:=true;

В другой обработчик (какой-нить скажем в OnCreate формы)
А в клике кнопки оставь только

 if not Query1.Locate('Sys_kod',Edit1.Text,[])
  then
  ShowMessage('Запись не найдена');

[Sweta]

Спасибо, но не помогло.

К сожалению это тоже ищет только первую запись.
Может где-то необходимо что-то проверить или установить, чтобы
найти следующую.

procedure TForm1.Button3Click(Sender: TObject); 
  begin
  if Edit1.Text > '' then
  begin
  if not Query1.Locate('Sys_kod',Edit1.Text,[])
  then
  ShowMessage('Запись не найдена');
 end
end;

[quit]

Бегайте по кверине и сравнивайте со значением

[Stilet]

Света, вообше то Locate капризный метод.
Я обычно просто в цикле проходу по записям начиная от текущей и сравниваю нужное поле - так дешевле выходит.

[Sweta]

Спасибо. Буду разбираться. Но теперь у меня следующий вопрос. Почему появляется ошибка по следующему запросу

procedure TForm1.Edit1Change(Sender: TObject);
var s : AnsiString;
begin
if  CheckBox1.Checked then
  begin
  if Edit1.Text > '' then
  begin
  Query1.Active:=false;
  Query1.Active:=false;
  Query1.SQL.Clear;
  ssql:='SELECT * FROM vuz_bd';
  s := 'WHERE Sys_kod like ''' + '*'+ Edit1.Text + '*''' ;
  Query1.SQL.Add(ssql);
  Query1.SQL.add(s);
  Query1.Open;
  end
  end;
end;

Т.е мне необходимо, чтобы пользователь в Edit1 вводил цифру и по запросу выводились все записи содержащие данную цифру

[Stilet]

Может вместо * нужно % ставить?
Ошибка то какая? Текст где?

[Sweta]

% ставить нельзя, он относится к String, а у меня поле число.

[grom333]

Мне понравился вот этот поиск, только он без баттонов, сразу с первого символа ищет.

procedure TForm1.RzEdit1KeyUp(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin

    with ADOQuery1 do begin
       Close;
       SQL.Clear;
       SQL.Add('SELECT DISTINCT Фамилия,Улица,дом,телефон FROM tab1');
       SQL.Add('WHERE Фамилия LIKE'+quotedstr(rzedit1.text+'%'));
       SQL.Add('ORDER BY Фамилия');
       Open;
end;
  end;

[Sweta]

Дело в том, что при поиске по символьным полям у меня вопроса не возникает, а вот по числовым..
Мне хотелось чтобы было аналогично как с символьными. Т.е ввожу в Edit к примеру 1, и после выполнения запрса у меня появляются данные
начинающиеся с 1. и т.д.