欢迎来到天天文库
浏览记录
ID:22287266
大小:315.00 KB
页数:8页
时间:2018-10-28
《实验课题四用户登录与权限设计》由会员上传分享,免费在线阅读,更多相关内容在学术论文-天天文库。
1、实验报告2012-2013学年第1学期任课老师:课程名称《C/S程序综合设计》班级网络工程座号姓名实验题目实验课题四、用户登录与权限设计实验时间实验目的、要求用户在这里就指操作人员,已经在人员档案中进行管理,通过设H•用户登录和用户权限的管理,实现用户按权限访M资源,管理员按要求授予用户权限,登录程序安全稳定,设计用户菜单及程序调用。人员表中需要新增字段口令、用户权限。系统中每个操作人员都可以作为用户,当一个用户权限修改时,不会影响其他用户;可以对每个用户单独授予某个程序的执行权,也可以收冋其执行权,而不影响其他用户的权限;1.用户登录程序,名称用以“班级+座号+(表示程序名的中英文信息
2、)”来命名,输入用户名和U令,判断正确后,按用户的权限,显示有权的菜单项,无权菜单项必须不可见或不可操作。2.用户授权程序,名称用以“班级+座号+(表示程序名的中英文信息)”来命名。有授权权限的用户,可以指定某个用户获取某个程序执行权,或被禁止某个程序的执行权。实验设计内容用户登录与权限设计主界面.•登陆界面:授权界面:实验报告2012-2013学年第1学期任课老师:课程名称《C/S程序综合设计》班级网络工程座号姓名实验题目实验课题四、用户登录与权限设计实验时间实验目的、要求用户在这里就指操作人员,已经在人员档案中进行管理,通过设H•用户登录和用户权限的管理,实现用户按权限访M资源,管理
3、员按要求授予用户权限,登录程序安全稳定,设计用户菜单及程序调用。人员表中需要新增字段口令、用户权限。系统中每个操作人员都可以作为用户,当一个用户权限修改时,不会影响其他用户;可以对每个用户单独授予某个程序的执行权,也可以收冋其执行权,而不影响其他用户的权限;1.用户登录程序,名称用以“班级+座号+(表示程序名的中英文信息)”来命名,输入用户名和U令,判断正确后,按用户的权限,显示有权的菜单项,无权菜单项必须不可见或不可操作。2.用户授权程序,名称用以“班级+座号+(表示程序名的中英文信息)”来命名。有授权权限的用户,可以指定某个用户获取某个程序执行权,或被禁止某个程序的执行权。实验设计内
4、容用户登录与权限设计主界面.•登陆界面:授权界面:elsebeginiftrim(adoqueryl.FieldByName('川户名’).AsString)=’admin’thenform6.showelseform1.show;endend;end;査看己有用户权限:procedureTForm6.Button1Click(Sender:TObject);vara,b:string;i:integer;beginchecklistboxl•Checked[0]:=false;checklistbox1.Checked[1]:=false;checklistboxl.Checked[2
5、]:=false;adoqueryl.close;adoquery1.SQL.Clear;adoqueryl.SQL.Add('select*fromwl100323用户表•);adoqueryl.SQL.Addfwhere用户名='"+trim(form6.edit1.Text)+"");adoqueryl.Open;iftrim(editl.Text)="thenshowmessage(•用户名不能为空•)elsebeginifadoqueryl.RecordCount=0thenshowmessagef该用户不存在》elsebegina:=adoqueryl.FieldByName
6、(•权限’).AsString;i:=0;whilei7、+l;end;withAD0Query2dobeginclose;sql.Clear;sql.AddfupdatewI100323用户表set权限=n'+c+•…);sql.AddCwhere用户名='"+editl.Text+"n);execsql;showmessage(•更新成功•);end;end;procedureTForm2>FormActivate(Sender:TObject);vara,b:string;i:int
7、+l;end;withAD0Query2dobeginclose;sql.Clear;sql.AddfupdatewI100323用户表set权限=n'+c+•…);sql.AddCwhere用户名='"+editl.Text+"n);execsql;showmessage(•更新成功•);end;end;procedureTForm2>FormActivate(Sender:TObject);vara,b:string;i:int
此文档下载收益归作者所有