xiugai.vb

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

Public Class xiugai
    Private _shangpinno As String

    Sub New(ByVal shangpinno As String)
        _shangpinno = shangpinno

        InitializeComponent()
    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 Not IsDate(txtrukudate.Text) Then
            MsgBox("入库日期请输入正确的日期格式!", MsgBoxStyle.Exclamation, "信息框")
            Exit Sub
        End If
        Dim TempDBshujuku As DBshujuku
        TempDBshujuku = New DBshujuku(Txtrukuno.Text, Txtshangpinno.Text, Val(txtjinhuoprice.Text), Val(txtxiaoshouprice.Text), Val(txtcount.Text), txtrukudate.Text, txtuserno.Text)
        TempDBshujuku.Updateshujuku()
        Close()
    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 xiugai_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        Dim DTable As DataTable
        DTable = DBshujuku.loadshujuku("shangpinno", _shangpinno, "")
        Txtrukuno.Text = DTable.Rows(0)("rukuno").ToString
        Txtshangpinno.Text = DTable.Rows(0)("shangpinno").ToString
        txtjinhuoprice.Text = DTable.Rows(0)("jinhuoprice").ToString
        txtxiaoshouprice.Text = DTable.Rows(0)("xiaoshouprice").ToString
        txtcount.Text = DTable.Rows(0)("count").ToString
        txtrukudate.Text = DTable.Rows(0)("rukudate").ToString
        txtuserno.Text = DTable.Rows(0)("userno").ToString
    End Sub

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


    Private Sub txtrukudate_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles txtrukudate.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
            BtnOK.Focus()
        End If
    End Sub
End Class