Login com Forms MDI

Question

Galera tenho uma aplica��o MDI, e preciso colocar o login antes de aparecer o sistema...Como fazer ?Quero q valide primeiro o usuario e depois abra o sistema.Valeu...

Brunobaco · Answer

Nao sei se entendi bem sua pergunta, mas que tal se vc fizesse a verificacao no oncreate. se passar, abre, caso contrario, abort.Espero ter ajudado. Senao, explique melhor sua pergunta....

Edilcimar · Answer

crie um form normal para o login coloque-o como sendo o primeiro a ser criado e d� um showmodal nele...

Michel · Answer

Pessoal, fiz assim : So criei o data modulo e o formulario de login, deste jeito ele executa a aplica��o belezinha, mas quando eu clico para abrir o formulario de cliente que � � filho � ele da um erro mostrando que nao possui formulario � pai � ativo.

begin
Application.Initialize;
Application.CreateForm(TDados, Dados);
Application.CreateForm(TFLogin, FLogin);
Application.Run;

procedure TFLogin.SpeedButton1Click(Sender: TObject);
begin
if Edit2.Text = �1� then
begin
FPrincipal := TFPrincipal.Create(Self);
FPrincipal.Show;
end;
end;

Massuda · Answer

[quote:1767c06c2b=�michel�]Pessoal, fiz assim : So criei o data modulo e o formulario de login...[/quote:1767c06c2b]Para n�o ter dores de cabe�a, fa�a assim:[list:1767c06c2b][*:1767c06c2b]deixe o Delphi criar automaticamente seu data module e seu form principal (n�o o form de login)[*:1767c06c2b]no evento OnCreate do seu form principal, crie o form de login e exiba esse form usando ShowModal[*:1767c06c2b]se o login for inv�lido, voc� pode dar um Application.Terminate ou Halt[*:1767c06c2b]destrua o form de login quando ele n�o for mais necess�rio[/list:u:1767c06c2b]Prefira fazer desse modo porque o Delphi considera que seu form principal � o primeiro form criado via Application.CreateForm ou o primeiro form criado com Owner = Application (o que acontecer primeiro). O Delphi tem um tratamento especial para o form principal que pode causar problemas se voc� fizer do jeito que voc� mostrou....

Michel · Answer

Massuda, fiz o que vc falou mas quando ele � executado da a seguinte mensagem ( Cannot make a visible window modal ).

Chamei o FLogin no Oncreate do formulario principal;

** FLogin := TFLogin.Create(Self);
FLogin.ShowModal;

Valeu.

Massuda · Answer

[quote:6f349d4f7d=�michel�]...Cannot make a visible window modal...[/quote:6f349d4f7d]Seu form de login n�o deve estar na lista de forms criados automaticamente pelo Delphi e ter FormStyle = fsNormal. Fora isso, use um c�digo mais ou menos assim:[code:1:6f349d4f7d]FLogin := TFLogin.Create(nil);try   if FLogin.ShowModal = mrOK then begin    if ...login inv�lido... then Halt;   end;finally  FreeAndNil(FLogin);end;[/code:1:6f349d4f7d]...

Mysys · Answer

form principal fsMDIFormform login fsNormalo source do projeto fica assimTry  FRMLogin := TFRMLogin.Create(Application);  Application.CreateForm(TFRMMenu, FRMMenu);  Application.CreateForm(TFDM, FDM);  FRMLogin.ShowModal;Finally  FRMLogin.Free;end;  Application.Run;ai na tela de login voce tem 2 botoesBTNEntrar pra simplesmente entrar voloc Close; s� close;ou //------ queri verificando o cadastro de usuariosFDM.QRY001.Close;FDM.QRY001.Params[0].AsString := EDUsuario.Text;FDM.QRY001.Open;If FDM.QRY001.IsEmpty then  Begin    Mensagem(�Usu�rio �+EDUsuario.TExt+� n�o cadastrado  !�);    EDUsuario.SetFocus;  EndElse  Begin    If Encrypt(FDM.QRY001SENUSU.AsString) <> EDSenha.Text Then      Begin        Mensagem(�Senha Inv�lida, Tente novamente  !�);        EDSenha.SetFocus;      End    Else      Begin        FRMMenu.Configura_Menu;        FRMLogin.Tag := 1;        Close;      End;  End;BTNCancelar   Close;  FRMMenu.Free;ai ele fecha o login e o form principal...

Mahdak · Answer

tenta assim(Todos os Forms sao MDI, menos o Principal):
Abra�os! :x
---------------
Passo1.
---------

// UNIT RAIZ
program Adm;

uses
Forms,

Unit7 in �Units\Unit7.pas� ,
Unit8 in �Units\Unit8.pas� ,
Unit1 in �Units\Unit1.pas� ;

{$R *.RES}
begin

{*********************}
Application.CreateForm(TPrincipal, Principal);
Splash.UpDate;

{*********************}
Splash := TSplash.Create(Application);

if Splash = nil then
Splash := TSplash .Create ( Application );
Splash .Show;

{*********************}
ImputBox := TImputBox.Create(Application);

if ImputBox = nil then
ImputBox := TImputBox.Create ( Application );
ImputBox.ShowModal;

ImputBox.UpDate;

end;
------------------------------------------------------------
Passo2.
----------
// No imputBox vai ser a verifica��o do Usuario / Senha

------------------------------------------------------------
Passo3.
----------
procedure TPrincipal.FormCreate(Sender: TObject);
var
i : Integer;
d,m,y : word;
j : byte;
Data : TDateTime;
begin
For i := 1 to 8000 do
begin
Splash.PB.Position := Splash.PB.Position + 1;
Splash.Update;
end;
end;

-----------------------------------------------------------------------

Lorde_morte. · Answer

[quote:a826381a8f=�MySYS�]//------ queri verificando o cadastro de usuariosFDM.QRY001.Close;FDM.QRY001.Params[0].AsString := EDUsuario.Text;FDM.QRY001.Open;If FDM.QRY001.IsEmpty then  Begin    Mensagem(�Usu�rio �+EDUsuario.TExt+� n�o cadastrado  !�);    EDUsuario.SetFocus;  EndElse  Begin    If Encrypt(FDM.QRY001SENUSU.AsString) <> EDSenha.Text Then      Begin        Mensagem(�Senha Inv�lida, Tente novamente  !�);        EDSenha.SetFocus;      End    Else      Begin        FRMMenu.Configura_Menu;        FRMLogin.Tag := 1;        Close;      End;  End;BTNCancelar   Close;  FRMMenu.Free;ai ele fecha o login e o form principal[/quote:a826381a8f]Qual deve ser codigo dessa Query para ela funcione da mesma maneira com usuarios cadastrado pelo componente TIBSecurityService?Me ajudem......

F�rum Login com Forms MDI #279275