form7.vb

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

Public Class Form7

    Private Sub txtName_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtName.TextChanged
        If Trim(txtName.Text) = "" Then
            DGVResult.DataSource = DBwxs.Loadwxs("", "", "")
        Else
            DGVResult.DataSource = DBwxs.Loadwxs("shangpinno", Me.txtName.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 Form7_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        DGVResult.DataSource = DBwxs.Loadwxs("", "", "")
    End Sub
End Class