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
Pergunta
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
Link para o comentário
Compartilhar em outros sites
2 respostass a esta questão
Posts Recomendados
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.