ActiveDelphi

[ICMRS]

Boa Noite Galera, eu to fazendo um sistema aqui, bd em Access, mas na hora de logar, tenho 2 Usuários cadastrados no banco, mas na hora do login ele só leva em conta o 1º da tabela do DB ... Por favor me ajudem... vou mandar a Unit da Tela de Login 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_UsuariosUsuSenha.Value <> FrmLogin.EdtSenha.Text) and
(Dm.tab_UsuariosUsuApelido.AsString <> FrmLogin.EdtApelido.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);
EdtSenha.Clear; // limpa o objeto EdtSenha
EdtSenha.SetFocus; //Ajusta o foco para o objeto EdtSenha
end
else
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;

end;

end.

[pestana]

Esta dúvida esta mais relacionado com a seção Delphi do que Automação Comercial. É interessante você postar as suas dúvidas nas seções correta do fórum, para que você possa obter um melhor resultado, com isso você ajuda o fórum e a você mesmo.

Sobre a sua dúvida...

eu não entendi:

[imex]

Bom dia,

Concordo com o Pestana, também acho que você deveria ter postado está dúvida na seção Delphi.
Sobre a questão, confira o tópico abaixo:
http://www.activedelphi.com.br/forum/viewtopic.php?t=67220&start=0&sid=0504807204bf021f7c2598831db6aab2

Espero que ajude.

_________________
Assinatura: Imobiliarias em Guarulhos

[ICMRS]

Isso mesmo ... Eu tenho 2 Usuarios cadastros, mas quando ele vai conferir pra logar, ele só leva em conta a 1ª senha ... Peço desculpas pelo ocorrido do tópico em local errado, pois sou novo aqui nesse site...