unit1.cpp

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

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

#include <vcl.h>
#pragma hdrstop

#include "Unit1.h"
#include "Unit2.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TfrmRemedyPlanLdp_Form1 *frmRemedyPlanLdp_Form1;
//---------------------------------------------------------------------------
__fastcall TfrmRemedyPlanLdp_Form1::TfrmRemedyPlanLdp_Form1(TComponent* Owner)
        : TForm(Owner)
{

}
//---------------------------------------------------------------------------
void __fastcall TfrmRemedyPlanLdp_Form1::frmRemedyPlanLdp_CheckBox1Click(TObject *Sender)
{
  if(frmRemedyPlanLdp_CheckBox1->Checked)
     frmRemedyPlanLdp_Edit1->Visible=true;
  else
     frmRemedyPlanLdp_Edit1->Visible=false;
}
//---------------------------------------------------------------------------
void __fastcall TfrmRemedyPlanLdp_Form1::frmRemedyPlanLdp_CheckBox2Click(
      TObject *Sender)
{
   if(frmRemedyPlanLdp_CheckBox2->Checked)
     frmRemedyPlanLdp_Edit2->Visible=true;
  else
     frmRemedyPlanLdp_Edit2->Visible=false;
}
//---------------------------------------------------------------------------

void __fastcall TfrmRemedyPlanLdp_Form1::frmRemedyPlanLdp_CheckBox3Click(
      TObject *Sender)
{
 if(frmRemedyPlanLdp_CheckBox3->Checked)
     frmRemedyPlanLdp_Edit3->Visible=true;
  else
     frmRemedyPlanLdp_Edit3->Visible=false;
}
//---------------------------------------------------------------------------

void __fastcall TfrmRemedyPlanLdp_Form1::frmRemedyPlanLdp_CheckBox4Click(TObject *Sender)
{
 if(frmRemedyPlanLdp_CheckBox4->Checked)
     frmRemedyPlanLdp_DateTimePicker1->Visible=true;
  else
     frmRemedyPlanLdp_DateTimePicker1->Visible=false;
}
//---------------------------------------------------------------------------

void __fastcall TfrmRemedyPlanLdp_Form1::frmRemedyPlanLdp_SpeedButton1Click(
      TObject *Sender)
{   bool chk=false;
  if(frmRemedyPlanLdp_Edit1->Text.IsEmpty())
    MessageDlg("诊治Id不能为空. ",mtError,TMsgDlgButtons()<<mbOK,0);
   else
   {
   try
      {
         ADOQuery1->Active = false;
         ADOQuery1->SQL->Clear();
         ADOQuery1->SQL->Add("select * from RemedyPlanTable");
         chk=false;
      }
      catch(...)
      {
         MessageDlg("Error:xxxx. DataBase Searching was falure. ",mtError,TMsgDlgButtons()<<mbOK,0);
      }
   try
      {
      if(frmRemedyPlanLdp_CheckBox1->Checked)

      {  //if(!StrComp(frmRemedyPlanLdp_Edit1->Text,"  "))
      //frmRemedyPlanLdp_Edit1->o OEMConvert


        chk=true;

       ADOQuery1->SQL->Add(" where TreatId='"+frmRemedyPlanLdp_Edit1->Text+"'");

       }
      if(frmRemedyPlanLdp_CheckBox2->Checked)
      {
      if(chk!=true)
         {
           ADOQuery1->SQL->Add(" where ExamineId='"+frmRemedyPlanLdp_Edit2->Text+"'");
           chk=true;
           }
      else
      ADOQuery1->SQL->Add(" and ExamineId='"+frmRemedyPlanLdp_Edit2->Text+"'");

      }
      if(frmRemedyPlanLdp_CheckBox3->Checked)
      {
       if(chk!=true)
       {
       ADOQuery1->SQL->Add(" where RemedyCount='"+frmRemedyPlanLdp_Edit3->Text+"'");
       chk=true;
       }
       else
       ADOQuery1->SQL->Add(" and RemedyCount='"+frmRemedyPlanLdp_Edit3->Text+"'");
      }
      if(frmRemedyPlanLdp_CheckBox4->Checked)
      {  if(chk!=true)
         {
         ADOQuery1->SQL->Add(" where StartDate='"+DateToStr(frmRemedyPlanLdp_DateTimePicker1->Date)+"'");
         chk=true;
         }
         else
         ADOQuery1->SQL->Add(" and StartDate='"+DateToStr(frmRemedyPlanLdp_DateTimePicker1->Date)+"'");
      }
       ADOQuery1->Prepared;
       ADOQuery1->Active = true;
       ADOQuery1->Open();
       }
       catch(...)
      {
         MessageDlg("Error:xxxx. DataBase Searching was falure. ",mtError,TMsgDlgButtons()<<mbOK,0);
      }

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



void __fastcall TfrmRemedyPlanLdp_Form1::DBGrid1DblClick(TObject *Sender)
{
frmRemedyPlanLdp_PageControl2->ActivePage=TabSheet1;
//frmRemedyPlanLdp_DateTimePicker1->Date=ADOQuery1->FieldByName("StartDate")->AsString;
//frmRemedyPlanLdp_DateTimePicker1->Date=ADOQuery1->FieldByName("StartDate")->AsString;
frmRemedyPlanLdp_DateTimePicker2->Date=ADOQuery1->FieldByName("FinishDate")->AsString;
frmRemedyPlanLdp_DateTimePicker3->Date=ADOQuery1->FieldByName("StartDate")->AsString;

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


void __fastcall TfrmRemedyPlanLdp_Form1::SpeedButton2Click(TObject *Sender)
{
   frmRemedyPlanLdp_Form2->Show();

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



void __fastcall TfrmRemedyPlanLdp_Form1::SpeedButton1Click(TObject *Sender)
{
     //if(DataSource1->State==dsEdit||DataSource1->State==dsInsert);
//if(ADOQuery1->DataSource->State==dsEdit||ADOQuery1->DataSource->State==dsInsert)
     //ADOQuery1->Edit();
     DBNavigator1->BtnClick(nbPost);
     ShowMessage("修改成功");
     //SpeedButton5->Enabled=true;
     //ADOQuery1->Close();

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



void __fastcall TfrmRemedyPlanLdp_Form1::Edit1Change(TObject *Sender)
{
//Edit1->Text=ADOQuery1->FieldByName("TreadId");
}
//---------------------------------------------------------------------------





void __fastcall TfrmRemedyPlanLdp_Form1::frmRemedyPlanLdp_PageControl2Change(
      TObject *Sender)
{   
 if (ADOQuery1->RecordCount!=0)
  {  SpeedButton1->Enabled = true;
     SpeedButton2->Enabled = true;
     SpeedButton3->Enabled = true;
     SpeedButton4->Enabled = true;
  }
  else
  {  SpeedButton1->Enabled = false;
  SpeedButton2->Enabled = false;
     SpeedButton3->Enabled = false;
     SpeedButton4->Enabled = false;
  }


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


void __fastcall TfrmRemedyPlanLdp_Form1::SpeedButton5Click(TObject *Sender)
{
 DBNavigator1->BtnClick(nbCancel);
}
//---------------------------------------------------------------------------

void __fastcall TfrmRemedyPlanLdp_Form1::DataSource1DataChange(
      TObject *Sender, TField *Field)
{
SpeedButton5->Enabled=(DataSource1->State==dsEdit||DataSource1->State==dsInsert);
//SpeedButton1->Enabled=SpeedButton2->Enabled;
SpeedButton1->Enabled=SpeedButton5->Enabled;
//SpeedButton1->Enabled=(DataSource1->State==dsEdit||DataSource1->State==dsInsert);
}
//---------------------------------------------------------------------------


void __fastcall TfrmRemedyPlanLdp_Form1::SpeedButton3Click(TObject *Sender)
{
DBNavigator1->BtnClick(nbDelete);
ShowMessage("删除成功");
}
//---------------------------------------------------------------------------



void __fastcall TfrmRemedyPlanLdp_Form1::DBGrid1CellClick(TColumn *Column)
{
//frmRemedyPlanLdp_DateTimePicker1->Date=ADOQuery1->FieldByName("StartDate")->AsString;
//frmRemedyPlanLdp_DateTimePicker2->Date=ADOQuery1->FieldByName("FinishDate")->AsString;
//frmRemedyPlanLdp_DateTimePicker3->Date=ADOQuery1->FieldByName("StartDate")->AsString;
}
//---------------------------------------------------------------------------

void __fastcall TfrmRemedyPlanLdp_Form1::DBGrid2CellClick(TColumn *Column)
{
frmRemedyPlanLdp_DateTimePicker1->Date=ADOQuery1->FieldByName("StartDate")->AsString;
frmRemedyPlanLdp_DateTimePicker2->Date=ADOQuery1->FieldByName("FinishDate")->AsString;
frmRemedyPlanLdp_DateTimePicker3->Date=ADOQuery1->FieldByName("StartDate")->AsString;

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