CRUD

[sdw]

Diogo,

Poderias fazer um resuminho de como realizar as operações CRUD
(métodos envolvidos e como persistir)?
Não estou conseguindo realizar alterações e deleções... eu até
consigo atualizar na objectlist, porém mesmo após chamar o método
Save da mesma os dados não são persistidos...
Agora para inserções tudo funciona normalmente.
É bom colocar que estou usando a ultima versao do tiOPF.

[sdw]

Na real até estou conseguindo fazer deleções e tal.. mas os updates
não rolaram.

[Diogo Augusto Pereira]

Estou sem tempo de montar um exemplo mais completo, mas de qualquer
forma estou postando aqui um pequeno exemplo de cada operação CRUD
com comentários.

Espero que isso possa ajudar.

1. CREATE - Criação de um novo registro no BD
var
lEmpresa: TEmpresa;
begin
lEmpresa:= TEmpresa.CreateNew; //Criando um novo objeto com um novo
OID
try
lEmpresa.Codigo:= 123;
lEmpresa.Save; //Salvando o objeto criado
finally
lEmpresa.Free;
end;

2. RETRIEVE (individual) - Recuperação de um registro no BD
var
lEmpresa: TEmpresa;
begin
lEmpresa:= TEmpresa.Create; //Criando o objeto
try
lEmpresa.OID.AsString:= '5B535BCE-E495-4C21-AEB0-1BF0688D651D';
//Passando o IOD
lEmpresa.ReadThis; //Lendo o objeto
tiShowPerObjAbs(lEmpresa); //Exibindo os dados do objeto lido
finally
lEmpresa.Free;
end;

3. RETRIEVE (lista de objetos) - Recuperação de um conjunto de
registros no BD
var
lEmpresa: TEmpresa_List;
begin
lEmpresa:= TEmpresa_List.Create; //Criando a lista
try
lEmpresa.Read; //Lendo a lista
tiShowPerObjAbs(lEmpresa); //Exibindo os dados da lista
finally
lEmpresa.Free;
end;

4. UPDATE - Atualização de um registro no BD
var
lEmpresa: TEmpresa;
begin
lEmpresa:= TEmpresa.Create; //Criando o objeto
try
lEmpresa.OID.AsString:= '5B535BCE-E495-4C21-AEB0-1BF0688D651D';
//Passando o IOD
lEmpresa.ReadThis; //Lendo o objeto
lEmpresa.Codigo:= 124; //Alterando as informações do objeto
lEmpresa.Dirty:= True; //Marcando o objeto como "sujo" (assim ele
será atualizado no BD)
lEmpresa.Save; //Salvando o objeto
finally
lEmpresa.Free;
end;

5. DELETE- Exclusão de um registro no BD
var
lEmpresa: TEmpresa;
begin
lEmpresa:= TEmpresa.Create; //Criando o objeto
try
lEmpresa.OID.AsString:= '5B535BCE-E495-4C21-AEB0-1BF0688D651D';
//Passando o IOD
lEmpresa.ReadThis; //Lendo o objeto
lEmpresa.Deleted:= True; //Marcando o objeto como "deletado" (assim
ele será apagado no BD)
lEmpresa.Save; //Salvando o objeto
finally
lEmpresa.Free;
end;

[sdw]

Meu problema era setar essa propriedade Dirty nas atualizações..
O que realmente faz falta é documentação dos métodos, procedimentos
e atributos.