home *** CD-ROM | disk | FTP | other *** search
/ Chip 1997 April / Chip_1997-04_cd.bin / prezent / cb / data.z / FRMEXESP.CPP < prev    next >
C/C++ Source or Header  |  1997-01-16  |  2KB  |  51 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 "Frmexesp.h"
  10. #include "DmCSDemo.h"
  11. //---------------------------------------------------------------------------
  12. #pragma resource "*.dfm"
  13. TFrmExecProc *FrmExecProc;
  14. //---------------------------------------------------------------------------
  15. __fastcall TFrmExecProc::TFrmExecProc(TComponent* Owner)
  16.   : TForm(Owner)
  17. {
  18. }
  19. //---------------------------------------------------------------------------
  20. void __fastcall TFrmExecProc::FormShow(TObject *Sender)
  21. {
  22.    DmEmployee->SalesTable->Open();
  23.    DmEmployee->CustomerTable->Open();
  24.    // Enable DataEvents from the SalesTable for this form now
  25.    SalesSource->Enabled = True;
  26. }
  27. //---------------------------------------------------------------------
  28. void __fastcall TFrmExecProc::FormHide(TObject *Sender)
  29. {
  30.    // Disable DataEvents from the SalesTable for this form now
  31.    SalesSource->Enabled = False;
  32. }
  33. //---------------------------------------------------------------------
  34. void __fastcall TFrmExecProc::SalesSourceDataChange(TObject *Sender,
  35.       TField *Field)
  36. {
  37.    if (CompareText(DmEmployee->SalesTable->FieldByName("ORDER_STATUS")->AsString,
  38.                "SHIPPED") != 0)
  39.       BtnShipOrder->Enabled = True;
  40.    else
  41.       BtnShipOrder->Enabled = False;
  42. }
  43. //---------------------------------------------------------------------
  44. void __fastcall TFrmExecProc::BtnShipOrderClick(TObject *Sender)
  45. {
  46.    DmEmployee->ShipOrderProc->Params->Items[0]->AsString =
  47.         DmEmployee->SalesTable->FieldByName("PO_NUMBER")->AsString;
  48.    DmEmployee->ShipOrderProc->ExecProc();
  49.    DmEmployee->SalesTable->Refresh();
  50. }
  51. //---------------------------------------------------------------------