Senha, alguém pode me ajudar?
bom dia pessoal, é o seguinte, preciso fazer um programa simples que
tenha um form de senha na entrada (o usuário precisar digitar um nome de usuário e uma senha para acessar o sistema) e que quando acessar abra um form principal onde ele fara inclusão de usuarios novos e cadastro de senha.
gostaria de um exemplo, se me poderem enviar um, fico grato.
Agradeço desde já.
tenha um form de senha na entrada (o usuário precisar digitar um nome de usuário e uma senha para acessar o sistema) e que quando acessar abra um form principal onde ele fara inclusão de usuarios novos e cadastro de senha.
gostaria de um exemplo, se me poderem enviar um, fico grato.
Agradeço desde já.
Rafael Santana
Curtidas 0
Respostas
Henry
03/05/2003
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.
-. 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.
GOSTEI 0
Henry
03/05/2003
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.
-. 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.
GOSTEI 0