Ir para conteúdo
Fórum Script Brasil
  • 0

Desafio


Vivendo&Aprendendo

Pergunta

4 respostass a esta questão

Posts Recomendados

  • 0

Simples! biggrin.gif

é 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!!! tongue.gif

Abs. Progr'amador.

Link para o comentário
Compartilhar em outros sites

Participe da discussão

Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.

Visitante
Responder esta pergunta...

×   Você colou conteúdo com formatação.   Remover formatação

  Apenas 75 emoticons são permitidos.

×   Seu link foi incorporado automaticamente.   Exibir como um link em vez disso

×   Seu conteúdo anterior foi restaurado.   Limpar Editor

×   Você não pode colar imagens diretamente. Carregar ou inserir imagens do URL.



  • Estatísticas dos Fóruns

    • Tópicos
      152k
    • Posts
      651,8k
×
×
  • Criar Novo...