home *** CD-ROM | disk | FTP | other *** search
/ Chip 1997 April / Chip_1997-04_cd.bin / prezent / cb / data.z / FRMMAIN.CPP < prev    next >
C/C++ Source or Header  |  1997-01-16  |  2KB  |  55 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 "frmmain.h"
  10. #include "frmviews.h"
  11. #include "frmtrigg.h"
  12. #include "Frmqrysp.h"
  13. #include "Frmexesp.h"
  14. #include "DmCSDemo.h"
  15. #include "Frmtrans.h"
  16. //---------------------------------------------------------------------------
  17. #pragma resource "*.dfm"
  18. TFrmLauncher *FrmLauncher;
  19. //---------------------------------------------------------------------------
  20. __fastcall TFrmLauncher::TFrmLauncher(TComponent* Owner)
  21.   : TForm(Owner)
  22. {
  23. }
  24. //---------------------------------------------------------------------------
  25. void __fastcall TFrmLauncher::BtnCloseClick(TObject *Sender)
  26. {
  27.    Close();
  28. }
  29. //---------------------------------------------------------------------
  30. void __fastcall TFrmLauncher::BtnViewsClick(TObject *Sender)
  31. {
  32.    FrmViewDemo->ShowModal();
  33. }
  34. //---------------------------------------------------------------------
  35. void __fastcall TFrmLauncher::BtnTriggClick(TObject *Sender)
  36. {
  37.    FrmTriggerDemo->ShowModal();
  38. }
  39. //---------------------------------------------------------------------
  40. void __fastcall TFrmLauncher::BtnQrySPClick(TObject *Sender)
  41. {
  42.    FrmQueryProc->ShowModal();
  43. }
  44. //---------------------------------------------------------------------
  45. void __fastcall TFrmLauncher::BtnExecSPClick(TObject *Sender)
  46. {
  47.    FrmExecProc->ShowModal();
  48. }
  49. //---------------------------------------------------------------------
  50. void __fastcall TFrmLauncher::BtnTransClick(TObject *Sender)
  51. {
  52.    FrmTransDemo->ShowModal();
  53. }
  54. //---------------------------------------------------------------------
  55.