Foros Club Delphi - numero de orden en una vista

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)

- SQL (https://www.clubdelphi.com/foros/forumdisplay.php?f=6)

- - numero de orden en una vista (https://www.clubdelphi.com/foros/showthread.php?t=10636)

numero de orden en una vista

Muy buenas saludos a todos lo primero

Necesito crear una vista, en la qu por un lado tenga el nombre de un alumno y por otro el numero de registro, algo asi:

1 Pepe
2 Juan
3 Amaia
4......

este numero de orden no se guarda, ya que dependeria del orden que le des a la lista,
no se si hoy estoy un poco mas espeso de lo normal, pero no consigo solucionarlo, a ver si a laguien se le ocurre como sacarlo.

Gracias

Buenas.
No me ha quedado muy clara tu duda. Cuando te refires a una vista, ¿dónde quieres ver esos datos? un listview, un grid, etc
Los datos que quieres mostrar (me refiero a los nombres)

Cita:

1 Pepe
2 Juan
3 Amaia
4......

¿de donde los obtienes?

No se si te podré ayudar, pero si me aclaras esto lo intentaré. No llevo demasiado programando en delphi, pero algo parecido si he tenido que hacer.

Un saludo.

seria un algo asi

select ( ?¿?¿), nombre from Alumno order by nombre

por ejemplo

donde las interrogantes darian como resultado el orden que ocupa el registro en este select en concreto

¿ Que base de datos utilizas ?

Saludos.

Utilizo firebird 1.5

Hola.

Entonces puedes utilizar un procedimiento almacenado.

Código:

SET TERM ^ ;

 

CREATE PROCEDURE LISTA 

RETURNS (LINEA INTEGER, NOMBRE VARCHAR(50))

AS

  begin

        LINEA = 0;

        for select NOMBRE

                from TABLA

                order by NOMBRE

                into :NOMBRE

        do begin

                LINEA = LINEA + 1;

                suspend;

        end

end

^

 

SET TERM ; ^

En Delphi, lo recuperas con una consulta normal que haga : select * from LISTA

En esta Web puedes encontrar más información sobre Firebird y procedimientos almacenados http://firebird.com.mx.

Aunque naturalmente la información más completa la encontrarás en la documentación del producto : http://www.ibphoenix.com/downloads/60All.zip

Saludos.

Si en la base de datos no vas a guardar ese campo, no lo puedes utilizar en la consulta, o por lo menos eso creo.

Te voy a poner una posible solución mostrando los datos obtenidos por esa consulta en un 'Listview'. Seguro que hay otras soluciones, pero es la que yo utilicé para hacer unas pruebas para una aplicación.

Código:

var

L1 : TListItem;

.....................

begin

.....................

Query1.Close;

Query1.SQL.Clear;

Query1.SQL.Add('Select * FROM Alumno order by Nombre');

Query1.Open;

Query1.First;

while not Query1.Eof do

begin

        L1:=ListView1.Items.Add;

        L1.Caption:=inttostr(ListView1.Items.Count);

        L1.SubItems.Add(Query1.FieldByName('Nombre').AsString);

        Query1.Next;

end;

.....................

Esto debería funcionarte, pero ya según como quieras mostrarlo.

Espero que te funcione. Un saludo.:)

Buscando información de otro tipo, encontré este hilo, que aunque es antiguo, y ya lo podeis tener resuelto, se podría resolver de esta manera.

Poner un campo calculado que se el Recno del dataset que se está poniendo.

Hay una pega: Sólo vale para consultas o tablas que se vean enteras y no se ordenen por un indice que no sea el primario. En las consultas el Recno es la posición del registro en la lista de los mismos. En las tablas, es el nº de registro físico, por lo que si tienes un indice activo que no se primary key puede que no coincidan el nº de registro con la posición del registro en la lista de los mismos. Además, si se filtra ( tanto querys como tablas ) se pierde la referencia.

Yo utilizo este dato (recno ) para sacar las filas pintadas alternativamente con otro color de fondo

Código:

procedure TFormMain.DBGrid4DrawColumnCell(Sender: TObject;

  const Rect: TRect; DataCol: Integer; Column: TColumn;

  State: TGridDrawState);

begin

if ((Sender as TDBGrid).DataSource.DataSet.RecNo mod 2 = 0) and

    (not (gdSelected in State)) then

    (Sender as TDBGrid).Canvas.Brush.Color:=clinactivecaptionText;

(Sender as TDBGrid).DefaultDrawColumnCell(Rect, DataCol, Column, State);



end;

Espero que os valga de algo.

Un saludo