Fórum Senha, alguém pode me ajudar? #157664

Olha meu brother, o negocio fununcia assim.
-. Crie uma nova tabela com os campos Usuario(chave primaria) e senha (ambos A).
-.No form1 da sua aplicação coloque dois edits e um botão.
-.Insira dois labels como rotulos, para o edit 1 coloque usuario, para o 2 ccoloque Senha.
-. Insira o componente Ttable da paleta BDE..
-. Clique em cima do componente com o botão direito e insira os campos.
-. No evento Onclick do botão, digite o seguinte codigo.

begin
if not table1.findkey([edit1.text]) then
messagedlg (´Usuario incorreto´, mterror, [mbok], 0) else
begin
if not (table1senha.value = edit2.text) then
messagedlg (´Senha incorreta´, mterror, [mbok], 0) else
begin
form2.showmodal;
end
end
end;

Voce tera que ter algum loggin ja editado na tabela, um bom modo é cria o form2 com um cadastro de senhas, ai puxa ele antes do from1, cadastra, e deixa na ordem certa. Qualquer duvida me bata um toque no ICQ, q eu te ajudo, 221075981. blz meu brother, desde ja um abraço.Henry.

Olha meu brother, o negocio fununcia assim.
-. Crie uma nova tabela com os campos Usuario(chave primaria) e senha (ambos A).
-.No form1 da sua aplicação coloque dois edits e um botão.
-.Insira dois labels como rotulos, para o edit 1 coloque usuario, para o 2 ccoloque Senha.
-. Insira o componente Ttable da paleta BDE..
-. Clique em cima do componente com o botão direito e insira os campos.
-. No evento Onclick do botão, digite o seguinte codigo.

begin
if not table1.findkey([edit1.text]) then
messagedlg (´Usuario incorreto´, mterror, [mbok], 0) else
begin
if not (table1senha.value = edit2.text) then
messagedlg (´Senha incorreta´, mterror, [mbok], 0) else
begin
form2.showmodal;
end
end
end;

Voce tera que ter algum loggin ja editado na tabela, um bom modo é cria o form2 com um cadastro de senhas, ai puxa ele antes do from1, cadastra, e deixa na ordem certa. Qualquer duvida me bata um toque no ICQ, q eu te ajudo, 221075981. blz meu brother, desde ja um abraço.Henry.