checkpring.cpp

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

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

#include <vcl.h>
#pragma hdrstop

#include "CheckPring.h"
#include "DataMoudle.h"
#include "CusChecked.h"
#include "Main.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TCheckPrintForm *CheckPrintForm;
//---------------------------------------------------------------------------
__fastcall TCheckPrintForm::TCheckPrintForm(TComponent* Owner)
    : TForm(Owner)
{
}
//---------------------------------------------------------------------------

void __fastcall TCheckPrintForm::FormClose(TObject *Sender,
      TCloseAction &Action)
{
    Action=caFree;
}
//---------------------------------------------------------------------------

void __fastcall TCheckPrintForm::RadioButton1Click(TObject *Sender)
{
    //  QRLabel9->Caption=MainForm->printorderno;

    QRLabel17->Caption=DM->Convert(StrToFloat(MainForm->PrintMoney));
    PageControl1->ActivePageIndex=1;
    AnsiString SQL;
    SQL="select a.name ,a.sex,a.passtype,a.passnumber, b.orderno,b.Starttime,b.endtime ,b.totalcost,b.CheckOperName from custom a,orders b where a.customid=b.customid and b.orderno="+QuotedStr(MainForm->printorderno);

    QRLabel10->Caption=MainForm->TheRoomNo;
    ADOQuery1->Active=false;
    ADOQuery1->SQL->Clear();
    ADOQuery1->SQL->Add(SQL);
    ADOQuery1->Active=true;
    QuickRep1->Preview();

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

void __fastcall TCheckPrintForm::RadioButton2Click(TObject *Sender)
{
    PageControl1->ActivePageIndex=2;
    AnsiString SQL;
    SQL="Select * from cost where orderno="+QuotedStr(MainForm->printorderno);
    ADOQuery2->Active=false;
    ADOQuery2->SQL->Clear();
    ADOQuery2->SQL->Add(SQL);
    ADOQuery2->Active=true;
    QuickRep2->Preview();
}
//---------------------------------------------------------------------------


void __fastcall TCheckPrintForm::FormShow(TObject *Sender)
{
    QRLabel20->Caption=MainForm->TheCompany+"  客户  消费单";
    QRLabel19->Caption=MainForm->TheCompany+"  客户  消费单清单";
    QRLabel22->Caption=Now();

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