Ajuda Pelo Amor De Deus!

[beta_lokinha]

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

[Vivendo&Aprendendo]

Olá Beta_Lokinha

Explica melhor o que você realmente está querendo fazer...

Alexandre

[Churc]

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;