home *** CD-ROM | disk | FTP | other *** search
/ Chip 1997 April / Chip_1997-04_cd.bin / prezent / cb / data.z / BRCSTORD.CPP < prev    next >
C/C++ Source or Header  |  1997-01-16  |  4KB  |  119 lines
  1. //---------------------------------------------------------------------------
  2. #include <vcl\vcl.h>
  3. #pragma hdrstop
  4.  
  5. #include "brcstord.h"
  6. #include "Datamod.h"
  7. #include "qrycust.h"
  8. #include "edcust.h"
  9. #include "edorders.h"
  10. #include "main.h"
  11. //---------------------------------------------------------------------------
  12. #pragma resource "*.dfm"
  13. TBrCustOrdForm *BrCustOrdForm;
  14. //---------------------------------------------------------------------------
  15. __fastcall TBrCustOrdForm::TBrCustOrdForm(TComponent* Owner)
  16.     : TForm(Owner)
  17. {
  18. }
  19. //---------------------------------------------------------------------------
  20. void __fastcall TBrCustOrdForm::CustGridEnter(TObject *Sender)
  21. {
  22.   ActiveSource = MastData->CustMasterSrc;
  23.   CustGrid->Options = CustGrid->Options << dgAlwaysShowSelection;
  24.   OrdersGrid->Options = OrdersGrid->Options >> dgAlwaysShowSelection;
  25. }
  26. //---------------------------------------------------------------------------
  27. void __fastcall TBrCustOrdForm::SetQuery(TObject *Sender)
  28. {
  29.   if (QueryCustDlg->ShowModal() == mrOk)
  30.     ActivateQuery(this);
  31. }
  32. //---------------------------------------------------------------------------
  33. void __fastcall TBrCustOrdForm::ActivateQuery(TObject *Sender)
  34. {
  35.   if (!ActivateBtn->Down)
  36.     MastData->CustMasterSrc->DataSet = MastData->Cust;
  37.   else
  38.   //  with MastData.CustQuery do
  39.     try
  40.     {
  41.       MastData->CustQuery->Close();
  42.       MastData->CustQuery->Params->Items[0]->AsDateTime = QueryCustDlg->FromDate;
  43.       MastData->CustQuery->Params->Items[1]->AsDateTime = QueryCustDlg->ToDate;
  44.       MastData->CustQuery->Open();
  45.       // Any records in the result set?
  46.       if (MastData->CustQuery->Bof && MastData->CustQuery->Eof)
  47.         return;
  48.       MastData->CustMasterSrc->DataSet = MastData->CustQuery;
  49.     }
  50.     catch(...)
  51.     {
  52.       MastData->CustMasterSrc->DataSet = MastData->Cust;
  53.       ActivateBtn->Down = false;
  54.       ShowMessage("No matching records in the specified date range.");
  55.     }
  56. }
  57. //---------------------------------------------------------------------------
  58. void __fastcall TBrCustOrdForm::EditBtnClick(TObject *Sender)
  59. {
  60.   TFloatField *F;
  61.   F = static_cast<TFloatField*>(ActiveSource->DataSet->Fields[0]);
  62.   if (ActiveSource == MastData->CustMasterSrc)
  63.     EdCustForm->Edit(F->Value);
  64.   else  {
  65.     EdOrderForm->Edit(F->Value);
  66.     ActiveSource->DataSet->Refresh();
  67.   }
  68. }
  69. //---------------------------------------------------------------------------
  70. void __fastcall TBrCustOrdForm::CloseBtnClick(TObject *Sender)
  71. {
  72.   Close();
  73. }
  74. //---------------------------------------------------------------------------
  75. void __fastcall TBrCustOrdForm::OrdersGridEnter(TObject *Sender)
  76. {
  77.   ActiveSource = MastData->OrdByCustSrc;
  78.   OrdersGrid->Options = OrdersGrid->Options << dgAlwaysShowSelection;
  79.   CustGrid->Options = CustGrid->Options >> dgAlwaysShowSelection;
  80. }
  81. //---------------------------------------------------------------------------
  82. void TBrCustOrdForm::SetActiveSource(TDataSource *DataSource)
  83. {
  84.   FActiveSource = DataSource;
  85.   Navigator->DataSource = FActiveSource;
  86. }
  87. //---------------------------------------------------------------------------
  88. void TBrCustOrdForm::SetCustNo(double NewCustNo)
  89. {
  90.   Set<TLocateOption,0,1> flags;
  91.   MastData->CustMasterSrc->DataSet = MastData->Cust;
  92.   MastData->Cust->Locate("CustNo", NewCustNo, flags);
  93. }
  94. //---------------------------------------------------------------------------
  95. void TBrCustOrdForm::SetOrderNo(double NewOrderNo)
  96. {
  97.   Set<TLocateOption,0,1> flags;
  98.   MastData->OrdByCust->Locate("OrderNo", NewOrderNo, flags);
  99. }
  100. //---------------------------------------------------------------------------
  101. double TBrCustOrdForm::GetCustNo()
  102. {
  103.   return MastData->CustMasterSrc->DataSet->Fields[0]->AsFloat;
  104. }
  105. //---------------------------------------------------------------------------
  106. double TBrCustOrdForm::GetOrderNo()
  107. {
  108.   return MastData->OrdByCustOrderNo->Value;
  109. }
  110. //---------------------------------------------------------------------------
  111.  
  112.  
  113. void __fastcall TBrCustOrdForm::FormShow(TObject *Sender)
  114. {
  115.   MastData->Cust->Open();
  116.   MastData->Cust->First();
  117. }
  118. //---------------------------------------------------------------------------
  119.