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
