Ordenar un DBGrid por columna

[DOS]

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

[[Caral]]

Hola
La verdad no entiendo la pregunta.
Saludos

[DOS]

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.

[[Caral]]

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

[Casimiro Notevi]

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

[DOS]

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

[[Caral]]

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

[DOS]

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;

[[Caral]]

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

[DOS]

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

[olbeup]

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

[DOS]

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.

[Casimiro Notevi]

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:

Empezado por DOS

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.

Pregunta que cae por su propio peso: me tira error, ¿qué error?

[DOS]

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.

[DOS]

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;

[olbeup]

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.

[jafera]

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

[DOS]

Empezado por olbeup

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.

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.

[ecfisa]

Empezado por DOS

Es que nunca use un TCustomADODataSet, no se como se configura. Hasta ahora solo utilice Ttable y Datasource.

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.

[DOS]

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.