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

     要做一套车辆管理系统（带串口的），我已经做到串口刷卡有数据就接收，然后把接收的数据放入表中（这个表有接收串口数据的时间），现在想做这样的功能，要求每张卡20分钟内不能重复刷卡，20分钟后才可以再次刷卡，输入数据到表中。如何实现间隔一段时间才能再次输入数据到表中，请高手指教！！！

如果是请教，应发附件。

如果是定制软件，应留下你的联系方式。

楼主的要求到是没有碰到过,过一会做个例子看看.

如果每张卡都有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

对哦.

这个用SQLCommand会好一点吧,因为可能不同的刷卡机连接不同的客户端,直接取后台数据来对比

 

 

Dim SQLCmd As New SQLCommand

SQLCmd.ConnectionName = "数据源"

SQLCmd.CommandText = "SELECT COUNT([_Identify]) FROM 表名 WHERE 卡ID = '" & "接收到的卡号" & "' AND DATEDIFF(MI,刷卡时间,GETDATE()) < 20"

Dim Cnt As Integer = SQLCmd.ExecuteScalar

If Cnt > 0 Then Msgbox("您已经在20分钟内刷过卡啦,不能再重复刷了!",64,"提示") : Return

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

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