home *** CD-ROM | disk | FTP | other *** search
/ PC Pro 1999 February / DPPCPRO0299.ISO / February / Delphi / Install / DATA.Z / EVENT2.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1996-06-11  |  926 b   |  41 lines
  1. unit Event2;
  2.  
  3. interface
  4.  
  5. uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms,
  6.   Dialogs, DB, DBTables, IBCtrls;
  7.  
  8. type
  9.   TdmEvents = class(TDataModule)
  10.     Database1: TDatabase;
  11.     IBEventAlerter1: TIBEventAlerter;
  12.     StoredProc1: TStoredProc;
  13.     procedure IBEventAlerter1EventAlert(Sender: TObject; EventName: string;
  14.       EventCount: Longint; var CancelAlerts: Boolean);
  15.     procedure dmEventsCreate(Sender: TObject);
  16.   end;
  17.  
  18. var
  19.   dmEvents: TdmEvents;
  20.  
  21. implementation
  22.  
  23. uses Event1;
  24.  
  25. {$R *.DFM}
  26.  
  27. procedure TdmEvents.IBEventAlerter1EventAlert(Sender: TObject;
  28.   EventName: string; EventCount: Longint; var CancelAlerts: Boolean);
  29. begin
  30.   frmEvents.lbReceived.Items.Add(EventName);
  31. end;
  32.  
  33. procedure TdmEvents.dmEventsCreate(Sender: TObject);
  34. begin
  35.   with Database1 do
  36.     Params.Values['Server Name'] := ExtractFilePath(ParamStr(0)) +
  37.       'Events.gdb';
  38. end;
  39.  
  40. end.
  41.