nowcustominprint.cpp

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

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

#include <vcl.h>
#pragma hdrstop

#include "NowCustomInPrint.h"
#include "DataMoudle.h"
#include "Main.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TCustomNowPrintForm *CustomNowPrintForm;
//---------------------------------------------------------------------------
__fastcall TCustomNowPrintForm::TCustomNowPrintForm(TComponent* Owner)
    : TForm(Owner)
{
}
//---------------------------------------------------------------------------

void __fastcall TCustomNowPrintForm::FormShow(TObject *Sender)
{


  //  QuickRep1->Preview();

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

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

void __fastcall TCustomNowPrintForm::FormCreate(TObject *Sender)
{
        QRLabel8->Caption=MainForm->TheCompany +"在住客户名单";
    QRLabel10->Caption=Now();
    AnsiString SQL;
    SQL="select a.name ,a.sex,a.passType,a.PassNo,a.RoomNo,a.orderno,b.starttime from peoplewith a,orders b where (a.orderno=b.orderno and b.checked=0 and used=1)";
    ADOQueryCustom->Active=false;
    ADOQueryCustom->SQL->Clear();
    ADOQueryCustom->SQL->Add(SQL);
    ADOQueryCustom->Active=true;    
}
//---------------------------------------------------------------------------