vardeclare.bas

依时利 EastRiver IC卡考勤机写卡程 VB

Attribute VB_Name = "ER_Variables"
Option Explicit

'{                                                                     }
'{     EastRiver Interface Program        }
'{                                                                     }
'{         Author:WuLiFeng                          }
'{                                                                     }
'{               2003.11.18                                 }
'{                                                                     }

'

' Declaration of the Type of catched
Dim PClockInfo() As TClockInfo
Type TClockInfo
    hPort As Long
    clock_id As String
    clock_name As String
    Ver As String
    Mark As Byte
    bIs880 As Boolean
    ICID As Boolean
    Fireware As Double
    port  As Long
    baudrate As Long
    SelType As Long
    DeviceType As Long
    Clock_Type  As Long
    Mode As Long
    SystemMode As Long
    ExtraMode As Long
    Block As Long
    DispCardLen As Long
    CardLen As Long
    GroupStation As Long
    CmdVerify As Boolean
    GroupCheck As Boolean
    Connected As Boolean
End Type


'  here have some difference of the delphi defines,check it later
Dim PICCardNoStruct As TICCardNoStruct
Type TICCardNoStruct
       'ER-830C卡号部分
        cardno As Long
        '只使用低20位
         'ER-830C卡号格式
        loCardNo  As String        '低16位卡号
        hiCardNo As Byte            '高4位卡号
        cardTimes As String       '加卡次数
        CardMoney As String   '消费卡金额
        flag As Byte                    '保留(设为0)
        'ER-880C卡号格式
        Bytes(0 To 7)   As Byte
  End Type

Public PClockerTime As TClockerTime
Public Type TClockerTime
    StartTime As String * 6
    EndTime As String * 6
End Type

Type TRingTime
    hour        As Long
    minute      As Long
    second      As Long
    ringTimeLen As Long
End Type

Type TICRecord
    card       As String * 20    ' 卡号字符串
    TimeString   As String * 20    ' 14位刷卡时间字符串, 格式为yyyymmddhhnnss
    EmpId        As String * 10
    Mark       As Long               ' 读卡机标识字符
    flag       As Long                ' 存储卡的结果
            ' flag = 0   : 表示为正常卡
                           ' flag.0 = 1 : 表示为非法门禁卡
                           ' flag.1 = 1 : 表示为非法考勤卡
                           ' flag.2 = 1 : 表示为黑名单卡
    cardTimes As Long            ' 发卡次数, 0-15
    cardGroup As Long           ' 卡的组别, 0-255
End Type


'{新型一拖四门禁机 "ER-890" 新增函数}

Type TDoorTimePeriod       '    局部结构表示一个时间点
    TimeHour As Long           '    小时[0..23]
    TimeMinute As Long         '    分钟[0..59]
End Type
  
Dim PDoorTimePeriods  As TDoorTimePeriods
Type TDoorTimePeriods   '    门禁机时段结构
    StartTime As TDoorTimePeriod        '   时段的开始时间
    EndTime As TDoorTimePeriod          '   时段的结束时间
    Right   As Long                   '   本时段的权限，依不同功能而不同
  End Type


Public PCardInfo   As TCardInfo
Type TCardInfo
    cardno As String * 18                    '存储卡号
    IsIDCard As Boolean                      '如果时ID卡为true，否则为false是IC卡
    NoCard As Boolean                        '如果为true，则没有卡片在感应区，此结构其他数据无效
    Reader As Long                               '范围从1-4指几号读头
    flag As Long                                      '打卡结果
    Mark As Long                                     '打卡标志
End Type


Type TCardList
    cardno As String
    EmpId As String
    EmpName As String
    Periods As String
    Pwd As String
    Auts As Long
End Type