Delphi結合SQLServer數據庫使用Rave 報表的代碼,可將報表中的內容直接通過打印機打印出來,或是預覽,或寫進一個文件裡,Delphi初級的應用實例。
01
unit
Unit1;
02
interface
03
uses
04
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
05
Dialogs, StdCtrls, RpDefine, RpRave, DB, DBTables, RpCon, RpConDS,
06
RpConBDE, RpRender, RpRenderPDF;
07
type
08
TForm1 =
class
(TForm)
09
RvProject1: TRvProject;
10
Button1: TButton;
11
RvTableConnection1: TRvTableConnection;
12
Table1: TTable;
13
procedure
Button1Click(Sender: TObject);
14
private
15
{ Private declarations }
16
public
17
{ Public declarations }
18
end
;
19
var
20
Form1: TForm1;
21
implementation
22
{$R *.dfm}
23
procedure
TForm1
.
Button1Click(Sender: TObject);
24
begin
25
RvProject1
.
Execute;
//激活Rvae報表程序
26
end
;
27
end
.
示例演示截圖: