index1.pas

使用DELPHI6.0开发的停车场管理信息系统 使用ADO和BDE技术连接SQL数据库 是我计算机双学位的毕业设计

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:=True;
   splash.Timer1.Enabled := False;
end;

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

end.