 |
ActiveDelphi
.: O site do programador Delphi! :.
|
| Exibir mensagem anterior :: Exibir próxima mensagem |
| Autor |
Mensagem |
wandinhodelphiweb
Aprendiz
Registrado: Segunda-Feira, 6 de Abril de 2009
Mensagens: 126
|
 Enviada: Qui Abr 09, 2009 12:50 am Assunto: Criando Sistema de Login com banco de Dados Access |
 |
|
E ai Pessoal estou postando este código aqui. De como Criar um Login para o Sistema Usando banco de dados Access.
Mesmo eu não achando bom o uso de banco de dados para Login , por alguns motivos , mais vamos lá.
1. Crie um dataModule e mude seu nome para Dm.
Dentro dele coloque um ADOConnection , Table e um dataSource
feito isso:
Clique em "ConnectionString ... " na propiedade do ADOConnection
escolha no provedor " Microsoft Jet 4.0 OLE DB Provider" > Clique em Avançar > Clique no "..." Escolha o Seu banco EX: Banco.mdb.
feito isso você já configurou seu banco de Dados na Aplicação.
La na Propiedade da sua Table > Connection Escolha o ADOConnection > Depois vá la para baixo na guia TableName> e escolha a tabela que vai ser Usada , que no caso é a tabela de "Login".
Ligue o Seu data Source na sua Table.
Pronto o seu DataMudule esta Configurado epronto para Ser Usado.
2.
Crie 2 Forms : 1 - FolmLogin e FormPrincipal
FormLogin:
2 labels = label1 =Login label2 =Senha
2 Edits = Edit1 =Login Edit2 =Senha
E Um Botão "Entrar"
3.
No evento OnClick do Seu Botão insira o Codigo:
| Código: |
If (Dm.tabela_login.Locate('Usuario-Nome igual ao do seu banco',Edit1.Text,[loCaseInsensitive])) and (Dm.Table.Locate('Senha',Edit2.Text,[loCaseInsensitive])) then
Begin
FormPrincipal.Show;
end
else
If (Edit1.Text ='') and (Edit2.Text= '') then
ShowMessage('Preencha o Login e a Senha')
else
MessageDlg('Login e senha São invalidos', mtError, [mbOk], 0);
end; |
Usuario-Nome igual ao do seu banco: esse pedaço Você ponhe o nome que esta na sua tabela Por um exemplo:
Se vc criou sua tabela assim:
Codigo Chave
Usuario 50
Senha 30
O Nome que vai ser lá é "Usuario".
Pronto é isso ai. Um pouco mais de trabalho mais ta ai. |
|
| Voltar ao Topo |
|
 |
Hunter_007
Novato
Registrado: Terça-Feira, 8 de Setembro de 2009
Mensagens: 52
Localização: Campo Mourão/PR
|
| Enviada: Qua Fev 22, 2012 7:06 pm Assunto: Show de Bola |
|
|
Cara faz tempo que procura algo do tipo parabéns, e obrigado por compartilhar seus conhecimentos!!
_________________
"Lutar sempre,vencer talvez, desistir Jamais"
Visitem http://www.antivirux7.com.br |
|
| Voltar ao Topo |
|
|
|
|
Enviar Mensagens Novas: Proibido.
Responder Tópicos Proibido
Editar Mensagens: Proibido.
Excluir Mensagens: Proibido.
Votar em Enquetes: Proibido.
|
|
FAQ
Pesquisar
Membros
Grupos
Registrar
Perfil
Entrar e ver Mensagens Particulares
Entrar
