form6.vb

食堂消费刷卡系统

        Me.Label3.ForeColor = System.Drawing.Color.Thistle
        Me.Label3.Location = New System.Drawing.Point(344, 200)
        Me.Label3.Name = "Label3"
        Me.Label3.Size = New System.Drawing.Size(64, 21)
        Me.Label3.TabIndex = 21
        Me.Label3.Text = "余额"
        '
        'Label4
        '
        Me.Label4.Font = New System.Drawing.Font("Microsoft Sans Serif", 14.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(134, Byte))
        Me.Label4.ForeColor = System.Drawing.Color.Thistle
        Me.Label4.Location = New System.Drawing.Point(344, 104)
        Me.Label4.Name = "Label4"
        Me.Label4.Size = New System.Drawing.Size(96, 21)
        Me.Label4.TabIndex = 23
        Me.Label4.Text = "刷卡机号"
        '
        'TextBox4
        '
        Me.TextBox4.BackColor = System.Drawing.Color.FromArgb(CType(192, Byte), CType(255, Byte), CType(192, Byte))
        Me.TextBox4.Location = New System.Drawing.Point(440, 104)
        Me.TextBox4.Name = "TextBox4"
        Me.TextBox4.Size = New System.Drawing.Size(120, 21)
        Me.TextBox4.TabIndex = 22
        Me.TextBox4.Text = ""
        '
        'Form6
        '
        Me.AutoScaleBaseSize = New System.Drawing.Size(6, 14)
        Me.BackColor = System.Drawing.Color.Black
        Me.ClientSize = New System.Drawing.Size(576, 293)
        Me.Controls.Add(Me.Label4)
        Me.Controls.Add(Me.TextBox4)
        Me.Controls.Add(Me.Label3)
        Me.Controls.Add(Me.Label2)
        Me.Controls.Add(Me.TextBox2)
        Me.Controls.Add(Me.TextBox3)
        Me.Controls.Add(Me.Button2)
        Me.Controls.Add(Me.PictureBox1)
        Me.Controls.Add(Me.Label1)
        Me.Controls.Add(Me.TextBox1)
        Me.Controls.Add(Me.MSComm1)
        Me.Name = "Form6"
        Me.Text = "余额查询"
        CType(Me.MSComm1, System.ComponentModel.ISupportInitialize).EndInit()
        CType(Me.Timer1, System.ComponentModel.ISupportInitialize).EndInit()
        CType(Me.DataSet21, System.ComponentModel.ISupportInitialize).EndInit()
        CType(Me.DataSet11, System.ComponentModel.ISupportInitialize).EndInit()
        Me.ResumeLayout(False)

    End Sub

#End Region

    Private Sub Form6_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        'DataSet21.Clear()

        MSComm1.CommPort = 3
        MSComm1.Settings = "19200,N,8,1"
        MSComm1.InBufferSize = 1024
        MSComm1.OutBufferSize = 1024
        MSComm1.InputMode = MSCommLib.InputModeConstants.comInputModeBinary
        MSComm1.InputLen = 0
        MSComm1.RThreshold = 1
        MSComm1.PortOpen = True

        Timer1.Interval = 2000
        Timer1.Enabled = True
    End Sub
    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 readstr As String
    Private Sub MSComm1_OnComm(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MSComm1.OnComm
        Timer1.Enabled = False
        Dim i As Object
        Dim dataread() As Byte
        Dim bytdata As Object
        On Error Resume Next
        Select Case MSComm1.CommEvent
            Case MSCommLib.OnCommConstants.comEvReceive
                readstr = ""
                bytdata = MSComm1.Input
                ReDim dataread(UBound(bytdata))

                For i = 0 To UBound(bytdata)
                    dataread(i) = bytdata(i)
                    readstr = readstr & hex2(CStr(dataread(i)))
                Next i

                If readstr.Substring(0, 2) = "FF" And readstr.Substring(18, 2) = "FF" Then
                    If readstr.Substring(2, 2) = "01" Then
                        TextBox1.Text = readstr.Substring(6, 8)
                    End If
                End If
                'End If
        End Select
        'SqlConnection1.Open()
        'SqlDataAdapter1.SelectCommand.CommandText = "select * from 食堂 where IC卡号 = '" & TextBox1.Text & "'"
        'SqlDataAdapter1.SelectCommand.ExecuteNonQuery()
        'SqlConnection1.Close()
        'DataSet21.Clear()
        'SqlDataAdapter1.Fill(DataSet21)
        'If DataSet21.食堂.Rows.Count = 0 Then
        '    DataSet21.Clear()
        '    TextBox1.Text = ""
        '    TextBox2.Text = ""
        '    TextBox3.Text = ""
        '    MessageBox.Show("对不起，您不是注册用户。")
        'ElseIf DataSet21.食堂.Rows.Count = 1 Then
        '    TextBox2.Text = DataSet21.食堂.Rows(0).Item(1).ToString
        '    TextBox3.Text = DataSet21.食堂.Rows(0).Item(2).ToString
        'End If
        Timer1.Enabled = True
    End Sub

    Private Sub PictureBox1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox1.Click

    End Sub

    Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged
        SqlConnection1.Open()
        SqlDataAdapter1.SelectCommand.CommandText = "select * from 食堂 where IC卡号 = '" & TextBox1.Text & "'"
        SqlDataAdapter1.SelectCommand.ExecuteNonQuery()
        SqlConnection1.Close()
        DataSet21.Clear()
        SqlDataAdapter1.Fill(DataSet21)
        If DataSet21.食堂.Rows.Count = 0 Then
            MessageBox.Show("对不起，您不是注册用户。")
            DataSet21.Clear()
            TextBox1.Text = ""
            TextBox2.Text = ""
            TextBox3.Text = ""

        ElseIf DataSet21.食堂.Rows.Count = 1 Then
            TextBox2.Text = DataSet21.食堂.Rows(0).Item(1).ToString
            TextBox3.Text = DataSet21.食堂.Rows(0).Item(2).ToString
        End If
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)

    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Timer1.Enabled = False
        MSComm1.PortOpen = False
        Me.Hide()
    End Sub
    Dim kahao As Byte
    Private Sub Timer1_Elapsed(ByVal sender As System.Object, ByVal e As System.Timers.ElapsedEventArgs) Handles Timer1.Elapsed
        ''If TextBox4.Text.Length > 0 Then
        ''    kahao = CByte(TextBox4.Text)
        ''End If
        'Dim jihao As Byte
        'jihao = 16
        'MSComm1.OutBufferCount = 0
        'MSComm1.InBufferCount = 0
        'Dim bytecodeact(3) As Byte
        'bytecodeact(1) = &HAA
        'bytecodeact(2) = kahao
        'bytecodeact(3) = &HBB
        'MSComm1.Output = bytecodeact

        Dim jihao As Byte
        MSComm1.OutBufferCount = 0
        MSComm1.InBufferCount = 0
        jihao = 1
        Dim bytecodeact(3) As Byte
        bytecodeact(1) = &HAA
        bytecodeact(2) = kahao
        bytecodeact(3) = &HBB
        MSComm1.Output = bytecodeact
    End Sub

    Private Sub TextBox2_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs)

    End Sub

    Private Sub Label3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label3.Click

    End Sub

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

    End Sub

    Private Sub TextBox3_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox3.TextChanged

    End Sub
End Class