form5.vb

食堂消费刷卡系统

        '
        'TextBox5
        '
        Me.TextBox5.BackColor = System.Drawing.Color.FromArgb(CType(255, Byte), CType(255, Byte), CType(192, Byte))
        Me.TextBox5.Location = New System.Drawing.Point(160, 224)
        Me.TextBox5.Name = "TextBox5"
        Me.TextBox5.Size = New System.Drawing.Size(120, 21)
        Me.TextBox5.TabIndex = 22
        Me.TextBox5.Text = ""
        '
        'Label6
        '
        Me.Label6.Font = New System.Drawing.Font("Microsoft Sans Serif", 14.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(134, Byte))
        Me.Label6.ForeColor = System.Drawing.Color.Black
        Me.Label6.Location = New System.Drawing.Point(32, 224)
        Me.Label6.Name = "Label6"
        Me.Label6.Size = New System.Drawing.Size(112, 21)
        Me.Label6.TabIndex = 21
        Me.Label6.Text = "用户类型"
        '
        'DataSet31
        '
        Me.DataSet31.DataSetName = "DataSet3"
        Me.DataSet31.Locale = New System.Globalization.CultureInfo("zh-CN")
        '
        'Label7
        '
        Me.Label7.Font = New System.Drawing.Font("Microsoft Sans Serif", 15.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(134, Byte))
        Me.Label7.ForeColor = System.Drawing.Color.Blue
        Me.Label7.Location = New System.Drawing.Point(32, 304)
        Me.Label7.Name = "Label7"
        Me.Label7.Size = New System.Drawing.Size(232, 56)
        Me.Label7.TabIndex = 32
        '
        'Label8
        '
        Me.Label8.Font = New System.Drawing.Font("Microsoft Sans Serif", 14.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(134, Byte))
        Me.Label8.ForeColor = System.Drawing.Color.Black
        Me.Label8.Location = New System.Drawing.Point(32, 72)
        Me.Label8.Name = "Label8"
        Me.Label8.Size = New System.Drawing.Size(112, 21)
        Me.Label8.TabIndex = 34
        Me.Label8.Text = "刷卡机号"
        '
        'TextBox6
        '
        Me.TextBox6.BackColor = System.Drawing.Color.FromArgb(CType(255, Byte), CType(255, Byte), CType(192, Byte))
        Me.TextBox6.Location = New System.Drawing.Point(160, 72)
        Me.TextBox6.Name = "TextBox6"
        Me.TextBox6.Size = New System.Drawing.Size(120, 21)
        Me.TextBox6.TabIndex = 35
        Me.TextBox6.Text = ""
        '
        'Form5
        '
        Me.AutoScaleBaseSize = New System.Drawing.Size(6, 14)
        Me.BackgroundImage = CType(resources.GetObject("$this.BackgroundImage"), System.Drawing.Image)
        Me.ClientSize = New System.Drawing.Size(304, 413)
        Me.Controls.Add(Me.TextBox6)
        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.Label8)
        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 = "Form5"
        Me.Text = "消费管理"
        CType(Me.MSComm1, 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 Form5_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        DataSet31.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 Select
        
        Timer1.Enabled = True
    End Sub
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        If TextBox3.Text <= 0 Then
            Label7.Text = "余额不足，请充值"
            TextBox1.Text = ""
            TextBox2.Text = ""
            TextBox3.Text = ""
            TextBox4.Text = ""
            TextBox5.Text = ""
        ElseIf TextBox3.Text > 0 Then
            If TextBox5.Text = "外来" Then
                SqlConnection1.Open()
                SqlCommand1.Connection = SqlConnection1
                SqlCommand1.CommandText = "update 食堂 set 余额 = 余额-'" & TextBox4.Text & "'-1 where IC卡号 = '" & TextBox1.Text & "'"
                SqlCommand1.ExecuteNonQuery()
                SqlDataAdapter1.SelectCommand.CommandText = "select * from 食堂 where ic卡号='" & TextBox1.Text & "'"
                SqlDataAdapter1.SelectCommand.ExecuteNonQuery()
                DataSet31.食堂.Clear()
                SqlDataAdapter1.Fill(DataSet31.食堂)
                SqlConnection1.Close()

                TextBox2.Text = DataSet31.食堂.Rows(0).Item(1).ToString
                TextBox3.Text = DataSet31.食堂.Rows(0).Item(2).ToString
                TextBox4.Text = ""
                Label7.Text = "您是搭伙消费，金额多扣除1元,扣除成功"
            ElseIf TextBox5.Text = "普通" Then
                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()
                DataSet31.食堂.Clear()
                SqlDataAdapter1.Fill(DataSet31.食堂)
                SqlConnection1.Close()

                TextBox2.Text = DataSet31.食堂.Rows(0).Item(1).ToString
                TextBox3.Text = DataSet31.食堂.Rows(0).Item(2).ToString
                TextBox4.Text = ""
                Label7.Text = "扣除成功"
            End If
        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
    Dim kahao As Byte
    Private Sub Timer1_Elapsed(ByVal sender As System.Object, ByVal e As System.Timers.ElapsedEventArgs) Handles Timer1.Elapsed
        'If TextBox6.Text.Length > 0 Then
        '    kahao = CByte(TextBox6.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 TextBox5_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox5.TextChanged

    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()
        DataSet31.Clear()
        SqlDataAdapter1.Fill(DataSet31)
        If DataSet31.食堂.Rows.Count = 0 Then
            DataSet31.Clear()
            TextBox1.Text = ""
            TextBox2.Text = ""
            TextBox3.Text = ""
            TextBox5.Text = ""
            Label7.Text = "对不起，您不是注册用户。"
        ElseIf DataSet31.食堂.Rows.Count = 1 Then
            TextBox2.Text = DataSet31.食堂.Rows(0).Item(1).ToString
            TextBox3.Text = DataSet31.食堂.Rows(0).Item(2).ToString
            TextBox5.Text = DataSet31.食堂.Rows(0).Item(3).ToString
        End If
    End Sub
End Class