Só alterando um item, o copy-paste seria depois da "procedure" e antes
do "end;"
Ele vai dar um duplo clique no botão e copia abaixo. :)
Ricardo César Cardoso escreveu:
>
>
> 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
> <mailto:holiveira.wordpress%40gmail.com>> escreveu:
>
> De: Humberto Oliveira <holiveira.wordpr...@gmail.com
> <mailto:holiveira.wordpress%40gmail.com>>
> Assunto: Re: [delphi-br] Delphi - código
> Para: delphi-br@yahoogrupos.com.br <mailto:delphi-br%40yahoogrupos.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 <http://br.maisbuscados.yahoo.com>
>
> [As partes desta mensagem que não continham texto foram removidas]
>
>
