unit6.~cpp

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

         ADOQuery2->Active = false;
         ADOQuery2->SQL->Clear();
         AnsiString cj1,cj2;

         if(Edit21->Text == "" && CheckBox8->Checked)
                MessageDlg("提示：请输入预约编号！",
                mtWarning,TMsgDlgButtons()<<mbOK,0);

          if (Edit21->Text != "")
         { ADOQuery2->SQL->Add("select * from OrderTable where OrderId ="+Edit21->Text.Trim());
           ADOQuery2->Active = true;
             ADOQuery2->Open();
           }




         if(Edit22->Text == "" && CheckBox9->Checked)
                MessageDlg("提示：请输入宠物编号！",
                mtWarning,TMsgDlgButtons()<<mbOK,0);
         if (Edit22->Text != "")
           {
           ADOQuery2->SQL->Add("select * from OrderTable where PetId like '%"+Edit22->Text.Trim()+AnsiString("%'"));
             ADOQuery2->Active = true;
              ADOQuery2->Open();
           }
 /*       else
         MessageDlg("提示：对不起，没有查找到你需要的宠物信息！",
                mtWarning,TMsgDlgButtons()<<mbOK,0);    */

         if (Edit23->Text != "" || Edit24->Text != "")
           {
           ADOQuery2->SQL->Add("select * from OrderTable where OrderDate like '%"+Edit22->Text.Trim()+AnsiString("%'")
           +AnsiString(" and OrderTime like '%")+Edit24->Text.Trim()+AnsiString("%'"));
             ADOQuery2->Active = true;
              ADOQuery2->Open();
           }
      /*if (Edit21->Text == "" || Edit22->Text == "" || Edit23->Text == "" || Edit24->Text == "")
         MessageDlg("提示：请输入你要查找的信息！",
                mtWarning,TMsgDlgButtons()<<mbOK,0);   */

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

void __fastcall Tfrmcusinfo_yzg::CheckBox8Click(TObject *Sender)
{
    if(CheckBox8->Checked)
      {Edit21->Enabled=True;
      Edit22->Enabled=False;
      Edit23->Enabled=False;
      Edit24->Enabled=False;
      CheckBox9->Checked=False;
      CheckBox10->Checked=False;
      CheckBox11->Checked=False;
      CheckBox9->Enabled=False;
      CheckBox10->Enabled=False;
      CheckBox11->Enabled=False;
      }
    else
      {
      Edit21->Enabled=False;
      CheckBox9->Enabled=True;
      CheckBox10->Enabled=True;
      CheckBox11->Enabled=True;
      }
}
//---------------------------------------------------------------------------

void __fastcall Tfrmcusinfo_yzg::CheckBox9Click(TObject *Sender)
{
    if(CheckBox9->Checked)
     {
      Edit22->Enabled=True;
      Edit21->Enabled=False;
      Edit23->Enabled=False;
      Edit24->Enabled=False;
      CheckBox8->Checked=False;
      CheckBox10->Checked=False;
      CheckBox11->Checked=False;
      CheckBox8->Enabled=False;
      CheckBox10->Enabled=False;
      CheckBox11->Enabled=False;
      }
    else
     { Edit22->Enabled=False;
      CheckBox8->Enabled=True;
      CheckBox10->Enabled=True;
      CheckBox11->Enabled=True;

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

void __fastcall Tfrmcusinfo_yzg::CheckBox10Click(TObject *Sender)
{
    if(CheckBox10->Checked)
      {
      Edit23->Enabled=True;
      Edit21->Enabled=False;
      Edit22->Enabled=False;
      CheckBox8->Enabled = False;
      CheckBox9->Enabled = False;
      }
    else
      {
      Edit23->Enabled=False;
      CheckBox8->Enabled = True;
      CheckBox9->Enabled = True;
      }
}
//---------------------------------------------------------------------------

void __fastcall Tfrmcusinfo_yzg::CheckBox11Click(TObject *Sender)
{
    if(CheckBox11->Checked)
      {
      Edit24->Enabled=True;
      Edit21->Enabled=False;
      Edit22->Enabled=False;
      CheckBox8->Enabled = False;
      CheckBox9->Enabled= False;
      }
    else
      {
      Edit24->Enabled=False;
      CheckBox8->Enabled = True;
      CheckBox9->Enabled = True;
      }
}
//---------------------------------------------------------------------------

void __fastcall Tfrmcusinfo_yzg::CheckBox1Click(TObject *Sender)
{
    if(CheckBox1->Checked)
      Edit1->Visible=True;
    else
      Edit1->Visible=False;
}
//---------------------------------------------------------------------------

void __fastcall Tfrmcusinfo_yzg::CheckBox2Click(TObject *Sender)
{
    if(CheckBox2->Checked)
      Edit2->Visible=True;
    else
      Edit2->Visible=False;
}
//---------------------------------------------------------------------------

void __fastcall Tfrmcusinfo_yzg::CheckBox3Click(TObject *Sender)
{
    if(CheckBox3->Checked)
      Edit3->Visible=True;
    else
      Edit3->Visible=False;
}
//---------------------------------------------------------------------------

void __fastcall Tfrmcusinfo_yzg::CheckBox4Click(TObject *Sender)
{
    if(CheckBox4->Checked)
    Edit4->Visible=True;
    else
    Edit4->Visible=False;
}
//---------------------------------------------------------------------------

void __fastcall Tfrmcusinfo_yzg::CheckBox5Click(TObject *Sender)
{
    if(CheckBox5->Checked)
    Edit5->Visible=True;
    else
    Edit5->Visible=False;
}
//---------------------------------------------------------------------------

void __fastcall Tfrmcusinfo_yzg::CheckBox6Click(TObject *Sender)
{
    if(CheckBox6->Checked)
    Edit6->Visible=True;
    else
    Edit6->Visible=False;
}
//---------------------------------------------------------------------------

void __fastcall Tfrmcusinfo_yzg::CheckBox7Click(TObject *Sender)
{
    if(CheckBox7->Checked)
    Edit19->Visible=True;
    else
    Edit19->Visible=False;
}
//---------------------------------------------------------------------------







void __fastcall Tfrmcusinfo_yzg::SpeedButton11Click(TObject *Sender)
{
ADOQuery2->Delete();
          ADOQuery2->Refresh();
          DBGrid2->Refresh();
}
//---------------------------------------------------------------------------

void __fastcall Tfrmcusinfo_yzg::SpeedButton14Click(TObject *Sender)
{
      Cj_Edit8->Clear();
      ComboBox1->Text=" 请选择";
      //Cj_DateTimePicker1->DateTime ="2004-8-31"
}
//---------------------------------------------------------------------------

void __fastcall Tfrmcusinfo_yzg::SpeedButton2Click(TObject *Sender)
{
        if (ADOQuery1->RecordCount != 0)
      {
        //  SpeedButton3->Enabled = true;
        //  SpeedButton4->Enabled = true;
          ADOQuery1->Delete();
          ADOQuery1->Refresh();
          DBGrid1->Refresh();
       }
       else
       {
           SpeedButton2->Enabled = false;
          // SpeedButton4->Enabled = false;
        }
}
//---------------------------------------------------------------------------

void __fastcall Tfrmcusinfo_yzg::SpeedButton8Click(TObject *Sender)
{
     Cus_Edit13->Clear();
     Cus_Edit14->Clear();
     Cus_Edit15->Clear();
     Cus_Edit16->Clear();
     Cus_Edit17->Clear();
     Cus_Edit18->Clear();
     Cus_Edit20->Clear();
}
//---------------------------------------------------------------------------