MainForm.Database1 do//数据库登录
          begin //1
               close;
               Params.Clear ;
               Params.Add('DATABASE NAME=student');
               Params.Add('USER NAME='+edtName.text);//用户名
               Params.Add('PASSWORD='+edtPasswd.Text ); //密码
               open;  
           with strlimit do//查询角色名
                    begin //2
                         params[1].asstring:=edtName.text;//传递用户名
                         open;//打开存储过程
                         Password:=edtPasswd.text;
                         role:=fieldbyname('GroupName').asstring;
                    end; //2
                    //Disenableitem;//将所有菜单置不可用状态
                    if role='BookAdministration' then //设置教材科权限
                       begin
                           flag:=1;
                       end;