I want to alter some field-values before the update of the query occurs.
Code: Select all
procedure TDataModule1.q_anredeBeforeUpdateExecute(
Sender: TCustomMSDataSet; StatementTypes: TStatementTypes;
Params: TMSParams);
begin
Sender.FieldByName('myfield').Text := 'test';
end;