mORMot Open Source

TPessoa = class;
TPessoaFisica = class;
TPessoasFisicas = class;

TPessoa = class(TSQLRecord)
private
   fnome: string;
   fapelido: string;
   fpessoasfisicas: TPessoasFisicas;
published
   property nome: string read fnome write fnome;
   property fapelido: string read fapelino write fapelido;
   property fpessoasfisicas: TPessoasFisicas read fpessoasfisicas write fpessoasfisicas;
end;

TPessoaFisica = class(TSQLRecord)
private
  fnascimento: TDateTime;
  fpessoa: TPessoa;
published
  property nascimento: TDateTime read fnascimento write fnascimento;
  property pessoa: TPessoa read fpessoa write fpessoa;
end;

TPessoasFisicas = class(TSQLRecordMany)
private
  fsource: TPessoa;
  fdest: TPessoaFisica;
published
  property source: TPessoa read fsource write fsource;
  property dest: TPessoaFisica read fdest write fdest;
end;