gongyingshang.vb

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

Public Class gongyingshang

    Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TxtName.TextChanged
        If Trim(TxtName.Text) = "" Then
            DGV.DataSource = gys.loadgys("", "", "")
        Else
            DGV.DataSource = gys.loadgys("gongyingname", Me.TxtName.Text, "")
        End If
    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        DGV.DataSource = gys.loadgys("", "", "")
    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        Dim DR As DialogResult
        DR = MsgBox("请确认是否删除" & DGV.CurrentRow.Cells(1).Value & "这条记录", vbYesNo, "信息框")
        If DR = vbNo Then
            Exit Sub
        Else
            gys.delgys(DGV.CurrentRow.Cells(0).Value)
            DGV.DataSource = gys.loadgys("", "", "")
        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 Formadd
        FrmObj.ShowDialog()
        If Trim(TxtName.Text) = "" Then
            DGV.DataSource = gys.loadgys("", "", "")
        Else
            DGV.DataSource = gys.loadgys("gongyingname", Me.TxtName.Text, "")
            DGV.DataSource = gys.loadgys("", "", "")
        End If
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Dim FrmObj As New Formedit(DGV.CurrentRow.Cells(0).Value)
        FrmObj.ShowDialog()
        If Trim(TxtName.Text) = "" Then
            DGV.DataSource = gys.loadgys("", "", "")
        Else
            DGV.DataSource = gys.loadgys("gongyingname", Me.TxtName.Text, "")
        End If
    End Sub
End Class