<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML><HEAD>
<META content="text/html; charset=iso-8859-1" http-equiv=Content-Type>
<META name=GENERATOR content="MSHTML 8.00.6001.18939">
<STYLE></STYLE>
</HEAD>
<BODY bgColor=#ffffff>
<DIV><FONT size=2 face=Arial>Hola,</FONT></DIV>
<DIV><FONT size=2 face=Arial></FONT> </DIV>
<DIV><FONT size=2 face=Arial>Algo parecido me sucedio a mi con respecto al
refresco, hasta que encontre una solucion de Delphi, lo cual lo aplique a
lazarus y funciono.</FONT></DIV>
<DIV><FONT size=2 face=Arial></FONT> </DIV>
<DIV><FONT size=2 face=Arial>El punto era realizar el refresco del dbgrid, para
esto te agrego el procedimiento que encontre, puedes colocar este procedimiento
en un modulo general, que </FONT></DIV>
<DIV><FONT size=2 face=Arial>siempre este referenciado en cada unidad que
trabajes, tambien puedes agregarlo en tu unidad de trabajo para que veas como
funciona.</FONT></DIV>
<DIV><FONT size=2 face=Arial></FONT> </DIV>
<DIV><FONT size=2 face=Arial>Acuerdate colocar al inicio de la unidad
en <STRONG>Type</STRONG> esta instruccion</FONT></DIV>
<DIV><FONT size=2 face=Arial></FONT> </DIV>
<DIV><FONT size=2 face=Arial>Type</FONT></DIV>
<DIV><FONT size=2 face=Arial><STRONG>THackDBGrid =
class(TDBGrid);</STRONG></FONT></DIV>
<DIV><STRONG><FONT size=2 face=Arial></FONT></STRONG> </DIV>
<DIV><FONT size=2 face=Arial>/* Procedimiento */</FONT></DIV>
<DIV><FONT size=2 face=Arial><STRONG>procedure Refresh_gridrow(dbgrid1:
TDBGrid);</STRONG></FONT></DIV>
<DIV><FONT size=2 face=Arial><STRONG>var<BR> rowDelta: Integer;<BR>
row: integer;<BR> recNo: integer;<BR> ds :
TDataSet;<BR>begin<BR> ds :=
THackDBGrid(dbgrid1).DataSource.DataSet;</STRONG></FONT></DIV>
<DIV><STRONG></STRONG> </DIV>
<DIV><FONT size=2 face=Arial><STRONG> rowDelta := -1 +
THackDBGrid(dbgrid1).Row;<BR> row := ds.RecNo;</STRONG></FONT></DIV>
<DIV><STRONG></STRONG> </DIV>
<DIV><FONT size=2 face=Arial><STRONG> ds.Refresh;</STRONG></FONT></DIV>
<DIV><STRONG></STRONG> </DIV>
<DIV><FONT size=2 face=Arial><STRONG> with ds do<BR>
begin<BR> DisableControls;<BR> RecNo :=
row;<BR> MoveBy(-rowDelta) ;<BR>
MoveBy(rowDelta) ;<BR> EnableControls;<BR>
end;<BR>
ds:=Nil<BR>end;
</STRONG></FONT></DIV>
<DIV><STRONG><FONT size=2 face=Arial></FONT></STRONG> </DIV>
<DIV><FONT size=2 face=Arial>Ahora para usarlo te dejo un ejemplo:</FONT></DIV>
<DIV><FONT size=2 face=Arial></FONT> </DIV>
<DIV><FONT size=2 face=Arial><STRONG>procedure Tfservicios.btnNewClick(Sender:
TObject);<BR>begin</STRONG></FONT></DIV>
<DIV><FONT size=2 face=Arial><STRONG></STRONG></FONT> </DIV>
<DIV><FONT size=2 face=Arial><STRONG>
Application.CreateForm(Tftomaservicios,
ftomaservicios);<BR> with ftomaservicios
do<BR>
Begin<BR>
caption:='Servicio
Nuevo';<BR>
if(ShowModal = mrOK )
Then<BR>
Begin<BR>
Refresh_gridrow(dbmovimiento); // dbmovimiento es el dbgrid que contiene el
enlace con el
query<BR>
end;<BR> end;<BR>
FreeAndNil(ftomaservicios);</STRONG></FONT></DIV>
<DIV><FONT size=2 face=Arial><STRONG>end;</STRONG></FONT></DIV>
<DIV><STRONG><FONT size=2 face=Arial></FONT></STRONG> </DIV>
<DIV><FONT size=2 face=Arial>Trata de probarlo y mira si es lo que
necesitas.</FONT></DIV>
<DIV><FONT size=2 face=Arial></FONT> </DIV>
<DIV><FONT size=2 face=Arial>Saludos.</FONT></DIV>
<DIV><FONT size=2 face=Arial></FONT> </DIV>
<DIV><FONT size=2 face=Arial>FG</FONT></DIV>
<DIV><FONT size=2 face=Arial></FONT> </DIV>
<BLOCKQUOTE
style="BORDER-LEFT: #000000 2px solid; PADDING-LEFT: 5px; PADDING-RIGHT: 0px; MARGIN-LEFT: 5px; MARGIN-RIGHT: 0px">
<DIV style="FONT: 10pt arial">----- Original Message ----- </DIV>
<DIV
style="FONT: 10pt arial; BACKGROUND: #e4e4e4; font-color: black"><B>From:</B>
<A title=gxleandro@gmail.com href="mailto:gxleandro@gmail.com">LEANDRO
GARCIA</A> </DIV>
<DIV style="FONT: 10pt arial"><B>To:</B> <A
title=lazarus-es@lists.lazarus.freepascal.org
href="mailto:lazarus-es@lists.lazarus.freepascal.org">lazarus-es@lists.lazarus.freepascal.org</A>
</DIV>
<DIV style="FONT: 10pt arial"><B>Sent:</B> Monday, September 06, 2010 11:42
AM</DIV>
<DIV style="FONT: 10pt arial"><B>Subject:</B> [Lazarus-es] Dudas con
Zeos</DIV>
<DIV><BR></DIV>Hola gente de la lista, primero quisiera felicitarlos, por ser
parte de esta comunidad y estar atentos a las dudas y problemas que podamos
tener, mi nombre es Leandro, y desde hace un tiempo estoy incursionando en
Lazarus, y como primer proyecto estoy migrando un sistema que tenia echo en
Visual fox.<BR>
<DIV>Experimentando un poco con las librerias Zeos me surguio un
inconveniente.</DIV>
<DIV> </DIV>
<DIV>Intentando hacer un ABM simple utilize el componente
tzconection(conectado a Mysql 5), un TZQuery (siene un select con un inner
join) y un TZtable, y muestro el contenido del TZQuery en un dbgrid.</DIV>
<DIV>Todos configurados en tiempo de diseņo.</DIV>
<DIV><BR></DIV>
<DIV>Uso el TZtable para guardar nuevos registros de la siguiente
manera.</DIV>
<DIV>tabla.Insert; <BR>tabla.FieldByName('nombre').Text:=Edit1.Text; <BR>tabla.Post;
<BR></DIV>
<DIV>Y los datos se guardan perfectamente en la tabla, pero el grid no me
refleja los cambios, sigue mostrando el listado hasta el momento antes de
agregar un registro nuevo.</DIV>
<DIV><BR></DIV>
<DIV>Osea, si conecto el grid con el Query el listado no es completo, si
conecto el componente TZtable si se reflejan los cambios, pero no me sirve,
pues yo con el query puedo mostrar otros datos extra con el inner join.</DIV>
<DIV>Desde ya mil gracias, espero no sea una burrada lo q estoy intentando
hacer, pero ya lo intente todo y no hay caso.</DIV>
<DIV>Saludos</DIV>
<DIV><BR></DIV>
<DIV><BR></DIV><BR>
<P>
<HR>
<P></P>_______________________________________________<BR>Lazarus-es mailing
list<BR>Lazarus-es@lists.lazarus.freepascal.org<BR>http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus-es<BR></BLOCKQUOTE></BODY></HTML>