loginform.cpp

骨灰盒规范化果腹

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

#include <vcl.h>
#pragma hdrstop

#include "LoginForm.h"
#include "DM1.h"
#include "HugSnowData.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TfmLogin *fmLogin;
//---------------------------------------------------------------------------
__fastcall TfmLogin::TfmLogin(TComponent* Owner)
   : TForm(Owner)
{
}
//---------------------------------------------------------------------------

void __fastcall TfmLogin::FormActivate(TObject *Sender)
{
   LoginOK=false;
   if(LoadStringFromDataSet(cbUser->Items,DM->tbUser,DM->tbUser->FieldByName("USERID")))
      cbUser->ItemIndex=0;
   else
      ShowMessage("数据库中没有用户！");
}
//---------------------------------------------------------------------------

void __fastcall TfmLogin::btCancelClick(TObject *Sender)
{
   Close();   
}
//---------------------------------------------------------------------------

void __fastcall TfmLogin::btOkClick(TObject *Sender)
{
   TLocateOptions Opts;
   Opts.Clear();
   DM->tbUser->Locate("USERID",cbUser->Text,Opts);
   if(edPasswd->Text==DM->tbUser->FieldByName("密码")->AsString)
   {
      ShowMessage("登录成功！");
      LoginOK=true;
      Close();
   }
   else
      ShowMessage("密码错误!");
}
//---------------------------------------------------------------------------

void __fastcall TfmLogin::edPasswdKeyPress(TObject *Sender, char &Key)
{
   if(Key==13)
      btOk->Click();
}
//---------------------------------------------------------------------------