fwryjsd.cpp

售后服务系统优质的售后服务是企业生存和市场竞争的保障

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

#include <vcl.h>
#pragma hdrstop
#include "fwryjs.h"
#include "fwryjsd.h"

//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TFwRyJsDForm *FwRyJsDForm;
//---------------------------------------------------------------------------
__fastcall TFwRyJsDForm::TFwRyJsDForm(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TFwRyJsDForm::QRBand2AfterPrint(TQRCustomBand *Sender,
      bool BandPrinted)
{
        fwf = jtf = wgf = 0;
}
//---------------------------------------------------------------------------

void __fastcall TFwRyJsDForm::QRSubDetail1AfterPrint(TQRCustomBand *Sender,
      bool BandPrinted)
{
        fwf +=  QRDBText8->DataSet->FieldByName("yfryfy")->AsFloat;
        jtf +=  QRDBText7->DataSet->FieldByName("yfryjtfy")->AsFloat;
        wgf +=  QRDBText9->DataSet->FieldByName("yfrywgfy")->AsFloat;
        hjfwf +=  QRDBText8->DataSet->FieldByName("yfryfy")->AsFloat;
        hjjtf +=  QRDBText7->DataSet->FieldByName("yfryjtfy")->AsFloat;
        hjwgf +=  QRDBText9->DataSet->FieldByName("yfrywgfy")->AsFloat;
}
//---------------------------------------------------------------------------

void __fastcall TFwRyJsDForm::QRBand3BeforePrint(TQRCustomBand *Sender,
      bool &PrintBand)
{
        QRLabel28->Caption = String(fwf);
        QRLabel29->Caption = String(wgf);
        QRLabel30->Caption = String(jtf);
        QRLabel37->Caption = String(fwf+wgf+jtf);
}
//---------------------------------------------------------------------------

void __fastcall TFwRyJsDForm::QRBand4BeforePrint(TQRCustomBand *Sender,
      bool &PrintBand)
{
        QRLabel31->Caption = String(hjfwf);
        QRLabel32->Caption = String(hjwgf);
        QRLabel33->Caption = String(hjjtf);
        QRLabel38->Caption = String(hjfwf+hjwgf+hjjtf);
}
//---------------------------------------------------------------------------