Usar Evento OnAfterSCroll de un TQuery?

[jorllazo]

Hola,
Efectivamente, tengo un query en el que ejecuto una consulta la cual unicamente me devuelve 4 campos que son los mas significativos para Localizar / Filtrar en la tabla de clientes, luego el Qry lo tengo enlazado mediante un DataSource a la grid. Entonces se ejecuta la carga del Query y se muestran los resultados en la Grid.

Luego tengo una Clase TPerson la cual tiene un metodo de clase que le llama LoadFromDatabase y toma como parametros el ID del Cliente. en este metodo se ejecuta otra consulta a la BD para traer los datos con los que relleno las propiedades del objeto y lo devuelvo. No podria hacer un locate puesto que en el query no tengo mas que 4 Campos, por eso necesito una nueva consulta que me cree una vista con toda la informacion.

Luego simplemente a mano uno las propiedades con su respectivo control.

Tengo tambien una Toolbar con la que me desplazo a traves de los registros mediante las instrucciones

Código Delphi [-]
                   Query.First;
                   Query.Prior;

Del mismo modo para añadir tengo un metodo de clase que se llama
addItem el cual inserta un registro en la tabla y me devuelve un objeto con el cual lleno de nuevo los controles del formulario.

Luego en el codigo que muesrtra el cliente

Código Delphi [-]

   if dsContacts.State = dsBrowse then
    begin
      oP := TPerson.LoadFromDatabase(Query.FieldbyName('PersonID').AsString);
      setDialogControls;
      pcContacts.ActivePageIndex := 1;
    end;

Espero haberte sido de ayuda, si te puedo aclarar algo mas...

Vaya que contento !!!!! mi primera respuesta !!!!!

[Ade]

esto ok, a mi tambien me funciona,
[cita]
Efectivamente, tengo un query en el que ejecuto una consulta la cual unicamente me devuelve 4 campos que son los mas significativos para Localizar / Filtrar en la tabla de clientes, luego el Qry lo tengo enlazado mediante un DataSource a la grid. Entonces se ejecuta la carga del Query y se muestran los resultados en la Grid.
[/cita]
Algunas dudas, pues no te entendi muy bien,
Tu query devuelve 4 campos pero cuantos registro? 1 o mas de 1??
si devuelve mas de uno entonces aparecen en el dbgrid, y tu seleccionas una fila y entonces es cuando guardas el ID del Cliente para el Loadfromdatabase?
Aqui te refieres a la propiedad datasource del dbgib??
[cita]
Luego simplemente a mano uno las propiedades con su respectivo control.
[/cita]
Para que sirve Toolbar??
dond pones las instrucciones

Código Delphi [-]
                   Query.First;
                   Query.Prior;

en el dbgid te aparece una flechita negra a la izquierda de algun registro ??

si quieres puedes echar un vistazo al hilo seleccionar fila dbgrid stack overflow, alli expuse mi problema y explico mas detalladamente lo que quiero hacer
Saludos y gracias por tu ayuda

[jorllazo]

Empezado por Ade

Algunas dudas, pues no te entendi muy bien,
Tu query devuelve 4 campos pero cuantos registro? 1 o mas de 1??
si devuelve mas de uno entonces aparecen en el dbgrid, y seleccionas una fila y entonces es cuando guardas el ID del Cliente para el Loadfromdatabase?
Aqui te refieres a la propiedad datasource del dbgib??

La Query devuelve el numero de registros en Base a la Clausula 'WHERE' de la sentencia SQL, de momento los devuelve todos, osea el total de registros de la tabla

Código SQL [-]
         
         SELECT [PersonID], [Name], [TradeName], [NIF]
          FROM [Persons] 
          WHERE isCustomer = 0 
          AND isEmployee = 0
          AND isProvider = 0

De este modo saco de la tabla todos los contactos
si quiero sacar los clientes pongo isCustomer = 1 y omite contactos etc, etc

Esta es la sentencia que le paso al componente TADOQuery, mas concretamente a su propiedad SQL,
y este es el codigo que la usa y devuelve todos los contactos.

Código Delphi [-]
        
             Query1.SQL.Clear;
             Query1.SQL.Add(strSQL);
             Query1.Open;
                 if not (Query1.Bof and Query1.Eof) then          
                         Query1.First; //Si no esta vacio lo muevo al primer registro             
             DataSource1.DataSet := Query1;
             DbGrid1.dataSource := DataSource1;

La propiedad DataSource del DBGrid indica de donde tomara los datos que muestra en su rejilla.



Con esto, si tenias algun registro que cumple la clausula WHERE de tu sentencia deberia verse visible en la grid, a la que previamente yo le añado las columnas necesarias en su propiedad "Columns" en la que indico el titulo de la columna y el nombre del campo al que ira Ligada.

Empezado por Ade

en el dbgid te aparece una flechita negra a la izquierda de algun registro ??

La Flechita negra es la que te indicara en que registro estas en ese momento, si no te aparece tienes que cambiar su propiedad dgIndicator = true de su lista de propiedades "Options"

Empezado por Ade

Para que sirve Toolbar??
dond pones las instrucciones

El toolBar es la típica barra de herramientas como por ejemplo si levantas la vista veras en el Explorador de Internet (botones que hacen algo) . Si añades botones (los necesarios para cumplir los cometidos de tu formulario) y haces doble click en ellos, tendras un evento en el cual podras colocar codigo como por ejemplo

Código Delphi [-]
      procedure TfrmMain.tbFirstClick(Sender: TObject);
       begin
             Query1.First; //SE desplaza al 1 registro.
       end;

Espero que ahora te haya solucionado algo mas....

[Ade]

ok, mi problema era la flechita negra, tengo su propiedad dgIndicator = true,

solo q yo trataba de seleccionar otra fila distinta,(q no fuera la q llevaba la flechita) con el raton sobre el dbgid directamente ( para ello a lo mejor tendria q hacer uso de algun evento del raton y en el moverme a ese registro, es lo unico que se me ocurre), y tu esto lo haces mediante el toolbar, voy a probar hacerlo como tu y loq se me acaba de ocurrir.

gracias, te mantendre informado

[Ade]

nada con las instrucciones:

Código Delphi [-]
ZQuery1.First;
ZQuery1.prior;

me sigue dando el derbordamiento de pila ( stack overflow)

[Ade]

Problema solucionado, algunas veces lo mejor es eliminar los componentes y volver a empezar, pues hice tantas modificaciones para q funcionara que no modifique algo q no debia, pues probé en un proyecto nuevo y funcionaba, asi q empece.

Saludos y gracias

[jorllazo]

A ti, me alegro de haber podido servir de ayuda