Tabellen anlegen lassen über TDatabaseManager

[marcibaer]

Hallo zusammen,

nachdem ich der Zugriff auf die Datenbank hinbekommen habe, habe ich nun versucht, die Tabellen automatisch generieren zu lassen, was aber nicht funktioniert. die DB bleibt leer ...
GetEntities() inTDatabaseManager.Create liefert eine leere Liste zurück, obwohl ich ja 2 Entities definiert habe!

Die Tabellen sehen dabei wie folgt aus (nur zu Testzwecken):

Delphi-Quellcode:

  [Entity]
  [Table('Customers')]
  TCustomer = class
  private
    [Column('CUSTID', [cpRequired, cpPrimaryKey])][AutoGenerated]
    FId: Integer;
    //[OneToMany(false, [ckCascadeAll])]
    FName: string;
    FAge: Integer;
    FLastEdited: TDateTime;
    FEmail: string;
  public
    property ID: Integer read FId;
    [Column] property Name: string read FName write FName;
    [Column('Age',[],3,0)] property Age: Integer read FAge write FAge;
    [Column] property LastEdited: TDateTime read FLastEdited write FLastEdited;
    [Column('Mail',[],50)] property EMail: string read FEmail write FEmail;
  end;

  [Entity]
  [Table('Orders')]
  TOrder = class
  private
    [Column('ORDID', [cpRequired, cpPrimaryKey])][AutoGenerated]
    FId: Integer;
    [Column('CUSTID', [cpRequired, cpNotNull])]
    FCustomerId: Integer;
    //[ForeignJoinColumn('CUSTID','Customers','FId',[fsOnDeleteCascade])]
    FOrderDate: TDate;
  public
    property ID: Integer read FId;
    property CustomerId: Integer read FCustomerId write FCustomerId;
    [Column] property OrderDate: TDate read FOrderDate write FOrderDate;
  end;

Angelegt werden soll das Ganze folgendermaßen:

Delphi-Quellcode:

var
  Connection: TZConnection;
  Adapter: IDBConnection;
  Session: TSession;
  LDBManager: TDatabaseManager;
begin
  Connection := TZConnection.Create(nil);
  with Connection do
    begin
      Port := 1224;
      HostName := '1.2.3.4';
      User := 'Ich';
      Password := 'Keins';
      Database := 'MyDB';
      Protocol := 'mysql';
    end;
  Adapter := TZeosConnectionAdapter.Create(Connection);
  with Adapter do
    begin
      QueryLanguage := qlMySQL;
      Connect;
    end;
  LDBManager := TDatabaseManager.Create(Adapter);
  try
    LDBManager.BuildDatabase;
  finally
    LDBManager.Free;
  end;

Zusätzliche Frage: sind die beiden auskommentierten Attribute korrekt und an der richtigen Stelle, um einen Foreign Key zu setzen?

Vielen Dank für Eure Hilfe,

Marc