[Andrew_MSK]

Код:

procedure TDataModule1.ZQuery_rabzona1BeforePost(DataSet: TDataSet);
begin
  with DataModule1.ZQuery_rabzona1 do
  begin
  FieldByName('REGLAMENT').AsString:= FieldByName('REGLAM_RAB').AsString+' '
  +FieldByName('ELECTROMONTER').AsString+' '+FieldByName('INGENER').AsString+' '
  +FieldByName('REGLAMENT').AsString;
  end;

end;

так тоже работает и дополняет данные к существующему значению!!!!!
УРРРРААААААААА!!!!!

[Andrew_MSK]

но при каждой записи формы.... он добавляет значения в поле....
нужно сделать что-то типа

Код:

if FieldByName('REGLAMENT').IsNull=False then

для всех трех полей....

[Andrew_MSK]

но при каждой записи формы.... он добавляет значения в поле....
нужно сделать что-то типа

Код:

if FieldByName('REGLAMENT').IsNull=False then

для всех трех полей....
чтобы данные добавлялись только в случае изменения dbedit.....

[NumLock]

проверяй изменились ли поля:

Код:

if Table1.FieldByName('ELECTROMONTER').OldValue<>Table1.FieldByName('ELECTROMONTER').NewValue then

[Andrew_MSK]

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

проверяй изменились ли поля:

Код:

if Table1.FieldByName('ELECTROMONTER').OldValue<>Table1.FieldByName('ELECTROMONTER').NewValue then

не работает (не добавляет данные, хотя меняю даты)

Код:

procedure TDataModule1.ZQuery_rabzona1BeforePost(DataSet: TDataSet);
begin
  with DataModule1.ZQuery_rabzona1 do
  begin
   if FieldByName('REGLAM_DATE').OldValue<>FieldByName('REGLAM_DATE').NewValue then
      with  DataModule1.ZQuery_rabzona1 do
   begin
      FieldByName('REGLAMENT').AsString:= FieldByName('REGLAM_RAB').AsString+' '
     +FieldByName('ELECTROMONTER').AsString+' '+FieldByName('INGENER').AsString+' '
     +FieldByName('REGLAM_DATE').AsString+' '+FieldByName('REGLAMENT').AsString+';';
   end;

  end;
end;

[Andrew_MSK]

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

не работает (не добавляет данные, хотя меняю даты)

отладчиком проверил что компонент beforpost не меняет значение поля...после его визуального изменения...

Код:

 o:= FieldByName('REGLAM_DATE').OldValue;
  n:= FieldByName('REGLAM_DATE').NewValue;
  if o <> n then

и o и n равные одной и той же дате, даже если я ее изменил...и нажал записать.....

есть варианты решения?????

[NumLock]

в BeforeEdit запоминать первоначальные значения полей. в BeforeInsert соотв. обнулять.

[Andrew_MSK]

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

в BeforeEdit запоминать первоначальные значения полей. в BeforeInsert соотв. обнулять.

мне нужно сравнить значения в одном поле перед изменением и после...
значение перед изменением это то, что в БД, как поймать значение после изменения....
как сравнить эти два значения..когда они в разных процедурах???
я не знаю((( можно пример???

[NumLock]

Код:

type
  TForm1 = class(TForm)
    DataSource1: TDataSource;
    DBGrid1: TDBGrid;
    Table1: TTable;
    procedure Table1BeforePost(DataSet: TDataSet);
    procedure Table1BeforeEdit(DataSet: TDataSet);
  private
    { Private declarations }
    F0: String;

procedure TForm1.Table1BeforePost(DataSet: TDataSet);
begin
  if F0<>Table1.Fields[0].AsString then
    ShowMessage('<>');
end;

procedure TForm1.Table1BeforeEdit(DataSet: TDataSet);
begin
  F0:=Table1.Fields[0].AsString;
end;