Insertar un registro en un StringGrid despues de una consulta

[Elite237]

Hola a todos, tengo este inconveniente.Hago una consulta y una suma de valores en donde los valores(la suma) los paso a un tchart y la consulta la paso a un stringgrid(me muestra las secciones y los valores correspondientes a cada una de ellas).Al final quiero insertar un registro que se llame resultado total y sumar todos los registros que me quedaron.Algo como lo siguiente quiero hacer:

Código Delphi [-]
+--------+-------+
Imag.Per | 120     |
---------+-------+
Servicio  |  36      |
---------+-------+
Resultado|  20     |
---------+-------+
Res.Total| 176     |
-----------------+

Este es mi codigo :

Código Delphi [-]
procedure TForm1.BitBtnGraficarClick(Sender: TObject);
var
 suma,i,x,y,val:integer;
 secc,evalua:string;
begin
  Chart2.Visible:=false;
 randomize;
  y:=0;
  suma:=0;
  i:=1;//Inicializamos i=1 para que se muestre la primer seccion
  secc:=sgEvaluacion.cells[1,i];
  for i := 2 to sgEvaluacion.RowCount - 1 do // 1 es la fila donde inicia la cuenta
    begin
      if sgEvaluacion.cells[0,i]<> '' then
      begin
        suma := suma + StrToInt(sgEvaluacion.Cells[7,i]);
        inc(y);
      end
      else
       begin
        sgGrafica.cells[1,sgGrafica.RowCount-1]:= IntToStr(suma) ;
        sgGrafica.cells[0,sgGrafica.RowCount-1]:= secc;
        sgGrafica2.cells[1,sgGrafica2.RowCount-1]:= IntToStr(suma) ; //Agrege
        sgGrafica2.cells[0,sgGrafica2.RowCount-1]:= secc;           //Agrege
        x:={(StrToInt(sgGrafica.cells[1,sgGrafica.RowCount-1])}(suma div y)* 100;
        sgGrafica.Cells[2,sgGrafica.RowCount-1]:=IntToStr(x);
        sgGrafica2.Cells[2,sgGrafica2.RowCount-1]:=IntToStr(x);//Agregue
        Series1.Add( suma ,secc, random(200) );
        Series2.Add( suma ,secc, random(200) );  //Agregue
        suma:=0;
        secc:=sgEvaluacion.cells[1,i];
        sgGrafica.RowCount:=sgGrafica.RowCount+1;
        //secc:=sgEvaluacion.cells[1,i];             //Agregue
        sgGrafica2.RowCount:=sgGrafica2.RowCount+1; //Agregue
       end;
    end;
        sgGrafica2.cells[1,sgGrafica2.RowCount-1]:= inttostr (suma) ; //Agregue
        sgGrafica2.cells[0,sgGrafica2.RowCount-1]  := secc ;          //Agregue
        sgGrafica.cells[1,sgGrafica.RowCount-1]:= inttostr (suma) ;
        sgGrafica.cells[0,sgGrafica.RowCount-1]  := secc ;
        x:={(StrToInt(sgGrafica.cells[1,sgGrafica.RowCount-1])}(suma div y)*100;
        sgGrafica.Cells[2,sgGrafica.RowCount-1]:=IntToStr(x);
        sgGrafica.RowCount:=sgGrafica.RowCount+1;
        Series1.Add( suma ,secc, random(260) );
        sgGrafica2.Cells[2,sgGrafica2.RowCount-1]:=IntToStr(x);     //Agregue
        sgGrafica2.RowCount:=sgGrafica2.RowCount+1;                 //Agregé
        Series2.Add( suma ,secc, random(260) );                    //Agregué
end;

[[maeyanes]]

Hola...

¿Y el problema es? ¿Qué es lo que no te sale? ¿Te da algún error?

Vamos, que si das más información se te puede ayudar mejor...



Saludos...

[Elite237]

Osea no me manda ningun error,logro que se visualicen los datos tanto en el grid como en el tchart, lo que quiero saber es como hacer para que se muestre despues de que trajo todos los datos en el grid una fila que diga Resultado Total

[[maeyanes]]

Hola...

Pues agrega la linea al final de todo el cálculo, algo como:

Código Delphi [-]
// ...
// Aquí el código que realiza el cálculo y agrega las líneas en el StringGrid
// ...
// Agregamos la línea para el resultado total
sgGrafica.RowCount := RowCount + 1;
sgGrafica.Cells[0, Pred(sgGrafica.RowCount)] := 'Resultado Total';
sgGrafica.Cells[1, Pred(sgGrafica.RowCount)] := ResultadoTotal

Saludos...

[Elite237]

Excelente Maeyanes.Ya me quedo.Tu sabes como hacer para sumar los valores que me aparecen en la grid y que en el renglo resultado total me aparezca me aparezca la suma de las 3 filas(osea el total de la suma).Saludos

[[maeyanes]]

Hola...

Tienes de dos, sumar los valores al momento de irlos asignando al grid:

Código Delphi [-]
var
  ResultadoTotal: Integer;

begin
  // Inicializamos a cero antes de agregar las filas al StringGrid
  ResultadoTotal :=  0;
  // Aquí se asignan los valores a las 3 filas que quieres sumar:
  ResultadoTotal := ResultadoTotal + ValorAgregado1;
  ResultadoTotal := ResultadoTotal + ValorAgregado2;
  ResultadoTotal := ResultadoTotal + ValorAgregado3;
end;

O también puedes usar las 3 filas anteriores al resultado para sumarlas:

Código Delphi [-]
var
  ResultadoTotal: Integer;
  I: Integer;

begin
  ResultadoTotal := 0;
  for I := sgGrafica.RowCount - 3 to Pred(sgGrafica.RowCount) do
    ResultadoTotal := ResultadoTotal + StrToInt(sgGrafica.Cells[1, I]);
  sgGrafica.RowCount := sgGrafica.RowCount + 1;
  sgGrafica.Cells[0, Pred(sgGrafica.RowCount)] := 'Resultado Total';
  sgGrafica.Cells[1, Pred(sgGrafica.RowCount)] := ResultadoTotal
end;

Saludos...

[Elite237]

Muchas Gracias!!!Me sirvio de mucho.Saludos

[Elite237]

Un ultima ayuda Maeyanes.Me puedes dar una idea de como puedo hacer para que en el StrinGrid pueda hacer una operacion de division.Lo que quiero hacer es lo siguiente.En el StringGrid ya logre mostrar todos los valores y la suma.Pero debo dividir el valor que obtuve en una seccion entre la suma de los valores maximos que tiene una respuesta de cada pregunta.Por ejemplo

Código Delphi [-]
 
+--------+--+-----
Servicio  |12 |92%|
---------+--+-----
Imagen   |2  |70%|
---------+--+-----
Resultado|10 |60%|
---------+--+-----
Total      |24 |74%|
---------+---+-----

El porcentaje se obtiene dividiendo el total de la seccion entre la suma de los valores mas altos, osea por ejemplo la suma de los valores mas altos de la seccion es 25, ya que esa seccion tiene 5 preguntas y los valores mas altos que hay de respuesta para cada pregunta es de 5.Por ejemplo

Seccion Imagen Personal
pregunta1
respuesta1(su valor es 1)
respuesa2(su valor es 3)
respuesta3(su valor es 5)
Entonces como son 5 preguntas y los valores de las respuestas mas altas son de 5..entonces 5x5=25.Espero haberme dado a entender.Gracias por tus comentarios.

[Elite237]

Un ultima ayuda Maeyanes.Me puedes dar una idea de como puedo hacer para que en el StrinGrid pueda hacer una operacion de division.Lo que quiero hacer es lo siguiente.En el StringGrid ya logre mostrar todos los valores y la suma.Pero debo dividir el valor que obtuve en una seccion entre la suma de los valores maximos que tiene una respuesta de cada pregunta.Por ejemplo

Código Delphi [-]
 Asi me debe de quedar el StringGrid
+--------+--+-----
Servicio  |12 |92%|
---------+--+-----
Imagen   |2  |70%|
---------+--+-----
Resultado|10 |60%|
---------+--+-----
Total      |24 |74%|
---------+---+-----

El porcentaje se obtiene dividiendo el total de la seccion entre la suma de los valores mas altos, osea por ejemplo la suma de los valores mas altos de la seccion es 25, ya que esa seccion tiene 5 preguntas y los valores mas altos que hay de respuesta para cada pregunta es de 5.Por ejemplo

Seccion Imagen Personal
pregunta1
respuesta1(su valor es 1)
respuesa2(su valor es 3)
respuesta3(su valor es 5)
Entonces como son 5 preguntas y los valores de las respuestas mas altas son de 5..entonces 5x5=25.Espero haberme dado a entender.Gracias por tus comentarios.

[[maeyanes]]

Hola...

No tenías que repetir la pregunta dos veces...

Para obtener esos porcentajes y sumas que necesitas, creo que lo mejor sería que lo hagas de otra forma y no usando el StringGrid. Vamos, que este componente está diseñado para mostrar datos y no para hacer cálculos con la misma.

Todas las operaciones bien las puedes hacer usando directamente los queries.

Puedes hacer queries del tipo:

Código SQL [-]
select sum(x_field) from x_table where condicion

o tal vez:

Código SQL [-]
select sum(x_campo) / x_campo from x_tabla where condicion

Y ya con lo que te devuelva el query entonces si lo muestras en alguna celda del StringGrid...



Saludos...

[Elite237]

Ok, si me referia a solo mostrarlos en el grid, no de hacer operaciones en el.Solo que para sacar los valores mas altos de cada pregunta, haria un max(campo)campo??asi, osea lo que pienso hacer es primero hacer un select de los campos y traer todos los que tenga en valor mayor.O tu como lo ves?A eso me referia, una idea de como obtener los valorer maximos, despues sumarlos y despues dividirlos.Gracias.Un saludo

[Elite237]

Hola, lo que hago es declaro un variable sumar de tipo integer..y la inicializo en 0, despues hago 3 select...el primero para sacar las secciones, el 2do. para sacar las preguntas y el 3ro. es para sacar las respuestas,en esta ultima hago una condicional en donde digo que el valor sea de 5.Despues hago un ciclo que cheque que no este vacio y vaya sacando los valores que tengan 5 y los sume, para despues dividirlo. Pero al momento de ejecutarlo, no me hace nada, solo aparece el cursor de la consulta, pero ahi se queda.Alguien sabe el por que?Este es mi codigo:

Código Delphi [-]
procedure TForm1.BitBtnGraficarClick(Sender: TObject);
var
 suma,i,x,y,resultado,val,sumar:integer;
 secc,evalua:string;
begin
  Chart2.Visible:=false;
   Evalua := copy(cmbEvaluacion.Text, 0, Pos('-', cmbEvaluacion.Text) - 1);
   Query1.Close;
  Query1.SQL.Text := Format('select * from det_evaluacion ' +
    'where det_eval = ''%s'' and det_tipo = 0 and ' +
    'det_valor = 0 order by det_clave', [Evalua]);
    //showmessage(query1.sql.text);
  Query1.Open;
   Query2.Close;
    Query2.SQL.Text := Format('select * from det_evaluacion ' +
      'where det_eval = ''%s'' and det_tipo = 1 and ' +
      'det_clave like ''%s.%%'' and det_valor = 0 ' +
      'order by det_clave', [Evalua, Query1.FieldByName('det_clave').AsString]);
    Query2.Open;
    //showmessage(query2.sql.text);
    Query3.Close;
      Query3.SQL.Text := Format('select det_valor from det_evaluacion ' +
        'where det_eval = ''%s'' and det_clave like ''%s.%%'' and ' +
        'det_tipo = 2 and det_valor=5 order by det_valor asc', [Evalua,
        Query2.FieldByName('det_clave').AsString]);
      Query3.Open;
    //showmessage(query3.sql.text);
  while not query3.eof do
  begin
  val:=query1.fieldbyname('det_valor').AsInteger;
  sumar:=sumar+val;
  query1.next;
  end;
  randomize;
  y:=0;
  suma:=0;
  resultado:=0;
  sumar:=0;
  i:=1;//Inicializamos i=1 para que se muestre la primer seccion
  secc:=sgEvaluacion.cells[1,i];
  for i := 2 to sgEvaluacion.RowCount - 1 do // 1 es la fila donde inicia la cuenta
    begin
      if sgEvaluacion.cells[0,i]<> '' then
      begin
        suma := suma + StrToInt(sgEvaluacion.Cells[7,i]);
        inc(y);
      end
      else
       begin
        sgGrafica.cells[1,sgGrafica.RowCount-1]:= IntToStr(suma) ;
        sgGrafica.cells[0,sgGrafica.RowCount-1]:= secc;
        sgGrafica2.cells[1,sgGrafica2.RowCount-1]:= IntToStr(suma) ;
        sgGrafica2.cells[0,sgGrafica2.RowCount-1]:= secc;
         resultado:=resultado+suma;

        x:={(StrToInt(sgGrafica.cells[1,sgGrafica.RowCount-1])}(suma div sumar)* 100;
        sgGrafica.Cells[2,sgGrafica.RowCount-1]:=IntToStr(x);
        sgGrafica2.Cells[2,sgGrafica2.RowCount-1]:=IntToStr(x);
        Series1.Add( suma ,secc, random(200) );
        Series2.Add( suma ,secc, random(200) );
        suma:=0;
        secc:=sgEvaluacion.cells[1,i];
        sgGrafica.RowCount:=sgGrafica.RowCount+1;
        sgGrafica2.RowCount:=sgGrafica2.RowCount+1;

       end;
    end;
        sgGrafica2.cells[1,sgGrafica2.RowCount-1]:= inttostr (suma) ; //Agregue
        sgGrafica2.cells[0,sgGrafica2.RowCount-1]  := secc ;          //Agregue
        sgGrafica.cells[1,sgGrafica.RowCount-1]:= inttostr (suma) ;
        sgGrafica.cells[0,sgGrafica.RowCount-1]  := secc ;
        x:=(suma div y)*100;
        sgGrafica.Cells[2,sgGrafica.RowCount-1]:=IntToStr(x);
        sgGrafica.RowCount:=sgGrafica.RowCount+1;
        Series1.Add( suma ,secc, random(260) );
        sgGrafica2.Cells[2,sgGrafica2.RowCount-1]:=IntToStr(x);     //Agregue
        sgGrafica2.RowCount:=sgGrafica2.RowCount+1;                 //Agregé
        Series2.Add( suma ,secc, random(260) );                    //Agregué
        resultado:=resultado+suma;
        sgGrafica.Cells[0, Pred(sgGrafica.RowCount)] := 'Resultado Total';
        sgGrafica2.Cells[0, Pred(sgGrafica.RowCount)] := 'Resultado Total';
        sgGrafica.Cells[1, Pred(sgGrafica.RowCount)] := IntToStr(Resultado);
        sgGrafica2.cells[1, Pred(sgGrafica2.RowCount)]:=IntToStr(resultado);
        series1.add(resultado,'RESULTADO TOTAL',random(200));
end;

Saludos