index1.~pas

来自「使用DELPHI6.0开发的停车场管理信息系统 使用ADO和BDE技术连接SQL」· ~PAS 代码 · 共 51 行

unit index1;

interface

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

type
    Tsplash = class(TForm)
    Panel1: TPanel;
    Image1: TImage;
    Timer1: TTimer;
    Timer2: TTimer;
    ProgressBar1: TProgressBar;
    Label1: TLabel;
    procedure Timer1Timer(Sender: TObject);
    procedure Timer2Timer(Sender: TObject);

  private
    { Private declarations }
  public
    { Public declarations }
     Login_off:boolean;
  end;

var
  splash: Tsplash;
  i:integer;
implementation

uses index2;

{$R *.dfm}



procedure Tsplash.Timer1Timer(Sender: TObject);
begin
   Login_off:=False;
   splash.Timer1.Enabled := False;
end;

procedure Tsplash.Timer2Timer(Sender: TObject);
begin
   i:=i+1;
   splash.ProgressBar1.Position:=i;
end;

end.