第四章 考勤管理软件实现 29
发卡窗体用来实现对IC卡信息的写入。通过mscomm控件实现和读卡器之间的通信。当写卡成功时跳出“写卡失败”对话框，反之出现“写卡成功”对话框。
图4.2 发卡窗口
发卡实现过程：
（1）通过文本输入框爸工号信息存入data数组，程序如下： If textgh = \MsgBox (\请输入工号!\Else
S = Len(textgh) For i = 1 To S
DATA(15 - S + i) = Mid(textgh, i, 1) Next i End If
（2）把秘钥B存入KEYB
If Len(Textkey.Text) = 12 Then '检验16进制字符串长 j = 0
For i = 0 To 12 Step 2
KEYB(j) = Val(\j = j + 1 Next i
30 基于IC卡的考勤管理系统设计
Else
MsgBox (\输入格式不对!\End If
（3）把写卡数据存入数组SEND SEND(0) = &H7F SEND(1) = &H19 SEND(2) = &H15 SEND(3) = &H4 For i = 0 To 5
SEND(4 + i) = KEYB(i) Next i For i = 0 To 15
SEND(10 + i) = DATA(i) Next i For i = 0 To 25 Next i
（4）异或校验，将发送数据存入数组sj中 temp = 0 For i = 1 To 25
temp = (temp Xor SEND(i)) Next
sj(26) = Val(temp) For i = 0 To 25 sj(i) = SEND(i) Next i
（5） 将信息通过 MSComm 控件发送给写卡器 If MSComm1.PortOpen = True Then MSComm1.Output = sj Else
MSComm1.PortOpen = True
第四章 考勤管理软件实现 31
Shape1.FillColor = vbGreen MSComm1.Output = sj End If End Sub
4.4开始考勤窗体设计
开始考勤窗体用来实现对员工的考勤，同样采用mscomm控件与读卡器进行通信。该窗体首先完成对IC卡信息的读取，再与后台数据库进行判别该 IC卡是否合法。若合法对该员工进行考勤并将考勤信息存入后台数据库，然后跳出“考勤成功”对话框；若不合法，该窗体初始化，跳出“考勤失败”对话框。
图4.3 考勤窗体
数据库链接语句：Dim cn As New ADODB.Connection cn.Open(\ilong.mdb;Persist Security Info=False\
查表语句：
\员工信息表 where 工号='\ (S为员工工号)
考勤信息存入考勤信息表语句：
insert into 考勤信息表(工号,姓名) select * from 员工信息表(工号,姓名) where 工号='\
32 基于IC卡的考勤管理系统设计
4.5考勤管理窗体设计
考勤管理窗体用来实现对考勤信息的查询和管理，分别可以按工号、姓名、日期进行分类查找。
图4.4考勤管理窗口
查找语句示例：select * from 考勤信息表 where 姓名='\
4.6 员工管理窗体设计
员工管理窗体用来实现对员工的添加、删除等操作。窗体使用了DATA、DATAGRID、Adodc等控件
