Rave使用体会(22)：Rave中连接ADO数据库的例子

 

Rave中连接ADO数据库的例子

(1)  放置控件ADOConnection1,设定其属性
    ConnectionString =
      'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:/ProgramXPPro/Mic' +
      'rosoft Office/Office10/Samples/ADDRBOOK.MDB;Persist Security Inf' +
      'o=False'
    Connected = True

(2)  放置控件ADOQuery1,设定其属性
    Connection = ADOConnection1
    SQL.Strings = (
      'select 名字 as Name, 姓氏 as Xin from 家庭成员')
    Active = True

(3) 放置控件RvDataSetConnection1,设定其属性
    DataSet = ADOQuery1
   
   
(4) 放置控件RvProject1和RvSystem1,设定其属性
    RvProject1.Engine = RvSystem1

(5) 双击控件RvProject1,打开可视化报表设计器,保存当前的报表项目文件为ADOTest.rav。

(6) 通过菜单路径『File』|『New Data Object』打开Data Connections对话框，
选定Direct Data View后，下一步后，选定RvDataSetConnection1(DT)，其他选项缺省，
再选定下一步。

(7) 通过菜单路径『Tool』|『Report Wizard』|『Simple Table』，在Simple Table对话框中
选定DataView1，下一步后，选定All(所有字段)，下一步后，其他均保存缺省。

(8) 通过F9，预览报价效果。

(9) 保存当前的报表项目文件。退出可视化报表设计器，返回delphi 7 的IDE。

(10) 设定控件RvProject1的属性
    ProjectFile = 'E:/Study/delphi/Rave/022/ADOTest.rav'
   
(11) 添加按钮 Button1，编写其单击事件处理函数，

procedure TForm1.Button1Click(Sender: TObject);
begin
    RvProject1.Execute;
end;

(12) 保存项目文件，编译创建后运行应用程序！