Hola
se me corrio un detalle:

Código Delphi [-]
b:=combobox1.Text;
     a:=combobox1.Items.IndexOf(b)+1;
     fecha1:='01/'+formatfloat('00',a)+'/'+'2007';
     fecha2:='31/'+formatfloat('00',a)+'/'+'2007';
     ADOquery1.Close;
     ADOquery1.SQL.Clear;
     ADOquery1.SQL.Add('select fecha, total, costo, impuesto, ganancia from ciber');
     ADOquery1.SQL.Add(' where fecha between :Fechain and :Fechafin');
     ADOquery1.Parameters.ParamByName('Fechain').Value:=fecha1;
     ADOquery1.Parameters.ParamByName('Fechafin').Value:=fecha2;
     ADOquery1.Open;

Saludos

Hola
Aqui ya es tarde, si tienes mas dudas o puedes poner el programa, lo vere mañana.
Saludos

gracias caral, pero perdon por las molestias, pero me despliega toda la informacion de la tabla, mm nu me la filtra, perdon que te moleste tanto

ok gracias caral funciono el codigo, mi error, estaba en la base de datos, jejejej tonteras de inexpertos, el codigo me quedo asi.

Código Delphi [-]
 
procedure TForm5.ComboBox1Change(Sender: TObject);
var
b,fecha1,fecha2:string;
a,gan,imp,cost:real;
begin
     b:=combobox1.Text;
     a:=combobox1.Items.IndexOf(b)+1;
     fecha1:='01/'+formatfloat('00',a)+'/'+'2007';
     fecha2:='31/'+formatfloat('00',a)+'/'+'2007';
     ADOquery1.Close;
     ADOquery1.SQL.Clear;
     ADOquery1.SQL.Add('select fecha, total, costo, impuesto, ganancia from ciber');
     ADOquery1.SQL.Add(' where fecha between :Fechain and :Fechafin');
     ADOquery1.Parameters.ParamByName('Fechain').Value:=fecha1;
     ADOquery1.Parameters.ParamByName('Fechafin').Value:=fecha2;
     ADOquery1.Open;

end;

ahora quise crear una sumatoria de de las ganancias e hice algo asi, pero no me funciono.???? me puedes ayudar a determinar que pudo haber pasado

Código Delphi [-]
procedure TForm5.Button1Click(Sender: TObject);
var
b,fecha1,fecha2:string;
a,gan:real;
begin
adoquery1.Close;
     adoquery1.SQL.Clear;
     adoquery1.SQL.Add('select sum(ganancia)');
     adoquery1.SQL.Add(' from '+quotedstr('ciber'));
     adoquery1.SQL.Add(' where fecha between :Fechain and :Fechafin');
     ADOquery1.Parameters.ParamByName('Fechain').Value:=fecha1;
     ADOquery1.Parameters.ParamByName('Fechafin').Value:=fecha2;
     adoquery1.Open;
     edit1.Text:=formatfloat('00.00',gan);
     adoquery1.Close;
end;

saludos y gracias

Hola Douglas, es tan sencillo como esto:

Código Delphi [-]
procedure TForm5.Button1Click(Sender: TObject);
var
b,fecha1,fecha2:string;
a,gan:real;
begin
     adoquery1.Close;
     adoquery1.SQL.Text:='select sum(ganancia) from '+quotedstr('ciber') where fecha between :Fechain and :Fechafin';
     ADOquery1.Parameters.ParamByName('Fechain').Value:=fecha1;
     ADOquery1.Parameters.ParamByName('Fechafin').Value:=fecha2;
     adoquery1.Open;
     edit1.Text:=FloattoStr(ADOQuery1.Fields[0].asFloat);    
end;

espero que te ayude.

Saludos.