Вычисление поля delphi

@xxbesoxx · Регистрация: 13.02.2009

Author24 — интернет-сервис помощи студентам

Добрый утро ребята. Access подключение на Delphi2010 при помощи ADOConnection1, ADOTable1, DataSource1, в Таблице ест 5 поля: К-во, Цена, Скидка, Цена_итого, Процент в Delphi делал второе форма для добавленная Edit1-К-во Edit2.- Цена Edit3- Скидка, после добавление мне надо что таблица делал следующий математически операции .

1. К-во * Цена = Цена_итого
2. Цена_итого /100*Скидка= Процент
3. Цена_итого - Процент = Цена_итого

Для этого пишу на кнопке

Delphi

procedure TForm1.BitBtn2Click(Sender: TObject);
begin
Form1.Adotable1.Edit;
ADOTable1.FieldByName('Цена_итого').Value := ADOTable1.FieldByName('Цена').Value * ADOTable1.FieldByName('К-во').AsFloat;
ADOTable1.FieldByName('Процент').Value := ADOTable1.FieldByName('Цена_итого').Value /100 * ADOTable1.FieldByName('Скидка').AsFloat;
ADOTable1.FieldByName('Цена_итого').Value := ADOTable1.FieldByName('Цена_итого').Value - ADOTable1.FieldByName('Процент').AsFloat;
Adotable1.Post;
 
end;

Работает да это код выполняет это операцию , Но мне надо что без кнопку после добавление, DBGrid перечитал автоматически. и как это реализовать ?

@malenkaya · 18.04.2012, 10:37

Delphi

if adotable1.Modified=true then begin
ADOTable1.FieldByName('Цена_итого').Value := ADOTable1.FieldByName('Цена').Value * ADOTable1.FieldByName('К-во').AsFloat;
ADOTable1.FieldByName('Процент').Value := ADOTable1.FieldByName('Цена_итого').Value /100 * ADOTable1.FieldByName('Скидка').AsFloat;
ADOTable1.FieldByName('Цена_итого').Value := ADOTable1.FieldByName('Цена_итого').Value - ADOTable1.FieldByName('Процент').AsFloat;
Adotable1.Post;
end;

Добавлено через 53 секунды
событие может любым

@perepe4a · 18.04.2012, 11:04

А SQL запрос написать, не?

@malenkaya · 18.04.2012, 11:16

мне не понятен ваш вопрос, зачем SQL, если у вас ADOTable а не ADOQuery

@perepe4a · 18.04.2012, 11:20

Зачем использовать adoTable ?

@xxbesoxx · 18.04.2012, 14:55 **[ТС]**

Сообщение от malenkaya

Delphi

if adotable1.Modified=true then begin
ADOTable1.FieldByName('Цена_итого').Value := ADOTable1.FieldByName('Цена').Value * ADOTable1.FieldByName('К-во').AsFloat;
ADOTable1.FieldByName('Процент').Value := ADOTable1.FieldByName('Цена_итого').Value /100 * ADOTable1.FieldByName('Скидка').AsFloat;
ADOTable1.FieldByName('Цена_итого').Value := ADOTable1.FieldByName('Цена_итого').Value - ADOTable1.FieldByName('Процент').AsFloat;
Adotable1.Post;
end;

Добавлено через 53 секунды
событие может любым

после это if adotable1.Modified=true then begin программа не выполняет нечего, код который я выложил он работает но мне интересно ! когда добавляю запись что программа без не какого нажать кнопки сам выполнял это операция

Добавлено через 2 часа 46 минут
помочь не кто не сможет ?

@malenkaya · 18.04.2012, 15:09

Сообщение от xxbesoxx

после это if adotable1.Modified=true then begin программа не выполняет нечего, код который я выложил он работает но мне интересно ! когда добавляю запись что программа без не какого нажать кнопки сам выполнял это операция

Добавлено через 2 часа 46 минут
помочь не кто не сможет ?

Delphi

1	if (adotable1.Modified=true) then begin

попробуй так

@Lord_Voodoo · 18.04.2012, 15:16

xxbesoxx, а мне вот интересно, зачем держать три поля, если для вычисления значений двух из них достаточно значнения из третьего поля? зачем такая избыточность?

@xxbesoxx · 18.04.2012, 15:21 **[ТС]**

Сообщение от malenkaya

Delphi

1	if (adotable1.Modified=true) then begin

попробуй так

Вы код который здесь вставляете проверили у вас работает ????

Добавлено через 3 минуты

Сообщение от Lord_Voodoo

xxbesoxx, а мне вот интересно, зачем держать три поля, если для вычисления значений двух из них достаточно значнения из третьего поля? зачем такая избыточность?

Как вы предлагаете реализовать это ? Что вы меня советуйте ?

@perepe4a · 18.04.2012, 15:23

Сообщение от xxbesoxx

Как вы предлагаете реализовать это ? Что вы меня советуйте ?

ADOQUERY и SQL

Комментарий администратора

надеюсь, я правильно понял ваш посыл топикстартеру

@Lord_Voodoo · 18.04.2012, 15:32

xxbesoxx, да все элементарно просто, убери лишнее поле в таблице "Процент", а дальше:
1) такой код будет работать, если позиционирование будет по ДБГриду, а данная таблица - его источник данных

Delphi

if ADOTable1.Active = true then // точно не помню уже паскаля, поэтому не судите за индокод
var: 
  sum : Double;
begin
ADOTable1.Edit; 
sum := ADOTable1.FieldByName('Цена').Value * ADOTable1.FieldByName('К-во').AsFloat;
sum := (1.0 - ADOTable1.FieldByName('Скидка').AsFloat) * sum;
ADOTable1.FieldByName('Цена_итого').Value := sum;
ADOTable1.Post;
end;

а еще лучше сделать это по средствам параметризированного запроса (если не знаете, что сие, поиск по форуму) на обновление. Я бы даже сказал, настоятельно прошу использовать именно запрос

@xxbesoxx · 18.04.2012, 15:50 **[ТС]**

Сообщение от Lord_Voodoo

xxbesoxx, да все элементарно просто, убери лишнее поле в таблице "Процент", а дальше:
1) такой код будет работать, если позиционирование будет по ДБГриду, а данная таблица - его источник данных

Delphi

if ADOTable1.Active = true then // точно не помню уже паскаля, поэтому не судите за индокод
var: 
  sum : Double;
begin
ADOTable1.Edit; 
sum := ADOTable1.FieldByName('Цена').Value * ADOTable1.FieldByName('К-во').AsFloat;
sum := (1.0 - ADOTable1.FieldByName('Скидка').AsFloat) * sum;
ADOTable1.FieldByName('Цена_итого').Value := sum;
ADOTable1.Post;
end;

а еще лучше сделать это по средствам параметризированного запроса (если не знаете, что сие, поиск по форуму) на обновление. Я бы даже сказал, настоятельно прошу использовать именно запрос

Огромное вам спасибо за внимание ! извиняться что я вас отвлекал, вечером попробую SQL Запрос и напишу как получится

@xxbesoxx · 19.04.2012, 20:19 **[ТС]**

Сообщение от xxbesoxx

Огромное вам спасибо за внимание ! извиняться что я вас отвлекал, вечером попробую SQL Запрос и напишу как получится

Огромное всем спасибо кто пытался меня помочь . Очень помогло это статья http://devdelphi.ru/?p=1229 от это примере уже дальше всю ясно .

@perepe4a 39 / 71 / 10 Регистрация: 03.02.2012 Сообщений: 362
	18.04.2012, 11:04	3
	А SQL запрос написать, не? 0

@malenkaya 23 / 23 / 12 Регистрация: 13.09.2010 Сообщений: 88
	18.04.2012, 11:16	4
	мне не понятен ваш вопрос, зачем SQL, если у вас ADOTable а не ADOQuery 0

@perepe4a 39 / 71 / 10 Регистрация: 03.02.2012 Сообщений: 362
	18.04.2012, 11:20	5
	Зачем использовать adoTable ? 0

@Lord_Voodoo Супер-модератор 8783 / 2536 / 144 Регистрация: 07.03.2007 Сообщений: 11,873
	18.04.2012, 15:16	8
	xxbesoxx, а мне вот интересно, зачем держать три поля, если для вычисления значений двух из них достаточно значнения из третьего поля? зачем такая избыточность? 0