costprint.cpp

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

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

#include <vcl.h>
#pragma hdrstop

#include "CostPrint.h"
#include "DataMoudle.h"
#include "Main.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TCostPrintForm *CostPrintForm;
//---------------------------------------------------------------------------
__fastcall TCostPrintForm::TCostPrintForm(TComponent* Owner)
    : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TCostPrintForm::FormShow(TObject *Sender)
{
    AnsiString OrderNo,SQL;
    OrderNo=MainForm->CostOrderNo;
    SQL="select * from cost where orderno="+QuotedStr(OrderNo);
    QRLabel1->Caption=MainForm->TheCompany+"  旅客费用清单报表";
    ADOQuery1->Active=false;
    ADOQuery1->SQL->Clear();
    ADOQuery1->SQL->Add(SQL);
    ADOQuery1->Active=true;

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