logout.pas

仓库的进销存,及查询,供应商的管理.和库存的查询及管理.

unit logout;

interface

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

type
  Tlogofm = class(TForm)
    lgpl: TPanel;
    lgimage: TImage;
    logotimer: TTimer;
    lglabel: TLabel;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    procedure FormCreate(Sender: TObject);
    procedure logotimerTimer(Sender: TObject);
    procedure FormKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  logofm: Tlogofm;

implementation

{$R *.dfm}

procedure Tlogofm.FormCreate(Sender: TObject);
begin
alphablend:=true;
borderstyle:=bsnone;
clientheight:=400;
clientwidth:=600;
position:=poMainFormCenter;
windowstate:=wsNormal;
lgpl.Caption:='';
lgpl.Align:=alClient;
lgimage.Align:=alclient;
//lgimage.Picture.LoadFromFile('../image/logo.jpg');
lgimage.stretch:=true;
lglabel.AutoSize:=false;
lglabel.Font.Size:=36;
//lglabel.Font.Name:='隶书';
lglabel.Font.Style:=[fsbold];
//lglabel.Font.color:=clblue;
lglabel.Caption:='博坤鞋业库存管理系统';
logotimer.Interval:=4000;  //闪屏时间设置
logotimer.Enabled:=true;
end;

procedure Tlogofm.logotimerTimer(Sender: TObject);
begin
enabled:=false;
logofm.Close;   //关闭闪屏窗口
end;

procedure Tlogofm.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
if Shift>=[ssAlt] then
showmessage('操作非法!')
end;

end.