model3_employeemanage.~cpp

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

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

#include <vcl.h>
#pragma hdrstop

#include "Model3_EmployeeManage.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();
    //for(int i=0;i<SYSMngForm_ADOQuery1->RecordCount;i++)
    //{
     //   SYSMngForm_ComboBox2->Items->Add(SYSMngForm_ADOQuery1->FieldByName("ClinicId")->AsString);
    //    SYSMngForm_ADOQuery1->Next();
   // }
    /*
    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;
    ComboBox1->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&&!CheckBox1->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 E.ClinicId like '%")+ComboBox1->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)
   {

      Edit6_Employeemanage->Clear();
      Edit6_Employeemanage->Visible = true;
      SpeedButton1_Employeemanage->Enabled=true;
      //str6 = "FirstName = :V2_FirstName";
      //Edit6->Enabled = true;
   }
   else
   {

      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;

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


void __fastcall TForm1_Employeemanage::CheckBox1Click(TObject *Sender)
{
if (CheckBox1->Checked)
   {
   for(int i=0;i<ADOQuery1->RecordCount;i++)
    {
        ComboBox1->Items->Add(ADOQuery1->FieldByName("ClinicId")->AsString);
        ADOQuery1->Next();
    }
    ComboBox1->Visible=true; 
      //Edit6_Employeemanage->Clear();
      //Edit6_Employeemanage->Visible = true;
      //SpeedButton1_Employeemanage->Enabled=true;
      //str6 = "FirstName = :V2_FirstName";
      //Edit6->Enabled = true;
   }
   else
   {

      ComboBox1->Visible = false;
      //str6 = " ";
      //Edit6->Enabled = false;
   }        
}
//---------------------------------------------------------------------------




void __fastcall TForm1_Employeemanage::CheckBox2Click(TObject *Sender)
{
   if(CheckBox2->Checked)
        Button1->Enabled=true;
   else
        Button1->Enabled=false;
}
//---------------------------------------------------------------------------


void __fastcall TForm1_Employeemanage::Button2Click(TObject *Sender)
{
        Form1_Employeemanage->ADOQuery2->Active = false;
        Form1_Employeemanage->ADOQuery2->SQL->Clear();
        Form1_Employeemanage->ADOQuery2->SQL->Add("select ClinicId, sum(EmployeeSalary) as Salary_sum from EmployeeTable as E inner join PositionTable as P on P.PositionId=E.PositionId group by ClinicId order by ClinicId");
        Form1_Employeemanage->ADOQuery2->Active = true;
        Form1_Employeemanage->ADOQuery2->Open();
}
//---------------------------------------------------------------------------


void __fastcall TForm1_Employeemanage::CheckBox3Click(TObject *Sender)
{ if(CheckBox3->Checked)
        Button2->Enabled=true;
   else
        Button2->Enabled=false;

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


void __fastcall TForm1_Employeemanage::Button1Click(TObject *Sender)
{
        Form1_Employeemanage->ADOQuery2->Active = false;
        Form1_Employeemanage->ADOQuery2->SQL->Clear();
        Form1_Employeemanage->ADOQuery2->SQL->Add("select EmployeeId, EmployeeName from EmployeeTable where PositionId=1 or PositionId=2 and EmployeeBirth>'2001-8-30' order by EmployeeName");
        Form1_Employeemanage->ADOQuery2->Active = true;
        Form1_Employeemanage->ADOQuery2->Open();
}
//---------------------------------------------------------------------------