getmanfrm.dfm

结合读卡器使用。程序中有按迟到时间长短自动开罚单功能

object GetManForm: TGetManForm
  Left = 485
  Top = 161
  Width = 388
  Height = 498
  Caption = 'GetManForm'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  OnActivate = FormActivate
  PixelsPerInch = 96
  TextHeight = 13
  object Label1: TLabel
    Left = 11
    Top = 9
    Width = 298
    Height = 23
    AutoSize = False
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -16
    Font.Name = #23435#20307
    Font.Style = [fsBold]
    ParentFont = False
  end
  object Panel1: TPanel
    Left = 3
    Top = 38
    Width = 373
    Height = 394
    BevelOuter = bvLowered
    BorderStyle = bsSingle
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -14
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
    TabOrder = 0
    object Label2: TLabel
      Left = 8
      Top = 24
      Width = 35
      Height = 14
      Caption = #22995' '#21517
    end
    object Label3: TLabel
      Left = 8
      Top = 57
      Width = 35
      Height = 14
      Caption = #21345' '#21495
    end
    object Label4: TLabel
      Left = 8
      Top = 90
      Width = 35
      Height = 14
      Caption = #24615' '#21035
    end
    object Label5: TLabel
      Left = 8
      Top = 123
      Width = 35
      Height = 14
      Caption = #24180' '#40836
    end
    object Label6: TLabel
      Left = 8
      Top = 156
      Width = 35
      Height = 14
      Caption = #30005' '#35805
    end
    object Label7: TLabel
      Left = 8
      Top = 189
      Width = 35
      Height = 14
      Caption = #37096' '#38376
    end
    object Label8: TLabel
      Left = 8
      Top = 222
      Width = 35
      Height = 14
      Caption = #26435' '#38480
    end
    object Label9: TLabel
      Left = 186
      Top = 221
      Width = 35
      Height = 14
      Caption = #23494' '#30721
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -14
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
    end
    object Label10: TLabel
      Left = 8
      Top = 255
      Width = 35
      Height = 14
      Caption = #22320' '#22336
    end
    object Label11: TLabel
      Left = 8
      Top = 288
      Width = 35
      Height = 14
      Caption = #31616' '#20171
    end
    object Label12: TLabel
      Left = 197
      Top = 24
      Width = 14
      Height = 42
      Caption = #29031#13#10#13#10#29255
    end
    object Edit1: TEdit
      Left = 54
      Top = 17
      Width = 121
      Height = 22
      TabOrder = 0
      Text = 'Edit1'
    end
    object Edit2: TEdit
      Left = 54
      Top = 50
      Width = 121
      Height = 22
      TabOrder = 1
      Text = 'Edit2'
    end
    object Edit4: TEdit
      Left = 54
      Top = 116
      Width = 121
      Height = 22
      TabOrder = 2
      Text = 'Edit4'
    end
    object Edit5: TEdit
      Left = 54
      Top = 150
      Width = 121
      Height = 22
      TabOrder = 3
      Text = 'Edit5'
    end
    object Edit8: TEdit
      Left = 225
      Top = 216
      Width = 139
      Height = 22
      TabOrder = 4
      Text = 'Edit8'
    end
    object Edit9: TEdit
      Left = 54
      Top = 250
      Width = 310
      Height = 22
      TabOrder = 5
      Text = 'Edit9'
    end
    object Memo1: TMemo
      Left = 55
      Top = 283
      Width = 309
      Height = 96
      Lines.Strings = (
        'Memo1')
      TabOrder = 6
    end
    object Panel2: TPanel
      Left = 219
      Top = 17
      Width = 145
      Height = 187
      TabOrder = 7
      object Image1: TImage
        Left = 2
        Top = 2
        Width = 141
        Height = 183
        Stretch = True
        OnClick = Image1Click
      end
    end
    object ComboBox1: TComboBox
      Left = 54
      Top = 83
      Width = 122
      Height = 22
      ItemHeight = 14
      TabOrder = 8
      Text = 'ComboBox1'
      Items.Strings = (
        #30007
        #22899)
    end
    object ComboBox2: TComboBox
      Left = 54
      Top = 183
      Width = 122
      Height = 22
      ItemHeight = 14
      TabOrder = 9
      Text = 'ComboBox2'
      Items.Strings = (
        #24066#22330#19968#37096
        #24066#22330#20108#37096
        #24066#22330#19977#37096
        #25216#26415#37096
        #24635#32463#29702#23460)
    end
    object ComboBox3: TComboBox
      Left = 54
      Top = 216
      Width = 122
      Height = 22
      ItemHeight = 14
      TabOrder = 10
      Text = 'ComboBox3'
      Items.Strings = (
        #26222#36890#26435#38480
        #39640#32423#26435#38480
        #31649#29702#32773)
    end
  end
  object BitBtn4: TBitBtn
    Left = 188
    Top = 437
    Width = 84
    Height = 28
    Caption = #20445#23384
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -16
    Font.Name = #23435#20307
    Font.Style = [fsBold]
    ModalResult = 1
    ParentFont = False
    TabOrder = 1
    OnClick = BitBtn4Click
    Glyph.Data = {
      76010000424D7601000000000000760000002800000020000000100000000100
      04000000000000010000120B0000120B00001000000000000000000000000000
      800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
      333333FFFFFFFFFFFFF33000077777770033377777777777773F000007888888
      00037F3337F3FF37F37F00000780088800037F3337F77F37F37F000007800888
      00037F3337F77FF7F37F00000788888800037F3337777777337F000000000000
      00037F3FFFFFFFFFFF7F00000000000000037F77777777777F7F000FFFFFFFFF
      00037F7F333333337F7F000FFFFFFFFF00037F7F333333337F7F000FFFFFFFFF
      00037F7F333333337F7F000FFFFFFFFF00037F7F333333337F7F000FFFFFFFFF
      00037F7F333333337F7F000FFFFFFFFF07037F7F33333333777F000FFFFFFFFF
      0003737FFFFFFFFF7F7330099999999900333777777777777733}
    NumGlyphs = 2
  end
  object BitBtn5: TBitBtn
    Left = 278
    Top = 437
    Width = 84
    Height = 28
    Caption = #36820#22238
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -16
    Font.Name = #23435#20307
    Font.Style = [fsBold]
    ModalResult = 2
    ParentFont = False
    TabOrder = 2
    Glyph.Data = {
      76010000424D7601000000000000760000002800000020000000100000000100
      04000000000000010000120B0000120B00001000000000000000000000000000
      800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00330000000000
      03333377777777777F333301BBBBBBBB033333773F3333337F3333011BBBBBBB
      0333337F73F333337F33330111BBBBBB0333337F373F33337F333301110BBBBB
      0333337F337F33337F333301110BBBBB0333337F337F33337F333301110BBBBB
      0333337F337F33337F333301110BBBBB0333337F337F33337F333301110BBBBB
      0333337F337F33337F333301110BBBBB0333337F337FF3337F33330111B0BBBB
      0333337F337733337F333301110BBBBB0333337F337F33337F333301110BBBBB
      0333337F3F7F33337F333301E10BBBBB0333337F7F7F33337F333301EE0BBBBB
      0333337F777FFFFF7F3333000000000003333377777777777333}
    NumGlyphs = 2
  end
  object BitBtn1: TBitBtn
    Left = 185
    Top = 437
    Width = 87
    Height = 28
    Caption = #21024#38500
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -16
    Font.Name = #23435#20307
    Font.Style = [fsBold]
    ModalResult = 1
    ParentFont = False
    TabOrder = 3
    OnClick = BitBtn1Click
    Glyph.Data = {
      76010000424D7601000000000000760000002800000020000000100000000100
      04000000000000010000130B0000130B00001000000000000000000000000000
      800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
      3333333333FFFFF3333333333999993333333333F77777FFF333333999999999
      33333337777FF377FF3333993370739993333377FF373F377FF3399993000339
      993337777F777F3377F3393999707333993337F77737333337FF993399933333
      399377F3777FF333377F993339903333399377F33737FF33377F993333707333
      399377F333377FF3377F993333101933399377F333777FFF377F993333000993
      399377FF3377737FF7733993330009993933373FF3777377F7F3399933000399
      99333773FF777F777733339993707339933333773FF7FFF77333333999999999
      3333333777333777333333333999993333333333377777333333}
    NumGlyphs = 2
  end
  object OpenPictureDialog1: TOpenPictureDialog
    Left = 200
    Top = 128
  end
end