Consulta por User
Publicado por Javier (75 intervenciones) el 13/08/2014 03:38:10
Hola buenas tardes, dentro de mi BD tengo una tabla donde capturo los usuarios y tengo un login para digitar el user y clave, pero quisiera saber como puedo hacer mi DW de ventas donde se quede guardado CUAL USER es el que capturo la info, para asi poder hacer una consulta o un reporte de mis ventas por cada user, y ademas hacer una consulta total (donde se sumen las ventas de todos los users).
He pensado en agregar un campo a mi Tabla VENTAS que se llame USER, y ahi se ponga automaticamente el user con el que me logueo pero no se como hacerlo, o no se que me sugieran:
Este es el codigo de mi ventana de Loguin, y en archivo adjunto pongo mi ventana de captura:
SQLCA.DBMS = "ODBC"
SQLCA.AutoCommit = False
SQLCA.DBParm = "ConnectString='DSN=polizas;UID=dba;PWD='"
connect;
String ls_clave
Integer li_valor
gs_usuario= sle_user.text
//Consultando si existe el usuario,
// identificados como gs_usuario, asignando el número resultante a la variable li_valor.
Select Count(*) Into:li_valor From usuarios
Where usuario=:gs_usuario;
If li_valor=0 then
MessageBox("Aviso", "El usuario no existe", Exclamation!, OK!)
return
End If
//Comprobando que el password ingresado es el correcto.
Select contrasena Into:ls_clave From usuarios
Where usuario=:gs_usuario;
If ls_clave<>sle_pass.text then
MessageBox("Aviso","La clave es incorrecta", Exclamation!, OK!)
return
End If
//Averiguamos el nivel
Select nivel into:gi_nivel From usuarios
Where usuario=:gs_usuario;
Open(w_menu)
CLOSE(w_login)
SALUDOS
He pensado en agregar un campo a mi Tabla VENTAS que se llame USER, y ahi se ponga automaticamente el user con el que me logueo pero no se como hacerlo, o no se que me sugieran:
Este es el codigo de mi ventana de Loguin, y en archivo adjunto pongo mi ventana de captura:
SQLCA.DBMS = "ODBC"
SQLCA.AutoCommit = False
SQLCA.DBParm = "ConnectString='DSN=polizas;UID=dba;PWD='"
connect;
String ls_clave
Integer li_valor
gs_usuario= sle_user.text
//Consultando si existe el usuario,
// identificados como gs_usuario, asignando el número resultante a la variable li_valor.
Select Count(*) Into:li_valor From usuarios
Where usuario=:gs_usuario;
If li_valor=0 then
MessageBox("Aviso", "El usuario no existe", Exclamation!, OK!)
return
End If
//Comprobando que el password ingresado es el correcto.
Select contrasena Into:ls_clave From usuarios
Where usuario=:gs_usuario;
If ls_clave<>sle_pass.text then
MessageBox("Aviso","La clave es incorrecta", Exclamation!, OK!)
return
End If
//Averiguamos el nivel
Select nivel into:gi_nivel From usuarios
Where usuario=:gs_usuario;
Open(w_menu)
CLOSE(w_login)
SALUDOS
- captura.zip(62,3 KB)
Valora esta pregunta


0