.NET开发

本类阅读TOP10

·NHibernate快速指南(翻译)
·vs.net 2005中文版下载地址收藏
·【小技巧】一个判断session是否过期的小技巧
·VB/ASP 调用 SQL Server 的存储过程
·?dos下编译.net程序找不到csc.exe文件
·通过Web Services上传和下载文件
·学习笔记(补)《.NET框架程序设计(修订版)》--目录
·VB.NET实现DirectDraw9 (2) 动画
·VB.NET实现DirectDraw9 (1) 托管的DDraw
·建站框架规范书之——文件命名

分类导航
VC语言Delphi
VB语言ASP
PerlJava
Script数据库
其他语言游戏开发
文件格式网站制作
软件工程.NET开发
CrcDasCard30.dll 卡片操作库的VB声明

作者:未知 来源:月光软件站 加入时间: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




相关文章

相关软件