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) 儲存項目檔案，編譯建立後運作應用程式！