load.cpp

本人开发的一个酒店管理小程序

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

#include <vcl.h>
#pragma hdrstop

#include "Load.h"
#include "DataModule.h"
#include "Main.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
DengLuMen="";
}
//---------------------------------------------------------------------------
void __fastcall TForm1::PageControl1Change(TObject *Sender)
{
AnsiString QueryString="select 编号,姓名,员工类别 from 权限信息表 ";
QueryString+="where 权限= '";
if(!DataMod->QianXianTable->Active)
    DataMod->QianXianTable->Open();
switch(PageControl1->ActivePage->TabIndex)
{
case 0:
   QueryString+="A";
   QueryString+="'";
   DataMod->QianXianQuery->Close();
   DataMod->QianXianQuery->SQL->Clear();
   DataMod->QianXianQuery->SQL->Add(QueryString);
   DataMod->QianXianQuery->ExecSQL();
   DataMod->QianXianQuery->Open();
   break;
case 1:
   QueryString+="B";
   QueryString+="'";
   DataMod->QianXianQuery->Close();
   DataMod->QianXianQuery->SQL->Clear();
   DataMod->QianXianQuery->SQL->Add(QueryString);
   DataMod->QianXianQuery->ExecSQL();
   DataMod->QianXianQuery->Open();
   break;
case 2:
   QueryString+="J";
   QueryString+="'";
   DataMod->QianXianQuery->Close();
   DataMod->QianXianQuery->SQL->Clear();
   DataMod->QianXianQuery->SQL->Add(QueryString);
   DataMod->QianXianQuery->ExecSQL();
   DataMod->QianXianQuery->Open();
   break;
}
}
//---------------------------------------------------------------------------


void __fastcall TForm1::BitBtn1Click(TObject *Sender)
{
if(!DataMod->QianXianTable->Active)
    DataMod->QianXianTable->Open();
AnsiString ID=DataMod->QianXianQuery->FieldValues["编号"];
DataMod->QianXianQuery->Close();
DataMod->QianXianQuery->SQL->Clear();
AnsiString CheckString="select * from 权限信息表 ";
CheckString+="where 编号= '";
CheckString+=ID;
CheckString+="'";
CheckString+=" and 密码= '";
CheckString+=Edit1->Text;
CheckString+="'";
try
{

  DataMod->QianXianQuery->SQL->Add(CheckString);
  DataMod->QianXianQuery->ExecSQL();
  DataMod->QianXianQuery->Open();
}
catch(EDBEngineError &E)
{
  MessageBox(NULL,"数据库操作错误","错误",MB_OK);
  ModalResult=mrNone;
}
if(DataMod->QianXianQuery->RecordCount==0)
{
   MessageBox(NULL,"口令错误，请核对！","提示",MB_OK);
   ModalResult=mrNone;
   Edit1->Text="";
   Edit1->SetFocus();
}
else
{

   DengLuMen=DBText1->Caption+"   "+DataMod->QianXianQuery->FieldByName("员工类别")->Value;
   DataMod->QianXianQuery->Close();
   MainForm->Show();
}
}
//---------------------------------------------------------------------------

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