kaitai.~cpp

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

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

#include <vcl.h>
#pragma hdrstop

#include "KaiTai.h"
#include "DataModule.h"
#include "DianCai.h"
#include "ZhuanTai.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TKaiTaiForm *KaiTaiForm;
//---------------------------------------------------------------------------
__fastcall TKaiTaiForm::TKaiTaiForm(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TKaiTaiForm::PageControl1Change(TObject *Sender)
{
AnsiString QueryString="select * from 房间台号信息表 ";
QueryString+="where 餐饮部门= '";
QueryString+=ComboBox1->Text;
QueryString+="'";
QueryString+=" and 状态= '";
switch(PageControl1->ActivePage->TabIndex)
{
case 0:
  QueryString+="E";
  QueryString+="'";
  DataMod->CaiYinKongFangQuery->Close();
  DataMod->CaiYinKongFangQuery->SQL->Clear();
  try
  {
  DataMod->CaiYinKongFangQuery->SQL->Add(QueryString);
  DataMod->CaiYinKongFangQuery->ExecSQL();
  DataMod->CaiYinKongFangQuery->Open();
  Label14->Caption=DataMod->CaiYinKongFangQuery->RecordCount;
  }
  catch(EDBEngineError &E)
  {
  MessageBox(NULL,"数据库操作错误","错误",MB_OK);
  }
  break;
case 1:
  QueryString+="O";
  QueryString+="'";
  DataMod->CaiYinKongFangQuery->Close();
  DataMod->CaiYinKongFangQuery->SQL->Clear();
  try
  {
  DataMod->CaiYinKongFangQuery->SQL->Add(QueryString);
  DataMod->CaiYinKongFangQuery->ExecSQL();
  DataMod->CaiYinKongFangQuery->Open();
  Label15->Caption=DataMod->CaiYinKongFangQuery->RecordCount;
  }
  catch(EDBEngineError &E)
  {
  MessageBox(NULL,"数据库操作错误","错误",MB_OK);
  }
  break;
}
}
//---------------------------------------------------------------------------


void __fastcall TKaiTaiForm::BitBtn3Click(TObject *Sender)
{
if(PageControl1->ActivePage==TabSheet2)
{
   MessageDlg("该台在营业中，请另选择！",mtWarning,TMsgDlgButtons()<<mbYes,0);
}
else
{
  if(Label14->Caption>0)
  {
     TDainCaiForm *DainCaiForm=new TDainCaiForm(this);
     if(DainCaiForm->ShowModal()==mrOk);
     {
     int ID=DataMod->CaiYinKongFangQuery->FieldValues["编号"];
     AnsiString QueryStr="select * from 房间台号信息表 where 编号= '";
     QueryStr+=ID;
     QueryStr+="'";
     DataMod->CaiYinKongFangQuery->Close();
     DataMod->CaiYinKongFangQuery->SQL->Clear();
     try
     {
     DataMod->CaiYinKongFangQuery->SQL->Add(QueryStr);
     DataMod->CaiYinKongFangQuery->ExecSQL();
     DataMod->CaiYinKongFangQuery->Open();
     DataMod->CaiYinKongFangQuery->Edit();
     DataMod->CaiYinKongFangQuery->FieldValues["状态"]="O";
     DataMod->CaiYinKongFangQuery->Post();
     DataMod->CaiYinKongFangQuery->Close();
     }
     catch(EDBEngineError &E)
     {
     MessageBox(this,"数据库操作错误","错误",MB_OK);
     }
     }
     delete DainCaiForm;

  }
  else
     MessageDlg("己没有空闲房台，请另选择！",mtWarning,TMsgDlgButtons()<<mbYes,0);
}
}
//---------------------------------------------------------------------------

void __fastcall TKaiTaiForm::BitBtn1Click(TObject *Sender)
{
AnsiString QueryStr="select * from 房间台号信息表 ";
QueryStr+=" where 房台名称 like '%";
QueryStr+=Edit1->Text;
QueryStr+="%'";
DataMod->QianXianQuery->Close();
DataMod->QianXianQuery->SQL->Clear();
try
{
  DataMod->QianXianQuery->SQL->Add(QueryStr);
  DataMod->QianXianQuery->ExecSQL();
  DataMod->QianXianQuery->Open();
}
catch(EDBEngineError &E)
{
  MessageBox(this,"数据库操作错误","错误",MB_OK);
  return;
}
if(DataMod->QianXianQuery->RecordCount>0)
{
  TDainCaiForm *DainCaiForm=new TDainCaiForm(this);
  DainCaiForm->ShowModal();
  delete DainCaiForm;
}
else
{
  MessageBox(NULL,"不存在此房间，请梳对","错误",MB_OK);
}

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

void __fastcall TKaiTaiForm::BitBtn4Click(TObject *Sender)
{
if(PageControl1->ActivePage==TabSheet2)
{
  if(Label15->Caption>0)
  {
   TZhuanTaiForm *ZhuanTaiForm=new TZhuanTaiForm(this);
   ZhuanTaiForm->ShowModal();
   delete ZhuanTaiForm;
  }
  else
    MessageBox(NULL,"选择有误，请确认！","确认",MB_OK);
}
else
{
  MessageBox(NULL,"您选的是空房，不能转台\n请核对","提示",MB_OK);
}
}
//---------------------------------------------------------------------------

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