textbox控件权限 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → textbox控件权限

共有6194人关注过本帖树形打印复制链接主题：textbox控件权限

andy

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：童狐帖子：215 积分：1855 威望：0 精华：0 注册：2011/4/19 9:49:00

textbox控件权限 发帖心情

Post By：2013/4/22 13:24:00 [只看该作者]

窗口中有很多个textbox，绑定在订单表的不同的列，有一个列用户名，如果登录者与该行创建的用户名一致，则textbox的内容可以编辑，否则不可以编辑。但是窗口中有几个单独的textbox不受任何登录着影响，都可以编辑。调试很久还是不成功。

现在简单做个例子，请高手指点下。

谢谢！

下载信息 [文件大小：下载次数： ]
点击浏览该文件:textbox权限.table

[此贴子已经被作者于2013-4-22 13:35:52编辑过]

ericsky

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：小狐帖子：363 积分：3831 威望：0 精华：0 注册：2012/4/16 20:20:00

Post By：2013/4/22 13:48:00 [只看该作者]

窗口事件afterload中设置代码：

if tables（"xxx").current（”用户名“）<> user.name then

e.form.controls("textbox").readonly = BooleanEnum.True '设置只读属性

end if

andy

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：童狐帖子：215 积分：1855 威望：0 精华：0 注册：2011/4/19 9:49:00

回复：（ericsky）窗口事件afterload中设置代码：if t... 发帖心情

Post By：2013/4/22 13:55:00 [只看该作者]

我的意思是张三登录的时候，张三可以修改张三录入的行，而不可以修改李四录入的行。谢谢！

andy

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：童狐帖子：215 积分：1855 威望：0 精华：0 注册：2011/4/19 9:49:00

Post By：2013/4/22 14:03:00 [只看该作者]

ericsky

小大 5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：小狐帖子：363 积分：3831 威望：0 精华：0 注册：2012/4/16 20:20:00

Post By：2013/4/22 14:09:00 [只看该作者]

在表事件 currentchanged 设置：

If e.Table.Rows.count > 0 Then

If Forms("录入").opened Then

If e.Table.current("用户名") <> user.name Then

forms("录入").controls("textbox5").ReadOnly =BooleanEnum.True

Else

forms("录入").controls("textbox5").ReadOnly =BooleanEnum.False

End If

andy

小大 6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：童狐帖子：215 积分：1855 威望：0 精华：0 注册：2011/4/19 9:49:00

Post By：2013/4/22 14:25:00 [只看该作者]

谢谢ericsky，OK了。虽然有点繁琐，要每个控件都去申明，但是总算打到目的了。

再次感谢！

andy

小大 7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：童狐帖子：215 积分：1855 威望：0 精华：0 注册：2011/4/19 9:49:00

Post By：2013/4/22 16:28:00 [只看该作者]

谢了天问

下一主题 >> << 上一主题

主题：textbox控件权限