copymi.cpp

某公司资料管理系统

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

#include <vcl.h>
#pragma hdrstop

#include "CopyMI.h"
#include "DataModule.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TCopyMIForm *CopyMIForm;
//---------------------------------------------------------------------------
__fastcall TCopyMIForm::TCopyMIForm(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
  void __fastcall TCopyMIForm::DBGrid1DblClick(TObject *Sender)
{
    ModalResult = mrOk;
}
//---------------------------------------------------------------------------
void __fastcall TCopyMIForm::FormShow(TObject *Sender)
{
    MastData->MIBaseLookup->Close();
    MastData->MIBaseLookup->Open();
}
//---------------------------------------------------------------------------
void __fastcall TCopyMIForm::OrderComboxChange(TObject *Sender)
{
    if (OrderCombox->Text == "产品编号")
    {    SrchFld = DataSource->DataSet->FieldByName("PartNo");}
    if(OrderCombox->Text == "客户产品编号")
    {    SrchFld =DataSource->DataSet->FieldByName("CustPartNo");}
    if(OrderCombox->Text == "客户编号")
    {    SrchFld =DataSource->DataSet->FieldByName("CustomerNo");}
//   SrchFld = DataSource->DataSet->FieldByName(OrderCombo->Text);
    SearchEdit->Text = "";        
}
//---------------------------------------------------------------------------

void __fastcall TCopyMIForm::SearchEditChange(TObject *Sender)
{
   SearchButton->Enabled =  !SearchEdit->Text.IsEmpty();
        
}
//---------------------------------------------------------------------------

void __fastcall TCopyMIForm::SearchEditKeyPress(TObject *Sender, char &Key)
{
  if ((SrchFld!=NULL) && (Key != ' ') &&  !SrchFld->IsValidChar(Key) )
  {
    MessageBeep(0);
    Key = '0';
  }        
}
//---------------------------------------------------------------------------

void __fastcall TCopyMIForm::SearchButtonClick(TObject *Sender)
{
  TLocateOptions flags;
  flags << loPartialKey << loCaseInsensitive;
  if (OrderCombox->Text == "产品编号")
  {
      if (!DataSource->DataSet->Locate("PartNo", SearchEdit->Text, flags))
      MessageBox(NULL,"No matching record found.", "Information", MB_OK);
  }
  if(OrderCombox->Text == "客户产品编号")
  {
      if (!DataSource->DataSet->Locate("CustPartNo", SearchEdit->Text, flags))
      MessageBox(NULL,"No matching record found.", "Information", MB_OK);
  }
  if(OrderCombox->Text == "客户编号")
  {
      if (!DataSource->DataSet->Locate("CustomerNo", SearchEdit->Text, flags))
      MessageBox(NULL,"No matching record found.", "Information", MB_OK);
  }
}
//---------------------------------------------------------------------------