ActiveDelphi

[ICMRS]

[ICMRS]

Só mais uma Duvida ... Se ele não acha o Usuario ele não da o Erro :/

Me informem uma possivel solução ???

A Unit segue abaixo


unit ULogin;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Buttons, ExtCtrls;

type
TFrmLogin = class(TForm)
Image1: TImage;
GrpBxLogin: TGroupBox;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
EdtApelido: TEdit;
EdtSenha: TEdit;
BtnOk: TBitBtn;
BtnCancelar: TBitBtn;
procedure BtnCancelarClick(Sender: TObject);
procedure BtnOkClick(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
FrmLogin: TFrmLogin;

implementation

uses UDM, UMenuPrin;

{$R *.dfm}

procedure TFrmLogin.BtnCancelarClick(Sender: TObject);
begin
Application.Terminate;
end;

procedure TFrmLogin.BtnOkClick(Sender: TObject);
begin
Dm.tab_Usuarios.Open; // abre a tabela tab_Usuarios
FrmMenuPrin.StatusBar1.Panels[2].Text := ' Usuário:' + FrmLogin.EdtApelido.Text + ' - '+ Dm.tab_UsuariosUsuDepto.AsSTring;

if Dm.tab_Usuarios.Locate('UsuApelido', EdtApelido.Text,[]) = True then //achou o usuario
if Dm.Tab_Usuarios.FieldByName('UsuSenha').AsString = EdtSenha.Text then
//achou a senha valida para o usuario, dai permite acesso ao sistema


begin

FrmLogin.Hide; //Esconde a tela
FrmMenuPrin.ShowModal; //chama a tela FrmMenuPrin no modo modal
FrmLogin.Release; //Remove a tela da memória
FrmLogin := Nil; //Atribui conteúdo nulo para a variável de tela FrmLogin

end
else
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);
EdtSenha.Clear; // limpa o objeto EdtSenha
EdtSenha.SetFocus; //Ajusta o foco para o objeto EdtSenha

end;

end;

end.

[Ghost_Rider]

Esse seu form de login, é o primeiro que inicia ou é o form principal que incia primeiro ?

[ICMRS]

[Ghost_Rider]

Tá...seus forms estão sendo carregados dinamicamente ou quando vc inicia o projeto já estão todos criados ???

[ICMRS]

[Ghost_Rider]

Ta usando datamodule ou esta colocando os componentes de conexão num dos forms ???

Qual componente de acesso ao banco ta usando ?

[ICMRS]

[ICMRS]

Por que tipo o que está acontecendo é o seguinte, se você digitar o usuario certo, mas a senha errada, ele dá o aviso "

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);
EdtSenha.Clear; // limpa o objeto EdtSenha
EdtSenha.SetFocus; //Ajusta o foco para o objeto EdtSenha

"

Mas se vocÊ digita o usuário errado, o botão OK, pra entrar fica sem ação... Ou seja ele não dá o erro que deveria dar !!!

[Ghost_Rider]

Tá... na verdade não esta dando erro nenhum amigo, explica direito..da uma olhada no seu post....bom, vamos lá...

if Dm.tab_Usuarios.Locate('UsuApelido', EdtApelido.Text,[]) = True then
begin
//achou o usuario
if Dm.Tab_Usuarios.FieldByName('UsuSenha').AsString = EdtSenha.Text then
//achou a senha valida para o usuario, dai permite acesso ao sistema
begin
FrmLogin.Hide; //Esconde a tela
FrmMenuPrin.ShowModal; //chama a tela FrmMenuPrin no modo modal
FrmLogin.Release; //Remove a tela da memória
FrmLogin := Nil; //Atribui conteúdo nulo para a variável de tela frmLogin
end
else
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);
EdtSenha.Clear; // limpa o objeto EdtSenha
EdtSenha.SetFocus; //Ajusta o foco para o objeto EdtSenha
end
else
//mensagem do usuário não encontrado

end;


Da uma olhada no código que postei, logo abaixo do locate, coloquei um begin, e aqui em baixo, fechando esse begin um else para voce poder informar o usuario não encontrado..


Cara, vc disse que isso é um TCC, ta fazendo que curso ???
Porque esse "problema" é logica pura...ou vc pulou as aulas de logica ou seu professor é horrivel hein....

[ICMRS]

[Ghost_Rider]

Hum...e ai, deu certo ?

[ICMRS]