home *** CD-ROM | disk | FTP | other *** search
/ Chip 1997 April / Chip_1997-04_cd.bin / prezent / cb / data.z / EVENT1.CPP < prev    next >
C/C++ Source or Header  |  1997-01-16  |  3KB  |  82 lines
  1. //----------------------------------------------------------------------------
  2. //Borland C++ Builder
  3. //Copyright (c) 1987 Borland International Inc. All Rights Reserved.
  4. //----------------------------------------------------------------------------
  5. //---------------------------------------------------------------------------
  6. #include <vcl/vcl.h>
  7. #pragma hdrstop
  8.  
  9. #include "Event2.h"
  10. #include "Event1.h"
  11. //---------------------------------------------------------------------------
  12. #pragma resource "*.dfm"
  13. TfrmEvents *frmEvents;
  14. //---------------------------------------------------------------------------
  15. __fastcall TfrmEvents::TfrmEvents(TComponent* Owner)
  16.   : TForm(Owner)
  17. {
  18. }
  19. //---------------------------------------------------------------------------
  20. void __fastcall TfrmEvents::FormDestroy(TObject *Sender)
  21. {
  22.    dmEvents->IBEventAlerter1->UnRegisterEvents();
  23.    dmEvents->Database1->Close();
  24.    GroupBox2->Enabled = False;
  25.    GroupBox3->Enabled = False;
  26.    GroupBox4->Enabled = False;
  27.    Label1->Enabled = False;
  28.    btnGenerateEvent->Enabled = False;
  29.    btnRegisterEvents->Enabled = False;
  30.    btnClearEvents->Enabled = False;
  31. }
  32. //---------------------------------------------------------------------
  33. void __fastcall TfrmEvents::btnOpenDatabaseClick(TObject *Sender)
  34. {
  35.    dmEvents->Database1->Open();
  36.    GroupBox2->Enabled = True;
  37.    GroupBox3->Enabled = True;
  38.    GroupBox4->Enabled = True;
  39.    Label1->Enabled = True;
  40.    btnGenerateEvent->Enabled = True;
  41.    btnRegisterEvents->Enabled = True;
  42.    btnClearEvents->Enabled = True;
  43.    btnCloseDatabase->Enabled = True;
  44.    btnOpenDatabase->Enabled = False;
  45. }
  46. //---------------------------------------------------------------------
  47. void __fastcall TfrmEvents::btnCloseDatabaseClick(TObject *Sender)
  48. {
  49.    dmEvents->Database1->Open();
  50.    GroupBox2->Enabled = False;
  51.    GroupBox3->Enabled = False;
  52.    GroupBox4->Enabled = False;
  53.    Label1->Enabled = False;
  54.    btnGenerateEvent->Enabled = False;
  55.    btnRegisterEvents->Enabled = False;
  56.    btnClearEvents->Enabled = False;
  57.    btnCloseDatabase->Enabled = False;
  58.    btnOpenDatabase->Enabled = True;
  59. }
  60. //---------------------------------------------------------------------
  61. void __fastcall TfrmEvents::btnGenerateEventClick(TObject *Sender)
  62. {
  63.    dmEvents->Database1->StartTransaction();
  64.    dmEvents->StoredProc1->Prepare();
  65.    dmEvents->StoredProc1->Params->Items[0]->AsString = ebEvent->Text;
  66.    dmEvents->StoredProc1->ExecProc();
  67.    dmEvents->Database1->Commit();
  68. }
  69. //---------------------------------------------------------------------
  70. void __fastcall TfrmEvents::btnRegisterEventsClick(TObject *Sender)
  71. {
  72.    dmEvents->IBEventAlerter1->UnRegisterEvents();
  73.    dmEvents->IBEventAlerter1->Events->Assign(moRegister->Lines);
  74.    dmEvents->IBEventAlerter1->RegisterEvents();
  75. }
  76. //---------------------------------------------------------------------
  77. void __fastcall TfrmEvents::btnClearEventsClick(TObject *Sender)
  78. {
  79.    lbReceived->Clear();  
  80. }
  81. //---------------------------------------------------------------------
  82.