GARANTIR DESCONTO

Fórum login #345346

30/08/2007

0

Delphi

Olá pessoal sou iniciante em delphi e preciso de uma ajuda para finalizar um projeto do curso de delphi que estamos terminando, Seria a tela de Login.
Alguém poderia me ajudar à fazer?
Não sei como começar!

Uso o Delphi 7 e Firebird 2.0.1.

Espero resposta e ajudas.


Robinhocne

Robinhocne

Responder

Posts

30/08/2007

Sremulador

Amigo, sobre as telas de login, basta ter um pouco de criatividade, aqui mesmo no fórum tem várias idéias, mas partindo do ponto que vc precisa para terminar um curso, acho que e mais negocio pra você fazer um pouco de esforço pra saber se realmente esta aprendendo...


Responder

Gostei + 0

30/08/2007

Robinhocne

Ok, entendi, mas sou daqueles que prefiro ter informações, juntar e decedir o de melhor, estou com varios exemplos aki e estou juntando o que há de melhor para o meu projeto, mas penso que pense que duas cabeças pensa melhor, como disse sou iniciante e preciso de um ´TRIGGER´ para continuar.

Obrigado


Responder

Gostei + 0

30/08/2007

Robinhocne

Estou com esses dados na minha form de login:

procedure TFrmLogin.SpbOkClick(Sender: TObject);
label Erro;
var
 S: String;
begin
   dtmiza.qryiza.Open;
 if dtmiza.qryiza.Locate(´Usuarios´, TxtUsu.Text, []) Then
  begin
   S:=dtmiza.qryiza.FieldByName(´Senha´).AsString;
   If TxtSen.Text<>S Then Goto Erro;
   Close;
   Exit;
  FrmLogin.Close;
  end
 Else
  Goto Erro;
 Erro:
  begin
  MessageDlg(´Você Não Tem Permisão´, mtConfirmation, [mbOk], 0);
  Application.Terminate;
end;
 End;
procedure TFrmLogin.txtusuExit(Sender: TObject);
begin
   dtmiza.qryiza.Open;
      If dtmiza.qryiza.Locate(´UsuarioS´, TxtUsu.Text, []) Then
         psvBorderLabel1.Caption:= dtmiza.qryiza.FieldByName(´Nivel´).AsString;
end;

procedure TFrmLogin.txtsenKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
 If (Key=vk_Return) Or (Key=vk_Down) Then
  Perform(WM_NEXTDLGCTL, 0, 0);
end;


[b:9f65681ac1]Mas esta dando o seguinte erro apos eu executar e digitar o usuario.[/b:9f65681ac1]

Empty SQL Sta Tement.



Responder

Gostei + 0

30/08/2007

Emerson Nascimento

a instrução sql da query dtmiza.qryiza está vazia. é preciso digitar uma instrução na propriedade. algo como: select * from usuario


Responder

Gostei + 0

30/08/2007

Robinhocne

Ok fiz desse tipo, mas...

procedure TFrmLogin.SpbOkClick(Sender: TObject);
Begin
   with dtmiza do
      begin
         qryiza.Close;
         qryiza.SQL.Clear;
         qryiza.SQL.Add(´SELECT * from Usuarios´);
         qryiza.Open;
     if qryiza.RecordCount = 0 then
         ShowMessage(´Usuário inválido´) else
            if (LowerCase(TxtSen.Text) = LowerCase(qryiza.FieldbyName(´Senha´).asString)) then
                Close else
                ShowMessage(´Senha inválida!´);
      end;

End;



....Mas eu entro no cadastro e ai não aparece o formulario principal, nada fecha o programa. Como eu faço.


Responder

Gostei + 0

30/08/2007

Dbergkamps10

tenta usar este componente. ele é ótimo é só instalar e correr pro abraco
[url]http://www.activedelphi.com.br/modules.php?op=modload&name=News&file=article&sid=392&mode=thread&order=0&thold=0[/url]
vlw


Responder

Gostei + 0

31/08/2007

Robinhocne

tenta usar este componente. ele é ótimo é só instalar e correr pro abraco [url]http://www.activedelphi.com.br/modules.php?op=modload&name=News&file=article&sid=392&mode=thread&order=0&thold=0[/url] vlw


Ok, Amigo, isso também vai ser util para min:

1 - Tenho que também fazer uma checagem do Usuário.
2 - Digitando a senha correta o Projeto abre normal mas a tela de login não feche.

Me ajude a implementar esses dois dados nesse codigo meu pois já tentei de varias maneiras e não to sabendo como fazer.

procedure TFrmLogin.SpbOkClick(Sender: TObject); Begin with dtmiza do begin qryiza.Close; qryiza.SQL.Clear; qryiza.SQL.Add(´SELECT * from Usuarios´); qryiza.Open; if qryiza.RecordCount = 0 then ShowMessage(´Usuário inválido´) else if (LowerCase(TxtSen.Text) = LowerCase(qryiza.FieldbyName(´Senha´).asString)) then FrmPrincipal.ShowModal else ShowMessage(´Usuário ou Senha Inválida!´); end; End;



Responder

Gostei + 0

01/09/2007

Dbergkamps10

Olá
Robinho, nao entendi direito.
Pelo código q vc colocou o form de login, nao deve fechar. Se ele nao esta aparecendo eh pq ao usar o ShowModal, a aplicação da ´uma pausa´ e só continua apos encerrar o form q tem o showmodal. Se o form de login não aparece, eh pq com certeza o form principal deve estar sobreposto sobre ele.

Me add no msn para que eu possa ajuda-lo melhor: dbergkamps@hotmail.com


Responder

Gostei + 0