|
2精币
本帖最后由 blue15 于 2011-7-6 14:20 编辑
一个用户名数据库,一个权限数据库。
启动窗口是登录窗口,"用户名"数据库,登录成功打开工作窗口。工作窗口上有菜单,"权限"数据库,根据权限数据库来显示菜单。
.版本 2
.子程序 _工作窗口_创建完毕
打开 (“权限.edb”, , , , , , )
.计次循环首 (取记录数 (), )
.如果 (读 (“用户名”) = 登录用户)
功能.可视 = 读 (“功能”)
各类软件.可视 = 读 (“各类软件”)
宽带资料.可视 = 读 (“宽带资料”)
设备清单.可视 = 读 (“设备清单”)
用户.可视 = 读 (“用户”)
增加用户.可视 = 读 (“增加用户”)
设置权限.可视 = 读 (“设置权限”)
修改密码.可视 = 读 (“修改密码”)
.否则
跳过 ()
.如果结束
.计次循环尾 ()
关闭 ()
这段代码不屏蔽,登录窗口能打开“用户名”数据库,进了工作窗口以后就打不开“用户名”数据库
这段代码全屏蔽,软件里任何地方都可以打开用户名数据库,什么原因?
|
回答提醒:如果本帖被关闭无法回复,您有更好的答案帮助楼主解决,请发表至 源码区 可获得加分喔。 友情提醒:本版被采纳的主题可在 申请荣誉值 页面申请荣誉值,获得 1点 荣誉值,荣誉值可兑换荣誉会员、终身vip用户组。 快捷通道:申请荣誉值 →
|