custominprint.cpp

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

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

#include <vcl.h>
#pragma hdrstop

#include "CustomInPrint.h"
#include "DataMoudle.h"
#include "Main.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TCustomInPrintForm *CustomInPrintForm;
//---------------------------------------------------------------------------
__fastcall TCustomInPrintForm::TCustomInPrintForm(TComponent* Owner)
    : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TCustomInPrintForm::FormClose(TObject *Sender,
      TCloseAction &Action)
{
    MainForm->CustomInPrint=0;
    Action=caFree;    
}
//---------------------------------------------------------------------------

void __fastcall TCustomInPrintForm::FormShow(TObject *Sender)
{
    ADOQueryCustom->Active=false;
    QRLabel13->Caption=MainForm->TheCompany+"  住宿登记转抄";
    ADOQueryCustom->SQL->Clear();


    //ADOQueryCustom->SQL->Add("select c.roomno,a.customId,a.name ,a.sex,a.age,a.passtype,a.passnumber,a.address,b.starttime,b.endtime from custom a,orders b ,roomorder c where  a.CustomID in (select orders.CustomID from orders where StartTime >="+QuotedStr(MainForm->CustomInBeginTime)+" and EndTime <="+ QuotedStr(MainForm->CustimInEndTime)+" and Checked =1 )and c.orderno=b.orderno and a.customid=c.customid");
     ADOQueryCustom->SQL->Add("select a.orderno,a.name,a.sex,a.passtype,a.passtype,a.passno,a.roomno ,b.starttime,b.endtime from peoplewith a ,orders b where a.orderno=b.orderno and b.StartTime >="+QuotedStr(MainForm->CustomInBeginTime)+" and EndTime <="+ QuotedStr(MainForm->CustimInEndTime)+" and b.Checked =1 ");
    ADOQueryCustom->Active=true;

    QRLabel10->Caption=QuickRep1->RecordCount;
    QRLabel12->Caption=Now();

    QuickRep1->Preview();
}
//---------------------------------------------------------------------------