Usuarios DataBase + Delphi

Herbert M. Dias Paiva · Julho 5, 2008

Fala galera tai eu devolta seguinte to com uma duvida. fiz um esquema de usuario e senha acessando a tabela porem ele soh le a primeira linha.

Ex.

Campo Nome | Senha

Linha 1 teste | teste *** esse ele acessa

Linha 2 admin | admin *** apartir da segunda linha nao acessa o login

no botao de logar esta assim

if (edtusuario.text = frmaltera.tblloginNome.text) and (edtsenha.text = frmaltera.tblloginSenha.text) then

begin

frmlogin.Close;

end

else

begin

showmessage('Nome de Usuario e/ou Senha estão incorretos, tente novamente');

edtusuario.Text:='';

edtsenha.Text:='';

edtusuario.SetFocus;

end;

uma outra duvida como que eu faço para desabilitar um botao

ex. tem um botao1 no form 1 quero que ele ao ser clicado desabilita o botao1 do form 2

qual o comando no codigo do botao do form 1....

desde ja agradeço

Marostegan · Julho 5, 2008

Herbert M. Dias Paiva disse:

Fala galera tai eu devolta seguinte to com uma duvida. fiz um esquema de usuario e senha acessando a tabela porem ele soh le a primeira linha.

Ex.

Campo Nome | Senha

Linha 1 teste | teste *** esse ele acessa

Linha 2 admin | admin *** apartir da segunda linha nao acessa o login

no botao de logar esta assim

if (edtusuario.text = frmaltera.tblloginNome.text) and (edtsenha.text = frmaltera.tblloginSenha.text) then

begin

frmlogin.Close;

end

else

begin

showmessage('Nome de Usuario e/ou Senha estão incorretos, tente novamente');

edtusuario.Text:='';

edtsenha.Text:='';

edtusuario.SetFocus;

end;

uma outra duvida como que eu faço para desabilitar um botao

ex. tem um botao1 no form 1 quero que ele ao ser clicado desabilita o botao1 do form 2

qual o comando no codigo do botao do form 1....

desde ja agradeço

olá amigo!

vamos lá...

tem um tópico que tem a solução para isso... da uma olhadinha na programação aqui e compara com o seu.. qq coisa da um toque! (esse programação do tópico da certinho, testei aqui e foi!)

http://forum.imasters.com.br/index.php?showtopic=293715

agora quanto desativar seu bot~~ao você faz assim!

dentro do Button1...

form2.button1.Enabled := false;

testa ai... qq coisa da um toque!

abraços!

Herbert M. Dias Paiva · Julho 8, 2008

dae galera mais uma duvida consegui fazer o login e senha masi vamos la...

na minha tabela tem as colunas Nome Usuario Nivel...

quero que na coluna nivel ele le o nivel se for "Administrador" ele acessa tudo se for "Usuarios" ele desabilita alguns botoes tai ai o cod que fiz para ler o Usuario e Senha

Botao OK para entrar. O botao de entrar funciona beleza

if (FMenu.Table1.Locate('Nome',edit1.Text,[])) and (FMenu.Table1.FieldByName('Senha').asstring = Edit2.Text) then

begin

FMenu.Panel1.Caption := Edit1.Text; // aki eh para ele aparecer o nome de quem esta logado no form principal

FMenu.ShowModal;

FLogin.Close;

end

else

begin

ShowMessage('Login ou senha estão errados, digite novamente!!!!!!');

Edit1.Clear;

Edit2.Clear;

Edit1.SetFocus;

end;

no Form Principal no OnSHow colokei assim;

var

N: String;

begin

If Table1.Locate('Nome', Panel1.Caption, []) Then

N:=Table1.FieldByName('Nivel').AsString;

begin

If N = 'Usuarios' Then // AQUI SERIA O QUE ELE TEM QUE LE E EXECUTAR AS AS ACOES EMBAIXO

Usuarios1.Enabled:= false; // DESABILITAR O BOTAO DO MENU USUARIOS POREM NAO DESABILITA =/ O QUE TA ERRADO

end

FMenu = Form Principal

Table1 = Tabela BDE

Edit1 = Inserir Login

Edit2 = Inserir Senha

Marostegan · Julho 8, 2008

Herbert M. Dias Paiva disse:

dae galera mais uma duvida consegui fazer o login e senha masi vamos la...

na minha tabela tem as colunas Nome Usuario Nivel...

quero que na coluna nivel ele le o nivel se for "Administrador" ele acessa tudo se for "Usuarios" ele desabilita alguns botoes tai ai o cod que fiz para ler o Usuario e Senha

Botao OK para entrar. O botao de entrar funciona beleza

if (FMenu.Table1.Locate('Nome',edit1.Text,[])) and (FMenu.Table1.FieldByName('Senha').asstring = Edit2.Text) then

begin

FMenu.Panel1.Caption := Edit1.Text; // aki eh para ele aparecer o nome de quem esta logado no form principal

FMenu.ShowModal;

FLogin.Close;

end

else

begin

ShowMessage('Login ou senha estão errados, digite novamente!!!!!!');

Edit1.Clear;

Edit2.Clear;

Edit1.SetFocus;

end;

no Form Principal no OnSHow colokei assim;

var

N: String;

begin

If Table1.Locate('Nome', Panel1.Caption, []) Then

N:=Table1.FieldByName('Nivel').AsString;

begin

If N = 'Usuarios' Then // AQUI SERIA O QUE ELE TEM QUE LE E EXECUTAR AS AS ACOES EMBAIXO

Usuarios1.Enabled:= false; // DESABILITAR O BOTAO DO MENU USUARIOS POREM NAO DESABILITA =/ O QUE TA ERRADO

end

FMenu = Form Principal

Table1 = Tabela BDE

Edit1 = Inserir Login

Edit2 = Inserir Senha

fala carinha...

não sei se dá certo.. foi só uma idéia que tive aqui (final de semana eu testo qq coisa..)

mais valos lá..

e se no Events "OnActivate"do seu Form Principal (fMenu) você escrever assim:

se o usuario logado for administrador então tudo estara liberado... caso usuario for diferente do administrado então (ai você indica o que estará desabilitado)...

não sei se é isso que você queria! ou se dá certo!

Herbert M. Dias Paiva · Julho 8, 2008

Daniel Henrique M. Doro disse:

Herbert M. Dias Paiva disse:

dae galera mais uma duvida consegui fazer o login e senha masi vamos la...

na minha tabela tem as colunas Nome Usuario Nivel...

quero que na coluna nivel ele le o nivel se for "Administrador" ele acessa tudo se for "Usuarios" ele desabilita alguns botoes tai ai o cod que fiz para ler o Usuario e Senha

Botao OK para entrar. O botao de entrar funciona beleza

if (FMenu.Table1.Locate('Nome',edit1.Text,[])) and (FMenu.Table1.FieldByName('Senha').asstring = Edit2.Text) then

begin

FMenu.Panel1.Caption := Edit1.Text; // aki eh para ele aparecer o nome de quem esta logado no form principal

FMenu.ShowModal;

FLogin.Close;

end

else

begin

ShowMessage('Login ou senha estão errados, digite novamente!!!!!!');

Edit1.Clear;

Edit2.Clear;

Edit1.SetFocus;

end;

no Form Principal no OnSHow colokei assim;

var

N: String;

begin

If Table1.Locate('Nome', Panel1.Caption, []) Then

N:=Table1.FieldByName('Nivel').AsString;

begin

If N = 'Usuarios' Then // AQUI SERIA O QUE ELE TEM QUE LE E EXECUTAR AS AS ACOES EMBAIXO

Usuarios1.Enabled:= false; // DESABILITAR O BOTAO DO MENU USUARIOS POREM NAO DESABILITA =/ O QUE TA ERRADO

end

FMenu = Form Principal

Table1 = Tabela BDE

Edit1 = Inserir Login

Edit2 = Inserir Senha

fala carinha...

não sei se dá certo.. foi só uma idéia que tive aqui (final de semana eu testo qq coisa..)

mais valos lá..

e se no Events "OnActivate"do seu Form Principal (fMenu) você escrever assim:

se o usuario logado for administrador então tudo estara liberado... caso usuario for diferente do administrado então (ai você indica o que estará desabilitado)...

não sei se é isso que você queria! ou se dá certo!

consegui fui desabilitando os botoes e taus agora a da hora... mas como sempre tenho duvida huauhuhau

fiz assim irei explicar :

no Fomr de Login "frmlogin" fiz 2 edit 2 label e 2 Botoes...

nos Labels coloquei Login e Senha

nos Edits um esta para inserir testo normal e o outro coloca a senha através dos "PassworChar" que esta *

no botao Ok inseri o Seguinte Codigo:

if (Datamodule1.tblLogin.Locate('Nome',edit1.Text,[])) and (Datamodule1.tblLogin.FieldByName('Senha').asstring = Edit2.Text) then

begin // aqui eh onde ele vai procurar o login e senha

frmprincipal.Panel1.Caption := Edit1.Text; // aqui eh onde vai inserir quem esta logado e apresentar o nome digitado no Panel do Form Principal

frmprincipal.ShowModal; // aqui se o login e senha estiver correto ele puxa o Form Principal

frmlogin.Close; // aqui ele Fecha o Form de Login se a senha estiver correta

end

else

begin

ShowMessage('Login ou senha estão errados, digite novamente!!!!!!'); // Se nao estiver correto ele Apresenta a mensagem

Edit2.Clear; // Limpa o campo da senha

Edit1.SetFocus; // Identifica para editar direto no login

end;

No Form Principal coloquei assim no OnShow:

var

N: String;

begin

If Datamodule1.tbllogin.Locate('Nome', Panel1.Caption, []) Then

N:=Datamodule1.tbllogin.FieldByName('Nivel').AsString; // Aqui ele pega o nome que foi logado e le o nivel

begin

If N = 'Usu' Then // Se o nivel for Usu "Usuario" ele bloqueia os botoes abaixo se nao for ele nao bloqueia...

Cadastrar1.Enabled := false;

if N = 'Usu' then

frmvisuqua.BitBtn5.Enabled := false;

if N = 'Usu' then

frmvisuqua.BitBtn7.Enabled := false;

if N = 'Usu' then

frmediqua.BitBtn1.Enabled := false;

if N = 'Nqa' then

CasoparaNQA1.Enabled := false;

if N = 'Nqa' then

frmvisuqua.BitBtn5.Enabled := false;

if N = 'Nqa' then

frmvisuqua.BitBtn7.Enabled := false;

if N = 'Nqa' then

frmediqua.BitBtn1.Enabled := false;

If N = 'Nqa' Then

Usuarios1.Enabled := false;

end

beleza expliquei mais ou menos pra galera que tbm tem a dificuldade ... Mais ai vai a minha duvida gostaria que assim como faz com o Panel que insere o nome do usuario que foi logado, fizesse em uma tela de cadastro:

Para visualizar quem ta logado fiz assim no botao de OK do Form Login : frmprincipal.Panel1.Caption:= Edit1.Text; // e da certo

Da mesma forma que fiz com o panel quero fazer para que apareca quem esta logado no DBEdit do Form de Cadastro: fiz assim

frmprincipal.Panel1.Caption:= Edit1.Text; // e da certo

frmcadastro.DBEdit1.Caption:= Edit1.Text; // esse nao da =/

esses codigos sao do botao ok do Form Login....

Mals se me embaralhei auhahuhua

Vlw galera que esta respondendo

Herbert M. Dias Paiva · Julho 8, 2008

Daniel Henrique M. Doro disse:

Herbert M. Dias Paiva disse:

dae galera mais uma duvida consegui fazer o login e senha masi vamos la...

na minha tabela tem as colunas Nome Usuario Nivel...

quero que na coluna nivel ele le o nivel se for "Administrador" ele acessa tudo se for "Usuarios" ele desabilita alguns botoes tai ai o cod que fiz para ler o Usuario e Senha

Botao OK para entrar. O botao de entrar funciona beleza

if (FMenu.Table1.Locate('Nome',edit1.Text,[])) and (FMenu.Table1.FieldByName('Senha').asstring = Edit2.Text) then

begin

FMenu.Panel1.Caption := Edit1.Text; // aki eh para ele aparecer o nome de quem esta logado no form principal

FMenu.ShowModal;

FLogin.Close;

end

else

begin

ShowMessage('Login ou senha estão errados, digite novamente!!!!!!');

Edit1.Clear;

Edit2.Clear;

Edit1.SetFocus;

end;

no Form Principal no OnSHow colokei assim;

var

N: String;

begin

If Table1.Locate('Nome', Panel1.Caption, []) Then

N:=Table1.FieldByName('Nivel').AsString;

begin

If N = 'Usuarios' Then // AQUI SERIA O QUE ELE TEM QUE LE E EXECUTAR AS AS ACOES EMBAIXO

Usuarios1.Enabled:= false; // DESABILITAR O BOTAO DO MENU USUARIOS POREM NAO DESABILITA =/ O QUE TA ERRADO

end

FMenu = Form Principal

Table1 = Tabela BDE

Edit1 = Inserir Login

Edit2 = Inserir Senha

fala carinha...

não sei se dá certo.. foi só uma idéia que tive aqui (final de semana eu testo qq coisa..)

mais valos lá..

e se no Events "OnActivate"do seu Form Principal (fMenu) você escrever assim:

se o usuario logado for administrador então tudo estara liberado... caso usuario for diferente do administrado então (ai você indica o que estará desabilitado)...

não sei se é isso que você queria! ou se dá certo!

consegui fui desabilitando os botoes e taus agora a da hora... mas como sempre tenho duvida huauhuhau

fiz assim irei explicar :

no Fomr de Login "frmlogin" fiz 2 edit 2 label e 2 Botoes...

nos Labels coloquei Login e Senha

nos Edits um esta para inserir testo normal e o outro coloca a senha através dos "PassworChar" que esta *

no botao Ok inseri o Seguinte Codigo:

if (Datamodule1.tblLogin.Locate('Nome',edit1.Text,[])) and (Datamodule1.tblLogin.FieldByName('Senha').asstring = Edit2.Text) then

begin // aqui eh onde ele vai procurar o login e senha

frmprincipal.Panel1.Caption := Edit1.Text; // aqui eh onde vai inserir quem esta logado e apresentar o nome digitado no Panel do Form Principal

frmprincipal.ShowModal; // aqui se o login e senha estiver correto ele puxa o Form Principal

frmlogin.Close; // aqui ele Fecha o Form de Login se a senha estiver correta

end

else

begin

ShowMessage('Login ou senha estão errados, digite novamente!!!!!!'); // Se nao estiver correto ele Apresenta a mensagem

Edit2.Clear; // Limpa o campo da senha

Edit1.SetFocus; // Identifica para editar direto no login

end;

No Form Principal coloquei assim no OnShow:

var

N: String;

begin

If Datamodule1.tbllogin.Locate('Nome', Panel1.Caption, []) Then

N:=Datamodule1.tbllogin.FieldByName('Nivel').AsString; // Aqui ele pega o nome que foi logado e le o nivel

begin

If N = 'Usu' Then // Se o nivel for Usu "Usuario" ele bloqueia os botoes abaixo se nao for ele nao bloqueia...

Cadastrar1.Enabled := false;

if N = 'Usu' then

frmvisuqua.BitBtn5.Enabled := false;

if N = 'Usu' then

frmvisuqua.BitBtn7.Enabled := false;

if N = 'Usu' then

frmediqua.BitBtn1.Enabled := false;

if N = 'Nqa' then

CasoparaNQA1.Enabled := false;

if N = 'Nqa' then

frmvisuqua.BitBtn5.Enabled := false;

if N = 'Nqa' then

frmvisuqua.BitBtn7.Enabled := false;

if N = 'Nqa' then

frmediqua.BitBtn1.Enabled := false;

If N = 'Nqa' Then

Usuarios1.Enabled := false;

end

beleza expliquei mais ou menos pra galera que tbm tem a dificuldade ... Mais ai vai a minha duvida gostaria que assim como faz com o Panel que insere o nome do usuario que foi logado, fizesse em uma tela de cadastro:

Para visualizar quem ta logado fiz assim no botao de OK do Form Login : frmprincipal.Panel1.Caption:= Edit1.Text; // e da certo

Da mesma forma que fiz com o panel quero fazer para que apareca quem esta logado no DBEdit do Form de Cadastro: fiz assim

frmprincipal.Panel1.Caption:= Edit1.Text; // e da certo

frmcadastro.DBEdit1.Caption:= Edit1.Text; // esse nao da =/

esses codigos sao do botao ok do Form Login....

Mals se me embaralhei auhahuhua

Vlw galera que esta respondendo

Herbert M. Dias Paiva · Julho 8, 2008

Daniel Henrique M. Doro disse:

Herbert M. Dias Paiva disse:

dae galera mais uma duvida consegui fazer o login e senha masi vamos la...

na minha tabela tem as colunas Nome Usuario Nivel...

quero que na coluna nivel ele le o nivel se for "Administrador" ele acessa tudo se for "Usuarios" ele desabilita alguns botoes tai ai o cod que fiz para ler o Usuario e Senha

Botao OK para entrar. O botao de entrar funciona beleza

if (FMenu.Table1.Locate('Nome',edit1.Text,[])) and (FMenu.Table1.FieldByName('Senha').asstring = Edit2.Text) then

begin

FMenu.Panel1.Caption := Edit1.Text; // aki eh para ele aparecer o nome de quem esta logado no form principal

FMenu.ShowModal;

FLogin.Close;

end

else

begin

ShowMessage('Login ou senha estão errados, digite novamente!!!!!!');

Edit1.Clear;

Edit2.Clear;

Edit1.SetFocus;

end;

no Form Principal no OnSHow colokei assim;

var

N: String;

begin

If Table1.Locate('Nome', Panel1.Caption, []) Then

N:=Table1.FieldByName('Nivel').AsString;

begin

If N = 'Usuarios' Then // AQUI SERIA O QUE ELE TEM QUE LE E EXECUTAR AS AS ACOES EMBAIXO

Usuarios1.Enabled:= false; // DESABILITAR O BOTAO DO MENU USUARIOS POREM NAO DESABILITA =/ O QUE TA ERRADO

end

FMenu = Form Principal

Table1 = Tabela BDE

Edit1 = Inserir Login

Edit2 = Inserir Senha

fala carinha...

não sei se dá certo.. foi só uma idéia que tive aqui (final de semana eu testo qq coisa..)

mais valos lá..

e se no Events "OnActivate"do seu Form Principal (fMenu) você escrever assim:

se o usuario logado for administrador então tudo estara liberado... caso usuario for diferente do administrado então (ai você indica o que estará desabilitado)...

não sei se é isso que você queria! ou se dá certo!

consegui fui desabilitando os botoes e taus agora a da hora... mas como sempre tenho duvida huauhuhau

fiz assim irei explicar :

no Fomr de Login "frmlogin" fiz 2 edit 2 label e 2 Botoes...

nos Labels coloquei Login e Senha

nos Edits um esta para inserir testo normal e o outro coloca a senha através dos "PassworChar" que esta *

no botao Ok inseri o Seguinte Codigo:

if (Datamodule1.tblLogin.Locate('Nome',edit1.Text,[])) and (Datamodule1.tblLogin.FieldByName('Senha').asstring = Edit2.Text) then

begin // aqui eh onde ele vai procurar o login e senha

frmprincipal.Panel1.Caption := Edit1.Text; // aqui eh onde vai inserir quem esta logado e apresentar o nome digitado no Panel do Form Principal

frmprincipal.ShowModal; // aqui se o login e senha estiver correto ele puxa o Form Principal

frmlogin.Close; // aqui ele Fecha o Form de Login se a senha estiver correta

end

else

begin

ShowMessage('Login ou senha estão errados, digite novamente!!!!!!'); // Se nao estiver correto ele Apresenta a mensagem

Edit2.Clear; // Limpa o campo da senha

Edit1.SetFocus; // Identifica para editar direto no login

end;

No Form Principal coloquei assim no OnShow:

var

N: String;

begin

If Datamodule1.tbllogin.Locate('Nome', Panel1.Caption, []) Then

N:=Datamodule1.tbllogin.FieldByName('Nivel').AsString; // Aqui ele pega o nome que foi logado e le o nivel

begin

If N = 'Usu' Then // Se o nivel for Usu "Usuario" ele bloqueia os botoes abaixo se nao for ele nao bloqueia...

Cadastrar1.Enabled := false;

if N = 'Usu' then

frmvisuqua.BitBtn5.Enabled := false;

if N = 'Usu' then

frmvisuqua.BitBtn7.Enabled := false;

if N = 'Usu' then

frmediqua.BitBtn1.Enabled := false;

if N = 'Nqa' then

CasoparaNQA1.Enabled := false;

if N = 'Nqa' then

frmvisuqua.BitBtn5.Enabled := false;

if N = 'Nqa' then

frmvisuqua.BitBtn7.Enabled := false;

if N = 'Nqa' then

frmediqua.BitBtn1.Enabled := false;

If N = 'Nqa' Then

Usuarios1.Enabled := false;

end

beleza expliquei mais ou menos pra galera que tbm tem a dificuldade ... Mais ai vai a minha duvida gostaria que assim como faz com o Panel que insere o nome do usuario que foi logado, fizesse em uma tela de cadastro:

Para visualizar quem ta logado fiz assim no botao de OK do Form Login : frmprincipal.Panel1.Caption:= Edit1.Text; // e da certo

Da mesma forma que fiz com o panel quero fazer para que apareca quem esta logado no DBEdit do Form de Cadastro: fiz assim

frmprincipal.Panel1.Caption:= Edit1.Text; // e da certo

frmcadastro.DBEdit1.Caption:= Edit1.Text; // esse nao da =/

esses codigos sao do botao ok do Form Login....

Mals se me embaralhei auhahuhua

Vlw galera que esta respondendo

Marostegan · Julho 8, 2008

e se você trocar o DBEdit por um Edit?

Marostegan · Julho 8, 2008

Herbert M. Dias Paiva disse:

Daniel Henrique M. Doro disse:

Herbert M. Dias Paiva disse:

dae galera mais uma duvida consegui fazer o login e senha masi vamos la...

na minha tabela tem as colunas Nome Usuario Nivel...

quero que na coluna nivel ele le o nivel se for "Administrador" ele acessa tudo se for "Usuarios" ele desabilita alguns botoes tai ai o cod que fiz para ler o Usuario e Senha

Botao OK para entrar. O botao de entrar funciona beleza

if (FMenu.Table1.Locate('Nome',edit1.Text,[])) and (FMenu.Table1.FieldByName('Senha').asstring = Edit2.Text) then

begin

FMenu.Panel1.Caption := Edit1.Text; // aki eh para ele aparecer o nome de quem esta logado no form principal

FMenu.ShowModal;

FLogin.Close;

end

else

begin

ShowMessage('Login ou senha estão errados, digite novamente!!!!!!');

Edit1.Clear;

Edit2.Clear;

Edit1.SetFocus;

end;

no Form Principal no OnSHow colokei assim;

var

N: String;

begin

If Table1.Locate('Nome', Panel1.Caption, []) Then

N:=Table1.FieldByName('Nivel').AsString;

begin

If N = 'Usuarios' Then // AQUI SERIA O QUE ELE TEM QUE LE E EXECUTAR AS AS ACOES EMBAIXO

Usuarios1.Enabled:= false; // DESABILITAR O BOTAO DO MENU USUARIOS POREM NAO DESABILITA =/ O QUE TA ERRADO

end

FMenu = Form Principal

Table1 = Tabela BDE

Edit1 = Inserir Login

Edit2 = Inserir Senha

fala carinha...

não sei se dá certo.. foi só uma idéia que tive aqui (final de semana eu testo qq coisa..)

mais valos lá..

e se no Events "OnActivate"do seu Form Principal (fMenu) você escrever assim:

se o usuario logado for administrador então tudo estara liberado... caso usuario for diferente do administrado então (ai você indica o que estará desabilitado)...

não sei se é isso que você queria! ou se dá certo!

consegui fui desabilitando os botoes e taus agora a da hora... mas como sempre tenho duvida huauhuhau

fiz assim irei explicar :

no Fomr de Login "frmlogin" fiz 2 edit 2 label e 2 Botoes...

nos Labels coloquei Login e Senha

nos Edits um esta para inserir testo normal e o outro coloca a senha através dos "PassworChar" que esta *

no botao Ok inseri o Seguinte Codigo:

if (Datamodule1.tblLogin.Locate('Nome',edit1.Text,[])) and (Datamodule1.tblLogin.FieldByName('Senha').asstring = Edit2.Text) then

begin // aqui eh onde ele vai procurar o login e senha

frmprincipal.Panel1.Caption := Edit1.Text; // aqui eh onde vai inserir quem esta logado e apresentar o nome digitado no Panel do Form Principal

frmprincipal.ShowModal; // aqui se o login e senha estiver correto ele puxa o Form Principal

frmlogin.Close; // aqui ele Fecha o Form de Login se a senha estiver correta

end

else

begin

ShowMessage('Login ou senha estão errados, digite novamente!!!!!!'); // Se nao estiver correto ele Apresenta a mensagem

Edit2.Clear; // Limpa o campo da senha

Edit1.SetFocus; // Identifica para editar direto no login

end;

No Form Principal coloquei assim no OnShow:

var

N: String;

begin

If Datamodule1.tbllogin.Locate('Nome', Panel1.Caption, []) Then

N:=Datamodule1.tbllogin.FieldByName('Nivel').AsString; // Aqui ele pega o nome que foi logado e le o nivel

begin

If N = 'Usu' Then // Se o nivel for Usu "Usuario" ele bloqueia os botoes abaixo se nao for ele nao bloqueia...

Cadastrar1.Enabled := false;

if N = 'Usu' then

frmvisuqua.BitBtn5.Enabled := false;

if N = 'Usu' then

frmvisuqua.BitBtn7.Enabled := false;

if N = 'Usu' then

frmediqua.BitBtn1.Enabled := false;

if N = 'Nqa' then

CasoparaNQA1.Enabled := false;

if N = 'Nqa' then

frmvisuqua.BitBtn5.Enabled := false;

if N = 'Nqa' then

frmvisuqua.BitBtn7.Enabled := false;

if N = 'Nqa' then

frmediqua.BitBtn1.Enabled := false;

If N = 'Nqa' Then

Usuarios1.Enabled := false;

end

beleza expliquei mais ou menos pra galera que tbm tem a dificuldade ... Mais ai vai a minha duvida gostaria que assim como faz com o Panel que insere o nome do usuario que foi logado, fizesse em uma tela de cadastro:

Para visualizar quem ta logado fiz assim no botao de OK do Form Login : frmprincipal.Panel1.Caption:= Edit1.Text; // e da certo

Da mesma forma que fiz com o panel quero fazer para que apareca quem esta logado no DBEdit do Form de Cadastro: fiz assim

frmprincipal.Panel1.Caption:= Edit1.Text; // e da certo

frmcadastro.DBEdit1.Caption:= Edit1.Text; // esse nao da =/

esses codigos sao do botao ok do Form Login....

Mals se me embaralhei auhahuhua

Vlw galera que esta respondendo

fala carinha....

viw... você testo usuarios ai e talz... deu certo?

achein interesante essa parte de acesso que você fez e montei aqui... mas...

nao deu mto certo nao cara...

o0''

Marostegan · Julho 8, 2008

bom.. identifiquei o problema...

agora falta a solução!!! rss....

no meu sistema eu fiz uma tela trocar de usuario! é ai o problema.. se eu fecho o sistema e entro dinovo... tudo funfa ok!!

mas... se vou trocar de usuario sem fechar o sistema ele num faz novamente o filtro para ver se é Adm ou User...

tentei fazer o seguinte... antes de fazer a pesquisa... selecionar todos os dados novamente... (pq axo q tah ficando filtrado...) fiz assim:

begin
with dm.q_clientes do
begin
  Close;
  SQL.Clear;
  SQL.Add('select * from tbl_clientes');
  Open;
end;

alguem ai sabe alguma outra solução? ou se o problema é realmente esse ae!?

abraços!!!

ah... e bom feriado! http://forum.imasters.com.br/public/style_emoticons/default/thumbsup.gif

Arquivado

Usuarios DataBase + Delphi

Recommended Posts

Herbert M. Dias Paiva 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

Marostegan 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

Herbert M. Dias Paiva 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

Marostegan 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

Herbert M. Dias Paiva 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

Herbert M. Dias Paiva 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

Herbert M. Dias Paiva 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

Marostegan 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

Marostegan 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

Marostegan 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

comando like (Mysql) no php

Alguém com pratica em subir site em codeigniter4 na Hostinger? Não consigo acessar o bd. Erro de Autenticação. O mesmo site funciona normal em outro servidor web.

mostrar quanto tempo foi postado um conteudo

Fóruns

Tempo Real

Informação importante