form3.vb

食堂消费刷卡系统

        Me.DataGrid1.DataMember = ""
        Me.DataGrid1.DataSource = Me.DataSet11.食堂
        Me.DataGrid1.ForeColor = System.Drawing.Color.Green
        Me.DataGrid1.HeaderForeColor = System.Drawing.SystemColors.ControlText
        Me.DataGrid1.Location = New System.Drawing.Point(8, 16)
        Me.DataGrid1.Name = "DataGrid1"
        Me.DataGrid1.Size = New System.Drawing.Size(344, 256)
        Me.DataGrid1.TabIndex = 0
        '
        'DataSet11
        '
        Me.DataSet11.DataSetName = "DataSet1"
        Me.DataSet11.Locale = New System.Globalization.CultureInfo("zh-CN")
        '
        'TextBox4
        '
        Me.TextBox4.Location = New System.Drawing.Point(248, 16)
        Me.TextBox4.Name = "TextBox4"
        Me.TextBox4.Size = New System.Drawing.Size(112, 21)
        Me.TextBox4.TabIndex = 5
        Me.TextBox4.Text = ""
        '
        '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(104, 16)
        Me.Label7.Name = "Label7"
        Me.Label7.Size = New System.Drawing.Size(112, 24)
        Me.Label7.TabIndex = 6
        Me.Label7.Text = "刷卡机号"
        '
        'Timer2
        '
        '
        'Form3
        '
        Me.AutoScaleBaseSize = New System.Drawing.Size(6, 14)
        Me.BackgroundImage = CType(resources.GetObject("$this.BackgroundImage"), System.Drawing.Image)
        Me.ClientSize = New System.Drawing.Size(600, 445)
        Me.Controls.Add(Me.Label7)
        Me.Controls.Add(Me.TextBox4)
        Me.Controls.Add(Me.MSComm1)
        Me.Controls.Add(Me.GroupBox2)
        Me.Controls.Add(Me.GroupBox1)
        Me.Name = "Form3"
        Me.Text = "用户管理"
        CType(Me.MSComm1, System.ComponentModel.ISupportInitialize).EndInit()
        Me.GroupBox1.ResumeLayout(False)
        Me.GroupBox2.ResumeLayout(False)
        CType(Me.DataGrid1, System.ComponentModel.ISupportInitialize).EndInit()
        CType(Me.DataSet11, 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 SqlConnection1_InfoMessage(ByVal sender As System.Object, ByVal e As System.Data.SqlClient.SqlInfoMessageEventArgs)

    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 readstr As String
    Private Sub Form3_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    

        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
        Timer2.Enabled = True
        Timer1.Enabled = True
    End Sub
    'Private Sub DataGrid1_CurrentCellChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles DataGrid1.CurrentCellChanged
    '    Dim dg As DataGrid
    '    dg = sender
    '    TextBox1.Text = DataSet11.食堂.Rows(dg.CurrentRowIndex).Item(0).ToString()
    '    TextBox2.Text = DataSet11.食堂.Rows(dg.CurrentRowIndex).Item(1).ToString()
    '    TextBox3.Text = DataSet11.食堂.Rows(dg.CurrentRowIndex).Item(2).ToString()
    '    ComboBox1.Text = DataSet11.食堂.Rows(dg.CurrentRowIndex).Item(3).ToString()

    'End Sub

    Private Sub DataGrid1_Navigate(ByVal sender As System.Object, ByVal ne As System.Windows.Forms.NavigateEventArgs) Handles DataGrid1.Navigate

    End Sub
    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
    Dim kahao As Byte
    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        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 TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged
        If SqlConnection1.State = ConnectionState.Closed Then
            SqlConnection1.Open()
        End If
        SqlCommand1.Connection = SqlConnection1
        DataSet11.Clear()
        SqlDataAdapter1.SelectCommand.CommandText = "select * from 食堂 where IC卡号='" & TextBox1.Text & "'"
        SqlDataAdapter1.Fill(DataSet11)
        If DataSet11.食堂.Rows.Count <> 0 Then
            TextBox2.Text = DataSet11.食堂.Rows(0).Item(1).ToString
            TextBox3.Text = DataSet11.食堂.Rows(0).Item(2).ToString
            ComboBox1.Text = DataSet11.食堂.Rows(0).Item(3).ToString
            DataGrid1.Update()
            DataGrid1.Refresh()
            SqlConnection1.Close()
            'SqlDataAdapter1.Fill(DataSet11)
        Else
            TextBox2.Text = ""
            TextBox3.Text = ""
            ComboBox1.Text = ""

        End If
        DataGrid1.Update()
        DataGrid1.Refresh()
        SqlConnection1.Close()
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        If TextBox1.Text.Length <> 0 Then
            SqlConnection1.Open()
            SqlDataAdapter1.SelectCommand.CommandText = "select * from 食堂 where IC卡号 = '" & TextBox1.Text & "'"
            SqlDataAdapter1.SelectCommand.ExecuteNonQuery()
            SqlConnection1.Close()
            DataSet11.Clear()
            SqlDataAdapter1.Fill(DataSet11)
            If DataSet11.食堂.Rows.Count > 0 Then
                Label6.Text = "卡号重复，你不能输入这个卡号"
                DataSet11.Clear()
            ElseIf TextBox2.Text.Length <> 0 Then
                If TextBox3.Text.Length <> 0 Then
                    If ComboBox1.Text.Length <> 0 Then
                        SqlConnection1.Open()
                        SqlCommand1.Connection = SqlConnection1
                        SqlCommand1.CommandText = "insert into 食堂 (IC卡号,姓名,余额,用户类型) values ('" & TextBox1.Text & "','" & TextBox2.Text & "','" & TextBox3.Text & "','" & ComboBox1.Text & "')"
                        SqlCommand1.ExecuteNonQuery()
                        'SqlDataAdapter1.SelectCommand.CommandText = "select * from 食堂 where IC卡号 = '" & TextBox1.Text & "'"
                        'SqlDataAdapter1.SelectCommand.ExecuteNonQuery()
                        DataSet11.食堂.Clear()
                        SqlDataAdapter1.Fill(DataSet11.食堂)
                        DataGrid1.Update()
                        DataGrid1.Refresh()

                        'TextBox1.Text = ""
                        TextBox2.Text = ""
                        TextBox3.Text = ""
                        ComboBox1.Text = ""
                        Label6.Text = "恭喜您，添加用户成功"
                        SqlDataAdapter1.SelectCommand.CommandText = "select * from 食堂 where IC卡号 = '" & TextBox1.Text & "'"
                        SqlDataAdapter1.SelectCommand.ExecuteNonQuery()
                        DataGrid1.Update()
                        DataGrid1.Refresh()
                        SqlConnection1.Close()
                    Else
                        Label6.Text = "对不起，你用户类型没有选择"
                    End If
                Else
                    Label6.Text = "对不起，你余额没有填写"
                End If
            Else
                Label6.Text = "对不起，你姓名没有填写"
            End If
        Else
            Label6.Text = "对不起，你刷卡没有成功"
        End If
        TextBox2.Text = ""
        TextBox3.Text = ""
        ComboBox1.Text = ""
        Timer1.Enabled = False
    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        SqlConnection1.Open()
        SqlCommand1.Connection = SqlConnection1
        SqlCommand1.CommandText = "delete from 食堂 where IC卡号 ='" & TextBox1.Text & "' or 姓名 = '" & TextBox2.Text & "' "
        SqlCommand1.ExecuteNonQuery()
        SqlConnection1.Close()
        DataSet11.食堂.Clear()
        SqlDataAdapter1.Fill(DataSet11.食堂)
        DataGrid1.Update()
        DataGrid1.Refresh()
        TextBox1.Text = ""
        TextBox2.Text = ""
        TextBox3.Text = ""
        ComboBox1.Text = ""
        Label6.Text = "删除用户成功"
        Timer1.Enabled = False
    End Sub

    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
        If TextBox1.Text.Length <> 0 Then
            SqlConnection1.Open()
            SqlCommand1.Connection = SqlConnection1
            DataSet11.Clear()
            SqlDataAdapter1.SelectCommand.CommandText = "select * from 食堂 where IC卡号 = '" & TextBox1.Text & "'"
            SqlDataAdapter1.Fill(DataSet11)
            SqlConnection1.Close()
            If DataSet11.食堂.Rows.Count > 0 Then
                If TextBox2.Text.Length <> 0 Then
                    SqlConnection1.Open()
                    SqlCommand1.CommandText = "update 食堂 set 姓名 = '" & TextBox2.Text & "' where IC卡号 = '" & TextBox1.Text & "'"
                    SqlCommand1.ExecuteNonQuery()
                    SqlConnection1.Close()
                End If
                If ComboBox1.Text.Length <> 0 Then
                    SqlConnection1.Open()
                    SqlCommand1.CommandText = "update 食堂 set 用户类型 = '" & ComboBox1.Text & "' where IC卡号 = '" & TextBox1.Text & "'"
                    SqlCommand1.ExecuteNonQuery()
                    SqlConnection1.Close()
                End If
                DataSet11.Clear()
                SqlConnection1.Open()
                SqlDataAdapter1.SelectCommand.CommandText = "select * from 食堂 where IC卡号 = '" & TextBox1.Text & "'"
                SqlDataAdapter1.Fill(DataSet11)
                DataGrid1.Update()
                DataGrid1.Refresh()
                SqlConnection1.Close()
            End If
        Else
            Label6.Text = "卡号不能为空!"
        End If
        TextBox2.Text = ""
        TextBox3.Text = ""
        ComboBox1.Text = ""
        Timer1.Enabled = False
    End Sub
    Private Sub GroupBox1_Enter(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles GroupBox1.Enter

    End Sub

    Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged

    End Sub

    Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
        SqlConnection1.Open()
        SqlDataAdapter1.SelectCommand.CommandText = "select * from 食堂"
        SqlDataAdapter1.SelectCommand.ExecuteNonQuery()
        DataSet11.食堂.Clear()
        SqlDataAdapter1.Fill(DataSet11.食堂)
        SqlConnection1.Close()
        Timer1.Enabled = False
    End Sub

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

    End Sub

    Private Sub SqlDataAdapter1_RowUpdated_1(ByVal sender As System.Object, ByVal e As System.Data.SqlClient.SqlRowUpdatedEventArgs) Handles SqlDataAdapter1.RowUpdated

    End Sub

    Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick

    End Sub
End Class