Fórum SENHA? #168745
10/07/2003
0
Preciso de um exemplo de senha
onde o usuário digite a senha e acessa o sistema
Não precisa ser muito complexo, mas também nem muito simples
obrigado
onde o usuário digite a senha e acessa o sistema
Não precisa ser muito complexo, mas também nem muito simples
obrigado
Rafael Santana
Curtir tópico
+ 0
Responder
Posts
10/07/2003
Ropesca
Faça assim.
Crie uma tabela paradox com os campos Usuario(chave primaria) e senha
OS campos devem ser A e N.
No form que vc quer criar o login insira dois edits e um button. Insira tambem uma table da paleta bde. Especifique Databa name, e table name, e clique em active = true. Insira os campos dentro da tabela clicando com o botao direito emcima da tabela e escolhendo fieldeditor.
Dentro da janela que se abriu, clique de novo com o botao direito, e clique em add fields, e adicione os dois campos.
No evento onclick do button, digite o seguinte codigo:
begin
if not table1.findkey([edit1.text]) then
messagedlg (´Usuario invalido´, mterror, [mbok], 0)
else
if not (table1senha.value = edit2.text) then
messagedlg (´Senha invalida´, mterror, [mbok], 0)
else
begin
form2.showmodal;
end
end;
Crie uma tabela paradox com os campos Usuario(chave primaria) e senha
OS campos devem ser A e N.
No form que vc quer criar o login insira dois edits e um button. Insira tambem uma table da paleta bde. Especifique Databa name, e table name, e clique em active = true. Insira os campos dentro da tabela clicando com o botao direito emcima da tabela e escolhendo fieldeditor.
Dentro da janela que se abriu, clique de novo com o botao direito, e clique em add fields, e adicione os dois campos.
No evento onclick do button, digite o seguinte codigo:
begin
if not table1.findkey([edit1.text]) then
messagedlg (´Usuario invalido´, mterror, [mbok], 0)
else
if not (table1senha.value = edit2.text) then
messagedlg (´Senha invalida´, mterror, [mbok], 0)
else
begin
form2.showmodal;
end
end;
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)