Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]


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

主题：[求助]
帅哥哟，离线，有人找我吗？
xybcxh
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：92 积分：824 威望：0 精华：0 注册：2017/11/23 8:55:00 		[求助]  发帖心情 Post By：2018/8/23 10:35:00 [显示全部帖子]

老师，每次登录用户名时都要选择下拉按钮选用户名。能不能我这次登录后能保存我这次登录人的名字，下次登录时就不用选择呢？
这是登录确定键代码，应该怎样更改？或者还有其它别的方法？谢谢。

这代码发不上去。。。
 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:这是登录确定键代码.rar
 回到顶部
帅哥哟，离线，有人找我吗？
xybcxh
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：92 积分：824 威望：0 精华：0 注册：2017/11/23 8:55:00 		  发帖心情 Post By：2018/8/23 11:33:00 [显示全部帖子]

老师，英文我是不懂呀，编不了。。。有参考的列子吗？

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


加好友 发短信
等级：幼狐 帖子：92 积分：824 威望：0 精华：0 注册：2017/11/23 8:55:00 		  发帖心情 Post By：2018/8/23 13:44:00 [显示全部帖子]

保存设置：SaveConfigValue("用户","张三")----这行代码要写在哪儿？是在这里面吗？

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


加好友 发短信
等级：幼狐 帖子：92 积分：824 威望：0 精华：0 注册：2017/11/23 8:55:00 		  发帖心情 Post By：2018/8/23 15:11:00 [显示全部帖子]

确认键  事件Click    项目设置“用户”，然后把这行代码SaveConfigValue("用户","张三")放在这个代码的最后吗？这个"张三"是否会自动替换掉的呢？

Messagebox.show("此用户不存在!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
    Return
End If
dr = dt.DataRows(0)
If e.Form.Controls("PassWord").Value = dr("Password") Then
    _UserName = UserName
    _UserGroup = dr("Group") 
    e.Form.Close
Else
    Messagebox.show("密码错误!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
End If
SaveConfigValue("用户","张三")
 回到顶部
帅哥哟，离线，有人找我吗？
xybcxh
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：92 积分：824 威望：0 精华：0 注册：2017/11/23 8:55:00 		  发帖心情 Post By：2018/8/23 16:46:00 [显示全部帖子]

老师，不理想，在窗口afterload事件从设置中取，如果有值就填入文本框，下拉匡中就没有别的名字了。只有这一个名字，更换不了别人。。如果加上原代码又成原样，不是保存的名字，这应该怎么改呀？
Dim n As String
n = GetConfigValue("用户","") '假定保存试用次数的设置名称为用户
Dim tex As WinForm.ComboBox = e.Form.Controls("UserName")
If n > "" Then
    tex.Value = n
End If
 回到顶部
帅哥哟，离线，有人找我吗？
xybcxh
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：92 积分：824 威望：0 精华：0 注册：2017/11/23 8:55:00 		  发帖心情 Post By：2018/8/23 16:47:00 [显示全部帖子]

原代码：    Dim cmd As New SQLCommand
 回到顶部
帅哥哟，离线，有人找我吗？
xybcxh
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：92 积分：824 威望：0 精华：0 注册：2017/11/23 8:55:00 		  发帖心情 Post By：2018/8/23 16:48:00 [显示全部帖子]

    Dim dt As DataTable
    Dim cmb As WinForm.ComboBox = e.Form.Controls("UserName")
 回到顶部
帅哥哟，离线，有人找我吗？
xybcxh
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：92 积分：824 威望：0 精华：0 注册：2017/11/23 8:55:00 		  发帖心情 Post By：2018/8/23 16:51:00 [显示全部帖子]

   
    代码发不上

    dt = cmd.ExecuteReader()
    For Each dr As DataRow In dt.Datarows
        cmb.Items.Add(dr("Name"))
    Next
    cmb.SelectedIndex = 0
 回到顶部
帅哥哟，离线，有人找我吗？
xybcxh
 小大  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：92 积分：824 威望：0 精华：0 注册：2017/11/23 8:55:00 		  发帖心情 Post By：2018/8/23 17:19:00 [显示全部帖子]

谢谢老师，已经好了。我真是太笨了。。
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.09375 秒, 6 次数据查询