upreview.cpp

超市配货中心进销存源码 超市配货中心进销存源码

//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop

#include "UPreview.h"
#include "uas.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma link "CGAUGES"
#pragma resource "*.dfm"
TMyPreview *MyPreview;
//---------------------------------------------------------------------------
__fastcall TMyPreview::TMyPreview(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TMyPreview::FormClose(TObject *Sender,
      TCloseAction &Action)
{
        FMain->qrTemp=NULL;
        Action=caFree;
}
//---------------------------------------------------------------------------

void __fastcall TMyPreview::ToolButton1Click(TObject *Sender)
{
        QRPreview1->ZoomToFit();
}
//---------------------------------------------------------------------------


void __fastcall TMyPreview::ToolButton3Click(TObject *Sender)
{
        QRPreview1->ZoomToWidth();
}
//---------------------------------------------------------------------------

void __fastcall TMyPreview::ToolButton4Click(TObject *Sender)
{
        QRPreview1->PageNumber= 1;
        UpdatePanelShow();
}
//---------------------------------------------------------------------------

void __fastcall TMyPreview::ToolButton5Click(TObject *Sender)
{
        QRPreview1->PageNumber= QRPreview1->PageNumber+1;
        UpdatePanelShow();        
}
//---------------------------------------------------------------------------

void __fastcall TMyPreview::ToolButton6Click(TObject *Sender)
{
        QRPreview1->PageNumber= QRPreview1->PageNumber-1;
        if(QRPreview1->PageNumber==0)
              QRPreview1->PageNumber=1;
        UpdatePanelShow();              
}
//---------------------------------------------------------------------------

void __fastcall TMyPreview::ToolButton7Click(TObject *Sender)
{
     QRPreview1->PageNumber= FPageCount;
     UpdatePanelShow();
}
//---------------------------------------------------------------------------

void __fastcall TMyPreview::QRPreview1PageAvailable(TObject *Sender,
      int PageNum)
{
        FPageCount = PageNum;
}
//---------------------------------------------------------------------------

void __fastcall TMyPreview::ToolButton8Click(TObject *Sender)
{
QRPreview1->QRPrinter->PrintSetup();
}
//---------------------------------------------------------------------------

void __fastcall TMyPreview::ToolButton9Click(TObject *Sender)
{
QRPreview1->QRPrinter->Print();
}
//---------------------------------------------------------------------------

void __fastcall TMyPreview::ToolButton10Click(TObject *Sender)
{
   Close();
}
//---------------------------------------------------------------------------

void __fastcall TMyPreview::ToolButton11Click(TObject *Sender)
{
    if(SaveDlg1->Execute())
       {
       /*
        String s=AnsiString(SaveDlg1->FilterIndex)+SaveDlg1->FileName+SaveDlg1->DefaultExt;
        ShowMessage(s);
        */
        if ((FMain->qrTemp==NULL))
           return;

        if(SaveDlg1->DefaultExt == "QR")
        {
                        QRPreview1->QRPrinter->Save(SaveDlg1->FileName);        //--*.TXT
         }
         if(SaveDlg1->DefaultExt =="TXT")

         {

                         TQRAsciiExportFilter *AS =new  TQRAsciiExportFilter(SaveDlg1->FileName);
                         FMain->qrTemp->ExportToFilter(AS);
                         delete  AS;
         }
         if(SaveDlg1->DefaultExt == "HTM")
         {

                         TQRHTMLDocumentFilter *AS =new  TQRHTMLDocumentFilter(SaveDlg1->FileName);
                         FMain->qrTemp->ExportToFilter(AS);
                         delete  AS;
         }
         if(SaveDlg1->DefaultExt =="CSV")

         {

                         TQRCommaSeparatedFilter *AS =new  TQRCommaSeparatedFilter(SaveDlg1->FileName);
                         FMain->qrTemp->ExportToFilter(AS);
                         delete  AS;
         }

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

void __fastcall TMyPreview::ToolButton12Click(TObject *Sender)
{
     if(OpenDlg1->Execute())
        QRPreview1->QRPrinter->Load(OpenDlg1->FileName);
}
//---------------------------------------------------------------------------


void __fastcall TMyPreview::QRPreview1ProgressUpdate(TObject *Sender,
      int Progress)
{
        CGauge1->Show();
        CGauge1->Progress = Progress;
        if(Progress>=100)
        {
             CGauge1->Hide();
             pShow->Caption = " 第"+IntToStr(QRPreview1->PageNumber)+
            "页 总共"+IntToStr(FPageCount+1)+"页";
        }
}
void __fastcall TMyPreview::UpdatePanelShow()
{
     CGauge1->Hide();
     pShow->Caption = " 第"+IntToStr(QRPreview1->PageNumber)+
   "页 总共"+IntToStr(FPageCount)+"页";
}
//---------------------------------------------------------------------------

void __fastcall TMyPreview::N1001Click(TObject *Sender)
{
        QRPreview1->Zoom=100;
}
//---------------------------------------------------------------------------

void __fastcall TMyPreview::N1002Click(TObject *Sender)
{
        QRPreview1->Zoom=80;
}
//---------------------------------------------------------------------------

void __fastcall TMyPreview::N501Click(TObject *Sender)
{
        QRPreview1->Zoom=50;
}
//---------------------------------------------------------------------------

void __fastcall TMyPreview::tbZoomClick(TObject *Sender)
{
        static  int j=1;
        static  int i=100;
        QRPreview1->Zoom=i;
        tbZoom->Hint="缩放为:"+AnsiString(QRPreview1->Zoom)+"%";
        i=i+10*j;
        if(i>=100)
          j=-1;
        if(i<=0)
          j=1;


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