社区
Delphi
帖子详情
如何阻止用户查看pagecontrol的一些页?
eurika
2003-10-21 08:55:02
我的程序有一个pagecontrol,上面有几个页,需要根据用户的权限,有的人不能查看所有的页,怎样才能限制一些页被查看,而查看其它页有不会受到影响??
...全文
37
11
打赏
收藏
如何阻止用户查看pagecontrol的一些页?
我的程序有一个pagecontrol,上面有几个页,需要根据用户的权限,有的人不能查看所有的页,怎样才能限制一些页被查看,而查看其它页有不会受到影响??
复制链接
扫一扫
分享
转发到动态
举报
写回复
配置赞助广告
用AI写文章
11 条
回复
切换为时间正序
请发表友善的回复…
发表回复
打赏红包
kejian
2003-11-06
打赏
举报
回复
登陆时判断权限.
把权限不足的页hide.
if power<2 then
begin
PageControl1.Pages[4].TabVisible:=false;
PageControl1.Pages[6].TabVisible:=false;
PageControl1.Pages[7].TabVisible:=false;
end;
if power<0 then
begin
PageControl1.Pages[3].TabVisible:=false;
PageControl1.Pages[5].TabVisible:=false;
PageControl1.Pages[8].TabVisible:=false;
end;
Alanwn
2003-10-21
打赏
举报
回复
PageControl1.tabvisible:=false;
PageControl1.visible:=false;
就这样将不需要显示的页都false掉。
Linux2001
2003-10-21
打赏
举报
回复
可以结贴了
l_xiaofeng
2003-10-21
打赏
举报
回复
PageControl1.ActivePageIndex:=PageControl1.ActivePageIndex-1
eurika
2003-10-21
打赏
举报
回复
如果没有的话我怎么返回上一页
陈祥xx
2003-10-21
打赏
举报
回复
比如有两个页面,TabSheet1,TabSheet2,要访问前先判断用户的权限,如果用户只能查看
TabSheet1而不让看TabSheet2就不显示TabSheet2
具体如下:
procedure PageControl1Changing(Sender:TObject;var AllowChange:Boolean);
begin
if PageControl1.ActivePageIndex=1 then AllowChange:=false;
end;
herofy
2003-10-21
打赏
举报
回复
当一页要显示时检验是否有权限
eurika
2003-10-21
打赏
举报
回复
tanqth(青蛙),怎么判断用户要去的是哪一页呢,
jin_zai
2003-10-21
打赏
举报
回复
修改TabVisible属性
PageControl1.Pages[0].TabVisible:=false;
tanqth
2003-10-21
打赏
举报
回复
有权限的就显示页,没有的就把页隐藏了。
tanqth
2003-10-21
打赏
举报
回复
方法1:打开每页前要求输入密码;
方法2:进行用户登录的权限判断;
用什么办法才能使TabControl上的TabPage禁止切换?
private void tabControl1_Selecting( object sender, TabControlCancelEventArgs e) ...//m_nCurIndex = 当前
页
的index } 转载于:https://www.cnblogs.com/carl2380/archive/2011/10/28/2227334.html
Delphi数据库编程教程(八)
第二节浏览和导航 创建访问数据库数据的表单有两种不同的方法。第一种方法是使用Database Form Expert(数据库表单专家)。但不幸的是,数据库表单专家仅仅只可以... 定义
用户
界面(Defining the User Interface)
Delphi数据库编程新手指南(04)
上一章,我们讨论了一些“高级”的数据库编程技巧(译者加:相对于初学者而言)——现在让我们回到更适合“初学者”水平的课题。 这次,你将学会如何建立一个可用于浏览数据库表中记录的窗体。 前几章例子涉及...
ios学习--iphone开发笔记和技巧总结(原址持续更新)
iPhone开发实现splash画面非常简单,做一个全屏的欢迎
页
的图片,把它命名为Default.png,然后放在Xcode工程的Resource里面。 在XXXAppDelegate.m程序中,插入如下代码: - (BOOL)application:(UIApplication*)...
Delphi数据库编程教程(八) (转)
选择
PageControl
组件的第一
页
并在Browse(浏览)标签单上放置一个 db Grid(Data Controls
页
)组件。 放置一个DBNavigator组件(Data Controls
页
)。导航器按钮用于移动表中的记录。 通过使用 对象 检视器设置...
Delphi
5,388
社区成员
262,730
社区内容
发帖
与我相关
我的任务
Delphi
Delphi 开发及应用
复制链接
扫一扫
分享
社区描述
Delphi 开发及应用
社区管理员
加入社区
获取链接或二维码
近7日
近30日
至今
加载中
查看更多榜单
社区公告
暂无公告
试试用AI创作助手写篇文章吧
+ 用AI写文章