实训05 权限实现

begin
Main_Form.mainMenu1.Items.Items[i1].Visible:=False;
j:=mainMenu1.Items[i1].Count-1;
j1:=0;
while j1<=j do
第3页
课时授课计划副页
年月日
教学过程及授课内容：
begin
Main_Form.mainMenu1.Items.Items[i1].Items[j1].Visible:=False;
图12二维平面菜单
第1页
课时授课计划副页
年月日
教学过程及授课内容：
3．建立一个用户权限数据表，用户权限数据表——qxb，中有两个字段，“用户名”和“功能项”。“用户名”唯一表示系统用户表中的一个用户，“功能项”唯一表示二维平面功能表中的一项功能。“功能项”字段的数据类型可选字符串型，长度为4。权限数据表——qxb结构描述如下：
字段名称数据类型长度
YHM文本20
GNX文本4
4．设置用户权限，用代码完成。
三、实训步骤
1．复制MyProject4文件夹到桌面，重命名为MyProject5，放回MyProject4文件夹所在的目录。打开MyProject5文件夹，双击项目文件Project1（Delphi Project）回到实训04的设计状态。在纸上构造二维平面功能表，如图14所示。
2．双击MainMenu1，打开主菜单设计器，按图14二维平面功能表。建立菜单系统。
3．在xsbm.mdb中，建立一个用户权限数据表，用户权限数据表——qxb，中有两个字段，“用户名”和“功能项”。“用户名”唯一表示系统用户表中的一个用户，“功能项”唯一表示二维平面功能表中的一项功能。“功能项”字段的数据类型可选字符串型，长度为4。权限数据表——qxb结构描述如下：
课时授课计划副页
年月日
教学过程及授课内容：
实训05权限实现
一、实训目的
（1）构造二维平面功能表；
（2）构造一个二维平面菜单来覆盖二维平面功能表；
（3）建立一个用户权限数据表；
（4）设置用户权限。
二、实训内容
1．在实训04的基础上构造二维平面功能表。如图14所示：
图14二维平面功能表
2．按图14构造一个二维平面菜单。如图12所示。
（1）定义一个过程“屏蔽”——Pingbi()，其功能是将所有的菜单项设置为不可见。代码描述如下：
procedure TMain_Form.Pingbi();
var
i,j,i1,j1:integer;
begin
i:=mainMenu1.Items.Count-1;
i1:=0;
while i1<=i do
end;
end;
在主窗体的OnCreate过程中添加代码如下：
StartMenu();
第7页
MainMenu1.Items.Items[0].Items[0].Visible:=True;
MainMenu1.Items.Items[0].Items[MainMenu1.Items
[0].Count-1].Visible:=True;
end;
再定义一个过程“用户权限”——Yhqx(vyhm:string)，根据用户权限数据表中的数据，为此用户设置权限。代码描述如下：
b:=strtoint(copy(fieldbyname('GNX').AsString,3,2));
Main_Form.mainMenu1.Items.Items[a].Visible:=True;
Main_Form.mainMenu1.Items.Items[a].Items[b].Visible:=True;
字段名称数据类型长度
yhm文本20
gnx文本4
输入内容如下：
第2页
课时授课计划副页
年月日
教学过程及授课内容：
yhm gnx
111 0401
111 0400
111 0301
111 0300
111 0200
111 0100
111 0003
111 0002
111 0001
111 0000
4．设置用户权限，用代码完成。
begin
Main_Form.dlname:=edit1.Text;
Main_Form.Yhqx(Main_Form.dlname);
close ;
end
else
begin
ShowMessage('请确认登录的用户名和密码是否正确！');
Edit1.SetFocus;
Edit1.SelectAll;
dlname,xgname:string;
登陆窗体的“确定”按钮的代码更改为如下：
procedure Tlogin_Form.Button1Click(Sender: TObject);
var
sqlstr,vyhm,vmm:string;
n:integer;
begin
vyhm:=edit1.Text;
next;
end;
Main_Form.StatusBar1.Panels[0].Text:='登录用户：'+Main_Form.dlname ;
end;
end
else
第5页
课时授课计划副页
年月日
教学过程及授课内容：
begin
StartMenu();
Main_Form.StatusBar1.Panels[0].Text:='登录用户：'+Main_Form.dlname ;
Main_Form.AddSQL(sqlstr,n);
if n>0 then
begin
with Main_Form.ADOQuery1 do
begin
Pingbi();
first;
while not eof do
begin
a:=strtoint(copy(fieldbyname('GNX').AsString,1,2));
vmm:=Edit2.Text;
sqlstr:='select * from users where(yhm='''+vyhm+''' and mm='''+vmm+''')';
Main_Form.AddSQL(sqlstr,n);
第6页
课时授课计划副页
年月日
教学过程及授课内容：
if n>0 then
j1:=j1+1;
end；
i1:=i1+1;
end;
end;
再定义一个过程“启动菜单”——StartMenu()。代码描述如下：
procedure TMain_Form.StartMenu();
begin
Pingbi();
MainMenu1.Items.Items[0].Visible:=True;
end;
if Main_Form.xgname='' then
cc:=''
else
cc:='编辑用户：';
Main_Form.StatusBar1.Panels[1].Text:=cc+Main_Form.xgname ;
end;
代码中用到两个全局变量dlname和xgname，在Type区的Public行下声明：
procedure TMain_Form.Yhqx(vyhm:string);
var
cc,sqlstr:string;
第4页
课时授课计划副页
年月日
教学过程及授课内容：
n,a,b:integer;
begin
sqlstr:='select * from qxb where (yhm='''+vyhm +''')';