Diseñar aplicacion multiusuario con vb6.0

[zxs23]

La conexion actual es atravez de una base de datos multiusuario y todas las estaciones se conectan a un db servidor donde se agregan,modifican y eliminan registros.

Por lo que he encontrado hay 2 formas para hacer el programa multisuario, en las 2 se debe crear una tabla usuario(user,pass,ad,upd,del) y asignarle los permisos a cada usuario atravez de programacion segun el valor de los controles check de los campos ad,upd,del.

La otra es darle los permisos directamente a la bd sqlserver o mysql,pero como debo hacerlo correctamente o en que estoy equivocado

Pueden darme una pauta para empezar a programar cual de las 2 formas es mejor o la utilizada generalmente?
En resumen como hago para que el user 1 haga las 3 acciones(modificar,eliminar,crear), el user2 solo elimine y asi dependiendo el permiso que tenga asignado?

[culd]

La forma "1" es la mas usada...

Igualmente podes adaptar la forma 1 y la 2 para darle mayor seguridad al software...

La forma 1 es asi como dijiste...

- En una tabla se tienen los usuarios, password, niveles... (el nivel podes poner 1 y 0 para identificar si puede o no hacer una accion o tener acceso a una funcion...)

- Cuando el usuario loggea, guardas el NIVEL y habilitas o deshabilitas los botones etc etc...
PROBLEMA: Facilmente puede modificarte el estado de los botones de disabled a enabled, con olly por ejemplo... Entonces una solucion seria que cuando haces click en un boton verifique si el nivel le permite... (como para hacerlo mas jodido)...

Y por ultimo, podes tambien implementar la opcion 2, que por cada usuario tambien crear usuario en la base de datos para que tenga el acceso permitido... Con eso ya se evita todo tipo de cracking...

[vicentecamesella]

Estoy realizando un ERP y en cuanto a los usuario hice tres cosas basicas 1 un mapa de tablas donde le doy operativilidad a los botones add,edt,delete,print,search, un mapa de menu donde le di acceso a cada menu y por documento opciones operativas ejemplo cambiar fecha, cambiar moneda etc. Bien esto es mucho mas alla pero si queres dime tu mail y te agrego y te paso un codigo para que cheques

[zxs23]

Bueno no necesito algo tan complicado por ahora, pero estaria bueno ver el ejemplo.
Hasta ahora hize esto funciona pero me parece que le doy muchas vueltas al asunto.

Tengo declarada una variable en un modulo bas llamada User_system para guardar el nombre de usuario de la tabla usuario, esta bien plantiado esto o como seria una forma mas sencilla de hacerlo.

Código:

'Este el form del login
'===============
Dim rsU As Recordset

Private Sub cmdAceptar_Click()

'cargo la variable con el nombre del usuario
User_system = txtUser.Text

Set rsU = New Recordset
rsU.Open "SELECT * FROM usuario WHERE NomUser='" & Trim(txtUser.Text) & "'", cn, adOpenStatic, adLockOptimistic

If rsU.EOF = False And rsU.BOF = False Then
      'Si encontro algo, compruebo si la contraseña es igual a la del txtClave
      If rsU("clave") = txtClave Then
         'MsgBox "Login correcto", vbInformation, "Información"
         MDIForm1.Show
         Unload Me
      Else
         MsgBox "La contraseña no es correcta, verifique los datos", vbInformation, "Información"
      End If
Else
      MsgBox "El usuario no existe, verifique los datos", vbInformation, "Información"
End If
End Sub

Una vez q ingreso al sistema tengo en la variable "User_system" el nombre del usuario, en mi formulario en el boton de mantenimiento tengo este codigo

Código:

Private Sub cmdEliminar_Click()
'Reviso si el usuario de la variable "User_system" tiene activo el permiso
Dim rs As Recordset
Set rs = cn.Execute("SELECT n_acceso FROM usuario WHERE nomuser='" & User_system & "'")

Dim Ns As Integer
If rs(0) = FALSO Then Ns = 0 Else Ns = 1

If Ns = 1 Then 'Si el boolean esta activo
   MsgBox "Consulta SQL realizada satisfactoriamente"
   'Ejecuto el codigo y/o funciones ......
Else
   MsgBox "No puede realizar la consulta SQL, no tiene permiso"
End If
End Sub

Me gustaria crear una funcion o algo por estilo ya que estaria redundando codigo en cada boton con el que tenga que realizar una consulta a la base de datos