home *** CD-ROM | disk | FTP | other *** search
/ Chip 1997 April / Chip_1997-04_cd.bin / prezent / cb / data.z / CTRLFORM.CPP < prev    next >
C/C++ Source or Header  |  1997-01-16  |  2KB  |  50 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 "CtrlForm.h"
  10. #include "DM.h"
  11. #include "About.h"
  12.  
  13. //---------------------------------------------------------------------------
  14. #pragma resource "*.dfm"
  15. TFmCtrlGrid *FmCtrlGrid;
  16. //---------------------------------------------------------------------------
  17. __fastcall TFmCtrlGrid::TFmCtrlGrid(TComponent* Owner)
  18.   : TForm(Owner)
  19. {
  20. }
  21. //---------------------------------------------------------------------------
  22. void __fastcall TFmCtrlGrid::FormShow(TObject *Sender)
  23. {
  24.     DM1->CalculateTotals( Sender, 0 );
  25. }
  26. //---------------------------------------------------------------------
  27. void __fastcall TFmCtrlGrid::DBCtrlGrid1Enter(TObject *Sender)
  28. {
  29.     DBNavigator1->DataSource = DM1->dsHoldings;
  30. }
  31. //---------------------------------------------------------------------
  32. void __fastcall TFmCtrlGrid::Button1Click(TObject *Sender)
  33. {
  34.   Close();
  35. }
  36. //---------------------------------------------------------------------
  37. void __fastcall TFmCtrlGrid::DBGrid1Enter(TObject *Sender)
  38. {
  39.   DBNavigator1->DataSource = DM1->dsMaster;
  40. }
  41. //---------------------------------------------------------------------
  42. void __fastcall TFmCtrlGrid::About1Click(TObject *Sender)
  43. {
  44.   TFMAboutBox * fmAboutBox;
  45.  
  46.   fmAboutBox = new TFMAboutBox(this);
  47.   fmAboutBox->ShowModal();
  48.   delete fmAboutBox;
  49. }
  50. //---------------------------------------------------------------------