unit3.cpp

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

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

#include <vcl.h>
#pragma hdrstop

#include "Unit2.h"
#include "Unit3.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TfrmClinicInfo_ytc *frmClinicInfo_ytc;
//---------------------------------------------------------------------------
__fastcall TfrmClinicInfo_ytc::TfrmClinicInfo_ytc(TComponent* Owner)
        : TForm(Owner)
{
  insertbool = false;
  frmClinicInfo_Clear2_btn->Enabled =false;
  frmClinicInfo_submit2_btn->Enabled =false;
  frmClinicInfo_Delete_btn->Enabled =false;
  frmClinicInfo_ClinicModify_btn->Enabled =false;
  }
//---------------------------------------------------------------------------






void __fastcall TfrmClinicInfo_ytc::frmClinicInfo_Clinicname_chkClick(
      TObject *Sender)
{
  if (frmClinicInfo_Clinicname_chk->Checked)
   {
      frmClinicInfo_Clinicname_edt->Clear();
      frmClinicInfo_Clinicname_edt->Visible = true;
   }
   else
   {
      frmClinicInfo_Clinicname_edt->Clear();
      frmClinicInfo_Clinicname_edt->Visible = false;
   }
}
//---------------------------------------------------------------------------

void __fastcall TfrmClinicInfo_ytc::frmClinicInfo_ClinicModify_btnClick(
      TObject *Sender)
{
frmClinicInfo_submit3_btn->ActivePageIndex = 1;
}
//---------------------------------------------------------------------------


void __fastcall TfrmClinicInfo_ytc::frmClinicInfo_ClinicId_chkClick(
      TObject *Sender)
{
   if (frmClinicInfo_ClinicId_chk->Checked)
   {

      frmClinicInfo_ClinicId_edt->Clear();
      frmClinicInfo_ClinicId_edt->Visible = true;
   }
   else
   {
      frmClinicInfo_ClinicId_edt->Clear();
      frmClinicInfo_ClinicId_edt->Visible = false;
   }
}
//---------------------------------------------------------------------------

void __fastcall TfrmClinicInfo_ytc::frmClinicInfo_FaxNumber_chkClick(
      TObject *Sender)
{
   if (frmClinicInfo_FaxNumber_chk->Checked)
   {

      frmClinicInfo_FaxNumber_edt->Clear();
      frmClinicInfo_FaxNumber_edt->Visible = true;
   }
   else
   {
      frmClinicInfo_FaxNumber_edt->Clear();
      frmClinicInfo_FaxNumber_edt->Visible = false;
   }
}
//---------------------------------------------------------------------------

void __fastcall TfrmClinicInfo_ytc::frmClinicInfo_ClinicStreet_chkClick(
      TObject *Sender)
{
   if (frmClinicInfo_ClinicStreet_chk->Checked)
   {

      frmClinicInfo_ClinicStreet_edt->Clear();
      frmClinicInfo_ClinicStreet_edt->Visible = true;
   }
   else
   {
      frmClinicInfo_ClinicStreet_edt->Clear();
      frmClinicInfo_ClinicStreet_edt->Visible = false;
   }
}
//---------------------------------------------------------------------------

void __fastcall TfrmClinicInfo_ytc::frmClinicInfo_ClinicCity_chkClick(
      TObject *Sender)
{
   if (frmClinicInfo_ClinicCity_chk->Checked)
   {

      frmClinicInfo_ClinicCity_edt->Clear();
      frmClinicInfo_ClinicCity_edt->Visible = true;
   }
   else
   {
      frmClinicInfo_ClinicCity_edt->Clear();
      frmClinicInfo_ClinicCity_edt->Visible = false;
   }
}
//---------------------------------------------------------------------------

void __fastcall TfrmClinicInfo_ytc::frmClinicInfo_ClinicProvince_chkClick(
      TObject *Sender)
{
   if (frmClinicInfo_ClinicProvince_chk->Checked)
   {

      frmClinicInfo_ClinicProvince_edt->Clear();
      frmClinicInfo_ClinicProvince_edt->Visible = true;
   }
   else
   {
      frmClinicInfo_ClinicProvince_edt->Clear();
      frmClinicInfo_ClinicProvince_edt->Visible = false;
   }
}
//---------------------------------------------------------------------------

void __fastcall TfrmClinicInfo_ytc::frmClinicInfo_ClinicPostcode_chkClick(
      TObject *Sender)
{
   if (frmClinicInfo_ClinicPostcode_chk->Checked)
   {

      frmClinicInfo_ClinicPostcode_edt->Clear();
      frmClinicInfo_ClinicPostcode_edt->Visible = true;
   }
   else
   {
      frmClinicInfo_ClinicPostcode_edt->Clear();
      frmClinicInfo_ClinicPostcode_edt->Visible = false;
   }
}
//---------------------------------------------------------------------------

void __fastcall TfrmClinicInfo_ytc::frmClinicInfo_ClinicPhone_chkClick(
      TObject *Sender)
{
   if (frmClinicInfo_ClinicPhone_chk->Checked)
   {

      frmClinicInfo_ClinicPhone_edt->Clear();
      frmClinicInfo_ClinicPhone_edt->Visible = true;
   }
   else
   {
      frmClinicInfo_ClinicPhone_edt->Clear();
      frmClinicInfo_ClinicPhone_edt->Visible = false;
   }
}
//---------------------------------------------------------------------------


void __fastcall TfrmClinicInfo_ytc::frmClinicInfo_ClinicSearch_btnClick(
      TObject *Sender)
{
      try
      {
         frmMain_ytc->ADOQuery1->Active = false;
         frmMain_ytc->ADOQuery1->SQL->Clear();
         frmMain_ytc->ADOQuery1->SQL->Add("SELECT ClinicName,ClinicId,FaxNumber,ClinicStreet,ClinicCity,ClinicProvince,ClinicPostcode,ClinicPhone FROM Clinic "
         + AnsiString(" where ClinicName like '%") +  frmClinicInfo_Clinicname_edt->Text.Trim() + AnsiString("%'")
         + AnsiString(" and ClinicId like '%") +  frmClinicInfo_ClinicId_edt->Text.Trim() + AnsiString("%'")
         + AnsiString(" and FaxNumber like '%") +  frmClinicInfo_FaxNumber_edt->Text.Trim() + AnsiString("%'")
         + AnsiString(" and ClinicStreet like '%") +  frmClinicInfo_ClinicStreet_edt->Text.Trim() + AnsiString("%'")
         + AnsiString(" and ClinicCity like '%") +  frmClinicInfo_ClinicCity_edt->Text.Trim() + AnsiString("%'")
         + AnsiString(" and ClinicProvince like '%") +  frmClinicInfo_ClinicProvince_edt->Text.Trim() + AnsiString("%'")
         + AnsiString(" and ClinicPostcode like '%") +  frmClinicInfo_ClinicPostcode_edt->Text.Trim() + AnsiString("%'")
         + AnsiString(" and ClinicPhone like '%") +  frmClinicInfo_ClinicPhone_edt->Text.Trim() + AnsiString("%'")


         );
         frmMain_ytc->ADOQuery1->Active = true;
         frmMain_ytc->ADOQuery1->Open();
         frmMain_ytc->ADOQuery1->Refresh();
      }
      catch(...)
      {
         MessageDlg("Error:xxxx. DataBase Searching was falure.",mtError,TMsgDlgButtons()<<mbOK,0);
      }

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





void __fastcall TfrmClinicInfo_ytc::frmClinicInfo_submit31_btnClick(
      TObject *Sender)
{
   frmMain_ytc->ADOQuery1->Active = false;
   frmMain_ytc->ADOQuery1->SQL->Clear();
   frmMain_ytc->ADOQuery1->SQL->Add("SELECT * from Clinic");
   frmMain_ytc->ADOQuery1->Active = true;
   frmMain_ytc->ADOQuery1->Open();

   bool b = true;
   try
   {
   frmMain_ytc->ADOQuery1->Insert() ;
   frmMain_ytc->ADOQuery1->FieldByName("ClinicCity")->AsString =Trim(frmClinicInfo_ClinicCity_edt3->Text);
   frmMain_ytc->ADOQuery1->FieldByName("ClinicId")->AsString =Trim(frmClinicInfo_ClinicId_edt3->Text);
   frmMain_ytc->ADOQuery1->FieldByName("ClinicName")->AsString =Trim(frmClinicInfo_Clinicname_edt3->Text);
   frmMain_ytc->ADOQuery1->FieldByName("ClinicPhone")->AsString =Trim(frmClinicInfo_ClinicPhone_edt3->Text);
   frmMain_ytc->ADOQuery1->FieldByName("ClinicPostcode")->AsString =Trim(frmClinicInfo_ClinicPostcode_edt3->Text);
   frmMain_ytc->ADOQuery1->FieldByName("ClinicProvince")->AsString =Trim(frmClinicInfo_ClinicProvince_edt3->Text);
   frmMain_ytc->ADOQuery1->FieldByName("ClinicStreet")->AsString =Trim(frmClinicInfo_ClinicStreet_edt3->Text);
   frmMain_ytc->ADOQuery1->FieldByName("FaxNumber")->AsString =Trim(frmClinicInfo_FaxNumber_edt3->Text);
   frmMain_ytc->ADOQuery1->Post() ;
   }
   catch(...)
      {
         b = false;
         MessageDlg("Error:xxxx. 插入诊所信息失败！",mtError,TMsgDlgButtons()<<mbOK,0);
      }
   if(b)
      frmClinicInfo_note_lab3->Caption = "提示：插入成功！";
}
//---------------------------------------------------------------------------

void __fastcall TfrmClinicInfo_ytc::frmClinicInfo_Clear3_btnClick(
      TObject *Sender)
{
   frmClinicInfo_ClinicCity_edt3->Clear() ;
   frmClinicInfo_ClinicId_edt3->Clear() ;
   frmClinicInfo_Clinicname_edt3->Clear() ;
   frmClinicInfo_ClinicPhone_edt3->Clear() ;
   frmClinicInfo_ClinicPostcode_edt3->Clear() ;
   frmClinicInfo_ClinicProvince_edt3->Clear() ;
   frmClinicInfo_ClinicStreet_edt3->Clear() ;
   frmClinicInfo_FaxNumber_edt3->Clear() ;
   frmClinicInfo_note_lab3->Caption = "提示：";
}
//---------------------------------------------------------------------------


void __fastcall TfrmClinicInfo_ytc::frmClinicInfo_Clear2_btnClick(
      TObject *Sender)
{
   frmClinicInfo_ClinicCity_edt2->Clear() ;
   frmClinicInfo_ClinicId_edt2->Clear() ;
   frmClinicInfo_Clinicname_edt2->Clear() ;
   frmClinicInfo_ClinicPhone_edt2->Clear() ;
   frmClinicInfo_ClinicPostcode_edt2->Clear() ;
   frmClinicInfo_ClinicProvince_edt2->Clear() ;
   frmClinicInfo_ClinicStreet_edt2->Clear() ;
   frmClinicInfo_FaxNumber_edt2->Clear() ;
   frmClinicInfo_note_lab2->Caption = "提示：";
}
//---------------------------------------------------------------------------

void __fastcall TfrmClinicInfo_ytc::frmClinicInfo_ClinicResult_grdCellClick(
      TColumn *Column)
{
frmClinicInfo_ClinicCity_edt2->Text = frmMain_ytc->ADOQuery1->FieldByName("ClinicCity")->AsString;
frmClinicInfo_ClinicId_edt2->Text = frmMain_ytc->ADOQuery1->FieldByName("ClinicId")->AsString;
frmClinicInfo_Clinicname_edt2->Text = frmMain_ytc->ADOQuery1->FieldByName("ClinicName")->AsString;
frmClinicInfo_ClinicPhone_edt2->Text = frmMain_ytc->ADOQuery1->FieldByName("ClinicPhone")->AsString;
frmClinicInfo_ClinicPostcode_edt2->Text = frmMain_ytc->ADOQuery1->FieldByName("ClinicPostcode")->AsString;
frmClinicInfo_ClinicProvince_edt2->Text = frmMain_ytc->ADOQuery1->FieldByName("ClinicProvince")->AsString;
frmClinicInfo_ClinicStreet_edt2->Text = frmMain_ytc->ADOQuery1->FieldByName("ClinicStreet")->AsString;
frmClinicInfo_FaxNumber_edt2->Text = frmMain_ytc->ADOQuery1->FieldByName("FaxNumber")->AsString;

  frmClinicInfo_Clear2_btn->Enabled =true;
  frmClinicInfo_submit2_btn->Enabled =true;
  frmClinicInfo_Delete_btn->Enabled =true;
  frmClinicInfo_ClinicModify_btn->Enabled =true;
}
//---------------------------------------------------------------------------

void __fastcall TfrmClinicInfo_ytc::frmClinicInfo_submit2_btnClick(
      TObject *Sender)
{
   bool b1 = true;
   try
   {
  frmMain_ytc->ADOQuery1->Edit();
  frmMain_ytc->ADOQuery1->FieldByName("ClinicCity")->AsString = frmClinicInfo_ClinicCity_edt2->Text.Trim() ;
  frmMain_ytc->ADOQuery1->FieldByName("ClinicId")->AsString = frmClinicInfo_ClinicId_edt2->Text.Trim() ;
  frmMain_ytc->ADOQuery1->FieldByName("ClinicName")->AsString = frmClinicInfo_Clinicname_edt2->Text.Trim() ;
  frmMain_ytc->ADOQuery1->FieldByName("ClinicPostcode")->AsString = frmClinicInfo_ClinicPostcode_edt2->Text.Trim() ;
  frmMain_ytc->ADOQuery1->FieldByName("ClinicProvince")->AsString = frmClinicInfo_ClinicProvince_edt2->Text.Trim() ;
  frmMain_ytc->ADOQuery1->FieldByName("ClinicStreet")->AsString = frmClinicInfo_ClinicStreet_edt2->Text.Trim() ;
  frmMain_ytc->ADOQuery1->FieldByName("FaxNumber")->AsString = frmClinicInfo_FaxNumber_edt2->Text.Trim() ;
  frmMain_ytc->ADOQuery1->FieldByName("ClinicPhone")->AsString = frmClinicInfo_ClinicPhone_edt2->Text.Trim() ;
  frmMain_ytc->ADOQuery1->Post() ;
   }
   catch(...)
      {
         b1 = false;
         MessageDlg("Error:xxxx. 修改诊所信息失败！",mtError,TMsgDlgButtons()<<mbOK,0);
      }
   if(b1)
      frmClinicInfo_note_lab2->Caption = "提示：修改成功！";

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


void __fastcall TfrmClinicInfo_ytc::frmClinicInfo_Delete_btnClick(
      TObject *Sender)
{
if ( MessageDlg("你确定将删除名称为" + frmMain_ytc->ADOQuery1->FieldByName("ClinicName")->AsString + "? 如果确定删除, 请按'yes'按钮。 否则请按'No'按钮。",
   mtConfirmation,TMsgDlgButtons()<<mbYes<<mbNo,0)==mrYes )
   {
      if(frmMain_ytc->ADOQuery1->RecordCount != 0)
      {
          frmMain_ytc->ADOQuery1->Delete();
          frmMain_ytc->ADOQuery1->Refresh();
          frmClinicInfo_ClinicResult_grd->Refresh();
       }
       else
       {
          // MessageDlg("你没有选中任何一条记录或者此表为空！",mtConfirmation,TMsgDlgButtons()<<mbYes<<mbNo,0)==mrYes );
       }
   }


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



void __fastcall TfrmClinicInfo_ytc::frmClinicInfo_ClinicReturn_btnClick(
      TObject *Sender)
{
   Close();        
}
//---------------------------------------------------------------------------

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

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