if xz then TAction(f_gl.AL.Actions[n]).Enabled:=true else TAction(f_gl.AL.Actions[n]).Enabled:=false;
t_qx.Next;
end; //while ..END
t_qx.Close;
end; //with dm do ..END
end;
procedure Tf_password.b_okClick(Sender: TObject);
begin
f_password.Hide;
f_gl.Show;
end;
procedure Tf_password.SpeedButton1Click(Sender: TObject);
begin
//确认用户密码、权限的合法性
with dm do
begin
t_user.Filter:='name='''+e_user.KeyValue+'''';
t_user.Filtered:=true;
user_name:=t_user['name'];//记录登陆用户用户名
if (trim(e_user.KeyValue)=trim(t_user['name']))and(trim(e_password.Text)=trim(t_user['password'])) then
begin
f_password.JC_DATETIME; //检测计算机日期时间
//写入登陆日志
t_jrrz.Open;
rz_id:=t_jrrz.RecordCount+1; //记录登录系统ID
t_jrrz.Edit;
t_jrrz.Append;
t_jrrz['rz_id']:=rz_id;
t_jrrz['user_name']:=user_name;
t_jrrz['menu_caption']:='系统登陆';
t_jrrz['jrrq']:=now;
t_jrrz['rq']:=datetostr(now);
t_jrrz.Post;
t_jrrz.Close;
//日志写完毕
f_password.Hide;
f_gl.Show;
f_gl.ZT.Panels[2].Text:='当前操作员： '+t_user['name'];
f_password.qx; //调用用户的权限过程
t_user.Filtered:=false;
t_user.Close;
end
else
&n