T
topdelphi
Unregistered / Unconfirmed
GUEST, unregistred user!
我的SQL数据库里有一个用户表, 其中有三个字段,类型为BIT,
我想除了根据用户进入系统的用户名和密码来验证,对软件的操作之外,
还根据管理员所比定的这三个字段的权限来对表的功能菜单操作,例如:我的数据表结构如下.
代号 用户名 密码 类别 浏览记录 查询记录 修改用户
1 soft 1234 超级用户 1 1 1
2 鸟人 abcd 普通用户 1 1 1
3 guest guest 0 0 1
怎样可以根据这三个字段来对表和操作权限来限制用户的操作,我的代码如下,
但是总不能实现,请指教
procedure TForm1.cmd_enterClick(Sender: TObject);
begin
ad.Close;
ad.SQL.Clear;
ad.SQL.Add('select * from users where user_names='''+trim(dbcom.Text)+
''' and user_pwd='''+trim(edit2.Text )+'''');
ad.Open;
if ad.RecordCount =1 then
begin
showmessage('输入正确');
//下面是用户进入系统之后,所具备的操作权限
if mydbgrid.Columns[5].Checkboxes then
begin
form1.N10.Enabled:=true;
end
else
begin
mydbgrid.Columns[5].Checkboxes:=false;
n1.Enabled :=false;
end;
if mydbgrid.Columns[6].Checkboxes then
begin
n15.Enabled :=true;
end
else
begin
mydbgrid.Columns[6].Checkboxes :=false;
n15.Enabled :=false;
end;
if mydbgrid.Columns[7].Checkboxes then
begin
n1.Enabled :=true;
end
else
begin
mydbgrid.Columns[7].Checkboxes :=false;
n1.Enabled :=false;
end;
exit;
end
else
if ad.IsEmpty then
begin
showmessage('用户名或密码不正确,请重新输入');
dbcom.SetFocus;
end;
end;
我想除了根据用户进入系统的用户名和密码来验证,对软件的操作之外,
还根据管理员所比定的这三个字段的权限来对表的功能菜单操作,例如:我的数据表结构如下.
代号 用户名 密码 类别 浏览记录 查询记录 修改用户
1 soft 1234 超级用户 1 1 1
2 鸟人 abcd 普通用户 1 1 1
3 guest guest 0 0 1
怎样可以根据这三个字段来对表和操作权限来限制用户的操作,我的代码如下,
但是总不能实现,请指教
procedure TForm1.cmd_enterClick(Sender: TObject);
begin
ad.Close;
ad.SQL.Clear;
ad.SQL.Add('select * from users where user_names='''+trim(dbcom.Text)+
''' and user_pwd='''+trim(edit2.Text )+'''');
ad.Open;
if ad.RecordCount =1 then
begin
showmessage('输入正确');
//下面是用户进入系统之后,所具备的操作权限
if mydbgrid.Columns[5].Checkboxes then
begin
form1.N10.Enabled:=true;
end
else
begin
mydbgrid.Columns[5].Checkboxes:=false;
n1.Enabled :=false;
end;
if mydbgrid.Columns[6].Checkboxes then
begin
n15.Enabled :=true;
end
else
begin
mydbgrid.Columns[6].Checkboxes :=false;
n15.Enabled :=false;
end;
if mydbgrid.Columns[7].Checkboxes then
begin
n1.Enabled :=true;
end
else
begin
mydbgrid.Columns[7].Checkboxes :=false;
n1.Enabled :=false;
end;
exit;
end
else
if ad.IsEmpty then
begin
showmessage('用户名或密码不正确,请重新输入');
dbcom.SetFocus;
end;
end;