delphi 登录时权限设置

Question

SQL用户表以及DELPHI截图如下
怎样通过mene_access中的数据来更改 VISIBLE 设置权限

Answer 1

登录的权限设置。代码怎么写啊。。通过MENU_ACCESS的1和0。。

Answer 2

//判断数据库里面有没有用户名和密码；
   SQL:='select * from 管理权限 where 用户='+#39+TempName+#39+' and 密码='+#39+TempSN+#39;
      DataModule1.ClientDataSet1.Active:=False;
      DataModule1.ClientDataSet1.DataRequest(SQL);
      DataModule1.ClientDataSet1.Active:=True;
      if DataModule1.ClientDataSet1.RecordCount>0 then  
进入下一步，否则退出。