roomcheckprint.cpp

机器须安装SQL Server2000 程序安装完之后

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

#include <vcl.h>
#pragma hdrstop

#include "RoomCheckPrint.h"
#include "DataMoudle.h"
#include "Main.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TRoomCheckPrintForm *RoomCheckPrintForm;
//---------------------------------------------------------------------------
__fastcall TRoomCheckPrintForm::TRoomCheckPrintForm(TComponent* Owner)
    : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TRoomCheckPrintForm::FormShow(TObject *Sender)
{

    QRLabel10->Caption=Now();
    QRLabel9->Caption=MainForm->TheCompany+" 旅客提前结账";
    AnsiString SQL;
    SQL="select * from cost where orderno="+QuotedStr(MainForm->RoomCheckOrderNo)+"and roomno="+QuotedStr(MainForm->RoomCheckRoomNo);
    ADOQuery1->Active=false;
    ADOQuery1->SQL->Clear();
    ADOQuery1->SQL->Add(SQL);
    ADOQuery1->Active=true;
}
//---------------------------------------------------------------------------