Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Кто подскажет, как после выполнения процедуры поис, Добавление записи с помощью DBNavigator  
:(
    Опции темы
TBC
Дата 18.10.2007, 18:57 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 186
Регистрация: 5.8.2006
Где: Южный Урал

Репутация: нет
Всего: нет



Кто подскажет, как после выполнения процедуры поиска,
представленной ниже, можно производить изменения, или дополнения 
в записи с помощью 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;
--------------------
http://cadcamkbm.com - 1-я в мире интеллектуальная система-автоматhttp://cnconline.ru - ЧПУ программа в автомате с DXF. Нет ни у кого в мире!
PM MAIL WWW   Вверх
ALeXandrK
Дата 18.10.2007, 22:15 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 342
Регистрация: 31.1.2007
Где: Санкт-Петербург

Репутация: 2
Всего: 6



А это
Код

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

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


--------------------
Богат не/ни тот, у кого много, а тот, кому хватает
PM WWW   Вверх
  
Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: Базы данных и репортинг"
Vit
Петрович

Запрещено:

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами


Обязательно указание:

1. Базы данных (Paradox, Oracle и т.п.)

2. Способа доступа (ADO, BDE и т.д.)


  • Литературу по Дельфи обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Дельфи
  • Вопросы по SQL и вопросы по базам данных не связанные с Дельфи задавать здесь

FAQ раздела лежит здесь!


Если Вам помогли и атмосфера форума Вам понравилась, то заходите к нам чаще! С уважением, Vit, Петрович.

 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Delphi: Базы данных и репортинг | Следующая тема »


 




[ Время генерации скрипта: 0.0998 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.