Como Criar Uma Especie De Login No Delph

[fraudinha]

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?

[fraudinha]

po galera será q alguém pode me ajudar??????

[Progr'amador]

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...

Abs. Progr'amador.

[fraudinha]

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

hide

obrigado

[Progr'amador]

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!!

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.

[delphiprogramas]

Oi Fraudinha,

Estou disponibilizando um sistema integrado em Delphi com acesso por logjn e controle de usuários com certeza poderá ajuda-lo muito, para maiores informações visite www.delphiprogramas.cjb.net.

Um abraço !

Equipe Delphi Programas

Yahoo: delphiprogramas@yahoo.com.br

MSN: delphiprogramas@hotmail.com