qrmain.cpp

来自「一个不错的销售系统」· C++ 代码 · 共 135 行

//---------------------------------------------------------------------------
//      Name:           QrMain.cpp
//      Author:         Jrays
//      Date:           1999.8.7
//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop

#include "QrMain.h"
#include "QrProductSold.h"
#include "QrProductSoldDecision.h"
#include "QrMaterialBuyUse.h"
#include "QrFinanceReport.h"
#include "QrLoanRestore.h"
#include "QrProductCapability.h"
#include "QrRestoreCost.h"
#include "QrMaterialBuy.h"
#include "QrLoanLoanRepay.h"
#include "QrLoanInterest.h"
#include "About.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TfrmQrMain *frmQrMain;
//---------------------------------------------------------------------------
__fastcall TfrmQrMain::TfrmQrMain(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------

void __fastcall TfrmQrMain::SetReport( TQuickRep * QuickRep )
{
        FReport = QuickRep;
        mmoDescription->Lines->Assign( Report->Description );
}
//---------------------------------------------------------------------------
void __fastcall TfrmQrMain::rbnProductSoldClick(TObject *Sender)
{
        Report = frmProductSold->QuickRep1;
}
//---------------------------------------------------------------------------

void __fastcall TfrmQrMain::bbnGoClick(TObject *Sender)
{
        Close();        
}
//---------------------------------------------------------------------------

void __fastcall TfrmQrMain::bbnPreviewClick(TObject *Sender)
{
        Report->Preview();
}
//---------------------------------------------------------------------------

void __fastcall TfrmQrMain::bbnSettingsClick(TObject *Sender)
{
        Report->PrinterSetup();        
}
//---------------------------------------------------------------------------

void __fastcall TfrmQrMain::bbnPrintClick(TObject *Sender)
{
        Report->Print();        
}
//---------------------------------------------------------------------------

void __fastcall TfrmQrMain::rbnProductSoldDecisionClick(TObject *Sender)
{
        Report = frmProductSoldDecision->QuickRep1;
}
//---------------------------------------------------------------------------

void __fastcall TfrmQrMain::rbnMaterialBuyUseClick(TObject *Sender)
{
        Report = frmMaterialBuyUse->QuickRep1;
}
//---------------------------------------------------------------------------

void __fastcall TfrmQrMain::rbnFinanceReportClick(TObject *Sender)
{
        Report = frmFinanceReport->QuickRep1;
}
//---------------------------------------------------------------------------


void __fastcall TfrmQrMain::rbnLoanRestoreClick(TObject *Sender)
{
        Report = frmLoanRestore->QuickRep1;
}
//---------------------------------------------------------------------------

void __fastcall TfrmQrMain::rbnProductCapabilityClick(TObject *Sender)
{
        Report = frmProductCapability->QuickRep1;
}
//---------------------------------------------------------------------------

void __fastcall TfrmQrMain::rbnRestoreCostClick(TObject *Sender)
{
        Report = frmRestoreCost->QuickRep1;
}
//---------------------------------------------------------------------------

void __fastcall TfrmQrMain::rbnMaterialBuyClick(TObject *Sender)
{
        Report = frmMaterialBuy->QuickRep1;
}
//---------------------------------------------------------------------------

void __fastcall TfrmQrMain::rbnLoanLoanRepayClick(TObject *Sender)
{
        Report = frmLoanLoanRepay->QuickRep1;        
}
//---------------------------------------------------------------------------

void __fastcall TfrmQrMain::rbnLoanInterestClick(TObject *Sender)
{
        Report = frmLoanInterest->QuickRep1;        
}
//---------------------------------------------------------------------------

void __fastcall TfrmQrMain::bbnAboutClick(TObject *Sender)
{
        (new TfrmAbout(this))->ShowModal();        
}
//---------------------------------------------------------------------------

void __fastcall TfrmQrMain::FormCreate(TObject *Sender)
{
        Caption = Application->Title + "  报表系统";        
}
//---------------------------------------------------------------------------