tianjia.vb

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

Public Class tianjia

    Private Sub Label7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label7.Click

    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)
        If TempDBshujuku.Addshujuku() = True Then
            init()
            txtshangpinno.Focus()
        End If
    End Sub
    Private Sub init()
        txtrukuno.Text = ""
        txtshangpinno.Text = ""
        txtjinhuoprice.Text = ""
        txtxiaoshouprice.Text = ""
        txtcount.Text = ""
        txtrukudate.Text = ""
        txtuserno.Text = ""
    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 txtrukuno_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles txtrukuno.KeyPress
        If e.KeyChar = Chr(13) 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
            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

    Private Sub txtrukuno_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtrukuno.TextChanged

    End Sub
End Class