welcome.pas

来自「网络考试系统」· PAS 代码 · 共 72 行

unit Welcome;

interface

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

type
  TForm14 = class(TForm)
    Image1: TImage;
    StatusBar1: TStatusBar;
    Timer1: TTimer;
    procedure Timer1Timer(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form14: TForm14;
  i:integer=0;

implementation

uses Login;

{$R *.dfm}

procedure TForm14.Timer1Timer(Sender: TObject);

begin
    if statusbar1.Panels[0].Text ='' then
    begin
        statusbar1.Panels[0].Text := '正在初始化远程数据库连接 . . .          ';
        exit;
    end;
    if statusbar1.Panels[0].Text= '正在初始化远程数据库连接 . . .          ' then
    begin
        statusbar1.Panels[0].Text := '正在读取远程数据 . . .          ';
        exit;
    end;
    if statusbar1.Panels[0].Text = '正在读取远程数据 . . .          ' then
    begin
        statusbar1.Panels[0].Text:= '正在初始化应用程序 . . .          ' ;
        exit;
    end;
    if statusbar1.Panels[0].Text = '正在初始化应用程序 . . .          ' then
    begin
        statusbar1.Panels[0].Text := '  iSec  工作小组欢迎您的使用！！！         ' ;
        exit;
    end;
    if statusbar1.Panels[0].Text = '  iSec 工作小组欢迎您的使用！！！         ' then
    begin
       statusbar1.Panels[0].Text:= '' ;
        //Timer1.Enabled:=false;

        //Hide;
        //close;

    end;

    form1.show;
    Timer1.Enabled:=false;

   Form14.Release;

end;

end.