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
