Djonatas Tenfen wrote:
> pois se amanha ou depois entra outro banco que vc quer
> dar suporte vc tem como pois é só criar uma nova classe
> com o novo banco e implementar na classe pai dos seus
> Objetos de Negócio
Ou então, para evitar mexer nos objetos de negócio:
TBanco -- classe abstrata
+-TZeosBanco
+-TIBXBanco
+-TDBXBanco
Variável ou função global:
DefaultBanco: TBanco;
nos objetos de negócio:
procedure TObjetoNegocio.Gravar;
begin
DefaultBanco.Gravar(Self);
end;
E então você pode trocar o banco apenas alterando o DefaultBanco.
--
Joao Morais
