delphi 权限问题

Question

请问一下 DELPHI  如何做权限控制，请给一个实例可以吗？谢谢？数据库SQL

Answer 1

实例参数：
数据库：ＭＳＳＱＬ2005/ＭＳＳＱＬ2008
数据库名称：ＴＥＳＴ
表名：ＵＳＥＲ
内的字段：
用户ＩＤ      用户名　　权限
ＵＳＥＲ01   王某　　　　１
ＵＳＥＲ02   admin      0
ＵＳＥＲ03   刘某　　　　２
//解释
０：管理员权限　　　添加／修改／删除／查询记录，添加用户，报表打印
１：基本操作权限　　添加／修改／删除／查询记录，报表打印
２：普通权限　　　　查询记录／报表打印
／／－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－
此时可以用ＤＥＬＰＨＩ中编写读取这些＂权限＂后，再激活＂菜单＂中的相关选择项目即可

Answer 2

可以发到我邮箱吗？[email protected]