frmadduser.vb

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

Public Class FrmAddUser

    Private Sub btok_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btok.Click
        If Trim(txtno.Text) = "" Then
            MsgBox("用户编号不能为空！", MsgBoxStyle.Exclamation, "信息框")
            Exit Sub
        End If
        If Trim(txtname.Text) = "" Then
            MsgBox("用户姓名不能为空！", MsgBoxStyle.Exclamation, "信息框")
            Exit Sub
        End If
        Dim Tempsupermarket As supermarket
        Tempsupermarket = New supermarket(txtno.Text, txtname.Text, txtpassword.Text, comboxitong.Text, comboshangpin.Text, combokucun.Text, comboxiaoshou.Text)
        '以上代码创建了类DBStudent的一个实例。问：为什么须建类的实例？
        If Tempsupermarket.Adduser() = True Then    '调用对象方法AddStudent,插入表记录。如果插入成功
            init()   '调用init()过程
            txtno.Focus()
        End If
    End Sub
    Private Sub init()     '对各控件对象赋初值初始化
        txtno.Text = ""
        txtname.Text = ""
        txtpassword.Text = ""
        comboxitong.SelectedIndex = 0
        comboxiaoshou.SelectedIndex = 0
        combokucun.SelectedIndex = 0
        comboshangpin.SelectedIndex = 0
    End Sub

    Private Sub FrmAddUser_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        init()
    End Sub
    Private Sub btcancle_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btcancle.Click
        Me.Close()
    End Sub

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

    Private Sub txtno_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtno.TextChanged

    End Sub

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

    Private Sub txtpassword_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtpassword.TextChanged

    End Sub

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

    Private Sub txtname_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtname.TextChanged

    End Sub

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

    Private Sub comboxitong_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles comboxitong.SelectedIndexChanged

    End Sub

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

    Private Sub comboshangpin_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles comboshangpin.SelectedIndexChanged

    End Sub

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

    Private Sub combokucun_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles combokucun.SelectedIndexChanged

    End Sub

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

    Private Sub comboxiaoshou_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles comboxiaoshou.SelectedIndexChanged

    End Sub
End Class