Ayuda con DBGrid

[Jheysson13]

gracias por tu ayuda, pero eso no me sirve por que ya he estado buscando en el foro campos calculados y crei que tuve la suerte de encontrar a alguien que preguntaba lo mismo que yo pero cuando vi la respuesta que tenia era la siguiente:

""Bastaria Creando Campos calculados
1ro Busca en el foro y si no encuentras suficiente informacion, te ayudaremos mas;
Otra cosa: Espeficica qeu componentes usas, BD y Delphi""

si te parece familiar es por que fue tu respuesta, lo gracioso del caso es que fue en el 2005.

pero bien no importa, lo que necesito es :
sumar todas las filas de un DBgrid, osea , todas las filas de una columna y poder desplegar su resultado en un edit. estoy usando paradox y sql.
ejemplo:

columna
precio

edit1.text:=(total);

[vtdeleon]

si te parece familiar es por que fue tu respuesta, lo gracioso del caso es que fue en el 2005.

Me parecio conocido esa forma de escribir, me ha causado un poco de risa

Bueno, te explicare de memoria (tengo delphi a unos cuantos kms).

- Dar 2 clic en el Dataset que utilizas.

Ahi saldra Field Editor, donde agregaras todos los campos involucrados, ademas de agregar uno nuevo, que sera el calculado.

-Das clic derecho "Add All Field" (creo que dice asi), despues a "New Field"

Cuando agregues el nuevo campo, saldra una patallita donde especificaras el nombre del campo, tipo de dato y tipo de campo (calculated).

Una vez especificado esto, procedes a usar el Evento OnCalcFields del Dadaset para hacer los calculos.
Ej:

Código Delphi [-]
Procedure table1.OnCalcFields (...);
Begin
  With Dataset do begin
   Fieldbyname('Campocalculado').AsFloat:=FieldByName('campo1').AsFloat + FieldByName('campo2').AsFloat+
 FieldByName('campo2').AsFloat+....;
  end;
end;

Cheque a ver si te funciona, si no me disculpas pues todo ha sido sin la herrameinta a mano.


Pd:Cualquier observacion es aceptada, para tener referencias a futuros forista con la misma duda

[Jheysson13]

te doy la gracias por ayudarme , no boy a pasar por alto este codigo que me das, pero creo que encontre una forma de hacerlo con sql.
mira esto que a mi me funciono:

query2.Close;
query2.SQL.Clear;
query2.SQL.Add('select sum(creditos)as total from mat_estudiantes where matricula ='+#39+edit1.Text+#39+ 'and ciclo='+#39+lablel1.Caption+#39);
query2.Open;

Esto me suma todos los creditos de la matricula buscada en el ciclo especificado.

y con:
edit2.Text:=Formatfloat('#,0', query2.fieldbyname('total').AsFloat);

me devuebe el resultado en un edit.

solo que tube que utilizar otra sql para relacionar los campos buscados con el DBgrid y lo hise asi:


query1.Close;
query1.SQL.Clear;
query1.SQL.Add('select * from mat_estudiantes where matricula ='+#39+edit1.Text+#39+ 'and ciclo='+#39+label1.Caption+#39);
query1.Open;

el cual relacione al dbgrid.


Come te dij anteriormente no soy muy experto con delphi y desconosco muchas cosa, asi que casi siempre rompo las reglas y le doy un poco de la logica que me llega a la cabeza, pero bien me funciona y es lo que me interesa.

gracias de todas formas y si tengo otra duda, no dudare en buscar ayuda en el foro.
saluditos

[vtdeleon]

Saludos

pero creo que encontre una forma de hacerlo con sql.
mira esto que a mi me funciono:

Pensaba que usabas Ttable.

Sin embargo, me alegro mucho que Tú mismo hayas encontrado la forma de hacerlo y mejor qeu yo .