【delphi开源代码栏目提醒】:文章导读:在新的一年中,各位网友都进入紧张的学习或是工作阶段。网学会员整理了delphi开源代码-jldyfrmunit.pas的相关内容供大家参考,祝大家在新的一年里工作和学习顺利!
unit jldyfrmunit;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs,datadomule, StdCtrls, Mask, ExtCtrls, Buttons, ppViewr, ppProd,
ppClass, ppReport, ppComm, ppRelatv, ppDB, ppDBPipe, ppDBBDE, ppCtrls,
ppPrnabl, ppBands, ppCache, ppStrtch, ppRegion,ppTypes;
type
Tjldyfrm = class(TForm)
ppBDEPipeline1: TppBDEPipeline;
ppReport1: TppReport;
ppViewer1: TppViewer;
pnlPreviewBar: TPanel;
spbPreviewPrint: TSpeedButton;
SpeedButton1: TSpeedButton;
spbPreviewFirst: TSpeedButton;
spbPreviewPrior: TSpeedButton;
spbPreviewNext: TSpeedButton;
spbPreviewLast: TSpeedButton;
spbPreviewWidth: TSpeedButton;
spbPreview100Percent: TSpeedButton;
Bevel1: TBevel;
maskedit1: TMaskEdit;
pnlCancelButton: TPanel;
spbPreviewCancel: TSpeedButton;
ppHeaderBand1: TppHeaderBand;
ppDetailBand1: TppDetailBand;
ppFooterBand1: TppFooterBand;
ppLabel1: TppLabel;
ppRegion1: TppRegion;
ppLabel2: TppLabel;
ppDBText1: TppDBText;
ppLabel3: TppLabel;
ppDBText2: TppDBText;
ppLabel4: TppLabel;
ppLabel5: TppLabel;
ppDBText3: TppDBText;
ppDBText4: TppDBText;
ppLabel6: TppLabel;
ppDBText5: TppDBText;
ppLabel7: TppLabel;
ppDBText6: TppDBText;
procedure spbPreviewCancelClick(Sender: TObject);
procedure spbPreviewPrintClick(Sender: TObject);
procedure SpeedButton1Click(Sender: TObject);
procedure spbPreviewWidthClick(Sender: TObject);
procedure spbPreview100PercentClick(Sender: TObject);
procedure spbPreviewFirstClick(Sender: TObject);
procedure spbPreviewPriorClick(Sender: TObject);
procedure spbPreviewNextClick(Sender: TObject);
procedure spbPreviewLastClick(Sender: TObject);
procedure maskedit1KeyPress(Sender: TObject; var Key: Char);
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
jldyfrm: Tjldyfrm;
implementation
{$R *.dfm}
procedure Tjldyfrm.spbPreviewCancelClick(Sender: TObject);
begin
if ppViewer1.Report.Printing then
ppViewer1.Cancel;
end;
procedure Tjldyfrm.spbPreviewPrintClick(Sender: TObject);
begin
ppViewer1.Print;
end;
procedure Tjldyfrm.SpeedButton1Click(Sender: TObject);
begin
ppViewer1.ZoomSetting := zsWholePage;
end;
procedure Tjldyfrm.spbPreviewWidthClick(Sender: TObject);
begin
ppViewer1.ZoomSetting := zsPageWidth;
end;
procedure Tjldyfrm.spbPreview100PercentClick(Sender: TObject);
begin
ppViewer1.ZoomSetting :=zs100Percent;
end;
procedure Tjldyfrm.spbPreviewFirstClick(Sender: TObject);
begin
ppViewer1.FirstPage;
end;
procedure Tjldyfrm.spbPreviewPriorClick(Sender: TObject);
begin
ppViewer1.PriorPage;
end;
procedure Tjldyfrm.spbPreviewNextClick(Sender: TObject);
begin
ppViewer1.NextPage;
end;
procedure Tjldyfrm.spbPreviewLastClick(Sender: TObject);
begin
ppViewer1.LastPage;
end;
procedure Tjldyfrm.maskedit1KeyPress(Sender: TObject; var Key: Char);
var
liPage: Longint;
begin
if (Key = #13) then
begin
liPage := StrToInt(MaskEdit1.Text);
ppViewer1.GotoPage(liPage);
end;
end;
procedure Tjldyfrm.FormCreate(Sender: TObject);
begin
ppViewer1.Reset;
ppReport1.PrintToDevices ;
end;
end.
上一篇:
JLDW.pas
下一篇:
法律专业开题报告范文