unit1_employeemanage_xhz.~cpp

这是我们班实习的时候做的一个宠物医院管理系统。sql数据库

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

#include <vcl.h>
#pragma hdrstop

#include "Unit1_Employeemanage_xhz.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1_Employeemanage *Form1_Employeemanage;
//---------------------------------------------------------------------------
__fastcall TForm1_Employeemanage::TForm1_Employeemanage(TComponent* Owner)
        : TForm(Owner)
{
//查询条件控件初始化
    Edit1_Employeemanage->Clear();
    Edit2_Employeemanage->Clear();
    Edit3_Employeemanage->Clear();
    Edit4_Employeemanage->Clear();
    Edit5_Employeemanage->Clear();
    Edit6_Employeemanage->Clear();
    /*
    Edit1->Enabled = false;
    Edit2->Enabled = false;
    DateTimePicker1->Enabled = false;
    */
    Edit1_Employeemanage->Visible = false;
    Edit2_Employeemanage->Visible = false;
    Edit3_Employeemanage->Visible = false;
    Edit4_Employeemanage->Visible = false;
    Edit5_Employeemanage->Visible = false;
    Edit6_Employeemanage->Visible = false;
    DBGrid1_Employeemanage->DataSource->Enabled=false;
}
//---------------------------------------------------------------------------
void __fastcall TForm1_Employeemanage::SpeedButton1_EmployeemanageClick(
      TObject *Sender)
{        AnsiString sql;
         ADOQuery1_Employeemanage->Active = false;
         ADOQuery1_Employeemanage->SQL->Clear();

         if(!CheckBox1_Employeemanage->Checked&&!CheckBox2_Employeemanage->Checked&&!CheckBox3_Employeemanage->Checked&&!CheckBox4_Employeemanage->Checked&&!CheckBox5_Employeemanage->Checked&&!CheckBox6_Employeemanage->Checked)
          {  SpeedButton1_Employeemanage->Enabled=false;
              MessageDlg("warning! please select at least one choice ",mtWarning,TMsgDlgButtons()<<mbOK,0);
          }
         else
         {
         //SpeedButton1->Enabled=true;
         sql="select * from EmployeeTable as E  inner join  PositionTable as P on E.PositionId=P.PositionId   where E.EmployeeId like '%"+Edit1_Employeemanage->Text.Trim()+AnsiString("%'")
         +AnsiString(" and E.EmployeeName like '%")+Edit2_Employeemanage->Text.Trim()+AnsiString("%'")
         +AnsiString(" and E.EmployeeCity like '%")+Edit3_Employeemanage->Text.Trim()+AnsiString("%'")
         +AnsiString(" and E.PositionId like '%")+Edit4_Employeemanage->Text.Trim()+AnsiString("%'")
         +AnsiString(" and E.EmployeeStreet like '%")+Edit5_Employeemanage->Text.Trim()+AnsiString("%'")
         +AnsiString(" and E.EmployeePhone like '%")+Edit6_Employeemanage->Text.Trim()+AnsiString("%'");
         /*+AnsiString(" and CustomerPostcode like '%")+Edit19->Text.Trim()+AnsiString("%'")*/

         DBGrid1_Employeemanage->DataSource->Enabled=true;
         ADOQuery1_Employeemanage->SQL->Add(sql);
         ADOQuery1_Employeemanage->Active = true;
         ADOQuery1_Employeemanage->Open();
         }

}
//---------------------------------------------------------------------------
void __fastcall TForm1_Employeemanage::CheckBox1_EmployeemanageClick(
      TObject *Sender)
{     if (CheckBox1_Employeemanage->Checked)
   {
      chk++;

      Edit1_Employeemanage->Clear();
      Edit1_Employeemanage->Visible = true;
      SpeedButton1_Employeemanage->Enabled=true;
      //str1 = "EmployeeID = :V1_EmployeeID ";

      //Edit1->Enabled = true;
   }
   else
   {
      chk--;
      Edit1_Employeemanage->Visible = false;
     }
}
//---------------------------------------------------------------------------
void __fastcall TForm1_Employeemanage::CheckBox2_EmployeemanageClick(
      TObject *Sender)
{
       if (CheckBox2_Employeemanage->Checked)
   {
      chk++;
      Edit2_Employeemanage->Clear();
      Edit2_Employeemanage->Visible = true;
      SpeedButton1_Employeemanage->Enabled=true;
      //str2 = "FirstName = :V2_FirstName";
      //Edit2->Enabled = true;
   }
   else
   {
      chk--;
      Edit2_Employeemanage->Visible = false;
   }
}
//---------------------------------------------------------------------------
void __fastcall TForm1_Employeemanage::CheckBox3_EmployeemanageClick(
      TObject *Sender)
{
      if (CheckBox3_Employeemanage->Checked)
    {
      chk++;
      Edit3_Employeemanage->Clear();
      Edit3_Employeemanage->Visible = true;
      SpeedButton1_Employeemanage->Enabled=true;
      //str3 = "FirstName = :V3_FirstName";
      //Edit3->Enabled = true;
   }
   else
   {
      chk--;
      Edit3_Employeemanage->Visible = false;

      //str3 = " ";
      //Edit3->Enabled = false;
   }

}
//---------------------------------------------------------------------------
void __fastcall TForm1_Employeemanage::CheckBox4_EmployeemanageClick(
      TObject *Sender)
{
       if (CheckBox4_Employeemanage->Checked)
   {
      chk++;
      Edit4_Employeemanage->Clear();
      Edit4_Employeemanage->Visible = true;
      SpeedButton1_Employeemanage->Enabled=true;
      //str4 = "FirstName = :V4_FirstName";
      //Edit4->Enabled = true;
   }
   else
   {
      chk--;
      Edit4_Employeemanage->Visible = false;
      //str4 = " ";
      //Edit4->Enabled = false;
   }
}
//---------------------------------------------------------------------------
void __fastcall TForm1_Employeemanage::CheckBox5_EmployeemanageClick(
      TObject *Sender)
{
    if (CheckBox5_Employeemanage->Checked)
   {
      chk++;
      Edit5_Employeemanage->Clear();
      Edit5_Employeemanage->Visible = true;
      SpeedButton1_Employeemanage->Enabled=true;
      //str5 = "FirstName = :V2_FirstName";
      //Edit5->Enabled = true;
   }
   else
   {
      chk--;
      Edit5_Employeemanage->Visible = false;
      //str5 = " ";
      //Edit5->Enabled = false;
   }
}
//---------------------------------------------------------------------------
void __fastcall TForm1_Employeemanage::CheckBox6_EmployeemanageClick(
      TObject *Sender)
{
      if (CheckBox6_Employeemanage->Checked)
   {
      chk++;
      Edit6_Employeemanage->Clear();
      Edit6_Employeemanage->Visible = true;
      SpeedButton1_Employeemanage->Enabled=true;
      //str6 = "FirstName = :V2_FirstName";
      //Edit6->Enabled = true;
   }
   else
   {
      chk--;
      Edit6_Employeemanage->Visible = false;
      //str6 = " ";
      //Edit6->Enabled = false;
   }
}
//---------------------------------------------------------------------------
void __fastcall TForm1_Employeemanage::SpeedButton2_EmployeemanageClick(
      TObject *Sender)
{
   Form1_Employeemanage->Close();
}
//---------------------------------------------------------------------------
void __fastcall TForm1_Employeemanage::SpeedButton3_EmployeemanageClick(
      TObject *Sender)
{
   if(CheckBox1_Employeemanage->Checked)
   Edit1_Employeemanage->Clear();
   if(CheckBox2_Employeemanage->Checked)
   Edit2_Employeemanage->Clear();
   if(CheckBox3_Employeemanage->Checked)
   Edit3_Employeemanage->Clear();
   if(CheckBox4_Employeemanage->Checked)
   Edit4_Employeemanage->Clear();
   if(CheckBox5_Employeemanage->Checked)
   Edit5_Employeemanage->Clear();
   if(CheckBox6_Employeemanage->Checked)
   Edit6_Employeemanage->Clear();
   DBGrid1_Employeemanage->DataSource->Enabled=false;

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