【delphi开源代码栏目提醒】:网学会员鉴于大家对delphi开源代码十分关注,论文会员在此为大家搜集整理了“bjgcjunit.pas”一文,供大家参考学习
unit bjgcjunit;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs,datadomule, ppDB, ppBands, ppCache, ppClass, ppProd, ppReport,
ppComm, ppRelatv, ppDBPipe, ppDBBDE, StdCtrls, Mask, ExtCtrls, Buttons,
ppViewr, ppCtrls, ppPrnabl,ppTypes;
type
Tbjgdy = class(TForm)
ppViewer1: TppViewer;
Panel1: TPanel;
SpeedButton2: TSpeedButton;
SpeedButton3: TSpeedButton;
SpeedButton4: TSpeedButton;
SpeedButton5: TSpeedButton;
SpeedButton6: TSpeedButton;
SpeedButton7: TSpeedButton;
SpeedButton8: TSpeedButton;
SpeedButton9: TSpeedButton;
Bevel2: TBevel;
MaskEdit1: TMaskEdit;
Panel2: TPanel;
SpeedButton10: TSpeedButton;
ppBDEPipeline1: TppBDEPipeline;
ppReport1: TppReport;
ppHeaderBand1: TppHeaderBand;
ppDetailBand1: TppDetailBand;
ppFooterBand1: TppFooterBand;
ppLabel1: TppLabel;
ppDBText1: TppDBText;
ppLabel2: TppLabel;
ppDBText2: TppDBText;
ppLabel5: TppLabel;
ppLabel4: TppLabel;
ppLabel3: TppLabel;
ppLine1: TppLine;
ppLine2: TppLine;
ppDBText3: TppDBText;
ppDBText4: TppDBText;
ppDBText5: TppDBText;
procedure SpeedButton2Click(Sender: TObject);
procedure SpeedButton8Click(Sender: TObject);
procedure SpeedButton9Click(Sender: TObject);
procedure SpeedButton3Click(Sender: TObject);
procedure SpeedButton4Click(Sender: TObject);
procedure SpeedButton5Click(Sender: TObject);
procedure SpeedButton6Click(Sender: TObject);
procedure SpeedButton7Click(Sender: TObject);
procedure SpeedButton10Click(Sender: TObject);
procedure MaskEdit1KeyPress(Sender: TObject; var Key: Char);
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
bjgdy: Tbjgdy;
implementation
{$R *.dfm}
procedure Tbjgdy.SpeedButton2Click(Sender: TObject);
begin
ppViewer1.Print;
end;
procedure Tbjgdy.SpeedButton8Click(Sender: TObject);
begin
ppViewer1.ZoomSetting := zsPageWidth;
end;
procedure Tbjgdy.SpeedButton9Click(Sender: TObject);
begin
ppViewer1.ZoomSetting :=zs100Percent;
end;
procedure Tbjgdy.SpeedButton3Click(Sender: TObject);
begin
ppViewer1.ZoomSetting := zsWholePage;
end;
procedure Tbjgdy.SpeedButton4Click(Sender: TObject);
begin
ppViewer1.FirstPage;
end;
procedure Tbjgdy.SpeedButton5Click(Sender: TObject);
begin
ppViewer1.PriorPage;
end;
procedure Tbjgdy.SpeedButton6Click(Sender: TObject);
begin
ppViewer1.NextPage;
end;
procedure Tbjgdy.SpeedButton7Click(Sender: TObject);
begin
ppViewer1.LastPage;
end;
procedure Tbjgdy.SpeedButton10Click(Sender: TObject);
begin
if ppViewer1.Report.Printing then
ppViewer1.Cancel;
end;
procedure Tbjgdy.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 Tbjgdy.FormCreate(Sender: TObject);
begin
ppViewer1.Reset;
ppReport1.PrintToDevices ;
end;
end.
上一篇:
frmAutho.frm
下一篇:
浮生若萍