home *** CD-ROM | disk | FTP | other *** search
/ Chip 2001 December / Chip_2001-12_cd1.bin / zkuste / delphi / kompon / d3456 / POWERPDF.ZIP / PowerPdf / Example / DBExample / UDBExample.pas < prev   
Pascal/Delphi Source File  |  2001-09-15  |  3KB  |  137 lines
  1. unit UDBExample;
  2.  
  3. interface
  4.  
  5. uses
  6.   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  7.   PReport, ExtCtrls, PdfDoc, Menus, ComCtrls, Db, DBTables, PdfTypes;
  8.  
  9. type
  10.   TForm1 = class(TForm)
  11.     StatusBar1: TStatusBar;
  12.     ScrollBox1: TScrollBox;
  13.     MainMenu1: TMainMenu;
  14.     File1: TMenuItem;
  15.     CreatePDF1: TMenuItem;
  16.     N1: TMenuItem;
  17.     Exit1: TMenuItem;
  18.     Help1: TMenuItem;
  19.     About1: TMenuItem;
  20.     PReport1: TPReport;
  21.     SaveDialog1: TSaveDialog;
  22.     PRPage1: TPRPage;
  23.     PRLayoutPanel1: TPRLayoutPanel;
  24.     PRGridPanel1: TPRGridPanel;
  25.     PRText1: TPRText;
  26.     Table1: TTable;
  27.     PRLayoutPanel2: TPRLayoutPanel;
  28.     PRText2: TPRText;
  29.     PRRect1: TPRRect;
  30.     PRText3: TPRText;
  31.     PRText4: TPRText;
  32.     PRText5: TPRText;
  33.     PRText6: TPRText;
  34.     TxtCustNo: TPRText;
  35.     TxtCompany: TPRText;
  36.     TxtAddr: TPRText;
  37.     TxtCity: TPRText;
  38.     TxtState: TPRText;
  39.     PRRect2: TPRRect;
  40.     Table1CustNo: TFloatField;
  41.     Table1Company: TStringField;
  42.     Table1Addr1: TStringField;
  43.     Table1City: TStringField;
  44.     Table1State: TStringField;
  45.     procedure CreatePDF1Click(Sender: TObject);
  46.     procedure FormCreate(Sender: TObject);
  47.     procedure PRGridPanel1BeforePrintChild(Sender: TObject;
  48.       ACanvas: TPRCanvas; ACol, ARow: Integer; Rect: TRect);
  49.     procedure About1Click(Sender: TObject);
  50.     procedure Exit1Click(Sender: TObject);
  51.   private
  52.   public
  53.   end;
  54.  
  55. var
  56.   Form1: TForm1;
  57.  
  58. implementation
  59.  
  60. {$R *.DFM}
  61.  
  62. procedure TForm1.CreatePDF1Click(Sender: TObject);
  63. begin
  64.   if SaveDialog1.Execute then
  65.   begin
  66.     Screen.Cursor := crHourGlass;
  67.     Application.ProcessMessages;
  68.     TxtCustNo.Printable := true;
  69.     TxtCompany.Printable := true;
  70.     TxtAddr.Printable := true;
  71.     TxtCity.Printable := true;
  72.     TxtState.Printable := true;
  73.     try
  74.       with PReport1 do
  75.       begin
  76.         FileName := SaveDialog1.FileName;
  77.  
  78.         // starting printing document.
  79.         BeginDoc;
  80.  
  81.         Table1.Open;
  82.         while not Table1.Eof do
  83.           Print(PRPage1);
  84.  
  85.         // save document.
  86.         EndDoc;
  87.         Table1.Close;
  88.       end;
  89.     finally
  90.       Screen.Cursor := crDefault;
  91.     end;
  92.   end;
  93. end;
  94.  
  95. procedure TForm1.FormCreate(Sender: TObject);
  96. begin
  97.   PRPage1.Visible := false;
  98. end;
  99.  
  100. procedure TForm1.PRGridPanel1BeforePrintChild(Sender: TObject;
  101.   ACanvas: TPRCanvas; ACol, ARow: Integer; Rect: TRect);
  102. begin
  103.   with Table1 do
  104.     if not Table1.Eof then
  105.     begin
  106.       // setting text from current record.
  107.       TxtCustNo.Text := Table1CustNo.AsString;
  108.       TxtCompany.Text := Table1Company.AsString;
  109.       TxtAddr.Text := Table1Addr1.AsString;
  110.       TxtCity.Text := Table1City.AsString;
  111.       TxtState.Text := Table1State.AsString;
  112.  
  113.       // move next current record.
  114.       Table1.Next;
  115.     end
  116.     else
  117.     begin
  118.       TxtCustNo.Printable := false;
  119.       TxtCompany.Printable := false;
  120.       TxtAddr.Printable := false;
  121.       TxtCity.Printable := false;
  122.       TxtState.Printable := false;
  123.     end;
  124. end;
  125.  
  126. procedure TForm1.About1Click(Sender: TObject);
  127. begin
  128.   ShowMessage(POWER_PDF_VERSION_STR + #13#10 + POWER_PDF_COPYRIGHT);
  129. end;
  130.  
  131. procedure TForm1.Exit1Click(Sender: TObject);
  132. begin
  133.   Close;
  134. end;
  135.  
  136. end.
  137.