Como fazer Login com banco de dados Firebird no Delphi
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
Curtidas 0
Respostas
Járabe Emanuel
14/11/2013
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
GOSTEI 0
Jore Maximus
14/11/2013
Muito Obrigado Járabe Emanuel me ajudou muito!
GOSTEI 0