custominpring.cpp

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

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

#include <vcl.h>
#pragma hdrstop

#include "CustomInPring.h"
#include "DataMoudle.h"
#include "Main.h"
#include "CustomIn.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TCustomInPringForm *CustomInPringForm;
//---------------------------------------------------------------------------
__fastcall TCustomInPringForm::TCustomInPringForm(TComponent* Owner)
    : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TCustomInPringForm::FormShow(TObject *Sender)
{
    QRLabel5->Caption=MainForm->CustomInRoomNo;
    QRLabel10->Caption=MainForm->TheCompany+"  旅客入住报表";
    AnsiString SQL;
    SQL="select a.name ,a.sex ,a.passtype,a.passNumber,b.endtime,b.starttime ,c.cost from custom a,orders b,cost c where c.orderno=b.orderno and a.customid=b.customid and b.orderno="+QuotedStr(MainForm->CustomInOrderNo);

    ADOQuery1->Active=false;
    ADOQuery1->SQL->Clear();
    ADOQuery1->SQL->Add(SQL);
    ADOQuery1->Active=true;
  //  QuickRep1->Preview();
}
//---------------------------------------------------------------------------
void __fastcall TCustomInPringForm::FormClose(TObject *Sender,
      TCloseAction &Action)
{
    Action=caFree;    
}
//---------------------------------------------------------------------------