Necesito saber como hacer esto en delphi

[arpegius25]

necesito que me ayudan a saber como hacer un pantalla en delphi trate de adjuntar la pantalla pero no puedo es una pantalla como sale en el programa de work que te permite filtrar la informacion

[dec]

Hola,

Bienvenido al ClubDelphi. Puesto que es tu primer mensaje, por favor, revisa la guía de estilo de los Foros. En cuanto a lo que planteas o yo no lo entiendo o me parece que no estás dando información suficiente como para alguien pudiera echarte una mano. ¿A ti no te lo parece así? Además, piensa que el título de tu mensaje no ayudaría para nada a una posible persona que tuviera un problema similar al tuyo y utilizar el buscador de los Foros para tratar de encontrar información antes de nada.

[arpegius25]

si tienes razon no es muy claro, una disculpa, agregue un archivo espero la puedan checar y se den una ida de lo que necesito.

[roman]

¿Y cuál es la duda? ¿Cómo colocar los controles?

// Saludos

[arpegius25]

haber si con esta explicacion me entienden un poco, hay un combo donde aparecen los operadores los relacionales y los logicos quisiera saber como hacer para que aparezcan y como es que se programa internamente para que funcione.

[arpegius25]

bien como no me he explicado vien hasta ahora es un componente parecido al GRIDTOOL oque me permite hacer varias cosas en un dbgrid una de ella es la de filtrar el grid donde en la opcion filtrar cono seleccionar en un combobox cualquier campo del grid una expresion y una condicion me filtra el grid. espero haber explicado un poco mejor. este componente es para delphi 3 lo encontre por casualidad quisiera saber si hay alguno para delphi 6 y

[[Lepe]]

Para llenar los combos con los campos de la base de datos, mira en el TTable.Fields[i].Name, tendrás que usar un bucle para rellenar los combos; tienes el TTable.FieldCount para saber cuantos campos hay.

Los Operadores los incluyes de forma fija, <, >, <>, =

Para construir el sql con las condiciones del usuario, tendrás que hacer algo así:

cboFields1 es el primer combo con el nombre del campo
cboOperator1 es el primer combo con los operadores <, > , <>, =, etc.
edSearch es el Edit donde el usuario escribe lo que quiere buscar.

Código Delphi [-]
  TheSql := 'select * from tabla where ';
if (cboFields1.Itemindex <>-1) and 
  (cboOperator1.itemindex <> -1) and 
  (edSearch1.text <> EmptyStr) then
begin
  TheSql := TheSql + cboFields1.items[cboFields1.itemindex] + ' ' +
             cboOperator1.items[cboOperator1.itemindex] + ' ' +
             quotedStr(edSearch.text) ;
  query1.Sql.text := TheSql;
  query1.Open;
end;

Todo esto sería para la primera condición que el usuario desea indicar. El campo elegido guarda un String.

Una vez entendido como funciona, hay más detalles que he omitido, porque si el campo es numérico no puedes usar quotedStr sino que tienes que enviarlo sin las comillas que pone el QuotedStr, para ello tendrás que mirar en la definición del campo TTable.FieldsDef.Datatype y si es un número, no incluir el QuotedStr.

Yo no usaría los filtros porque no son flexibles, es más comodo armar una consulta y pedirla al servidor, es más laborioso, pero funcionará mejor (a mi parecer claro ).

Saludos y espero se entienda.

[arpegius25]

muchas gracias por la informacion probare lo que me enviaste

Empezado por Lepe

Para llenar los combos con los campos de la base de datos, mira en el TTable.Fields[i].Name, tendrás que usar un bucle para rellenar los combos; tienes el TTable.FieldCount para saber cuantos campos hay.

Los Operadores los incluyes de forma fija, <, >, <>, =

Para construir el sql con las condiciones del usuario, tendrás que hacer algo así:

cboFields1 es el primer combo con el nombre del campo
cboOperator1 es el primer combo con los operadores <, > , <>, =, etc.
edSearch es el Edit donde el usuario escribe lo que quiere buscar.


Código Delphi [-]
TheSql := 'select * from tabla where ';
if (cboFields1.Itemindex <>-1) and
(cboOperator1.itemindex <> -1) and
(edSearch1.text <> EmptyStr) then
begin
TheSql := TheSql + cboFields1.items[cboFields1.itemindex] + ' ' +
cboOperator1.items[cboOperator1.itemindex] + ' ' +
quotedStr(edSearch.text) ;
query1.Sql.text := TheSql;
query1.Open;
end;





Todo esto sería para la primera condición que el usuario desea indicar. El campo elegido guarda un String.

Una vez entendido como funciona, hay más detalles que he omitido, porque si el campo es numérico no puedes usar quotedStr sino que tienes que enviarlo sin las comillas que pone el QuotedStr, para ello tendrás que mirar en la definición del campo TTable.FieldsDef.Datatype y si es un número, no incluir el QuotedStr.

Yo no usaría los filtros porque no son flexibles, es más comodo armar una consulta y pedirla al servidor, es más laborioso, pero funcionará mejor (a mi parecer claro ).

Saludos y espero se entienda.