Operaciones Matematicas dentro de un DBGRID

[[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.

[[Caral]]

Hola
Aqui muestras un ZInsertar, que ve en la tabla y un ZTemp que hace la comparacion.
Donde esta el ZQuery que muestra el DBGrid.?, cual es ?
A ver si lo entiendo mejor.
Saludos

[[basti]]

ZTemp ¿es una consulta o una tabla?. ¿El grid está enlazado a ZTemp o a otro dataset?.