LZ想怎么授权法？

我想设2个等级的用户,1个高级用户,可以查看所有内容,包括保密的图纸或其他信息;第2个是普通用户,可以查看到指定范围的内容,部分保密信息点击后提示"您的权限无法查看此信息",这样就可以了.不管怎么样还是感谢回复的朋友,非常感谢.

中午饭不吃了,求答案,哪位朋友可以帮助我把授权这里弄明白呢?

===Interface
Function GetLevel(username as string,userpwd as string) as integer
''' 高级用户返回2 普通用户返回1 登陆错误返回0



===Usage
Sub 查看保密图纸_Click()
if getlevel(username,userpwd)>=2 then
....
end if
End sub

这个是基本方式

同意LS的

饭还是要吃。人是Fe，饭是CFe……

茅塞顿开,非常感谢,

请总结你的提问贴，谢谢合作。
======
为什么要总结提问？
答：见置顶帖。
1、在自己得到了别人的帮助以后，一定在最后总结一下，请不要一声不吭的走人。
总结的内容包括：1、问题到底出在哪里。2、通过第几楼的方法解决的。
这种总结，其他人很有用，通过看总结他们可以知道第几楼的方法是对的。
在自己的求助帖最后做总结是对其他人的奉献，是对高手最好的回报。
如果嫌总结浪费自己的时间，麻烦您最后简短的说声“谢谢”吧。

好的,我马上做

VB6自己带的安装包制做工具可以打包文件夹吧