bddyunit.pas

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

unit bddyunit;

interface

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

type
  Tbddy = class(TForm)
    ppViewer1: TppViewer;
    Panel1: TPanel;
    SpeedButton2: TSpeedButton;
    SpeedButton3: TSpeedButton;
    SpeedButton4: TSpeedButton;
    SpeedButton5: TSpeedButton;
    SpeedButton6: TSpeedButton;
    SpeedButton7: TSpeedButton;
    SpeedButton8: TSpeedButton;
    SpeedButton9: TSpeedButton;
    Bevel2: TBevel;
    MaskEdit1: TMaskEdit;
    Panel2: TPanel;
    SpeedButton10: TSpeedButton;
    ppReport1: TppReport;
    ppBDEPipeline1: TppBDEPipeline;
    ppHeaderBand1: TppHeaderBand;
    ppDetailBand1: TppDetailBand;
    ppFooterBand1: TppFooterBand;
    ppLabel1: TppLabel;
    ppShape1: TppShape;
    ppShape2: TppShape;
    ppShape3: TppShape;
    ppShape4: TppShape;
    ppShape5: TppShape;
    ppShape6: TppShape;
    ppShape7: TppShape;
    ppShape8: TppShape;
    ppShape9: TppShape;
    ppShape10: TppShape;
    ppLabel3: TppLabel;
    ppLabel2: TppLabel;
    ppLabel4: TppLabel;
    ppLabel7: TppLabel;
    ppLabel8: TppLabel;
    ppLabel6: TppLabel;
    ppLabel5: TppLabel;
    ppLabel9: TppLabel;
    ppLabel10: TppLabel;
    ppLabel11: TppLabel;
    ppShape11: TppShape;
    ppShape12: TppShape;
    ppShape13: TppShape;
    ppShape14: TppShape;
    ppShape15: TppShape;
    ppShape16: TppShape;
    ppShape17: TppShape;
    ppShape18: TppShape;
    ppShape19: TppShape;
    ppShape20: TppShape;
    ppDBText1: TppDBText;
    ppDBText2: TppDBText;
    ppDBText3: TppDBText;
    ppDBText4: TppDBText;
    ppDBText5: TppDBText;
    ppDBText6: TppDBText;
    ppDBText7: TppDBText;
    ppDBText8: TppDBText;
    ppDBText9: TppDBText;
    ppDBText10: TppDBText;
    procedure SpeedButton2Click(Sender: TObject);
    procedure SpeedButton8Click(Sender: TObject);
    procedure SpeedButton9Click(Sender: TObject);
    procedure SpeedButton3Click(Sender: TObject);
    procedure SpeedButton4Click(Sender: TObject);
    procedure SpeedButton5Click(Sender: TObject);
    procedure SpeedButton6Click(Sender: TObject);
    procedure SpeedButton7Click(Sender: TObject);
    procedure SpeedButton10Click(Sender: TObject);
    procedure MaskEdit1KeyPress(Sender: TObject; var Key: Char);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  bddy: Tbddy;

implementation

{$R *.dfm}

procedure Tbddy.SpeedButton2Click(Sender: TObject);
begin
  ppViewer1.Print;
end;


procedure Tbddy.SpeedButton8Click(Sender: TObject);
begin
ppViewer1.ZoomSetting := zsPageWidth;
end;

procedure Tbddy.SpeedButton9Click(Sender: TObject);
begin
ppViewer1.ZoomSetting :=zs100Percent;
end;

procedure Tbddy.SpeedButton3Click(Sender: TObject);
begin
ppViewer1.ZoomSetting := zsWholePage;
end;

procedure Tbddy.SpeedButton4Click(Sender: TObject);
begin
 ppViewer1.FirstPage;
end;

procedure Tbddy.SpeedButton5Click(Sender: TObject);
begin
 ppViewer1.PriorPage;
end;

procedure Tbddy.SpeedButton6Click(Sender: TObject);
begin
 ppViewer1.NextPage;
end;

procedure Tbddy.SpeedButton7Click(Sender: TObject);
begin
ppViewer1.LastPage;
end;

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

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

ppReport1.PrintToDevices ;
end;

end.