utlogin.cpp

库存管理系统.rar 库存管理系统.rar

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

#include <vcl.h>
#pragma hdrstop

#include "utLogin.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TfmLogin *fmLogin;
//---------------------------------------------------------------------------
__fastcall TfmLogin::TfmLogin(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TfmLogin::Button1Click(TObject *Sender)
{
    AnsiString sName,sPass;
    sName = edUser->Text;
    if(sName.Length()==0)
    {
        MessageDlg("请输入用户名",mtInformation, TMsgDlgButtons() << mbOK, 0);
        return;
    }
    sPass = edPass->Text;
    AnsiString sQuery;
    sQuery = "select * from  管理员 where 用户名='" + sName +
        "' and 密码='" + sPass + "'";
    Query1->Close();
    Query1->SQL->Clear();
    Query1->SQL->Add(sQuery);
    Query1->Active = TRUE;
    if(Query1->Eof && Query1->Bof)
    {
        MessageDlg("用户名或者密码错误！",mtInformation,
            TMsgDlgButtons()<<mbOK,0);
        return;
    }
    Query1->Close();
    ModalResult = mrOk;
}
//---------------------------------------------------------------------------
void __fastcall TfmLogin::Button2Click(TObject *Sender)
{
    ModalResult = mrCancel;
}
//---------------------------------------------------------------------------
void __fastcall TfmLogin::edPassKeyDown(TObject *Sender, WORD &Key,
      TShiftState Shift)
{
    if(Key == 13)
        Button1Click(Sender);


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