frmmain.vb

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

Public Class FrmMain

    Private Sub FrmMain_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        DGVResult.DataSource = supermarket.loadmain()
    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
            supermarket.delmain(DGVResult.CurrentRow.Cells(0).Value)
            DGVResult.DataSource = supermarket.loadmain("", "", "")
        End If
    End Sub

    Private Sub BtnAdd_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnadd.Click
        Dim FrmObj As New FrmAddUser
        FrmObj.ShowDialog()
        If Trim(comboname.Text) = "" Then
            DGVResult.DataSource = supermarket.loadmain("", "", "")
        Else
            DGVResult.DataSource = supermarket.loadmain("username", Me.comboname.Text, "")
        End If
    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 comboname_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles comboname.TextChanged
        DGVResult.DataSource = supermarket.loadmain("username", comboname.Text, "")
        If Trim(comboname.Text) = "" Then
            DGVResult.DataSource = supermarket.loadmain("", "", "")
        Else
            DGVResult.DataSource = supermarket.loadmain("username", 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 FrmEditUser(DGVResult.CurrentRow.Cells(0).Value)
        FrmObj.ShowDialog()
        If Trim(comboname.Text) = "" Then
            DGVResult.DataSource = supermarket.loadmain("", "", "")
        Else
            DGVResult.DataSource = supermarket.loadmain("username", Me.comboname.Text, "")
        End If
    End Sub
End Class