unit6.~cpp

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

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

#include <vcl.h>
#pragma hdrstop

#include "Unit1.h"
#include "Unit2.h"
#include "Unit3.h"
#include "Unit4.h"
#include "Unit5.h"
#include "Unit6.h"
#include "Unit7.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
Tfrmcusinfo_yzg *frmcusinfo_yzg;
//---------------------------------------------------------------------------
__fastcall Tfrmcusinfo_yzg::Tfrmcusinfo_yzg(TComponent* Owner)
        : TForm(Owner)
{

     /*   AnsiString sql;
    frmcusinfo_yzg->Cj_ADOQuery3->Active = false;
    frmcusinfo_yzg->Cj_ADOQuery3->SQL->Clear();
    sql="select PetId from PetTable";
    frmcusinfo_yzg->Cj_ADOQuery3->SQL->Add(sql);
    frmcusinfo_yzg->Cj_ADOQuery3->Active = true;
    frmcusinfo_yzg->Cj_ADOQuery3->Open();
    for(int i=0;i<frmcusinfo_yzg->Cj_ADOQuery3->RecordCount;i++)
    {
        Cj_ComboBox2->Items->Add(frmcusinfo_yzg->Cj_ADOQuery3->FieldByName("PetId")->AsString);
        frmcusinfo_yzg->Cj_ADOQuery3->Next();
    }  */

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

void __fastcall Tfrmcusinfo_yzg::SpeedButton1Click(TObject *Sender)
{
  //       ADOQuery1->Parameters->ParamByName("id")->Value=Edit1->Text;
        /*  ADOQuery1->Parameters->ParamByName("name")->Value=Edit2->Text;
          ADOQuery1->Parameters->ParamByName("phone")->Value=Edit3->Text;
        ADOQuery1->Active = false;
         ADOQuery1->SQL->Clear();
         ADOQuery1->SQL->Add("select * from employees where CustomerId= :id and CustomerName= :name and CustomerPhone= :phone");
         ADOQuery1->Active = true;
         ADOQuery1->Open();

         ADOQuery->SQL->Add("select * from EmployeeTable where EmployeeName like '%"+EDT_QUERY->Text.Trim()+AnsiString("%'"));     */


         ADOQuery1->Active = false;
         ADOQuery1->SQL->Clear();
         ADOQuery1->SQL->Add("select * from CustomerTable where CustomerId like '%"+Edit1->Text.Trim()+AnsiString("%'")
         +AnsiString(" and CustomerName like '%")+Edit2->Text.Trim()+AnsiString("%'")
         +AnsiString(" and CustomerPhone like '%")+Edit3->Text.Trim()+AnsiString("%'")
         +AnsiString(" and CustomerStreet like '%")+Edit4->Text.Trim()+AnsiString("%'")
         +AnsiString(" and CustomerCity like '%")+Edit5->Text.Trim()+AnsiString("%'")
         +AnsiString(" and CustomerProvince like '%")+Edit6->Text.Trim()+AnsiString("%'")
         +AnsiString(" and CustomerPostcode like '%")+Edit19->Text.Trim()+AnsiString("%'")

         );
         ADOQuery1->Active = true;
         ADOQuery1->Open();

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



void __fastcall Tfrmcusinfo_yzg::SpeedButton4Click(TObject *Sender)
{
      //   ADOQuery1->Active = false;
      //   ADOQuery1->SQL->Clear();

         ADOQuery1->Edit();

        ADOQuery1->FieldByName("CustomerName")->AsString=DBEdit2->Text;
        ADOQuery1->FieldByName("CustomerPhone")->AsString=DBEdit3->Text;
        ADOQuery1->FieldByName("CustomerStreet")->AsString=DBEdit4->Text;
        ADOQuery1->FieldByName("CustomerCity")->AsString=DBEdit5->Text;
        ADOQuery1->FieldByName("CustomerProvince")->AsString=DBEdit6->Text;
        ADOQuery1->FieldByName("CustomerPostcode")->AsString=DBEdit7->Text;

        //  ADOQuery1->Active = true;
        // ADOQuery1->Open();
        MessageDlg("你确定修改信息吗？",
         mtCustom,TMsgDlgButtons()<<mbOK,0);
        ADOQuery1->Post();
}
//---------------------------------------------------------------------------


void __fastcall Tfrmcusinfo_yzg::SpeedButton7Click(TObject *Sender)
{
      if (Cus_Edit14->Text != "" && Cus_Edit15->Text != "" && Cus_Edit16->Text!="")
   {
      //进行“插入功能”活动：
      AnsiString str;

      frmcusinfo_yzg->ADOQuery1->Insert();

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

      str = Cus_Edit14->Text;
      str = Trim(str);
      //Fm1_Main->ADOQuery1->FieldByName("FirstName")->AsString = Trim(Fm3_Insert->Edit2->Text);
      ADOQuery1->FieldByName("CustomerName")->AsString = str;

      str = Cus_Edit15->Text;
      str = Trim(str);
      ADOQuery1->FieldByName("CustomerPhone")->AsString = str;

   //   str = DateToStr(Fm3_Insert->DateTimePicker1->Date);
   //   str = Trim(str);
  //    Fm1_Main->ADOQuery1->FieldByName("HireDate")->AsString = str;
      str = Cus_Edit16->Text;
      str = Trim(str);
      ADOQuery1->FieldByName("CustomerCity")->AsString = str;


      str = Cus_Edit17->Text;
      str = Trim(str);
      ADOQuery1->FieldByName("CustomerProvince")->AsString = str;

      str = Cus_Edit18->Text;
      str = Trim(str);
      ADOQuery1->FieldByName("CustomerPostcode")->AsString = str;

      str = Cus_Edit20->Text;
      str = Trim(str);
      ADOQuery1->FieldByName("CustomerStreet")->AsString = str;
      /*
      str = Fm3_Insert->Memo1->Text;
      str = Trim(Fm3_Insert->Memo1->Text);
      */
   //   Fm1_Main->ADOQuery1->FieldByName("Notes")->AsString = Fm3_Insert->Memo1->Text;

      ADOQuery1->Post();

    //  Cus_Edit13->Text = ADOQuery1->FieldByName("CustomerId")->AsString;
   }
   else
   {
      MessageDlg("Warning:xxxx. The Fields of 'FirstName' or 'LastName' were empty. And this was forbidden! Please try again.",
      mtWarning,TMsgDlgButtons()<<mbOK,0);
   }

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



void __fastcall Tfrmcusinfo_yzg::SpeedButton13Click(TObject *Sender)
{
    ADOQuery2->Active = false;
         ADOQuery2->SQL->Clear();
         ADOQuery2->SQL->Add("select * from OrderTable");
         ADOQuery2->Active = true;
         ADOQuery2->Open();

  if (Cj_Edit8->Text != "")
   {
      //进行“插入功能”活动：
      AnsiString str;
     // frmcusinfo_yzg->ADOQuery1->Active= true;
      frmcusinfo_yzg->ADOQuery2->Insert();

      //str = Cj_Edit7->Text;
      //str = Trim(str);
      //ADOQuery1->FieldByName("OrderId")->AsString = str;

      str = Cj_Edit8->Text;
      str = Trim(str);
      //Fm1_Main->ADOQuery1->FieldByName("FirstName")->AsString = Trim(Fm3_Insert->Edit2->Text);
      ADOQuery2->FieldByName("PetId")->AsString = str;

      str = Cj_DateTimePicker1->Date;
      str = Trim(str);
      //Fm1_Main->ADOQuery1->FieldByName("FirstName")->AsString = Trim(Fm3_Insert->Edit2->Text);
      ADOQuery2->FieldByName("OrderDate")->AsString = str;

      str = ComboBox1->Text;
      str = Trim(str);
      ADOQuery2->FieldByName("OrderTime")->AsString = str;
      if(str!="请选择")
         {
         ADOQuery2->Post();
         MessageDlg("你已经成功添加了预约信息！",
         mtCustom,TMsgDlgButtons()<<mbOK,0);
         }
         else
         {
                MessageDlg("提示：请选择预约时间！",
                mtWarning,TMsgDlgButtons()<<mbOK,0);
         }


    //  Cus_Edit13->Text = ADOQuery1->FieldByName("CustomerId")->AsString;
   }
   else
   {
      MessageDlg("请输入宠物号码编号.",
      mtWarning,TMsgDlgButtons()<<mbOK,0);
   }
}
//---------------------------------------------------------------------------





void __fastcall Tfrmcusinfo_yzg::SpeedButton16Click(TObject *Sender)
{
      ADOQuery2->SQL->Add("select * from PetTable where PetId="+Edit22->Text.Trim());
       //st=ADOQuery2->FieldByName("petid")->AsString ;
       //if(st!= "" )
       //{

       // ADOQuery2->FieldByName("PetId")->AsString=DBEdit9->Text;
       // ADOQuery2->FieldByName("OrderDate")->AsString=DBEdit10->Text;
      //  ADOQuery2->FieldByName("OrderTime")->AsString=DBEdit11->Text;
       // ADOQuery2->Active = True;
       /*if ( ADOQuery2->RecordCount != 0 )
       {        ADOQuery2->Active = True;
                ADOQuery2->Edit();
                ADOQuery2->Post();
                ADOQuery2->Refresh();
       }
       else
       { MessageDlg("宠物号码不存在！",
        mtCustom,TMsgDlgButtons()<<mbOK,0);
       }    */
        //ADOQuery2->Open();

       // ADOQuery2->Post();
        //ADOQuery2->Refresh();
      //  MessageDlg("信息修改成功！",
      //   mtCustom,TMsgDlgButtons()<<mbOK,0);
      //   }
        // else MessageDlg("宠物号码不存在！",
        // mtCustom,TMsgDlgButtons()<<mbOK,0);

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

void __fastcall Tfrmcusinfo_yzg::SpeedButton10Click(TObject *Sender)
{