form6.vb

用VB开发了一个超市管理系统

Public Class Form6

    Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged
        If Trim(TextBox1.Text) = "" Then
            DataGridView1.DataSource = DBxs.Loadxs("", "", "")
        Else
            DataGridView1.DataSource = DBxs.Loadxs("shangpinname", Me.TextBox1.Text, "")
        End If
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Me.Close()
    End Sub

    Private Sub Form6_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        DataGridView1.DataSource = DBxs.Loadxs("", "", "")
    End Sub
End Class