Social Icons

^^

quinta-feira, 4 de fevereiro de 2010

CRIANDO SISTEMA DE LONGIN:

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".


Tem outra maneira mais simples  que não precisa do DataModule, logo posto aqui.

Nenhum comentário:

Postar um comentário

Popular Posts

 

Seguidores

Hora exata:

Total de visualizações de página