Fórum como criar login para acesso ao sistema #183712

Crie a tabela de senha, um form de login (nome e senha) coloque um edit e um maskedit e um botão, no envento onshow do form principal coloque o seguinte codigo:
form_login.showmodal;

no botão do form de login coloque:
if form_principal.tb_senha.FindKey([edit1.text]) then (si o texto digitado no edit for correspondente de algum dentro da tabela de senha)
begin
ok; (procedure)
end
else
showmessage(´Usuário não cadastrado, favor verificar´);
end;

este é procedure que será executado se o texto do edit for correspondente a algum da tabela de senha.

procedure tform_senha.ok;
begin
if edit1.text=form_principal.tb_senhanome.Value then
begin
if maskedit1.Text=form_principal.tb_senhaSenha.Value then
form_senha.Close else
showmessage(´A senha não confere, favor verificar´);
if maskedit1.Text=form_principal.tb_senhaSenha.Value then
begin
tag:=1;
end;
end;
end;

Vai tentando ai falow.

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;

tenho um programa de modelo aqui, e com restrição a campos de acordo com a classificação do usuario, me manda um email q te passo o codigo...

Não sei quanto aos outros colegas, mas eu uso o form de senha como form principal.