Login e Senha com Delphi 7 e phpmyadmin
Criei um programa no Delphi 7 onde o usuário terá seu cadastro com nome e senha salvos no banco, até ai blz, mas como faço para fazer o login dele no programa, para quando ele colocar o nome de usuário no edit e a senha no outro edit se eles não forem iguais as do banco de dados der erro por exemplo, tipo, quando a senha e o nome de usuário forem iguais as do banco e ele conseguir entrar no programa tudo oque ele fizer lá ficar salvo no banco de dados com o nome de usuário dele, alguém sabe algum site com tutorial, ou algum vídeo ensinando? Ou até mesmo se alguém aq puder me ajudar por aq mesmo eu iria agradecer muito mesmo, Obg.
Lucas
Curtidas 0
Respostas
Raimundo Pereira
09/10/2015
Bom dia:
Na tela de login:
VAR SELECT_LOGON:STRING;
BTN_LOGIN:
BEGIN
SELECT_LOGON:='';
IF ED_LOGIN.TEXT ='' THEN
BEGIN
SHOWMESSAGE('Informe o login de acesso ');
ED_LOGIN.SETFOCUS;
END
ELSE
BEGIN
IF ED_SENHA.TEXT ='' THEN
BEGIN
SHOWMESSAGE('Informe SENHA de acesso ');
ED_SENHA.SETFOCUS;
END
ELSE
BEGIN
SELECT_LOGON:='SELECT * FROM NOME_DA_SUA_TABELA_DE LOGIN WHERE LOGIN="'+ED_LOGIN.TEXT+'" AND SENHA="'+ED_SENHA.TEXT+'";';
DM.QLOGIN.CLOSE;
DM.QLOGIN.SQL.CLEAR;
DM.QLOGIN.SQL.TEXT:=SELECT_LOGON;
DM.QLOGIN.OPEN;
IF DM.QLOGIN.RECORDCOUNT=1 THEN
BEGIN
SHOWMESSAGE('BEM VINDO '+DM.QLOGIN.FIELBYNAME('LOGIN').ASSTRING);
END
ELSE
BEGIN
SHOWMESSAGE('ACESSO NEGADO');
END;
END;
Agora não testei o código, estou sem o Delphi instalado aqui.
Tenta ai qualquer coisa
Pode chamar 7193052489 Whatz
Na tela de login:
VAR SELECT_LOGON:STRING;
BTN_LOGIN:
BEGIN
SELECT_LOGON:='';
IF ED_LOGIN.TEXT ='' THEN
BEGIN
SHOWMESSAGE('Informe o login de acesso ');
ED_LOGIN.SETFOCUS;
END
ELSE
BEGIN
IF ED_SENHA.TEXT ='' THEN
BEGIN
SHOWMESSAGE('Informe SENHA de acesso ');
ED_SENHA.SETFOCUS;
END
ELSE
BEGIN
SELECT_LOGON:='SELECT * FROM NOME_DA_SUA_TABELA_DE LOGIN WHERE LOGIN="'+ED_LOGIN.TEXT+'" AND SENHA="'+ED_SENHA.TEXT+'";';
DM.QLOGIN.CLOSE;
DM.QLOGIN.SQL.CLEAR;
DM.QLOGIN.SQL.TEXT:=SELECT_LOGON;
DM.QLOGIN.OPEN;
IF DM.QLOGIN.RECORDCOUNT=1 THEN
BEGIN
SHOWMESSAGE('BEM VINDO '+DM.QLOGIN.FIELBYNAME('LOGIN').ASSTRING);
END
ELSE
BEGIN
SHOWMESSAGE('ACESSO NEGADO');
END;
END;
Agora não testei o código, estou sem o Delphi instalado aqui.
Tenta ai qualquer coisa
Pode chamar 7193052489 Whatz
GOSTEI 0