petinfo.~cpp

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

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

#include <vcl.h>
#pragma hdrstop

#include "PetInfo.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TfrmPetinfo *frmPetinfo;
//---------------------------------------------------------------------------
__fastcall TfrmPetinfo::TfrmPetinfo(TComponent* Owner)
        : TForm(Owner)
{

    AnsiString sql,sql1,sql2;
    frmPetinfo->ADOQuery1->Active = false;
    frmPetinfo->ADOQuery1->SQL->Clear();
    sql1="select ClinicId from Clinic";
    frmPetinfo->ADOQuery1->SQL->Add(sql1);
    frmPetinfo->ADOQuery1->Active = true;
    frmPetinfo->ADOQuery1->Open();
    for(int i=0;i<frmPetinfo->ADOQuery1->RecordCount;i++)
    {
        Petinfo_Edit13->Items->Add(frmPetinfo->ADOQuery1->FieldByName("ClinicId")->AsString);
        frmPetinfo->ADOQuery1->Next();
    }


    frmPetinfo->ADOQuery1->Active = false;
    frmPetinfo->ADOQuery1->SQL->Clear();
    sql1="select ClinicId from Clinic";
    frmPetinfo->ADOQuery1->SQL->Add(sql1);
    frmPetinfo->ADOQuery1->Active = true;
    frmPetinfo->ADOQuery1->Open();
    for(int i=0;i<frmPetinfo->ADOQuery1->RecordCount;i++)
    {
        Petinfo_DBComboBox100->Items->Add(frmPetinfo->ADOQuery1->FieldByName("ClinicId")->AsString);
        frmPetinfo->ADOQuery1->Next();
    }



    frmPetinfo->ADOQuery1->Active = false;
    frmPetinfo->ADOQuery1->SQL->Clear();
    sql2="select CustomerId from CustomerTable";
    frmPetinfo->ADOQuery1->SQL->Add(sql2);
    frmPetinfo->ADOQuery1->Active = true;
    frmPetinfo->ADOQuery1->Open();
    for(int i=0;i<frmPetinfo->ADOQuery1->RecordCount;i++)
    {
        Petinfo_Edit15->Items->Add(frmPetinfo->ADOQuery1->FieldByName("CustomerId")->AsString);
        frmPetinfo->ADOQuery1->Next();
    }

    frmPetinfo->ADOQuery1->Active = false;
    frmPetinfo->ADOQuery1->SQL->Clear();
    sql2="select CustomerId from CustomerTable";
    frmPetinfo->ADOQuery1->SQL->Add(sql2);
    frmPetinfo->ADOQuery1->Active = true;
    frmPetinfo->ADOQuery1->Open();
    for(int i=0;i<frmPetinfo->ADOQuery1->RecordCount;i++)
    {
        Petinfo_ComboBox101->Items->Add(frmPetinfo->ADOQuery1->FieldByName("CustomerId")->AsString);
        frmPetinfo->ADOQuery1->Next();
    }


    frmPetinfo->ADOQuery2->Active = false;
    frmPetinfo->ADOQuery2->SQL->Clear();
    sql1="select PetId from PetTable";
    frmPetinfo->ADOQuery2->SQL->Add(sql1);
    frmPetinfo->ADOQuery2->Active = true;
    frmPetinfo->ADOQuery2->Open();
    for(int i=0;i<frmPetinfo->ADOQuery2->RecordCount;i++)
    {
        Petinfo_ComboBox102->Items->Add(frmPetinfo->ADOQuery2->FieldByName("PetId")->AsString);
        frmPetinfo->ADOQuery2->Next();
    }

    frmPetinfo->ADOQuery1->Active = false;
    frmPetinfo->ADOQuery1->SQL->Clear();
    sql="select PetState from PetTable";
    frmPetinfo->ADOQuery1->SQL->Add(sql);
    frmPetinfo->ADOQuery1->Active = true;
    frmPetinfo->ADOQuery1->Open();
    for(int i=0;i<frmPetinfo->ADOQuery1->RecordCount;i++)
    {
        frmPetinfo_DBComboBox2->Items->Add(frmPetinfo->ADOQuery1->FieldByName("PetState")->AsString);
        frmPetinfo->ADOQuery1->Next();
    }
}
//---------------------------------------------------------------------------



void __fastcall TfrmPetinfo::SpeedButton3Click(TObject *Sender)
{


  //frmADOQuery1
   frmPetinfo->Petinfo_Edit3->Enabled = false;
   Petinfo_xxxg_ok->Enabled = false;
   PageControl1->ActivePageIndex = 1;
   frmPetinfo->Petinfo_xxxg_ok->Enabled = false;
   frmPetinfo->Petinfo_xxxg_ok->Update();
   frmPetinfo->Petinfo_Edit3->Text = frmPetinfo->ADOQuery1->FieldByName("PetId")->AsString;
   frmPetinfo->Petinfo_Edit4->Text = frmPetinfo->ADOQuery1->FieldByName("PetName")->AsString;
   frmPetinfo->Petinfo_Edit5->Text = frmPetinfo->ADOQuery1->FieldByName("PetType")->AsString;
   frmPetinfo->Petinfo_Edit6->Text = frmPetinfo->ADOQuery1->FieldByName("ClinicId")->AsString;
   frmPetinfo->Petinfo_DateTimePicker2->Date = frmPetinfo->ADOQuery1->FieldByName("PetBirth")->AsDateTime;
   frmPetinfo->Petinfo_Edit7->Text = frmPetinfo->ADOQuery1->FieldByName("PetState")->AsString;
   frmPetinfo->Petinfo_DateTimePicker3->Date = frmPetinfo->ADOQuery1->FieldByName("RegisterDate")->AsDateTime;
   frmPetinfo->Petinfo_Edit8->Text = frmPetinfo->ADOQuery1->FieldByName("CustomerId")->AsString;
   frmPetinfo->Petinfo_Edit9->Text = frmPetinfo->ADOQuery1->FieldByName("PetDesc")->AsString;

   
}
//---------------------------------------------------------------------------
void __fastcall TfrmPetinfo::Petinfo_xxcx_shClick(TObject *Sender)
{
        bool chk=false;
   try
      {
         ADOQuery1->Active = false;
         ADOQuery1->SQL->Clear();
         ADOQuery1->SQL->Add("select * from PetTable");
         chk=false;
      }
      catch(...)
      {
         MessageDlg("Error:xxxx. DataBase Searching was falure. ",mtError,TMsgDlgButtons()<<mbOK,0);
      }
   try
      {
      if(Petinfo_CheckBox1->Checked)

      {
         chk=true;

         ADOQuery1->SQL->Add(" where PetId='"+frmPetinfo_DBEdit1->Text+"'");

       }
      if(Petinfo_CheckBox2->Checked)
      {
      if(chk!=true)
         {
           ADOQuery1->SQL->Add(" where PetName='"+frmPetinfo_DBEdit2->Text+"'");
           chk=true;
           }
      else
      ADOQuery1->SQL->Add(" and PetName='"+frmPetinfo_DBEdit2->Text+"'");

      }
      if(Petinfo_CheckBox3->Checked)
      {
       if(chk!=true)
       {
       ADOQuery1->SQL->Add(" where PetType='"+frmPetinfo_DBComboBox1->Text+"'");
       chk=true;
       }
       else
       ADOQuery1->SQL->Add(" and PetType'"+frmPetinfo_DBComboBox1->Text+"'");
      }
      if(Petinfo_CheckBox4->Checked)
      {  if(chk!=true)
         {
         ADOQuery1->SQL->Add(" where PetState = '"+frmPetinfo_DBComboBox2->Text+"'");
         chk=true;
         }
         else
         ADOQuery1->SQL->Add(" and PetState='"+frmPetinfo_DBComboBox2->Text+"'");
      }
      if(Petinfo_CheckBox5->Checked)
      {  if(chk!=true)
         {
         ADOQuery1->SQL->Add(" where RegisterDate='"+DateToStr(frmPetinfo_Petinfo_DateTimePicker1->Date)+"'");
         chk=true;
         }
         else
         ADOQuery1->SQL->Add(" and RegisterDate='"+DateToStr(frmPetinfo_Petinfo_DateTimePicker1->Date)+"'");
      }
       ADOQuery1->Prepared;
       ADOQuery1->Active = true;
       ADOQuery1->Open();
       }
       catch(...)
      {
         MessageDlg("Error:xxxx. DataBase Searching was falure. ",mtError,TMsgDlgButtons()<<mbOK,0);
      }
}
//---------------------------------------------------------------------------

void __fastcall TfrmPetinfo::Petinfo_CheckBox1Click(TObject *Sender)
{
        if(Petinfo_CheckBox1->Checked)frmPetinfo_DBEdit1->Enabled = true;
        else frmPetinfo_DBEdit1->Enabled = false;
}
//---------------------------------------------------------------------------

void __fastcall TfrmPetinfo::Petinfo_CheckBox2Click(TObject *Sender)
{
        if(Petinfo_CheckBox2->Checked)frmPetinfo_DBEdit2->Enabled = true;
        else frmPetinfo_DBEdit2->Enabled = false;
}
//---------------------------------------------------------------------------

void __fastcall TfrmPetinfo::SpeedButton4Click(TObject *Sender)
{
        Close();        
}
//---------------------------------------------------------------------------





void __fastcall TfrmPetinfo::Petinfo_Edit3Change(TObject *Sender)
{
        Petinfo_xxxg_ok->Enabled = true;
}
//---------------------------------------------------------------------------



void __fastcall TfrmPetinfo::Petinfo_xxtj_okClick(TObject *Sender)
{
   AnsiString str3,str2;
   frmPetinfo->ADOQuery1->Edit();
   str2 = DateToStr(Petinfo_DateTimePicker2->Date);
   str2 = Trim(str2);
   str3 = DateToStr(Petinfo_DateTimePicker3->Date);
   str3 = Trim(str3);

   frmPetinfo->ADOQuery1->FieldByName("PetName")->AsString = Petinfo_Edit4->Text;