unit Customer;
interface
uses
  Aurelius.Mapping.Attributes;

type
  [Entity, Automapping]
  TCustomer = class
  private
    FId: integer;
    FName: string;
  public
    property Id: integer read FId write FId;
    property Name: string read FName write FName;
  end;

implementation
end.

program GettingStarted;

{$APPTYPE CONSOLE}

uses
  Aurelius.Drivers.Interfaces,
  Aurelius.Drivers.SQLite,
  Aurelius.Engine.DatabaseManager,
  Aurelius.Engine.ObjectManager,
  Aurelius.SQL.SQLite,
  Customer;

var
  Connection: IDBConnection;
  Manager: TObjectManager;
  Customer: TCustomer;
begin
  Connection := TSQLiteNativeConnectionAdapter.Create('test.db');
  Manager := TObjectManager.Create(Connection);
  Customer := TCustomer.Create;
  Customer.Name := 'First customer';
  Manager.Save(Customer);
  Manager.Free;
  WriteLn('Customer saved.');
  ReadLn;
end.

procedure CreateDatabase(Connection: IDBConnection);
var
  DBManager: TDatabaseManager;
begin
  DBManager := TDatabaseManager.Create(Connection);
  DBManager.BuildDatabase;
  DBManager.Free;
end;

1. Friday, June 28, 2013 at 10:47:38 AM

É possível criar indices para a tabela? Por exemplo nesse caso um idice chamado
INDICE_CUSTOMER_NOME para o campo nome.

Pergunto isso por que tenho um projeto em que preciso criar uma estrutura de tabelas independente do banco de dados, só que se não criar indices para determinados campos a busca vai ficar muito lenta.

Rodolfo

3. Friday, August 16, 2013 at 11:14:11 PM

Caro Wagner boa noite!

Estou estudando o Aurelius com a versão do Delphi XE4, baixei um exemplo da clube delphi edição 151 e estou tendo problemas quando trabalho com TObjectList da System.Generics.Collections.

Esse exemplo traz uma classe produto e estou o trecho de código abaixo para obter todos produtos cadastrados.

procedure TForm1.Button1Click(Sender: TObject);
var
s: ISession;
p: TObjectList<TProduto>;
begin
s := TService.GetSession;
p := s.ObjectManager.FindAll<TProduto>;
AureliusDataset1.SetSourceList(p);
AureliusDataset1.open;
end;

Quando clico no botão o aurelius faz a pesquisa e chega a trazer os dados mas, ao utilizar o aureliusdataset com um datasource e uma grid estou recebendo uma serie de AV''s.

Estou montando um projeto onde varei um servidor datasnap com o aurelius e firedac, estou tendo dificuldades para encontrar exemplos dessa arquitetura além de informações sobre performace e segurança e número de usuários simultâneos.

Pretendo comprar uma licença "site" do aurelius mas, essa questões estão travando o negócio. Um ponto muito importante para nós é o TMS Data Modeler que atualmente não é compatível com PostGreSQL.

Enviei um e-mail para o grupo NDDV do yahoo com o seguinte titulo "Arquitetura de servidor com REST/JSON/ORM" e um dos colegas contribuiu com os seguintes dizeres

"Aurelius da problemas com o Datasnap justamente pelo fato dos metodos ser Stateless" isso procede?

Aguardo o seu retorno e conto com a sua colaboração.

André Geraldo dos Santos