home *** CD-ROM | disk | FTP | other *** search
- //---------------------------------------------------------------------------
- // Borland C++Builder
- // Copyright (c) 1987, 1997 Borland International Inc. All Rights Reserved.
- //---------------------------------------------------------------------------
- //---------------------------------------------------------------------------
- #include <vcl\vcl.h>
- #pragma hdrstop
-
- #include "PickRep.h"
- #include "Datamod.h"
- //---------------------------------------------------------------------------
- #pragma resource "*.dfm"
- TPickOrdDlg *PickOrdDlg;
- //---------------------------------------------------------------------------
- __fastcall TPickOrdDlg::TPickOrdDlg(TComponent* Owner)
- : TForm(Owner)
- {
- }
- //---------------------------------------------------------------------------
- void __fastcall TPickOrdDlg::OrderGridDblClick(TObject *Sender)
- {
- OrderNumber = OrderGrid->Fields[0]->AsInteger;
- ModalResult = mrOk;
- }
- //---------------------------------------------------------------------------
- long TPickOrdDlg::GetOrderNo(){ return OrderNo;}
- //---------------------------------------------------------------------------
- void TPickOrdDlg::SetOrderNo(long value){ OrderNo = value; }
- //---------------------------------------------------------------------------
- void __fastcall TPickOrdDlg::OkBtnClick(TObject *Sender)
- {
- OrderNumber = OrderGrid->Fields[0]->AsInteger;
- ModalResult = mrOk;
- }
- //---------------------------------------------------------------------------
- void __fastcall TPickOrdDlg::FormShow(TObject *Sender)
- {
- OrderGrid->DataSource->DataSet->Active = true;
- }
- //---------------------------------------------------------------------------
-