frmedituser.vb

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

Public Class FrmEditUser

    Private _userno As String
    Sub New(ByVal userno As String)
        _userno = userno
        InitializeComponent()
    End Sub
    Private Sub btok_Clik(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
        Dim Tempsupermarket As supermarket
        Tempsupermarket = New supermarket(txtno.Text, txtname.Text, txtpassword.Text, comboxitong.Text, comboxiaoshou.Text, combokucun.Text, comboshangpin.Text)
        Tempsupermarket.Updatemarket()
        Close()
    End Sub
    Private Sub btcancle_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btcancle.Click
        Close()
    End Sub

    Private Sub FrmEditUser_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        comboxitong.SelectedIndex = 0
        comboxiaoshou.SelectedIndex = 0
        combokucun.SelectedIndex = 0
        comboshangpin.SelectedIndex = 0
        Dim DTable As DataTable
        DTable = supermarket.loadmain("userno", _userno, "")
        txtno.Text = DTable.Rows(0)("用户编号").ToString
        txtname.Text = DTable.Rows(0)("用户姓名").ToString
        comboxitong.Text = DTable.Rows(0)("系统管理权限").ToString
        comboxiaoshou.Text = DTable.Rows(0)("销售管理权限").ToString
        combokucun.Text = DTable.Rows(0)("库存管理权限").ToString
        comboshangpin.Text = DTable.Rows(0)("商品管理权限").ToString
    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 comboxitong_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles comboxitong.KeyPress
        If e.KeyChar = Chr(13) Then
            comboxiaoshou.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 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 comboxiaoshou_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles comboxiaoshou.KeyPress
        If e.KeyChar = Chr(13) Then
            combokucun.Focus()
        End If
    End Sub

    Private Sub comboxiaoshou_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles comboxiaoshou.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
            comboshangpin.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 comboshangpin_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles comboshangpin.KeyPress
        If e.KeyChar = Chr(13) Then
            btok.Focus()
        End If
    End Sub

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

    End Sub
End Class