Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Базы данных и репортинг > Кто подскажет, как после выполнения процедуры поис

Автор: TBC 18.10.2007, 18:57

Кто подскажет, как после выполнения процедуры поиска,
представленной ниже, можно производить изменения, или дополнения
в записи с помощью DBNavigator? Эти кнопки после выполнения запроса
становятся неактивны.

procedure TForm1.Edit15KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
  var
  fam: string[30];
begin
fam:=Edit15.Text;
  with form1.Query1 do begin
           Close;       // закрыть файл-результат выполнения предыдущего запроса
           SQL.Clear;   // удалить текст предыдущего запроса
           // записываем новый запрос в свойство SQL
           SQL.Add('SELECT *');
           SQL.Add('FROM "::army2.db"');
           SQL.Add('WHERE');
           SQL.Add('(Famil Like "' + fam + '" + "%")');
           SQL.Add('ORDER BY Famil');
           Open;         // активизируем выполнение запроса

         end;
          if Query1.RecordCount <> 0 then
          DataSource1.DataSet:=Query1; // отобразить рез-т выполнения запроса

end;

Автор: ALeXandrK 18.10.2007, 22:15

А это

Код


if Query1.RecordCount <> 0 then
          DataSource1.DataSet:=Query1; // отобразить рез-т выполнения запроса

разве не лишнее... одного присвоения достаточно будет.