cjdyunit.pas

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

unit cjdyunit;

interface

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

type
  Tcjdy = class(TForm)
    ppViewer1: TppViewer;
    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;
    ppBDEPipeline1: TppBDEPipeline;
    ppReport1: TppReport;
    ppHeaderBand1: TppHeaderBand;
    ppDetailBand1: TppDetailBand;
    ppFooterBand1: TppFooterBand;
    ppLabel1: TppLabel;
    ppDBText1: TppDBText;
    ppLabel2: TppLabel;
    ppDBText2: TppDBText;
    ppLabel3: TppLabel;
    ppDBText3: TppDBText;
    ppLine1: TppLine;
    ppLabel4: TppLabel;
    ppLabel5: TppLabel;
    ppDBText5: TppDBText;
    ppDBText4: TppDBText;
    ppLabel6: TppLabel;
    ppLabel7: TppLabel;
    ppDBText6: TppDBText;
    ppDBText7: TppDBText;
    procedure FormCreate(Sender: TObject);
    procedure spbPreviewNextClick(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 spbPreviewLastClick(Sender: TObject);
    procedure spbPreviewCancelClick(Sender: TObject);
    procedure mskPreviewPageKeyPress(Sender: TObject; var Key: Char);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  cjdy: Tcjdy;

implementation

{$R *.dfm}

procedure Tcjdy.FormCreate(Sender: TObject);
begin
  ppViewer1.Reset;

ppReport1.PrintToDevices ;
end;

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

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

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

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

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

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

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

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

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

procedure Tcjdy.mskPreviewPageKeyPress(Sender: TObject; var Key: Char);
var
  liPage: Longint;
begin
if (Key = #13) then
    begin
      liPage := StrToInt(mskPreviewPage.Text);

      ppViewer1.GotoPage(liPage);
    end;
end;

end.