Форум программистов
 
Контакты: о проблемах с регистрацией, почтой и по другим вопросам пишите сюда - alarforum@yandex.ru, проверяйте папку спам! Обязательно пройдите активизацию e-mail.

Вернуться   Форум программистов > Delphi > Lazarus, Free Pascal, CodeTyphon
Регистрация

Восстановить пароль
Повторная активизация e-mail


Ответ
 
Опции темы
Старый 08.09.2018, 16:05   #1
maxika
 
Регистрация: 16.11.2015
Сообщений: 5
Репутация: 10
По умолчанию Вычисляемое поле SQLQuery1

Здравствуйте, подскажите пожалуйста, как сделать автоматический рассчет вычисляемого поля SQLQuery1, при изменении другого числового поля.
Когда я это делаю:

procedure TForm1.SQLQuery1Поле1Change(Sender: TField);
begin
SQLQuery1.FieldByName('ВычислПоле') .AsInteger:=SQLQuery1.FieldByName(' Поле1').AsInteger * 2;
end;


Перестает работать функция авто сохранения данных:

procedure TForm1.SQLQuery1AfterPost(DataSet: TDataSet);
begin
SQLQuery1.ApplyUpdates;
end;


Пожалуйста подскажите что нужно исправить.
maxika вне форума   Ответить с цитированием
Старый 10.09.2018, 20:25   #2
xxbesoxx
Профессионал
 
Аватар для xxbesoxx
 
Регистрация: 10.08.2010
Адрес: Грузия Рустави
Сообщений: 1,274
Репутация: 628
Отправить сообщение для xxbesoxx с помощью Yahoo
По умолчанию

Не через OnChange а через OnCalcFields
Код:

procedure TForm1.SQLQuery1CalcFields(DataSet: TDataSet);
begin
 SQLQuery1.FieldByName('ВычислПоле').Value:= SQLQuery1.FieldByName(' Поле1').AsInteger * 2; 
end;

__________________
E_MAIL: rijgvina7@yahoo.com
xxbesoxx вне форума   Ответить с цитированием
Ответ

Опции темы

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.

Быстрый переход

Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Вычисляемое поле Ko$ Помощь студентам 6 31.10.2011 15:45
Вычисляемое поле dima_1983 Помощь студентам 0 31.10.2011 13:16
Вычисляемое поле BloodWizard SQL, базы данных 6 08.08.2010 12:12
Вычисляемое поле в таблице ACCESS, создать вычисляемое поля в таблице аксес artlayers Microsoft Office Access 2 04.11.2009 20:29


21:06.


Powered by vBulletin® Version 3.8.8 Beta 2
Copyright ©2000 - 2018, Jelsoft Enterprises Ltd.

RusProfile.ru


Справочник российских юридических лиц и организаций.
Проекты отопления, пеллетные котлы, бойлеры, радиаторы
интернет магазин respective.ru