tuihuo.vb

来自「用VB开发了一个超市管理系统」· VB 代码 · 共 47 行

Public Class tuihuo

    Private Sub tuihuo_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        DGVResult.DataSource = DBtuihuo.loadtuihuo("", "", "")
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Dim DR As DialogResult
        DR = MsgBox("请确认是否删除" & DGVResult.CurrentRow.Cells(2).Value & "这条记录", vbYesNo, "信息框")
        If DR = vbNo Then
            Exit Sub
        Else
            DBtuihuo.Deltuihuo(DGVResult.CurrentRow.Cells(2).Value)
            DGVResult.DataSource = DBtuihuo.loadtuihuo("", "", "")
        End If
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim Frmobj As New Form5()
        Frmobj.ShowDialog()
        If Trim(TxtName.Text) = "" Then
            DGVResult.DataSource = DBtuihuo.loadtuihuo("", "", "")
        Else

            DGVResult.DataSource = DBtuihuo.loadtuihuo("shangpinno", Me.TxtName.Text, "")
        End If
    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        Dim FrmObj As New xiugai2(DGVResult.CurrentRow.Cells(2).Value)
        FrmObj.ShowDialog()
        If Trim(TxtName.Text) = "" Then
            DGVResult.DataSource = DBtuihuo.loadtuihuo("", "", "")
        Else
            DGVResult.DataSource = DBtuihuo.loadtuihuo("shangpinno", Me.TxtName.Text, "")
        End If
    End Sub

    Private Sub txtshangpinno_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TxtName.TextChanged
        If Trim(TxtName.Text) = "" Then
            DGVResult.DataSource = DBtuihuo.loadtuihuo("", "", "")
        Else
            DGVResult.DataSource = DBtuihuo.loadtuihuo("shangpinno", Me.TxtName.Text, "")
        End If
    End Sub
End Class