unit2.cpp

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

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

#include <vcl.h>
#pragma hdrstop

#include "Unit3.h"
#include "Unit2.h"
#include "Unit1.h"
#include "KCGL_frm_form1.h"

#include "PetInfo.h"
#include "Model3_EmployeeManage.h"
#include "SYSMng_Unit1.h"
#include "AccountInfo.h"




//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TfrmMain_ytc *frmMain_ytc;
//---------------------------------------------------------------------------
__fastcall TfrmMain_ytc::TfrmMain_ytc(TComponent* Owner)
        : TForm(Owner)
{
   //frmLogin_ytc->ShowModal() ;
}

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


void __fastcall TfrmMain_ytc::Image2Click(TObject *Sender)
{
  //创建“插入功能”的窗体：
    Application->CreateForm(__classid(TfrmClinicInfo_ytc), &frmClinicInfo_ytc);

   //清空窗体中的所有的可编辑控件：
   //Fm3_Insert->Edit1->Clear();
   frmClinicInfo_ytc->ShowModal() ;        
}
//---------------------------------------------------------------------------
 void __fastcall TfrmMain_ytc::SpeedButton1Click(TObject *Sender)
{
  //创建“插入功能”的窗体：
    Application->CreateForm(__classid(TfrmClinicInfo_ytc), &frmClinicInfo_ytc);

   //清空窗体中的所有的可编辑控件：
   //Fm3_Insert->Edit1->Clear();
   frmClinicInfo_ytc->ShowModal() ;
}

void __fastcall TfrmMain_ytc::Image8Click(TObject *Sender)
{
   Application->CreateForm(__classid(TForm2), &Form2);
   Form2->ShowModal() ;
}
//---------------------------------------------------------------------------

void __fastcall TfrmMain_ytc::Image3Click(TObject *Sender)
{
   Application->CreateForm(__classid(TForm1_Employeemanage), &Form1_Employeemanage);
   Form1_Employeemanage->ShowModal() ;
}
//---------------------------------------------------------------------------

void __fastcall TfrmMain_ytc::Image10Click(TObject *Sender)
{
  Close();        
}
//---------------------------------------------------------------------------

void __fastcall TfrmMain_ytc::Image4Click(TObject *Sender)
{
    Application->CreateForm(__classid(TfrmPetinfo), &frmPetinfo);
    frmPetinfo->ShowModal() ;
}
//---------------------------------------------------------------------------

void __fastcall TfrmMain_ytc::Image6Click(TObject *Sender)
{
   // Application->CreateForm(__classid(TfrmRemedyPlanLdp_Form1), &frmRemedyPlanLdp_Form1);
    //frmRemedyPlanLdp_Form1->ShowModal() ;

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


void __fastcall TfrmMain_ytc::Image9Click(TObject *Sender)
{
  Application->CreateForm(__classid(TSYSMngForm), &SYSMngForm);
   SYSMngForm->ShowModal() ;
}
//---------------------------------------------------------------------------

void __fastcall TfrmMain_ytc::Image7Click(TObject *Sender)
{
  Application->CreateForm(__classid(TAccountinfoWf_Form1), &AccountinfoWf_Form1);
   AccountinfoWf_Form1->ShowModal() ;
}
//---------------------------------------------------------------------------

void __fastcall TfrmMain_ytc::Image11Click(TObject *Sender)
{
   Application->CreateForm(__classid(TfrmLogin_ytc), &frmLogin_ytc);
   frmLogin_ytc->ShowModal() ;
}
//---------------------------------------------------------------------------