dbunit.cpp

生成PDF文档的控件

//*******************************************************//
//                                                       //
//       This unit is part of the VISPDF VCL library.    //
//       Written by R.Husske - ALL RIGHTS RESERVED.      //
//                                                       //
//       Copyright (C) 2000-2008, www.vispdf.com         //
//                                                       //
//       e-mail: [e-mail]                      //
//       http://www.vispdf.com                           //
//                                                       //
//*******************************************************//
//---------------------------------------------------------------------------

#include <vcl.h>
#include <SysUtils.hpp>
#pragma hdrstop

#include "DBUnit.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma link "VPDFDoc"
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------

__fastcall TForm1::PreparePage()
{
       VPDF->CurrentPage->SetFont( "Arial", TFontStyles() << fsItalic, 10 , 0, false);
       VPDF->CurrentPage->PrintText( 50, VertPos, 0, TableName + "  Page"+ IntToStr(PageNum) );
       VPDF->CurrentPage->PrintText( 480, VertPos, 0, DateTimeToStr(Now()) );
       VPDF->CurrentPage->MoveTo( 50, VertPos+15 );
       VPDF->CurrentPage->LineTo( 570, VertPos+15 );
       VPDF->CurrentPage->MoveTo( 50, VertPos+45 );
       VPDF->CurrentPage->LineTo( 570, VertPos+45 );
       VPDF->CurrentPage->Stroke();
       VPDF->CurrentPage->SetFont("Times New Roman", TFontStyles() << fsItalic << fsBold, 12, 0, false);
       VPDF->CurrentPage->SetRGBFillColor(clNavy);
       PrintRow( VertPos + 25, "No", "Company", "Addr", "City", false);
       VPDF->CurrentPage->SetRGBFillColor(clBlack);
       VertPos += 20;
}

__fastcall TForm1::PrintRow( int Position, AnsiString No, AnsiString Company, AnsiString Addr, AnsiString City, bool ShowBackground )
{
       if ( ShowBackground )
       {
           VPDF->CurrentPage->SetRGBColor(0xFFF3DD);
           VPDF->CurrentPage->Rectangle(50, Position, 520, 20);
           VPDF->CurrentPage->Fill();
           VPDF->CurrentPage->SetRGBColor(clBlack);
       }
       VPDF->CurrentPage->PrintText(  70, Position, 0, No );
       VPDF->CurrentPage->PrintText( 110, Position, 0, Company );
       VPDF->CurrentPage->PrintText( 300, Position, 0, Addr );
       VPDF->CurrentPage->PrintText( 480, Position, 0, City );
}

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

void __fastcall TForm1::Button1Click(TObject *Sender)
{
      TableName = "Customer.DB";

      CustomerTable->DatabaseName = "DBDEMOS";   //  Open demo customer
      CustomerTable->TableName = TableName;      //   database table
      CustomerTable->Active = true;              //
      CustomerTable->First();

      VPDF->AutoLaunch = true;                                      // PDF file will be shown automatically
      VPDF->FileName = "TableDemo.pdf";                           // Set PDF filename
      VPDF->PageLayout = plOneColumn;
      VPDF->BeginDoc (false);                                                // Create PDF file
      VPDF->CurrentPage->SetFont ("Arial", TFontStyles() << fsBold, 24 , 0, false);             // Set current font
      VPDF->CurrentPage->PrintText (200, 20, 0, "Customer report"); // Print PDF header
      PageNum = 1;
      VertPos = 60;                                                // Draw and print
      PreparePage();                                                  //  table header
      bool Back = true;
      while ( !CustomerTable->Eof )
      {
            Back = !Back;
            if ( VertPos > 700 )                                // If end of page then
            {
                VPDF->AddPage();                                         // Add page, draw and print
                PageNum++;                                         // table header and set
                VertPos = 60;                                        // new print position
                PreparePage();
            }
            PrintRow( VertPos + 25,                                   // print  row from the current position
                      CustomerTable->FieldValues["CustNo"],
                      CustomerTable->FieldValues["Company"],
                      CustomerTable->FieldValues["Addr1"],
                      CustomerTable->FieldValues["City"],
                      Back
                      );
            VertPos += 20;
            CustomerTable->Next();                                       // Go to next record
      }
       VPDF->EndDoc();                                                 // Close PDF file
}
//---------------------------------------------------------------------------