unitlogin.cpp

餐厅结账管理程序提供中小型餐厅所需要的点菜结账功能

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

#include <vcl.h>
#pragma hdrstop

#include "UnitLogin.h"
#include "Unit1.h"
#include "Unit6.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TFormLogin *FormLogin;
//---------------------------------------------------------------------------
__fastcall TFormLogin::TFormLogin(TComponent* Owner)
        : TForm(Owner)
{   
}
//---------------------------------------------------------------------------
void __fastcall TFormLogin::BitBtn1Click(TObject *Sender)
{
  if(EditID->Text != "")
  {
    int ID=EditID->Text.ToInt();
    FormEmployeeMan->TableEmployee->IndexFieldNames="ID";
    FormEmployeeMan->TableEmployee->SetKey();
    if(FormEmployeeMan->TableEmployee->FindKey(ARRAYOFCONST((ID))) )
    { 
      if(FormEmployeeMan->TableEmployee->FieldByName("Password")->AsString
          ==EditPass->Text )
      {
        AnsiString rankname;
        char ranknum;
        ranknum=FormEmployeeMan->TableEmployee->FieldByName("Rank")->AsString[1];
        FormEmployeeMan->TableRank->IndexFieldNames="RankNum";
        FormEmployeeMan->TableRank->SetKey();
        if(FormEmployeeMan->TableRank->FindKey(ARRAYOFCONST((ranknum))) )
        {
          rankname=FormEmployeeMan->TableRank->FieldByName("RankName")->AsString;
        }
        else
        {
          MessageDlg("未知级别!",mtError, TMsgDlgButtons() << mbOK, 0);
          return;  //不允许登陆，返回
        }
        //纪录用户ID
        FormMain->UserID=ID;
        FormMain->Caption=AnsiString("餐厅结帐管理系统")+
                          "["+rankname+":"+ID+"]";
        //根据用户等级处理显示界面
        if(rankname == "系统管理员")
        {
           //所有菜单都显示，不作特殊处理
        }
        else if(rankname == "经理" )
        {
          //不显示数据库维护菜单
          FormMain->Menu_M->Visible=false;
        }
        else if(rankname == "收银员" )
        {
          //不显示数据库维护和报表
          FormMain->Menu_M->Visible=false;
          FormMain->Menu_R->Visible=false;
        }
        else
        {
          MessageDlg("尚未定义适合您的功能,请换用管理员、经理、收银员ID以便使用相应功能!",
                     mtInformation, TMsgDlgButtons() << mbOK, 0);
          FormMain->Menu_M->Visible=false;
          FormMain->Menu_R->Visible=false;
          FormMain->Menu_O->Visible=false;
        }
        FormLogin->Hide();
        FormMain->Show();
      }
      else
      {
        MessageDlg("密码错误!",mtError, TMsgDlgButtons() << mbOK, 0);
        EditPass->SetFocus();
      }
    }
    else
    {
      MessageDlg("此ID不存在!",mtError, TMsgDlgButtons() << mbOK, 0);
      EditID->SetFocus();
    }
  }
}
//---------------------------------------------------------------------------
void __fastcall TFormLogin::BitBtn2Click(TObject *Sender)
{
  Application->Terminate();        
}
//---------------------------------------------------------------------------