hospital.pas

来自「医院门诊管理系统:它是由任天华完全自主开发的医院数据库管理系统」· PAS 代码 · 共 86 行

unit Hospital;

interface

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

type
  TFormIn = class(TForm)
    Button1: TButton;
    Image1: TImage;
    Label1: TLabel;
    Image2: TImage;
    Timer1: TTimer;
    Image3: TImage;
    Image4: TImage;
    Image5: TImage;
    Image6: TImage;
    Image7: TImage;
    Image8: TImage;
    Label3: TLabel;
    procedure Button1Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FormIn: TFormIn;
  a:integer;
implementation
     uses frmmain;
{$R *.dfm}

procedure TFormIn.Button1Click(Sender: TObject);
begin
   FormIn.Timer1.Enabled:=false;
   formmain.ShowModal;
end;

procedure TFormIn.FormShow(Sender: TObject);
begin
    a:=0;
end;

procedure TFormIn.Timer1Timer(Sender: TObject);
begin
   a:=a+1;
   if a=2 then
     FormIn.Image3.Visible:=true;
   if a=3 then
   begin
      FormIn.Image3.Visible:=false;
      FormIn.Image4.Visible:=true;
   end;
   if a=3 then
   begin
      FormIn.Image4.Visible:=false;
      FormIn.Image5.Visible:=true;
   end;
   if a=4 then
   begin
      FormIn.Image5.Visible:=false;
      FormIn.Image6.Visible:=true;
   end;
   if a=5 then
   begin
      FormIn.Image6.Visible:=false;
      FormIn.Image7.Visible:=true;
   end;
   if a=6 then
   begin
      FormIn.Image7.Visible:=false;
      FormIn.Image8.Visible:=true;
      if application.MessageBox('It is ok now!','Congratulations!',MB_OK)=ID_OK then
         FormIn.Button1.Click;
   end;

end;

end.