sysmng_unit1.~cpp

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

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

#include <vcl.h>
#pragma hdrstop

#include "SYSMng_Unit1.h"
#include "SYSMng_Unit2.h"
#include "SYSMng_Unit3.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TSYSMngForm *SYSMngForm;
//---------------------------------------------------------------------------
__fastcall TSYSMngForm::TSYSMngForm(TComponent* Owner)
        : TForm(Owner)
{  SYSMngForm_Edit1->Clear();
   SYSMngForm_Edit2->Clear();
SYSMngForm_Edit1->Enabled=true;
  SYSMngForm_Edit2->Enabled=true;


  SYSMngForm_DBEdit2->Clear();
  SYSMngForm_DBEdit3->Clear();

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

void __fastcall TSYSMngForm::SMF_AddEMPPost_BTNClick(TObject *Sender)
{
   /*try
   {
      int j = StrToInt(SYSMngForm->SMF_AddEMPPhone_EDT->Text);
   }
   catch(...)
   {
      ShowMessage("电话号码必须为数字！");
   }   */
}
//---------------------------------------------------------------------------














void __fastcall TSYSMngForm::SYSMngForm_Button12Click(TObject *Sender)
{
       AddEMPForm->ShowModal() ;
}
//---------------------------------------------------------------------------


void __fastcall TSYSMngForm::SYSMngForm_Button5Click(TObject *Sender)
{
    if ( MessageDlg("Are sure to delete the record of the employee which EmployeeID = " + SMF_AddEMP_ADOQuery->FieldByName("EmployeeId")->AsString + " ? If your answer is positive, click the 'Yes' Button. otherwise click the 'No' Button.",
   mtConfirmation,TMsgDlgButtons()<<mbYes<<mbNo,0)==mrYes )
   {
      if (SMF_AddEMP_ADOQuery->RecordCount != 0)
      {
          SMF_AddEMP_ADOQuery->Delete();
          SMF_AddEMP_ADOQuery->Refresh();
          SYF_AddEMP_DBGrid->Refresh();
       }
       }
} 
//---------------------------------------------------------------------------

void __fastcall TSYSMngForm::SYSMngForm_Button4Click(TObject *Sender)
{
    SMF_AddPST_ADOQuery->Edit() ;
     //SMF_AddPST_ADOQuery->FieldByName("PositionId")->AsString=SYSMngForm_DBEdit1->Text;
     SMF_AddPST_ADOQuery->FieldByName("EmployeePosition")->AsString=SYSMngForm_DBEdit2->Text;
    SMF_AddPST_ADOQuery->FieldByName("EmployeeSalary")->AsString=SYSMngForm_DBEdit3->Text;
     SMF_AddPST_ADOQuery->UpdateRecord() ;
    }
//---------------------------------------------------------------------------

void __fastcall TSYSMngForm::SYSMngForm_Button14Click(TObject *Sender)
{
/*
       SMF_AddPST_ADOQuery->Insert() ;
   SMF_AddPST_ADOQuery->FieldByName("PositionId")->AsString=SYSMngForm_DBEdit1->Text;
     SMF_AddPST_ADOQuery->FieldByName("EmployeePosition")->AsString=SYSMngForm_DBEdit2->Text;
    SMF_AddPST_ADOQuery->FieldByName("EmployeeSalary")->AsString=SYSMngForm_DBEdit3->Text;
     SMF_AddPST_ADOQuery->Post() ;     */
        SYSMngForm_DBNavigator1->BtnClick(nbInsert);
}
//---------------------------------------------------------------------------


void __fastcall TSYSMngForm::SYSMngForm_Button13Click(TObject *Sender)
{
    SYSMngForm_DBNavigator1->BtnClick(nbCancel);
}
//---------------------------------------------------------------------------

void __fastcall TSYSMngForm::SYSMngForm_Button0Click(TObject *Sender)
{
       SYSMngForm_DBNavigator1->BtnClick(nbDelete);
}
//---------------------------------------------------------------------------


/*
void __fastcall TSYSMngForm::SYSMngForm_Button3Click(TObject *Sender)
{
    ModifyEMPForm->ShowModal();       
} */
//---------------------------------------------------------------------------


void __fastcall TSYSMngForm::SYSMngForm_Button1Click(TObject *Sender)
{
          AnsiString sql;
         SMF_AddEMP_ADOQuery->Active = false;
         SMF_AddEMP_ADOQuery->SQL->Clear();

         if(SYSMngForm_Edit1->Text.IsEmpty()&&SYSMngForm_Edit2->Text.IsEmpty())
          {  //SYSMngForm_Button1->Enabled=false;
              //MessageDlg("warning! please select at least one choice ",mtWarning,TMsgDlgButtons()<<mbOK,0);
               sql="select * from EmployeeTable as E inner join PositionTable as P on E.PositionId=P.PositionId order by E.EmployeeName";
               SMF_AddEMP_ADOQuery->SQL->Add(sql);
               SMF_AddEMP_ADOQuery->Active = true;
               SMF_AddEMP_ADOQuery->Open();
          }
         else
         {
         //SpeedButton1->Enabled=true;
         sql="select * from EmployeeTable as E  inner join  PositionTable as P on E.PositionId=P.PositionId   where E.EmployeeId like '%"+SYSMngForm_Edit1->Text.Trim()+AnsiString("%'")
         +AnsiString(" and E.EmployeeName like '%")+SYSMngForm_Edit2->Text.Trim()+AnsiString("%'");

         /*+AnsiString(" and CustomerPostcode like '%")+Edit19->Text.Trim()+AnsiString("%'")*/

         //DBGrid1_Employeemanage->DataSource->Enabled=true;
         SMF_AddEMP_ADOQuery->SQL->Add(sql);
         SMF_AddEMP_ADOQuery->Active = true;
         SMF_AddEMP_ADOQuery->Open();
         }

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

/*void __fastcall TSYSMngForm::SYSMngForm_Edit1Change(TObject *Sender)
{
  SYSMngForm_Edit1->Clear();
  SYSMngForm_Edit2->Clear();
} */
//---------------------------------------------------------------------------


void __fastcall TSYSMngForm::SYSMngForm_Button2Click(TObject *Sender)
{
      SYSMngForm->Close();
}

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



void __fastcall TSYSMngForm::SYSMngForm_Button3Click(TObject *Sender)
{

         ModifyEMPForm->SYSMngForm_Edit1->Text =  SYSMngForm->SMF_AddEMP_ADOQuery->FieldByName("EmployeeId")->AsString;
         ModifyEMPForm->SYSMngForm_Edit2->Text =  SYSMngForm->SMF_AddEMP_ADOQuery->FieldByName("EmployeeName")->AsString;
         ModifyEMPForm->SYSMngForm_ComboBox1->Text =  SYSMngForm->SMF_AddEMP_ADOQuery->FieldByName("EmployeeSex")->AsString;
         ModifyEMPForm->SYSMngForm_SMF_AddEMPBirth_DTP->Date =  SYSMngForm->SMF_AddEMP_ADOQuery->FieldByName("EmployeeBirth")->AsDateTime;
         ModifyEMPForm->SYSMngForm_ComboBox2->Text =  SYSMngForm->SMF_AddEMP_ADOQuery->FieldByName("ClinicId")->AsString;
         ModifyEMPForm->SYSMngForm_Edit3->Text =  SYSMngForm->SMF_AddEMP_ADOQuery->FieldByName("SocialNumber")->AsString;
         ModifyEMPForm->SYSMngForm_ComboBox3->Text =  SYSMngForm->SMF_AddEMP_ADOQuery->FieldByName("PositionId")->AsString;
         ModifyEMPForm->SYSMngForm_Edit4->Text =  SYSMngForm->SMF_AddEMP_ADOQuery->FieldByName("EmployeeProvince")->AsString;
         ModifyEMPForm->SYSMngForm_Edit5->Text =  SYSMngForm->SMF_AddEMP_ADOQuery->FieldByName("EmployeeCity")->AsString;
         ModifyEMPForm->SYSMngForm_Edit6->Text =  SYSMngForm->SMF_AddEMP_ADOQuery->FieldByName("EmployeeStreet")->AsString;
         ModifyEMPForm->SYSMngForm_Edit7->Text =  SYSMngForm->SMF_AddEMP_ADOQuery->FieldByName("EmployeePostcode")->AsString;
         ModifyEMPForm->SYSMngForm_Edit8->Text =  SYSMngForm->SMF_AddEMP_ADOQuery->FieldByName("EmployeePhone")->AsString;
         ModifyEMPForm->SYSMngForm_Edit9->Text =  SYSMngForm->SMF_AddEMP_ADOQuery->FieldByName("EmployeePwd")->AsString;
         ModifyEMPForm->SYSMngForm_ComboBox4->Text =  SYSMngForm->SMF_AddEMP_ADOQuery->FieldByName("PurView")->AsString;
         //SMF_AddEMP_ADOQuery->Refresh();
         ModifyEMPForm->ShowModal();

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

void __fastcall TSYSMngForm::SYSMngForm_Button15Click(TObject *Sender)
{
       /*  AnsiString sql;
         SMF_AddPST_ADOQuery->Active = false;
         SMF_AddPST_ADOQuery->SQL->Clear();
         if(SYSMngForm_DBEdit2->Text.IsEmpty()&&SYSMngForm_DBEdit3->Text.IsEmpty())
         {
               sql="select EmployeePosition,EmployeeSalary from PositionTable";
               SMF_AddPST_ADOQuery->SQL->Add(sql);
               SMF_AddPST_ADOQuery->Active = true;
               SMF_AddPST_ADOQuery->Open();
         }
         else
         {
             sql="select EmployeePosition,Salary from PositionTable where EmployeePosition like'%"+SYSMngForm_DBEdit2->Text.Trim()+AnsiString("%'")
             +AnsiString(" and EmployeeSalary like '%")+SYSMngForm_DBEdit3->Text.Trim()+AnsiString("%'");
              SMF_AddPST_ADOQuery->SQL->Add(sql);
              SMF_AddPST_ADOQuery->Active = true;
              SMF_AddPST_ADOQuery->Open();
         } */

         SYSMngForm->Close();
}
             //---------------------------------------------------------------------------

void __fastcall TSYSMngForm::SYSMngForm_DBEdit2Change(TObject *Sender)
{
      //SYSMngForm_DBEdit2->Clear();
}
//---------------------------------------------------------------------------