cfdyfrmunit.pas

高校学生学籍管理系统源码

unit cfdyfrmunit;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs,datadomule, ExtCtrls, ppViewr, ppProd, ppClass, ppReport, ppComm,
  ppRelatv, ppDB, ppDBPipe, ppDBBDE, ppCtrls, ppStrtch, ppRegion, ppPrnabl,
  ppBands, ppCache, StdCtrls, Mask, Buttons,ppTypes;

type
  Tcfdyfrm = 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;
    ppDBText3: TppDBText;
    ppLabel5: TppLabel;
    ppDBText4: TppDBText;
    ppLabel6: TppLabel;
    ppDBText5: TppDBText;
    ppLabel7: TppLabel;
    ppDBText6: TppDBText;
    ppDBText7: TppDBText;
    ppLabel8: TppLabel;
    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 maskedit1KeyPress(Sender: TObject; var Key: Char);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  cfdyfrm: Tcfdyfrm;

implementation

{$R *.dfm}

procedure Tcfdyfrm.spbPreviewPrintClick(Sender: TObject);
begin
  ppViewer1.Print;
end;

procedure Tcfdyfrm.SpeedButton1Click(Sender: TObject);
begin
ppViewer1.ZoomSetting := zsWholePage;
end;

procedure Tcfdyfrm.spbPreviewWidthClick(Sender: TObject);
begin
ppViewer1.ZoomSetting := zsPageWidth;
end;

procedure Tcfdyfrm.spbPreview100PercentClick(Sender: TObject);
begin
ppViewer1.ZoomSetting :=zs100Percent;
end;

procedure Tcfdyfrm.spbPreviewFirstClick(Sender: TObject);
begin
 ppViewer1.FirstPage;
end;

procedure Tcfdyfrm.spbPreviewPriorClick(Sender: TObject);
begin
 ppViewer1.PriorPage;
end;

procedure Tcfdyfrm.spbPreviewNextClick(Sender: TObject);
begin
 ppViewer1.NextPage;
end;

procedure Tcfdyfrm.spbPreviewLastClick(Sender: TObject);
begin
ppViewer1.LastPage;
end;

procedure Tcfdyfrm.spbPreviewCancelClick(Sender: TObject);
begin
if ppViewer1.Report.Printing then
    ppViewer1.Cancel;
end;

procedure Tcfdyfrm.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 Tcfdyfrm.FormCreate(Sender: TObject);
begin
  ppViewer1.Reset;

ppReport1.PrintToDevices ;
end;

end.