login.cpp

用c++builder编写的人事管理系统,主要用于公司进行人事管理,工资发放使用.界面简介好用,功能较为简单,本人本科设计时编写

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

#include <vcl.h>
#pragma hdrstop

#include "Login.h"
#include "db.h"
#include "Main.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TFormLogin *FormLogin;
//---------------------------------------------------------------------------
__fastcall TFormLogin::TFormLogin(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------

void __fastcall TFormLogin::BitBtn1Click(TObject *Sender)
{
     String UserID=Edit1->Text;
     String Password=Edit2->Text;
     bool endflag=0;
     DataModule1->Table4->Active=true;
     DataModule1->Table4->First();
     while(!DataModule1->Table4->Eof&&!endflag)
     {
        if(DataModule1->Table4->FieldByName("Account")->Value==UserID&&DataModule1->Table4->FieldByName("Password")->Value==Password)
              {
                endflag=1;
                FormMain->manager=DataModule1->Table4->FieldByName("IfManager")->Value;
              }
        else
           DataModule1->Table4->Next();

     }
     if(!endflag)
          MessageBox(NULL,"你输入的帐号或者密码错误,请重新输入","登陆信息",MB_OK);
     else
        {
          FormMain->MEmploy->Enabled=true;
          FormMain->MDepartment->Enabled=true;
          FormMain->MA_P->Enabled=true;
          if(FormMain->manager)
          {
             FormMain->MAccount->Enabled=true;
             FormMain->MRegister->Visible=false;
          }
          else
          {
             FormMain->MAccount->Enabled=true;
             FormMain->MchangePW->Enabled=true;
             FormMain->MAddAccount->Enabled=false;
           }



          FormMain->Caption="人事管理系统  "+UserID+"你好";
          FormMain->CurrentUserID=UserID;

          Close();
          }





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

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