用一个id卡,通过串口第一次刷代表上班,第二次刷代表下班。通过软件记录卡ID号和上班时间、下班时间

解决方案 »

  1.   

    确实是这样。不过我们的要求是使用一现成的读卡器,RFID卡,通过USB连入PC,然后在VB上通过MSComm读取卡号在text框中显示,卡号例如95 D7 92 1D这样子。
      

  2.   

    目前如下代码还是无法通过刷卡显示卡号
    Option ExplicitPrivate Sub Command1_Click()
    Dim number As Integer
    Dim outbyte(0) As Byte
    number = Val(Text1.Text)
    outbyte(0) = CByte(number)
    MSComm1.OutBufferCount = 0
    MSComm1.Output = outbyteEnd Sub
    Private Sub Form_Load()
    MSComm1.CommPort = 3
    MSComm1.Settings = "9600,N,8,1"
    MSComm1.EOFEnable = True
    MSComm1.RThreshold = 1
    MSComm1.InputLen = 0
    MSComm1.PortOpen = True
    MSComm1.InBufferCount = 0
    End SubPrivate Sub MSComm1_OnComm()
    Dim indata As Variant
    Dim arr(0) As Byte
    Select Case MSComm1.CommEvent
       Case commEvReceive
    indata = MSComm1.Input
    arr(0) = AscB(indata)
    Text1.Text = arr(0)
    MSComm1.InBufferCount = 0
    End Select
    End Sub
      

  3.   

    现在都流行app考勤打卡了。还带地理位置的。 
      

  4.   

    rfid 应该有现成的开发包,按要求调用就可以了。 
    打卡记录直接扔数据库就行了上班打卡下班打卡 你怎么判断迟到或者早退呢? 所以就得有班次表与之对应某天没打卡 是因为休息还是因为旷工呢  ? 所以就得有排班表某人凌晨2点打卡  是算今天的上班呢 还是算 前一天的加班呢? 等等 等等   各种各样的情况想想都头大啊所以楼主你想得太简单了