Jump to content
Fórum Script Brasil
  • 0

Como Criar Uma Especie De Login No Delph


fraudinha

Question

ae galera é a 1° vez q vou fazer um projeto aki pra empresa,ela quer q eu faça um gestão financeiro pra ela onde haverá varios campos,vou avisando logo q terei muitas duvidas espero q tenham paciencia,estudei delph ano passado pois sou aluno da faetec bom minha duvida é a seguinte :

como faço para criar uma especie de login pois o programa será usado por varios usuarios ,alguém pode me ajudar e me dizer o q tenho q fazer?

Link to comment
Share on other sites

5 answers to this question

Recommended Posts

  • 0

Olá fraldinha,

ae vai uma dica passo a passo.

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

Usuários exemplo:

Login -----Senha

Carlos------1234

Joao--------1010

Agora no Delphi:

Nome do Projeto: ProjectLogin

form Prncipal:

Name : FrmPrincipal; (Unit: Principal.pas)

form Login:

Name : FrmLogin; (Unit: Login.pas)

No FrmLogin, adicione um TTable (Tabel1) para a a tabela TAB_USUARIO; dois 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 (ProjectLogin) coloque assim:
program ProjectLogin;

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.

É por aiiii... tongue.gif

Abs. Progr'amador.

Link to comment
Share on other sites

  • 0
você poderia me explicar esses códigos porque na faetec não aprendi dessa forma não por exemplo o q significa:

hide

obrigado

Olá,

"explicar códigos" sou péssimo nisso!! tongue.gif

Hide, ta ocultando o Form de Login, senão ele ficaria aparecendo por traz do form principal quando você movimentasse o form princ.

É só pra isso.

A num ser que você consiga fecha-lo apos efetuar o login, coisa que eu não consegui nesse tipo de login.

Abs. Progr'amador.

Link to comment
Share on other sites

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Answer this question...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.



  • Forum Statistics

    • Total Topics
      152.2k
    • Total Posts
      651.8k
×
×
  • Create New...