frmedithuiyuan.vb

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

Public Class FrmEditHuiyuan

    Private _huiyuanno As String
    Sub New(ByVal huiyuanno As String)
        _huiyuanno = huiyuanno
        InitializeComponent()
    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 btok_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btok.Click
        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)
        Tempsupermarketone.Updatehuiyuan()
        Close()
    End Sub

    Private Sub FrmEditHuiyuan_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        combogender.SelectedIndex = 0
        Dim DTable As DataTable
        DTable = supermarketone.loadhuiyuan("huiyuanno", _huiyuanno, "")
        txtno.Text = DTable.Rows(0)("会员号").ToString
        txtname.Text = DTable.Rows(0)("姓名").ToString
        combogender.Text = DTable.Rows(0)("性别").ToString
        txtbirthdate.Text = DTable.Rows(0)("出生年月").ToString
        txttel.Text = DTable.Rows(0)("联系电话").ToString
        txtaddress.Text = DTable.Rows(0)("联系地址").ToString
        txtjifen.Text = DTable.Rows(0)("积分").ToString
    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 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 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 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 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 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 txttel_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txttel.TextChanged

    End Sub
End Class