home *** CD-ROM | disk | FTP | other *** search
/ Chip 1997 April / Chip_1997-04_cd.bin / prezent / cb / data.z / EVENT2.CPP < prev    next >
Encoding:
C/C++ Source or Header  |  1997-01-16  |  1.3 KB  |  35 lines
  1. //----------------------------------------------------------------------------
  2. //Borland C++ Builder
  3. //Copyright (c) 1987 Borland International Inc. All Rights Reserved.
  4. //----------------------------------------------------------------------------
  5. //---------------------------------------------------------------------------
  6. #include <vcl.h>
  7. #pragma hdrstop
  8.  
  9. #include "Event1.h"
  10. #include "Event2.h"
  11. //---------------------------------------------------------------------------
  12. #pragma resource "*.dfm"
  13. TdmEvents *dmEvents;
  14. //---------------------------------------------------------------------------
  15. __fastcall TdmEvents::TdmEvents(TComponent* Owner)
  16.   : TDataModule(Owner)
  17. {
  18. }
  19. //---------------------------------------------------------------------------
  20. void __fastcall TdmEvents::IBEventAlerter1EventAlert(TObject *Sender,
  21.       AnsiString EventName, long EventCount, bool &CancelAlerts)
  22. {
  23.   frmEvents->lbReceived->Items->Add(EventName);  
  24. }
  25. //---------------------------------------------------------------------
  26. void __fastcall TdmEvents::dmEventsCreate(TObject *Sender)
  27. {
  28.    char   szBuffer[500];
  29.  
  30.    sprintf(szBuffer, "%sEvents.gdb", ExtractFilePath(Application->ExeName).c_str());
  31.    Database1->Params->Values["Server Name"] = szBuffer;
  32.  
  33. }
  34. //---------------------------------------------------------------------
  35.