Desafio

[Vivendo&Aprendendo]

Ola galera

Como fazer um form de login em uma aplicação MDI?

O login e a senha estão guardadas em um banco de dados.

falou

Alexandre

[Progr'amador]

Simples!

é da mesma forma que uma aplicação "normal" (fsNormal).

Passo a passo.

Nesse exemplo vou usar uma tabela Paradox, Nome tabela: TB_USUARIO, campos: Login e Senha.

Usuários exemplo:

Login -----Senha

Carlos-----123

Joao-------1010

Agora no Delphi:

Nome do Projeto: AplicMDI

form Prncipal:

FormStyle: fsMDIForm;

Name : FrmPrincipal; (Unit: Principal.pas)

form Login:

FormStyle: fsNormal;

Name : FrmLogin; (Unit: Login.pas)

No FrmLogin, adicione um TTable (Tabel1) para a a tabela TB_USUARIO, dos Edit's (EditLogin e EditSenha) e um bitBtn (btnEntrar).

e no OnCreate coloque:

  Table1.Active := False;
  Table1.Active := True;

e no OnClick do btnEntrar coloque:

procedure TForm1.BtnEntrarClick(Sender: TObject);
var achou : boolean;
begin
  if EditLogin.Text = '' then begin
     ShowMessage('Informe o Nome do Usuário...');
     EditLogin.SetFocus;
     Exit;
  end;
  achou := Table1.Locate('Login',Trim(EditLogin.Text),[]);
  if achou then begin
     if EditSenha.Text = '' then begin
        ShowMessage('Informe a Senha do Usuário...');
        EditSenha.SetFocus;
        Exit;
     end;
     if EditSenha.Text <> Table1.FieldByNAme('Senha').AsString then begin
        ShowMessage('Senha incorreta...');
        EditSenha.Text := '';
        EditSenha.SetFocus;
        Exit;
     end else
        Application.Run;
  end else begin
     ShowMessage('Usuário não Cadastrado no Banco de Dados...');
     EditLogin.Text := '';
     EditLogin.SetFocus;
  end;
end;

no onShow do FrmPrincipal coloque:

FrmLogin.Hide;

e no Fonte do projeto (AplicMDI) coloque assim:

program AplicMDI;

uses
  Forms,
  Principal in 'Principal.pas' {FrmPrincipal},
  Login in 'Login.pas' {FrmLogin};

{$R *.RES}

begin
  Application.CreateForm(TFrmPrincipal, FrmPrincipal);
  Application.CreateForm(TFrmLogin, FrmLogin);
  FrmLogin.ShowModal;
end.

a grosso modo, é isso!!!

Abs. Progr'amador.

[lazarodm]

Progr'amador, depois que o login é efetuado com sucesso e o sistema for entrar no form principal, ele não vai "esconder" denovo?

[Progr'amador]

Progr'amador, depois que o login é efetuado com sucesso e o sistema for entrar no form principal, ele não vai "esconder" denovo?

Esconder okê????

[lazarodm]

Desculpe...foi um erro de interpretação quando eu li o código...