Foxtable(狐表)用户栏目专家坐堂 → [求助] 求指点,状态栏登陆用户显示问题。


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

主题:[求助] 求指点,状态栏登陆用户显示问题。

帅哥哟,离线,有人找我吗?
bahamute
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:六尾狐 帖子:1425 积分:11332 威望:0 精华:0 注册:2008/9/1 22:20:00
[求助] 求指点,状态栏登陆用户显示问题。  发帖心情 Post By:2013/3/27 9:11:00 [只看该作者]

设置如下代码后,状态栏用户显示为“开发2”,而不是登陆用户,不知何故(使用的access数据库保存用户信息)。

StatusBar.Message2= "当前用户:" & User.Name &  "  今天日期:"  & Date.Today


 回到顶部
帅哥哟,离线,有人找我吗?
muhua
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:等待验证 帖子:3855 积分:20692 威望:0 精华:5 注册:2012/6/21 14:03:00
  发帖心情 Post By:2013/3/27 9:16:00 [只看该作者]

用户已被锁定

 回到顶部
帅哥哟,离线,有人找我吗?
bahamute
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:六尾狐 帖子:1425 积分:11332 威望:0 精华:0 注册:2008/9/1 22:20:00
  发帖心情 Post By:2013/3/27 9:37:00 [只看该作者]

 

Dim UserName As String = e.Form.Controls("UserName").Value

Dim cmd As New SQLCommand

Dim dt As DataTable

Dim dr As DataRow

cmd.C

If UserName = ""  Then

    Messagebox.show("请选择用户!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)

    Return

End If

cmd.CommandText = "Select * From {Users} Where [用户] = '" & UserName & "'"

dt = cmd.ExecuteReader

dr = dt.DataRows(0)

If e.Form.Controls("PassWord").Value = dr("密码") Then

    _UserName = UserName

    _UserGroup = dr("用户组")

    e.Form.Close

Else

    Messagebox.show("密码错误!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)

End If


 回到顶部
帅哥哟,离线,有人找我吗?
muhua
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:等待验证 帖子:3855 积分:20692 威望:0 精华:5 注册:2012/6/21 14:03:00
  发帖心情 Post By:2013/3/27 9:38:00 [只看该作者]

用户已被锁定

 回到顶部
帅哥哟,离线,有人找我吗?
bahamute
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:六尾狐 帖子:1425 积分:11332 威望:0 精华:0 注册:2008/9/1 22:20:00
  发帖心情 Post By:2013/3/27 9:57:00 [只看该作者]

非常感谢。

 回到顶部