【delphi开源代码栏目提醒】:网学会员--在 delphi开源代码编辑为广大网友搜集整理了:bjzbunit.pas绩等信息,祝愿广大网友取得需要的信息,参考学习。
unit bjzbunit;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs,datadomule, ExtCtrls, ppViewr, ppProd, ppClass, ppReport, ppComm,
ppRelatv, ppDB, ppDBPipe, ppDBBDE, ppCtrls, ppPrnabl, ppBands, ppCache,
DB, DBTables, StdCtrls, Mask, Buttons,ppTypes;
type
Tbjzb = class(TForm)
ppBDEPipeline1: TppBDEPipeline;
ppReport1: TppReport;
ppViewer1: TppViewer;
Query1: TQuery;
DataSource1: TDataSource;
ppHeaderBand1: TppHeaderBand;
ppDetailBand1: TppDetailBand;
ppFooterBand1: TppFooterBand;
ppLabel1: TppLabel;
ppLabel2: TppLabel;
ppLabel3: TppLabel;
ppLabel4: TppLabel;
ppLabel5: TppLabel;
ppLabel6: TppLabel;
ppDBText1: TppDBText;
ppDBText2: TppDBText;
ppDBText3: TppDBText;
ppDBText5: TppDBText;
ppLine1: TppLine;
ppDBText4: TppDBText;
ppDBText6: TppDBText;
ppDBText7: TppDBText;
ppDBText8: TppDBText;
ppDBText9: TppDBText;
ppDBText10: TppDBText;
ppDBText12: TppDBText;
ppDBText13: TppDBText;
ppDBText14: TppDBText;
ppDBText11: TppDBText;
ppDBText15: TppDBText;
ppDBText16: TppDBText;
ppDBText17: TppDBText;
ppDBText18: TppDBText;
ppDBText19: TppDBText;
ppDBText20: TppDBText;
ppLabel7: TppLabel;
ppLabel8: TppLabel;
ppLabel9: TppLabel;
ppLabel10: TppLabel;
ppLabel11: TppLabel;
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;
ppDBText21: TppDBText;
ppDBText22: TppDBText;
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 mskPreviewPageKeyPress(Sender: TObject; var Key: Char);
procedure spbPreviewCancelClick(Sender: TObject);
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
bjzb: Tbjzb;
implementation
uses cjdytempunit, bjcjunit;
{$R *.dfm}
procedure Tbjzb.spbPreviewPrintClick(Sender: TObject);
begin
ppViewer1.Print;
end;
procedure Tbjzb.SpeedButton1Click(Sender: TObject);
begin
ppViewer1.ZoomSetting := zsWholePage;
end;
procedure Tbjzb.spbPreviewWidthClick(Sender: TObject);
begin
ppViewer1.ZoomSetting := zsPageWidth;
end;
procedure Tbjzb.spbPreview100PercentClick(Sender: TObject);
begin
ppViewer1.ZoomSetting :=zs100Percent;
end;
procedure Tbjzb.spbPreviewFirstClick(Sender: TObject);
begin
ppViewer1.FirstPage;
end;
procedure Tbjzb.spbPreviewPriorClick(Sender: TObject);
begin
ppViewer1.PriorPage;
end;
procedure Tbjzb.spbPreviewNextClick(Sender: TObject);
begin
ppViewer1.NextPage;
end;
procedure Tbjzb.spbPreviewLastClick(Sender: TObject);
begin
ppViewer1.LastPage;
end;
procedure Tbjzb.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 Tbjzb.spbPreviewCancelClick(Sender: TObject);
begin
if ppViewer1.Report.Printing then
ppViewer1.Cancel;
end;
procedure Tbjzb.FormCreate(Sender: TObject);
begin
ppLabel1.text:=bjcjtemp.combobox2.Text;
ppLabel2.text:=bjcjtemp.MaskEdit1.Text;
ppViewer1.Reset;
ppReport1.PrintToDevices ;
end;
end.
上一篇:
DisableDlg.cpp
下一篇:
她要是喜欢我