customer_qurey.cpp

小型CRM客户关系管理

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

#include <vcl.h>
#pragma hdrstop

#include "Customer_Qurey.h"  //客户信息查询窗体头文件
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TF_Cust_Query *F_Cust_Query;
//---------------------------------------------------------------------------
__fastcall TF_Cust_Query::TF_Cust_Query(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TF_Cust_Query::BitBtn1Click(TObject *Sender)
{   /*****确定按钮单击事件******/
    if(Edit1->Text.IsEmpty()){ //客户编号输入框为空判断
      ShowMessage("查询的客户编号不能为空，请输入");
      Edit1->SetFocus();       //焦点仍在客户编号输入框
    }
    F_Cust_Query->Close();     //关闭客户信息查询窗口
}
//---------------------------------------------------------------------------
void __fastcall TF_Cust_Query::BitBtn2Click(TObject *Sender)
{   /*****取消按钮单击事件******/
    F_Cust_Query->Close();     //关闭客户信息查询窗口        
}
//---------------------------------------------------------------------------