Question

delphi登陆怎样进行权限设置

Edit1: TEdit;
Edit2: TEdit;
ComboBox1: TComboBox;分‘学生’和‘管理员’
Button1: TButton;
Button2: TButton;
ADOTable1: TADOTable;数据库‘用户名’，‘密码’，‘用户权限’三个部分
‘用户权限’分为‘学生’和‘管理员’。
怎样设置，求代码

Answer 1

为什么用ADOTABLE而不用Adoquery??
给你写伪代码吧，毕竟，你Edit和Button没说出干什么用。
一、假设edit1，edit2分别用于输入用户名和密码，button1点击事件用于检验是能否登录和分配权限，button2只能用于退出了（那button2事件没什么好写的，就close而已）
二、下面是伪代码：
{button1事件}
{
if ((edit1.txt='') or (edit2.txt='')) then //检查数据合法性
begin
showmessage('用户名或密码不能为空');
exit;
end;
{检查用户名和密码匹配}
{分配权限}
}
以上，因为你用的是Table,你得用filter才能进行帐号密码比较，这个就懒得写了

Answer 2

用CXIMAGCOMBOBOX控件设置 admin student admin为1 student 为2
登陆时 用sql语句进行select
if qry_qx.fieldbyname（‘qx’）.asstring=‘1’ then showmessage （‘管理员’）
else showmessage（‘student’）；

清楚了没？