procedure TLogin.BitBtn1Click(Sender: TObject);
Var
Senha: string;
begin
Senha:=table1Password.value;
if (edit1.text='Vicentino') and (edit2.text=Senha) then
begin
Principal.show;
Edit1.text:='';
Edit2.text:='';
Login.Visible:=false;
end
else
Showmessage('Usuário ou senha incorretos!');
end;
tenho este código no botão,mas só executa a parte do showmessage ~e
não entra no principal,só q eu nao estou achando o erro.
--
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED] ou [EMAIL PROTECTED]
Links do Yahoo! Grupos
<*> Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
<*> Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
<*> O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html
