Re: [delphi-br] Validação usuário
Coloca no form principal o nome do usuário que esta na
tabela e pode até ter uma variável já com o nivel do
individuo. Ex...
usuário logado: Teste
Varnivel: 3
quando os forms forem se abrindo você faz a consulta
na tabela e o sistema verifica se ele tem acesso ou
não...
--- patricinha_cl [EMAIL PROTECTED] wrote:
-
Pessoal, estou desenvolvendo um sistema que possuirá
validação de
usuário e senha. Porém nunca trabalhei com sistemas
assim.
Gostaria de um auxilio, não encontro material algum na
internet que
me auxilie para tal se puderem me dar uma idéia
agradeço muito.
Possuo três tabelas, uma conterá os dados dos
usuários, nome, login,
senha. Em outra tabela armazenarei o nome dos
formularios que serão
criados no sistema, e na terceira tabela existirá as
permissões dos
usuários para os formulários.
Gostaria de uma ajuda, estou trabalhando com o delphi
7 e banco
firebird. No meu form de login eu terei que validar
usuário e senha.
Estou usando o seguinte código para tal:
procedure TFormLogin.BtnOKClick(Sender: TObject);
begin
DataModule1.UsuIBQuery.close;
DataModule1.UsuIBQuery.sql.clear;
DataModule1.UsuIBQuery.sql.add('SELECT
USUARIO_LOGIN,USUARIO_SENHA');
DataModule1.UsuIBQuery.Sql.Add('from USUARIO');
DataModule1.UsuIBQuery.sql.Add('where USUARIO_LOGIN =
:Nome and
USUARIO_SENHA =:Login ' );
DataModule1.UsuIBQuery.parambyname('Nome').asstring:=ednome.text;
DataModule1.UsuIBQuery.ParamByName('Login').asstring:=edsenha.text;
DataModule1.UsuIBQuery.open;
begin
if DataModule1.UsuIBQuery.RecordCount = 0 then
ShowMessage('Senha ou Usuario Invalido! '+
'Certifique-se que a Tecla
Caps Lock não esteja Ativada! ')
else
begin
TelaPrincipal.enabled:=true;
FormLogin.release;
end;
end;
end;
Ele esta funcionando beleza, mas no form que eu
cadastro o usuário eu
tenho que definir em que form aquele usuário vai ter
acesso, e o
nivel de permissão dele no mesmo (se é total, de
inclusão, alteração,
exclusão)... Esta parte eu não sei nem como começar.
Se alguém tiver
algum material para me passar, ou quem sabe algum
exemplo eu agradeço
muito.
Abraços
Patricia
--
FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA
MENSAGEM
Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED] ou
[EMAIL PROTECTED]
Yahoo! Grupos, um serviço oferecido por:PUBLICIDADE
-
Links do Yahoo! Grupos
Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
O uso que você faz do Yahoo! Grupos está sujeito
aos Termos do Serviço do Yahoo!.
___
Yahoo! Acesso Grátis - Instale o discador do Yahoo! agora.
http://br.acesso.yahoo.com/ - Internet rápida e grátis
--
FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM
Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED] ou [EMAIL PROTECTED]
Links do Yahoo! Grupos
* Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
* Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
* O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html
RES: [delphi-br] Validação usuário
Use a tusercontrol... e facil e grátis...
-Mensagem original-
De: patricinha_cl [mailto:[EMAIL PROTECTED]
Enviada em: segunda-feira, 7 de março de 2005 13:22
Para: delphi-br@yahoogrupos.com.br
Assunto: [delphi-br] Validação usuário
Pessoal, estou desenvolvendo um sistema que possuirá validação de
usuário e senha. Porém nunca trabalhei com sistemas assim.
Gostaria de um auxilio, não encontro material algum na internet que
me auxilie para tal se puderem me dar uma idéia agradeço muito.
Possuo três tabelas, uma conterá os dados dos usuários, nome, login,
senha. Em outra tabela armazenarei o nome dos formularios que serão
criados no sistema, e na terceira tabela existirá as permissões dos
usuários para os formulários.
Gostaria de uma ajuda, estou trabalhando com o delphi 7 e banco
firebird. No meu form de login eu terei que validar usuário e senha.
Estou usando o seguinte código para tal:
procedure TFormLogin.BtnOKClick(Sender: TObject);
begin
DataModule1.UsuIBQuery.close;
DataModule1.UsuIBQuery.sql.clear;
DataModule1.UsuIBQuery.sql.add('SELECT USUARIO_LOGIN,USUARIO_SENHA');
DataModule1.UsuIBQuery.Sql.Add('from USUARIO');
DataModule1.UsuIBQuery.sql.Add('where USUARIO_LOGIN = :Nome and
USUARIO_SENHA =:Login ' );
DataModule1.UsuIBQuery.parambyname('Nome').asstring:=ednome.text;
DataModule1.UsuIBQuery.ParamByName('Login').asstring:=edsenha.text;
DataModule1.UsuIBQuery.open;
begin
if DataModule1.UsuIBQuery.RecordCount = 0 then
ShowMessage('Senha ou Usuario Invalido! '+ 'Certifique-se que a Tecla
Caps Lock não esteja Ativada! ')
else
begin
TelaPrincipal.enabled:=true;
FormLogin.release;
end;
end;
end;
Ele esta funcionando beleza, mas no form que eu cadastro o usuário eu
tenho que definir em que form aquele usuário vai ter acesso, e o
nivel de permissão dele no mesmo (se é total, de inclusão, alteração,
exclusão)... Esta parte eu não sei nem como começar. Se alguém tiver
algum material para me passar, ou quem sabe algum exemplo eu agradeço
muito.
Abraços
Patricia
--
FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM
Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED] ou [EMAIL PROTECTED]
Links do Yahoo! Grupos
--
FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM
Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED] ou [EMAIL PROTECTED]
Links do Yahoo! Grupos
* Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
* Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
* O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html
Re: [delphi-br] Validação usuário
tusercontrol... free ?
onde encontra-lo
Marcelo
- Original Message -
From: Francisco de A Souza
To: delphi-br@yahoogrupos.com.br
Sent: Tuesday, March 08, 2005 9:00 AM
Subject: RES: [delphi-br] Validação usuário
Use a tusercontrol... e facil e grátis...
-Mensagem original-
De: patricinha_cl [mailto:[EMAIL PROTECTED]
Enviada em: segunda-feira, 7 de março de 2005 13:22
Para: delphi-br@yahoogrupos.com.br
Assunto: [delphi-br] Validação usuário
Pessoal, estou desenvolvendo um sistema que possuirá validação de
usuário e senha. Porém nunca trabalhei com sistemas assim.
Gostaria de um auxilio, não encontro material algum na internet que
me auxilie para tal se puderem me dar uma idéia agradeço muito.
Possuo três tabelas, uma conterá os dados dos usuários, nome, login,
senha. Em outra tabela armazenarei o nome dos formularios que serão
criados no sistema, e na terceira tabela existirá as permissões dos
usuários para os formulários.
Gostaria de uma ajuda, estou trabalhando com o delphi 7 e banco
firebird. No meu form de login eu terei que validar usuário e senha.
Estou usando o seguinte código para tal:
procedure TFormLogin.BtnOKClick(Sender: TObject);
begin
DataModule1.UsuIBQuery.close;
DataModule1.UsuIBQuery.sql.clear;
DataModule1.UsuIBQuery.sql.add('SELECT USUARIO_LOGIN,USUARIO_SENHA');
DataModule1.UsuIBQuery.Sql.Add('from USUARIO');
DataModule1.UsuIBQuery.sql.Add('where USUARIO_LOGIN = :Nome and
USUARIO_SENHA =:Login ' );
DataModule1.UsuIBQuery.parambyname('Nome').asstring:=ednome.text;
DataModule1.UsuIBQuery.ParamByName('Login').asstring:=edsenha.text;
DataModule1.UsuIBQuery.open;
begin
if DataModule1.UsuIBQuery.RecordCount = 0 then
ShowMessage('Senha ou Usuario Invalido! '+ 'Certifique-se que a Tecla
Caps Lock não esteja Ativada! ')
else
begin
TelaPrincipal.enabled:=true;
FormLogin.release;
end;
end;
end;
Ele esta funcionando beleza, mas no form que eu cadastro o usuário eu
tenho que definir em que form aquele usuário vai ter acesso, e o
nivel de permissão dele no mesmo (se é total, de inclusão, alteração,
exclusão)... Esta parte eu não sei nem como começar. Se alguém tiver
algum material para me passar, ou quem sabe algum exemplo eu agradeço
muito.
Abraços
Patricia
--
FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM
Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED] ou [EMAIL PROTECTED]
Links do Yahoo! Grupos
--
FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM
Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED] ou [EMAIL PROTECTED]
Yahoo! Grupos, um serviço oferecido por:
São Paulo Rio de Janeiro Curitiba Porto Alegre Belo
Horizonte Brasília
--
Links do Yahoo! Grupos
a.. Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
b.. Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
c.. O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço
do Yahoo!.
[As partes desta mensagem que não continham texto foram removidas]
--
FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM
Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED] ou [EMAIL PROTECTED]
Links do Yahoo! Grupos
* Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
* Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
* O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html
RES: [delphi-br] Validação usuário
Procurei no google... e achei em http://pessoal.onda.com.br/qmd/download.htm
Mas tem em vários sites da net
-Mensagem original-
De: MC Sistemas [mailto:[EMAIL PROTECTED]
Enviada em: terça-feira, 8 de março de 2005 09:34
Para: delphi-br@yahoogrupos.com.br
Assunto: Re: [delphi-br] Validação usuário
tusercontrol... free ?
onde encontra-lo
Marcelo
- Original Message -
From: Francisco de A Souza
To: delphi-br@yahoogrupos.com.br
Sent: Tuesday, March 08, 2005 9:00 AM
Subject: RES: [delphi-br] Validação usuário
Use a tusercontrol... e facil e grátis...
-Mensagem original-
De: patricinha_cl [mailto:[EMAIL PROTECTED]
Enviada em: segunda-feira, 7 de março de 2005 13:22
Para: delphi-br@yahoogrupos.com.br
Assunto: [delphi-br] Validação usuário
Pessoal, estou desenvolvendo um sistema que possuirá validação de
usuário e senha. Porém nunca trabalhei com sistemas assim.
Gostaria de um auxilio, não encontro material algum na internet que
me auxilie para tal se puderem me dar uma idéia agradeço muito.
Possuo três tabelas, uma conterá os dados dos usuários, nome, login,
senha. Em outra tabela armazenarei o nome dos formularios que serão
criados no sistema, e na terceira tabela existirá as permissões dos
usuários para os formulários.
Gostaria de uma ajuda, estou trabalhando com o delphi 7 e banco
firebird. No meu form de login eu terei que validar usuário e senha.
Estou usando o seguinte código para tal:
procedure TFormLogin.BtnOKClick(Sender: TObject);
begin
DataModule1.UsuIBQuery.close;
DataModule1.UsuIBQuery.sql.clear;
DataModule1.UsuIBQuery.sql.add('SELECT USUARIO_LOGIN,USUARIO_SENHA');
DataModule1.UsuIBQuery.Sql.Add('from USUARIO');
DataModule1.UsuIBQuery.sql.Add('where USUARIO_LOGIN = :Nome and
USUARIO_SENHA =:Login ' );
DataModule1.UsuIBQuery.parambyname('Nome').asstring:=ednome.text;
DataModule1.UsuIBQuery.ParamByName('Login').asstring:=edsenha.text;
DataModule1.UsuIBQuery.open;
begin
if DataModule1.UsuIBQuery.RecordCount = 0 then
ShowMessage('Senha ou Usuario Invalido! '+ 'Certifique-se que a Tecla
Caps Lock não esteja Ativada! ')
else
begin
TelaPrincipal.enabled:=true;
FormLogin.release;
end;
end;
end;
Ele esta funcionando beleza, mas no form que eu cadastro o usuário eu
tenho que definir em que form aquele usuário vai ter acesso, e o
nivel de permissão dele no mesmo (se é total, de inclusão, alteração,
exclusão)... Esta parte eu não sei nem como começar. Se alguém tiver
algum material para me passar, ou quem sabe algum exemplo eu agradeço
muito.
Abraços
Patricia
--
FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM
Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED] ou [EMAIL PROTECTED]
Links do Yahoo! Grupos
--
FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM
Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED] ou [EMAIL PROTECTED]
Yahoo! Grupos, um serviço oferecido por:
São Paulo Rio de Janeiro Curitiba Porto Alegre Belo
Horizonte Brasília
--
Links do Yahoo! Grupos
a.. Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
b.. Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
c.. O uso que você faz do Yahoo! Grupos está sujeito aos Termos do
Serviço do Yahoo!.
[As partes desta mensagem que não continham texto foram removidas]
--
FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM
Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED] ou [EMAIL PROTECTED]
Links do Yahoo! Grupos
--
FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM
Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED] ou [EMAIL PROTECTED]
Links do Yahoo! Grupos
* Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
* Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
* O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html
Re: [delphi-br] Validação usuário
Tentou o google?
[]´s
Rodrigo O. Farias
- Original Message -
From: MC Sistemas
To: delphi-br@yahoogrupos.com.br
Sent: Tuesday, March 08, 2005 9:34 AM
Subject: Re: [delphi-br] Validação usuário
tusercontrol... free ?
onde encontra-lo
Marcelo
- Original Message -
From: Francisco de A Souza
To: delphi-br@yahoogrupos.com.br
Sent: Tuesday, March 08, 2005 9:00 AM
Subject: RES: [delphi-br] Validação usuário
Use a tusercontrol... e facil e grátis...
-Mensagem original-
De: patricinha_cl [mailto:[EMAIL PROTECTED]
Enviada em: segunda-feira, 7 de março de 2005 13:22
Para: delphi-br@yahoogrupos.com.br
Assunto: [delphi-br] Validação usuário
Pessoal, estou desenvolvendo um sistema que possuirá validação de
usuário e senha. Porém nunca trabalhei com sistemas assim.
Gostaria de um auxilio, não encontro material algum na internet que
me auxilie para tal se puderem me dar uma idéia agradeço muito.
Possuo três tabelas, uma conterá os dados dos usuários, nome, login,
senha. Em outra tabela armazenarei o nome dos formularios que serão
criados no sistema, e na terceira tabela existirá as permissões dos
usuários para os formulários.
Gostaria de uma ajuda, estou trabalhando com o delphi 7 e banco
firebird. No meu form de login eu terei que validar usuário e senha.
Estou usando o seguinte código para tal:
procedure TFormLogin.BtnOKClick(Sender: TObject);
begin
DataModule1.UsuIBQuery.close;
DataModule1.UsuIBQuery.sql.clear;
DataModule1.UsuIBQuery.sql.add('SELECT USUARIO_LOGIN,USUARIO_SENHA');
DataModule1.UsuIBQuery.Sql.Add('from USUARIO');
DataModule1.UsuIBQuery.sql.Add('where USUARIO_LOGIN = :Nome and
USUARIO_SENHA =:Login ' );
DataModule1.UsuIBQuery.parambyname('Nome').asstring:=ednome.text;
DataModule1.UsuIBQuery.ParamByName('Login').asstring:=edsenha.text;
DataModule1.UsuIBQuery.open;
begin
if DataModule1.UsuIBQuery.RecordCount = 0 then
ShowMessage('Senha ou Usuario Invalido! '+ 'Certifique-se que a Tecla
Caps Lock não esteja Ativada! ')
else
begin
TelaPrincipal.enabled:=true;
FormLogin.release;
end;
end;
end;
Ele esta funcionando beleza, mas no form que eu cadastro o usuário eu
tenho que definir em que form aquele usuário vai ter acesso, e o
nivel de permissão dele no mesmo (se é total, de inclusão, alteração,
exclusão)... Esta parte eu não sei nem como começar. Se alguém tiver
algum material para me passar, ou quem sabe algum exemplo eu agradeço
muito.
Abraços
Patricia
--
FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM
Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED] ou [EMAIL PROTECTED]
Links do Yahoo! Grupos
--
FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM
Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED] ou [EMAIL PROTECTED]
Yahoo! Grupos, um serviço oferecido por:
São Paulo Rio de Janeiro Curitiba Porto Alegre Belo
Horizonte Brasília
--
Links do Yahoo! Grupos
a.. Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
b.. Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
c.. O uso que você faz do Yahoo! Grupos está sujeito aos Termos do
Serviço do Yahoo!.
[As partes desta mensagem que não continham texto foram removidas]
--
FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM
Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED] ou [EMAIL PROTECTED]
Yahoo! Grupos, um serviço oferecido por:
PUBLICIDADE
Links do Yahoo! Grupos
Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço do
Yahoo!.
--
FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM
Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED] ou [EMAIL PROTECTED]
Links do Yahoo! Grupos
* Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
* Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
* O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html
Re: [delphi-br] Validação usuário
Acredito que apenas 3 tabelas seja pouco. Seria uma tabela para conter os usuários do sistema; uma tabela com os perfis do sistema; outra com os formulários do sistema; e a última relacionando os perfis com os formulários. Algo com a seguinte estrutura: Tabela de Usuários: CodigoUsuario, NomeUsuario, CodigoPerfil; Tabela de Perfis: CodigoPerfil, NomePerfil; Tabela de Formulários: CodigoForm, NomeForm; Tabela de Relacionamento entre Perfis e Forms: CodigoForm, CodigoPerfil. Espero ter ajudado. --- delphi-br@yahoogrupos.com.br escreveu: Pessoal, estou desenvolvendo um sistema que possuirá validação de usuário e senha. Porém nunca trabalhei com sistemas assim. Gostaria de um auxilio, não encontro material algum na internet que me auxilie para tal se puderem me dar uma idéia agradeço muito. Possuo três tabelas, uma conterá os dados dos usuários, nome, login, senha. Em outra tabela armazenarei o nome dos formularios que serão criados no sistema, e na terceira tabela existirá as permissões dos usuários para os formulários. Gostaria de uma ajuda, estou trabalhando com o delphi 7 e banco firebird. No meu form de login eu terei que validar usuário e senha. Estou usando o seguinte código para tal: João Paulo L.G. [EMAIL PROTECTED] __ Converse com seus amigos em tempo real com o Yahoo! Messenger http://br.download.yahoo.com/messenger/ -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
RES: [delphi-br] Validação usuário
Tenho ele aqui, se alguém não conseguir baixar, me avise EM PVT que eu
mando.
Luiz Kohl
www.byKohl.com
MSN: [EMAIL PROTECTED]
Skype: byKohl
Celular: 27-8115-5692
Vitória - ES - Brazil
-Mensagem original-
De: Rodrigo Othavio Farias [mailto:[EMAIL PROTECTED]
Enviada em: terça-feira, 8 de março de 2005 09:40
Para: delphi-br@yahoogrupos.com.br
Assunto: Re: [delphi-br] Validação usuário
Tentou o google?
[]´s
Rodrigo O. Farias
- Original Message -
From: MC Sistemas
To: delphi-br@yahoogrupos.com.br
Sent: Tuesday, March 08, 2005 9:34 AM
Subject: Re: [delphi-br] Validação usuário
tusercontrol... free ?
onde encontra-lo
Marcelo
- Original Message -
From: Francisco de A Souza
To: delphi-br@yahoogrupos.com.br
Sent: Tuesday, March 08, 2005 9:00 AM
Subject: RES: [delphi-br] Validação usuário
Use a tusercontrol... e facil e grátis...
-Mensagem original-
De: patricinha_cl [mailto:[EMAIL PROTECTED]
Enviada em: segunda-feira, 7 de março de 2005 13:22
Para: delphi-br@yahoogrupos.com.br
Assunto: [delphi-br] Validação usuário
Pessoal, estou desenvolvendo um sistema que possuirá validação de
usuário e senha. Porém nunca trabalhei com sistemas assim.
Gostaria de um auxilio, não encontro material algum na internet que
me auxilie para tal se puderem me dar uma idéia agradeço muito.
Possuo três tabelas, uma conterá os dados dos usuários, nome, login,
senha. Em outra tabela armazenarei o nome dos formularios que serão
criados no sistema, e na terceira tabela existirá as permissões dos
usuários para os formulários.
Gostaria de uma ajuda, estou trabalhando com o delphi 7 e banco
firebird. No meu form de login eu terei que validar usuário e senha.
Estou usando o seguinte código para tal:
procedure TFormLogin.BtnOKClick(Sender: TObject);
begin
DataModule1.UsuIBQuery.close;
DataModule1.UsuIBQuery.sql.clear;
DataModule1.UsuIBQuery.sql.add('SELECT USUARIO_LOGIN,USUARIO_SENHA');
DataModule1.UsuIBQuery.Sql.Add('from USUARIO');
DataModule1.UsuIBQuery.sql.Add('where USUARIO_LOGIN = :Nome and
USUARIO_SENHA =:Login ' );
DataModule1.UsuIBQuery.parambyname('Nome').asstring:=ednome.text;
DataModule1.UsuIBQuery.ParamByName('Login').asstring:=edsenha.text;
DataModule1.UsuIBQuery.open;
begin
if DataModule1.UsuIBQuery.RecordCount = 0 then
ShowMessage('Senha ou Usuario Invalido! '+ 'Certifique-se que a Tecla
Caps Lock não esteja Ativada! ')
else
begin
TelaPrincipal.enabled:=true;
FormLogin.release;
end;
end;
end;
Ele esta funcionando beleza, mas no form que eu cadastro o usuário eu
tenho que definir em que form aquele usuário vai ter acesso, e o
nivel de permissão dele no mesmo (se é total, de inclusão, alteração,
exclusão)... Esta parte eu não sei nem como começar. Se alguém tiver
algum material para me passar, ou quem sabe algum exemplo eu agradeço
muito.
Abraços
Patricia
--
FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM
Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED] ou [EMAIL PROTECTED]
Links do Yahoo! Grupos
--
FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM
Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED] ou [EMAIL PROTECTED]
Yahoo! Grupos, um serviço oferecido por:
São Paulo Rio de Janeiro Curitiba Porto Alegre Belo
Horizonte Brasília
--
Links do Yahoo! Grupos
a.. Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
b.. Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
c.. O uso que você faz do Yahoo! Grupos está sujeito aos Termos do
Serviço do Yahoo!.
[As partes desta mensagem que não continham texto foram removidas]
--
FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM
Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED] ou [EMAIL PROTECTED]
Yahoo! Grupos, um serviço oferecido por:
PUBLICIDADE
Links do Yahoo! Grupos
Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço do
Yahoo!.
--
FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM
Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED] ou [EMAIL PROTECTED]
Links do Yahoo! Grupos
--
FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM
[delphi-br] Validação usuário
Pessoal, estou desenvolvendo um sistema que possuirá validação de
usuário e senha. Porém nunca trabalhei com sistemas assim.
Gostaria de um auxilio, não encontro material algum na internet que
me auxilie para tal se puderem me dar uma idéia agradeço muito.
Possuo três tabelas, uma conterá os dados dos usuários, nome, login,
senha. Em outra tabela armazenarei o nome dos formularios que serão
criados no sistema, e na terceira tabela existirá as permissões dos
usuários para os formulários.
Gostaria de uma ajuda, estou trabalhando com o delphi 7 e banco
firebird. No meu form de login eu terei que validar usuário e senha.
Estou usando o seguinte código para tal:
procedure TFormLogin.BtnOKClick(Sender: TObject);
begin
DataModule1.UsuIBQuery.close;
DataModule1.UsuIBQuery.sql.clear;
DataModule1.UsuIBQuery.sql.add('SELECT USUARIO_LOGIN,USUARIO_SENHA');
DataModule1.UsuIBQuery.Sql.Add('from USUARIO');
DataModule1.UsuIBQuery.sql.Add('where USUARIO_LOGIN = :Nome and
USUARIO_SENHA =:Login ' );
DataModule1.UsuIBQuery.parambyname('Nome').asstring:=ednome.text;
DataModule1.UsuIBQuery.ParamByName('Login').asstring:=edsenha.text;
DataModule1.UsuIBQuery.open;
begin
if DataModule1.UsuIBQuery.RecordCount = 0 then
ShowMessage('Senha ou Usuario Invalido! '+ 'Certifique-se que a Tecla
Caps Lock não esteja Ativada! ')
else
begin
TelaPrincipal.enabled:=true;
FormLogin.release;
end;
end;
end;
Ele esta funcionando beleza, mas no form que eu cadastro o usuário eu
tenho que definir em que form aquele usuário vai ter acesso, e o
nivel de permissão dele no mesmo (se é total, de inclusão, alteração,
exclusão)... Esta parte eu não sei nem como começar. Se alguém tiver
algum material para me passar, ou quem sabe algum exemplo eu agradeço
muito.
Abraços
Patricia
--
FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM
Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED] ou [EMAIL PROTECTED]
Links do Yahoo! Grupos
* Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
* Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
* O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html
