main.~dfm

单窗口售票系统仿真程序 运用秒推进法模拟了单窗口售票系统售票员忙、闲

object Form1: TForm1
  Left = 195
  Top = 135
  Width = 696
  Height = 480
  Caption = 
    '售票系统仿真  专业：通信与信息系统  姓名：孙丽霞  学号：S0310300' +
    '4'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  PixelsPerInch = 96
  TextHeight = 13
  object Label1: TLabel
    Left = 9
    Top = 42
    Width = 110
    Height = 13
    AutoSize = False
    Caption = '购票者队列：'
    WordWrap = True
  end
  object Label2: TLabel
    Left = 192
    Top = 42
    Width = 117
    Height = 13
    AutoSize = False
    Caption = '问询者队列：'
  end
  object Label3: TLabel
    Left = 439
    Top = 8
    Width = 130
    Height = 13
    AutoSize = False
    Caption = '仿真过程报告：'
  end
  object Label4: TLabel
    Left = 99
    Top = 42
    Width = 76
    Height = 13
    AutoSize = False
    Caption = '已购完票者：'
  end
  object Label5: TLabel
    Left = 290
    Top = 42
    Width = 87
    Height = 13
    AutoSize = False
    Caption = '已问完讯者：'
  end
  object Label6: TLabel
    Left = 34
    Top = 4
    Width = 328
    Height = 32
    Caption = 
      '以下文本框中为进入系统的 购票者 和 问询者 相对于起始时间(从0开始' +
      ')的到达时间(单位：秒)'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clRed
    Font.Height = -13
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    WordWrap = True
  end
  object Label7: TLabel
    Left = 194
    Top = 242
    Width = 79
    Height = 13
    AutoSize = False
    Caption = '仿真结果：'
  end
  object TicketListBox: TListBox
    Left = 7
    Top = 65
    Width = 84
    Height = 375
    ItemHeight = 13
    TabOrder = 0
  end
  object TelephoneListBox: TListBox
    Left = 190
    Top = 65
    Width = 86
    Height = 167
    ItemHeight = 13
    TabOrder = 1
  end
  object Memo1: TMemo
    Left = 434
    Top = 27
    Width = 246
    Height = 412
    ReadOnly = True
    ScrollBars = ssVertical
    TabOrder = 2
  end
  object Button1: TButton
    Left = 280
    Top = 415
    Width = 75
    Height = 25
    Caption = '开始仿真'
    TabOrder = 3
    OnClick = Button1Click
  end
  object ListBox1: TListBox
    Left = 98
    Top = 65
    Width = 87
    Height = 375
    ItemHeight = 13
    TabOrder = 4
  end
  object ListBox2: TListBox
    Left = 283
    Top = 65
    Width = 143
    Height = 166
    ItemHeight = 13
    TabOrder = 5
  end
  object Memo2: TMemo
    Left = 193
    Top = 262
    Width = 233
    Height = 148
    Lines.Strings = (
      '')
    TabOrder = 6
  end
  object SecondsTimer: TTimer
    Enabled = False
    Interval = 1
    OnTimer = SecondsTimerTimer
    Left = 431
    Top = 415
  end
  object TimeOutTimer: TTimer
    Enabled = False
    Interval = 3
    OnTimer = TimeOutTimerTimer
    Left = 473
    Top = 416
  end
  object ServiceTimer: TTimer
    Enabled = False
    Interval = 1
    OnTimer = ServiceTimerTimer
    Left = 515
    Top = 417
  end
end