https://foro.gambas-es.org/viewtopic.php?f=3&t=3462
-----------------------------------
jousseph
Jueves, 07 Noviembre 2013, 00:40

Validar Un Cantidad De Usuarios Para El Acceso
-----------------------------------
Hola buenas, como estan señores programadores, espero que bien y deseandoles una maxima produccion y desarrollo en sus programas y sistemas.

Quiero comentarles que el acceso a un sistema es esencial para la proteccion del mismo pero yo me hago una pregunta quiza para ustedes es muy facil y es la de validar una cantidad de usuarios en una base de datos por ejemplo uno logra crear un acceso y si el primer usuario se registra pues logicamente solo se valida el primer campo de la tabla bueno tambien depende de como se llene la base de datos si es ascendente o descendente pero siempre se valida un solo registro, entonces como se haria para validar varios campos de la tabla yo por ejemplo pense en un movenext pero si lo hago asi validaria todos los que se registren y no tendria sentido yo qusiera hacer una prueba de validar por ejemplo 3 personas y que las demas registradas no las tome en cuenta.

Bueno ese es el detalle muchas gracias por sus ayudas.


-----------------------------------
shordi
Jueves, 07 Noviembre 2013, 09:15

Re: Validar Un Cantidad De Usuarios Para El Acceso
-----------------------------------
No entiendo lo que dices. 
Cuéntanos lo que quieres hacer, simplemente. "Quiero que sólo haya tres conexiones simultáneas" o algo así, porque si cuentas lo que te imaginas que es la solución sin especificar cuál es el problema, como que no nos enteramos.


-----------------------------------
jousseph
Jueves, 07 Noviembre 2013, 17:41

Re: Validar Un Cantidad De Usuarios Para El Acceso
-----------------------------------
[quote]No entiendo lo que dices.
Cuéntanos lo que quieres hacer, simplemente. "Quiero que sólo haya tres conexiones simultáneas" o algo así, porque si cuentas lo que te imaginas que es la solución sin especificar cuál es el problema, como que no nos enteramos.[/quote]

Señor shordi que tal buenos dias, lo que en realidad quiero es crear un acceso donde solo valide a 3 usuarios que se han registrado, no importa si se han registrado 6 0 7 usuarios quiero es que solo permita validar el acceso a solo 3 usuarios de la base de datos, asi se hayan registrado 100.

Habia logrado permitir el acceso con el comando hresult.movenext pero me doy cuenta que valida todos los usuarios entonces queria era que llegase hasta los 3 primeros en la base de datos.

Gracias espero haya entendido.


-----------------------------------
jousseph
Viernes, 08 Noviembre 2013, 00:39

Re: Validar Un Cantidad De Usuarios Para El Acceso
-----------------------------------
Bien ya lo solucione el secreto esta en el hresult.movenext, me puse a analizar la programacion de los botones siguiente, atras y ultimo y me di cuenta que si hago que autorecorra los 3 campos de la tabla puedo dar con los 3 usuarios que necesito validar, ahora como lo hice? bueno utilice un Timer para que lo hiciiera y que cuando terminara se hiciera timer.enabled=false.

SIguiendo el tema dije voy a crear un combobox y su texlabel para que cuando el timer me recorra los 3 campos me liste los 3 usarios recorridos en el combobox y asi condicionarlos a seleccionar los mismos con su nombre y contraseña para validarlos por ejemplo:

[code linenumbers=false syntax=gambas]Public Sub Timer1_Timer()
juninresul = coneccion.junincon.Exec("select *from acceso")
If juninresul.Available Then TextBox3.Text = juninresul["codigo"]
If TextBox3.Text = "" Then
 ' Message.Error("¡NO HAY NADIE REGISTRADO PARA OPERAR EL SISTEMA, POR FAVOR REGISTRESE SI ESTA AUTORIZADO POR EL ADMINISTRADOR!")
  Timer1.Enabled = False
  Else 
    If Not (juninresul.Available) Then TextLabel5.Text = ""
    If TextLabel5.Text = ""
    Timer1.Enabled = False
    Else
TextLabel5.Text = juninresul["nombre"]
 TextBox3.Text = juninresul["codigo"] 
 ComboBox1.Add(TextLabel5.Text)
 ComboBox1.Text = ""
juninresul.MoveNext()
  Timer1.Enabled = False
  If Not (juninresul.Available) Then TextLabel5.Text = "" 
 If TextLabel5.Text = ""
    Timer1.Enabled = False
    Else
  TextLabel5.Text = juninresul["nombre"]
  TextBox3.Text = juninresul["codigo"]
  ComboBox1.Add(TextLabel5.Text)
  ComboBox1.Text = ""
  juninresul.MoveNext()
  Timer1.Enabled = False
    If Not (juninresul.Available) Then TextLabel5.Text = "" 
 If TextLabel5.Text = ""
    Timer1.Enabled = False
    Else
   TextLabel5.Text = juninresul["nombre"]
  TextBox3.Text = juninresul["codigo"]
 ComboBox1.Add(TextLabel5.Text)
 ComboBox1.Text = ""
 Timer1.Enabled = False
 Endif
 Endif
 Endif
 Endif
End

Public Sub ComboBox1_Click()
TextBox1.Text = ComboBox1.Text
End[/code]

[b]La idea es que ejecute la funcion juninresult.movenext hasta donde yo quiera para validar solo los 3 primeros usuarios de la base de datos, lo tengo un poco desordenado voy a cuadrarlo mas tarde para que funcione optimamente[/b] :mrorange:


