Yes, I tried these:procedure TVisPerson_Create.Init;
begin
Query.SQLText:=
'Insert into person (PersonName, Age) ' +
'Values (:PersonName, :Age);' +
' SELECT LAST_INSERT_ID() As NewPersonID;';
end;
procedure TVisPerson_Create.AfterExecSQL;
var
personData: TPerson;
begin
personData:= Visited as TPerson;
personData.PersonID := FieldAsInteger['NewPersonID']; end;
I defined TVisPerson_Create = class(TtiVisitorUpdate).....Got a problem as
the AfterExecSQL was inherited from TtiVistorUpdate, this is not a virtual
method, I got a compilation error.So I need to modify tiOPF source code to
make it 'virtual'?In addition, AfterExecSQL has a parameter rowsaffected.
------------------------------------------------------------------------------
ThinkGeek and WIRED's GeekDad team up for the Ultimate
GeekDad Father's Day Giveaway. ONE MASSIVE PRIZE to the
lucky parental unit. See the prize list and enter to win:
http://p.sf.net/sfu/thinkgeek-promo
_______________________________________________
tiOPF-talk mailing list
[email protected]
https://lists.sourceforge.net/lists/listinfo/tiopf-talk
