QReport.
Delphi 7 :
1) Component/Install_Packages
2) Add
3) Borland/Delphi7/Bin dclgrt70.bpl
QuickRep. , Preview Print.
procedure tform1.button1click();
begin
form2.quickrep1.preview;
end;
QRBand (). QRBandType. :
1) rbTitle
2) rbPageHeader -
3) rbDetail
4) rbPageFooter
5) rbSummary
6)
DataSet QuickRep.
QRDBText ( ), QRLabel (), QRImage (), QRExpr
QRGroup . Expression .
. rbDetail, , .
- , --. QRSubDetail, , .
QRTextFilter, QRHTMLFilter. , ( *.qrp)
QRChart.
RaveReports
3- :
1) - . .
2) () ( raw)
3) Rave (Delphi7) , ..
:
1) RvDataSetConnection Rave. ( DataSet)
2) Delphi Tools/Rave/Designer
3) . File/New_Data_Object. Direct_Data_View. RvDataSetConnection1
4) Tools/ReportWizards/Simple_Table
|
|
5) , , .
6) .
7) File/Report_Execute
8) RvProject Rave. ProjectFile . ( Project1.rav)
9) .
procedure TForm1.Button1Click();
begin
RvProject1.Execute;
end;
RvRenderPDF, RvRenderTXT, RvRenderHTML, RvRenderRTF
MS Excel.
:
1) Uses ComObj. ;
Var Excel, WorkBook, Sheet: Variant
I: integer
begin
2) Excel . , Excel. , .
try //
Excel:= GetActiveOleObject(Excel.Application);
except
try //
Excel:= CreateOleObject(Excel.Application);
except
ShowMessage( Microsoft Excel ( !));
exit;
end;
end;
3) Excel
WorkBook:= Excel.WorkBooks.Add; //
Sheet:= WorkBook.Sheets[1]; //
Add , .
:
WorkBook:= Excel.Workbooks.Add (OpenDialog.FileName);
4) Excel. Cells[Row,Col]. 1.
Table1.First;
for i:= 1 to Table1.RecordCount do begin
Sheet.Cells[I,1]:= Table1.FieldByName(Surname).AsString;
Sheet.Cells[I,2]:= Table1.FieldByName(Group).AsString;
Sheet.Cells[I,3]:= Table1.FieldByName(Year).AsInteger;
Table1.Next;
end;
While:
Table1.First;
I:= 1;
While not Table1.EOF do begin
Sheet.Cells[I,1]:= Table.Fields[0].AsString;
Sheet.Cell[I,2]:= Table1.Fields[1].AsString;
Sheet.Cell[I,3]:= Table1.Fields[1].AsInteger;
Table1.Next;
I:= i+1;
end;
, .
:
Sheet.Cells[1,1].Font.Italic:= true; //
Sheet.Cells[1,2].Font.Bold:= true; //
Sheet.Cells[1,3].Font.Size:= 20; //
:
Sheet.Row[].Font.Color:= ; //
Sheet.Columns[].Font.Color:= clBlue; //
Sheet.Cells[,].Font.Color:= ; //
5) Excel :
Excel.Visible:= True;
end;