Ordenar un DBGrid por columna
 

Hola a todos, he visto en internet y en este foro tambien como ordenan un DBGrid al hacer click en el titulo de la columna

Código Delphi [-]
procedure TForm13.DBGrid1MouseMove(Sender: TObject; Shift: TShiftState; X,   Y: Integer); 
var   
  pt: TGridcoord; 
begin   
  pt:= DBGrid1.MouseCoord(x, y);    
  if pt.y=0 then     
    DBGrid1.Cursor:=crHandPoint   
  else     
    DBGrid1.Cursor:=crDefault;  
end;

y despues en el evento title click del DBGrid

Código Delphi [-]
procedure TForm1.DBGrid1TitleClick(Column: TColumn); 
{$J+}
const PreviousColumnIndex : integer = -1; 
{$J-} 
begin
  if DBGrid1.DataSource.DataSet is TCustomADODataSet then
  with TCustomADODataSet(DBGrid1.DataSource.DataSet) do 
  begin
    try
      DBGrid1.Columns[PreviousColumnIndex].title.Font.Style := DBGrid1.Columns[PreviousColumnIndex].title.Font.Style - [fsBold];     
    except
    end;
    Column.title.Font.Style := Column.title.Font.Style + [fsBold];     
    PreviousColumnIndex := Column.Index;      
    if (Pos(Column.Field.FieldName, Sort) = 1) and (Pos(' DESC', Sort)= 0) then
      Sort := Column.Field.FieldName + ' DESC'
    else
      Sort := Column.Field.FieldName + ' ASC';   
  end;
end;

El esunto es que trabajo con Delphi 7, Paradox, Ttable y datasource, no con ADO, no se si se puede adaptar el codigo o le puedo agregar ADOtable?
Tambien encontre este codigo para reemplazar el anterior

Código Delphi [-]
Table1.IndexFieldNames:=Column.FieldName;

con la opcion de reemplazar IndexFieldNames por IndexName, pero me tira un error "Index does not exist..." se ve que debo crear el indice de las columnas o las tablas, como se realiza esto?
si alguien me puede ayudar le agradecere, de ultima si no se puede hacer esto en la columna, lo haria en un boton, como

Código Delphi [-]
procedure TForm17.Button2Click(Sender: TObject); 
begin 
  Query1.Close; 
  Query1.SQL.Clear; 
  Query1.SQL.Add('Select Codigo,Servicio,Importe'); 
  Query1.SQL.Add('From Table1 '); 
  Query1.SQL.Add('order by 2'); 
  Query1.Active:=true; 
  Query1.Open; 
end;

Que tampoco funciono :D

Hola
La verdad no entiendo la pregunta.
Saludos

Hola Caral,
lo que quiero hacer es ordenar las columnas del DBRgrid que por defecto esta ordenado por el ID, se pueda ordenar por lo que el usuario necesite.
Supongamos que en el DBGrid muestra ID, nombre, apellido, ciudad. el usuario al hacer click en el encabezado de la columna, pueda ver ordenado a travez de apellido o de ciudad o de nombre, y si es con un boton, podria ser con la ayuda de un checkbuton en donde tenga la posibilidad de elegir ID, apellido, nombre y ciudad y al apretar el boton se ordene por la seleccion correspondiente.
En lo personal, me gustaria la primer opcion, de hacer click en el titulo de la columna y se ordene por este.
Espero que haber sido mas claro ahora, Saludos.

Hola
Se podria hacer muy facilmente con un combobox, no?
Saludos

De todas formas, de una o de otra forma, lo que no se entiende es el problema que tienes.

el problema es que no se como hacerlo, como mencione me gustaria poder hacer click en el titulo de la columna y que se ordene por este, pero la codificacion que encontre trabaja con ADO.
se puede modificar esa codificacion para que funcione con Ttable y datasource?
Saludos

Hola
Todo se puede hacer amigo.
El asunto es:
1- Tiene que ser especificamente een el titulo del dbgrid (me parece que el cliente tendra que imaginar que es ahi, no lo veo muy logico)
2- Puede ser como dije antes en un combobox que indique la opcion de filtrado ? (me parece mas claro).
Saludos

Si tienes razon, a veces cuesta pensar que el cliente no tiene la mas minima idea de como funciona cada cosa y aunque pueda parecer mas simple hacer click en el titulo para ordenar cada columna, el cliente no se lo puede imaginar que hace eso.
Y como seria en un combobox, necesitaria un boton en donde codificar que lo ordene por cada eleccion, yo habia hecho esto y no funciono, pero talvez es algo parecido, no?

Código Delphi [-]
procedure TForm17.Button2Click(Sender: TObject);  
begin    
  Query1.Close;    
  Query1.SQL.Clear;    
  Query1.SQL.Add('Select Codigo,Servicio,Importe');    
  Query1.SQL.Add('From Table1 ');   
  Query1.SQL.Add('order by 2');    
  Query1.Active:=true;    
  Query1.Open;  
end;

Hola
No se por que pones un ejemplo con query y antes estabas pidiendo alguna opcion con tqble , no entiendo.
Bueno:
El concepto es simple:
Colocas un combobox con las opciones de filtrado (id, cliente, etc...).
En el evento onchange del combobox pones o haces el filtro en el caso de un table o la sentencia sql en el caso del query
Seria bueno saber con que lo vas a hacer para tratar de darte un ejemplo mas concreto.
Saludos

Lo hare con lo que crean que es mejor y mas sencillo.

Que tal esto:

Código Delphi [-]
procedure TForm1.DBGrid1TitleClick(
  Column: TColumn);
{$J+}
const
  PreviousColumnIndex : integer = -1;
{$J-}
begin
  with TCustomADODataSet(DBGrid1.DataSource.DataSet) do
  begin
    if PreviousColumnIndex > -1 then
      DBGrid1.Columns[PreviousColumnIndex].Title.Font.Style :=
        DBGrid1.Columns[PreviousColumnIndex].Title.Font.Style - [fsItalic];

    Column.title.Font.Style := Column.title.Font.Style + [fsItalic];

    PreviousColumnIndex := Column.Index;

    if (Pos(Column.Field.FieldName, Sort) = 1) and (Pos(' DESC', Sort) = 0) then
      Sort := Column.Field.FieldName + ' DESC'
    else
      Sort := Column.Field.FieldName + ' ASC';
  end;
end;

Un saludo

Gracias olbeup
nunca use unTCustomADODataSet Lo relaciono con el DataSource y algo mas? ya que me tira error cuando lo ejecuto al hacer click en el encabezado.

Amigo DOS, no tienes tiempo de leer un libro para aprender sobre lo que estás trabajando y además sigues poniendo comentarios inservibles, veamos:
Pregunta que cae por su propio peso: me tira error, ¿qué error?

Este error 'access viloation at 0x0012fdf6: read of address 0x00000000'. Process Stopped...
supongo que no sera problema del TCustomADODataSet ya que no mencionaste que estuviera mal conectado, asi que no se que significa ese error. obiamente algo no realice bien.

Bueno ya lo solucione, lo hice como aconsejaba caral, con un combobox, lo que no sabia era que tenia que definir a los campos como clave secundaria para que los pueda ordenar. Gracias.

Código Delphi [-]
procedure TForm13.Button2Click(Sender: TObject);
begin
if combobox1.Text = 'Nombre' then
  begin
  table1.IndexName:='nombrefk';
  end;
if combobox1.Text = 'Codigo' then
  begin
  table1.IndexName:='codigofk';
  end;
if combobox1.Text = 'Imp. Venta' then
  begin
  table1.IndexName:='impventfk';
  end;
end;

Hola DOS,

Creo que estas en un error, si en tú DBGrid, presentas de 8 a 10 campos o más, esos 8 ó 10 campos o más tienen que estar indexados, E R R O R , en un DBGrid puedes ordenar por cualquier campo pulsando en el título, A C I E R T O, si te ha dado ese error es por el TCustomADODataSet, no lo estas haciendo bien.

Un saludo.

Yo lo que hago es el proceso siguiente:

Código Delphi [-]
 
procedure TF_BuscarMecanic.DBGridBuscarTitleBtnClick(Sender: TObject;
  ACol: Integer; Field: TField);
var c: string;
begin
        Edit1.Text :='';
        c:=Field.FieldName;
        ComboBox1.Text:=c;
        OrdenarGrid.Close;
        if Sw_1 = 0 then
        begin
                OrdenarGrid.SQL[0]:= 'SELECT NOM, ID_MECANIC FROM H0001';
                OrdenarGrid.SQL[1]:= 'WHERE BAIXA_EMPRESA IS NULL';
                OrdenarGrid.SQL[2] :='ORDER BY '+ c + ' ASC';
                Sw_1:=1;
        end
        else
        if Sw_1 = 1 then
        begin
                OrdenarGrid.SQL[0]:= 'SELECT NOM, ID_MECANIC FROM H0001';
                OrdenarGrid.SQL[1]:= 'WHERE BAIXA_EMPRESA IS NULL';
                OrdenarGrid.SQL[2] :='ORDER BY '+ c + ' DESC';
                Sw_1:=0;
        end;
        OrdenarGrid.Open;
        OrdenarGrid.FieldByName(ComboBox1.Text).Index := 0;
        DBGridBuscar.SetFocus;
end;

Donde Sw_1 es una variable Integer y privada del form, lo tengo combinado con un ComboBox para poder hacer la selección desde ambos componentes.

Nota: Utilizo firebird 1.5.

Saludos

Josep

Es que nunca use un TCustomADODataSet, no se como se configura. Hasta ahora solo utilice Ttable y Datasource. Igualmente me parece mejor la del combox, (aunque estoy de acuerdo con indexar tantos campos) ya que el cliente no va a saber que tiene que hacer click en el titulo para que se ordene, de esta forma es mas intuitiva.
jafera, lo voy a probar ^\||/
Gracias, saludos.

Hola DOS.

TCustomADODataSet es la clase base de los componentes de datos ADO y no se usa directamente. olbeup realiza el moldeado con el ancestro común de TADOQuery y TADOTable para que la propiedad Sort pueda ser utilizada sea cual fuere al que el DBGRid este relacionado.


Tratándose de BDE, podrías usar un TQuery:

Código Delphi [-]
 
procedure TForm1.DBGrid1TitleClick(Column: TColumn);
{$J+}
const 
  PrvOrd: Boolean = False;
{$J-}
const 
  Orden: array[Boolean] of string=(' ASC',' DESC');
var
  fName: string;
  PrvInx: Integer;
begin
  fName:= Column.Field.FieldName;
  PrvInx:= Column.Index;
  with DBGrid1.Columns[PrvInx].Title.Font do Style:= Style - [fsBold];
  with TQuery(DBGrid1.DataSource.DataSet) do
  begin
    PrvOrd:= not PrvOrd;
    Close;
    SQL.Text:= 'SELECT * FROM TU_TABLA ORDER BY '+ fName + Orden[PrvOrd];
    Open
  end;
  with DBGrid1.Columns[PrvInx].Title.Font do Style:= Style + [fsBold];
end;

Saludos.

Gracias ecfisa, recien hoy pude ponerme a trabajar, el asunto es que lo voy a realizar con un Query y dataSource por medio del combobox, el codigo que realice es el siguiente.

Código SQL [-]
procedure TForm17.Button2Click(Sender: TObject);
begin
if combobox1.Text = 'Servicio' then
begin    
  Query1.Close;    
  Query1.SQL.Clear;
  Query1.SQL.ADD('SELECT * FROM servicio.DB ORDER BY Servicio ASC');
  Query1.Active:=true;
  Query1.Open;  
end;

if combobox1.Text = 'Codigo' then
  begin    
  Query1.Close;    
  Query1.SQL.Clear;
  Query1.SQL.ADD('SELECT * FROM servicio.DB ORDER BY Codigo ASC');
  Query1.Active:=true;
  Query1.Open;  
end;

El asunto es que lo que hace es poner los campos de arriba para abajo o de abajo para arriba, pero no los ordena alfabeticamente, solo gira las tablas. Faltará configurar algun dato en elgun lado?
Gracias por su ayuda.

Hola
Solo arreglar un poco:

Código Delphi [-]
procedure TForm17.Button2Click(Sender: TObject);
begin
  Query1.Close;
  Query1.SQL.Text:= 'SELECT * FROM servicio.DB ';

if combobox1.Text = 'Servicio' then
begin    
  Query1.SQL.ADD(' ORDER BY Servicio ASC');
  Query1.Active:=true;
end;

if combobox1.Text = 'Codigo' then
  begin    
  Query1.SQL.ADD(' ORDER BY Codigo ASC');
  Query1.Active:=true;
end;

Saludos

Usa el código que te ha puesto ecfisa.

De todas formas el código que estás usando también ordenará por servicio o por código, aunque alfabéticamente no creo, suponiendo que sean números ;)
Y el asc sobra porque por defecto siempre es ascendente, sólo es necesario si fuese descendente.

EDITO: ahora veo el código de caral, también te vale.

Gracias caral
el codigo esta mas depurado, pero el error por decirlo e alguna manera es el mismo, osea solo invierte la tabla como que se guia solo por los registros de los extremos, si un campo en el medio comienza con una "a", no lo tiene en cuenta.
Algo estara mal configurado?

Hola
No he seguido este hilo, seria bueno saber que es lo que necesitas y que campos tiene la tabla.
Saludos

La tabla tien los sig. campos
Cod_servicio * / Codigo / Descripcion / Importe / Activo
1300 PECPC0001 Corte de pelo corto 30,00 € 1
1301 PECPM0001 Corte de pelo mediano 35,00 € 1
1302 PECPL0001 Corte de pelo largo 40,00 € 1
1303 VEVAC0001 vacunacion 15,00 € 1
1304 VEACU0001 acupuntura 40,00 € 1
1305 VERX0001 Radiografias 32,00 € 1

La idea es que si pongo en el combobox Descripcion, apreto el boton y lo ordene asi

acupuntura
corte de pelo
""
""
""
Radiografias
vacunacion

ahora simplemente lo da vuelta, toda la tabla, ya sea ordenado por Descripcion o por Codigo, simplemente da vuelta la tabla, no lo ordena alfabeticamente.
Gracias

Hola
Intenta ordenando mas campos:

Código Delphi [-]
procedure TForm17.Button2Click(Sender: TObject);
begin
  Query1.Close;
  Query1.SQL.Text:= 'SELECT * FROM servicio.DB ';

if combobox1.Text = 'Descripcion' then
begin    
  Query1.SQL.ADD(' ORDER BY Descripcion, Cod_servicio, Codigo  ASC');
  Query1.Active:=true;
end
else

if combobox1.Text = 'Codigo' then
  begin    
  Query1.SQL.ADD(' ORDER BY Codigo ASC');
  Query1.Active:=true;
end
else

if combobox1.Text = 'Cod_servicio' then
  begin    
  Query1.SQL.ADD(' ORDER BY Cod_servicio ASC');
  Query1.Active:=true;
end;

Saludos

Nop, sigue sin funcionar, le agregue ordenar por importe y ese si lo ordena bien, parece que no tuviera problemas con campos numericos pero no sabe bien el abecedario :D

A ver, pon aquí algún resultado de esos que no te salen ordenados, que lo veamos.

ja ja ja, no lo puedo creer era algo muy tonto, cuando empieza con mayusculas primero lo ordena por estas, luego ordena las minusculas, creo que debere ponerle una restricion al campo para que sea todo minuculas, no?
Muchas Gracias ^\||/

Antes de dar por cerrado el tema y abusando de sus conocimientos de mi parte, he decidico complicarlo poniendo 4 tablas :rolleyes:
Mascotas
Cod_mascota*
Cod_prop
nombre
raza
fecha_nac

Propietario
Cod_prop*
Nombre
Apellido
Direccion
Localidad

Peluquero
Cod_peluquero
Nombre
Apellido
Direccion

Turnos de peluqueria
Cod_turno
Cod_masc
Cod_prop
Cod_pelu
Fecha

El DBGrid tien los sig. campos
Fecha
Hora
Cliente //campo creado mediante la union con propietario
Mascota //campo creado mediante la union con mascota
Peluquero //campo creado mediante la union con peluquero

y el codigo del boton es el siguiente

Código Delphi [-]
procedure TForm16.Button8Click(Sender: TObject);
begin
  Query1.Close;
  Query1.SQL.Text:= 'SELECT * FROM turnopelu.DB ';
  Query1.SQL.Add('INNER JOIN peluquero.DB ON Cod_pelu = Cod_peluquero');
  Query1.SQL.Add('INNER JOIN propietario.DB ON Cod_cli = Cod_prop');
  Query1.SQL.Add('INNER JOIN mascota.DB ON Cod_masc = Cod_mascota');
  //Query1.SQL.Add('GROUP BY turnopelu.DB');

if combobox1.Text = 'Fecha' then
begin    
  Query1.SQL.ADD(' ORDER BY Fecha ASC');
  Query1.Active:=true;
end
else

if combobox1.Text = 'Peluquero' then
  begin    
  Query1.SQL.ADD(' ORDER BY Cod_pelu ASC');
  Query1.Active:=true;
end
else

if combobox1.Text = 'Mascota' then
  begin    
  Query1.SQL.ADD(' ORDER BY Cod_masc ASC');
  Query1.Active:=true;
end;
end;

El problema es que no me muestra los datos de los campos agregados solo la fecha.