unit1.~cpp

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

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

#include <vcl.h>
#pragma hdrstop

#include "Unit1.h"
#include "Unit2.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TfrmLogin_ytc *frmLogin_ytc;
//---------------------------------------------------------------------------
__fastcall TfrmLogin_ytc::TfrmLogin_ytc(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TfrmLogin_ytc::frmLogin_CancelClick(TObject *Sender)
{
    frmMain_ytc->Close() ;
    Close();
}
//---------------------------------------------------------------------------
void __fastcall TfrmLogin_ytc::frmLogin_okClick(TObject *Sender)
{
   bool b = false ;
   if( frmLogin_UserID_edt->Text.Trim()== "" || frmLogin_Pwd_edt->Text.Trim() == "")
      MessageDlg("用户ID 或者密码都不能为空！",mtError,TMsgDlgButtons()<<mbOK,0);

   else
   {
      try
      {
         ADOQuery1->Active = false;
         ADOQuery1->SQL->Clear();
         ADOQuery1->SQL->Add("SELECT EmployeePwd FROM EmployeeTable "
         + AnsiString(" where EmployeeId = '") +  frmLogin_UserID_edt->Text.Trim() + AnsiString("'")
         );
         ADOQuery1->Active = true;
         ADOQuery1->Open();
      }
      catch(...)
      {
         b=true;
         MessageDlg("Sorry!登陆数据库失败！",mtError,TMsgDlgButtons()<<mbOK,0);
      }
      if(!b)   /*没有异常*/
      {
         if(ADOQuery1->FieldByName("EmployeePwd")->AsString == frmLogin_Pwd_edt->Text.Trim())
            {
             MessageDlg("成功！",mtError,TMsgDlgButtons()<<mbOK,0);
             //Application->CreateForm(__classid(TfrmMain_ytc), &frmMain_ytc);
             //frmMain_ytc->ShowModal() ;
             Close();
            }
          else
          {
          MessageDlg("失败！",mtError,TMsgDlgButtons()<<mbOK,0);
          }
      }

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