findproductsample.cpp

某公司资料管理系统

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

#include <vcl.h>
#pragma hdrstop

#include "FindProductSample.h"
#include "DataModule.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TFindProductSampleForm *FindProductSampleForm;
//---------------------------------------------------------------------------
__fastcall TFindProductSampleForm::TFindProductSampleForm(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TFindProductSampleForm::OrderComboxChange(TObject *Sender)
{
    MastData->SampleNoLookup->Close();
    if (OrderCombox->Text == "样板序号")
    {
        SrchFld = DataSource->DataSet->FieldByName("SampleNo");
        MastData->SampleNoLookup->IndexName="SampleNo";
    }
    if(OrderCombox->Text == "产品编号")
    {
        SrchFld =DataSource->DataSet->FieldByName("PartNo");
        MastData->SampleNoLookup->IndexName="PartNo";
    }
 //   SrchFld = DataSource->DataSet->FieldByName(OrderCombo->Text);
    SearchEdit->Text = "";
    MastData->SampleNoLookup->Open();
}
//---------------------------------------------------------------------------
void __fastcall TFindProductSampleForm::SearchEditChange(TObject *Sender)
{
    SearchBtn->Enabled =  !SearchEdit->Text.IsEmpty();
}
//---------------------------------------------------------------------------
void __fastcall TFindProductSampleForm::FormShow(TObject *Sender)
{
    MastData->SampleNoLookup->Open();
}
//---------------------------------------------------------------------------
void __fastcall TFindProductSampleForm::DBGrid1DblClick(TObject *Sender)
{
    ModalResult = mrOk;          
}
//---------------------------------------------------------------------------
void __fastcall TFindProductSampleForm::SearchEditKeyPress(TObject *Sender,
      char &Key)
{
    if ((SrchFld!=NULL) && (Key != ' ') &&  !SrchFld->IsValidChar(Key) )
    {
       MessageBeep(0);
       Key = '0';
    }
    else
    {
       if(int(Key)==13)
       {
          SearchBtnClick(Sender);
       }
    }
}
//---------------------------------------------------------------------------

void __fastcall TFindProductSampleForm::SearchBtnClick(TObject *Sender)
{
  TLocateOptions flags;
  flags << loPartialKey << loCaseInsensitive;
  if (OrderCombox->Text == "样板序号")
  {
      if (!DataSource->DataSet->Locate("SampleNo", SearchEdit->Text, flags))
      MessageBox(NULL,"查无此记录...", "提示", MB_OK);
  }
  if(OrderCombox->Text == "产品编号")
  {
      if (!DataSource->DataSet->Locate("PartNo", SearchEdit->Text, flags))
      MessageBox(NULL,"查无此记录...", "提示", MB_OK);
  }

}
//---------------------------------------------------------------------------