frmeditspxx.vb

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

Public Class Frmeditspxx

    Private _shangpinno As String
    Sub New(ByVal shangpinno As String)
        _shangpinno = shangpinno
        InitializeComponent()
    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 btnok_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnok.Click
        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)
        Tempspxx.Updatesp()
        Close()
    End Sub

    Private Sub Frmedit_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim DTable As DataTable
        DTable = spxx.Loadsp("shangpinno", _shangpinno, "")
        txtshangpinno.Text = DTable.Rows(0)("商品编号").ToString
        txtshangpinname.Text = DTable.Rows(0)("商品名称").ToString
        txtgongyingno.Text = DTable.Rows(0)("供应商号").ToString
        txtgongyingname.Text = DTable.Rows(0)("供应商名称").ToString
        txtfenleino.Text = DTable.Rows(0)("商品分类号").ToString
        txtfenleiname.Text = DTable.Rows(0)("商品分类名称").ToString
        txtshuoming.Text = DTable.Rows(0)("商品说明").ToString
        txtjinhuoprice.Text = DTable.Rows(0)("进货单价").ToString
        txtxiaoshouprice.Text = DTable.Rows(0)("销售单价").ToString
        txtkucunyue.Text = DTable.Rows(0)("库存余额").ToString
    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
            txtshangpinname.Focus()
        End If
    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
            txtshuoming.Focus()
        End If
    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
            txtgongyingno.Focus()
        End If
    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
            txtjinhuoprice.Focus()
        End If
    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
            txtgongyingname.Focus()
        End If
    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
            txtxiaoshouprice.Focus()
        End If
    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
            txtfenleino.Focus()
        End If
    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
            txtkucunyue.Focus()
        End If
    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