home *** CD-ROM | disk | FTP | other *** search
/ Chip 1997 April / Chip_1997-04_cd.bin / prezent / cb / data.z / SRCHDLG.CPP < prev    next >
C/C++ Source or Header  |  1997-01-16  |  3KB  |  95 lines
  1. //---------------------------------------------------------------------------
  2. #include <vcl\vcl.h>
  3. #pragma hdrstop
  4.  
  5. #include "srchdlg.h"
  6. #include "Datamod.h"
  7. //---------------------------------------------------------------------------
  8. #pragma resource "*.dfm"
  9. TSearchDlg *SearchDlg;
  10. //---------------------------------------------------------------------------
  11. __fastcall TSearchDlg::TSearchDlg(TComponent* Owner)
  12.     : TForm(Owner)
  13. {
  14. }
  15. //---------------------------------------------------------------------------
  16. void __fastcall TSearchDlg::DBGrid1DblClick(TObject *Sender)
  17. {
  18.   ModalResult = mrOk;
  19. }
  20. //---------------------------------------------------------------------------
  21. void __fastcall TSearchDlg::SearchButtonClick(TObject *Sender)
  22. {
  23.   TLocateOptions flags;
  24.   if (!DataSource->DataSet->Locate(OrderCombo->Text, SearchEd->Text, flags))
  25.       MessageBox(NULL,"No matching record found.", "Information", MB_OK);
  26. }
  27. //---------------------------------------------------------------------------
  28. void __fastcall TSearchDlg::OrderComboChange(TObject *Sender)
  29. {
  30.   SrchFld = DataSource->DataSet->FieldByName(OrderCombo->Text);
  31.   SearchEd->Text = " ";
  32. }
  33. //---------------------------------------------------------------------------
  34. void __fastcall TSearchDlg::SearchEdKeyPress(TObject *Sender, char &Key)
  35. {
  36.   if ((SrchFld!=NULL) && (Key != ' ') &&  !SrchFld->IsValidChar(Key) )
  37.   {
  38.     MessageBeep(0);
  39.     Key = '0';
  40.   }
  41. }
  42. //---------------------------------------------------------------------------
  43. void __fastcall TSearchDlg::SearchEdChange(TObject *Sender)
  44. {
  45.   SearchButton->Enabled =  !SearchEd->Text.IsEmpty();
  46. }
  47. //---------------------------------------------------------------------------
  48. double TSearchDlg::GetCustNo()
  49. {
  50.   return MastData->CustCustNo->Value;
  51. }
  52. //---------------------------------------------------------------------------
  53. void TSearchDlg::SetCustNo(double NewCustNo)
  54. {
  55.   TLocateOptions flags;
  56.   MastData->Cust->Locate("CustNo", NewCustNo, flags);
  57. }
  58. //---------------------------------------------------------------------------
  59. double TSearchDlg::GetPartNo()
  60. {
  61.   return MastData->PartsPartNo->Value;
  62. }
  63. //---------------------------------------------------------------------------
  64. void TSearchDlg::SetPartNo(double NewPartNo)
  65. {
  66.   TLocateOptions flags;
  67.   MastData->Parts->Locate("PartNo", NewPartNo, flags);
  68. }
  69. //---------------------------------------------------------------------------
  70. int TSearchDlg::ShowModalCust()
  71. {
  72.   OrderCombo->Items->Clear();
  73.   OrderCombo->Items->Add("Company");
  74.   OrderCombo->Items->Add("CustNo");
  75.   OrderCombo->ItemIndex = 0;
  76.   DataSource->DataSet = MastData->Cust;
  77.   OrderComboChange(0);
  78.   Caption = "Select a Customer";
  79.   return ShowModal();
  80. }
  81. //---------------------------------------------------------------------------
  82. int TSearchDlg::ShowModalParts()
  83. {
  84.   OrderCombo->Items->Clear();
  85.   OrderCombo->Items->Add("Description");
  86.   OrderCombo->Items->Add("PartNo");
  87.   OrderCombo->ItemIndex = 0;
  88.   DataSource->DataSet = MastData->Parts;
  89.   OrderComboChange(0);
  90.   Caption = "Select a Part";
  91.   return ShowModal();
  92. }
  93. //---------------------------------------------------------------------------
  94.  
  95.