Comparado datos
Publicado: Mar Feb 16, 2010 1:27 pm
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
<head>
<meta http-equiv="content-type" content="text/html; charset=ISO-8859-1">
</head>
<body bgcolor="#ffffff" text="#000000">
<tt>Hola foro:<br>
<br>
Les planteo esta situaciÃn que no se resolver, para ver si alguno me
puede orientar:<br>
<br>
Tengo un form en el que incluà un TDBBrowse que muestra datos de una
tabla MySQL (nro, nombre y tipo de empleado), en dicho form hay una
ToolBar en donde uno de los botones llama a un formulario hijo para
hacer la lectura del cambio de contraseÃa del empleado. En este form
aparecen: 2 Data controls que muestran el nro. y el nombre del
empleado, para ello en el evento OnCreate les asigno el DataSet <br>
(<b><font color="#000099">oSender:oDataSet := ::oParent:oCajeros</font></b>);
tambiÃn muestro 3 controles TEdit en los que pretendo que el usuario
ingrese la contraseÃa original en el primero, la nueva contraseÃa en el
segundo y la verificaciÃn en el tercero, hasta ahà todo bien.<br>
<br>
Lo que no se hacer es comparar el valor que se ingreso en el primer
TEdit con el valor que hay en el campo llamado "clave" de la tabla. Les
cuento que para eso estoy utilizando el evento OnExit del primer TEdit
de esta forma:<br>
<br>
<b>METHOD ClaveOldExit( oSender, oNextCtl ) CLASS TProg6620<br>
<br>
set(_SET_EXACT,.T.)<br>
if oSender:value <> ::oCajeros:ClaveÂÂ <------- Esta es la
linea que no se resolver porque me toma<br>
 msgalert("Clave actual incorrecta" )  ; oCajeros como un metodo
de TProg6620 en vez del dataset<br>
ÂÂ ::oClaveOld:Value := space(10)<br>
ÂÂ set(_SET_EXACT,.F.)<br>
ÂÂ return .F.<br>
endif<br>
set(_SET_EXACT,.F.)<br>
<br>
RETURN Nil<br>
</b><br>
He probado cambiar el TEdit por TDBEdit asignÃndole el DataSet en el
evendo OnCreate como mencionà anteriormente pero pasa lo mismo.<br>
<br>
Pregunta:<br>
Ya sea para este caso como para cualquier otro anÃlogo, Âcomo se hace
para que desde un formulario hijo se pueda "apuntar" a la fila
seleccionada de un TDBBrowse del formulario padre, si el control que
hace la lectura de los datos no es un Data Control?<br>
<br>
Desde ya agradezco toda ayuda.<br>
Un saludo<br>
Daniel.<br>
<br>
<br>
<br>
</tt>
</body>
</html>
<html>
<head>
<meta http-equiv="content-type" content="text/html; charset=ISO-8859-1">
</head>
<body bgcolor="#ffffff" text="#000000">
<tt>Hola foro:<br>
<br>
Les planteo esta situaciÃn que no se resolver, para ver si alguno me
puede orientar:<br>
<br>
Tengo un form en el que incluà un TDBBrowse que muestra datos de una
tabla MySQL (nro, nombre y tipo de empleado), en dicho form hay una
ToolBar en donde uno de los botones llama a un formulario hijo para
hacer la lectura del cambio de contraseÃa del empleado. En este form
aparecen: 2 Data controls que muestran el nro. y el nombre del
empleado, para ello en el evento OnCreate les asigno el DataSet <br>
(<b><font color="#000099">oSender:oDataSet := ::oParent:oCajeros</font></b>);
tambiÃn muestro 3 controles TEdit en los que pretendo que el usuario
ingrese la contraseÃa original en el primero, la nueva contraseÃa en el
segundo y la verificaciÃn en el tercero, hasta ahà todo bien.<br>
<br>
Lo que no se hacer es comparar el valor que se ingreso en el primer
TEdit con el valor que hay en el campo llamado "clave" de la tabla. Les
cuento que para eso estoy utilizando el evento OnExit del primer TEdit
de esta forma:<br>
<br>
<b>METHOD ClaveOldExit( oSender, oNextCtl ) CLASS TProg6620<br>
<br>
set(_SET_EXACT,.T.)<br>
if oSender:value <> ::oCajeros:ClaveÂÂ <------- Esta es la
linea que no se resolver porque me toma<br>
 msgalert("Clave actual incorrecta" )  ; oCajeros como un metodo
de TProg6620 en vez del dataset<br>
ÂÂ ::oClaveOld:Value := space(10)<br>
ÂÂ set(_SET_EXACT,.F.)<br>
ÂÂ return .F.<br>
endif<br>
set(_SET_EXACT,.F.)<br>
<br>
RETURN Nil<br>
</b><br>
He probado cambiar el TEdit por TDBEdit asignÃndole el DataSet en el
evendo OnCreate como mencionà anteriormente pero pasa lo mismo.<br>
<br>
Pregunta:<br>
Ya sea para este caso como para cualquier otro anÃlogo, Âcomo se hace
para que desde un formulario hijo se pueda "apuntar" a la fila
seleccionada de un TDBBrowse del formulario padre, si el control que
hace la lectura de los datos no es un Data Control?<br>
<br>
Desde ya agradezco toda ayuda.<br>
Un saludo<br>
Daniel.<br>
<br>
<br>
<br>
</tt>
</body>
</html>