Ver Mensaje Individual
  #10  
Antiguo 17-01-2013
Avatar de ecfisa
ecfisa ecfisa is offline
Moderador
 
Registrado: dic 2005
Ubicación: Tres Arroyos, Argentina
Posts: 10.508
Reputación: 36
ecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to behold
Hola.

Perdón por la tardanza pero recién entro.
Cita:
Empezado por Matiax Ver Mensaje
esto lo tengo q poner en un boton?, al query le tengo q poner algo en algun lado?, nunca use query, creo q funciona!
Si, podes poner el código en el evento OnClick de un TButton.

Cita:
...
yo tengo una tabla q se llama CanGor y los campos son codigo, Nombres, Cantidad, Precio y Fecha... yo lo q quiero es poner en algun lado(como un combobox)...

y poder sumar la cantidad * el Precio de un mes en particular(por ej: el 01/2013).y me devuelva un resultado: en edit o showmwssage o donde sea!.
Un ejemplo con un ComboBox:
Código Delphi [-]
procedure TForm1.FormCreate(Sender: TObject);
var
  i: Integer;
begin
  with ComboBox1 do
  begin
    Clear;
    for i:= 1 to 12 do Items.Add(LongMonthNames[i]);
  end;
end;

procedure TForm1.ComboBox1Change(Sender: TObject);
begin
  with Query1 do
  begin
    Close;
    SQL.Clear;
    SQL.Add('SELECT SUM(CANTIDAD*PRECIO) AS TOTAL FROM CANGOR');
    SQL.Add('WHERE CAST(EXTRACT(MONTH FROM FECHA) AS INTEGER) = :PMES');
    ParamByName('PMES').AsInteger:= ComboBox1.ItemIndex + 1;
    Open;
    ShowMessage(FieldByName('TOTAL').AsString);
  end;
end;
En este caso el valor se referencia por el alias TOTAL (o el nombre que prefieras darle).

Saludos.
__________________
Daniel Didriksen

Guía de estilo - Uso de las etiquetas - La otra guía de estilo ....
Responder Con Cita