lo que tengo es lo siguiente una tabla con 3 campos:
Tipo , Usuario , Clave
donde Tipo es el indicador si es un Administrador o Usuario simple. esto para darle algunos privilegios ... lo que hize es algo simple:
Dim cn As New ADODB.Connection
Dim Rst As New Recordset
Dim i As Integer
Dim ClaveCorrecta As Boolean
Private Sub Form_Load()
cn.Provider = "Microsoft.Jet.OLEDB.4.0"
cn.ConnectionString = "data.mdb"
cn.Open
End Sub
Private Sub Button1_Click()
If TxtUsuario.Text <> Empty And TxtClave.Text <> Empty Then
Rst.Open "SELECT Usuario,Clave FROM Usuarios", cn, adOpenStatic, adLockPessimistic, adAsyncFetch
If Rst.RecordCount Then
For i = 1 To Rst.RecordCount
If StrComp(Rst(0).Value, TxtUsuario) = 0 Then
If StrComp(Rst(1).Value, TxtClave) = 0 Then
ClaveCorrecta = True
Exit For
End If
End If
Rst.MoveNext
Next i
End If
If ClaveCorrecta Then
Unload Me
Principal.Show
Else
MsgBox "Ha escrito incorrectamente el nombre de usuario o la clave", vbExclamation, "Atención"
Rst.Close
Set Rst = Nothing
End If
Else
MsgBox "Debe escribir en nombre de usuario y la clave", vbExclamation, "Atención"
End If
End Sub
como es multiusuario... solo habia hecho esto pero sin tener en cuenta lo de tipo, y toy dandole vueltas para poder manejar todo eso... y poder mostrarlo en una etiketa algo asi :
Principal.Tipo.Caption
Alguna sugerencia de como lograrlo.
Saludos.
bueno le di una solucion rapida pero no me gusta.
del codigo anterior: modifique ..
Rst.Open "SELECT * FROM Usuarios", cn, adOpenStatic, adLockPessimistic, adAsyncFetch
For i = 1 To Rst.RecordCount
If StrComp(Rst(0).Value, Combo1) = 0 Then
If StrComp(Rst(1).Value, TxtUsuario) = 0 Then
If StrComp(Rst(2).Value, TxtClave) = 0 Then
ClaveCorrecta = True
Tipousuario = Combo1
Usuario = TxtUsuario
Exit For
End If
End If
End if
Rst.MoveNext
Next i
le adicione un combo con la opcion de escoger Administrador o Usuario y asi este tambien lo toma para validar y los muestro en el form principal:
Principal.Tipo.Caption = TipoUsuario
Principal.Usuario.Caption = Usuario
y como veran es jodido estar selecionando Administrador o Usuario en el combo para hacer login ...
mmm aca te dejo un proyecto que hice para mi escuela como proyecto final de semestre use el ADO (Mi profesora awebo queria que usara el control DATA pero no le hice caso por la poca accesibilidad que dapero bueno)
Descargar (http://musanto.webcindario.com/0InfrAngeluX0/Ejemplos/BasesDeDatos/ADO/EjemploSource_InfraGames_ProjectEscolar.zip)
P.D.: Tiene errores pues lo hice en 2 dias ya hace 2 años y los unicos cambios que le realice fueron hace unas horas pues usaba un registro en la bdd de access para contar cuantos registros (ya sean de datos o usuarios para saber cuantos habian y esto fallaba ademas que era tonto)
Ojala te sirva
Dulces Lunas
listo ya lo estuve revisando ... y si es algo como lo que quiero ... pero la verdad esta algo chapuzero ;D ;D .. muchas palabras similares como declaraciones confunden... bueno luego lo reviso mas detalladamente... gracias..
Saludos.
Hola, es re facil, simplemente cuando agregas un usuario nuevo (no se si tu sistema tiene altas de usuario) me inmagino que si porque sino es inutil validar...pues cuando das de alta el usuario ademas de guardar la contraseña y el usuario tenes que tener un campo que guarde el tipo de usuario y despues comapras y listo...
saludos
Cita de: seba123neo en 16 Abril 2009, 01:18 AM
Hola, es re facil, simplemente cuando agregas un usuario nuevo (no se si tu sistema tiene altas de usuario) me inmagino que si porque sino es inutil validar...pues cuando das de alta el usuario ademas de guardar la contraseña y el usuario tenes que tener un campo que guarde el tipo de usuario y despues comapras y listo...
saludos
Si le adicione esas opciones.. de altas y bajas .. y tuve que adicionar el tipo tambien con un combo ;D ;D y si eso es lo que hago comparar ...
edit: si lees al inicio de mi post puse eso que tengo una tabla con esos 3 campos.. ;D ;D
No le veo .... ;D ;D
Lo kieres hacer es dar privilegios o nop en ese caso creo k es re facil como dice seba solo es crearlo y des pues validar en un avariable global el tipo de usuario que es como siempre ago en mis aplicaciones solo digitan el user y pass y luego valido si es usuario o administartor y le doy los pribilegios de lugar.
Ps: Tambien se puede con niveles de usuarios por formulario a mi gusta mucho asi niveles y tipos
Saludos..