以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  请帮修改代码?  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=123630)

--  作者:wjhjhj
--  发布时间:2018/8/19 22:15:00
--  请帮修改代码?

在自动义用户系统登录设计中,在“用户管理”窗口的AfterLoad事件中,代码如下:

Dim lst As WinForm.ListBox = e.Form.Controls("ListBox1")
lst.ComboList = _UserTable.SQLGetComboListString("Name","","用户编号")
If Lst.Items.Count > 0 Then
     lst.SelectedIndex = 0
End If

只能提取user表中Name列不重复的用户,相同用户只提取了一个,要提取所有Name列的用户(相同用户),代码怎样修改,请指教。谢谢!


--  作者:有点蓝
--  发布时间:2018/8/19 22:21:00
--  
你的逻辑本身就有问题,登录用户肯定是不允许有同名的
--  作者:wjhjhj
--  发布时间:2018/8/19 22:27:00
--  
因姓名有相同的,所以增加了“身份证”列来区别。但发现修改用户时,“用户管理”窗口,姓名相同只能显示一个。请帮修改一下代码。谢谢!
[此贴子已经被作者于2018/8/19 22:28:21编辑过]

--  作者:有点蓝
--  发布时间:2018/8/19 22:39:00
--  
同名建议使用工号,或者部门+姓名(类似:销售部.张三),或者张三2、张三3这种。不建议把身份证号码放到登录窗口公开谁都知道

如果一定要用,也应该依然是显示一个,然后把同名下的不同身份证列出来供选择,就是要选2次。

同名列2个出来基本没有意义,逻辑本身就是错的

--  作者:wjhjhj
--  发布时间:2018/8/19 22:52:00
--  

是这样的,但在“用户管理”窗口中,“更改用户”时,无法选择未显示的用户(重复姓名)进行修改。请指教?


--  作者:有点蓝
--  发布时间:2018/8/19 23:06:00
--  
不能有同名的登录用户。
--  作者:wjhjhj
--  发布时间:2018/8/22 17:27:00
--  
根据自定义用户二修改用户(UsrName)为姓名-身份证(UserNameCard),代码事件如下:
\'自定义用户系统,"更改用户"窗口AfterLoad事件。
Dim UserNameCard As String
Dim UserGroup As String
Dim UserRoles As String
Dim PassWord As String
Dim dr As DataRow
If Forms("用户管理").Opened Then \'正常打开
    UserNameCard = Forms("用户管理").Controls("ListBox1").SelectedItem
Else
    UserNameCard = _UserNameCard \'_UserNameCard为全局变量,用于保存当前用户名
    e.Form.Controls("UserNameCard").Enabled = False
    e.Form.Controls("UserGroup").Enabled = False
    e.Form.Controls("UserRoles").Enabled = False
End If
e.Form.Text = e.Form.Text & "-" & UserNameCard
dr = _UserTable.SQLFind("[姓名身份证] = \'" & UserNameCard & "\'")
If dr IsNot Nothing Then
    e.Form.Controls("UserNameCard").Value = UserNameCard
    e.Form.Controls("UserGroup").Value = dr("Group")
    e.Form.Controls("UserRoles").Value = dr("Role")
    e.Form.Controls("PassWord").Value = DecryptText(dr("PassWord"),"wjh","jyj")
Else
    MessageBox.Show("用户不存在或者已经被删除!","提示",MessageBoxButtons.OK)
    e.Form.Close()
End If

\'自定义用户系统,"更改用户"窗口的确定按钮Click事件。
Dim UserNameCard As String = e.Form.Controls("UserNameCard").Value
Dim UserGroup As String  = e.Form.Controls("UserGroup").Value
Dim UserRoles As String  = e.Form.Controls("UserRoles").Value
Dim PassWord As String = e.Form.Controls("PassWord").Value
Dim OldUserNameCard As String
Dim Parts() As String = e.Form.Text.Split("-"c)
OldUserNameCard =  Parts(Parts.Length -1)
If UserNameCard = "" OrElse UserGroup = "" Then
    Messagebox.show("请输入用户名和用户分组!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
    Return
End If
Dim dr As DataRow = _UserTable.SQLFind("[姓名身份证]= \'" & OldUserNameCard & "\'")
If dr IsNot Nothing Then
    dr("姓名身份证") = UserNameCard
    dr("Group") = UserGroup
    dr("Role") = UserRoles
    dr("Password") = EncryptText(PassWord,"wjh","jyj")
    dr.Save()
    If Forms("用户管理").Opened Then
        With Forms("用户管理").Controls("ListBox1")
            .Items(.SelectedIndex) = UserNameCard
        End With
    End If
    e.Form.Close
Else
    Messagebox.show("更改用户失败!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
End If
运行结果:修改用户信息后,点击“确定”按钮,提示"更改用户失败!",请帮修改一下代码,谢谢!

[此贴子已经被作者于2018/8/22 17:28:33编辑过]

--  作者:有点蓝
--  发布时间:2018/8/22 17:35:00
--  
msgbox("[姓名身份证]= \'" & OldUserNameCard & "\'"

上面代码显示什么内容?数据库有没有对应的记录?

--  作者:wjhjhj
--  发布时间:2018/8/22 17:58:00
--  
显示是:[姓名身份证]= ‘1’
--  作者:有点蓝
--  发布时间:2018/8/22 20:05:00
--  
数据库有[姓名身份证]= ‘1’的记录吗?