form4.vb

食堂消费刷卡系统

        Me.TextBox3.Size = New System.Drawing.Size(120, 21)
        Me.TextBox3.TabIndex = 28
        Me.TextBox3.Text = ""
        '
        'Label3
        '
        Me.Label3.Font = New System.Drawing.Font("Microsoft Sans Serif", 14.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(134, Byte))
        Me.Label3.ForeColor = System.Drawing.Color.Black
        Me.Label3.Location = New System.Drawing.Point(24, 184)
        Me.Label3.Name = "Label3"
        Me.Label3.Size = New System.Drawing.Size(112, 21)
        Me.Label3.TabIndex = 26
        Me.Label3.Text = "余额"
        '
        'Label5
        '
        Me.Label5.Font = New System.Drawing.Font("Microsoft Sans Serif", 14.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(134, Byte))
        Me.Label5.ForeColor = System.Drawing.Color.Black
        Me.Label5.Location = New System.Drawing.Point(24, 144)
        Me.Label5.Name = "Label5"
        Me.Label5.Size = New System.Drawing.Size(112, 21)
        Me.Label5.TabIndex = 30
        Me.Label5.Text = "姓名"
        '
        'DataSet31
        '
        Me.DataSet31.DataSetName = "DataSet3"
        Me.DataSet31.Locale = New System.Globalization.CultureInfo("zh-CN")
        '
        'Label6
        '
        Me.Label6.Font = New System.Drawing.Font("Microsoft Sans Serif", 15.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(134, Byte))
        Me.Label6.ForeColor = System.Drawing.Color.Blue
        Me.Label6.Location = New System.Drawing.Point(24, 256)
        Me.Label6.Name = "Label6"
        Me.Label6.Size = New System.Drawing.Size(240, 32)
        Me.Label6.TabIndex = 31
        '
        'Label7
        '
        Me.Label7.BackColor = System.Drawing.SystemColors.Control
        Me.Label7.Font = New System.Drawing.Font("Microsoft Sans Serif", 15.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(134, Byte))
        Me.Label7.ForeColor = System.Drawing.Color.Black
        Me.Label7.Location = New System.Drawing.Point(24, 64)
        Me.Label7.Name = "Label7"
        Me.Label7.Size = New System.Drawing.Size(112, 24)
        Me.Label7.TabIndex = 33
        Me.Label7.Text = "刷卡机号"
        '
        'TextBox5
        '
        Me.TextBox5.BackColor = System.Drawing.Color.FromArgb(CType(192, Byte), CType(255, Byte), CType(255, Byte))
        Me.TextBox5.Location = New System.Drawing.Point(152, 64)
        Me.TextBox5.Name = "TextBox5"
        Me.TextBox5.Size = New System.Drawing.Size(120, 21)
        Me.TextBox5.TabIndex = 34
        Me.TextBox5.Text = ""
        '
        'Form4
        '
        Me.AutoScaleBaseSize = New System.Drawing.Size(6, 14)
        Me.BackgroundImage = CType(resources.GetObject("$this.BackgroundImage"), System.Drawing.Image)
        Me.ClientSize = New System.Drawing.Size(312, 408)
        Me.Controls.Add(Me.TextBox5)
        Me.Controls.Add(Me.TextBox4)
        Me.Controls.Add(Me.TextBox3)
        Me.Controls.Add(Me.TextBox2)
        Me.Controls.Add(Me.TextBox1)
        Me.Controls.Add(Me.Label7)
        Me.Controls.Add(Me.Label6)
        Me.Controls.Add(Me.Label5)
        Me.Controls.Add(Me.Label3)
        Me.Controls.Add(Me.MSComm1)
        Me.Controls.Add(Me.Button2)
        Me.Controls.Add(Me.Button1)
        Me.Controls.Add(Me.Label2)
        Me.Controls.Add(Me.Label4)
        Me.Controls.Add(Me.Label1)
        Me.Name = "Form4"
        Me.Text = "充值"
        CType(Me.MSComm1, System.ComponentModel.ISupportInitialize).EndInit()
        CType(Me.DataSet21, System.ComponentModel.ISupportInitialize).EndInit()
        CType(Me.Timer1, System.ComponentModel.ISupportInitialize).EndInit()
        CType(Me.DataSet31, System.ComponentModel.ISupportInitialize).EndInit()
        Me.ResumeLayout(False)

    End Sub

#End Region

    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 Select
       
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        SqlConnection1.Open()
        SqlCommand1.Connection = SqlConnection1
        SqlCommand1.CommandText = "update 食堂 set 余额 = 余额 + '" & TextBox4.Text & "' where IC卡号 = '" & TextBox1.Text & "'"
        SqlCommand1.ExecuteNonQuery()
        SqlDataAdapter1.SelectCommand.CommandText = "select * from 食堂 where ic卡号='" & TextBox1.Text & "'"
        SqlDataAdapter1.SelectCommand.ExecuteNonQuery()
        DataSet21.食堂.Clear()
        SqlDataAdapter1.Fill(DataSet21.食堂)
        If DataSet21.食堂.Rows.Count = 0 Then
            Label6.Text = "您不是注册用户"
            DataSet21.Clear()
            SqlConnection1.Close()

        ElseIf DataSet21.食堂.Rows.Count <> 0 Then
            SqlConnection1.Close()
            TextBox2.Text = DataSet21.食堂.Rows(0).Item(1).ToString
            TextBox3.Text = DataSet21.食堂.Rows(0).Item(2).ToString
            TextBox4.Text = ""
            Label6.Text = "充值成功"
        End If
    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
    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 Form4_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
    Dim kahao As Byte
    Private Sub Timer1_Elapsed(ByVal sender As System.Object, ByVal e As System.Timers.ElapsedEventArgs) Handles Timer1.Elapsed
        'If TextBox5.Text.Length > 0 Then
        '    kahao = CByte(TextBox5.Text)
        'End If
        '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 Label1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label1.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
            DataSet21.Clear()
            TextBox1.Text = ""
            TextBox2.Text = ""
            TextBox3.Text = ""
            Label6.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
End Class