Insertar un registro en un StringGrid despues de una consulta

[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