Como utilizar TSortOrder??

dago_Ariza · #1 26-05-2004

Gracias Roman, por la observacion.
Puedes ayudarme??

roman · #2 26-05-2004

Cita:

Empezado por dago_Ariza

Puedes ayudarme??

El problema que veo es que estás tratando de adaptar el ejemplo de cadetill al pie de la letra en lugar de detenerte a estudiar los conceptos que él tan atinadamente explica.

Yo distinguiría tres conceptos básicos:

Cómo ordenar los datos
Cuándo ordenar
Cómo dibujar la flechita

Cómo ordenar los datos

Ésto debe quedar claro independientemente de cómo muestras los datos o de si usa flechitas o no. Cómo lo hagas dependerá de cómo obtengas los datos de la base y eso lo tienes que determinar tú. Puede ser que uses una componente TTable e índices definidos en la tabla o un Query usando la cláusula ORDER, por dar dos ejemplos.

En un caso simplificado, para ordenar los datos necesitas cómo mínimo dos datos: el nombre del campo por el cuál quieres ordenar y si la ordenación es ascendente o descendente. En este contexto comiezas entonces definiendo un método:

Código Delphi [-]procedure TForm1.Ordenar(Campo: String; Ascendente: Boolean);
begin
  { Aquí el código para ordenar }
end;

Por ejemplo, si usas un Query, el método podría quedar así:

Código Delphi [-]procedure TForm1.Ordenar(Campo: String; Ascendente: Boolean);
begin
  Query.SQL.Text := 'select * from tabla order by ' + Campo;
  if not Ascendente then
    Query.SQL.Text := Query.SQL.Text + ' desc';

  Query.Open;
end;

Pero insisto, éste es sólo un ejemplo y tú mejor que nadie puede saber cuál será la implementación final.

Cuándo ordenar

Una vez que tengas bien claro cómo ordenar los datos te darás cuenta que la ordenación la puedes ejecutar de muchas maneras. Puedes hacerlo, siguiendo el ejemplo de cadetill, seleccionando el campo desde un combo o conforme el usuario presione un título de la rejilla.

Lo importante aquí es que al tener ya aislado del resto el método de ordenación, éste se puede ejecutar de cualquier forma que se te ocurra.

En tu caso específico, una de estas formas es mediante los títulos de la rejilla. Por tanto necesitas poder actuar cuando el usuario presione uno. Ésta es la labor del evento OnTitleBtnClick.
La estrategia que sigas aquí también depende de lo que desees hacer exactamente. Una forma usual de proceder es:

Se ordena sólo por una columna a la vez
Si se presiona la columna por la que actualmente están ordenados los datos el orden se invierte (ascendente<-->descendente).
En caso contrario se ordena según la nueva columna manteniendo la dirección de ordenamiento que ya se tiene.

Para esta estrategia requieres entonces mantener en todo momento la información de la columna o campo actual de ordenamiento así como la dirección, por ejemplo, con sendas variables privadas:

Código Delphi [-]type
  TForm1 = class(TForm)
  private
    Campo: String;
    Ascendente: Boolean;
  end;

de manera que la implementación del evento podría verse similar a:

Código Delphi [-]procedure TForm1.RxDBGrid1TitleBtnClick(...);
begin
  if SameText(Field.FieldName, Campo)
    then Ascendente := not Ascendente // mismo campo, invertir orden
    else Campo := Field.FieldName; // campo distinto, guardar valor

  Ordenar(Campo, Ascendente);
end;

Cómo dibujar la flechita

Al llegar a este punto, una vez entendidos los dos anteriores a plenitud, te darás cuenta de que se trata de la parte más sencilla.

El punto importante aquí es cómo hace el RXDBGrid para dibujar la mentada flechita. El evento OnGetBtnParams se dispara cada vez que la componente necesite dibujar un título y mediante el parámetro SortMarker le indicamos qué flechita queremos que dibuje. Observa que no podemos saber en qué momento preciso se va a generar el evento y por ello el evento también pasa el campo Field que corresponde. Tendrás entonces que determinar si corresponde al campo actual de ordenamiento y en tal caso usar el valor de la variable Ascendente para saber la dirección de ordenamiento, por ejemplo:

Código Delphi [-]procedure TForm1.RxDBGrid1GetBtnParams(...);
begin
  if SameText(Field.FieldName, Campo) then
    SortMarker := TSortMarker(Byte(Ascendente) + 1);
end;

-------------------

Ésta es sólo otra explicación. Tu labor ahora es estudiar los conceptos involucrados, releer con detenimiento la explicación de cadetill- mucho más completa que ésta y, entonces sí, aplicar lo aprendido a tu caso particular.

// Saludos

jachguate · #3 26-05-2004

uffff!!!!!!

Creo que mejor si comenzaré a ir a las clases de adivinación... me has sorprendido. Vi una vez el hilo, y como no tenia la menor idea de que estabamos hablando, y como no andaba de humor para enviar a dago_Ariza a leer el hilo de la calidad de las preguntas, pues simplemente lo he dejado pasar, creyendo que nadie mas sabria de que se habla....

Es que ya decia yo que TSortOrder y TSortMaker no los habia visto en mi vida...

[Lepe] · #4 26-05-2004

Y despues de lo que ha dicho Román, ya puestos.... por qué no dar la posibilidad de hacer la ordenacion multicolumna... es decir, que pueda ordenar por fecha, dentro de esa ordenación, ordenar por totales, etc. y que el usuario lo elija

Si lo piensas, no es tan dificil, si tienes dudas, aqui andaremos. Yo lo tengo implementado así y la verdad, es muy muy util.

Saludos.

__cadetill · #5 26-05-2004

Cita:

Empezado por Lepe

Y despues de lo que ha dicho Román, ya puestos.... por qué no dar la posibilidad de hacer la ordenacion multicolumna...

Bueno, de hecho es como está implementado (o ideado o preparado) en la demo de mi web

Pero para empezar a asimilar los conceptos, la explicación de Román es.... sencillamente genial