Fórum Edição 67 - POO na Prática #351375

:?:
Olá a todos e feliz ano novo.
Uso Delphi 7 + Firebird + DBExpress.
SQLConection + SqlDataSet + DataSetProvider + ClientDataSet + DataSource.

Estou estudando POO e entre outros artigos edições 56, 57 e 58 e 67, achei muito bom a matéria do Isaque Pinheiro da edição 67 - POO na Prática, mas tenho algumas dúvidas:

1.Como implementar o exemplo para usar banco de dados Firebird.
EX:
procedure TDtmDados.DataModuleCreate(Sender: TObject);
begin
// Arquivo Xml dados, mas poderia ser acesso a banco de dados normal.
// Clientes.FileName := ´Clientes.xml´;

Conexao.Connected := true; // aqui eu abro o banco de dados.

end;

function TDtmDados.Cliente_Open: TDataSet;
begin
// Manda pra quem solicitou o objeto de acesso a dados.
// Result := Clientes;

Result := CdsClientes; // nome do meu cds da tabela cliente

end;

2. Quando manda gravar (Post + Apply) preciso implementar a execução da transação dentro da classe de registro (DataSet_POO), para efetivar a gravação do registro.

3. Quando executo o Apply o sistema retorna a mensagem:
Unable to Find Record
No key specified.
mas grava o registro que posso ve-lo no dbgrid da interface, so que quando saio da aplicação e retorno ele não esta lá (não grava fisicamente na tabela)

Abraços
Neto