⭐ 欢迎来到虫虫下载站！ | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站
📤 上传资源

📄 unit1.~cpp

📁 这是我们班实习的时候做的一个宠物医院管理系统。sql数据库
💻 ~CPP
字号:
🔍 
//---------------------------------------------------------------------------

#include <vcl.h>
#pragma hdrstop

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

    AnsiString 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();
    }
}
//---------------------------------------------------------------------------



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


  //frmADOQuery1
   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;
   frmPetinfo->ADOQuery1->FieldByName("PetType")->AsString = Petinfo_Edit5->Text;
   frmPetinfo->ADOQuery1->FieldByName("ClinicId")->AsString = Petinfo_Edit6->Text;
   frmPetinfo->ADOQuery1->FieldByName("PetBirth")->AsString = str2;
   frmPetinfo->ADOQuery1->FieldByName("PetState")->AsString = Petinfo_Edit7->Text;
   frmPetinfo->ADOQuery1->FieldByName("RegisterDate")->AsString = str3;
   frmPetinfo->ADOQuery1->FieldByName("CustomerId")->AsString = Petinfo_Edit8->Text;
   frmPetinfo->ADOQuery1->FieldByName("PetDesc")->AsString = Petinfo_Edit9->Text;

   frmPetinfo->ADOQuery1->Post();
   frmPetinfo->ADOQuery1->Refresh();
}
//---------------------------------------------------------------------------

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


   Petinfo_Edit4->Text=frmPetinfo->ADOQuery1->FieldByName("PetName")->AsString ;
   Petinfo_Edit5->Text=frmPetinfo->ADOQuery1->FieldByName("PetType")->AsString ;
   Petinfo_Edit6->Text=frmPetinfo->ADOQuery1->FieldByName("ClinicId")->AsString ;
   //Petinfo_DateTimePicker2->Text=frmPetinfo->ADOQuery1->FieldByName("PetName")->AsString ;
   Petinfo_Edit7->Text=frmPetinfo->ADOQuery1->FieldByName("PetState")->AsString ;
   //Petinfo_Edit4->Text=frmPetinfo->ADOQuery1->FieldByName("PetName")->AsString ;
   Petinfo_Edit8->Text=frmPetinfo->ADOQuery1->FieldByName("CustomerId")->AsString ;
   Petinfo_Edit9->Text=frmPetinfo->ADOQuery1->FieldByName("PetDesc")->AsString ;
   //Petinfo_Edit4->Text=frmPetinfo->ADOQuery1->FieldByName("PetName")->AsString ;
   Petinfo_xxxg_ok->Enabled=false;
   
}
//---------------------------------------------------------------------------






void __fastcall TfrmPetinfo::Petinfo_Sheet3_okClick(TObject *Sender)
{
      if (Petinfo_Edit10->Text != "" && Petinfo_Edit13->Text != ""&&Petinfo_Edit15->Text!="")
   {
      //进行“插入功能”活动：
      ADOQuery1->Active = true;
      AnsiString str;
      frmPetinfo->ADOQuery1->Insert();

      str = Petinfo_Edit10->Text;    //赋值
      str = Trim(str);
      frmPetinfo->ADOQuery1->FieldByName("PetId")->AsString = str;

      str = Petinfo_Edit11->Text;
      str = Trim(str);
      frmPetinfo->ADOQuery1->FieldByName("PetName")->AsString = str;


      str = DateToStr(frmPetinfo->DateTimePicker4->Date);
      str = Trim(str);
      frmPetinfo->ADOQuery1->FieldByName("PetBirth")->AsString = str;

      str = Petinfo_Edit12->Text;
      str = Trim(str);
      frmPetinfo->ADOQuery1->FieldByName("PetType")->AsString = str;


      str = Petinfo_Edit13->Text;
      str = Trim(str);
      frmPetinfo->ADOQuery1->FieldByName("ClinicId")->AsString = str;
      //出生日期 //
      str = DateToStr(frmPetinfo->DateTimePicker5->Date);
      str = Trim(str);
      frmPetinfo->ADOQuery1->FieldByName("RegisterDate")->AsString = str;

      str = Petinfo_Edit14->Text;
      str = Trim(str);
      frmPetinfo->ADOQuery1->FieldByName("CustomerId")->AsString = str;

      str = Petinfo_Edit15->Text;
      str = Trim(str);
      frmPetinfo->ADOQuery1->FieldByName("PetDesc")->AsString = str;


      frmPetinfo->ADOQuery1->Post();
      ADOQuery1->Active =true;
     ADOQuery1->Open();
   }
   else
   {
      MessageDlg("警告:字段 PetId,CustomerId或者ClinicId为空. 这是非法操作! 请重试.",
      mtWarning,TMsgDlgButtons()<<mbOK,0);
   }

     frmPetinfo->Petinfo_Sheet3_ok->Enabled = false;

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

void __fastcall TfrmPetinfo::Petinfo_xxcx_delClick(TObject *Sender)
{
        if ( MessageDlg("Are sure to delete the record of the Pet which PetId = " + ADOQuery1->FieldByName("PetId")->AsString + " ? If your answer is positive, click the 'Yes' Button. otherwise click the 'No' Button.",
   mtConfirmation,TMsgDlgButtons()<<mbYes<<mbNo,0)==mrYes )
   {

        if (ADOQuery1->RecordCount != 0)
        {

                frmPetinfo->ADOQuery1->Delete();
                ADOQuery1->Refresh();
                DBGrid1->Refresh();
        }
       else
       {
           frmPetinfo->Petinfo_xxcx_sh->Enabled = false;
        }
        if (ADOQuery1->RecordCount != 0)
        {
          frmPetinfo->Petinfo_xxcx_sh->Enabled = true;
        }
        else
        {
           frmPetinfo->Petinfo_xxcx_sh->Enabled = false;
        }



   }


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


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

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

void __fastcall TfrmPetinfo::Petinfo_Edit10Change(TObject *Sender)
{
        frmPetinfo->Petinfo_Sheet3_ok->Enabled = true;       
}
//---------------------------------------------------------------------------


void __fastcall TfrmPetinfo::Petinfo_Edit11Click(TObject *Sender)
{
        frmPetinfo->Petinfo_Sheet3_ok->Enabled = true;        
}
//---------------------------------------------------------------------------

void __fastcall TfrmPetinfo::Petinfo_Edit12Click(TObject *Sender)
{
        frmPetinfo->Petinfo_Sheet3_ok->Enabled = true;        
}
//---------------------------------------------------------------------------

void __fastcall TfrmPetinfo::Petinfo_Edit13Click(TObject *Sender)
{
        frmPetinfo->Petinfo_Sheet3_ok->Enabled = true;        
}
//---------------------------------------------------------------------------

void __fastcall TfrmPetinfo::Petinfo_Edit14Click(TObject *Sender)
{
        frmPetinfo->Petinfo_Sheet3_ok->Enabled = true;        
}
//---------------------------------------------------------------------------

void __fastcall TfrmPetinfo::Petinfo_Edit15Click(TObject *Sender)
{
        frmPetinfo->Petinfo_Sheet3_ok->Enabled = true;        
}
//---------------------------------------------------------------------------

void __fastcall TfrmPetinfo::Petinfo_Edit16Click(TObject *Sender)
{
        frmPetinfo->Petinfo_Sheet3_ok->Enabled = true;        
}
//---------------------------------------------------------------------------

void __fastcall TfrmPetinfo::SpeedButton1Click(TObject *Sender)
{
        AnsiString sql="select count(*)as PetNum from PetTable as P inner join Clinic as C on P.ClinicId=C.ClinicId where C.ClinicId = :V_ClinicId";
        frmPetinfo->ADOQuery1->Active = false;
        frmPetinfo->ADOQuery1->SQL->Clear();

        frmPetinfo->ADOQuery1->SQL->Add(sql);
         frmPetinfo->ADOQuery1->Parameters->ParamByName("V_ClinicId")->Value= Petinfo_DBComboBox100->Text;

        frmPetinfo->ADOQuery1->Active = true;

        frmPetinfo->Petinfo_Edit100->Text = frmPetinfo->ADOQuery1->FieldByName("PetNum")->AsInteger;

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

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -