mas acho que eh ai que está o erro.
naum sei se entendi, mas está tentando criar a janela principal a
partir da janela de login ???
se for isso, provavelmente após o usuário clicar em OK, a janela de
login é "destruida", dependendo de como estiver implementado, pode dar
pau.
voce pode fazer a variavel Acessar_Sistema uma variavel global, e a
classe usuario pode seta-la para true, quando o usuário tiver acesso.
--- Em delphi-br@yahoogrupos.com.br, "Romario (Listas)"
<[EMAIL PROTECTED]> escreveu
> Osmar,
>
> Agradeço pela sua resposta, mas ainda continuo sem obter sucesso.
Quando
> efetuo o ShowModal é gerada uma exceção que encerra a minha aplicação.
>
> Estou utilizando da seguinte forma:
>
> Quem faz a verificação da permissão de acesso é a Classe Usuário que
> informa à janela de login se ele possui ou não direitos de acesso.
>
> Explico:
>
> Quando o usuário clica no botão de OK (após preencher os campos de
> usuário e senha), eu chamo um método na classe "Usuario" que acessa as
> regras de negócio no datamodule "Usuario" e verifica no banco de dados
> se esse usuário possui permissão de acesso. O retorno dessa função é um
> booleano e faz com que a janela de login tome a decisão de abrir ou não
> a janela principal de acordo com o valor retornado.
>
> Como vê, tudo isso está dentro dos métodos criados no formulário de
> login e não são acessados através da Unit do Programa.
>
> Mais alguma dica?
>
> Obrigado!
>
> Sds,
>
> Romario
>
>
>
> Osmar de Souza Júnior escreveu:
> >
> >
> > eu costumo fazer assim:
> >
> > begin
> > Application.Initialize;
> >
> > Application.CreateForm(Tdm, dm);
> >
> > fmDlg_Acesso := TfmDlg_Acesso.Create(Nil);
> > fmDlg_Acesso.ShowModal;
> >
> > if Acessar_Sistema then
> > begin
> > Application.CreateForm(TfmPrincipal, fmPrincipal);
> > end;
> >
> > Application.Run;
> > end.
> >
> >
> > Obs.: dm é o meu Data Module, e a variavel acessar sistema fica nesse
> > data module. ela começa com false, e na janela de login, se o login
> > for correto, passa essa variavel para true, dai ele cria o form
> > principal. se cancelar o login, naum cria nada.
--
<<<<< 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
