Vixi... nem me fale. Esse tá "causando".
Piadinhas a parte e indo ao que interessa, uma validação "burra" de usuário e
senha seria:
{* Inicio do Copy/Paste *}
Procedure TForm1.Button1Click(Sender: TObject);
Const
..USER = 'SYSDBA'; PASS = 'masterkey';
Begin
..if( (Usr.Text <> USER) and (Psw.Text <> PASS) ) then
..begin
....ShowMessage( 'Nome de usuário ou senha inválidos' );
....Usr.Clear;
....Psw.Clear;
....Usr.Setfocus;
..end;
End;
{* Final do Copy/Paste *}
Como disse, é uma validação "burra" (não dá pra dizer didática, pois tá meio
capenga, sei lá) pois na prática vc não usaria constantes "hardcoded". E faria
algum tratamento para uma tela desse tipo por exemplo, fazendo uma consulta a
uma base de dados e retornando apenas um valor booleano para credenciais (usr +
psw) válidos. Poderia também usar um recurso dos TEdits que é a propriedade
PasswordChar que define um caractere para aparecer no campo PSW ao invés do
texto que vc digitou (mostrar **** ao invés das letras)
Outra coisa: se vc quiser, pode usar as funções UpperCase ou LowerCase na
comparação, pois mesmo que o usuário digite 'Sysdba', 'sYSDBA', 'sysdba' ou
qualquer outra variação, essa digitação será convertida toda para letras
maiúsculas (usando UpperCase) ou minúsculas (usando LowerCase) o que dispensa o
usuário de se preocupar se digitou tudo em maiúsulas, ou minúsculas ou
camelcase (SysDba).
Bem, o "mínimo do básico" é isso. Já é suficiente pra poder testar... E falando
sério, sem nenhuma ironia MESMO, você está fazendo algum curso ou seguindo
algum material? Ajuda bastante ter algum material pra começar a mexer. Ou se
estiver usando o Delphi 7, o próprio Help tem alguns exemplos de código que vc
pode copiar e colar pra testar a execução.
[]'s
Ricardo.
1) Evite escrever suas mensagens usando somente LETRAS MAIÚSCULAS.
2) Revise o texto de sua mensagem. Uma mensagem bem escrita é melhor
compreendida.
3) Vamos ajudar o Grupo e o Yahoo! Apague o conteúdo irrelevante!
--- Em qui, 28/5/09, Humberto Oliveira <holiveira.wordpr...@gmail.com> escreveu:
De: Humberto Oliveira <holiveira.wordpr...@gmail.com>
Assunto: Re: [delphi-br] Delphi - código
Para: delphi-br@yahoogrupos.com.br
Data: Quinta-feira, 28 de Maio de 2009, 21:24
Vixi... Cego em tiroteio?
2009/5/28 arca765 <arca...@yahoo. com.br>
>
>
>
> Criei um Form tamanho padrão.
> Acrescentei 2 cxs de texto lableadas\identific adas Usr\Psw
>
> (Usuário\Senha) .
> Acresci 1 botão Ok.
>
> Assim que, o usuário preencher os 2 campos (Usr\Psw), e, clicar
>
> no botão Ok o que, é que, eu faço >:?
> Onde eu digito o código fonte para poder 'trabalhar' com o nome
>
> do usuário, e, a senha >:?
> Onde estão o Begin\End. do arquivo principal .pas :?
>
>
>
[As partes desta mensagem que não continham texto foram removidas]
Veja quais são os assuntos do momento no Yahoo! +Buscados
http://br.maisbuscados.yahoo.com
[As partes desta mensagem que não continham texto foram removidas]
