作者：未知 来源：月光软件站 加入时间：2005-2-28　月光软件站

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

相关软件：