SENHA?

Delphi

10/07/2003

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


Rafael Santana

Rafael Santana

Curtidas 0

Respostas

Ropesca

Ropesca

10/07/2003

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;


GOSTEI 0
POSTAR