|
end
else begin // 是一个子菜单项
for MenuRow := 0 to Menu.Count-1 do begin
SearchSubMenu( Menu.Items[MenuRow] );
end;
end;
end;
begin // 这里仅对主菜单进行权限设置
if (ObjName Is TMainMenu) then begin
// 遍历菜单中的每个菜单项
for MenuCol := 0 to (ObjName as TMainMenu).Items.Count-1 do begin
MenuTemp := (ObjName as TMainMenu).Items[MenuCol];
SearchSubMenu(MenuTemp);
end;
end;
end;
2 用户登录
对一个数据库应用程序来说，用户登录是必不可少的。用户登录不仅是为了系统安全，也是为了设置登录用户的系统使用权限。
登录时，设置了一个计数器，用于对用户登录中出现的输入错误进行计数，当超过一定次数时，系统将退出。因此在登录界面类中定义一个计数变量，在登录界面的OnShow事件中进行初始化，并编制“登录”按钮的OnClick事件，进行用户登录的判定。用户登录界面如图7所示。
图7 系统登录界面
⑴ 定义计数变量。在登录界面类的private(私有数据)定义一个LoginCount变量：
LoginCount : Integer; // 输入计数器
|
