home *** CD-ROM | disk | FTP | other *** search
/ Chip 1997 April / Chip_1997-04_cd.bin / prezent / cb / data.z / PICKREP.CPP < prev    next >
C/C++ Source or Header  |  1997-01-16  |  1KB  |  37 lines
  1. //---------------------------------------------------------------------------
  2. #include <vcl\vcl.h>
  3. #pragma hdrstop
  4.  
  5. #include "PickRep.h"
  6. #include "Datamod.h"
  7. //---------------------------------------------------------------------------
  8. #pragma resource "*.dfm"
  9. TPickOrdDlg *PickOrdDlg;
  10. //---------------------------------------------------------------------------
  11. __fastcall TPickOrdDlg::TPickOrdDlg(TComponent* Owner)
  12.     : TForm(Owner)
  13. {
  14. }
  15. //---------------------------------------------------------------------------
  16. void __fastcall TPickOrdDlg::OrderGridDblClick(TObject *Sender)
  17. {
  18.   OrderNumber = OrderGrid->Fields[0]->AsInteger;
  19.   ModalResult = mrOk;
  20. }
  21. //---------------------------------------------------------------------------
  22. long TPickOrdDlg::GetOrderNo(){  return  OrderNo;}
  23. //---------------------------------------------------------------------------
  24. void TPickOrdDlg::SetOrderNo(long value){  OrderNo = value; }
  25. //---------------------------------------------------------------------------
  26. void __fastcall TPickOrdDlg::OkBtnClick(TObject *Sender)
  27. {
  28.   OrderNumber = OrderGrid->Fields[0]->AsInteger;
  29.   ModalResult = mrOk;
  30. }
  31. //---------------------------------------------------------------------------
  32. void __fastcall TPickOrdDlg::FormShow(TObject *Sender)
  33. {
  34.   OrderGrid->DataSource->DataSet->Active = true;
  35. }
  36. //---------------------------------------------------------------------------
  37.