home *** CD-ROM | disk | FTP | other *** search
/ Delphi 5 for Professionals / DELPHI5.iso / Runimage / Delphi50 / Demos / Db / Ibdemo / event1.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1999-08-11  |  2.8 KB  |  113 lines
  1. unit Event1;
  2.  
  3. interface
  4.  
  5. uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  6.   StdCtrls;
  7.  
  8. type
  9.   TfrmEvents = class(TForm)
  10.     GroupBox1: TGroupBox;
  11.     btnOpenDatabase: TButton;
  12.     GroupBox2: TGroupBox;
  13.     GroupBox3: TGroupBox;
  14.     GroupBox4: TGroupBox;
  15.     btnGenerateEvent: TButton;
  16.     Label1: TLabel;
  17.     btnRegisterEvents: TButton;
  18.     btnClearEvents: TButton;
  19.     lbReceived: TListBox;
  20.     ebEvent: TEdit;
  21.     moRegister: TMemo;
  22.     btnCloseDatabase: TButton;
  23.     procedure btnClearEventsClick(Sender: TObject);
  24.     procedure btnGenerateEventClick(Sender: TObject);
  25.     procedure btnRegisterEventsClick(Sender: TObject);
  26.     procedure FormDestroy(Sender: TObject);
  27.     procedure btnOpenDatabaseClick(Sender: TObject);
  28.     procedure btnCloseDatabaseClick(Sender: TObject);
  29.   end;
  30.  
  31. var
  32.   frmEvents: TfrmEvents;
  33.  
  34. implementation
  35.  
  36. uses Event2, DB, DBTables, BDE;
  37.  
  38. {$R *.DFM}
  39.  
  40. procedure TfrmEvents.btnClearEventsClick(Sender: TObject);
  41. begin
  42.   lbReceived.Clear;
  43. end;
  44.  
  45. procedure TfrmEvents.btnGenerateEventClick(Sender: TObject);
  46. begin
  47.   with dmEvents do
  48.   begin
  49.     Database1.StartTransaction;
  50.     StoredProc1.Prepare;
  51.     StoredProc1.Params[0].AsString := ebEvent.Text;
  52.     StoredProc1.ExecProc;
  53.     Database1.Commit;
  54.   end;
  55. end;
  56.  
  57. procedure TfrmEvents.btnRegisterEventsClick(Sender: TObject);
  58. begin
  59.   with dmEvents.IBEventAlerter1 do
  60.   begin
  61.     UnregisterEvents;
  62.     Events.Assign(moRegister.Lines);
  63.     RegisterEvents;
  64.   end;
  65. end;
  66.  
  67. procedure TfrmEvents.FormDestroy(Sender: TObject);
  68. begin
  69.   with dmEvents do
  70.   begin
  71.     IBEventAlerter1.UnregisterEvents;
  72.     Database1.Connected := False;
  73.   end;
  74.   GroupBox2.Enabled := False;
  75.   GroupBox3.Enabled := False;
  76.   GroupBox4.Enabled := False;
  77.   Label1.Enabled := False;
  78.   btnGenerateEvent.Enabled := False;
  79.   btnRegisterEvents.Enabled := False;
  80.   btnClearEvents.Enabled := False;
  81. end;
  82.  
  83. procedure TfrmEvents.btnOpenDatabaseClick(Sender: TObject);
  84. begin
  85.   dmEvents.Database1.Connected := True;
  86.   GroupBox2.Enabled := True;
  87.   GroupBox3.Enabled := True;
  88.   GroupBox4.Enabled := True;
  89.   Label1.Enabled := True;
  90.   btnGenerateEvent.Enabled := True;
  91.   btnRegisterEvents.Enabled := True;
  92.   btnClearEvents.Enabled := True;
  93.   btnCloseDatabase.Enabled := True;
  94.   btnOpenDatabase.Enabled:=False;
  95. end;
  96.  
  97. procedure TfrmEvents.btnCloseDatabaseClick(Sender: TObject);
  98. begin
  99.   dmEvents.IBEventAlerter1.UnregisterEvents;
  100.   dmEvents.Database1.Connected := False;
  101.   GroupBox2.Enabled := False;
  102.   GroupBox3.Enabled := False;
  103.   GroupBox4.Enabled := False;
  104.   Label1.Enabled := False;
  105.   btnGenerateEvent.Enabled := False;
  106.   btnRegisterEvents.Enabled := False;
  107.   btnClearEvents.Enabled := False;
  108.   btnCloseDatabase.Enabled := False;
  109.   btnOpenDatabase.Enabled := True;
  110. end;
  111.  
  112. end.
  113.