findpartno.cpp

某公司资料管理系统

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

#include <vcl.h>
#pragma hdrstop

#include "FindPartNo.h"
#include "DataModule.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TFindPartNoForm *FindPartNoForm;
//---------------------------------------------------------------------------
__fastcall TFindPartNoForm::TFindPartNoForm(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TFindPartNoForm::OrderComboxChange(TObject *Sender)
{
    MastData->PartNoLookup->Close();
    if (OrderCombox->Text == "产品编号")
    {
        SrchFld = DataSource->DataSet->FieldByName("PartNo");
        MastData->PartNoLookup->IndexName="PartNo";
    }
    if(OrderCombox->Text == "客户产品编号")
    {
         SrchFld =DataSource->DataSet->FieldByName("CustPartNo");
         MastData->PartNoLookup->IndexName="CustPartNo";
    }

    if(OrderCombox->Text == "客户编号")
    {
        SrchFld =DataSource->DataSet->FieldByName("CustomerNo");
        MastData->PartNoLookup->IndexName="CustomerNo";
    }
//   SrchFld = DataSource->DataSet->FieldByName(OrderCombo->Text);
    SearchEdit->Text = "";
 
    MastData->PartNoLookup->Open();
}
//---------------------------------------------------------------------------
void __fastcall TFindPartNoForm::SearchEditChange(TObject *Sender)
{
   SearchBtn->Enabled =  !SearchEdit->Text.IsEmpty();
}
//---------------------------------------------------------------------------
void __fastcall TFindPartNoForm::FormShow(TObject *Sender)
{
    MastData->PartNoLookup->Open();
    MastData->PartNoLookup->Refresh();
}
//---------------------------------------------------------------------------
void __fastcall TFindPartNoForm::DBGrid1DblClick(TObject *Sender)
{
    ModalResult = mrOk;
}
//---------------------------------------------------------------------------
void __fastcall TFindPartNoForm::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 TFindPartNoForm::SearchBtnClick(TObject *Sender)
{
  TLocateOptions flags;
  flags << loPartialKey << loCaseInsensitive;
  if (OrderCombox->Text == "产品编号")
  {
      if (!DataSource->DataSet->Locate("PartNo", SearchEdit->Text, flags))
      MessageBox(NULL,"查无此记录...", "提示", MB_OK);
  }
  if(OrderCombox->Text == "客户产品编号")
  {
      if (!DataSource->DataSet->Locate("CustPartNo", SearchEdit->Text, flags))
      MessageBox(NULL,"查无此记录...", "提示", MB_OK);
  }
  if(OrderCombox->Text == "客户编号")
  {
      if (!DataSource->DataSet->Locate("CustomerNo", SearchEdit->Text, flags))
      MessageBox(NULL,"查无此记录...", "提示", MB_OK);
  }
}
//---------------------------------------------------------------------------