Gracias a los dos
Me han aparecido algunos componentes nuevos, y en los que tenia han aparecido propiedades nuevas, esta bastante bien,
Solo ..... que los dichosos IBEvents que es mi gran problema siguen sin funcionar alguien sabe por que la han tomado conmigo????
Esto es lo que hago:
CREATE TRIGGER D_Empleado FOR EMPLEADOS
AFTER DELETE
AS
BEGIN
POST_EVENT "DEL_EMPLEADO";
END
void __fastcall TForm1::FormShow(TObject *Sender)
{
IBEvents1 ->Events ->Add("DEL_EMPLEADO");
IBEvents1 ->RegisterEvents();
}
void __fastcall TForm1::IBEvents1EventAlert(TObject *Sender,
AnsiString EventName, int EventCount, bool &CancelAlerts)
{
ShowMessage(EventName);
}
Y tarari que te vi, cuando borro no sucede nada, lo cual esta bien porque antes de instalar los nuevos componentes se quedaba colgado.
1000 G.
|