随机模拟事件操作系统实验delphi - 图文(3)

procedure TForm2.Timer7Timer(Sender: TObject); begin

if Id3 > 0 then begin

Id3 := Id3 -1;

edit2.Text := ('K顾客正在办理存款手续'); end else begin Id3:=60;

edit2.Text := ('F顾客正在办理取款手续');

end; end;

procedure TForm2.Timer8Timer(Sender: TObject); begin

form2.Label14.Caption:='今天是'+formatdatetime('yyyy-mm-dd',now); end;

procedure TForm2.Timer9Timer(Sender: TObject); begin

if Id4 > 0 then begin

Id4 := Id4 -1;

edit3.Text := ('A顾客正在办理取款手续'); // messagedlg('顾客正在办理存款手续',mtInformation,[mbOk],0); end else begin Id4:=55;

edit3.Text := ('B顾客正在办理存款手续'); //Timer1.Enabled := true; end; end;

procedure TForm2.Timer10Timer(Sender: TObject); begin

if Id5 > 0 then begin

Id5 := Id5 -1;

edit4.Text := ('C顾客正在办理存款手续'); // messagedlg('顾客正在办理存款',mtInformation,[mbOk],0); end else begin Id5:=78;

edit4.Text := ('D顾客正在办理取款手续'); //Timer1.Enabled := true; end; end;

procedure TForm2.Timer11Timer(Sender: TObject); var i:integer; begin i:=15; Randomize; i := random(15);

edit5.Text:=inttostr(i); end;

procedure TForm2.Timer12Timer(Sender: TObject); var i:integer; begin i:=15; Randomize; i := random(15);

edit6.Text:=inttostr(i); end; end.