Delphi generiert Beispielcode für ein Kreisdiagramm in Excel

Kopieren Sie den Codecode wie folgt:

var

i,j,m,n,count1:integer;

str:string;

Jdate:tdatetime;

channellist,potBstrtime,potEstrtime,Jchannelname:string;

Rres:boolean;

JSHR:double;

Excelid,achart1,cell1,cell2,cell3,cell4,cellMiddle,Range1,Range2,series1:variant;

ExRowsValue,ExRowsName,ExClos:Integer;

ImagePage,dataPage:integer;

leftPostion,topPostion,widthPostion,heightPostion:integer;

beginnen

//OLE-Objekt erstellen

versuchen

Excelid:=CreateOleObject( 'Excel.Application' );

außer

Bei einer Ausnahme wird eine Ausnahme ausgelöst.Create('Xls-Datei kann nicht erstellt werden. Bitte bestätigen Sie, ob EXCEL installiert ist.')

Ende;

Excelid.Visible := false; //Excel-Anzeigeeinstellungen

Excelid.WorkBooks.Add; //Eine neue Excel-Datei generieren

//Verwenden Sie nicht die vorherigen Seiten von Excel

Excelid.worksheets.add;

dataPage:=Excelid.Worksheets.count; //Wird als Datenseite verwendet

Excelid.worksheets.add;

ImagePage:=Excelid.Worksheets.count;

//showmessage(inttostr(dataPage));

//showmessage(inttostr(ImagePage)+'sdfg');

Jdate:=DateTimePicker1.Date;

count1:=0;

ExRowsValue:=1; //Speicherwert

ExRowsName:=2; //Speichername

//Frequenznummer abrufen

for i:=0 to CheckListBoxFQ.Items.Count-1 do

beginnen

wenn CheckListBoxFQ.Checked[i] dann

beginnen

Kanalliste:= QCaky.FChannelList[i]+','+Kanalliste;

Ende;

Ende;

delete(channellist,length(channellist),1);

leftPostion:=20;

topPostion:=50;

widthPostion:=450;

heightPostion:=230;

for i:=0 to CheckListBoxPOTT.Items.Count-1 do

beginnen

if CheckListBoxPOTT.Checked[i] dann

beginnen

// Excel-Seitenzahl dynamisch generieren

//Excelid.worksheets.add;

//sheetCount:=sheetCount+1;

//Excelid.worksheets[sheetCount].name:='Chart page'+inttostr(sheetCount);

//Hier Diagramm generieren

if CheckListBoxPOTT.Items[i]='All day' then

beginnen

potBstrtime:='';

potEstrtime:='';

Ende

anders

beginnen

potBstrtime:=QCaky.FPOTbeginList[i];

potEstrtime:=QCaky.FPOTendList[i];

Ende;

Rres:=QCaky.getFQShr(Jdate,FormMain.QAreacode,channellist,potBstrtime,potEstrtime); //Belegung abrufen

ExClos:=1;

während nicht QCaky.FADOQueryFQ.Eof tun

beginnen

Excelid.worksheets[dataPage].Activate;

Jchannelname:=QCaky.FADOQueryFQ.fieldbyname('channelname').AsString;

JSHR:=QCaky.FADOQueryFQ.fieldbyname('allshr').AsFloat;

Excelid.worksheets[dataPage].Cells[ExRowsName,ExClos].Value :=Jchannelname;

Excelid.worksheets[dataPage].Cells[ExRowsValue,ExClos].Value :=JSHR;

inc(ExClos);

QCaky.FADOQueryFQ.Next;

Ende;

{Fügen Sie ein zweidimensionales Bild (20,50,450,230) hinzu, um (links, oben, Breite, Höhe) darzustellen}

//achart1 := Excelid.worksheets[ImagePage].chartobjects.add(20,50,450,230);

achart1 := Excelid.worksheets[ImagePage].chartobjects.add(leftPostion,topPostion,widthPostion,heightPostion);

achart1.chart.charttype := xl3DPie; //Welche Art von Diagramm wird generiert ******** Hier ist ein Kreisdiagramm.

//X-Achsen- und Y-Achsen-Daten festlegen

cell1 := Excelid.worksheets[dataPage].Cells[ExRowsName,1];

cell2 := Excelid.worksheets[dataPage].Cells[ExRowsName,ExClos];

cell3 := Excelid.worksheets[dataPage].Cells[ExRowsValue,1];

cell4 := Excelid.worksheets[dataPage].Cells[ExRowsValue,ExClos];

Range1 := Excelid.worksheets[dataPage].Range[cell1, cell2] //Legen Sie den Wertebereich der Koordinatenachse der Diagrammkategorie (x-Achse) fest.

Range2 := Excelid.worksheets[dataPage].Range[cell3, cell4] //Legen Sie den Wertebereich der numerischen Koordinatenachse des Diagramms (y-Achse) fest.

series1:= achart1.chart.seriescollection;

//series1.add (Range2,xlColumns,false); //Legen Sie die y-Achsendaten fest

series1.add (Range2,true); //Kann zum Generieren von Kreisdiagrammen verwendet werden

achart1.chart.seriescollection[1].name:='nihao';

//Legen Sie das Kreisdiagrammformat fest

achart1.chart.seriescollection[1].ApplyDataLabels(xlDataLabelsShowLabelAndPercent,true,true,true);

achart1.Chart.Axes[xlCategory].CategoryNames := Range1; //X-Achsen-Daten festlegen

//series1.add (Range2,xlColumns,false); //Legen Sie die y-Achsendaten fest

//achart1.Chart.Axes[xlCategory].CategoryNames := Range1; //x-Achsendaten festlegen

//Den Titel rechts löschen

achart1.Chart.Legend.delete;

//Diagrammtitel hinzufügen

achart1.Chart.HasTitle:=True;

achart1.Chart.ChartTitle.Characters.Text:='Bewertungsdiagramm';

achart1.Chart.HasLegend:=true;

achart1.Chart.Legend.Position := xlBottom;

//Beschreibung des linken Index des Diagramms

//achart1.Chart.Axes(xlValue,xlPrimary).HasTitle := True;

//achart1.Chart.Axes(xlValue,xlPrimary).AxisTitle.Characters.Text := 'Rating (%)';

//Beschreibung des Diagrammindex

//achart1.Chart.Axes(xlCategory,xlPrimary).HasTitle:=True;

//achart1.Chart.Axes(xlCategory,xlPrimary).AxisTitle.Characters.Text:='time';

ExRowsName:=ExRowsName+2;

ExRowsValue:=ExRowsValue+2;

end; //Wenn die Periodeneinstellung ausgewählt ist

leftPostion:=20;

topPostion:=topPostion+600;

//showmessage(inttostr(dataPage));

Ende;

Excelid.Visible := true;

Ende;