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

#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();        
}
//---------------------------------------------------------------------------