Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Bases de datos > MySQL
Registrarse FAQ Miembros Calendario Guía de estilo Temas de Hoy

Respuesta
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 22-09-2010
Avatar de RebeccaGL
RebeccaGL RebeccaGL is offline
Miembro
 
Registrado: ene 2008
Posts: 199
Poder: 17
RebeccaGL Va por buen camino
Volvio a pasarme esto no se que sera, aca pongo una imagen del debug.

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

Código Delphi [-]
 
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
Responder Con Cita
  #2  
Antiguo 22-09-2010
Avatar de Al González
[Al González] Al González is offline
In .pas since 1991
 
Registrado: may 2003
Posts: 5.604
Poder: 30
Al González Es un diamante en brutoAl González Es un diamante en brutoAl González Es un diamante en brutoAl González Es un diamante en bruto
Cita:
Empezado por connor Ver Mensaje
...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.
Responder Con Cita
  #3  
Antiguo 22-09-2010
Avatar de RebeccaGL
RebeccaGL RebeccaGL is offline
Miembro
 
Registrado: ene 2008
Posts: 199
Poder: 17
RebeccaGL Va por buen camino
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,
Responder Con Cita
  #4  
Antiguo 22-09-2010
Avatar de Casimiro Notevi
Casimiro Notevi Casimiro Notevi is offline
Moderador
 
Registrado: sep 2004
Ubicación: En algún lugar.
Posts: 32.073
Poder: 10
Casimiro Notevi Tiene un aura espectacularCasimiro Notevi Tiene un aura espectacular
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í:


Código Delphi [-]
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.
Responder Con Cita
  #5  
Antiguo 23-09-2010
Avatar de RebeccaGL
RebeccaGL RebeccaGL is offline
Miembro
 
Registrado: ene 2008
Posts: 199
Poder: 17
RebeccaGL Va por buen camino
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.
Responder Con Cita
  #6  
Antiguo 23-09-2010
Avatar de Casimiro Notevi
Casimiro Notevi Casimiro Notevi is offline
Moderador
 
Registrado: sep 2004
Ubicación: En algún lugar.
Posts: 32.073
Poder: 10
Casimiro Notevi Tiene un aura espectacularCasimiro Notevi Tiene un aura espectacular
Pues entonces más fácil, sin condicionantes:

Código:
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
Responder Con Cita
  #7  
Antiguo 23-09-2010
Avatar de RebeccaGL
RebeccaGL RebeccaGL is offline
Miembro
 
Registrado: ene 2008
Posts: 199
Poder: 17
RebeccaGL Va por buen camino
No eso no, mira este ejemplo.

Código Delphi [-]
 
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.

Última edición por RebeccaGL fecha: 23-09-2010 a las 23:51:12.
Responder Con Cita
  #8  
Antiguo 07-10-2010
Avatar de RebeccaGL
RebeccaGL RebeccaGL is offline
Miembro
 
Registrado: ene 2008
Posts: 199
Poder: 17
RebeccaGL Va por buen camino
!!!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....
Responder Con Cita
Respuesta



Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Saltar a Foro

Temas Similares
Tema Autor Foro Respuestas Último mensaje
Opiniones ZeosLib alquimista_gdl Conexión con bases de datos 20 15-03-2009 20:06:57
ZeosLIB cmm07 Varios 6 11-11-2008 01:34:35
zeoslib 6.6.2 rc geolife Noticias 17 17-08-2008 08:21:23
ZeosLib y MySQL 5 onlytk Conexión con bases de datos 2 31-12-2005 03:37:52


La franja horaria es GMT +2. Ahora son las 01:53:51.


Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi
Copyright 1996-2007 Club Delphi