AfterInsert (Delphi)

Description

This example updates a memo with a message when an AfterInsert event or a BeforeInsert event occurs.

Code

procedure TForm1.ClientDataSet1AfterInsert(DataSet: TDataSet);
begin
   Memo2.Lines.Add('After inserting a record');
end;

procedure TForm1.ClientDataSet1BeforeInsert(DataSet: TDataSet);
begin
   Memo2.Lines.Add('Before inserting a record');
end;

Uses

• Data.DB.TDataSet.AfterInsert ( fr | de | ja )
• Data.DB.TDataSet.BeforeInsert ( fr | de | ja )

See Also

• Adding New Records