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.