procedure TfrmLogin.cmdAccesarClick(Sender: TObject);
Var
consulta : String;
begin
with qryUsuario do
begin
close;
SQL.Clear;
consulta := 'Select * from TabUsuarios where LogUsuario ='+char(39)+
txtUsuario.Text+char(39)+ 'and ConUsuario ='+chr(39) + txtcontrasena.Text+char(39);
SQL.Add(consulta);
Open;
If (RecordCount=1) then
Begin
End
else
Begin
MessageDlg('Usuario o Contraseña Incorrecta, Por Favor Verifique',mterror,[mbOk],0);
txtUsuario.SetFocus;
end ;
End;
end;