leibie.vb

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

Public Class leibie

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        DGVResult.DataSource = spfl.Loadspfl("", "", "")
    End Sub
    Private Sub btdel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btdel.Click
        Dim DR As DialogResult
        DR = MsgBox("请确认是否删除" & DGVResult.CurrentRow.Cells(1).Value & "这条记录", vbYesNo, "信息框")
        If DR = vbNo Then
            Exit Sub
        Else
            spfl.Delspfl(DGVResult.CurrentRow.Cells(0).Value)
            DGVResult.DataSource = spfl.Loadspfl("", "", "")
        End If
    End Sub
    Private Sub txtname_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtname.TextChanged
        If Trim(txtname.Text) = "" Then
            DGVResult.DataSource = spfl.Loadspfl("", "", "")
        Else
            DGVResult.DataSource = spfl.Loadspfl("fenleiname", Me.txtname.Text, "")
        End If
    End Sub

    Private Sub btadd_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btadd.Click
        Dim FrmObj As New Formaddleibie
        FrmObj.ShowDialog()
        If Trim(txtname.Text) = "" Then
            DGVResult.DataSource = spfl.Loadspfl("", "", "")
        Else
            DGVResult.DataSource = spfl.Loadspfl("fenleiname", Me.txtname.Text, "")
        End If
    End Sub

    Private Sub btedit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btedit.Click
        Dim FrmObj As New Formeditleibie(DGVResult.CurrentRow.Cells(0).Value)
        FrmObj.ShowDialog()
        If Trim(txtname.Text) = "" Then
            DGVResult.DataSource = spfl.Loadspfl("", "", "")
        Else
            DGVResult.DataSource = spfl.Loadspfl("fenleiname", Me.txtname.Text, "")
        End If
    End Sub

    Private Sub btexit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btexit.Click
        Me.Close()
    End Sub
End Class