Início
Posts
Registrado em
Idade
LocalizaçãoPara fins de Compatibilidade,para a construção dos códigos foi usado o Compilador Delphi 7.Não tem?Faça o download [Tens de ter uma conta e sessão iniciada para poderes visualizar este link].
Índice :
-Explicações
-Oque é necessário para executar o tópico
-Explicação em Portugol
-Tutoriais
-Deixando senha com Asteriscos
-Download/Scan Source Pronta
-Créditos
-Explicações/Necessário para executar o tópico
Nesse tutorial,ensinarei como fazer um sistema de login,por enquanto a interface fica por sua conta(Em breve um post com VCL Skins,contendo as mais belas interfaces para seu programa).
Você precisa de:
-Delphi 7(Download no início do tópico).
-Conhecimento Básico em Delphi.
-Ler o tópico COMPLETAMENTE antes de pergunta
Explicando as funções:
if then
A função If ,em português significa Se(é um dos comandos mais utilizados para programas em delphi).Já o Then significa Então.Ou seja,Se certa ação acontecer Então ele executará uma função.Nesse Tutorial nós utilizaremos os comandos If,Then,And,e ShowMessage('').
O comando ShowMessage mostra uma mensagem na tela; Traduzindo MostrarMensagem.
Nesse tutorial o comando And servirá para mostrar mais de um bloco de ação no If,ou seja,Se (BlocoDeAção)e(BlocoDeAção) Então .Se somente um dos blocos de ação acontecerem ele não executará a função depois do Então.
-Tutoriais
Agora,partindo para a parte prática da coisa:
1-Inicie um novo projeto no Delphi 7,como na imagem abaixo(File > New > Application)
2-Coloque 2 Label's,2 Edit's e 1 Button,como na imagem abaixo(Primeira paleta,Standart)
3-Arrume mais ou menos assim:(Não sabe renomear componentes?Tutorial logo ao final)
4-A parte visual acabou.Agora,Dê 2 cliques no Botão.Entre o Begin e o End; cole o código:
CÓDIGO:
if (Edit1.text = 'Usuario')and(Edit2.text = 'Senha') then
ShowMessage('Logado com Sucesso!')
else
ShowMessage('Usuário e/ou senha incorretas')
5-Agora aperte CTRL+F9 e vá na pasta C:\Arquivos de programas\Borland\Delphi7\Projects ,seu projeto estará lá,com o nome Project1.Exe,Execute-o e teste,o nome de usuário é Usuario e a senha é Senha (ava eh memo).
-Alterando o Nome dos Componentes
Se você é iniciante,e quer mudar os nomes dos componentes,é bem fácil.Aqui vai um tutorial:
1-Dê um clique no componente que deseja mudar o nome
2-Olhe no Object Inspector e procure Caption.Oque tiver na frente dele é o nome do componente(veja na imagem abaixo).
-Deixando senha com **ASTERISCOS**
Para deixar o campo da senha com asteriscos quando for digitar,dê um clique em cima do Edit(local onde se digita a senha) e Vá no Object Inspector.Procure a propriedade PasswordChar e no campo a seguir coloque um Asterisco.Dê CTRL+F9 e F9(compilar e executar) e teste seu programa.Veja que a senha não parece,fica somente asteriscos,embora o Login seja efetuado Normalmente.Não achou esse componente no Object Inspector?Segue abaixo uma imagem.
Créditos :^BigShow>, Tópico
Créditos : Convidad
Índice :
-Explicações
-Oque é necessário para executar o tópico
-Explicação em Portugol
-Tutoriais
-Deixando senha com Asteriscos
-Download/Scan Source Pronta
-Créditos
-Explicações/Necessário para executar o tópico
Nesse tutorial,ensinarei como fazer um sistema de login,por enquanto a interface fica por sua conta(Em breve um post com VCL Skins,contendo as mais belas interfaces para seu programa).
Você precisa de:
-Delphi 7(Download no início do tópico).
-Conhecimento Básico em Delphi.
-Ler o tópico COMPLETAMENTE antes de pergunta
Explicando as funções:
if
A função If ,em português significa Se(é um dos comandos mais utilizados para programas em delphi).Já o Then significa Então.Ou seja,Se certa ação acontecer Então ele executará uma função.Nesse Tutorial nós utilizaremos os comandos If,Then,And,e ShowMessage('').
O comando ShowMessage mostra uma mensagem na tela; Traduzindo MostrarMensagem.
Nesse tutorial o comando And servirá para mostrar mais de um bloco de ação no If,ou seja,Se (BlocoDeAção)e(BlocoDeAção) Então .Se somente um dos blocos de ação acontecerem ele não executará a função depois do Então.
-Tutoriais
Agora,partindo para a parte prática da coisa:
1-Inicie um novo projeto no Delphi 7,como na imagem abaixo(File > New > Application)
2-Coloque 2 Label's,2 Edit's e 1 Button,como na imagem abaixo(Primeira paleta,Standart)
3-Arrume mais ou menos assim:(Não sabe renomear componentes?Tutorial logo ao final)
4-A parte visual acabou.Agora,Dê 2 cliques no Botão.Entre o Begin e o End; cole o código:
CÓDIGO:
if (Edit1.text = 'Usuario')and(Edit2.text = 'Senha') then
ShowMessage('Logado com Sucesso!')
else
ShowMessage('Usuário e/ou senha incorretas')
5-Agora aperte CTRL+F9 e vá na pasta C:\Arquivos de programas\Borland\Delphi7\Projects ,seu projeto estará lá,com o nome Project1.Exe,Execute-o e teste,o nome de usuário é Usuario e a senha é Senha (ava eh memo).
-Alterando o Nome dos Componentes
Se você é iniciante,e quer mudar os nomes dos componentes,é bem fácil.Aqui vai um tutorial:
1-Dê um clique no componente que deseja mudar o nome
2-Olhe no Object Inspector e procure Caption.Oque tiver na frente dele é o nome do componente(veja na imagem abaixo).
-Deixando senha com **ASTERISCOS**
Para deixar o campo da senha com asteriscos quando for digitar,dê um clique em cima do Edit(local onde se digita a senha) e Vá no Object Inspector.Procure a propriedade PasswordChar e no campo a seguir coloque um Asterisco.Dê CTRL+F9 e F9(compilar e executar) e teste seu programa.Veja que a senha não parece,fica somente asteriscos,embora o Login seja efetuado Normalmente.Não achou esse componente no Object Inspector?Segue abaixo uma imagem.
Créditos :^BigShow>, Tópico
Créditos : Convidad