Sistema de Login com Interbase

[Lucas Vida 0]

Boa tarde pessoal, tenho mais uma dúvida sobre o Delphi, estou necessitando fazer um sistema de login com banco de dados. Até então só encontrei tutorias que ensinan a fazer da forma de comprar uma variável. Outro que encontrei foi até aqui do forum, porém o banco utilizado é o Firebird (http://forum.imasters.com.br/index.php?/topic/223073-tutorial-como-criar-um-sistema-de-login/). No meu caso, gostaria de fazer com banco sendo que se possível fazer destinção de admin e usuário comun. Dai a ideia é fazer a consulta no BD e se o cara tiver um código ele é admin se ele tiver outro código ele é user. Dai a ideia que eu tenho de lógica é se a pessoar for Admin abre formulário x (x.showmodal) e se ele é user abre y(y.showmodal). Espero que tenham entendido a minha dúvida...heheh

 

Obrigado a todos.

[Raficcha 1]

Ora, Peque o que ele digitou e faça um select no banco.. : D

 

hehe..

 

faz assim, crie um form que peça login e senha. Depois de um select no banco de dados pedindo pelo usuario e senha que o usuário digitou. Se o banco não retornar nada é por que ele digitou a senha errada ou um uauário que não existe. Se ele retornar alguma coisa, vai se o usuário que ele digitou..

 

Quando ás permissões de usuários, crie mais uma coluna na sua tabela de usuários que indica o tipo de usuario (ex.: tipo_usr), se o valor desta coluna foi 0 é usuário comum, se for 1 é administrador, 2 é "mega super ultra power full X10 user" e assim por diante. E de acordo com o valor retornadao nesta coluna, você habilita ou desabilita componentes e funções do programa, ou como você disse, mostre um formulário especial.

[Lucas Vida 0]

Boa noite amigo, bom a lógica é essa mesmo (assim como a maioria dos sistemas de login...hehe). creio que não estou sabendo usar os componentes adequados pois não tenho conseguido fazer essas verificações. Até então tenho dois labels (nome,senha), 2 edits, 1 ibdatasource, 1 ibdatabase,1 ibquery, 1 ibtransaction, 1botão. A minha tabela esta assim:

 

Tabela

 

CREATE TABLE LOGIN (
"COD"	NUMERIC(4, 0) NOT NULL,
"LOGIN" VARCHAR(20),
"SENHA" VARCHAR(20),
"ID" VARCHAR(5),
CONSTRAINT "PK_CADCLIENTES" PRIMARY KEY ("COD")
);

Botão Logar

 

begin
ibq_login.Close;
ibq_login.SQL.Text:= 'SELECT LOGIN FROM LOGIN WHERE LOGIN ='+ 'nome.Text''';
ibq_login.Open;
end;

Só que essa parte não está funcionando direito, tb não sei como recuperar de forma efetiva a consulta do banco para ver se retornou algum resultado.

 

OBS: o campo ID seria para recuperar a informação de acesso do usuário...para ver qual formulário ele vai acessar.

 

Dai pensei algo, se nome e senha estão corretos pegue o valor do ID caso(Case/Switch) o 1 seja um frm_admin.showmodal,...caso seja 2 frm_user.showmodal...É por ai que estou indo...

 

Obrigado mais uma vez.

 

Abraços e bom FDS

[wllf 2]

Lucas, acho que invés do campo ID você pode colocar um campo 'privilégio'(ADMISTRADOR OU USUÁRIO) , a partir dai é só pegar NOME A SENHA E PRIVILÉGIO no select.

 

Percebi que uma de suas dúvidas é como pegar o resultado da consulta, eu uso componentes da paleta ADO mas acho que é mais ou menos parecido. Entre as propriedades da sua ibquery está relacionado o nome da ibquery+campo:

 

Digite ibquery.... aí aparece

 

"ibquery1NOME.Asstring" pronto você já tem o resultado do select só do campo NOME, assim por diante você pode colher os resultados da SENHA E PRIVILÉGIO e montar condições para abertura de formulários.

 

Acho que é isso, senão for posta aí ....