Delphi 는 엑셀 의 인 스 턴 스 코드 를 생 성 합 니 다.
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;
begin
// OLE
try
Excelid:=CreateOleObject( 'Excel.Application' );
except
on Exception do raise exception.Create(' Xls , EXCEL')
end;
Excelid.Visible := false; //Excel
Excelid.WorkBooks.Add; // excel
// excel
Excelid.worksheets.add;
dataPage:=Excelid.Worksheets.count; //
Excelid.worksheets.add;
ImagePage:=Excelid.Worksheets.count;
//showmessage(inttostr(dataPage));
//showmessage(inttostr(ImagePage)+'sdfg');
Jdate:=DateTimePicker1.Date;
count1:=0;
ExRowsValue:=1; //
ExRowsName:=2; //
//
for i:=0 to CheckListBoxFQ.Items.Count-1 do
begin
if CheckListBoxFQ.Checked[i] then
begin
channellist:= QCaky.FChannelList[i]+','+channellist;
end;
end;
delete(channellist,length(channellist),1);
leftPostion:=20;
topPostion:=50;
widthPostion:=450;
heightPostion:=230;
for i:=0 to CheckListBoxPOTT.Items.Count-1 do
begin
if CheckListBoxPOTT.Checked[i] then
begin
// excel
//Excelid.worksheets.add;
//sheetCount:=sheetCount+1;
//Excelid.worksheets[sheetCount].name:=' '+inttostr(sheetCount);
//
if CheckListBoxPOTT.Items[i]=' ' then
begin
potBstrtime:='';
potEstrtime:='';
end
else
begin
potBstrtime:=QCaky.FPOTbeginList[i];
potEstrtime:=QCaky.FPOTendList[i];
end;
Rres:=QCaky.getFQShr(Jdate,FormMain.QAreacode,channellist,potBstrtime,potEstrtime); //
ExClos:=1;
while not QCaky.FADOQueryFQ.Eof do
begin
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;
end;
{ (20,50,450,230) ( , , , )}
//achart1 := Excelid.worksheets[ImagePage].chartobjects.add(20,50,450,230);
achart1 := Excelid.worksheets[ImagePage].chartobjects.add(leftPostion,topPostion,widthPostion,heightPostion);
achart1.chart.charttype := xl3DPie ; // ********
// x 、y
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]; // Chart (x )
Range2 := Excelid.worksheets[dataPage].Range[cell3, cell4]; // Chart (y )
series1:= achart1.chart.seriescollection ;
//series1.add (Range2,xlColumns,false); // y
series1.add (Range2,true); // ,
achart1.chart.seriescollection[1].name:='nihao';
//
achart1.chart.seriescollection[1].ApplyDataLabels(xlDataLabelsShowLabelAndPercent,true,true,true);
achart1.Chart.Axes[xlCategory].CategoryNames := Range1; // x
//series1.add (Range2,xlColumns,false); // y
//achart1.Chart.Axes[xlCategory].CategoryNames := Range1; // x
//
achart1.Chart.Legend.delete;
//
achart1.Chart.HasTitle:=True;
achart1.Chart.ChartTitle.Characters.Text:=' ';
achart1.Chart.HasLegend:=true;
achart1.Chart.Legend.Position := xlBottom;
//
//achart1.Chart.Axes(xlValue,xlPrimary).HasTitle := True;
//achart1.Chart.Axes(xlValue,xlPrimary).AxisTitle.Characters.Text := ' (%)';
//
//achart1.Chart.Axes(xlCategory,xlPrimary).HasTitle:=True;
//achart1.Chart.Axes(xlCategory,xlPrimary).AxisTitle.Characters.Text:=' ';
ExRowsName:=ExRowsName+2;
ExRowsValue:=ExRowsValue+2;
end; //
leftPostion:=20;
topPostion:=topPostion+600;
//showmessage(inttostr(dataPage));
end;
Excelid.Visible := true;
end;
이 내용에 흥미가 있습니까?
현재 기사가 여러분의 문제를 해결하지 못하는 경우 AI 엔진은 머신러닝 분석(스마트 모델이 방금 만들어져 부정확한 경우가 있을 수 있음)을 통해 가장 유사한 기사를 추천합니다:
[Delphi] TStringBuilder그리고 꼭 사용해야만 할까? 그림처럼 Heap 영역에 "Hello" 공간을 생성하고 포인팅을 한다. "Hello World" 공간을 새로 생성한 후 포인팅을 하게 된다. 결국 "Hello" 라는 String 객체가 ...
텍스트를 자유롭게 공유하거나 복사할 수 있습니다.하지만 이 문서의 URL은 참조 URL로 남겨 두십시오.
CC BY-SA 2.5, CC BY-SA 3.0 및 CC BY-SA 4.0에 따라 라이센스가 부여됩니다.