zhuantai.~cpp

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

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

#include <vcl.h>
#pragma hdrstop

#include "ZhuanTai.h"
#include "DataModule.h"
#include "KaiTai.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TZhuanTaiForm *ZhuanTaiForm;
//---------------------------------------------------------------------------
__fastcall TZhuanTaiForm::TZhuanTaiForm(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TZhuanTaiForm::FormShow(TObject *Sender)
{
ComboBox1->Text=KaiTaiForm->ComboBox1->Text;
AnsiString QueryString="select * from 房间台号信息表 ";
QueryString+="where 餐饮部门= '";
QueryString+=DBText4->Caption;
QueryString+="'";
QueryString+=" and 状态= '";
QueryString+="E";
QueryString+="'";
DataMod->ZhuanTaiKongFangQuery->Close();
DataMod->ZhuanTaiKongFangQuery->SQL->Clear();
DataMod->ZhuanTaiKongFangQuery->SQL->Add(QueryString);
DataMod->ZhuanTaiKongFangQuery->ExecSQL();
DataMod->ZhuanTaiKongFangQuery->Open();
}
//---------------------------------------------------------------------------

void __fastcall TZhuanTaiForm::ComboBox1Change(TObject *Sender)
{
AnsiString QueryString="select * from 房间台号信息表 ";
QueryString+="where 餐饮部门= '";
QueryString+=ComboBox1->Text;
QueryString+="'";
QueryString+=" and 状态= '";
QueryString+="E";
QueryString+="'";
DataMod->ZhuanTaiKongFangQuery->Close();
DataMod->ZhuanTaiKongFangQuery->SQL->Clear();
DataMod->ZhuanTaiKongFangQuery->SQL->Add(QueryString);
DataMod->ZhuanTaiKongFangQuery->ExecSQL();
DataMod->ZhuanTaiKongFangQuery->Open();
}
//---------------------------------------------------------------------------


void __fastcall TZhuanTaiForm::BitBtn1Click(TObject *Sender)
{
//if(!DataMod->CaiYinKongFangQuery->Active)
//    DataMod->CaiYinKongFangQuery->Open();
//DataMod->CaiYinKongFangQuery->Edit();
//DataMod->CaiYinKongFangQuery->FieldValues["状态"]="O";
//DataMod->CaiYinKongFangQuery->Post();
//DataMod->ZhuanTaiKongFangQuery->Edit();
//DataMod->ZhuanTaiKongFangQuery->FieldValues["状态"]="E";
//DataMod->ZhuanTaiKongFangQuery->Post();
//Close();
DataMod->ZhuanTaiKongFangQuery->Edit();
DataMod->ZhuanTaiKongFangQuery->FieldValues["状态"]="E";
Close();
}
//---------------------------------------------------------------------------