cjzbdyunit.pas

delphi sqlserver 学生学籍管理系统

    ppDBText244: TppDBText;
    ppDBText245: TppDBText;
    ppDBText246: TppDBText;
    ppDBText247: TppDBText;
    ppDBText248: TppDBText;
    ppDBText249: TppDBText;
    ppDBText250: TppDBText;
    ppDBText251: TppDBText;
    ppDBText252: TppDBText;
    ppDBText253: TppDBText;
    ppDBText254: TppDBText;
    ppLabel40: TppLabel;
    ppDBText255: TppDBText;
    ppDBText256: TppDBText;
    ppDBText257: TppDBText;
    ppDBText258: TppDBText;
    ppDBText259: TppDBText;
    ppDBText260: TppDBText;
    ppDBText261: TppDBText;
    ppDBText262: TppDBText;
    ppDBText263: TppDBText;
    ppDBText264: TppDBText;
    ppDBText265: TppDBText;
    ppDBText266: TppDBText;
    ppDBText267: TppDBText;
    ppDBText268: TppDBText;
    ppDBText269: TppDBText;
    ppDBText270: TppDBText;
    ppDBText271: TppDBText;
    ppDBText272: TppDBText;
    ppDBText273: TppDBText;
    ppDBText274: TppDBText;
    ppDBText275: TppDBText;
    ppDBText276: TppDBText;
    ppDBText277: TppDBText;
    ppDBText278: TppDBText;
    ppDBText279: TppDBText;
    ppDBText280: TppDBText;
    ppDBText281: TppDBText;
    ppDBText282: TppDBText;
    ppDBText283: TppDBText;
    ppDBText284: TppDBText;
    ppDBText285: TppDBText;
    ppDBText286: TppDBText;
    ppDBText287: TppDBText;
    ppDBText288: TppDBText;
    ppDBText289: TppDBText;
    ppDBText290: TppDBText;
    ppDBText291: TppDBText;
    ppDBText292: TppDBText;
    ppDBText293: TppDBText;
    ppDBText294: TppDBText;
    ppDBText295: TppDBText;
    ppDBText296: TppDBText;
    ppDBText297: TppDBText;
    ppDBText298: TppDBText;
    ppDBText299: TppDBText;
    ppDBText300: TppDBText;
    ppDBText301: TppDBText;
    ppDBText302: TppDBText;
    ppLabel41: TppLabel;
    ppDBText303: TppDBText;
    ppDBText304: TppDBText;
    ppDBText305: TppDBText;
    ppDBText306: TppDBText;
    ppDBText307: TppDBText;
    ppDBText308: TppDBText;
    ppDBText309: TppDBText;
    ppDBText310: TppDBText;
    ppDBText311: TppDBText;
    ppDBText312: TppDBText;
    ppDBText313: TppDBText;
    ppDBText314: TppDBText;
    ppDBText315: TppDBText;
    ppDBText316: TppDBText;
    ppDBText317: TppDBText;
    ppDBText318: TppDBText;
    ppDBText319: TppDBText;
    ppLabel42: TppLabel;
    ppDBText320: TppDBText;
    ppDBText321: TppDBText;
    ppDBText322: TppDBText;
    ppDBText323: TppDBText;
    ppDBText324: TppDBText;
    ppDBText325: TppDBText;
    ppDBText326: TppDBText;
    ppDBText327: TppDBText;
    ppDBText328: TppDBText;
    ppDBText329: TppDBText;
    ppDBText330: TppDBText;
    ppDBText331: TppDBText;
    ppDBText332: TppDBText;
    ppDBText333: TppDBText;
    ppDBText334: TppDBText;
    ppDBText335: TppDBText;
    ppDBText336: TppDBText;
    ppDBText337: TppDBText;
    ppDBText338: TppDBText;
    ppDBText339: TppDBText;
    ppDBText340: TppDBText;
    ppDBText341: TppDBText;
    ppDBText342: TppDBText;
    ppDBText343: TppDBText;
    ppDBText344: TppDBText;
    ppDBText345: TppDBText;
    ppDBText346: TppDBText;
    ppDBText347: TppDBText;
    ppDBText348: TppDBText;
    ppDBText349: TppDBText;
    ppDBText350: TppDBText;
    ppDBText351: TppDBText;
    ppDBText352: TppDBText;
    ppDBText353: TppDBText;
    ppDBText354: TppDBText;
    ppDBText355: TppDBText;
    ppDBText356: TppDBText;
    ppDBText357: TppDBText;
    ppDBText358: TppDBText;
    ppDBText359: TppDBText;
    ppDBText360: TppDBText;
    ppDBText361: TppDBText;
    ppLabel43: TppLabel;
    ppLabel44: TppLabel;
    ppLabel45: TppLabel;
    ppLabel46: TppLabel;
    ppLabel47: TppLabel;
    ppLabel48: TppLabel;
    ppLabel49: TppLabel;
    ppLabel50: TppLabel;
    ppLabel51: TppLabel;
    ppDBText362: TppDBText;
    ppDBText363: TppDBText;
    ppDBText364: TppDBText;
    ppDBText365: TppDBText;
    ppDBText366: TppDBText;
    ppDBText367: TppDBText;
    ppDBText368: TppDBText;
    ppDBText369: TppDBText;
    ppDBText370: TppDBText;
    ppDBText371: TppDBText;
    ppDBText372: TppDBText;
    ppDBText373: TppDBText;
    ppLabel52: TppLabel;
    ppDBText374: TppDBText;
    ppDBText375: TppDBText;
    ppDBText376: TppDBText;
    ppDBText377: TppDBText;
    ppDBText378: TppDBText;
    ppDBText379: TppDBText;
    ppDBText380: TppDBText;
    ppDBText381: TppDBText;
    ppDBText382: TppDBText;
    ppDBText383: TppDBText;
    ppDBText384: TppDBText;
    ppDBText385: TppDBText;
    ppDBText386: TppDBText;
    ppDBText387: TppDBText;
    ppDBText388: TppDBText;
    ppDBText389: TppDBText;
    ppDBText390: TppDBText;
    ppDBText391: TppDBText;
    ppDBText392: TppDBText;
    ppDBText393: TppDBText;
    ppDBText394: TppDBText;
    ppDBText395: TppDBText;
    ppDBText396: TppDBText;
    ppDBText397: TppDBText;
    ppDBText398: TppDBText;
    ppDBText399: TppDBText;
    ppDBText400: TppDBText;
    ppDBText401: TppDBText;
    ppDBText402: TppDBText;
    ppDBText403: TppDBText;
    ppDBText404: TppDBText;
    ppDBText405: TppDBText;
    ppDBText406: TppDBText;
    ppDBText407: TppDBText;
    ppDBText408: TppDBText;
    ppDBText409: TppDBText;
    ppDBText410: TppDBText;
    ppDBText411: TppDBText;
    ppDBText412: TppDBText;
    ppDBText413: TppDBText;
    ppDBText414: TppDBText;
    ppDBText415: TppDBText;
    ppDBText416: TppDBText;
    ppDBText417: TppDBText;
    ppDBText418: TppDBText;
    ppDBText419: TppDBText;
    ppDBText420: TppDBText;
    ppDBText421: TppDBText;
    ppLabel53: TppLabel;
    ppDBText422: TppDBText;
    ppDBText423: TppDBText;
    ppDBText424: TppDBText;
    ppDBText425: TppDBText;
    ppDBText426: TppDBText;
    ppDBText427: TppDBText;
    ppDBText428: TppDBText;
    ppDBText429: TppDBText;
    ppDBText430: TppDBText;
    ppDBText431: TppDBText;
    ppDBText432: TppDBText;
    ppDBText433: TppDBText;
    ppDBText434: TppDBText;
    ppDBText435: TppDBText;
    ppDBText436: TppDBText;
    ppDBText437: TppDBText;
    ppDBText438: TppDBText;
    ppLabel54: TppLabel;
    ppDBText439: TppDBText;
    ppDBText440: TppDBText;
    ppDBText441: TppDBText;
    ppDBText442: TppDBText;
    ppDBText443: TppDBText;
    ppDBText444: TppDBText;
    ppDBText445: TppDBText;
    ppDBText446: TppDBText;
    ppDBText447: TppDBText;
    ppDBText448: TppDBText;
    ppDBText449: TppDBText;
    ppDBText450: TppDBText;
    ppDBText451: TppDBText;
    ppDBText452: TppDBText;
    ppDBText453: TppDBText;
    ppDBText454: TppDBText;
    ppDBText455: TppDBText;
    ppDBText456: TppDBText;
    ppDBText457: TppDBText;
    ppDBText458: TppDBText;
    ppDBText459: TppDBText;
    ppDBText460: TppDBText;
    ppDBText461: TppDBText;
    ppDBText462: TppDBText;
    ppDBText463: TppDBText;
    ppDBText464: TppDBText;
    ppDBText465: TppDBText;
    ppDBText466: TppDBText;
    ppDBText467: TppDBText;
    ppDBText468: TppDBText;
    ppDBText469: TppDBText;
    ppDBText470: TppDBText;
    ppDBText471: TppDBText;
    ppDBText472: TppDBText;
    ppDBText473: TppDBText;
    ppDBText474: TppDBText;
    ppDBText475: TppDBText;
    ppDBText476: TppDBText;
    ppDBText477: TppDBText;
    ppDBText478: TppDBText;
    ppDBText479: TppDBText;
    ppDBText480: TppDBText;
    ppDBText481: TppDBText;
    ppDBText482: TppDBText;
    procedure SpeedButton2Click(Sender: TObject);
    procedure SpeedButton3Click(Sender: TObject);
    procedure SpeedButton8Click(Sender: TObject);
    procedure SpeedButton9Click(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
  cjzbdy: Tcjzbdy;

implementation

uses cjzbtempunit;

{$R *.dfm}

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

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

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

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

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

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

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

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

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

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

//ADOConnection1.ConnectionString:='Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=student;Data Source=STUDENT';

ppLabel3.Text:=cjzbtemp.combobox1.text;
pplabel8.text:=cjzbtemp.maskedit1.text;
pplabel10.text:=inttostr(strtoint(cjzbtemp.maskedit1.text)+1);
pplabel29.text:=inttostr(strtoint(cjzbtemp.maskedit1.text)+1);
pplabel27.text:=inttostr(strtoint(cjzbtemp.maskedit1.text)+2);
pplabel32.text:=inttostr(strtoint(cjzbtemp.maskedit1.text)+2);
pplabel34.text:=inttostr(strtoint(cjzbtemp.maskedit1.text)+3);
pplabel44.text:=inttostr(strtoint(cjzbtemp.maskedit1.text)+3);
pplabel46.text:=inttostr(strtoint(cjzbtemp.maskedit1.text)+4);
ppViewer1.Reset;

ppReport1.PrintToDevices ;
end;

end.