Событие OnDataChange

@Евгений Стронг · Регистрация: 19.01.2015

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

Всем доброй ночи! В одном из Datasource, в событии OnDataChange прописан необходимый код. Данное событие вызывается при изменении значения данных. Подскажите, каким образом мне вызвать эту процедуру?

Delphi

1	OnDateChange(Sender : TObject; Field : TField)

TObject я так понимаю это сам Дата модуль, его имя, а Field - это поле, но каким образом мне его указать? Я же хочу передать имя поля, по которому будут происходить изменения, а компилятор ругается, что нужен тип TField. Подскажите/научите, как правильно передавать подобные значения?

@GreeNicee · 01.05.2015, 06:27

Delphi

1	DateChange(DataSource,DataSource.FieldAddress({название}));

?)

@northener · 01.05.2015, 12:49

Сообщение от Евгений Стронг

Подскажите, каким образом мне вызвать эту процедуру?

Зачем её вызывать самому?

@Евгений Стронг · 01.05.2015, 14:35 **[ТС]**

Имеются два datasource, в первом добавляются записи, а во втором происходят вычисления. Второй должен реагировать на изменения в первом, что собственно он и делает в событии OnDataChange. Но проблема в том, что реагирует только тогда, когда изменяется значение поля, но если же я просто добавляю запись, то процедура не запускается. Запись добавляется уже со значениями по умолчанию, т.е. по сути есть уже что пересчитать. И вот я думал запускать эту процедуру после добавления записи, чтобы пересчитывались значения. Запустил... но они не пересчитываются... Все равно реагирует только на редактирование поля. Я считал, что когда запись добавляется со значением, запустив эту процу, она сработает. Не подскажешь, как ещё можно это сделать? Или быть может ещё какое-то событие есть, которое бы реагировало и на добавление записи?

@northener · 01.05.2015, 14:54

Сообщение от Евгений Стронг

Имеются два datasource, в первом добавляются записи, а во втором происходят вычисления.

Это опечатка или что? В datasource не добавляются записи. И никогда ничего не пересчитывается. Это всего лишь окошко, через которое видно активную запись в наборе данных.

@Евгений Стронг · 01.05.2015, 15:01 **[ТС]**

Ну это я образно написал. Записи я на самом деле добавляю вообще через query, с помощью sql. А набор данных просто перечитываю с помощью Requery.

@northener · 01.05.2015, 15:06

Сообщение от Евгений Стронг

Ну это я образно написал.

Не надо писать образно.

Сообщение от Евгений Стронг

Записи я на самом деле добавляю вообще через query, с помощью sql. А набор данных просто перечитываю с помощью Requery.

Ну так вот и сам ответил что и как нужно сделать. Добавил новую запись или изменил старую - вызывай Requery. А событие OnDataChange тут совсем и не при чем. Тем более что оно вызывается всякий раз когда происходит просто движение по набору данных, когда и пересчитывать ничего не надо.

@Евгений Стронг · 01.05.2015, 15:56 **[ТС]**

У меня не все так просто реализовано. Вот давай код скину, может так станет ясно.

Delphi

procedure TDM.dsFoodSostavDataChange(Sender: TObject; Field: TField);
var
recno : Integer;
begin
  // Если внесли изменения в ячейку, то обновляем данные и переносим курсор на ту же строку, где мы и были
  if dsFoodSostav.DataSet.Modified
    then
      begin
        recno := dsFoodSostav.DataSet.RecNo;
        dsFoodSostav.DataSet.Post;
        DM.qryFoodSostav.Requery();
        dsFoodSostav.DataSet.RecNo := recno;
        // Обновляем сумму БЖУ в питании
        DBSumFood.Active := True;
        DM.qrySQL.Close;
        DM.qrySQL.SQL.Text := 'update food set protein = :protein, fat = :fat, carbo = :carbo, cal = :cal '+
        'where id = :id';
        DM.qrySQL.Parameters.ParamByName('protein').Value := DBSumFood.SumCollection.Items[0].SumValue;
        DM.qrySQL.Parameters.ParamByName('fat').Value := DBSumFood.SumCollection.Items[1].SumValue;
        DM.qrySQL.Parameters.ParamByName('carbo').Value := DBSumFood.SumCollection.Items[2].SumValue;
        DM.qrySQL.Parameters.ParamByName('cal').Value := DBSumFood.SumCollection.Items[3].SumValue;
        DM.qrySQL.Parameters.ParamByName('id').Value := foodid;
        DM.qrySQL.ExecSQL;
 
        DBSumFood.Active := False;
 
        DM.qryFood.Refresh;
        MAIN.DBGridEh4.Row := DM.dsFood.DataSet.RecNo;
 
     end;
 
end;

А вот так добавляются данные, двойной клик в гриде на строку. Закомменченная строка - это и есть то, что я спрашивал. Но с ней все равно не происходит пересчет.:

Delphi

procedure TMAIN.DBGridEh6DblClick(Sender: TObject);
begin
 
  DM.qrySQL.Close;
  DM.qrySQL.SQL.Text := 'insert into foodsostav (food_id,protein,fat,carbo,cal,sprfood_id,foodnb,gramm,tm) '+
  'values (:food_id,:protein,:fat,:carbo,:cal,:sprfood_id,:foodnb,:gramm,:tm)';
  DM.qrySQL.Parameters.ParamByName('food_id').Value := foodid;
  DM.qrySQL.Parameters.ParamByName('protein').Value := DM.dsSprFood.DataSet.FieldByName('protein').AsFloat;
  DM.qrySQL.Parameters.ParamByName('fat').Value := DM.dsSprFood.DataSet.FieldByName('fat').AsFloat;
  DM.qrySQL.Parameters.ParamByName('carbo').Value := DM.dsSprFood.DataSet.FieldByName('carbo').AsFloat;
  DM.qrySQL.Parameters.ParamByName('cal').Value := DM.dsSprFood.DataSet.FieldByName('cal').AsFloat;
  DM.qrySQL.Parameters.ParamByName('sprfood_id').Value := DM.dsSprFood.DataSet.FieldByName('id').AsInteger;
  DM.qrySQL.Parameters.ParamByName('foodnb').Value := sDecimalSpinEdit1.Value;
  DM.qrySQL.Parameters.ParamByName('gramm').Value := 100;
  DM.qrySQL.Parameters.ParamByName('tm').Value := dtp1.DateTime;
  DM.qrySQL.ExecSQL;
 
  DM.qryFoodSostav.Requery();
 
  //DM.dsFoodSostav.OnDataChange(DM.dsFoodSostav, DM.dsFoodSostav.FieldAddress('gramm'));
 
end;

DBSumFood - это компонент от Ehlib, который считает сумму по конкретному полю, всех значений. Таких полей несколько.

@Евгений Стронг · 01.05.2015, 16:04 **[ТС]**

Вот два скрина. На первом добавляется продукт, но общая сумма не обновляется. На втором скрине я поменял граммы со 100 на 50 и сумма пересчиталась.

@Евгений Стронг · 01.05.2015, 17:00 **[ТС]**

Вероятней всего вот это условие мешает пересчитать

Delphi

1	if dsFoodSostav.DataSet.Modified

Но и его убрать нельзя, так как перемещаясь по строкам, ругается, что нечего менять, что датасет закрыт. Ну и это в принципе верно. К чему лишние запросы кидать, когда данные не поменялись.

Добавлено через 27 минут
Что-то я только сейчас догнал. А почему бы после двойного клика просто не выполнить:

Delphi

  DBSumFood.Active := True;
        DM.qrySQL.Close;
        DM.qrySQL.SQL.Text := 'update food set protein = :protein, fat = :fat, carbo = :carbo, cal = :cal '+
        'where id = :id';
        DM.qrySQL.Parameters.ParamByName('protein').Value := DBSumFood.SumCollection.Items[0].SumValue;
        DM.qrySQL.Parameters.ParamByName('fat').Value := DBSumFood.SumCollection.Items[1].SumValue;
        DM.qrySQL.Parameters.ParamByName('carbo').Value := DBSumFood.SumCollection.Items[2].SumValue;
        DM.qrySQL.Parameters.ParamByName('cal').Value := DBSumFood.SumCollection.Items[3].SumValue;
        DM.qrySQL.Parameters.ParamByName('id').Value := foodid;
        DM.qrySQL.ExecSQL;
 
        DBSumFood.Active := False;
 
        DM.qryFood.Refresh;

И нет проблем... Всем спасибо!

@northener пофигист широкого профиля 4733 / 3167 / 859 Регистрация: 15.07.2013 Сообщений: 18,252
	01.05.2015, 12:49	3
	Сообщение от Евгений Стронг Подскажите, каким образом мне вызвать эту процедуру? Зачем её вызывать самому? 1

@Евгений Стронг 0 / 0 / 0 Регистрация: 19.01.2015 Сообщений: 62
	01.05.2015, 14:35 [ТС]	4
	Имеются два datasource, в первом добавляются записи, а во втором происходят вычисления. Второй должен реагировать на изменения в первом, что собственно он и делает в событии OnDataChange. Но проблема в том, что реагирует только тогда, когда изменяется значение поля, но если же я просто добавляю запись, то процедура не запускается. Запись добавляется уже со значениями по умолчанию, т.е. по сути есть уже что пересчитать. И вот я думал запускать эту процедуру после добавления записи, чтобы пересчитывались значения. Запустил... но они не пересчитываются... Все равно реагирует только на редактирование поля. Я считал, что когда запись добавляется со значением, запустив эту процу, она сработает. Не подскажешь, как ещё можно это сделать? Или быть может ещё какое-то событие есть, которое бы реагировало и на добавление записи? 0

@northener пофигист широкого профиля 4733 / 3167 / 859 Регистрация: 15.07.2013 Сообщений: 18,252
	01.05.2015, 14:54	5
	Сообщение от Евгений Стронг Имеются два datasource, в первом добавляются записи, а во втором происходят вычисления. Это опечатка или что? В datasource не добавляются записи. И никогда ничего не пересчитывается. Это всего лишь окошко, через которое видно активную запись в наборе данных. 0

@Евгений Стронг 0 / 0 / 0 Регистрация: 19.01.2015 Сообщений: 62
	01.05.2015, 15:01 [ТС]	6
	Ну это я образно написал. Записи я на самом деле добавляю вообще через query, с помощью sql. А набор данных просто перечитываю с помощью Requery. 0

@northener пофигист широкого профиля 4733 / 3167 / 859 Регистрация: 15.07.2013 Сообщений: 18,252
	01.05.2015, 15:06	7
	Сообщение от Евгений Стронг Ну это я образно написал. Не надо писать образно. Сообщение от Евгений Стронг Записи я на самом деле добавляю вообще через query, с помощью sql. А набор данных просто перечитываю с помощью Requery. Ну так вот и сам ответил что и как нужно сделать. Добавил новую запись или изменил старую - вызывай Requery. А событие OnDataChange тут совсем и не при чем. Тем более что оно вызывается всякий раз когда происходит просто движение по набору данных, когда и пересчитывать ничего не надо. 1

@Евгений Стронг 0 / 0 / 0 Регистрация: 19.01.2015 Сообщений: 62
	01.05.2015, 16:04 [ТС]	9
	Вот два скрина. На первом добавляется продукт, но общая сумма не обновляется. На втором скрине я поменял граммы со 100 на 50 и сумма пересчиталась. Миниатюры 0

	01.05.2015, 17:00

Событие OnDataChange

Решение