| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- 求助：在状态栏显示授权用户名称，如XX公司，怎么设置，怎么写代码？ (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=86872) |
| -- 作者：jhxb8821 -- 发布时间：2016/6/28 10:01:00 -- 求助：在状态栏显示授权用户名称，如XX公司，怎么设置，怎么写代码？ 求助：在状态栏显示授权用户名称，如XX公司，怎么设置，怎么写代码？ |
| -- 作者：大红袍 -- 发布时间：2016/6/28 10:18:00 -- StatusBar.Message1 = "当前用户:" & user.name |
| -- 作者：jhxb8821 -- 发布时间：2016/6/28 10:25:00 -- 若状态栏显示：授权用户：浙江XX公司，当前登录用户：XX人，职务：部门经理，后面的我知道怎么设置的，就是前面的授权用户不知道怎么设置和写代码？ |
| -- 作者：大红袍 -- 发布时间：2016/6/28 10:30:00 -- 授权用户如何取值啊？ |
| -- 作者：jhxb8821 -- 发布时间：2016/6/28 11:05:00 -- 在系统设置表中，列名为授权用户 |
| -- 作者：大红袍 -- 发布时间：2016/6/28 11:16:00 -- 登陆的时候，用一个变量记录授权用户的值，或者是，登陆的时候用一个变量记录那一行的值。 |
| -- 作者：jhxb8821 -- 发布时间：2016/6/28 11:24:00 -- 是不是这样写吗 dim r as Datarow= 存储公司名的行 Dim Str1 As String = "授权用户:" & r("公司名称") & " 当前登录用户: " & User.Name & " 时间:" & Date.Now() & " 星期" & "日一二三四五六".Chars(Today.DayOfWeek) StatusBar.Message2 = Str1 w = 存储公司名称的行 |
| -- 作者：大红袍 -- 发布时间：2016/6/28 11:26:00 -- 根据user.name去查找对应的行
http://www.foxtable.com/help/topics/0396.htm
|
| -- 作者：jhxb8821 -- 发布时间：2016/6/28 12:02:00 -- “公司名称”在“系统设置”表中，列名为“公司名称”，第一行 Dim dr As DataRow Dim Str1 As String = "授权用户:" & dr("公司名称") & " 当前登录用户: " & User.Name & " 时间:" & Date.Now() & " 星期" & "日一二三四五六".Chars(Today.DayOfWeek) 老师，这样写也不行，你看怎么修改？
|
| -- 作者：大红袍 -- 发布时间：2016/6/28 12:09:00 -- Dim dr As DataRow = DataTables("系统设置").Find("用户名 = \'" & user.Name & "\'") If dr IsNot Nothing Then Dim Str1 As String = "授权用户:" & dr("公司名称") & " 当前登录用户: " & User.Name & " 时间:" & Date.Now() & " 星期" & "日一二三四五六".Chars(Today.DayOfWeek) StatusBar.Message2 = Str1 End If [此贴子已经被作者于2016/6/28 14:54:58编辑过]
|