checkout.cpp

全面剖析酒店管理的内容

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

#include <vcl.h>
#pragma hdrstop

#include "CheckOUt.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma link "Parent"
#pragma resource "*.dfm"
TfmCheckOut *fmCheckOut;
//---------------------------------------------------------------------------
__fastcall TfmCheckOut::TfmCheckOut(TComponent* Owner)
    : TfmParent(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TfmCheckOut::btCalBillClick(TObject *Sender)
{
    // 计算应收帐款
    TQuery* pQueryRoom = new TQuery(NULL);
    pQueryRoom->DatabaseName = "db";
    AnsiString sql;
    sql = "exec sf_计算应收帐款 '";
    sql += Table1->FieldByName("入住单号")->AsString + "'";
    pQueryRoom->SQL->Add(sql);
    pQueryRoom->ExecSQL();
    delete pQueryRoom;
    // 刷新显示
    BitBtn1Click(NULL);
}
//---------------------------------------------------------------------------
void __fastcall TfmCheckOut::btCheckOutClick(TObject *Sender)
{
    // 收银退房
    TQuery* pQueryRoom = new TQuery(NULL);
    pQueryRoom->DatabaseName = "db";
    AnsiString sql;
    sql = "exec sf_收银退房 '";
    sql += Table1->FieldByName("入住单号")->AsString + "','";
    sql += ComboBox1->Text + "'";
    pQueryRoom->SQL->Add(sql);
    pQueryRoom->ExecSQL();
    delete pQueryRoom;
    // 刷新显示
    BitBtn1Click(NULL);
}
//---------------------------------------------------------------------------