newsample.cpp

某公司资料管理系统

//---------------------------------------------------------------------------

#include <vcl.h>
#pragma hdrstop

#include "NewSample.h"
#include "DataModule.h"
#include "MainHead.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TNewSampleForm *NewSampleForm;
//---------------------------------------------------------------------------
__fastcall TNewSampleForm::TNewSampleForm(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TNewSampleForm::BitBtnInsertClick(TObject *Sender)
{
    MastData->ProductSample->Insert();        
}
//---------------------------------------------------------------------------
void __fastcall TNewSampleForm::FormShow(TObject *Sender)
{
    MastData->ProductSample->Open();
}
//---------------------------------------------------------------------------
void __fastcall TNewSampleForm::BitBtnPostClick(TObject *Sender)
{
    MastData->ProductSample->Post();
}
//---------------------------------------------------------------------------
void __fastcall TNewSampleForm::BitBtnCancelClick(TObject *Sender)
{
    MastData->ProductSample->Cancel();
}
//---------------------------------------------------------------------------
void __fastcall TNewSampleForm::FormClose(TObject *Sender,
      TCloseAction &Action)
{
//    MastData->ProductSampleDetail->Close();
//    MastData->ProductSample->Close();
}
//---------------------------------------------------------------------------

void __fastcall TNewSampleForm::BitBtnSearchClick(TObject *Sender)
{
//   if(FindProductSampleForm->ShowModal()==mrOk)
//   {
 //      MastData->ProductSample->GotoCurrent(MastData->SampleNoLookup);
   //     TVarRec q(MastData->SampleNoLookupSampleNo->Value);
//ShowMessage(MastData->SampleNoLookupSampleNo->Value);
   //     MastData->ProductSample->FindNearest(&q, 0);
//ShowMessage(MastData->ProductSampleSampleNo->Value);
//   }
    FindProductSampleForm->ShowModal();
    if (FindProductSampleForm->ModalResult == mrOk)
    {
             MastData->ProductSample->CachedUpdates=false;
             MastData->ProductSample->GotoCurrent(MastData->SampleNoLookup);
             MastData->ProductSample->CachedUpdates=true;
    }
}
//---------------------------------------------------------------------------