main.cpp

BCB 级联表的设计源代码。有需要的朋友可以看看。BCB这个东西不知道还有人用么。以往是我的最爱。

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

#include <vcl.h>
#pragma hdrstop

#include "Main.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TfrmMain *frmMain;
//---------------------------------------------------------------------------
__fastcall TfrmMain::TfrmMain(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TfrmMain::FormCreate(TObject *Sender)
{
        //  打开数据集组件对象，创建数据源
        tblMasterDetail->Active = true;
        qryMasterDetail->Active = true;
/*        
        //  预览报表设计的结果
        QuickRep1->Preview();
*/        
}
//---------------------------------------------------------------------------
void __fastcall TfrmMain::miPreviewReportClick(TObject *Sender)
{
        QuickRep1->Preview();
}
//---------------------------------------------------------------------------
void __fastcall TfrmMain::miPrintReportClick(TObject *Sender)
{
        QuickRep1->Print();
}
//---------------------------------------------------------------------------
void __fastcall TfrmMain::miPrinterSetupClick(TObject *Sender)
{
        QuickRep1->PrinterSetup();
}
//---------------------------------------------------------------------------
void __fastcall TfrmMain::miSaveReportClick(TObject *Sender)
{
        AnsiString FileExt;
        //  打开保存文件对话框获得文件名
        if(SaveDialog1->Execute())
        {
                //  获得文件后缀
                FileExt = AnsiUpperCase(ExtractFileExt(SaveDialog1->FileName));
                //  输出Html超文本文件
                if((FileExt == ".HTML") || (FileExt == ".HTM"))
                        QuickRep1->ExportToFilter(new TQRHTMLDocumentFilter(SaveDialog1->FileName));
                //  输出txt文本文件
                else if(FileExt == ".TXT")
                        QuickRep1->ExportToFilter(new TQRAsciiExportFilter(SaveDialog1->FileName));
                //  输出CSV文件
                else if(FileExt == ".CSV")
                        QuickRep1->ExportToFilter(new TQRCommaSeparatedFilter(SaveDialog1->FileName));
                //  输出报表文件
                else
                {
                        QuickRep1->QRPrinter->Save(SaveDialog1->FileName);
                }
        }
}
//---------------------------------------------------------------------------