百货/超市行业

开发平台：
Visual C++

main.dfm：源码内容
							object mainform: Tmainform
  Left = -4
  Top = -4
  Width = 808
  Height = 580
  Caption = '电梯仿真系统'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  OnCreate = FormCreate
  OnDestroy = FormDestroy
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object STB1: TStatusBar
    Left = 0
    Top = 534
    Width = 800
    Height = 19
    Panels = <
      item
        Width = 200
      end
      item
        Width = 200
      end
      item
        Width = 200
      end
      item
        Width = 200
      end>
    SimplePanel = False
  end
  object Panel1: TPanel
    Left = 0
    Top = 0
    Width = 800
    Height = 534
    Align = alClient
    BevelInner = bvLowered
    TabOrder = 1
    object PageControl1: TPageControl
      Left = 2
      Top = 2
      Width = 796
      Height = 530
      ActivePage = TabSheet1
      Align = alClient
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = '宋体'
      Font.Style = []
      ParentFont = False
      Style = tsFlatButtons
      TabOrder = 0
      object TabSheet1: TTabSheet
        Caption = '电梯状态'
        object Panel2: TPanel
          Left = 0
          Top = 0
          Width = 788
          Height = 499
          Align = alClient
          BevelInner = bvLowered
          TabOrder = 0
          object Label1: TLabel
            Left = 118
            Top = 9
            Width = 14
            Height = 13
            Caption = 'E1'
          end
          object Label2: TLabel
            Left = 194
            Top = 9
            Width = 14
            Height = 13
            Caption = 'E2'
          end
          object Label3: TLabel
            Left = 270
            Top = 9
            Width = 14
            Height = 13
            Caption = 'E3'
          end
          object Label4: TLabel
            Left = 346
            Top = 9
            Width = 14
            Height = 13
            Caption = 'E4'
          end
          object Label5: TLabel
            Left = 422
            Top = 9
            Width = 14
            Height = 13
            Caption = 'E5'
          end
          object Label6: TLabel
            Left = 498
            Top = 9
            Width = 14
            Height = 13
            Caption = 'E6'
          end
          object Label7: TLabel
            Left = 574
            Top = 9
            Width = 14
            Height = 13
            Caption = 'E7'
          end
          object Label8: TLabel
            Left = 650
            Top = 9
            Width = 14
            Height = 13
            Caption = 'E8'
          end
          object Label9: TLabel
            Left = 726
            Top = 9
            Width = 14
            Height = 13
            Caption = 'E9'
          end
          object Label10: TLabel
            Left = 42
            Top = 9
            Width = 14
            Height = 13
            Caption = 'E0'
          end
          object Label11: TLabel
            Left = 19
            Top = 421
            Width = 65
            Height = 13
            Caption = '运行时间：'
          end
          object Label12: TLabel
            Left = 18
            Top = 456
            Width = 59
            Height = 13
            Caption = '空闲时间:'
          end
          object Label13: TLabel
            Left = 95
            Top = 421
            Width = 65
            Height = 13
            Caption = '运行时间：'
          end
          object Label14: TLabel
            Left = 94
            Top = 456
            Width = 59
            Height = 13
            Caption = '空闲时间:'
          end
          object Label15: TLabel
            Left = 171
            Top = 421
            Width = 65
            Height = 13
            Caption = '运行时间：'
          end
          object Label16: TLabel
            Left = 170
            Top = 456
            Width = 59
            Height = 13
            Caption = '空闲时间:'
          end
          object Label17: TLabel
            Left = 248
            Top = 421
            Width = 65
            Height = 13
            Caption = '运行时间：'
          end
          object Label18: TLabel
            Left = 247
            Top = 456
            Width = 59
            Height = 13
            Caption = '空闲时间:'
          end
          object Label19: TLabel
            Left = 325
            Top = 421
            Width = 65
            Height = 13
            Caption = '运行时间：'
          end
          object Label20: TLabel
            Left = 324
            Top = 456
            Width = 59
            Height = 13
            Caption = '空闲时间:'
          end
          object Label21: TLabel
            Left = 401
            Top = 421
            Width = 65
            Height = 13
            Caption = '运行时间：'
          end
          object Label22: TLabel
            Left = 400
            Top = 456
            Width = 59
            Height = 13
            Caption = '空闲时间:'
          end
          object Label23: TLabel
            Left = 478
            Top = 421
            Width = 65
            Height = 13
            Caption = '运行时间：'
          end
          object Label24: TLabel
            Left = 477
            Top = 456
            Width = 59
            Height = 13
            Caption = '空闲时间:'
          end
          object Label25: TLabel
            Left = 555
            Top = 421
            Width = 65
            Height = 13
            Caption = '运行时间：'
          end
          object Label26: TLabel
            Left = 554
            Top = 456
            Width = 59
            Height = 13
            Caption = '空闲时间:'
          end
          object Label27: TLabel
            Left = 632
            Top = 421
            Width = 65
            Height = 13
            Caption = '运行时间：'
          end
          object Label28: TLabel
            Left = 631
            Top = 456
            Width = 59
            Height = 13
            Caption = '空闲时间:'
          end
          object Label29: TLabel
            Left = 709
            Top = 421
            Width = 65
            Height = 13
            Caption = '运行时间：'
          end
          object Label30: TLabel
            Left = 708
            Top = 456
            Width = 59
            Height = 13
            Caption = '空闲时间:'
          end
          object Label35: TLabel
            Left = 16
            Top = 304
            Width = 66
            Height = 13
            Caption = 'E0电梯承载'
          end
          object Label36: TLabel
            Left = 92
            Top = 304
            Width = 66
            Height = 13
            Caption = 'E1电梯承载'
          end
          object Label37: TLabel
            Left = 169
            Top = 304
            Width = 66
            Height = 13
            Caption = 'E2电梯承载'
          end
          object Label38: TLabel
            Left = 245
            Top = 304
            Width = 66
            Height = 13
            Caption = 'E3电梯承载'
          end
          object Label39: TLabel
            Left = 322
            Top = 304
            Width = 66
            Height = 13
            Caption = 'E4电梯承载'
          end
          object Label40: TLabel
            Left = 398
            Top = 304
            Width = 66
            Height = 13
            Caption = 'E5电梯承载'
          end
          object Label41: TLabel
            Left = 475
            Top = 304
            Width = 66
            Height = 13
            Caption = 'E6电梯承载'
          end
          object Label42: TLabel
            Left = 551
            Top = 304
            Width = 66
            Height = 13
            Caption = 'E7电梯承载'
          end
          object Label43: TLabel
            Left = 628
            Top = 304
            Width = 66
            Height = 13
            Caption = 'E8电梯承载'
          end
          object Label44: TLabel
            Left = 704
            Top = 304
            Width = 66
            Height = 13
            Caption = 'E9电梯承载'
          end
          object TB0: TTrackBar
            Left = 39
            Top = 21
            Width = 45
            Height = 277
            Enabled = False
            Max = 0
            Min = -39
            Orientation = trVertical
            Frequency = 1
            Position = 0
            SelEnd = 0
            SelStart = 0
            TabOrder = 0
            TickMarks = tmBottomRight
            TickStyle = tsAuto
          end
          object TB1: TTrackBar
            Left = 115
            Top = 21
            Width = 45
            Height = 277
            Enabled = False
            Max = 0
            Min = -39
            Orientation = trVertical
            Frequency = 1
            Position = 0
            SelEnd = 0
            SelStart = 0
            TabOrder = 1
            TickMarks = tmBottomRight
            TickStyle = tsAuto
          end
          object TB2: TTrackBar
            Left = 191
            Top = 21
            Width = 45
            Height = 277
            Enabled = False
            Max = 0
            Min = -39
            Orientation = trVertical
            Frequency = 1
            Position = 0
            SelEnd = 0
            SelStart = 0
            TabOrder = 2
            TickMarks = tmBottomRight
            TickStyle = tsAuto
          end
          object TB3: TTrackBar
            Left = 266
            Top = 21
            Width = 45
            Height = 277
            Enabled = False
            Max = 0
            Min = -39
            Orientation = trVertical
            Frequency = 1
            Position = 0
            SelEnd = 0
            SelStart = 0
            TabOrder = 3
            TickMarks = tmBottomRight
            TickStyle = tsAuto
          end
          object TB4: TTrackBar
            Left = 342
            Top = 21
            Width = 45
            Height = 277
            Enabled = False
            Max = 0
            Min = -39
            Orientation = trVertical
            Frequency = 1
            Position = 0
            SelEnd = 0
            SelStart = 0
            TabOrder = 4
            TickMarks = tmBottomRight
            TickStyle = tsAuto
          end
          object TB5: TTrackBar
            Left = 418
            Top = 21
            Width = 45
            Height = 277
            Enabled = False
            Max = 0
            Min = -39
            Orientation = trVertical
            Frequency = 1
            Position = 0
            SelEnd = 0
            SelStart = 0
            TabOrder = 5
            TickMarks = tmBottomRight
            TickStyle = tsAuto
          end
          object TB6: TTrackBar
            Left = 494
            Top = 21
            Width = 45
            Height = 277
            Enabled = False
            Max = 0
            Min = -39
            Orientation = trVertical
            Frequency = 1
            Position = 0
            SelEnd = 0
            SelStart = 0
            TabOrder = 6
            TickMarks = tmBottomRight
            TickStyle = tsAuto
          end
          object TB7: TTrackBar
            Left = 569
            Top = 21
            Width = 45
            Height = 277
            Enabled = False
            Max = 0
            Min = -39
            Orientation = trVertical
            Frequency = 1
            Position = 0
            SelEnd = 0
            SelStart = 0
            TabOrder = 7
            TickMarks = tmBottomRight
            TickStyle = tsAuto
          end
          object TB8: TTrackBar
            Left = 645
            Top = 21
            Width = 45
            Height = 277
            Enabled = False
            Max = 0
            Min = -39
            Orientation = trVertical
            Frequency = 1
            Position = 0
            SelEnd = 0
            SelStart = 0
            TabOrder = 8
            TickMarks = tmBottomRight
            TickStyle = tsAuto
          end
          object TB9: TTrackBar
            Left = 721
            Top = 21
            Width = 45
            Height = 277
            Enabled = False
            Max = 0
            Min = -39
            Orientation = trVertical
            Frequency = 1
            Position = 0
            SelEnd = 0
            SelStart = 0
            TabOrder = 9
            TickMarks = tmBottomRight
            TickStyle = tsAuto
          end
          object Memo0: TMemo
            Left = 14
            Top = 320
            Width = 69
            Height = 98
            ReadOnly = True
            ScrollBars = ssVertical
            TabOrder = 10
          end
          object Memo1: TMemo
            Left = 91
            Top = 320
            Width = 70
            Height = 98
            ReadOnly = True
            ScrollBars = ssVertical
            TabOrder = 11
          end
          object Memo2: TMemo
            Left = 167
            Top = 320
            Width = 70
            Height = 98
            ReadOnly = True
            ScrollBars = ssVertical
            TabOrder = 12
          end
          object Memo3: TMemo
            Left = 244
            Top = 320
            Width = 69
            Height = 98
            ReadOnly = True
            ScrollBars = ssVertical
            TabOrder = 13
          end
          object Memo4: TMemo
            Left = 321
            Top = 320
            Width = 70
            Height = 98
            ReadOnly = True
            ScrollBars = ssVertical
            TabOrder = 14
          end
          object Memo5: TMemo
            Left = 397
            Top = 320
            Width = 70
            Height = 98
            ReadOnly = True
            ScrollBars = ssVertical
            TabOrder = 15
          end
          object Memo6: TMemo
            Left = 474
            Top = 320
            Width = 69
            Height = 98
            ReadOnly = True
            ScrollBars = ssVertical
            TabOrder = 16
          end
          object Memo7: TMemo
            Left = 551
            Top = 320
            Width = 70
            Height = 98
            ReadOnly = True
            ScrollBars = ssVertical
            TabOrder = 17
          end
          object Memo8: TMemo
            Left = 627
            Top = 320
            Width = 70
            Height = 98
            ReadOnly = True
            ScrollBars = ssVertical
            TabOrder = 18
          end
          object Memo9: TMemo
            Left = 704
            Top = 320
            Width = 71
            Height = 98
            ReadOnly = True
            ScrollBars = ssVertical
            TabOrder = 19
          end
          object ST0: TStaticText
            Left = 18
            Top = 434
            Width = 51
            Height = 18
            AutoSize = False
            BorderStyle = sbsSunken
            Color = clHighlightText
            ParentColor = False
            TabOrder = 20
          end
          object ST1: TStaticText
            Left = 94
            Top = 434
            Width = 51
            Height = 18
            AutoSize = False
            BorderStyle = sbsSunken
            Color = clHighlightText
            ParentColor = False
            TabOrder = 21
          end
          object ST2: TStaticText
            Left = 171
            Top = 434
            Width = 51
            Height = 18
            AutoSize = False
            BorderStyle = sbsSunken
            Color = clHighlightText
            ParentColor = False
            TabOrder = 22
          end
          object ST3: TStaticText
            Left = 250
            Top = 434
            Width = 51
            Height = 18
            AutoSize = False
            BorderStyle = sbsSunken
            Color = clHighlightText
            ParentColor = False
            TabOrder = 23
          end
          object ST4: TStaticText
            Left = 325
            Top = 434
            Width = 51
            Height = 18
            AutoSize = False
            BorderStyle = sbsSunken
            Color = clHighlightText
            ParentColor = False
            TabOrder = 24
          end
          object ST5: TStaticText
            Left = 401
            Top = 434
            Width = 51
            Height = 18
            AutoSize = False
            BorderStyle = sbsSunken
            Color = clHighlightText
            ParentColor = False
            TabOrder = 25
          end
          object ST6: TStaticText
            Left = 478
            Top = 434
            Width = 51
            Height = 18
            AutoSize = False
            BorderStyle = sbsSunken
            Color = clHighlightText
            ParentColor = False
            TabOrder = 26
          end
          object ST7: TStaticText
            Left = 555
            Top = 434
            Width = 51
            Height = 18
            AutoSize = False
            BorderStyle = sbsSunken
            Color = clHighlightText
            ParentColor = False
            TabOrder = 27
          end
          object ST8: TStaticText
            Left = 633
            Top = 434
            Width = 51
            Height = 18
            AutoSize = False
            BorderStyle = sbsSunken
            Color = clHighlightText
            ParentColor = False
            TabOrder = 28
          end
          object ST9: TStaticText
            Left = 710
            Top = 434
            Width = 51
            Height = 18
            AutoSize = False
            BorderStyle = sbsSunken
            Color = clHighlightText
            ParentColor = False
            TabOrder = 29
          end
          object idleST0: TStaticText
            Left = 18
            Top = 469
            Width = 52
            Height = 17
            AutoSize = False
            BorderStyle = sbsSunken
            Color = clHighlightText
            ParentColor = False
            TabOrder = 30
          end
          object idleST1: TStaticText
            Left = 94
            Top = 469
            Width = 52
            Height = 17
            AutoSize = False
            BorderStyle = sbsSunken
            Color = clHighlightText
            ParentColor = False
            TabOrder = 31
          end
          object idleST2: TStaticText
            Left = 170
            Top = 469
            Width = 52
            Height = 17
            AutoSize = False
            BorderStyle = sbsSunken
            Color = clHighlightText
            ParentColor = False
            TabOrder = 32
          end
          object idleST3: TStaticText
            Left = 248
            Top = 469
            Width = 52
            Height = 17
            AutoSize = False
            BorderStyle = sbsSunken
            Color = clHighlightText
            ParentColor = False
            TabOrder = 33
          end
          object idleST4: TStaticText
            Left = 325
            Top = 469
            Width = 52
            Height = 17
            AutoSize = False
            BorderStyle = sbsSunken
            Color = clHighlightText
            ParentColor = False
            TabOrder = 34
          end
          object idleST5: TStaticText
            Left = 400
            Top = 469
            Width = 52
            Height = 17
            AutoSize = False
            BorderStyle = sbsSunken
            Color = clHighlightText
            ParentColor = False
            TabOrder = 35
          end
          object idleST6: TStaticText
            Left = 477
            Top = 469
            Width = 52
            Height = 17
            AutoSize = False
            BorderStyle = sbsSunken
            Color = clHighlightText
            ParentColor = False
            TabOrder = 36
          end
          object idleST7: TStaticText
            Left = 554
            Top = 469
            Width = 52
            Height = 17
            AutoSize = False
            BorderStyle = sbsSunken
            Color = clHighlightText
            ParentColor = False
            TabOrder = 37
          end
          object idleST8: TStaticText
            Left = 632
            Top = 469
            Width = 51
            Height = 17
            AutoSize = False
            BorderStyle = sbsSunken
            Color = clHighlightText
            ParentColor = False
            TabOrder = 38
          end
          object idleST9: TStaticText
            Left = 710
            Top = 469
            Width = 51
            Height = 17
            AutoSize = False
            BorderStyle = sbsSunken
            Color = clHighlightText
            ParentColor = False
            TabOrder = 39
          end
        end
      end
      object TabSheet2: TTabSheet
        Caption = '人员统计'
        ImageIndex = 1
        object Panel4: TPanel
          Left = 0
          Top = 0
          Width = 788
          Height = 499
          Align = alClient
          BevelInner = bvLowered
          TabOrder = 0
          object Label31: TLabel
            Left = 29
            Top = 70
            Width = 117
            Height = 13
            Caption = '当前请求乘梯人员：'
          end
          object Label32: TLabel
            Left = 225
            Top = 70
            Width = 91
            Height = 13
            Caption = '当前闲留人员：'
          end
          object Label33: TLabel
            Left = 597
            Top = 70
            Width = 156
            Height = 13
            Caption = '当前完成乘梯任务的人员：'
          end
          object Label34: TLabel
            Left = 413
            Top = 70
            Width = 130
            Height = 13
            Caption = '当前正在乘梯的人员：'
          end
          object Memo10: TMemo
            Left = 18
            Top = 90
            Width = 185
            Height = 314
            Color = clInfoBk
            Lines.Strings = (
              'Memo10')
            ReadOnly = True
            ScrollBars = ssVertical
            TabOrder = 0
          end
          object Memo11: TMemo
            Left = 209
            Top = 90
            Width = 185
            Height = 314
            Color = clInfoBk
            Lines.Strings = (
              'Memo11')
            ReadOnly = True
            ScrollBars = ssVertical
            TabOrder = 1
          end
          object Memo12: TMemo
            Left = 583
            Top = 90
            Width = 185
            Height = 314
            Color = clInfoBk
            Lines.Strings = (
              'Memo12')
            ReadOnly = True
            ScrollBars = ssVertical
            TabOrder = 2
          end
          object Memo13: TMemo
            Left = 400
            Top = 90
            Width = 175
            Height = 314
            Color = clInfoBk
            Lines.Strings = (
              'Memo13')
            TabOrder = 3
          end
        end
      end
      object TabSheet3: TTabSheet
        Caption = '楼层统计'
        ImageIndex = 2
        object Panel3: TPanel
          Left = 0
          Top = 0
          Width = 788
          Height = 499
          Align = alClient
          BevelInner = bvLowered
          TabOrder = 0
          object StrGD1: TStringGrid
            Left = 2
            Top = 2
            Width = 784
            Height = 495
            Align = alClient
            Color = clInfoBk
            ColCount = 11
            DefaultColWidth = 70
            RowCount = 12
            TabOrder = 0
          end
        end
      end
    end
  end
end

						