welcome.~pas

来自「该源码采用DELPHI语言,主要实现了对员工信息管理的功能.」· ~PAS 代码 · 共 47 行

unit Welcome;

interface

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

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

var
  Form1: TForm1;

implementation

uses Access;

{$R *.dfm}

procedure TForm1.Timer1Timer(Sender: TObject);
begin
    if Progressbar1.Position<100 then
    begin
    progressbar1.Position:=progressbar1.Position+1;
    screen.Cursor:=crhourglass;    //鼠标显示忙状态
    end
    else
    begin
    timer1.Enabled:=false;
    screen.Cursor:=Crdefault;   //鼠标显示正常
    form1.Hide;             //隐藏欢迎界面
    form2.Show;
    end;
end;

end.