87fdff01a2
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@585 8e941d3f-bd1b-0410-a28a-d453659cc2b4
137 lines
3.1 KiB
ObjectPascal
137 lines
3.1 KiB
ObjectPascal
unit UDBExample;
|
|
|
|
interface
|
|
|
|
uses
|
|
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
|
|
PReport, ExtCtrls, PdfDoc, Menus, ComCtrls, Db, DBTables, PdfTypes;
|
|
|
|
type
|
|
TForm1 = class(TForm)
|
|
StatusBar1: TStatusBar;
|
|
ScrollBox1: TScrollBox;
|
|
MainMenu1: TMainMenu;
|
|
File1: TMenuItem;
|
|
CreatePDF1: TMenuItem;
|
|
N1: TMenuItem;
|
|
Exit1: TMenuItem;
|
|
Help1: TMenuItem;
|
|
About1: TMenuItem;
|
|
PReport1: TPReport;
|
|
SaveDialog1: TSaveDialog;
|
|
PRPage1: TPRPage;
|
|
PRLayoutPanel1: TPRLayoutPanel;
|
|
PRGridPanel1: TPRGridPanel;
|
|
PRText1: TPRText;
|
|
Table1: TTable;
|
|
PRLayoutPanel2: TPRLayoutPanel;
|
|
PRText2: TPRText;
|
|
PRRect1: TPRRect;
|
|
PRText3: TPRText;
|
|
PRText4: TPRText;
|
|
PRText5: TPRText;
|
|
PRText6: TPRText;
|
|
TxtCustNo: TPRText;
|
|
TxtCompany: TPRText;
|
|
TxtAddr: TPRText;
|
|
TxtCity: TPRText;
|
|
TxtState: TPRText;
|
|
PRRect2: TPRRect;
|
|
Table1CustNo: TFloatField;
|
|
Table1Company: TStringField;
|
|
Table1Addr1: TStringField;
|
|
Table1City: TStringField;
|
|
Table1State: TStringField;
|
|
procedure CreatePDF1Click(Sender: TObject);
|
|
procedure FormCreate(Sender: TObject);
|
|
procedure PRGridPanel1BeforePrintChild(Sender: TObject;
|
|
ACanvas: TPRCanvas; ACol, ARow: Integer; Rect: TRect);
|
|
procedure About1Click(Sender: TObject);
|
|
procedure Exit1Click(Sender: TObject);
|
|
private
|
|
public
|
|
end;
|
|
|
|
var
|
|
Form1: TForm1;
|
|
|
|
implementation
|
|
|
|
{$R *.DFM}
|
|
|
|
procedure TForm1.CreatePDF1Click(Sender: TObject);
|
|
begin
|
|
if SaveDialog1.Execute then
|
|
begin
|
|
Screen.Cursor := crHourGlass;
|
|
Application.ProcessMessages;
|
|
TxtCustNo.Printable := true;
|
|
TxtCompany.Printable := true;
|
|
TxtAddr.Printable := true;
|
|
TxtCity.Printable := true;
|
|
TxtState.Printable := true;
|
|
try
|
|
with PReport1 do
|
|
begin
|
|
FileName := SaveDialog1.FileName;
|
|
|
|
// starting printing document.
|
|
BeginDoc;
|
|
|
|
Table1.Open;
|
|
while not Table1.Eof do
|
|
Print(PRPage1);
|
|
|
|
// save document.
|
|
EndDoc;
|
|
Table1.Close;
|
|
end;
|
|
finally
|
|
Screen.Cursor := crDefault;
|
|
end;
|
|
end;
|
|
end;
|
|
|
|
procedure TForm1.FormCreate(Sender: TObject);
|
|
begin
|
|
PRPage1.Visible := false;
|
|
end;
|
|
|
|
procedure TForm1.PRGridPanel1BeforePrintChild(Sender: TObject;
|
|
ACanvas: TPRCanvas; ACol, ARow: Integer; Rect: TRect);
|
|
begin
|
|
with Table1 do
|
|
if not Table1.Eof then
|
|
begin
|
|
// setting text from current record.
|
|
TxtCustNo.Text := Table1CustNo.AsString;
|
|
TxtCompany.Text := Table1Company.AsString;
|
|
TxtAddr.Text := Table1Addr1.AsString;
|
|
TxtCity.Text := Table1City.AsString;
|
|
TxtState.Text := Table1State.AsString;
|
|
|
|
// move next current record.
|
|
Table1.Next;
|
|
end
|
|
else
|
|
begin
|
|
TxtCustNo.Printable := false;
|
|
TxtCompany.Printable := false;
|
|
TxtAddr.Printable := false;
|
|
TxtCity.Printable := false;
|
|
TxtState.Printable := false;
|
|
end;
|
|
end;
|
|
|
|
procedure TForm1.About1Click(Sender: TObject);
|
|
begin
|
|
ShowMessage(POWER_PDF_VERSION_STR + #13#10 + POWER_PDF_COPYRIGHT);
|
|
end;
|
|
|
|
procedure TForm1.Exit1Click(Sender: TObject);
|
|
begin
|
|
Close;
|
|
end;
|
|
|
|
end.
|