Zeoslib TZTables

[RebeccaGL]

Buenas,

Quisiera haerles una consulta.
Tengo dos Tablas, Tabla_01 y Tabla_02, la Tabla_01 es la tabla padre y la Tabla_02 es la tabla hija.

Ahora, si en la Tabla_01 estoy en le regisitro 5 y en la Tabla_02 en el registro 10, pero cuando grabo el registro 5 de la Tabla_01, la posicion de la Tabla_02 se va hasta el final ¿porque sucede eso? y como podria evitarlo.

Conclusion si yo grabo un registro en la Tabla_01 se mueve el registro de la Tabla_02 hasta el final porque??

Gracias

[Al González]

Hola Connor.

si yo grabo un registro en la Tabla_01 se mueve el registro de la Tabla_02 hasta el final porque??

Asumo que con grabar te refieres a llamar al método Post del componente. Pues sí que es un comportamiento raro, pero nada que no pueda investigarse con el depurador de Delphi.

No conozco gran cosa de la biblioteca ZeosLib, pero algo que se me ocurre es que uses el evento AfterScroll de la tabla detalle para colocar en él un punto de ruptura (tecla F5), el cual esté habilitado en el momento de hacer el guardado del registro maestro.

Esto para que, una vez detenido el programa en ese punto, hagas aparecer la pila de llamadas (Ctrl+Alt+S) y con ella conocer el camino que siguió el programa (que rutinas se fueron llamando en cadena), desde que hiciste el Post hasta que se llamó al evento AfterScroll (suponiendo que este evento sí es disparado cuando la tabla detalle se posiciona en el último registro).

¿Podrías hacer lo anterior y decirnos qué ves? De preferencia copia aquí la pila de llamadas que te aparece (una imagen de la misma si te resulta más fácil), para que podamos echarle un vistazo.

Saludos.

Al González.

[RebeccaGL]

Gracias por responder,

No se como hacer lo que dices, y si, hago post en la tabla padre y en la tabla hija el registro se va hasta el final, el registro deberia quedarse en su posicion actual y no irse hasta el final, solo deberia irse hasta el principio si hiciera un scroll y no hasta el final. Esto no se como resolverlo, es un comportamiento raro como dices no se que hacer.

Otro error con los componentes zeoslib son que al insertar un nuevo registro no se refrescan las grillas se quedan con los datos anteriores, tengo que usar un afterInsert y refrescarlas manualmente.

[Al González]

Gracias por responder,

No se como hacer lo que dices...
¿Cuál parte en específico? ¿Qué has investigado de lo que no comprendes? Te animo a desglosar tus dudas, pregunta. :)

Otro error con los componentes zeoslib son que al insertar un nuevo registro no se refrescan las grillas se quedan con los datos anteriores, tengo que usar un afterInsert y refrescarlas manualmente.
Tema nuevo, hilo nuevo. ;)

[RebeccaGL]

Mira ya decubri el error de porque pasaba eso, el problema es que yo pintaba los DDGrids en el evento DBGrid1DrawColumnCell y le quite y ahora funciona muy bien, el problema es que ahora tengo mis DBGrids Standard como vienen, la idea era "Pintar la fila seleccionada del DBGrid", ahi estaba el problema.


procedure TForm_BeEMPPRJ.DBGrid_MTRPRTDrawColumnCell(Sender: TObject;
const Rect: TRect; DataCol: Integer; Column: TColumn;
State: TGridDrawState);
begin
// Init
DBGrid_MTRPRT.Canvas.Font.Style := [];
DBGrid_MTRPRT.Canvas.Font.Color := clWindowText;
if (DBGrid_MTRPRT.DataSource.DataSet.RecNo = MTRPRT_RecNo) then
DbGrid_MTRPRT.Canvas.Brush.Color := $00EFD3C6
else
DbGrid_MTRPRT.Canvas.Brush.Color := clWindow;
if (gdSelected in State) and
(DBGrid_MTRPRT.Focused) then
begin
DBGrid_MTRPRT.Canvas.Font.Color := clWindow;
DbGrid_MTRPRT.Canvas.Brush.Color := clHighlight;
end;
// Continue
DBGrid_MTRPRT.DefaultDrawColumnCell(Rect, DataCol, Column, State);
end;


La variable "MTRMRD_RecNo" la actualizaba en el evento Dataset "DataChage" y el DBGrid lo refrescaba en el Evento AfterScroll, quite los eventos "DrawColumnCell" y ahora si funciona claro quite todos los eventos de pintado de grilla.

Como Podria pintar un DBGrid pero solo la Fila seleccionada, he visto ejemplos aca pero no funcionan alguna idea.


Gracias

[Al González]

A simple vista no veo la relación entre ese evento y el posicionamiento de la tabla detalle en el último registro.

Sería muy útil que hicieras lo que te sugerí primero. En este foro, en la ayuda y en la Red en general encuentras muchos temas sobre los puntos de ruptura (breakpoints) y la pila de llamadas (call stack) del depurador de Delphi. Pero a lo visto no has estimado esa sugerencia que muy probablemente daría con la clave de por qué ocurre tal efecto.

[RebeccaGL]

Volvio a pasarme esto no se que sera, aca pongo una imagen del debug.

http://img243.imageshack.us/img243/9153/32598529.jpg


procedure TForm_BeEMPPRJ.Button1Click(Sender: TObject);
begin
// SAVE_Status
Table_STDANO.Edit;
Table_STDANO.FieldByName('IE').AsString := vkc_0042;
Table_STDANO.Post;
end;


En este codigo hago Post en la tabla Año y me manda las posiciones de los registros mes y dias por donde sea.

Table_STDANO es la tabla padre Table_STDMES es hija de la Table_STDANO y Table_SDTDIA es hija de la Tabla_STDMES.

Table_STDANO >> Table_STDMES >> Table_STDDIA

Ejemplo. Si estoy en el año 2010 mes=Septiempbre y dia=22, entonces hago post en Table_STDANO y la Table_STDMES se posiciona en culaquier mes y pierdo el mes de Septiembre igual con la Table_STDDIA.

He revisado todos los Eventos de tablas dbgrids pero nada, la verdad no se que esta pasando, o seran que los componentes zeos estan con fallas.


Saludos

[Al González]

...hago post en Table_STDANO y la Table_STDMES se posiciona en cualquier mes...
Ah, ¿entonces no necesariamente la tabla detalle se va al último registro? Puede quedar en cualquiera, por lo que dices.

Gracias por seguir proporcionando estas pistas, Connor. La imagen que pusiste es de la ventana CPU, pero en este caso sería más útil la ventana Call Stack (menú View-Debug Windows-Call Stack).

¿Entonces sí pusiste un punto de ruptura en el evento AfterScroll de Table_STDMES, y en él se detiene el programa cuando guardas el registro en Table_STDANO?

Saludos.

Al.

[RebeccaGL]

Al Gonzales, gracias por responder, no se mucho de los debugs y los calls Backs me bajare un manual para aprender a usarlos.

Pero ya resolvi el problema lo que hise fue eliminar la Tabla_STDANO y su DataSource, y la volvi a crear y todo funciona bien, yo pienso que debe haberse colado algun codigo extraño en la tabla que la hacia trabajar mal pero al crearla de nuevo los problemas desparecieron.

Lo que si me gustaria mucho es, si me puedes ayudar a pintar "solo la fila seleccionada de un DBGrid" no usar el options sino por medio de "OnDrawColumnCell".


Saluditos,

[Casimiro Notevi]

Se ha tratado muchas veces ese tema, si haces una búsqueda por clubdelphi encontrarás bastante información, básicamente debes escribir algo así:



procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
DataCol: Integer; Column: TColumn; State: TGridDrawState);
begin
if Column.Field = ClientDataSet1SALDO then // el campo que queremos controlar
if ClientDataSet1SALDO.AsCurrency < 200 then // en este caso si el valor es menor de 200
begin
DBGrid1.Canvas.Font.Style :=
DBGrid1.Canvas.Font.Style + [fsBold]; // pintamos en 'negrita'
DBGrid1.Canvas.Font.Color := clRed; // y en color rojo
DBGrid1.DefaultDrawDataCell(rect,Column.Field,State); // pinta el texto
end;
end;


Y nada más.

[RebeccaGL]

Hola,

Mira te explico mejor lo que deseo hacer es pìntar la "Fila seleccionada por el focus", si estoy en el registro 10 se pinta la fila 10 si estoy en el registro 15 se pinta la fila 15, pintar deacuerdo a la posicion del registro fisico.

[Casimiro Notevi]

Pues entonces más fácil, sin condicionantes:


procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
DataCol: Integer; Column: TColumn; State: TGridDrawState);
begin
DBGrid1.Canvas.Font.Style := DBGrid1.Canvas.Font.Style + [fsBold];
DBGrid1.Canvas.Font.Color := clRed;
DBGrid1.DefaultDrawDataCell(rect,Column.Field,State);
end;


Y nada más

[RebeccaGL]

No eso no, mira este ejemplo.


procedure TForm_BeEMPPRJ.DBGrid_CVMMOVDrawColumnCell(Sender: TObject;
const Rect: TRect; DataCol: Integer; Column: TColumn;
State: TGridDrawState);
begin
// Init
DBGrid_CVMMOV.Canvas.Font.Style := [];
DBGrid_CVMMOV.Canvas.Font.Color := clWindowText;

if (DBGrid_CVMMOV.SelectedRows.CurrentRowSelected) then
DbGrid_CVMMOV.Canvas.Brush.Color := $00EFD3C6
else
DbGrid_CVMMOV.Canvas.Brush.Color := clWindow;

if (gdSelected in State) and
(DBGrid_CVMMOV.Focused) then
begin
DBGrid_CVMMOV.Canvas.Font.Color := clWhite;
DbGrid_CVMMOV.Canvas.Brush.Color := clHighlight;
end;

// Continue
DBGrid_CVMMOV.DefaultDrawColumnCell(Rect, DataCol, Column, State);
end;


Algo asi como tener todo el Brush toda la barra del DBGrid pintado en la posicion del registro en curso.
Pero este ejemplo no funciona.

[RebeccaGL]

!!!Me volvio a salir este mismo errorrrrrrrrrrrrrrrrr. ayudaaaaaaaaa..

En este codigo hago Post en la tabla Año y me manda las posiciones de los registros mes y dias por donde sea.

Table_STDANO es la tabla padre Table_STDMES es hija de la Table_STDANO y Table_SDTDIA es hija de la Tabla_STDMES.

Table_STDANO >> Table_STDMES >> Table_STDDIA

Ejemplo. Si estoy en el año 2010 mes=Septiempbre y dia=22, entonces hago post en Table_STDANO y la Table_STDMES se posiciona en culaquier mes y pierdo el mes de Septiembre igual con la Table_STDDIA.

He revisado todos los Eventos de tablas dbgrids pero nada, la verdad no se que esta pasando, o seran que los componentes zeos estan con fallas.

Pagare $$$ por la ayuda pero diganme cual es el problema y como solucionarlo, por favor....

[tgsistemas]

connor,
disculpa si digo una tonteria pero personalmente prefiero utilizar qrys en lugar de tables para el acceso a los datos.
En tu caso crearía un qrySTDANO y un qrySTDDIA asociado al anterior, bastaria con refrescar el qrySTDDIA cuando se produzcan cambios (update, delete, browse...) en el qrySTDANO.
Por lo que entiendo de tus explicaciones, creo que no debes tener bien la relación master/detail en los componentes.

Para el tema de pintar los dbgrids hay muchos ejemplos en el foro como te decía Casimiro incluso componentes como los GLib de Neftali ;)

Saludos

[rgstuamigo]

Pues yo para pintar la fila que tiene actualmente el foco lo hago así:
procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
DataCol: Integer; Column: TColumn; State: TGridDrawState);
begin
if (gdSelected in State) then //si la actual columna está seleccionada
begin
(Sender as TDBGrid).Canvas.Brush.Color:=clBlack;//pinto el fondo
(Sender as TDBGrid).Canvas.Font.Color:=clRed;//cambio el color de la fuente
end
end;

Espero sea de ayuda....:)
Saludos...:)

[RebeccaGL]

La verdad creo que no me entienden o no me dejo entender, aca un demo de lo que deseo hacer pruebenlo y me dicen, pero falla, la grilla no queda con los datos exactos. El problema es que cuando me deslizo hacia abajo con el mouse los datos de la grilla se repiten con el registro anterior.


// Definicion Global desprotejer DBGrid
type
TDBGrid = class(DBGrids.TDBGrid);

procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
DataCol: Integer; Column: TColumn; State: TGridDrawState);
var
aRect : TRect;
begin
// Init
TDBGrid(Sender).Canvas.Font.Style := [];
TDBGrid(Sender).Canvas.Font.Color := clWindowText;
TDBGrid(Sender).Canvas.Brush.Color := clWindow;

TDBGrid(Sender).Canvas.Brush.Color := $00EFD3C6;
aRect := TDBGrid(Sender).CellRect(DataCol + 1, TDBGrid(Sender).Row);

if (gdSelected in State) and
(TDBGrid(Sender).Focused) then
begin
TDBGrid(Sender).Canvas.Font.Color := clWhite;
TDBGrid(Sender).Canvas.Brush.Color := clHighlight;
end;

TDBGrid(Sender).DefaultDrawColumnCell(aRect, DataCol, Column, State);
end;

[rgstuamigo]

La verdad creo que no me entienden o no me dejo entender, aca un demo de lo que deseo hacer pruebenlo y me dicen, pero falla, la grilla no queda con los datos exactos. El problema es que cuando me deslizo hacia abajo con el mouse los datos de la grilla se repiten con el registro anterior.
...

Creo entender tu problema :rolleyes:, ese error puedes solucionarlo haciendo que el DBGrid se repinte por completo cada ves que deslizas o mueves con el mouse al DBGrid.;)
Para lograrlo puedes utilizar el evento OnDataChange del componente DataSource al que está enganchado tu DBGrid y poner un código como éste:
procedure TForm1.DataSource1DataChange(Sender: TObject; Field: TField);
begin
DBGrid1.Invalidate;//<--hago que se repinte el DBGrid por completo
end;

Espero que con eso soluciones tu problema.;)
Saludos...:)

[RebeccaGL]

rgs gracias por responder, ya halle la solucion para este problema del dbgrid y lo hice de esta manera.



type
THackDBGrid = class(TDBGrid);
...

procedure TForm_BeEMPPRJ.DBGrid_COMMOVDrawColumnCell(Sender: TObject;
const Rect: TRect; DataCol: Integer; Column: TColumn;
State: TGridDrawState);
begin
DBGrid_COMMOV.Canvas.Font.Style := [];
DBGrid_COMMOV.Canvas.Font.Color := clWindowText;
DbGrid_COMMOV.Canvas.Brush.Color := clWindow;

if (THackDBGrid(DBGrid_COMMOV).DataLink.ActiveRecord + 1 = THackDBGrid(DBGrid_COMMOV).Row) then
DBGrid_COMMOV.Canvas.Brush.Color := $00EFD3C6;

if (gdSelected in State) and
(DBGrid_COMMOV.Focused) then
begin
DBGrid_COMMOV.Canvas.Font.Color := clWhite;
DbGrid_COMMOV.Canvas.Brush.Color := clHighlight;
end;

DBGrid_COMMOV.DefaultDrawColumnCell(Rect, DataCol, Column, State);
end;



Ahora solo me quedan dos problemas, y creo que son los mas graves, unos es que antes de ejecutar mi programa en otra PC me sale el error

"cant find any matching row in the user table"

Y el otro error es que tengo tres tablas enlazadas

Tabla_AÑO >> Tabla_MES >> Tabla_DIA

Tabla_AÑO es la tabla padre Tabla_MES es la tabla hija y Tabla_DIA es hija de Tabla_MES

Cuando hago un Post en Tabla_AÑO se disparan por cualquier lado los registros de las tablas hijas Tabla_MES y Tabla_DIA, es decir, que si estoy en el año 01-01-2010 y hago un post la Tabla_AÑO los registros de las tablas hijas se mueven de "Enero a Octubre", o a cualquier dia del año, sin nigun motivo sin hacer scroll ni nada.

Estoy usando componentes ZeosLib creo que esos componentes estan con errores y se cruzan, bueno nose, pero esos son los problemas que ahora me preocupan mucho y no se como resolverlos.



Gracias, saludos.