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