Fórum Como fazer Login com banco de dados Firebird no Delphi #461069
14/11/2013
0
Olá amigos,
Estou precisando de ajuda pois estou criando um projeto pessoal, onde vou ter uma tala de Login para o Usuário usando o banco de dados Firebird.
[IMG]http://4.bp.blogspot.com/-a0j_IzMBgo4/T28bhFiLbAI/AAAAAAAABfo/ozaKdnsyd5s/s1600/4.PNG[/IMG]
Eu até encontrei alguns tutoriais falando do assunto porém para a ligação com ADOConnectio e o ADOTable...
Para o tipo de ligação que faço não achei nada!
Estou usando:
Delphi XE4
Banco de Dados Firebird;
Um DataModule;
Ligação com IBDtaBase, IBTable e IBTransaction e DataSource;
Dois campos DBEdit (DBEdit_Nome e DBEdit_Senha);
Dois Buttons (Cancelar e Entrar).
Não tenho a mínima ideia de como se fazer...
Alguém pode me dar esta ajuda por favor!
Muito Obrigado!
Estou precisando de ajuda pois estou criando um projeto pessoal, onde vou ter uma tala de Login para o Usuário usando o banco de dados Firebird.
[IMG]http://4.bp.blogspot.com/-a0j_IzMBgo4/T28bhFiLbAI/AAAAAAAABfo/ozaKdnsyd5s/s1600/4.PNG[/IMG]
Eu até encontrei alguns tutoriais falando do assunto porém para a ligação com ADOConnectio e o ADOTable...
Para o tipo de ligação que faço não achei nada!
Estou usando:
Delphi XE4
Banco de Dados Firebird;
Um DataModule;
Ligação com IBDtaBase, IBTable e IBTransaction e DataSource;
Dois campos DBEdit (DBEdit_Nome e DBEdit_Senha);
Dois Buttons (Cancelar e Entrar).
Não tenho a mínima ideia de como se fazer...
Alguém pode me dar esta ajuda por favor!
Muito Obrigado!
Jore Maximus
Curtir tópico
+ 0
Responder
Posts
14/11/2013
Járabe Emanuel
1 - Faça uma tabela no teu banco,
2 - Crie um formulário para o cadastro dos usuários
3 - No campo da senha mude a propriedade PasswordChar de #0 para *, na hora de gravar coloque Tabela.FieldByName('Senha').AsString := Mutacao(DBEdit1.Text, 256);
4 - Faça formulário Login,
5 - no botão logar coloque:
with tabela do
begin
Close;
SQL.Clear;
Sql.Add('Select NOME, SENHA FROM tabela WHERE ');
Sql.Add(' NOME = :ANOME AND SENHA = :ASENHA');
ParamByName('ANOME').AsString := Edit1.Text;
ParamByName('ASENHA').AsString := Mutacao(Edit2.Text, 256);
Open
end;
Esse é o caminho das pedras.
Espero ter ajudado
2 - Crie um formulário para o cadastro dos usuários
3 - No campo da senha mude a propriedade PasswordChar de #0 para *, na hora de gravar coloque Tabela.FieldByName('Senha').AsString := Mutacao(DBEdit1.Text, 256);
4 - Faça formulário Login,
5 - no botão logar coloque:
with tabela do
begin
Close;
SQL.Clear;
Sql.Add('Select NOME, SENHA FROM tabela WHERE ');
Sql.Add(' NOME = :ANOME AND SENHA = :ASENHA');
ParamByName('ANOME').AsString := Edit1.Text;
ParamByName('ASENHA').AsString := Mutacao(Edit2.Text, 256);
Open
end;
Esse é o caminho das pedras.
Espero ter ajudado
Responder
Gostei + 0
16/11/2013
Jore Maximus
Muito Obrigado Járabe Emanuel me ajudou muito!
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)