Ajuda com DELPHI [RESOLVIDO]

ghoostuser
(usa Arch Linux)

Enviado em 08/09/2011 - 03:29h

Pessoal é o seguinte, preciso fazer um sistema em delphi onde tenha uma tela de login, para poder entrar no sistema. A tela de login, tem que carregar antes da tela principal.
Tenho que fazer esse login, com banco de dados (Interbase) pegando o usuario e senho da banco.

Resumindo: 1- criar tela de login que carregue antes da minha tela principal.
2- criar programa do botão pra logar o usuario e senha que foi digitado na tela, com usuario e senha do banco de dados.


Sei que delphi não é da "praia" do linux, mais tem pessoas aqui que sabem Lazarus, e pra saber lazarus, soponho que aprenderam delphi.

Me ajudeeeemmm por favor.

f_Candido
(usa Ubuntu)

Enviado em 08/09/2011 - 11:39h

Olá,

Podemos te ajudar sim, claro! Contudo, o que você já fez? O que conseguiu evoluir?

Abraços

ghoostuser
(usa Arch Linux)

Enviado em 10/09/2011 - 00:41h

A pergunta seriamelhor se fosse assim, @candido: "O que vc não conseguiu fazer?".O problemaé aconexão com BD, eu até consigo fazer o login, mais apenas com um usuario de login, cadastrado no BD.

fiz a tela de login, ligando com banco de dados(Interbase), só que tem um poderem, no meu banco estão cadastrados 3 usuarios (esses usuarios são para logar na tela de login) quando eu tento logar com algum deles, da erro, dizendo e usuario ou senha esta errado, mais não esta.

Agora que me deixa com mais duvida ainda:

Eu disse que meu sistema não faz o login com mais de um usuario de login, cadastrado no banco, mais qdo eu deixo apenas um usuario de login cadastro no banco e faço o login, ai sim, eu tenho o login com sucesso.

Resumindo: Só consigo fazer o login, se no meu banco de dados estiver apenas um usuario de login cadastrado, se tiver mais que um, o sistema na faz o login de nenhum usuario.

minha tabela de usuario de login esta assim no BD:

CREATE TABLE login(
usuario varchar(20) not null primary key,
senha varchar(20)
);

andrezc
(usa Debian)

Enviado em 10/09/2011 - 10:18h

Você postou a tabela, mas não mostrou como está tentando fazer a autenticação. O erro é aí, correto?

Seria basicamente isso:

var
user, passwd : String

...

TComponenteBD.SQL.Add(SELECT usuario, senha FROM login WHERE usuario = :youruser);
TComponenteBD.paramByName("youruser") := editUser.text;
user:= TComponenteBD.FieldByName("usuario");
passwd:= TComponenteBD.FieldByName("senha");

...

depois seria só comparar as variáveis:

if editSenha.Text = passwd then
begin
ShowMessage('Logado com sucesso!')
else
ShowMessage('Senha errada!');

onde "TComponenteBD" é o seu componente de execução de Querys. Não sei se as propriedades são iguais no Lazarus, mas no IB_Query, do Delphi, seria assim.