Classe para conexão com BD
Estou criando uma classe para conexão com BD usando vários tipos de conexão, como:
ADO, DBX, DOA, ZEOS e etc...
A finalidade é criar uma classe genérica que poderei usar em todo o meu projeto sem a necessidade de estar colocando aqueles componentes nos DM ou Form e etc... O que eu ainda não consegui fazer é usar os eventos, tipo: BeforeConnect, AfterConnect e etc, dentro da minha classe, tipo:
type
TAdoConn = class
FConn: TAdoConnecion;
.......
end;
Como agora eu criar um método que leia o BeforeConnect do componente TAdoConnectio em minha classe? Como eu faço isso?
ADO, DBX, DOA, ZEOS e etc...
A finalidade é criar uma classe genérica que poderei usar em todo o meu projeto sem a necessidade de estar colocando aqueles componentes nos DM ou Form e etc... O que eu ainda não consegui fazer é usar os eventos, tipo: BeforeConnect, AfterConnect e etc, dentro da minha classe, tipo:
type
TAdoConn = class
FConn: TAdoConnecion;
.......
end;
Como agora eu criar um método que leia o BeforeConnect do componente TAdoConnectio em minha classe? Como eu faço isso?
Pjava
Curtidas 0
Respostas
André Silveira
27/03/2011
type
TAdoConn = class
FConn: TAdoConnecion;
procedure AposConectar(Sender: TObject);;
.......
constructor Create;
......
constructor Create;
begin
FConn.AfterConnect := AposConectar;
end;
end;
TAdoConn = class
FConn: TAdoConnecion;
procedure AposConectar(Sender: TObject);;
.......
constructor Create;
......
constructor Create;
begin
FConn.AfterConnect := AposConectar;
end;
end;
GOSTEI 0
José
27/03/2011
Este tópico esta sendo fechado por inatividade. Se necessário, sinalizar para que seja reaberto ou abrir um novo.
GOSTEI 0