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 
|