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

Ajuda Pelo Amor De Deus!


beta_lokinha

Pergunta

Oi, tenho algumas duvidas sobre Delphi. Preciso de ajuda URGENTE!!!!!

Estou fazendo com mais 5 colegas um sistema de gerenciamento de um laboratorio de informatica. O problema e: mesmo se colocado uma senha diferente, entra na tela principal do sistema. Vou mandar o codigo-fonte

unit Login;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls, DB, ADODB, Grids, DBGrids;

type

TLogar = class(TForm)

conn: TADOConnection;

qry: TADOQuery;

txtmatricula: TEdit;

txtsenha: TEdit;

btlogar: TButton;

Label2: TLabel;

Label3: TLabel;

Label4: TLabel;

procedure btlogarClick(Sender: TObject);

procedure txtmatriculaChange(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Logar: TLogar;

implementation

uses principal, redireciona;

{$R *.dfm}

procedure TLogar.btlogarClick(Sender: TObject);

var

nome : string;

begin

//criamos a consulta em sql passando os valores dos campos preenchidos

qry.SQL.Text := 'select tablog.Nome from tablog where ((tablog.matricula = "'+txtmatricula.Text+'") and (tablog.senha = "'+txtsenha.Text+'"));';

qry.Active:= True;

//nome := qry.Fields.Fieldbyname('Nome').Value;

//label4.Caption:= nome;

if qry.RecordCount = 0 then

begin

showmessage ('Usuario ou senha Invalidos');

end

else

nome := qry.Fields.Fieldbyname('Nome').Value;

label4.Caption:= nome;

cbv.showmodal;

end;

Por favor, preciso dessa solucao o mais rapido possivel

Link para o comentário
Compartilhar em outros sites

2 respostass a esta questão

Posts Recomendados

  • 0
procedure TLogar.btlogarClick(Sender: TObject);

var

nome : string;

begin

//criamos a consulta em sql passando os valores dos campos preenchidos

qry.SQL.Text := 'select tablog.Nome from tablog where ((tablog.matricula = "'+txtmatricula.Text+'") and (tablog.senha = "'+txtsenha.Text+'"));';

qry.Active:= True;

if qry.RecordCount = 0 then

showmessage ('Usuario ou senha Invalidos') else

Erro está aqui, vocês teriam que colocar um begin

begin

nome := qry.Fields.Fieldbyname('Nome').Value;

label4.Caption:= nome;

cbv.showmodal;

end;

end;

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
      152,3k
    • Posts
      652,4k
×
×
  • Criar Novo...