frmaddhuiyuan.vb

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

Public Class FrmAddHuiyuan
    Private Sub btncancle_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btcancle.Click
        Me.Close()
    End Sub

    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
        If Not IsDate(txtbirthdate.Text) Then
            MsgBox("出生年月请输入正确的日期格式！", MsgBoxStyle.Exclamation, "信息框")
            Exit Sub
        End If
        Dim Tempsupermarketone As supermarketone
        Tempsupermarketone = New supermarketone(txtno.Text, txtname.Text, combogender.Text, txtbirthdate.Text, txttel.Text, txtaddress.Text, txtjifen.Text)
        If Tempsupermarketone.Addhuiyuan() = True Then
            init()
            txtno.Focus()
        End If
    End Sub
    Private Sub init()
        txtno.Text = ""
        TxtName.Text = ""
        combogender.Text = ""
        txtbirthdate.Text = ""
        txttel.Text = ""
        txtaddress.Text = ""
        txtjifen.Text = ""
        ComboGender.SelectedIndex = 0
    End Sub
    Private Sub FrmAddhuiyuan_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        init()
    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
            txtname.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 txtname_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles txtname.KeyPress
        If e.KeyChar = Chr(13) Then
            combogender.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 combogender_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles combogender.KeyPress
        If e.KeyChar = Chr(13) Then
            txtbirthdate.Focus()
        End If
    End Sub

    Private Sub combogender_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles combogender.SelectedIndexChanged

    End Sub

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

    Private Sub txtbirthdate_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtbirthdate.TextChanged

    End Sub

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

    Private Sub txttel_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txttel.TextChanged

    End Sub

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

    Private Sub txtaddress_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtaddress.TextChanged

    End Sub

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

    Private Sub txtjifen_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtjifen.TextChanged

    End Sub
End Class