splash.pas

来自「本系统包括的功能有,预算项目管理,查询,数据库维护,系统拥护管理等」· PAS 代码 · 共 73 行

unit splash;

interface

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

type
  Tfrmsplash = class(TForm)
    Labelname: TLabel;
    Labeplat: TLabel;
    Labelver: TLabel;
    Labelatt: TLabel;
    Timer1: TTimer;
    procedure FormClick(Sender: TObject);
    procedure LabelnameClick(Sender: TObject);
    procedure LabeplatClick(Sender: TObject);
    procedure LabelverClick(Sender: TObject);
    procedure LabelattClick(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmsplash: Tfrmsplash;
  come:integer;
implementation

uses main, login;

{$R *.dfm}

procedure Tfrmsplash.FormClick(Sender: TObject);
begin
frmsplash.Close;
end;

procedure Tfrmsplash.LabelnameClick(Sender: TObject);
begin
frmsplash.Close;
end;

procedure Tfrmsplash.LabeplatClick(Sender: TObject);
begin
frmsplash.Close;
end;

procedure Tfrmsplash.LabelverClick(Sender: TObject);
begin
frmsplash.Close;
end;

procedure Tfrmsplash.LabelattClick(Sender: TObject);
begin
frmsplash.Close;
end;

procedure Tfrmsplash.Timer1Timer(Sender: TObject);
begin
frmsplash.Close;
end;

procedure Tfrmsplash.FormCreate(Sender: TObject);
begin
//frmsplash.Close;
end;
end.