formaddleibie.vb

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

Public Class Formaddleibie

    Private Sub btok_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btok.Click
        If Trim(txtfenleino.Text) = "" Then
            MsgBox("商品分类号不能为空！", MsgBoxStyle.Exclamation, "信息框")
            Exit Sub
        End If
        If Trim(txtfenleiname.Text) = "" Then
            MsgBox("商品分类名不能为空！", MsgBoxStyle.Exclamation, "信息框")
            Exit Sub
        End If
        Dim Tempspfl As spfl
        Tempspfl = New spfl(txtfenleino.Text, txtfenleiname.Text)
        If Tempspfl.Addspfl() = True Then
            txtfenleino.Focus()
        End If
    End Sub
    Private Sub BtExit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btexit.Click
        Me.Close()
    End Sub

    Private Sub txtfenleino_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles txtfenleino.KeyPress
        If e.KeyChar = Chr(13) Then
            txtfenleiname.Focus()
        End If
    End Sub

    Private Sub txtfenleiname_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles txtfenleiname.KeyPress
        If e.KeyChar = Chr(13) Then
            btok.Focus()
        End If
    End Sub

   
End Class