CrcDasCard30.dll 卡片操作库的VB声明
Option Explicit
Declare Function Init_SysCard Lib "CrcDasCard30" (ByVal icdev&, ByRef rec As Struct_XfRec_Used_Info, ByVal UserPassword As String, ByVal CommPassword$) As Long
Declare Function MakeSysSubCard Lib "CrcDasCard30" (ByVal icdev&, ByVal UserPassword$, ByVal Sector As Byte, ByVal ExchInfoReg As Byte) As Long
Declare Function MakeSysSubCard_N Lib "CrcDasCard30" (ByVal icdev&, ByVal UserPassword$, _
ByVal Sector As Byte, ByVal ExchInfoReg As Byte, ByRef CardSN&) As Long
Declare Function ClearSysCard Lib "CrcDasCard30" (ByVal icdev&, ByVal UserPassword$) As Long
Declare Function Load_Author Lib "CrcDasCard30" (ByVal name As String) As Long
Declare Function Updata_SysCard Lib "CrcDasCard30" (ByVal icdev&, ByRef UserPassword$, ByRef CommPassword$, ByRef SyscardVer$) As Long
Declare Function rf_init Lib "RfReader" (ByVal icdev&, ByVal qq As Long) As Long
Declare Function rf_exit Lib "RfReader" (ByVal icdev&) As Long
Declare Function MakeCard Lib "CrcDasCard30" (ByVal icdev&, ByVal UserPassword$, ByRef rec As Struct_Basic_Info, ByRef CardSN&) As Long
Declare Function MakeCard_N Lib "CrcDasCard30" (ByVal icdev&, ByVal UserPassword$, _
ByRef rec As Struct_Basic_Info, ByRef CardSN&, ByVal UserCardType$) As Long
Declare Function ReclaimCard Lib "CrcDasCard30" (ByVal icdev&, ByVal UserPassword$, ByVal beepEnable As Boolean, ByVal strResult$, ByVal CardType As Byte) As Long
Declare Function GetBasicInfo Lib "CrcDasCard30" (ByVal icdev&, ByRef rec As Struct_Basic_Info, ByRef CardSN&) As Long
' Declare Function SetConsumeGroupType Lib "CrcDasCard30" (ByVal icdev&, ByRef UserCardType() As Byte, ByVal UserPassword$, ByVal Sector As Byte, ByVal CardSN&) As Long
''' Declare Function SetConsumeGroupType Lib "CrcDasCard30" (ByVal icdev&, ByRef UserCardType As Byte, ByVal UserPassword$, ByVal Sector As Byte, ByVal CardSN&) As Long
Declare Function SetConsumeGroupType Lib "CrcDasCard30" (ByVal icdev&, ByVal UserCardType$, ByVal UserPassword$, ByVal Sector As Byte, ByVal CardSN&) As Long
Declare Function SetCardBalance Lib "CrcDasCard30" (ByVal icdev&, ByVal Money&, ByVal UserPassword$, ByVal Sector As Byte, ByVal CardSN&) As Long
Declare Function SetCardBalance_N Lib "CrcDasCard30" (ByVal icdev&, ByVal Money&, ByVal UserPassword$, ByVal Sector As Byte, ByVal CardSN&) As Long
Declare Function SetCardBalance_NN Lib "CrcDasCard30" _
(ByVal icdev&, ByVal Money&, ByVal UserPassword$, ByVal Sector As Byte, ByVal CardSN&, ByVal SetDate&) As Long
Declare Function SetDayMaxExpenditure Lib "CrcDasCard30" (ByVal icdev&, ByVal Money As Long, ByVal UserPassword$, ByVal Sector As Byte, ByVal CardSN&) As Long
Declare Function SetTimeMaxExpenditure Lib "CrcDasCard30" (ByVal icdev&, ByVal Money As Long, ByVal UserPassword$, ByVal Sector As Byte, ByVal CardSN&) As Long
' Declare Function SetConsumeLimitTime Lib "CrcDasCard30" (ByVal icdev&, ByRef Sec() As Struct_Consume_Limit_Time, ByVal UserPassword$, ByVal Sector As Byte, ByVal CardSN&) As Long
Declare Function SetConsumeLimitTime Lib "CrcDasCard30" (ByVal icdev&, ByRef Sec As Struct_Con_Li_TiS, ByVal UserPassword$, ByVal Sector As Byte, ByVal CardSN&) As Long
Declare Function SetConValidateTime Lib "CrcDasCard30" (ByVal icdev&, ByVal ValidateTime As String, ByVal UserPassword$, ByVal Sector As Byte, ByVal CardSN&) As Long
Declare Function BatchSetConCard Lib "CrcDasCard30" (ByVal icdev&, ByVal UserPassword$, ByVal Sector As Byte, _
ByVal DayMaxMoney&, ByVal TimeMaxMoney&, ByVal ValidateTime As String, ByRef Sec As Struct_Con_Li_TiS, ByVal CardSN&) As Long
Declare Function SetConPasword Lib "CrcDasCard30" (ByVal icdev&, ByVal Password As Long, ByVal UserPassword$, ByVal Sector As Byte, ByVal CardSN&) As Long
Declare Function GetConsumeInfo Lib "CrcDasCard30" (ByVal icdev&, ByRef Sec As Struct_Consume_Info, ByVal Sector As Byte, ByRef CardSN&) As Long
Declare Function MakeOperatorCard Lib "CrcDasCard30" (ByVal icdev&, ByVal OperatorCode As Byte) As Long
Declare Function ReadOperatorCard Lib "CrcDasCard30" (ByVal icdev&, ByRef OperatorCode As Byte) As Long
Declare Function CheckCardSecInfo Lib "CrcDasCard30" (ByVal icdev&, ByVal Result$, ByRef CardSN&) As Long
Declare Function GetLicInfo Lib "CrcDasCard30" _
(ByVal CommPassword$, ByVal UserPassword$, ByVal SysCardNo$, ByRef rec As Struct_XfRec_Used_Info) As Long
Declare Function GetConsumeSecInfo Lib "CrcDasCard30" (ByVal icdev&, _
ByVal UserCardType$, _
ByRef Balance&, _
ByRef DayMaxExpenditure&, _
ByRef DaySecExpenditure&, _
ByRef ConsumeTimes&, _
ByRef LastConsumeDevAdd&, _
ByRef WriteCardFlag As Integer, _
ByVal ConsumeValidateTime$, _
ByRef ConsumePass As Integer, _
ByRef ConsumeLimitTime As Struct_Con_Li_TiS, _
ByVal Sector As Byte, _
ByRef CardSN&) As Long
Declare Function SetCarValidateTime Lib "CrcDasCard30" _
(ByVal icdev&, ByVal ValidateTime As String, _
ByVal UserPassword$, ByVal CardSN&) As Long
Declare Function RepairConCard Lib "CrcDasCard30" (ByVal icdev&, _
ByVal Money&, ByVal ConsumeTimes&, _
ByVal UserPassword$, ByVal Sector As Byte, ByVal CardSN As Long) As Long
Declare Function GetCardFixNo Lib "CrcDasCard30" (ByVal icdev&, ByRef CardSN As Long) As Long
Declare Function EnableConCard Lib "CrcDasCard30" (ByVal icdev&, ByVal UserPassword$, _
ByVal Sector As Byte, ByVal CardSN As Long) As Long
Declare Function SetDoorPasword Lib "CrcDasCard30" (ByVal icdev&, ByVal Password As Long, ByVal UserPassword$, ByVal Sector As Byte, ByVal CardSN&) As Long
Declare Function GetDoorSecInfo Lib "CrcDasCard30" (ByVal icdev&, _
ByVal DoorGroupType$, _
ByVal DblCardCtrlMode$, _
ByRef DoorGroupWeekLimit As Byte, _
ByRef IOMultiDoorCtrl As Byte, _
ByVal DoorValidateTime$, _
ByRef DoorPass As Integer, _
ByRef strAryCardSpanLimit As AryCardSpanLimit, _
ByVal Sector As Byte, _
ByRef CardSN&) As Long
Type Struct_XfRec_Used_Info
BasicInfoSec As Byte
PublicExchangeSec As Byte
WorkSec(0 To 12) As Byte
End Type
Type Struct_Consume_Limit_Time
StartTime As String * 5
EndTime As String * 5
Init_Value As Byte '限次初值
Total_Time As Byte '限次累计
End Type
Type Struct_Consume_Info
ConsumeGroupType As String * 33 '消费用户卡类
Balance As Long '卡余额
DayMaxExpenditure As Long '日最大消费金额
DaySecExpenditure As Long '卡片级最大消费限额
ConsumeTimes As Long '//消费次数
LastConsumeDevAdd As Long '//上次消费地址号
WriteCardFlag As Integer '//上次刷卡是否成功
ConsumeValidateTime As String * 7 '//用户消费有效期限yyyymmdd
ConsumePass As Integer '//
'' ConsumePass As Long '//用户消费密码
ConsumeLimitTime(3) As Struct_Consume_Limit_Time
End Type
Type Struct_Basic_Info
SerialNo As Long
Validate As String * 7
Identity As String * 19
IcCarfNo As String * 13
EmpName As String * 17
Gender As Byte '1=男 0=女
End Type
Type Struct_Con_Li_TiS
StructConsumeLimitTime(3) As Struct_Consume_Limit_Time
End Type
Type Card_Span_Limit
StartTime As String * 5
EndTime As String * 5
End Type
Type AryCardSpanLimit
StructCardSpanLimit(3) As Card_Span_Limit
End Type