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                  '''

[1] [2]  下一页