Foxtable(狐表) → 用户栏目 → 专家坐堂 → 请帮修改代码？


  共有2665人关注过本帖树形打印复制链接

主题：请帮修改代码？
帅哥哟，离线，有人找我吗？
wjhjhj
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：50 积分：449 威望：0 精华：0 注册：2018/7/18 8:22:00 		请帮修改代码？  发帖心情 Post By：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列的用户（相同用户），代码怎样修改，请指教。谢谢！
 回到顶部
帅哥哟，离线，有人找我吗？
wjhjhj
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：50 积分：449 威望：0 精华：0 注册：2018/7/18 8:22:00 		  发帖心情 Post By：2018/8/19 22:27:00 [显示全部帖子]

因姓名有相同的，所以增加了“身份证”列来区别。但发现修改用户时，“用户管理”窗口，姓名相同只能显示一个。请帮修改一下代码。谢谢！
[此贴子已经被作者于2018/8/19 22:28:21编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
wjhjhj
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：50 积分：449 威望：0 精华：0 注册：2018/7/18 8:22:00 		  发帖心情 Post By：2018/8/19 22:52:00 [显示全部帖子]

是这样的，但在“用户管理”窗口中，“更改用户”时，无法选择未显示的用户（重复姓名）进行修改。请指教？
 回到顶部
帅哥哟，离线，有人找我吗？
wjhjhj
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：50 积分：449 威望：0 精华：0 注册：2018/7/18 8:22:00 		  发帖心情 Post By：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编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
wjhjhj
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：50 积分：449 威望：0 精华：0 注册：2018/7/18 8:22:00 		  发帖心情 Post By：2018/8/22 17:58:00 [显示全部帖子]

显示是：[姓名身份证]= ‘1’

 回到顶部
帅哥哟，离线，有人找我吗？
wjhjhj
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：50 积分：449 威望：0 精华：0 注册：2018/7/18 8:22:00 		  发帖心情 Post By：2018/9/1 9:26:00 [显示全部帖子]

代码如下：点击"通知_状态"、"签收_状态"、"签收_审核"不能执行对应后面代码，请帮修改，谢谢！
'列表项目,3级列值
If e.DataCol.Name = "收报单位" OrElse e.DataCol.Name = "通知_姓名" Then
    If e.DataRow("收报时间") = Nothing OrElse e.DataRow("收报编号") = "" OrElse e.DataRow("来电单位") = "" OrElse e.DataRow("电文标题及文号") = "" OrElse e.DataRow("等级") = "" OrElse e.DataRow("密级") = "" OrElse e.DataRow("页数") = Nothing OrElse e.DataRow("收报编号") = "" Then
        MessageBox.Show("将'空白'栏的信息录入后,再选择单位.","提示")
        e.DataRow("收报单位") = Nothing
    Else
        '标识_位置3:logo,Location,解除当前锁定.
        Dim bsloc3 As DataRow    '查找行
        bsloc3 = DataTables("参数").Find("[标识_位置] = '位置3'")
        If e.DataRow("收报单位") = bsloc3("标识_名称") Then
            e.DataRow("通知_姓名") = _Username
            Dim dr1 As DataRow
            dr1 = DataTables("Users").Find("[Group] = '" & e.DataRow("收报单位") & "' And [Name] = '" & e.DataRow("通知_姓名") & "'")
            If dr1 IsNot Nothing Then
                e.DataRow("通知_座机") = dr1("座机")
                e.DataRow("通知_短信手机") = dr1("短信手机")
                e.DataRow("通知_手机") = dr1("手机")
            End If
            e.DataRow("通知_状态") = True
            e.DataRow("通知_姓名") = _UserName
            e.DataRow("姓名身份证_通知") = _UserNameCard
            e.DataRow("通知_时间") = Date.Now
            e.DataRow("签收_状态") = True
            e.DataRow("签收_姓名") = _UserName
            e.DataRow("姓名身份证_签收") = _UserNameCard
            Dim czdr1 As DataRow    '查找行
            czdr1 = DataTables("Users").Find("[姓名身份证] = '" & _UserNameCard & "'")
            If czdr1 IsNot Nothing Then
                e.DataRow("签收_标准照") = czdr1("标准照")
            End If
            e.DataRow("签收_时间") = Date.Now
            e.DataRow("签收_审核") = True
            e.DataRow("签收_姓名") = _UserName
            e.DataRow("姓名身份证_审核") = _UserNameCard
            e.DataRow("签收_审核时间") = Date.Now
            '复制相关信息到密收办理
            Dim dr3 As DataRow
            dr3 = DataTables("密收办理").Find("[收报编号] = '" & e.DataRow("收报编号") & "'")
            If dr3 Is Nothing Then
                Dim nma() As String = {"来电单位","来电编号","电文标题及文号","等级","密级","页数","收报编号"} '密收登记表数据来源列
                Dim nmb() As String = {"来电单位","来电编号","电文标题及文号","等级","密级","页数","收报编号"} '密收办理表数据接收列
                Dim dr2 As DataRow = DataTables("密收办理").AddNew
                For i As Integer = 0 To nma.Length - 1
                    dr2(nmb(i)) = e.DataRow(nma(i))
                Next
            End If
        Else
            '通知状态,通知
            Dim dr1 As DataRow
            dr1 = DataTables("Users").Find("[Group] = '" & e.DataRow("收报单位") & "' And [Name] = '" & e.DataRow("通知_姓名") & "'")
            If dr1 IsNot Nothing Then
                e.DataRow("通知_座机") = dr1("座机")
                e.DataRow("通知_短信手机") = dr1("短信手机")
                e.DataRow("通知_手机") = dr1("手机")
            End If
            '通知状态,状态
            If e.DataRow("通知_状态") = True Then
                e.DataRow("通知_值机") = _UserName
                e.DataRow("姓名身份证_通知") = _UserNameCard
                e.DataRow("通知_时间") = Date.Now
            Else
                e.DataRow("通知_状态") = False
                e.DataRow("通知_值机") = Nothing
                e.DataRow("姓名身份证_通知") = Nothing
                e.DataRow("通知_时间") = Nothing
            End If
            '签收状态,签收
            If e.DataRow("签收_状态") = True And e.DataRow("收报单位") = _UserGroup Then
                Dim czdr1 As DataRow    '查找行
                czdr1 = DataTables("Users").Find("[姓名身份证] = '" & _UserNameCard & "'")
                If czdr1 IsNot Nothing Then
                    e.DataRow("签收_姓名") = _UserName
                    e.DataRow("姓名身份证_签收") = _UserNameCard
                    e.DataRow("签收_时间") = Date.Now
                    e.DataRow("签收_标准照") = czdr1("标准照")
                End If
            Else
                e.DataRow("签收_状态") = False
                e.DataRow("签收_姓名") = Nothing
                e.DataRow("姓名身份证_签收") = Nothing
                e.DataRow("签收_时间") = Nothing
                e.DataRow("签收_标准照") = Nothing
                e.DataRow("签收_审核") = False
            End If
            '签收状态,审核
            If e.DataRow("签收_审核") = True Then
                e.DataRow("签收_值机") = _UserName
                e.DataRow("姓名身份证_审核") = _UserNameCard
                e.DataRow("签收_审核时间") = Date.Now
            Else
                e.DataRow("签收_审核") = False
                e.DataRow("签收_值机") = Nothing
                e.DataRow("姓名身份证_审核") = Nothing
                e.DataRow("签收_审核时间") = Nothing
            End If
        End If
    End If
End If
 回到顶部
帅哥哟，离线，有人找我吗？
wjhjhj
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：50 积分：449 威望：0 精华：0 注册：2018/7/18 8:22:00 		  发帖心情 Post By：2018/9/1 19:59:00 [显示全部帖子]

谢谢！

 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.05469 秒, 5 次数据查询