RE:conseguir scripts-Control acceso de usuarios
hola amigo te mando un control de usuario de ejemplo.
te pongo el codigo y luego te esplico que hago en el:
/*codigo*/
string ruta_fichero_ini
setpointer(hourglass!)
ruta_fichero_ini = app_dir_aplicacion + "\" + app_fichero_ini
if ( (trim(sle_usuario.text)='') or (trim(sle_clave.text)='') &
or (isnull(sle_usuario.text='')) or (isnull(sle_clave.text='')) ) then
messagebox ("Error", "Introduzca Usuario y Contraseña")
else
sqlca.DBMS=profilestring(ruta_fichero_ini, "Base de Datos", "DBMS", "")
sqlca.servername=profilestring(ruta_fichero_ini, "Base de Datos", "servername", "")
SQLCA.DBParm= profilestring(ruta_fichero_ini, "Base de Datos", "DBParm", "")
sqlca.logid =sle_usuario.text
sqlca.logpass=sle_clave.text
if trim(upper(profilestring(ruta_fichero_ini, "Base de Datos", "autocommit", ""))) = "TRUE" then
sqlca.autocommit = true
else
sqlca.autocommit = false
end if
st_texto.text = "Conectando con la Base de Datos " + profilestring(ruta_fichero_ini, "Base de Datos", "servidor", "") + " ..."
connect using sqlca;
choose case sqlca.sqlcode
case -1
messagebox("Error!", string(sqlca.sqldbcode) +" "+ sqlca.sqlerrtext)
case 100
messagebox("Error 100", sqlca.sqlerrtext)
case 0
setprofilestring(app_dir_aplicacion + "\" + app_fichero_ini, "Base de datos", "Logid", sle_usuario.text)
string cadena_SQL
if sqlca.sqlcode