【delphi开源代码栏目提醒】:网学会员--在 delphi开源代码编辑为广大网友搜集整理了:bjcjdyunit.pas绩等信息,祝愿广大网友取得需要的信息,参考学习。
unit bjcjdyunit;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ppViewr, StdCtrls, Mask, ExtCtrls, Buttons, DB, DBTables,
ppProd, ppClass, ppReport, ppComm, ppRelatv, ppDB, ppDBPipe, ppDBBDE,
ppPrnabl, ppCtrls, ppBands, ppCache,ppTypes;
type
Tbjcjdy = class(TForm)
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;
ppViewer1: TppViewer;
ppBDEPipeline1: TppBDEPipeline;
ppReport1: TppReport;
Table1: TTable;
DataSource1: TDataSource;
ppHeaderBand1: TppHeaderBand;
ppDetailBand1: TppDetailBand;
ppFooterBand1: TppFooterBand;
ppLabel2: TppLabel;
ppLine1: TppLine;
ppLabel4: TppLabel;
ppLabel5: TppLabel;
ppLabel1: TppLabel;
ppLabel3: TppLabel;
ppDBText1: TppDBText;
ppDBText2: TppDBText;
ppDBText3: TppDBText;
ppDBText4: TppDBText;
ppDBText5: TppDBText;
ppDBText6: TppDBText;
ppDBText7: TppDBText;
ppDBText8: TppDBText;
ppDBText9: TppDBText;
ppDBText10: TppDBText;
ppDBText11: TppDBText;
ppDBText12: TppDBText;
ppDBText13: TppDBText;
ppDBText14: TppDBText;
ppDBText15: TppDBText;
ppDBText16: TppDBText;
ppDBText17: TppDBText;
ppDBText18: TppDBText;
ppDBText19: TppDBText;
ppDBText20: TppDBText;
ppDBText21: TppDBText;
ppDBText22: TppDBText;
ppDBText23: TppDBText;
ppDBText24: TppDBText;
ppDBText25: TppDBText;
ppDBText26: TppDBText;
ppDBText27: TppDBText;
ppDBText28: TppDBText;
ppDBText29: TppDBText;
ppDBText30: TppDBText;
ppPageStyle1: TppPageStyle;
ppDBText31: TppDBText;
ppDBText32: TppDBText;
ppLabel6: TppLabel;
ppLabel7: TppLabel;
ppDBText33: TppDBText;
ppDBText34: TppDBText;
ppDBText35: TppDBText;
ppDBText36: TppDBText;
ppDBText37: TppDBText;
ppDBText38: TppDBText;
ppDBText39: TppDBText;
ppDBText40: TppDBText;
ppDBText41: TppDBText;
ppDBText42: TppDBText;
ppDBText43: TppDBText;
ppDBText44: TppDBText;
ppDBText45: TppDBText;
ppDBText46: TppDBText;
ppDBText47: TppDBText;
ppLabel8: TppLabel;
ppDBText48: TppDBText;
ppDBText49: TppDBText;
ppDBText50: TppDBText;
ppDBText51: TppDBText;
ppDBText52: TppDBText;
ppDBText53: TppDBText;
ppDBText54: TppDBText;
ppDBText55: TppDBText;
ppDBText56: TppDBText;
ppDBText57: TppDBText;
ppDBText58: TppDBText;
ppDBText59: TppDBText;
ppDBText60: TppDBText;
ppDBText61: TppDBText;
ppDBText62: 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 spbPreviewCancelClick(Sender: TObject);
procedure mskPreviewPageKeyPress(Sender: TObject; var Key: Char);
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
bjcjdy: Tbjcjdy;
implementation
uses cjdytempunit, bjcjunit;
{$R *.dfm}
procedure Tbjcjdy.spbPreviewPrintClick(Sender: TObject);
begin
ppViewer1.Print;
end;
procedure Tbjcjdy.SpeedButton1Click(Sender: TObject);
begin
ppViewer1.ZoomSetting := zsWholePage;
end;
procedure Tbjcjdy.spbPreviewWidthClick(Sender: TObject);
begin
ppViewer1.ZoomSetting := zsPageWidth;
end;
procedure Tbjcjdy.spbPreview100PercentClick(Sender: TObject);
begin
ppViewer1.ZoomSetting :=zs100Percent;
end;
procedure Tbjcjdy.spbPreviewFirstClick(Sender: TObject);
begin
ppViewer1.FirstPage;
end;
procedure Tbjcjdy.spbPreviewPriorClick(Sender: TObject);
begin
ppViewer1.PriorPage;
end;
procedure Tbjcjdy.spbPreviewNextClick(Sender: TObject);
begin
ppViewer1.NextPage;
end;
procedure Tbjcjdy.spbPreviewLastClick(Sender: TObject);
begin
ppViewer1.LastPage;
end;
procedure Tbjcjdy.spbPreviewCancelClick(Sender: TObject);
begin
if ppViewer1.Report.Printing then
ppViewer1.Cancel;
end;
procedure Tbjcjdy.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 Tbjcjdy.FormCreate(Sender: TObject);
begin
ppLabel6.text:=cjdytemp.MaskEdit1.Text;
ppViewer1.Reset;
ppReport1.PrintToDevices ;
end;
end.
上一篇:
frmAss.frm
下一篇:
法律专业开题报告范文