er_const.bas

来自「依时利 EastRiver IC卡考勤机写卡程 VB」· BAS 代码 · 共 29 行

Attribute VB_Name = "mdConst"
Option Explicit

 '新门禁机常量
  Public Const INOUT_RIGHT = &H0   ' 出入权限设置
  Public Const CIPHER_ENABLE = &H1   ' 密码检测时段
  Public Const ALERT_ENABLE = &H2      '报警生效时段
  Public Const BUTTON_ENABLE = &H3   '按键生效时段
  Public Const OPEN_DOOR = &H4      '电锁常开时段
  Public Const MAGNETISM_ENABLE = &H5      '门磁检测时段
  Public Const HOLIDAY_OPENRIGHT = &H6        '节假日开门时段与权限
  Public Const SUPERUSERPWD_ENABLE = &H7          '超级用户密码时段

 ' IC卡读写卡号格式常量
  Public Const CARDSTYLE_UNKNOWN = "0000"            '未知卡号格式(可能为空)
  Public Const CARDSTYLE_IDCARD = "0001"           'ID卡格式
  Public Const CARDSTYLE_UTFCARD = "0002"         '自定义卡格式
  Public Const CARDSTYLE_OLDCARD = "0830"          '旧ER-680C消费卡格式
  Public Const CARDSTYLE_NEWCARD = "0880"       '新ER-880C卡格式

 '  通讯卡号格式转换方法
  Public Const CS_AUTO = &H0      '对880机具调用默认处理，880D=ID_NOCONVERT,880C=IC_CONVERT,新型门禁机=IC_CONVERT
                           '如果卡号为16位标准卡则ID，IC都不变换
  Public Const CS_GENERAL = &H1       '不转换卡格式(明文)
  Public Const CS_NEWCARD = &H2          'IC卡号，需要变换成IC标准卡号
  Public Const CS_OLDCARD = &H3       '转换成旧ER-830C IC卡类型
  Public Const CS_IDCARD = &H4         'ID卡号，变换成16位标准卡号即最高两个位时'EF'