【delphi开源代码栏目提醒】:网学会员--在 delphi开源代码编辑为广大网友搜集整理了:dzdyfrmunit.pas绩等信息,祝愿广大网友取得需要的信息,参考学习。
unit dzdyfrmunit;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ExtCtrls, ppViewr, ppProd, ppClass, ppReport, ppComm, ppRelatv,
ppDB, ppDBPipe, ppDBBDE, DB, DBTables, StdCtrls, Mask, Buttons, ppCtrls,
ppPrnabl, ppBands, ppCache,datadomule,ppTypes;
type
Tdzdyfrm = class(TForm)
ppBDEPipeline1: TppBDEPipeline;
ppReport1: TppReport;
ppViewer1: TppViewer;
ppHeaderBand1: TppHeaderBand;
ppDetailBand1: TppDetailBand;
ppFooterBand1: TppFooterBand;
ppDBText1: TppDBText;
ppDBText2: TppDBText;
ppDBText3: TppDBText;
ppLine1: TppLine;
pnlPreviewBar: TPanel;
spbPreviewPrint: TSpeedButton;
SpeedButton1: TSpeedButton;
spbPreviewFirst: TSpeedButton;
spbPreviewPrior: TSpeedButton;
spbPreviewNext: TSpeedButton;
spbPreviewLast: TSpeedButton;
spbPreviewWidth: TSpeedButton;
spbPreview100Percent: TSpeedButton;
Bevel1: TBevel;
mskPreviewPage: TMaskEdit;
pnlCancelButton: TPanel;
spbPreviewCancel: TSpeedButton;
procedure spbPreviewPrintClick(Sender: TObject);
procedure spbPreviewWidthClick(Sender: TObject);
procedure spbPreview100PercentClick(Sender: TObject);
procedure SpeedButton1Click(Sender: TObject);
procedure spbPreviewFirstClick(Sender: TObject);
procedure spbPreviewPriorClick(Sender: TObject);
procedure spbPreviewNextClick(Sender: TObject);
procedure spbPreviewLastClick(Sender: TObject);
procedure spbPreviewCancelClick(Sender: TObject);
procedure mskPreviewPageKeyPress(Sender: TObject; var Key: Char);
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
dzdyfrm: Tdzdyfrm;
implementation
{$R *.dfm}
procedure Tdzdyfrm.spbPreviewPrintClick(Sender: TObject);
begin
ppViewer1.Print;
end;
procedure Tdzdyfrm.spbPreviewWidthClick(Sender: TObject);
begin
ppViewer1.ZoomSetting := zsPageWidth;
end;
procedure Tdzdyfrm.spbPreview100PercentClick(Sender: TObject);
begin
ppViewer1.ZoomSetting :=zs100Percent;
end;
procedure Tdzdyfrm.SpeedButton1Click(Sender: TObject);
begin
ppViewer1.ZoomSetting := zsWholePage;
end;
procedure Tdzdyfrm.spbPreviewFirstClick(Sender: TObject);
begin
ppViewer1.FirstPage;
end;
procedure Tdzdyfrm.spbPreviewPriorClick(Sender: TObject);
begin
ppViewer1.PriorPage;
end;
procedure Tdzdyfrm.spbPreviewNextClick(Sender: TObject);
begin
ppViewer1.NextPage;
end;
procedure Tdzdyfrm.spbPreviewLastClick(Sender: TObject);
begin
ppViewer1.LastPage;
end;
procedure Tdzdyfrm.spbPreviewCancelClick(Sender: TObject);
begin
if ppViewer1.Report.Printing then
ppViewer1.Cancel;
end;
procedure Tdzdyfrm.mskPreviewPageKeyPress(Sender: TObject; var Key: Char);
var
liPage: Longint;
begin
if (Key = #13) then
begin
liPage := StrToInt(mskPreviewPage.Text);
ppViewer1.GotoPage(liPage);
end;
end;
procedure Tdzdyfrm.FormCreate(Sender: TObject);
begin
ppViewer1.Reset;
ppReport1.PrintToDevices ;
end;
end.
上一篇:
dyylform.pas
下一篇:
美国emba教育概况及其借鉴意义