login.cpp

机器须安装SQL Server2000 程序安装完之后

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

#include <vcl.h>
#pragma hdrstop

#include "Login.h"
#include "Main.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TLoginForm *LoginForm;
//---------------------------------------------------------------------------
__fastcall TLoginForm::TLoginForm(TComponent* Owner)
    : TForm(Owner)
{
    count=0;
}
//---------------------------------------------------------------------------
void __fastcall TLoginForm::Button1Click(TObject *Sender)
{
       ADOQuery1->Active=false;
        ADOQuery1->SQL->CommaText="";

        ADOQuery1->SQL->CommaText="select * from Admin where Name ="+QuotedStr(EdtLoginName->Text)+"and PassWord="+QuotedStr(EdtLoginPin->Text);//+"and Admin like 管理员";
       ADOQuery1->Active=true;
      if(ADOQuery1->RecordCount!=0)

              {

                LoginForm->ModalResult=mrOk;

            }
         else
         {
           count++;
                ShowMessage("错误请从新输入");
                EdtLoginName->Text="";
                EdtLoginPin->Text="";
                EdtLoginName->SetFocus();

           if(count==3)
            {
                ShowMessage("你无权操作");
                LoginForm->ModalResult=mrCancel;
                Close();

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