Using Ancestor Class

[Ronald_Janse]

@Wagner R. Landgraf

You can use the following code to create a new property in a class with an attribute:

procedure OnClassGenerated(Args: TClassGeneratedArgs);
var
  Field: TCodeMemberField;
begin                                     
  Field := Args.CodeType.AddField('Fuserid', 'string', mvPrivate);
  Field.AddAttribute('Column').AddRawArgument('''userid''');
  Args.CodeType.AddProperty('userid', 'string', 'Fuserid', 'Fuserid', mvPublic);
end;

About the TObjectWithUserID I think it would be easier to just declare it in another unit, and just reference it from the unit Data Modeler generates?

Is it possible to add a unit to the uses clause in the script?
If that is possible I think I have everything I need. If not I will have to add it everytime I generate the Aurelius classes.