全局代码

Public Declare Function idr_read_once Lib "OUR_IDR.dll" (ByRef pserial As Byte) As Byte \'ID读卡函数声明

Public Declare Function idr_beep Lib "OUR_IDR.dll" (ByVal xms As Long) As Byte \'ID驱动蜂鸣器函数声明

Public _IDKH As String \'ID卡号

自定义函数“ID卡号”

Dim status1 As Byte

Dim a As Integer

Dim mypiccserial(4) As Byte \'ID卡序列号

status1 = idr_read_once(mypiccserial(0))

If status1 = 0 Then

    idr_beep(50) \'2毫秒*50

    a = (Convert.ToString(mypiccserial(1) * 256 * 256 * 256 + mypiccserial(2) * 256 * 256 + mypiccserial(3) * 256 + mypiccserial(4)))

    \'_IDKH = Format((a Mod 256 * 256) + (INT(a /(256 * 256)) Mod 256) * 100000,"00000000")

    _IDKH = a

End If

窗口的TimerTick事件

If Forms("手持终端").Opened() AndAlso Forms.ActiveForm IsNot Nothing AndAlso Forms.ActiveForm.Name = "手持终端"

    Functions.Execute("ID卡号")

    Dim rykh As String = _IDKH \'人员卡号

    Dim pr As DataRow

    If rykh <> "" Then

        pr = DataTables("人员信息").Find("卡号 = \'" & rykh & "\'")

        If pr Is Nothing Then

            e.Form.Controls("TextBox2").Text = Nothing \'单位

            e.Form.Controls("TextBox3").Text = Nothing \'编号

            e.Form.Controls("TextBox4").Text = Nothing \'姓名

            MessageBox.Show("查无此记录!","提示")

            _IDKH = ""

        Else \'非空

            e.Form.Controls("TextBox2").Text = pr("单位")

            e.Form.Controls("TextBox3").Text = pr("编号")

            e.Form.Controls("TextBox4").Text = pr("姓名")

            If pr("保留") = True And pr("单位") = "开发" Then

                e.Form.Controls("Button6").Visible = True

            Else

                e.Form.Controls("Button6").Visible = False

            End If

            _IDKH = ""

        End If

    End If

End If