Devart Forums

Code: Select all

//step 1:
procedure TForm1.UniTable1BeforePost(DataSet: TDataSet);
begin
  DataSet.FieldByName('UTI_ID').AsString := FUserLogin;
end;
 
//step 2:
procedure TForm1.UniTable1AfterPost(DataSet: TDataSet);
begin
  UniAlerter1.SendEvent('TR_AFTER_UPD', ' RecNo = ' + IntToStr(DataSet.RecNo) +
     ' UserLogin = ' + DataSet.FieldByName('UTI_ID').AsString); // Sends an event with Name and content Message. 
end;
 
//step3:
procedure TForm1.UniAlerter1Event(Sender: TDAAlerter; const EventName,
  Message: string);
begin
  if (EventName = 'TR_AFTER_UPD') then
    Memo1.Lines.Add(Message + '  ' + IntToStr(Application.Handle));
end;