gatecard.~dfm

一个Delphi写的跟考勤机门禁机收款机的接品软件源码

object dlgGateCard: TdlgGateCard
  Left = 287
  Top = 178
  BorderIcons = [biSystemMenu]
  BorderStyle = bsDialog
  ClientHeight = 242
  ClientWidth = 377
  Color = clBtnFace
  Font.Charset = GB2312_CHARSET
  Font.Color = clWindowText
  Font.Height = -12
  Font.Name = #23435#20307
  Font.Style = []
  OldCreateOrder = False
  Position = poOwnerFormCenter
  OnCloseQuery = FormCloseQuery
  OnDestroy = FormDestroy
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 12
  object lbCardId: TLabel
    Left = 16
    Top = 19
    Width = 80
    Height = 15
    AutoSize = False
    Caption = #21345#21495'(&R)'#65306
    FocusControl = edCardNo
  end
  object lbEmpId: TLabel
    Left = 16
    Top = 51
    Width = 80
    Height = 15
    AutoSize = False
    Caption = #24037#21495'(&E)'#65306
    FocusControl = edEmpId
  end
  object plPwd: TPanel
    Left = 16
    Top = 104
    Width = 345
    Height = 97
    BevelInner = bvLowered
    BevelOuter = bvNone
    TabOrder = 4
    object lbLevel: TLabel
      Left = 8
      Top = 48
      Width = 80
      Height = 12
      AutoSize = False
      Caption = #38376#31105#31561#32423'(&L)'#65306
      FocusControl = cbLevel
    end
    object lbPwd: TLabel
      Left = 8
      Top = 17
      Width = 80
      Height = 12
      AutoSize = False
      Caption = #24320#38376#23494#30721'(&P)'#65306
      FocusControl = edPwd
    end
    object cbLevel: TComboBox
      Left = 95
      Top = 48
      Width = 50
      Height = 20
      Style = csDropDownList
      ItemHeight = 12
      ItemIndex = 0
      MaxLength = 4
      TabOrder = 0
      Text = '0'
      Items.Strings = (
        '0'
        '1'
        '2'
        '3'
        '4'
        '5'
        '6'
        '7'
        '8'
        '9'
        '10'
        '11'
        '12'
        '13'
        '14'
        '15')
    end
    object cbONE: TCheckBox
      Left = 160
      Top = 48
      Width = 80
      Height = 17
      Caption = #19968#21495#38376
      Checked = True
      State = cbChecked
      TabOrder = 1
    end
    object cbTHREE: TCheckBox
      Left = 249
      Top = 48
      Width = 80
      Height = 17
      Caption = #19977#21495#38376
      Checked = True
      State = cbChecked
      TabOrder = 2
    end
    object cbTWO: TCheckBox
      Left = 160
      Top = 64
      Width = 80
      Height = 17
      Caption = #20108#21495#38376
      Checked = True
      State = cbChecked
      TabOrder = 3
    end
    object cbFOUR: TCheckBox
      Left = 249
      Top = 64
      Width = 80
      Height = 17
      Caption = #22235#21495#38376
      Checked = True
      State = cbChecked
      TabOrder = 4
    end
    object edPwd: TMaskEdit
      Left = 95
      Top = 17
      Width = 226
      Height = 20
      MaxLength = 4
      TabOrder = 5
      Text = '0000'
    end
  end
  object edCardNo: TMaskEdit
    Left = 96
    Top = 16
    Width = 225
    Height = 20
    MaxLength = 16
    TabOrder = 0
  end
  object edEmpId: TMaskEdit
    Left = 96
    Top = 48
    Width = 225
    Height = 20
    MaxLength = 6
    TabOrder = 1
    OnKeyPress = edEmpIdKeyPress
  end
  object btnOK: TButton
    Left = 199
    Top = 207
    Width = 75
    Height = 25
    Caption = #30830#23450'(&O)'
    Default = True
    ModalResult = 1
    TabOrder = 5
  end
  object btnCancel: TButton
    Left = 286
    Top = 207
    Width = 75
    Height = 25
    Cancel = True
    Caption = #21462#28040'(&C)'
    ModalResult = 2
    TabOrder = 6
  end
  object plPeriods: TPanel
    Left = 16
    Top = 104
    Width = 345
    Height = 97
    BevelOuter = bvLowered
    TabOrder = 3
    object lvPeriods: TListView
      Left = 8
      Top = 8
      Width = 233
      Height = 77
      Columns = <
        item
          Caption = #24320#22987#26102#38388
          Width = 80
        end
        item
          Caption = #32467#26463#26102#38388
          Width = 80
        end>
      HideSelection = False
      MultiSelect = True
      ReadOnly = True
      RowSelect = True
      SortType = stText
      TabOrder = 0
      ViewStyle = vsReport
      OnDblClick = lvPeriodsDblClick
    end
    object btnAdd: TButton
      Left = 256
      Top = 16
      Width = 70
      Height = 24
      Caption = #28155#21152'(&A)'
      TabOrder = 1
      OnClick = btnAddClick
    end
    object btnDelete: TButton
      Left = 256
      Top = 48
      Width = 70
      Height = 24
      Caption = #21024#38500'(&D)'
      TabOrder = 2
      OnClick = btnDeleteClick
    end
  end
  object cbPeriods: TCheckBox
    Left = 96
    Top = 80
    Width = 153
    Height = 17
    Caption = #36890#34892#26102#27573#26684#24335'(880,890)'
    Checked = True
    State = cbChecked
    TabOrder = 2
    OnClick = cbPeriodsClick
  end
end