clientsearch.cpp

客户管理挂件

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

#include <vcl.h>
#pragma hdrstop
#include "ClientManager.h"
#include "ClientSearch.h"
#include "TypePeter.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma link "RzPanel"
#pragma link "RzBckgnd"
#pragma link "RzLabel"
#pragma link "RzButton"
#pragma link "RzCmboBx"
#pragma link "RzDTP"
#pragma link "RzEdit"
#pragma link "RzRadChk"
#pragma resource "*.dfm"
TSearchForm *SearchForm;
//---------------------------------------------------------------------------
__fastcall TSearchForm::TSearchForm(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
__fastcall TSearchForm::TSearchForm(TComponent* Owner,TADOQuery *m_AQryMain)
        : TForm(Owner)
{
   int_AQryMain =  m_AQryMain;
   CBSex->Text = "全部";
}
//---------------------------------------------------------------------------
void __fastcall TSearchForm::RzBitBtn3Click(TObject *Sender)
{
   Close();
}
//---------------------------------------------------------------------------
void __fastcall TSearchForm::RzBitBtn1Click(TObject *Sender)
{
/*----------------------结构体付值------------------------*/
   jj.sCID       = EdtID->Text.Trim();       //客户ID
   jj.sCName     = EdtName->Text.Trim();     //客户姓名
   jj.sCHeadShip =EdtHead->Text.Trim();      //客户尊称
   if(CBBirday->Checked)
      jj.TCBirday=FormatDateTime("yyyy/mm/dd",StrToDateTime(DTimeBirday->Date)).SubString(1,10);//客户生日
   else
      jj.iBirdayFlag = 1;    //无效的生日
   jj.sCSex      = CBSex->Text;//客户性别
   jj.sCompany   = EdtCompany->Text.Trim();  //公司名称
   if(CBVisit->Checked)//拜访时间
      jj.TVisTime=FormatDateTime("yyyy/mm/dd",StrToDateTime(DTTimeVisit->Date)).SubString(1,10);
   else
      jj.iVisitFlag   = 1; //拜访时间无效
   SearchGrid();
  Close();
}
//---------------------------------------------------------------------------
void __fastcall TSearchForm::SearchGrid()
{
/*----------------------重新查询------------------------*/
   int iFlag = 0;
   sSQLSearch = "select * from ClientData where";
   if(jj.sCID != "")
   {
      iFlag = 1;
      sSQLSearch = sSQLSearch + " ID = '"+jj.sCID+"'";
   }
   if(jj.sCName != "" && iFlag == 1)
   {
      sSQLSearch = sSQLSearch + " and Name = '"+jj.sCName+"'";
      iFlag = 2;
   }
   else if(jj.sCName != "" && iFlag == 0)
   {
      sSQLSearch = sSQLSearch + " Name = '"+jj.sCName+"'";
      iFlag = 1;
   }
   if(jj.sCHeadShip != "" && iFlag == 1)
   {
      sSQLSearch = sSQLSearch + " and Headship = '"+jj.sCHeadShip+"'";
      iFlag = 2;
   }
   else if(jj.sCHeadShip != "" && iFlag == 0)
   {
      sSQLSearch = sSQLSearch + " Headship = '"+jj.sCHeadShip+"'";
      iFlag = 1;
   }
   if(jj.iBirdayFlag != 1  && iFlag == 1)
   {
      sSQLSearch = sSQLSearch + " and Birday = '"+jj.TCBirday+"'";
      iFlag = 2;
   }
   else if(jj.iBirdayFlag != 1 && iFlag == 0)
   {
      sSQLSearch = sSQLSearch + " Birday ='"+jj.TCBirday+"'";
      iFlag = 1;
   }
   if(jj.sCSex != "全部"  && iFlag == 1)
   {
      sSQLSearch = sSQLSearch + " and Sex = '"+jj.sCSex+"'";
      iFlag = 2;
   }
   else if(jj.sCSex != "全部"  && iFlag == 0)
   {
      sSQLSearch = sSQLSearch + " Sex = '"+jj.sCSex+"'";
      iFlag = 1;
   }
   if(jj.sCompany != ""  && iFlag == 1)
   {
      sSQLSearch = sSQLSearch + " and Company = '"+jj.sCompany+"'";
      iFlag = 2;
   }
   else if(jj.sCompany != ""  && iFlag == 0)
   {
      sSQLSearch = sSQLSearch + " Company = '"+jj.sCompany+"'";
      iFlag = 1;
   }
   if(jj.iVisitFlag != 1  && iFlag == 1)
   {
      sSQLSearch = sSQLSearch + " and TakeTime = '"+jj.TVisTime+"'";
      iFlag = 2;
   }
   else if(jj.iVisitFlag != 1 && iFlag == 0)
   {
      sSQLSearch = sSQLSearch + " TakeTime = '"+jj.TVisTime+"'";
      iFlag = 1;
   }
   if(iFlag == 0)
      sSQLSearch = "select * from ClientData";
   int_AQryMain->Active=false;
   int_AQryMain->SQL->Clear();
   int_AQryMain->SQL->Add(sSQLSearch);
   int_AQryMain->Open();
   int_AQryMain->Active=true;
}
//---------------------------------------------------------------------------
void __fastcall TSearchForm::RzBitBtn2Click(TObject *Sender)
{
    EdtID->Text = "";
    EdtName->Text = "";
    EdtHead->Text = "";
    CBBirday->State = cbUnchecked;  DTimeBirday->Enabled = false;
    CBSex->Items->IndexOfName("全部");
    EdtCompany->Text = "";
    CBVisit->State = cbUnchecked;  DTTimeVisit->Enabled = false;
}
//---------------------------------------------------------------------------
void __fastcall TSearchForm::CBBirdayClick(TObject *Sender)
{
   if(CBBirday->Checked)
      DTimeBirday->Enabled = true;
   else
      DTimeBirday->Enabled = false;
}
//---------------------------------------------------------------------------
void __fastcall TSearchForm::CBVisitClick(TObject *Sender)
{
   if(CBVisit->Checked)
      DTTimeVisit->Enabled = true;
   else
      DTTimeVisit->Enabled = false;
}
//---------------------------------------------------------------------------