商品入库信息.vb

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

Public Class Form4
 

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

        DGVResult.DataSource = DBshujuku.loadshujuku("", "", "")


    End Sub

    Private Sub Btndel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btndel.Click
        Dim DR As DialogResult
        DR = MsgBox("请确认是否删除" & DGVResult.CurrentRow.Cells(1).Value & "这条记录", vbYesNo, "信息框")
        If DR = vbNo Then
            Exit Sub
        Else
            DBshujuku.Delshujuku(DGVResult.CurrentRow.Cells(1).Value)
            DGVResult.DataSource = DBshujuku.Loadshujuku("", "", "")
        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 xiugai(DGVResult.CurrentRow.Cells(1).Value)
        FrmObj.ShowDialog()
        If Trim(txtName.Text) = "" Then
            DGVResult.DataSource = DBshujuku.loadshujuku("", "", "")
        Else
            DGVResult.DataSource = DBshujuku.loadshujuku("shangpinno", Me.txtName.Text, "")
        End If
    End Sub


    Private Sub txtspno_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtspno.Click
        Dim Frmobj As New tianjia()
        Frmobj.ShowDialog()
        If Trim(txtName.Text) = "" Then
            DGVResult.DataSource = DBshujuku.loadshujuku("", "", "")
        Else

            DGVResult.DataSource = DBshujuku.loadshujuku("shangpinno", Me.txtName.Text, "")
        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 = DBshujuku.loadshujuku("", "", "")
        Else
            DGVResult.DataSource = DBshujuku.loadshujuku("shangpinno", Me.txtName.Text, "")
        End If
    End Sub

    Private Sub DGVResult_CellContentClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles DGVResult.CellContentClick

    End Sub
End Class