开发工具:
文件大小: 1mb
下载次数: 0
上传时间: 2015-12-02
详细说明： ublic Class frmAddUser Private Sub frmAddUser_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load '默认情况下，添加系统管理员级别的用户 radioAdmin.Checked = True End Sub Private Sub btnAdd_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnAdd.Click '使用用户名和密码创建一个DBUser类 Dim User As New DBuser(Trim(txtUsername.Text), Trim(txtPassword.Text)) '判断用户的权限 Dim strPrivilege As String If radioAdmin.Checked Then str Privilege = "系统管理员" ElseIf radioManager.Checked Then strPrivilege = "总经理" ElseIf radioSaler.Checked Then strPrivilege = "导购员" ElseIf radioBuyer.Checked Then strPrivilege = "采购员" Else strPrivilege = "仓库管理员" End If '调用DBUser类的AddUser方法，执行添加用户操作 Dim nResult As Integer = User.AddUser(txtUsername.Text, txtPassword.Text, txtReaderEmail.Text, _ strPrivilege, txtReaderTel.Text, txtReaderHome.Text) 'AddUser方法返回值为-1表示用户名已存在，为0表示操作失败，为1表示操作成功，根据返回值的不同 '分别弹出相应提示信息 If nResult = -1 Then MsgBox("输入用户姓名已存在，请重试", MsgBoxStyle.Exclamation, "添加用户") ElseIf nResult = 0 Then MsgBox("添加用户失败！", MsgBoxStyle.Exclamation, "添加用户") Else MsgBox("添加用户成功！", MsgBoxStyle.OkOnly, "添加用户") End If End Sub Private Sub btnCancel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCancel.Click '关闭窗体 Close() End Sub Private Sub txtUsername_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtUsername.TextChanged '如果用户名不为空且密码长度不小于6，则允许用户执行“添加”操作， '使“添加”按钮处于有效状态，否则处于失效状态 If txtUsername.Text.Length() > 0 And txtPassword.Text.Length() >= 6 Then btnAdd.Enabled = True Else btnAdd.Enabled = False End If End Sub Private Sub txtPassword_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtPassword.TextChanged '如果密码长度不小于6且用户名不为空，则允许用户执行“添加”操作， '使“添加”按钮处于有效状态，否则处于失效状态 If txtUsername.Text.Length() > 0 And txtPassword.Text.Length() >= 6 Then btnAdd.Enabled = True Else btnAdd.Enabled = False End If End Sub ...展开收缩
(系统自动生成,下载前可以参看下载内容)
下载文件列表
相关说明
- 本站资源为会员上传分享交流与学习,如有侵犯您的权益,请联系我们删除.
- 本站是交换下载平台，提供交流渠道，下载内容来自于网络，除下载问题外，其它问题请自行百度。
- 本站已设置防盗链，请勿用迅雷、QQ旋风等多线程下载软件下载资源，下载后用WinRAR最新版进行解压.
- 如果您发现内容无法下载，请稍后再次尝试；或者到消费记录里找到下载记录反馈给我们.
- 下载后发现下载的内容跟说明不相乎，请到消费记录里找到下载记录反馈给我们，经确认后退回积分.
- 如下载前有疑问，可以通过点击"提供者"的名字，查看对方的联系方式，联系对方咨询.
