huiyuan.vb

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

Public Class huiyuan

    Private Sub huiyuan_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        DGVResult.DataSource = supermarketone.loadhuiyuan()
    End Sub
    Private Sub btnexit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnexit.Click
        Me.Close()
    End Sub
    Private Sub btnadd_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnadd.Click
        Dim FrmObj As New FrmAddHuiyuan
        FrmObj.ShowDialog()
        If Trim(comboname.Text) = "" Then
            DGVResult.DataSource = supermarketone.loadhuiyuan("", "", "")
        Else
            DGVResult.DataSource = supermarketone.loadhuiyuan("huiyuanname", Me.comboname.Text, "")
        End If
    End Sub
    Private Sub comboname_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles comboname.TextChanged
        DGVResult.DataSource = supermarketone.loadhuiyuan("huiyuanname", comboname.Text, "")
        If Trim(comboname.Text) = "" Then
            DGVResult.DataSource = supermarketone.loadhuiyuan("", "", "")
        Else
            DGVResult.DataSource = supermarketone.loadhuiyuan("huiyuanname", Me.comboname.Text, "")
        End If
    End Sub
    Private Sub btnupdate_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnupdate.Click
        Dim FrmObj As New FrmEditHuiyuan(DGVResult.CurrentRow.Cells(0).Value)
        FrmObj.ShowDialog()
        If Trim(comboname.Text) = "" Then
            DGVResult.DataSource = supermarketone.loadhuiyuan("", "", "")
        Else
            DGVResult.DataSource = supermarketone.loadhuiyuan("huiyuanname", Me.comboname.Text, "")
        End If
    End Sub

    Private Sub btndele_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btndele.Click
        Dim DR As DialogResult
        DR = MsgBox("请确认是否删除" & DGVResult.CurrentRow.Cells(1).Value & "这条记录", vbYesNo, "信息框")
        If DR = vbNo Then
            Exit Sub
        Else
            supermarketone.delhuiyuan(DGVResult.CurrentRow.Cells(0).Value)
            DGVResult.DataSource = supermarketone.loadhuiyuan("", "", "")
        End If
    End Sub
End Class