Ic卡在中小学校校产与教学物资管理的探索.docVIP

Ic卡在中小学校校产和教学物资管理运用的探索 武汉徐东路学校 蒋星桥 关键词: ic卡 学校资产、教学物资管理 信息化管理 随着信息化、智能化技术的推进，各个领域对信息技术的运用越来越广泛。学校的资产、教学物质品种繁多，管理分散。进出库频繁。长期以来都是手工建账、人工管理。效率很低、并容易出错。 笔者尝试将非接触式ic卡技术运用到总务财产管理中，利用ic卡的唯一性作为资产和校产管理的电子凭证，改变了传统手工帐本记账、对账繁琐，提高了管理效率，减少差错，使得后勤管理走上信息化的道路。 Ic卡是一种非接触式射频磁卡，非接触式IC卡与读写设备之间无机械接触，避免了由于接触读写而产生的各种故障；卡可以重复写次数为100,000次，读操作次数无限；非接触式卡的有不可更改的全球的芯片唯一序列号；与读写器之间采用双向验证机制，在数据处理前要与读写器进行三次相互认证，而且在通讯过程中所有的数据都加密；破解难度大。一般用于电子钱包、储值卡、智能门禁等。武汉通就是非接触ic卡应用的例子。 一、系统软硬件 本例采用明泰mrf35 ic读写器，串口通讯、usb口取电。十分便捷。ic卡采用m1卡，属于逻辑加密卡，又称智能卡，M1卡分为16扇区，每扇区分为4块,每块16字节;扇区前3块为数据块,用于存贮数据 ;最后1块为控制块, 存放密码A、存取控制、密码B ，0块用于存放厂商代码,已经固化 ，IC卡的读写以块为单位，由于我们只用该卡做电子凭证使用，所以对卡容量要求不高，只需存储用户姓名即可。在设计上只需将姓名信息存放在1区1块内。 软件系统采用vb+ access数据库。主要是用来完成读取ic卡信息和财产管理。 二、工作原理 系统启动后ic卡读写器首先进行通讯自检，自检成功后发出鸣叫声，并处于寻卡状态。否则窗口出现出错提示。 当读写器发现有ic卡在读写区时，首先验证该卡密码，通过后读取1区1块的数据，并在数据库查找该用户数据，显示在个人借用窗口。否则窗口显示非法用户。代码如下： Private Sub read() 读卡函数 On Error GoTo errkb st = rf_card(ByVal icdev, 0, Snr) 寻卡 If st 0 Then st = rf_beep(icdev, 100) MsgBox 寻卡出错,请贴近读卡器重新刷卡! Exit Sub Else End If loadmode = 0 密码装载模式0 sector = 1 扇区1 st = rf_authentication(ByVal icdev, loadmode, sector) 密码校验 If st 0 Then st = rf_beep(icdev, 100) MsgBox 该卡不是本系统用户！! Exit Sub Else End If st = rf_read(icdev, 12, databuff32) 读卡数据 If st 0 Then st = rf_beep(icdev, 100) MsgBox 读卡出错！ Exit Sub Else End If Call s_ReadFile(Trim(Left(databuff32, InStr(databuff32, f) - 1))) 按值传递方式 st = rf_halt(icdev) 终止卡操作 st = rf_beep(icdev, 10) Exit Sub Errkb: Call err End Sub 读取用户信息后，调用查找函数，并显示该用户的财产信息。部分代码如下： s_ReadFile(ByValreaddataAsString) Dim cn As Connection Dim Stm As ADODB.Stream Dim rs As ADODB.Recordset cn.Open Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False _ ;Data Source=d:\db3.mdb Set cn = New ADODB.Connec