front.~pas

来自「商品管理系统是面向超市类的商品数据库管理系统。其主要功能包括用户购买商品」· ~PAS 代码 · 共 40 行

unit front;

interface

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

type
  TForm1 = class(TForm)
    Image1: TImage;
    Label1: TLabel;
    Label2: TLabel;
   
   private
    { Private declarations }
  public
   procedure makesplash;
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

uses mn;

{$R *.DFM}

procedure Tform1.makesplash;
begin
 borderstyle:=bsnone;
 show;
 update;
 sleep(5000);
end;

end.