19 respuestas en este tema

[lsedr]

Saludos C amigos,
Cómo hago para que esta consulta:

delphi

procedure TForm19.BitBtn4Click(Sender: TObject);
Var consulta:string;
begin
consulta:='SELECT Reparacion_No, Precio  FROM Reparaciones WHERE Precio LIKE''';
consulta:=consulta +'%';
consulta:=consulta + Edit3.Text;
consulta:=consulta +'%';
consulta:=consulta +'''';
ADOQuery4.SQL.Clear;
ADOQuery4.SQL.Add(consulta);
ADOQuery4.Active:=True;
ADOQuery4.Open;
end;

Me muestre una tercera columna llamada Total, que indique la suma de todos los registros de la columna Precio ??

Lo que hace esta consulta es que muestra todas las Reparaciones existentes en la tabla con el Precio determinado lo cual se indica con un Edit....

[eduarcol]

No le veo la logica pero seria algo asi

delphi

Var consulta:string;
begin
consulta:='SELECT Reparacion_No, Precio, (Select Sum(Precio) from Reparaciones) as Total  FROM Reparaciones WHERE Precio LIKE''';
consulta:=consulta +'%';
consulta:=consulta + Edit3.Text;
consulta:=consulta +'%';
consulta:=consulta +'''';
ADOQuery4.SQL.Clear;
ADOQuery4.SQL.Add(consulta);
ADOQuery4.Active:=True;
ADOQuery4.Open;

[lsedr]

thanks

[eduarcol]

ufff No funciona

ufff, pueden haber tantos problemas que error te da ufff

jeje, y aparte te repito, no le veo la logica a esa columna, si nos comentas que quieres hacer podremos darte sugerencias

[lsedr]

Ok si funciona, pero... es posible que en el campo Total muestre solo un registro con la suma de toda la columna Precio ??

aqui la foto...

Aquí muestra la suma total del campo Precio cuando hago la consulta para que me muestre solamente las reparaciones con un valor de 500 ... Muestra 1400 porque existe otro registro con un valor de 400...

Archivos adjuntos

•  2054_8e9bd2eff280b126683f6615711c54e77effc763.png   9,34KB   9 descargas

[felipe]

Esta última parte no la entendí muy bien...
¿porque no haces mejor un campo calculado?


Saludos!

[eduarcol]

No entiendo, quieres que te sume toda la columna o que quieres que te sume???

[luk2009]

si pones dos querys para que no te confundas puedes hacer algo como esto:

delphi

procedure TForm1.Button1Click(Sender: TObject);
begin
ZQuery1.SQL.Text:='select reparacion_no,precio from reparaciones where precio like ' +quotedstr('%' + edit1.Text + '%')+'';
ZQuery1.open;
ZQuery2.SQL.Text:='select sum(precio) as total from reparaciones where precio like ' +quotedstr('%' + edit1.Text + '%')+'' ;
ZQuery2.Open;
Label3.Caption:=ZQuery2total.asstring;
end;

debe poner un label donde le pasas la suma de lo que tienes en el campo precio segun tu edit.

otra consulta que podria ser de tu interes es esta:

sql

SELECT PRECIO,SUM(PRECIO) AS TOTAL FROM REPARACIONES
GROUP BY PRECIO

con ella puedes tener una relacion de todos los totales segun el precio de la reparacion.

Otra version de esta ultima consulta seria algo como esto:

sql

SELECT COUNT(precio) AS rep, PRECIO,SUM(PRECIO) AS TOTAL FROM REPARACIONES
GROUP BY PRECIO

prueba con todo esto y me dices que mas necesitas para ver como te ayudamos.

[lsedr]

Al ejecutar esto:

delphi

procedure TForm19.BitBtn4Click(Sender: TObject);
Var consulta:string;
begin
consulta:='SELECT Reparacion_No, Precio, (Select Sum(Precio) from Reparaciones) as Ingreso_Total FROM Reparaciones WHERE Precio LIKE''';
consulta:=consulta +'%';
consulta:=consulta + Edit3.Text;
consulta:=consulta +'%';
consulta:=consulta +'''';
ADOQuery4.SQL.Clear;
ADOQuery4.SQL.Add(consulta);
ADOQuery4.Active:=True;
ADOQuery4.Open;
end;

Me sale lo de la foto...
Lo que deseo es que muestre solo una vez el valor de la suma de los registros del campo Precio en el campo Ingreso Total.

a ver si me entienden ahora, pues le cambie el nombre al campo ahora se llama Ingreso_Total, pues es el total de todos los valores de los registros del campo Precio, lo cual es un ingreso a la empresa por cada equipo que se repara.......

Archivos adjuntos

•  2057_e1e63502d543af791a8b8ef3beafda75612503a1.png   17,35KB   8 descargas

[egostar]

No acabo de comprender, ¿ podrias colocar una foto de todos los registros sin agruparlos ?, no entiendo que es lo que necesitas.

Salud OS

[lsedr]

Esos que aparecen ahí son todos los registros que tengo en la tabla, pues cuando presiona 'Consultar' se visualizan todos los registros porque no especifico nada en el Edit, eso esta correcto según mi necesidad, pues lo que quiero es que no me salga repetidas veces el mismo total, lo quiero solo una vez.

Creo que ahora se entenderá mejor con esta imagen...

Archivos adjuntos

•  2059_64e25fe1b1139b32ce49e5ac6bec8fd01549144e.png   16,25KB   6 descargas

[luk2009]

No se porque quieres necesariamente ponerlo en el dbgrid , si lo haces con el ejemplo que te puse primero te saldria algo como esto. Solo tienes que darle forma, Observalo y comentame si te parece correcto:

[lsedr]

No se porque quieres necesariamente ponerlo en el dbgrid , si lo haces con el ejemplo que te puse primero te saldria algo como esto. Solo tienes que darle forma, Observalo y comentame si te parece correcto:

Entiendo, pero es el espacio de mi form el problema...

Archivos adjuntos

•  2061_f708d77456bc8b97e0dfdfa2018abee85f4bfab4.png   29,38KB   8 descargas

[egostar]

A ver si esto te sirve:

Agregué un campo calculado al query y usé su evento OnCalcFields para asignar únicamente al primer registro el valor de la suma.

delphi

procedure TForm1.Query1CalcFields(DataSet: TDataSet);
begin
  if Query1.RecNo = 1 then
  begin
    Query1Total_Renta.Value := format('%m',[Query1Total.value]);
  end
  else begin
         Query1Total_Renta.Value := '';
  end;
end;

Pero claro, hay otras formas, seguramente habrá otras alternativas de los demás compañeros (que si saben de esto ).

Salud OS

Archivos adjuntos

•  2063_36aafd2ebdc2eb1585a6f2b909e999f5f6a1c4bd.jpg   21,41KB   5 descargas

[luk2009]

Pero si te vas a economizar una columna, puedes poner un panel al lado y poner dos label dentro de el
y quedaria algo como esto:

[lsedr]

Pero si te vas a economizar una columna, puedes poner un panel al lado y poner dos label dentro de el
y quedaria algo como esto:

Y cómo le hago para calcular la cantidad de reparaciones según los registros, en el caso de esta imagen sería 2 reparaciones...

[luk2009]

delphi

procedure TForm1.Button1Click(Sender: TObject);
begin
ZQuery1.SQL.Text:='select sum(precio) as totales, reparacion_no,precio from reparaciones where precio like ' +quotedstr('%' + edit1.Text + '%')+'group by precio,reparacion_no';
ZQuery1.open;
ZQuery2.SQL.Text:='select sum(precio) as total, count(precio) as reparaciones from reparaciones where precio like ' +quotedstr('%' + edit1.Text + '%')+'' ;
ZQuery2.Open;
Label3.Caption:='RD$'+ZQuery2total.AsString;
label2.Caption:='total reparaciones= '+ZQuery2REPARACIONES.AsString;
end;

El titulo de la columna reparacion_no lo puedes arreglar en la propiedad title. Cuando das doble click sobre el dbgrid y te aparecen todos los campos, cuando te pongas sobre uno de ellos, ves las propiedades y ahi esta title y le puedes poner como quieras. En este caso lo puse mas pequeño, para que ocupara menos espacio.

[luk2009]

puedes jugar con la propiedad visible del panel, para que solo aparezca cuando realizas la consulta y que se oculte cuando haces un cambio en el edit. Seria algo como esto:

delphi

procedure TForm1.Button1Click(Sender: TObject);
begin
ZQuery1.SQL.Text:='select sum(precio) as totales, reparacion_no,precio from reparaciones where precio like ' +quotedstr('%' + edit1.Text + '%')+'group by precio,reparacion_no';
ZQuery1.open;
ZQuery2.SQL.Text:='select sum(precio) as total, count(precio) as reparaciones from reparaciones where precio like ' +quotedstr('%' + edit1.Text + '%')+'' ;
ZQuery2.Open;
Label3.Caption:='RD$'+ZQuery2total.AsString;
label2.Caption:='total reparaciones= '+ZQuery2REPARACIONES.AsString;
Panel1.Visible:=True;
end;
 
 
procedure TForm1.Edit1Change(Sender: TObject);
begin
Panel1.Visible:=False;
end;

[lsedr]

puedes jugar con la propiedad visible del panel, para que solo aparezca cuando realizas la consulta y que se oculte cuando haces un cambio en el edit. Seria algo como esto:

delphi

procedure TForm1.Button1Click(Sender: TObject);
begin
ZQuery1.SQL.Text:='select sum(precio) as totales, reparacion_no,precio from reparaciones where precio like ' +quotedstr('%' + edit1.Text + '%')+'group by precio,reparacion_no';
ZQuery1.open;
ZQuery2.SQL.Text:='select sum(precio) as total, count(precio) as reparaciones from reparaciones where precio like ' +quotedstr('%' + edit1.Text + '%')+'' ;
ZQuery2.Open;
Label3.Caption:='RD$'+ZQuery2total.AsString;
label2.Caption:='total reparaciones= '+ZQuery2REPARACIONES.AsString;
Panel1.Visible:=True;
end;
 
 
procedure TForm1.Edit1Change(Sender: TObject);
begin
Panel1.Visible:=False;
end;

No funciona asi, pues no le veo la propiedad .Text a mis ADOQuery

[lsedr]

Analizando el asunto, reucurrí al uso de variables, y aunque es la forma más larga, por los novatos la entendemos más fácil. Me quedó asi:

delphi

procedure TForm19.BitBtn2Click(Sender: TObject);
Var consulta,consulta2,consulta3:string;
begin
//Busca las reparaciones por Tecnico que la hizo
consulta:='SELECT Reparacion_No, Tecnico, Precio FROM Reparaciones WHERE Tecnico LIKE''';
consulta:=consulta +'%';
consulta:=consulta + Edit1.Text;
consulta:=consulta +'%';
consulta:=consulta +'''';
ADOQuery2.SQL.Clear;
ADOQuery2.SQL.Add(consulta);
ADOQuery2.Active:=True;
ADOQuery2.Open;
//Muestra el Ingreso total del tecnico dado
consulta2:='SELECT SUM(Precio) AS TotalReparaciones FROM Reparaciones WHERE Tecnico LIKE''';
consulta2:=consulta2 +'%';
consulta2:=consulta2 + Edit1.Text;
consulta2:=consulta2 +'%';
consulta2:=consulta2 +'''';
ADOQuery5.SQL.Clear;
ADOQuery5.SQL.Add(consulta2);
ADOQuery5.Active:=True;
ADOQuery5.Open;
Label4.Caption:=ADOQuery5.Fields[0].asstring;
//Muestra el total de reparaciones del tecnico dado
consulta3:='SELECT COUNT(Precio) AS IngresoTotal FROM Reparaciones WHERE Tecnico LIKE''';
consulta3:=consulta3 +'%';
consulta3:=consulta3 + Edit1.Text;
consulta3:=consulta3 +'%';
consulta3:=consulta3 +'''';
ADOQuery6.SQL.Clear;
ADOQuery6.SQL.Add(consulta3);
ADOQuery6.Active:=True;
ADOQuery6.Open;
Label3.Caption:=ADOQuery6.Fields[0].asstring;
end;

Creo que hasta ahora ya resolví el problema,
Gracias Mil, compañeros....