Como Hacer un Logeo en Power Builder

Disculpa Experto por la molestia pero tengo un pequeño problemita ...
Estuve Creando una ventana de logeo a mi sistema y me sale todo bien pero lo que pasa es que tengo un pequeño problemita... Lo que pasa que cada vez que ingreso una clave incorrecta el mensaje de error (Datos Ingresados Incorrectos, intento Nº : " + string(cont), information!) me sale dos veces en pantalla ... Me podrías ayudar para que esto no suceda... aquí te dejo mi script ...
String ls_tipo
string ls_pass
gs_login = ddlb_usuario.text
ls_pass = sle_pass.text
ls_tipo=ddlb_tipouser.text
SELECT user_nombre, user_contraseña, user_tipo
INTO :gs_login, :ls_pass, :ls_tipo
FROM Usuario
WHERE user_nombre = :gs_login and user_contraseña =:ls_pass and user_tipo=:ls_tipo using sqlca;
if cont >= 3 then
    Messagebox("SALIR","Ud. Ha Hecho 3 Intentos, El Sistema se Cerrara...")
    halt
end if
choose case String(ddlb_tipouser.text)
        case 'ASISTENTE DEL JEFE DE PROYECTOS'
                if SQLCA.sqlcode = 0 then
                        messagebox("ACCESO","Bienvenido <<"+gs_login+">> al sistema ", question!)
                        open(w_principal_asistente_jefe_proyectos)
                        close(parent)
                        close(w_principal_jefe_proyectos)
                        band=0
                else
                    messagebox("ERROR","Datos Ingresados Incorrectos, intento Nº : " + string(cont), information!)
                    sle_pass.text=''
                    sle_pass.setfocus( )
                    cont++
                end if
      case 'JEFE DE PROYECTOS'
                if SQLCA.sqlcode = 0 then
                    messagebox("ACCESO","Bienvenido <<"+gs_login+">> al sistema ", question!)
                    open(w_principal_jefe_proyectos)
                    close(parent)
                    close(w_principal_asistente_jefe_proyectos)
                    band=0
                else
                    messagebox("ERROR","Datos Ingresados Incorrectos, intento Nº : " + string(cont), information!)
                    sle_pass.text=''
                    sle_pass.setfocus( )
                    cont ++
                end if
end choose
Gracias de Anatemano por la Ayuda

2 Respuestas

Respuesta
1
Si tu problema es que el mensaje sale dos veces..
De repente sea que primero te manda el mensaje de tu else. en el choose case. Y luego cuando lo vuelves a intentar te sale el mensaje de tu if preguntando por cont >= 3.
quisas te convenga colocar ese if cont >= 3. despues del end choose.
Y por cierto cont ++ debe ir antes de tu mensaje de error de datos incorrectos. Porque sino el mensaje mostrar intento Nro 0.. ¿?
Aquí te paso el código.. modificque una que otra linea.
///------------------------------------------------------------------
String ls_tipo
string ls_pass
gs_login = ddlb_usuario.text
ls_pass = sle_pass.text
ls_tipo=ddlb_tipouser.text
SELECT user_nombre, user_contraseña, user_tipo
INTO :gs_login, :ls_pass, :ls_tipo
FROM Usuario
WHERE user_nombre = :gs_login
and user_contraseña =:ls_pass
and user_tipo=:ls_tipo
using sqlca;
choose case String(ddlb_tipouser.text)
    case 'ASISTENTE DEL JEFE DE PROYECTOS'
        if SQLCA.sqlcode = 0 then
            messagebox("ACCESO","Bienvenido <<"+gs_login+">> al sistema ", question!)
            open(w_principal_asistente_jefe_proyectos)
            close(parent)
            close(w_principal_jefe_proyectos)
            band=0
        else
            cont++
            if cont < 3 then messagebox("ERROR","Datos Ingresados Incorrectos, intento Nº : " + string(cont), information!)
            sle_pass.text=''
            sle_pass.setfocus( )
        end if
    case 'JEFE DE PROYECTOS'
        if SQLCA.sqlcode = 0 then
            messagebox("ACCESO","Bienvenido <<"+gs_login+">> al sistema ", question!)
            open(w_principal_jefe_proyectos)
            close(parent)
            close(w_principal_asistente_jefe_proyectos)
            band=0
        else
            cont ++
            if cont < 3 then messagebox("ERROR","Datos Ingresados Incorrectos, intento Nº : " + string(cont), information!)
            sle_pass.text=''
            sle_pass.setfocus( )
        end if
end choose
if cont >= 3 then
Messagebox("SALIR","Ud. ha Hecho 3 Intentos, El Sistema se Cerrara...")
Halt
end if
Respuesta
1
Messagebox("ERROR","Datos Ingresados Incorrectos, intento Nº : " + string(cont), information!)
RETURN
Prueba con eso.

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas

Duda sobre un Select en Power Builder

Necesito algún consejo de ustedes. Estoy realizando un SELECT a una base de Datos en un Evento de Power Builder y el problema es el siguiente: La consulta me devuelve más de un registro, lo que quiero es capturar los registros de la consulta en un...
2 respuestas

Aclaración

Tengo el siguiente código en el evento itemchanged de un datawindows String ls_c_articulo,ls_nombre_articulo ,ls_cod double ldbl_precio //choose case dwo.name //case "codigo" ls_c_articulo = trim(data) //data tb es un argumento del evento,este...
1 respuesta

Lo prometido es deuda (gracias)

// Programacion boton PROCESAR // Te recuerdo que son 3 tablas, movexist,kardex,movacep // Aqui vamos // Inicializa variables INTEGER TOT_LIN,I,BODORIG,BODDEST,LINCOMP STRING TIPMOV,CODPROD,POCMOV,IDUSUARIO LONG NUCOMP,CANTMOVI,PRECMOV...
1 respuesta

Editar Control Name de un DataWindows

Estoy programando el evento Clicked dentro de un DataWindows, en le cual tengo un Control Name que personalice como 3 Radiobuttons, el problema es que cuando hago clic en cualquier área del Datawindows me realiza las acciones o validaciones de cuando...
1 respuesta

Cargar datos en Dropdownlistbox

Tengo 2 tablas Oficina y unidades. Tabla oficina tiene los siguientes campos: Of_codigo(pk), nombre_oficina, jefe, telefono, email tabla unidades tiene los siguientes campos: unidad_codigo(pk), nombre, jefe, of_codigo(fk) Luego para agregar los datos...
1 respuesta

Mensaje de confirmación en botón eliminar

Tal vez la pregunta este de más, pero quisiera saber como poner un mensaje de confirmación al momento de eliminar un registro, lo que pasa es que le eh agregado botones a mi objetoDatawindows botones de mantenimiento como se muestra en la imagen de...
3 respuestas

Stored Procedures in SQL

Soy Claudia, nuevamente, fíjate que más bien no te expliqué muy bien lo que ocurría con el procedimiento almacenado que tengo en SQL y su llamada desde Power Builder... El problema no es la comparación de la cadena para poder hacer la función...
1 respuesta

Creación de Mensajes en caso de actuliazion de reg

Estoy empezando a desarrollar en power builder y estoy necesitando saber, de ser posible lo siguiente: Tengo una pantalla que me permite hacer insercions, modificaciones y demás. En el botón de modificacions esta programado de tal manera que haga un...
1 respuesta

ODBC conexión con problemas

Soy nuevo programando el powerbuilder. Estoy tratándome de conectar usando PB 6.5 y SqlAnywhere 7.0 Este es mi código en el Open de mi proyecto. SQLCA.DBMS = "ODBC" SQLCA.DataBase = 'DBEtapaSoftChurch' SQLCA.Userid = "dba" SQLCA.DbParm =...
1 respuesta

Conectar varios DropDownListBox a BD

Bueno soy nuevo en esta pagina,pero me gustaria q me ayuden en mi trabajo de power builder,tengo un problema,cuando cargod BD en un dropdownlistbox,es decir al cargar uno si sale,pero cuando quiero cargar en mas d uno se cuelga la aplicacion,esto...
1 respuesta