frmaddspxx.vb

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

Public Class Frmaddspxx

    Private Sub btnexit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnexit.Click
        Me.Close()
    End Sub

    Private Sub btnok_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnok.Click
        If Trim(txtshangpinno.Text) = "" Then
            MsgBox("商品编号不能为空！", MsgBoxStyle.Exclamation, "信息框")
            Exit Sub
        End If
        If Trim(txtshangpinname.Text) = "" Then
            MsgBox("商品名称不能为空！", MsgBoxStyle.Exclamation, "信息框")
            Exit Sub
        End If
        Dim Tempspxx As spxx
        Tempspxx = New spxx(txtshangpinno.Text, txtshangpinname.Text, txtgongyingno.Text, txtgongyingname.Text, txtfenleino.Text, txtfenleiname.Text, txtshuoming.Text, txtjinhuoprice.Text, txtxiaoshouprice.Text, txtkucunyue.Text)
        If Tempspxx.Addsp() = True Then
            txtshangpinno.Focus()
        End If
    End Sub

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

    Private Sub txtshangpinno_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtshangpinno.TextChanged

    End Sub

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

    Private Sub txtshangpinname_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtshangpinname.TextChanged

    End Sub

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

    Private Sub txtgongyingname_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtgongyingname.TextChanged

    End Sub

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

    Private Sub txtgongyingno_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtgongyingno.TextChanged

    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 txtfenleino_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtfenleino.TextChanged

    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
            txtshuoming.Focus()
        End If
    End Sub

    Private Sub txtfenleiname_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtfenleiname.TextChanged

    End Sub

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

    Private Sub txtshuoming_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtshuoming.TextChanged

    End Sub

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

    Private Sub txtjinhuoprice_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtjinhuoprice.TextChanged

    End Sub

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

    Private Sub txtxiaoshouprice_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtxiaoshouprice.TextChanged

    End Sub

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

    Private Sub txtkucunyue_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtkucunyue.TextChanged

    End Sub
End Class