Hacer captura y Consulta por USER
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 así poder hacer una consulta o un reporte de mis ventas por cada user, y además 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 ahí se ponga automáticamente el user con el que me logueo pero no se como hacerlo, o no se que me sugieran:
=====================================================================
Este es el código de mi ventana de Loguin, y en la imgagen adjunta 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