bjcjdyunit.pas

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

unit bjcjdyunit;

interface

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

type
  Tbjcjdy = class(TForm)
    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;
    ppViewer1: TppViewer;
    ppBDEPipeline1: TppBDEPipeline;
    ppReport1: TppReport;
    Table1: TTable;
    DataSource1: TDataSource;
    ppHeaderBand1: TppHeaderBand;
    ppDetailBand1: TppDetailBand;
    ppFooterBand1: TppFooterBand;
    ppLabel2: TppLabel;
    ppLine1: TppLine;
    ppLabel4: TppLabel;
    ppLabel5: TppLabel;
    ppLabel1: TppLabel;
    ppLabel3: TppLabel;
    ppDBText1: TppDBText;
    ppDBText2: TppDBText;
    ppDBText3: TppDBText;
    ppDBText4: TppDBText;
    ppDBText5: TppDBText;
    ppDBText6: TppDBText;
    ppDBText7: TppDBText;
    ppDBText8: TppDBText;
    ppDBText9: TppDBText;
    ppDBText10: TppDBText;
    ppDBText11: TppDBText;
    ppDBText12: TppDBText;
    ppDBText13: TppDBText;
    ppDBText14: TppDBText;
    ppDBText15: TppDBText;
    ppDBText16: TppDBText;
    ppDBText17: TppDBText;
    ppDBText18: TppDBText;
    ppDBText19: TppDBText;
    ppDBText20: TppDBText;
    ppDBText21: TppDBText;
    ppDBText22: TppDBText;
    ppDBText23: TppDBText;
    ppDBText24: TppDBText;
    ppDBText25: TppDBText;
    ppDBText26: TppDBText;
    ppDBText27: TppDBText;
    ppDBText28: TppDBText;
    ppDBText29: TppDBText;
    ppDBText30: TppDBText;
    ppPageStyle1: TppPageStyle;
    ppDBText31: TppDBText;
    ppDBText32: TppDBText;
    ppLabel6: TppLabel;
    ppLabel7: TppLabel;
    ppDBText33: TppDBText;
    ppDBText34: TppDBText;
    ppDBText35: TppDBText;
    ppDBText36: TppDBText;
    ppDBText37: TppDBText;
    ppDBText38: TppDBText;
    ppDBText39: TppDBText;
    ppDBText40: TppDBText;
    ppDBText41: TppDBText;
    ppDBText42: TppDBText;
    ppDBText43: TppDBText;
    ppDBText44: TppDBText;
    ppDBText45: TppDBText;
    ppDBText46: TppDBText;
    ppDBText47: TppDBText;
    ppLabel8: TppLabel;
    ppDBText48: TppDBText;
    ppDBText49: TppDBText;
    ppDBText50: TppDBText;
    ppDBText51: TppDBText;
    ppDBText52: TppDBText;
    ppDBText53: TppDBText;
    ppDBText54: TppDBText;
    ppDBText55: TppDBText;
    ppDBText56: TppDBText;
    ppDBText57: TppDBText;
    ppDBText58: TppDBText;
    ppDBText59: TppDBText;
    ppDBText60: TppDBText;
    ppDBText61: TppDBText;
    ppDBText62: 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 spbPreviewCancelClick(Sender: TObject);
    procedure mskPreviewPageKeyPress(Sender: TObject; var Key: Char);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  bjcjdy: Tbjcjdy;

implementation

uses cjdytempunit, bjcjunit;

{$R *.dfm}

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

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

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

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

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

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

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

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

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

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

ppLabel6.text:=cjdytemp.MaskEdit1.Text;
  ppViewer1.Reset;

ppReport1.PrintToDevices ;
end;

end.