主题：车辆管理数据库（带串口的）的一个功能问题

如果每张卡都有ID，那么每次刷卡记录一下刷卡时间，并检测最近一次刷卡的时间，如果没有超过20分钟，就给出提示，并拒绝登记本次刷卡。

关于如何找出最后一次刷卡的数据，可以看看：

http://www.foxtable.com/help/topics/0396.htm

 

呵呵，老朱的代码有不足，你这样的话，20分钟内只能刷一张卡，而不是一张卡20分钟内只能刷一次。
 
比较合理的大概如此：

Dim id As String = “本次刷卡获得的ID”
dr = DataTables("xxx").Find("卡ID = '" & Id & “'", "刷卡时间 Desc") '找出最后一次订购PD01产品的记录
if dr IsNot Nothing Then
        Dim dt As Date = dr("刷卡时间")
        if (Date.Now - dt) .TotalSeconds < 20 Then
            MessageBox.Show("一张卡20分钟内只能刷一次")
            Return
        End If
End f
dr = DataTables("xxx").AddNew
dr("卡ID") =ID
dr("刷卡时间") = Date.Now

嗯，如果几台电脑的话，只能用sql判断的了。

不过也可以刷卡前AppendLoad一下这个用户的最新数据。