Fórum Restrigir Acesso Para usuario. #368242

var s,dados,rots,usu,senha: string;
tx: TextFile;
i,j: integer;
begin
try
usu := Trim(edUsu.Text);
if usu = ´MASTER´ then begin
ok:= true;

eu já não sei porque dar dando erro somente neste form...


for i := 0 to fmenu.MainMenu1.Items.Count - 1 do begin
fmenu.MainMenu1.Items[i].enabled := true;
for j := 0 to fmenu.MainMenu1.Items[i].Count - 1 do
fmenu.MainMenu1.Items[i].Items[j].enabled := true
end;
exit
end;
except
Showmessage(´Erro´);
end;


senha := Encripta(usu,StrToInt(edSenha.Text));
if not tbUsuario.Active then
tbUsuario.Open;
if tbUsuario.Locate(´Usuario;Senha´,
VarArrayOf([usu,senha]),[]) then begin
ok := true;
rots := flogon.tbUsuarioRotinas.Value;
tbUsuario.Close;
HabMenu(fmenu.MainMenu1,fmenu.Menu,rots);
{// with fPrinc.stBar do begin
Panels[0].Text := ´ ---> Usuário: ´ + usuario;
Panels[1].Text := ´ Logon às ´ + TimeToStr(Now) +
´ do dia ´ + DatetoStr(Now)
end }
end
else begin
tries := tries + 1;
if tries > 3 then
Application.Terminate;
ShowMessage(´Verifique Usuário/Senha!´);
edUsu.SetFocus;
ok := false
end;
Close
end;



se alguem suber o porque...
me ajudem