card.dfm

停车场用

object CardForm: TCardForm
  Left = 142
  Top = 36
  Width = 630
  Height = 515
  BorderIcons = [biSystemMenu]
  Caption = '设置感应卡片'
  Color = clBtnFace
  Font.Charset = GB2312_CHARSET
  Font.Color = clWindowText
  Font.Height = -12
  Font.Name = '宋体'
  Font.Style = []
  OldCreateOrder = False
  Position = poScreenCenter
  OnDestroy = FormDestroy
  OnResize = FormResize
  PixelsPerInch = 96
  TextHeight = 12
  object m_ReadPanel: TPanel
    Left = 0
    Top = 0
    Width = 622
    Height = 81
    Align = alTop
    BevelOuter = bvNone
    TabOrder = 0
    object m_ReadCardGBox: TGroupBox
      Left = 9
      Top = 4
      Width = 440
      Height = 70
      Caption = '刷卡识别设定'
      Font.Charset = GB2312_CHARSET
      Font.Color = clMaroon
      Font.Height = -12
      Font.Name = '宋体'
      Font.Style = []
      ParentFont = False
      TabOrder = 0
      object m_CRLabel: TLabel
        Left = 14
        Top = 24
        Width = 54
        Height = 12
        Caption = '控制器(&L)'
        FocusControl = m_CRCoBox
        Font.Charset = GB2312_CHARSET
        Font.Color = clBlue
        Font.Height = -12
        Font.Name = '宋体'
        Font.Style = []
        ParentFont = False
      end
      object m_ReaderLabel: TLabel
        Left = 251
        Top = 24
        Width = 54
        Height = 12
        Caption = '读卡机(&R)'
        FocusControl = m_ReaderCoBox
        Font.Charset = GB2312_CHARSET
        Font.Color = clBlue
        Font.Height = -12
        Font.Name = '宋体'
        Font.Style = []
        ParentFont = False
      end
      object m_CardTypeLabel: TLabel
        Left = 4
        Top = 49
        Width = 66
        Height = 12
        Caption = '卡片类型(&M)'
        FocusControl = m_CardTypeCoBox
        Font.Charset = GB2312_CHARSET
        Font.Color = clBlue
        Font.Height = -12
        Font.Name = '宋体'
        Font.Style = []
        ParentFont = False
      end
      object m_CardNoLabel: TLabel
        Left = 252
        Top = 49
        Width = 90
        Height = 12
        Caption = '卡片起始编号(&N)'
        FocusControl = m_CardNoEdit
        Font.Charset = GB2312_CHARSET
        Font.Color = clBlue
        Font.Height = -12
        Font.Name = '宋体'
        Font.Style = []
        ParentFont = False
      end
      object m_CRCoBox: TComboBox
        Left = 71
        Top = 16
        Width = 167
        Height = 20
        Style = csDropDownList
        Color = clWhite
        Font.Charset = GB2312_CHARSET
        Font.Color = clBlack
        Font.Height = -12
        Font.Name = '宋体'
        Font.Style = []
        ItemHeight = 12
        ParentFont = False
        TabOrder = 0
        OnChange = m_CRCoBoxChange
      end
      object m_ReaderCoBox: TComboBox
        Left = 307
        Top = 16
        Width = 126
        Height = 20
        Style = csDropDownList
        Color = clWhite
        Font.Charset = GB2312_CHARSET
        Font.Color = clBlack
        Font.Height = -12
        Font.Name = '宋体'
        Font.Style = []
        ItemHeight = 12
        ParentFont = False
        TabOrder = 1
      end
      object m_CardTypeCoBox: TComboBox
        Left = 71
        Top = 41
        Width = 168
        Height = 20
        Style = csDropDownList
        Color = clWhite
        Font.Charset = GB2312_CHARSET
        Font.Color = clBlack
        Font.Height = -12
        Font.Name = '宋体'
        Font.Style = []
        ItemHeight = 12
        ParentFont = False
        TabOrder = 2
      end
      object m_CardNoEdit: TEdit
        Left = 346
        Top = 41
        Width = 80
        Height = 20
        Font.Charset = GB2312_CHARSET
        Font.Color = clBlack
        Font.Height = -12
        Font.Name = '宋体'
        Font.Style = []
        ParentFont = False
        TabOrder = 3
        Text = '1'
      end
    end
    object m_BeginBut: TBitBtn
      Left = 473
      Top = 16
      Width = 122
      Height = 26
      Caption = '开始刷卡识别(&B)'
      TabOrder = 1
      OnClick = m_BeginButClick
      Glyph.Data = {
        76010000424D7601000000000000760000002800000020000000100000000100
        04000000000000010000120B0000120B00001000000000000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00555555555555
        555555555555555555555555555555555555555555FF55555555555559055555
        55555555577FF5555555555599905555555555557777F5555555555599905555
        555555557777FF5555555559999905555555555777777F555555559999990555
        5555557777777FF5555557990599905555555777757777F55555790555599055
        55557775555777FF5555555555599905555555555557777F5555555555559905
        555555555555777FF5555555555559905555555555555777FF55555555555579
        05555555555555777FF5555555555557905555555555555777FF555555555555
        5990555555555555577755555555555555555555555555555555}
      NumGlyphs = 2
    end
    object m_PauseBut: TBitBtn
      Left = 474
      Top = 47
      Width = 121
      Height = 26
      Caption = '暂停刷卡识别(&P)'
      TabOrder = 2
      OnClick = m_PauseButClick
      Glyph.Data = {
        76010000424D7601000000000000760000002800000020000000100000000100
        04000000000000010000130B0000130B00001000000000000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
        33333333333333333333EEEEEEEEEEEEEEE333FFFFFFFFFFFFF3E00000000000
        00E337777777777777F3E0F77777777770E337F33333333337F3E0F333333333
        70E337F33333333337F3E0F33333333370E337F333FF3FF337F3E0F330030033
        70E337F3377F77F337F3E0F33003003370E337F3377F77F337F3E0F330030033
        70E337F3377F77F337F3E0F33003003370E337F3377F77F337F3E0F330030033
        70E337F33773773337F3E0F33333333370E337F33333333337F3E0F333333333
        70E337F33333333337F3E0FFFFFFFFFFF0E337FFFFFFFFFFF7F3E00000000000
        00E33777777777777733EEEEEEEEEEEEEEE33333333333333333}
      NumGlyphs = 2
    end
  end
  object m_TextDBGrid: TDBGrid
    Left = 0
    Top = 100
    Width = 622
    Height = 335
    Align = alClient
    Color = clTeal
    DataSource = m_CardDataSource
    Font.Charset = GB2312_CHARSET
    Font.Color = clYellow
    Font.Height = -12
    Font.Name = '宋体'
    Font.Style = []
    Options = [dgTitles, dgIndicator, dgColLines, dgRowLines, dgRowSelect, dgAlwaysShowSelection]
    ParentFont = False
    ReadOnly = True
    TabOrder = 1
    TitleFont.Charset = GB2312_CHARSET
    TitleFont.Color = clRed
    TitleFont.Height = -12
    TitleFont.Name = '宋体'
    TitleFont.Style = []
    OnDrawColumnCell = m_TextDBGridDrawColumnCell
    OnTitleClick = m_TextDBGridTitleClick
    Columns = <
      item
        Alignment = taCenter
        Expanded = False
        FieldName = 'CardNo'
        Title.Alignment = taCenter
        Title.Caption = '卡片编号'
        Visible = True
      end
      item
        Alignment = taCenter
        Expanded = False
        Title.Alignment = taCenter
        Title.Caption = '卡片内码'
        Visible = True
      end
      item
        Expanded = False
        Title.Alignment = taCenter
        Title.Caption = '卡片类型'
        Visible = True
      end
      item
        Alignment = taCenter
        Expanded = False
        Title.Alignment = taCenter
        Title.Caption = '持有者号'
        Visible = True
      end
      item
        Alignment = taCenter
        Expanded = False
        Title.Alignment = taCenter
        Title.Caption = '生效日期'
        Visible = True
      end
      item