SoloCodigo

Pensaba ponerles una una imagen pero "no tengo privilegios para poner enlaces en mis mensajes" asi que bueno, hola y lo que pasa es que tengo un problema con una grafica de barras en el borland c++ builder, Lo que quiero hacer es que la grafica me muestre la cantidad total por mes de produccion en un año determinado. Lo hace pero solo una vez, cuando le doy otra fecha me sigue mostrando la misma grafica del año que coloque por primera vez y no cambia aunque me haya dicho que consultó los datos. He intentado lo que he podido, echarme una mano por favor. Este es el codigo del boton consultar, ademas del boton nuevo para que restaurara la grafica pero no dio. Echarle un ojo por favor, y muchas gracias.

EXITOS!


void __fastcall TForm2::Button1Click(TObject *Sender)
{
FILE *fp;
int anio;
Graph1->NumPoints = 12;
Graph1->BorderStyle = 0;

if (Edit1->Text=="" || Edit1->Text=="aaaa" ){
ShowMessage("Ingrese datos correctos");
}
else{
anio=StrToInt(Edit1->Text);
int ene=0,feb=0,mar=0,abr=0,may=0,jun=0,jul=0,ago=0,sep=0,oct=0,nov=0,dic=0;
fp=fopen("Produccion", "r");


if (anio<2000){
ShowMessage("Ingrese Fecha correcta Mayor o igual al Año 2000");
}
else {

int i=0;
while(!feof(fp)){
          fread(&datoLeche, sizeof(struct lecheDiaria), 1, fp);
          if(anio==datoLeche.fecha.anio){
         Graph1->YAxisTicks= 12;
         Graph1->GraphData= ene;
         Graph1->GraphData= feb;
         Graph1->GraphData= mar;
         Graph1->GraphData= abr;
         Graph1->GraphData= may;
         Graph1->GraphData= jun;
         Graph1->GraphData= jul;
         Graph1->GraphData= ago;
         Graph1->GraphData= sep;
         Graph1->GraphData= oct;
         Graph1->GraphData= nov;
         Graph1->GraphData= dic;
            if (datoLeche.fecha.mes==1)
                {  ene=datoLeche.cantidadLitros+ene;}
                else if(datoLeche.fecha.mes==2)
                {  feb=datoLeche.cantidadLitros+feb;}
                else if(datoLeche.fecha.mes==3)
                {  mar=datoLeche.cantidadLitros+mar;}
                else if(datoLeche.fecha.mes==4)
                {  abr=datoLeche.cantidadLitros+abr;}
                else if(datoLeche.fecha.mes==5)
                {  may=datoLeche.cantidadLitros+may;}
                else if(datoLeche.fecha.mes==6)
                {  jun=datoLeche.cantidadLitros+jun;}
                else if(datoLeche.fecha.mes==7)
                {  jul=datoLeche.cantidadLitros+jul;}
                else if(datoLeche.fecha.mes==8)
                {  ago=datoLeche.cantidadLitros+ago;}
                else if(datoLeche.fecha.mes==9)
                {  sep=datoLeche.cantidadLitros+sep;}
                else if(datoLeche.fecha.mes==10)
                {  oct=datoLeche.cantidadLitros+oct;}
                else if(datoLeche.fecha.mes==11)
                {  nov=datoLeche.cantidadLitros+nov;}
                else if(datoLeche.fecha.mes==12)
                {  dic=datoLeche.cantidadLitros+dic;}
                i=1;
          }
}
if(i==0){ShowMessage("No Existen datos para tal año");}
else {ShowMessage("Las estadisticas del año son:");}
fclose(fp);
rewind(fp);
}
}
Graph1->Refresh();
}
//---------------------------------------------------------------------------


void __fastcall TForm2::Button2Click(TObject *Sender)
{
Graph1->DataReset=9;
Graph1->BorderStyle=0;

}