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
