bjzbunit.pas

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

unit bjzbunit;

interface

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

type
  Tbjzb = class(TForm)
    ppBDEPipeline1: TppBDEPipeline;
    ppReport1: TppReport;
    ppViewer1: TppViewer;
    Query1: TQuery;
    DataSource1: TDataSource;
    ppHeaderBand1: TppHeaderBand;
    ppDetailBand1: TppDetailBand;
    ppFooterBand1: TppFooterBand;
    ppLabel1: TppLabel;
    ppLabel2: TppLabel;
    ppLabel3: TppLabel;
    ppLabel4: TppLabel;
    ppLabel5: TppLabel;
    ppLabel6: TppLabel;
    ppDBText1: TppDBText;
    ppDBText2: TppDBText;
    ppDBText3: TppDBText;
    ppDBText5: TppDBText;
    ppLine1: TppLine;
    ppDBText4: TppDBText;
    ppDBText6: TppDBText;
    ppDBText7: TppDBText;
    ppDBText8: TppDBText;
    ppDBText9: TppDBText;
    ppDBText10: TppDBText;
    ppDBText12: TppDBText;
    ppDBText13: TppDBText;
    ppDBText14: TppDBText;
    ppDBText11: TppDBText;
    ppDBText15: TppDBText;
    ppDBText16: TppDBText;
    ppDBText17: TppDBText;
    ppDBText18: TppDBText;
    ppDBText19: TppDBText;
    ppDBText20: TppDBText;
    ppLabel7: TppLabel;
    ppLabel8: TppLabel;
    ppLabel9: TppLabel;
    ppLabel10: TppLabel;
    ppLabel11: TppLabel;
    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;
    ppDBText21: TppDBText;
    ppDBText22: 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 mskPreviewPageKeyPress(Sender: TObject; var Key: Char);
    procedure spbPreviewCancelClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  bjzb: Tbjzb;

implementation

uses cjdytempunit, bjcjunit;

{$R *.dfm}

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

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

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

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

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

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

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

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

procedure Tbjzb.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 Tbjzb.spbPreviewCancelClick(Sender: TObject);
begin
if ppViewer1.Report.Printing then
    ppViewer1.Cancel;
end;

procedure Tbjzb.FormCreate(Sender: TObject);
begin


ppLabel1.text:=bjcjtemp.combobox2.Text;
ppLabel2.text:=bjcjtemp.MaskEdit1.Text;
  ppViewer1.Reset;

ppReport1.PrintToDevices ;
end;

end.