Operaciones Matematicas dentro de un DBGRID

[[Caral]]

Hola
Zeos= muy bueno, rapido y efectivo.
Conectar por odbc=
No te compliques con access, ADO, eso sin dudar, pruebalo, veras la diferencia.
Yo he hecho pruebas de rapidez y ado, es mas rapido, por ser directo, Pruebalo, es interesante, ademas se aprende.
Zeos para mysql, esta muy bien.
Bueno, es solo mi opinion.
Saludos

[[Lepe]]

Puedes usar el evento OnCalcFields del dataset origen, allí haces las multiplicaciones y estableces el valor de los campos involucrados.

Ten en cuenta que al principio las cajas pueden tener el valor cero (en caso de divisiones) para no obtener excepciones.

Saludos

[[FGarcia]]

Hola!

Si me equivoco me lo dicen:

1. ADO es nativo para conectar con Access y MS SQLServer. Usa directamente el motor de datos JET de MS. Luego entonces No tiene caso usar ninguna otra cosa para este tipo de base de datos.

2. Zeos tengo entendido -porque no los uso- es una suite de componentes para acceso a datos y esta especialmente diseñado para MySQL. Luego entonces es el mismo caso de ADO.

[[enecumene]]

Empezado por FGarcia

Hola!

Si me equivoco me lo dicen:

1. ADO es nativo para conectar con Access y MS SQLServer. Usa directamente el motor de datos JET de MS. Luego entonces No tiene caso usar ninguna otra cosa para este tipo de base de datos.

.

en eso tienes razon.

Empezado por FGarcia

2. Zeos tengo entendido -porque no los uso- es una suite de componentes para acceso a datos y esta especialmente diseñado para MySQL. Luego entonces es el mismo caso de ADO.

Zeos no solo esta diseñado especialmente para Mysql tambien sirve para cualquier tipo de base de datos incluso firebird.

Saludos

[[enecumene]]

Bueno estoy haciendo los calculos de esta manera pero no me muestra los resultados aqui el codigo:

Código Delphi [-]
procedure TFEntrada.Edit8KeyPress(Sender: TObject; var Key: Char);
begin
if key=#13 then begin
if Edit6.Text = '' then begin
     ShowMessage('Item no existe');
     end else begin
ZInsertar.Close;
ZInsertar.SQL.Clear;
ZInsertar.SQL.Add('Select * from articulos');
ZInsertar.SQL.Add(' where ref = :cod');
ZInsertar.ParamByName('cod').Value:=Edit6.Text;
ZInsertar.Open;
 if not ZInsertar.IsEmpty then begin
  ZTemp.FieldByName('ref').Value:=ZInsertar.Fields[0].Value;
  ZTemp.FieldByName('articulo').Value:=ZInsertar.Fields[2].Value;
  ZTemp.FieldByName('cantidad').Value:=strtoint(Edit7.Text);
  ZTemp.FieldByName('costo').Value:=StrToFloat(Edit8.Text);
   ZTemp.FieldByName('valor').Value:=(strtoint(Edit7.Text))*(strtofloat(Edit8.Text));
  end else
      ShowMessage('Item no existe');
   end;
  end;
end;

que estoy haciendo mal?

Saludos.

[[eduarcol]]

que resultados debe mostrarte??

en que momento editas o insertas en zTemp

donde debe mostrarte estos resultados??

[[Caral]]

Hola
No se muy bien lo que estas haciendo pero hay varias cosas.
No se por que usar int, cuando lo optimo es usas float.
Para mi el error podria estar aqui:

Código Delphi [-]
 ZTemp.FieldByName('valor').Value:= FloatToStr(StrToFloat(Edit7.Text) * StrToFloat(Edit8.Text));

Pruebalo nada se pierde.
Yo lo hago asi en algun programa y me funciona, en tal caso cambia el float, pero sigue el proceso.
Saludos

[[enecumene]]

Disculpa Caral por la Tardanza estaba en otros asuntos, volviendo al tema, mira hice tu sugerencia y aun asi no me muestra el resultado en el campo Valor en el DBgrid, ejemplo puse cantidad(integer) = 5 multiplicado por costo(double) = 185.00 se supone que valor(double) debe ser 925.00 y deberia de mostrarmelo en el dbgriid y eso es lo que no hace.??

Código Delphi [-]
procedure TFEntrada.Edit9KeyPress(Sender: TObject; var Key: Char);
begin
if key=#13 then begin
if Edit6.Text = '' then begin
     ShowMessage('Item no existe');
     end else begin
ZInsertar.Close;
ZInsertar.SQL.Clear;
ZInsertar.SQL.Add('Select * from articulos');
ZInsertar.SQL.Add(' where ref = :cod');
ZInsertar.ParamByName('cod').Value:=Edit6.Text;
ZInsertar.Open;
 if not ZInsertar.IsEmpty then begin
  ZTemp.FieldByName('ref').Value:=ZInsertar.Fields[0].Value;
  ZTemp.FieldByName('articulo').Value:=ZInsertar.Fields[2].Value;
  ZTemp.FieldByName('cantidad').Value:=strtoint(Edit7.Text);
  ZTemp.FieldByName('valor').Value:= FloatToStr(StrToFloat(Edit7.Text) * StrToFloat(Edit9.Text));
  end else
      ShowMessage('Item no existe');
   end;
  end;
end;

Saludos.