xiugai2.vb

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

Public Class xiugai2
    Private _shangpinno As String
    Sub New(ByVal shangpinno As String)
        _shangpinno = shangpinno

        InitializeComponent()
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        If Trim(txtshangpinno.Text) = "" Then
            MsgBox("商品编号不能为空！", MsgBoxStyle.Exclamation, "信息框")
            Exit Sub
        End If
        Dim TempDBtuihuo As DBtuihuo
        TempDBtuihuo = New DBtuihuo(txtchukuno.Text, txttuihuono.Text, txtshangpinno.Text, txtreason.Text, txtgongyingno.Text, Val(txtcount.Text), Val(txtjinhuoprice.Text), txttuihuodate.Text, txtuserno.Text)
        TempDBtuihuo.Updatetuihuo()
        Close()
    End Sub

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

    Private Sub xiugai2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim DTable As DataTable
        DTable = DBtuihuo.loadtuihuo("shangpinno", _shangpinno, "")
        txtchukuno.Text = DTable.Rows(0)("chukuno").ToString
        txttuihuono.Text = DTable.Rows(0)("tuihuono").ToString

        txtshangpinno.Text = DTable.Rows(0)("shangpinno").ToString
        txtreason.Text = DTable.Rows(0)("reason").ToString
        txtgongyingno.Text = DTable.Rows(0)("gongyingno").ToString
        txtcount.Text = DTable.Rows(0)("count").ToString
        txtjinhuoprice.Text = DTable.Rows(0)("jinhuoprice").ToString
        txttuihuodate.Text = DTable.Rows(0)("tuihuodate").ToString
        txtuserno.Text = DTable.Rows(0)("userno").ToString
    End Sub

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



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



    Private Sub txtreason_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles txtreason.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
            txtcount.Focus()
        End If
    End Sub



    Private Sub txtcount_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles txtcount.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
            txttuihuodate.Focus()
        End If
    End Sub


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


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

    Private Sub txtchukuno_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtchukuno.TextChanged

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

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

    End Sub
End Class