form3.vb

首先利用Sql Sever数据库作为后台

        Me.SqlInsertCommand2.Connection = Me.SqlConnection1
        Me.SqlInsertCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@IC卡号", System.Data.SqlDbType.VarChar, 20, "IC卡号"))
        Me.SqlInsertCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@姓名", System.Data.SqlDbType.VarChar, 10, "姓名"))
        Me.SqlInsertCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@门禁权限", System.Data.SqlDbType.VarChar, 10, "门禁权限"))
        '
        'SqlSelectCommand2
        '
        Me.SqlSelectCommand2.CommandText = "SELECT IC卡号, 姓名, 门禁权限 FROM 门禁权限信息"
        Me.SqlSelectCommand2.Connection = Me.SqlConnection1
        '
        'SqlUpdateCommand2
        '
        Me.SqlUpdateCommand2.CommandText = "UPDATE 门禁权限信息 SET IC卡号 = @IC卡号, 姓名 = @姓名, 门禁权限 = @门禁权限 WHERE (IC卡号 = @Original_IC" & _
        "卡号) AND (姓名 = @Original_姓名 OR @Original_姓名 IS NULL AND 姓名 IS NULL) AND (门禁权限 = @" & _
        "Original_门禁权限 OR @Original_门禁权限 IS NULL AND 门禁权限 IS NULL); SELECT IC卡号, 姓名, 门禁权限" & _
        " FROM 门禁权限信息 WHERE (IC卡号 = @IC卡号)"
        Me.SqlUpdateCommand2.Connection = Me.SqlConnection1
        Me.SqlUpdateCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@IC卡号", System.Data.SqlDbType.VarChar, 20, "IC卡号"))
        Me.SqlUpdateCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@姓名", System.Data.SqlDbType.VarChar, 10, "姓名"))
        Me.SqlUpdateCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@门禁权限", System.Data.SqlDbType.VarChar, 10, "门禁权限"))
        Me.SqlUpdateCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_IC卡号", System.Data.SqlDbType.VarChar, 20, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "IC卡号", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlUpdateCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_姓名", System.Data.SqlDbType.VarChar, 10, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "姓名", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlUpdateCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_门禁权限", System.Data.SqlDbType.VarChar, 10, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "门禁权限", System.Data.DataRowVersion.Original, Nothing))
        '
        'Form3
        '
        Me.AutoScaleBaseSize = New System.Drawing.Size(6, 14)
        Me.ClientSize = New System.Drawing.Size(584, 358)
        Me.Controls.Add(Me.Button3)
        Me.Controls.Add(Me.Button2)
        Me.Controls.Add(Me.AxMSComm1)
        Me.Controls.Add(Me.Label5)
        Me.Controls.Add(Me.Button1)
        Me.Controls.Add(Me.TextBox4)
        Me.Controls.Add(Me.TextBox3)
        Me.Controls.Add(Me.TextBox2)
        Me.Controls.Add(Me.TextBox1)
        Me.Controls.Add(Me.DataGrid1)
        Me.Controls.Add(Me.Label4)
        Me.Controls.Add(Me.Label3)
        Me.Controls.Add(Me.Label2)
        Me.Name = "Form3"
        Me.Text = "刷卡界面"
        CType(Me.DataGrid1, System.ComponentModel.ISupportInitialize).EndInit()
        CType(Me.DataSet11, System.ComponentModel.ISupportInitialize).EndInit()
        CType(Me.Timer1, System.ComponentModel.ISupportInitialize).EndInit()
        CType(Me.AxMSComm1, System.ComponentModel.ISupportInitialize).EndInit()
        Me.ResumeLayout(False)

    End Sub

#End Region
    Private Function hex2(ByRef c As String) As String
        hex2 = Hex(CInt(c))
        If Len(hex2) < 2 Then
            hex2 = "0" & hex2
        End If
    End Function

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        AxMSComm1.PortOpen = False
        Dim frm1 As New Form2
        frm1.Show()
        Me.Visible = False

    End Sub

    Private Sub Form3_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        AxMSComm1.PortOpen = True
        DataSet11.Clear()
        SqlDataAdapter1.Fill(DataSet11)
        TextBox2.Text = DateTime.Now.ToShortDateString()
        TextBox3.Text = DateTime.Now.ToLongTimeString()
        DataGrid1.Update()

    End Sub

    Private Sub Timer1_Elapsed(ByVal sender As System.Object, ByVal e As System.Timers.ElapsedEventArgs) Handles Timer1.Elapsed
        TextBox3.Text = DateTime.Now.ToLongTimeString()
        TextBox3.Refresh()
    End Sub

    'Private Sub Timer2_Elapsed(ByVal sender As System.Object, ByVal e As System.Timers.ElapsedEventArgs)
    'Dim jihao As Byte
    'If TextBox4.Text.Length <> 0 Then
    'jihao = CByte(TextBox4.Text)
    'AxMSComm1.OutBufferCount = 0
    'AxMSComm1.InBufferCount = 0
    'Dim bytecodeact(3) As Byte
    'bytecodeact(1) = &HAA
    ' bytecodeact(2) = jihao
    'bytecodeact(3) = &HBB
    'AxMSComm1.Output = bytecodeact
    ' End If
    'End Sub



    Private Sub AxMSComm1_OnComm(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AxMSComm1.OnComm
        Dim bytedata As Object
        Dim i As Integer
        Dim dataread() As Byte
        Dim readstr As String
        readstr = ""
        Select Case AxMSComm1.CommEvent
            Case MSCommLib.OnCommConstants.comEvReceive
                bytedata = AxMSComm1.Input
                ReDim dataread(UBound(bytedata))
                For i = 0 To UBound(bytedata)
                    dataread(i) = bytedata(i)
                    readstr = readstr & hex2(CStr(dataread(i)))
                Next i
                If readstr.Substring(0, 2) = "FF" Then
                    TextBox1.Text = readstr.Substring(6, 8)
                End If
        End Select
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        SqlConnection1.Open()
        SqlCommand1.Connection = SqlConnection1
        SqlCommand1.CommandText = "update 刷卡记录 set 刷卡日期 ='" & TextBox2.Text & "' where IC卡号='" & TextBox1.Text & "'"
        SqlCommand1.ExecuteNonQuery()
        DataSet11.Clear()
        SqlDataAdapter1.Fill(DataSet11)


        SqlCommand1.CommandText = "update 刷卡记录 set 刷卡时间 ='" & TextBox3.Text & "' where IC卡号='" & TextBox1.Text & "'"
        SqlCommand1.ExecuteNonQuery()
        DataSet11.Clear()
        SqlDataAdapter1.Fill(DataSet11)
        SqlConnection2.Open()
        SqlCommand2.Connection = SqlConnection1
        SqlCommand2.CommandText = "select * from 门禁权限信息 where IC卡号='" & TextBox1.Text & "'"
        SqlCommand2.ExecuteNonQuery()
        SqlDataAdapter2.SelectCommand.CommandText = "select * from 门禁权限信息 where IC卡号='" & TextBox1.Text & "'"
        SqlDataAdapter2.Fill(DataSet11)
        DataSet11.Clear()
        SqlDataAdapter2.Fill(DataSet11)
        SqlConnection2.Close()
        SqlConnection1.Close()
    End Sub

    Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged

    End Sub

    Private Sub Label5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label5.Click

    End Sub

    Private Sub TextBox4_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox4.TextChanged

    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        Dim jihao As Byte
        jihao = CByte(TextBox4.Text)
        AxMSComm1.OutBufferCount = 0
        AxMSComm1.InBufferCount = 0
        Dim bytecodeact(3) As Byte
        bytecodeact(1) = &HAA
        bytecodeact(2) = jihao
        bytecodeact(3) = &HBB
        AxMSComm1.Output = bytecodeact
    End Sub
End Class