FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
#1
|
||||
|
||||
Ordenar datos en un DBGrid con click en cabecera
Este es otro truco tambien de Zarko Garjic de about.com, cuya funcion es ordenar los datos de un DBGrid al clickear en la cabecera del mismo, aqui el codigo:
1. Fijar las coordenadas del mouse en el DBGrid:
2. Procedimiento para el click en el titulo del DBGrid en el evento OnTitleClick del DBGrid:
Y eso es todo y que lo disfruten!! Saludos. |
#2
|
|||
|
|||
Todavia no funciona. Desearia me orientaran como hacer el evento DbGrid1.TitleClick para que trabaje con Delphi7 y Firebird |
#3
|
||||
|
||||
Realmente no lo he probado con Firebird ya que este codigo esta basado con base de datos Access.
|
#4
|
||||
|
||||
Sort es una propiedad de los ADODataSet, así que si piensan usar este código con otros componentes probablemente no va a funcionar.
|
#5
|
||||
|
||||
Bueno, pero para mySQL o firebird, los componente ZEOS, el query tiene su equivalente en SortedField.
Saludos |
#6
|
||||
|
||||
El programita esta muy bueno y sensillo pero yo hice algunos retoques.
Resulta que usando el código anterior se presentan dos problemas en el evento onTitleClick. El primero es, que cuando se hace un click por primera vez sobre el título de la grilla, PreviousColumnIndex vale -1 y DBGrid1.Columns[PreviousColumnIndex] produce error porque no existe el elemento -1. Para solucionarlo, cambio try por if; y queda:
El segundo problema se produce cuando la columna no tiene asignado un campo para mostrar (ojo, esto tal vez sea un error lógico en el diseño de la ventana). Para evitar el error se agrega un if antes del último if; y queda:
¿Qué opinan? |
#7
|
||||
|
||||
Todo funciona bien, pero hay un problema que tal vez no sea de este codigo, es posible que sea del motor de la BD. Quisiera que me digan como solucionarlo.
El caso es que hago una consulta en access donde tengo un resumen con las caracteriscas tecnicas de la PC, y en el caso de la RAM y los Discos duros (la PC puede tener mas de uno en ambos casos), tengo que obtenerlos de otra consulta donde se suman todos los HDD que tenga la PC y los DIMM de RAM El problema esta en cuando quiero ordenar por esos campos me da un error y no lo hace. |
#8
|
||||
|
||||
Para alguien que por ahí ha preguntado cómo se puede implementar un truco así para mySQL o Firebird. Bien, te comentaré lo que yo hago:
Utilizo convenciones para las consultas de los componentes TQuery, o sea,: 1ra Línea: %ESTRIBO TODA LA SENTENCIA SELECT DE LA CONSULTA ([sql]SELECT ... FROM ..[\SQL])% 2da Línea: %RESERVADA PARA EL CONDICIONES ([sql]WHERE..[\SQL])% 3ra Línea: %AQUÍ ES DONDE ORDENO LOS REGISGTROS ([sql]ORDER BY ... DESC[\SQL]) El resto es solo leer y/o modificar la tercera línea de la propiedad SQL del TQuery cuando se hace clic en la cabecera de la rejilla. Saludos. PD.: Cuando me refiero a TQuery, lo hago por cuestiones prácticas, no es que presisamente este ejemplo solo debe aplicarse al objeto TQuery de Delphi, sino a todos sus decendientes que mantengan la propiedad SQL o "Consulta de Lectura". |
#9
|
||||
|
||||
Para alguien que por ahí ha preguntado cómo se puede implementar un truco así para mySQL o Firebird. Bien, te comentaré lo que yo hago:
Utilizo convenciones para las consultas de los componentes TQuery, o sea,: 1ra Línea: %ESTRIBO TODA LA SENTENCIA SELECT DE LA CONSULTA (SELECT ... FROM ..)% 2da Línea: %RESERVADA PARA EL CONDICIONES (WHERE..)% 3ra Línea: %AQUÍ ES DONDE ORDENO LOS REGISGTROS (ORDER BY ... DESC) El resto es solo leer y/o modificar la tercera línea de la propiedad SQL del TQuery cuando se hace clic en la cabecera de la rejilla. Saludos. PD.: 1. No sé por qué? pero el sistema me truncó el mensaje anterior. 2. Cuando me refiero a TQuery, lo hago por cuestiones prácticas, no es que presisamente este ejemplo solo debe aplicarse al objeto TQuery de Delphi, sino a todos sus decendientes que mantengan la propiedad SQL o "Consulta de Lectura". |
#10
|
||||
|
||||
Yo, en particular, recomiendo que cuando se necesite realizar algún cambio en el orden de las filas de una consulta se lo realice desde Delphi; pues sino, se estaría disparando una nueva consulta al motor y eso provocaría un deterioro en el rendimiento del sistema.
|
#11
|
||||
|
||||
Auxilio :S quiero implementarlo pero no sé que es TCustomADODataSet :S emm lo sustitui por un TQuery pero no sè como implementarlo :S pienso modificar el sort en un :String alguien pudiera aclarame como utilizarlo en TQuerys ademas de la ayuda de D&W
|
#12
|
|||
|
|||
Miren, el error que me da alguien sabe que es.
[DCC Error] Unit3.pas(166): E2251 Ambiguous overloaded call to 'Pos' System.pas(16672): Related method: function Pos(const WideString; const WideString): Integer; System.pas(18130): Related method: function Pos(const string; const string): Integer; [DCC Warning] Unit3.pas(166): W1058 Implicit string cast with potential data loss from 'string' to 'RawByteString' [DCC Error] Unit3.pas(167): E2251 Ambiguous overloaded call to 'Pos' System.pas(16672): Related method: function Pos(const WideString; const WideString): Integer; System.pas(18130): Related method: function Pos(const string; const string): Integer; [DCC Warning] Unit3.pas(167): W1058 Implicit string cast with potential data loss from 'WideString' to 'RawByteString' [DCC Fatal Error] Unit1.pas(36): F2063 Could not compile used unit 'Unit3.pas' |
|
|
|