logout.~pas

中学考试管理系统 采用智能管理 具有统计分析的能力

unit logout;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls;

type
  TForm14 = class(TForm)
    Panel1: TPanel;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Timer1: TTimer;
    Button1: TButton;
    Button2: TButton;
    procedure FormCreate(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form14: TForm14;

implementation

uses main;

{$R *.dfm}


procedure TForm14.FormCreate(Sender: TObject);
begin
  Label5.Width:=150;
  Label5.Caption:='设计:徐艳华  '+#13+#13+
              '组员:阮赐兴  '+#13+#13+
              '组员:范李和  '+#13+#13+
              '组员:林鹏程  '+#13+#13+
              '组员:郭  杰  '+#13+#13+
              '组员:杨美英  ';
   
end;

procedure TForm14.Timer1Timer(Sender: TObject);
begin
  Label5.Top:=Label5.Top-1;
  if(Label5.Top < -Label5.Width-30) then
    Label5.Top:=Panel1.Height;

end;

procedure TForm14.Button1Click(Sender: TObject);
begin
  Form14.Hide;
  Form2.show;
end;

procedure TForm14.Button2Click(Sender: TObject);
begin
  Application.Terminate;
end;

end.