Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Получить предыдушее поле, ADO Access 
V
    Опции темы
AlanFree
Дата 1.11.2006, 15:21 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


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

Репутация: нет
Всего: нет
У меня есть грид в нем есть поле Kol_Vo после изменение его значения мне нужно выполнить определенный код.
Я для этого использую событие DataChange
Код

procedure TFrmNakPrih.DataSourceDataChange(Sender: TObject; Field: TField);
begin
  if // сдесь нужно получить поле которое было только что активным
  With ADOQuery do
  begin
  SQL.Clear;
  SQL.Add('UPDATE Nak_Prih Set Sum_Opt=:PrmOpt, Sum_Rozn=:PrmRozn');
  Parameters.ParseSQL(SQL.Text, true);
  Parameters.ParamByName('PrmOpt').Value:='5';
  Parameters.ParamByName('PrmRozn').Value:='6';
  ExecSQL;
  end;
end;

end.

Как мне  получить поле которое было только что активным?
Или есть еще какой то способ что бы мне почучить событие после обновления поля Kol_Vo ?
PM MAIL   Вверх
Rodman
Дата 1.11.2006, 16:27 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


CIO
****


Профиль
Группа: Участник
Сообщений: 6144
Регистрация: 7.5.2006
Где: Ukraine ⇛ Kyiv ci ty

Репутация: 22
Всего: 122
а нельзя ли
сделай глобальную переменную типа


Код

var LastCode:String;
...
procedure TFrmNakPrih.DataSourceDataChange(Sender: TObject; Field: TField);
begin
  if (Length(LastCode)>0)then
begin
  With ADOQuery do
  begin
  SQL.Clear;
  SQL.Add('UPDATE Nak_Prih Set Sum_Opt=:PrmOpt, Sum_Rozn=:PrmRozn');
  Parameters.ParseSQL(SQL.Text, true);
  Parameters.ParamByName('PrmOpt').Value:='5';
  Parameters.ParamByName('PrmRozn').Value:='6';
  ExecSQL;
  end;
end;
LastCode:=NewCode;
end;



--------------------

Лотереи мира
PM MAIL WWW Skype GTalk YIM MSN   Вверх
AlanFree
Дата 1.11.2006, 16:58 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


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

Репутация: нет
Всего: нет
И еще вопрос.
Сужествует ли событие в гриде которое происходило бы после обновления поля но до того как поле потеряло фокус?
PM MAIL   Вверх
Akella
Дата 1.11.2006, 17:04 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Творец
****


Профиль
Группа: Модератор
Сообщений: 18485
Регистрация: 14.5.2003
Где: Корусант

Репутация: 29
Всего: 329
один топик -один вопрос smile 
PM MAIL   Вверх
AlanFree
Дата 1.11.2006, 17:08 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


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

Репутация: нет
Всего: нет
Akella,  ок
PM MAIL   Вверх
Akella
Дата 1.11.2006, 17:10 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Творец
****


Профиль
Группа: Модератор
Сообщений: 18485
Регистрация: 14.5.2003
Где: Корусант

Репутация: 29
Всего: 329
наверное нет, но можно заставить юзеров для подтверждения сохранения нажмить Enter, тогда
Код

procedure TForm1.DBGrid1KeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
begin
  if key = vk_return then begin
    что-то делаем
  end;//if
end;


Добавлено @ 17:11 
данные обновились, но фокус ввода ещё не потеряли
PM MAIL   Вверх
AlanFree
Дата 1.11.2006, 17:20 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


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

Репутация: нет
Всего: нет
Akella,  пасибо попробую
PM MAIL   Вверх
  
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "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.0493 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


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

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