请教如何实现这个功能啊.万急(0分)

  • 主题发起人 主题发起人 topdelphi
  • 开始时间 开始时间
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;
 
本人才疏学浅,发表一点拙见。
条件判断if mydbgrid.Columns[6].Checkboxes应该是
if ad.FieldByName('浏览记录') 吧。
 
谢谢先生的提点,我已经求决了.
 

Similar threads

S
回复
0
查看
896
SUNSTONE的Delphi笔记
S
S
回复
0
查看
873
SUNSTONE的Delphi笔记
S
后退
顶部