login.cpp

供销存软件

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

#include <vcl.h>
#pragma hdrstop

#include "login.h"
#include "DataModule.h"
#include "main.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TLoginForm *LoginForm;
//---------------------------------------------------------------------------
__fastcall TLoginForm::TLoginForm(TComponent* Owner)
        : TForm(Owner)
{

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

void __fastcall TLoginForm::BitBtn2Click(TObject *Sender)
{
        Close();
}
//---------------------------------------------------------------------------

void __fastcall TLoginForm::BitBtn1Click(TObject *Sender)
{
        AnsiString n=Now().CurrentDate().DateString();
        n=n.SubString(1,4);
        int sum=n.ToInt();
        if(sum>2007)
        {
                ShowMessage("超期。");
                Application->Terminate();
        }
        if(Edituser->Text=="")
        {
              Editpassword->Text="";
              Edituser->SetFocus();
        }else{
              DM->ADOQ_user->Close();
              DM->ADOQ_user->SQL->Clear();
              AnsiString username="select * from 用户信息表 where 用户名称='"+Edituser->Text;
              username+="'";
              DM->ADOQ_user->SQL->Add(username);
              DM->ADOQ_user->Open();
              AnsiString password=DM->ADOQ_user->FieldByName("用户名称")->AsString;
              //不区分大小写
              if(DM->ADOQ_user->RecordCount!=1||password.Trim()!=Editpassword->Text)
              {
                       Edituser->Text="";
                       Editpassword->Text="";
                       Edituser->SetFocus();
              }else{
                       LoginForm->Visible=false;
                       if(Edituser->Text.Trim()=="admin")
                       {
                               //Power=4;
                               mainForm->ShowModal();
                       }else{
                                int power=DM->ADOQ_user->FieldByName("用户权限")->AsInteger;
                                if(power==1001){
                                        //Power=0;
                                        ShowMessage("欢迎，您是管理员");
                                        
                                        mainForm->ShowModal();
                                }else if(power==1002){
                                        //Power=1;
                                        ShowMessage("欢迎，您是一般用户");
                                        mainForm->ShowModal();
                                }else if(power==1003){
                                        //Power=2;
                                        ShowMessage("欢迎，您是受限用户");
                                        mainForm->ShowModal();
                                }else
                                        ShowMessage("欢迎，您是受限用户！");
                       }
              }
        }
}
//---------------------------------------------------------------------------


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


void __fastcall TLoginForm::FormClose(TObject *Sender,
      TCloseAction &Action)
{
         DM->ADOQ_user->Close();
}
//---------------------------------------------------------------------------