Tela De Login

[Guest - Junior -]

Olá pessoal,

Estou fazendo um projeto pra uma disciplina na faculdade com o Delphi 5 e preciso criar uma tela de login, mas não tenho a mínima idéia de como fazer isso. Alguém poderia me ajudar???

Valeu... :

ph34r:

[Corposemalma]

Dei uma pesquisada no forum e achei uma resposta minha que dei pra um outro usuario...

Olha só: +- assim:

Digamos que tu tem uma tabela, com dois campo (login e senha)

num form, antes de abrir o programa (mas com a tabela já ativa), com somente um EDIT e um Botao, no onclick do botao:

begin
  tabela.first //Pula pro primeiro registro
  while not tabela.eof do  // enquanto não for o fim da tabela
  begin
    if editusuario.text = tabela.fieldbyname('usuario') then
    begin
      if editsenha.text = tabela.fieldbyname('senha') then
      begin
        chama o sistema aqui
        FormUsuario.close;
        abort; // pra não aparecer a chamada de erro no final
      end
      else
      begin
        showmessage('Senha inválida!')
        abort; // pra não aparecer a chamada de erro no final
      end;
    end;
    tabela.next;
  end;
  showmessage('Usuario não existe!') //se chegar no fim e não existir o usuario
end;

Sacou pelo menos a ideia?

UHUUUU esse foi meu POST numero 1000

[Capablanca]

Post nº 1000!!!! Caramba CSA! Você está dormindo aqui no fórum?

[sem ideia p/ nick]

cole acho que nem MIL eu tanho !!!

hauahauaha

se liga ae -JUNIOR - voce precisa de um banco de dados para armazenar os seus usuarios, e precisa de um laço que verifique tudo isso e faça o prog dar acesso ao usuario.