请教多用户分级权限设置！

[dawsons]

描述如下：
用户有管理员、操作员、营业员、普通用户。。。。
管理员权限最大，什么都可以做。
操作员权限为用户管理、权限设置、统计、浏览
营业员权限为数据输入、修改、删除等。
普通用户仅具有统计、浏览功能。
管理项有：
|—系统设置—|——用户管理
| |——密码设置
| |——权限管理
|—数据管理—|——新增
| |——修改
| |——删除
| |——结帐
| |——报表
|—查询统计—|——统计
| |——查询
请问如何编制用户表、权限表及管理项目表，要求管理项目表中有一级项和二级项或写到两个表中；以及如何设置及提取用户的权限。
请高手帮忙，或给份例程研究研究。多谢了。
EMAIL：[e-mail]

[八哥]

private const gUserAdmin=1 '用户管理
private Const gPasswordAdmin =2 '密码设置
private Const gPuerAdmin =4'权限管理
private Const gAddNew= 8'新增
private Const gChage =16'修改
private Const gDll = 32 '删除
private Const gPay=64 '结帐
private Const gStatement =128 ' 报表
private Const gCount=256 '统计
private Const gSelect =512 '查询

private lngAdmin '用来保存用户权限

'权限设置
lngAdmin=(gUserAdmin or gPasswordAdmin or gAddNew or gDll )

'权限判断
with response
if (lngAdmin and gUserAdmin)=gUserAdmin then .write "此用户有用户管理权限"

if (lngAdmin and gPasswordAdmin)=gPasswordAdmin then .write "此用户有密码管理权限"
if (lngAdmin and gAddNew)=gAddNew then .write "此用户有机新增权限"
if (lngAdmin and gChage)=gChage then .write "此用户有修改权限"
.............................
end with

[dawsons]

系统设置、数据管理、查询统计这些大项没了！！！
而且我想用表做，而不是变量来做。用表做是想维护方便，即使不是写程序的其他人也可以来添加需要补充的功能。

[Peter_Wang]

你可以下载一个小型论坛研究研究。
结构和你要求得差不多

[八哥]

我想用表做 什么意思?用手表还是电表?