queremos hacer un recordatorio de eventos utilizando mysql firebird/interbase, hicimos un trigger que nos informara cuando se agrega un nuevo registro y así capturarlo por ibevents.
Código SQL
[-]CREATE TRIGGER POST_NEW_REG FOR CLIENTES
ACTIVE AFTER INSERT
POSITION 0
AS
BEGIN
POST_EVENT 'new_reg';
END
Código Delphi
[-]procedure TDataModule_PROYECTO.DataModuleCreate(Sender: TObject);
Var
BaseDeDatos: String;
IniFile: TInfile;
begin
IniFile := TIniFile.Create(ExtractFilePath(Application.ExeName)+'BDatos.ini');
BasedeDatos := IniFile.ReadString('BD','Path','');
If BasedeDatos = '' then
ShowMessage('Error al cargar Base de Datos') else
Begin
Try
BaseGeneral.IBDatabase_proyecto := BaseDeDatos;
BaseGeneral.Connected := True;
Transaccion.Active := True;
AGENDA.Open;
IBEvents1.Events.Clear;
IBEvents1.Events.Add('new_reg');
IBEvents1.RegisterEvents;
Except
ShowMessage('No se puede conectar el servidor...');
End;
End;
end;
procedure TDataModule_PROYECTO.IBEvents1EventAlert(Sender: TObject;
EventName: String; EventCount: Integer; var CancelAlerts: Boolean);
begin
if EventName = 'new_reg' then
Begin
ShowMessage('Se inserto registro nuevo');
SAGENDA.IBDataSet_AGENDA.Refresh;
End;
end;
lo que quisiéramos saber es si le estamos errando en algo por que nos tira error de que IniFile: TInfile como que no estas declarado.
Muchas gracias.