if not (Dm.tab_Usuarios.Locate('UsuApelido', frmLogin.txtApelido.Text, [loPartialKey])) or (Dm.Tab_UsuariosUsuSenha.Value <> frmLogin.txtSenha.Text) then
begin
MessageDlg('Nome ou senha do usuário inválidos.'+#13+#13 + 'Se você esqueceu sua senha, consulte '+ #13 + 'o administrador do sistema', mtError, [mbOK], 0);
Pergunta
Januário mendes
Bom dia pessoal estou precisando de uma ajuda estou com esse problema na primeira linha desse código
""Dm.tab_Usuarios.Open;""" nessa linha
vlw obrigado
Dm.tab_Usuarios.Open;
frmDados.StatusBar1.Panels[2].Text:= ' Usuário:' +frmLogin.txtApelido.Text + ' - ' + Dm.tab_UsuariosUsuDepto.AsSTring;
if not (Dm.tab_Usuarios.Locate('UsuApelido', frmLogin.txtApelido.Text, [loPartialKey])) or (Dm.Tab_UsuariosUsuSenha.Value <> frmLogin.txtSenha.Text) then
begin
MessageDlg('Nome ou senha do usuário inválidos.'+#13+#13 + 'Se você esqueceu sua senha, consulte '+ #13 + 'o administrador do sistema', mtError, [mbOK], 0);
txtSenha.Clear;
txtSenha.SetFocus;
end
else
begin
frmLogin.Hide;
frmDados.ShowModal;
frmLogin.Release;
frmLogin := Nil;
end;
end;
end.
Link para o comentário
Compartilhar em outros sites
1 resposta a esta questão
Posts Recomendados
Participe da discussão
Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.