petinfo.cpp

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

   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";
        AnsiString sql2="select count(TypeNum) as Type from PetTable";

        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;

        /*
        frmPetinfo->ADOQuery1->Active = false;
        frmPetinfo->ADOQuery1->SQL->Clear();

        frmPetinfo->ADOQuery1->SQL->Add(sql2);
        frmPetinfo->Petinfo_Edit001->Text = frmPetinfo->ADOQuery1->FieldByName("PetNum")->AsInteger;
      */
}
//---------------------------------------------------------------------------

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

void __fastcall TfrmPetinfo::SpeedButton6Click(TObject *Sender)
{
         frmPetinfo->ADOQuery2->Active = false;
         frmPetinfo->ADOQuery2->SQL->Clear();
         frmPetinfo->ADOQuery2->SQL->Add("select * from ExamineInfoTable where PetId = :V_Petid");
         frmPetinfo->ADOQuery2->Parameters->ParamByName("V_Petid")->Value = frmPetinfo->Petinfo_ComboBox102->Text;
         frmPetinfo->ADOQuery2->Active = true;
         frmPetinfo->ADOQuery2->Open();
}
//---------------------------------------------------------------------------

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