三層結構 delphi

所謂的三層數據庫,就是在服務器端放置一箇中間層,本實例使用Remote Data Module(遠程數據模塊)創建,3層的好處就是把一些功能放在中間層,這樣當某些功能發生轉變時,既不用修改數據庫,也不用修改客戶端,只要修改一下中間層就可以了啊。  

 1.  首先讓我們來編譯服務器端,打開Delphi7,新建一個標準工程,創建一個新窗體。   選擇File菜單 -> New -> Other -> Multitier -> 選擇Remote Data Module(遠程數據模塊) ->點"OK",進入到 " Remove Data Module Wizard " 嚮導對話框,在其Coclass Name 輸入server.,其他選項選擇默認值,點擊確定按鈕即可。   這樣會產生一個窗體,在這個窗體裏,我們可以添加數據庫控件和數據庫連接。這裏我們介紹一下ADO控件,ADO控件是目前數據庫開發中應用的主要空間之一,Delphi在對其提供了良好的支持,使用ADO連接數據庫相當簡單,我們先在窗體里加入一個ADOTable控件,設置其屬性contectionstring,在彈出的對話框點擊"Build"按鈕後,彈出"數據庫連接屬性"對話框,設置其連接一個數據庫,點擊"測試連接"可測試連接是否成功。

2. 再加入一個DataSetProvider控件,設置其屬性DataSet指向ADOTable。這就完成了服務器端的程序設計,保存、編譯。

3.   接下來讓我們來編譯客戶端,打開Delphi7,新建一個標準工程,創建一個新窗體。   在新窗體上,添加一個TDCOMConnrction控件(在Datasnap頁),其屬性設置:   ComputerName:服務器名(點擊自動給出網上鄰居)   ServerName:應用程序服務器註冊名(Project1.server),ServerName 選擇後,ServerGUID會自動輸入GUID值。   Connected=true 爲激活,在調試的時候,如果是在Windows xp本機的情況,可以先運行Project1.exe,然後就可以在ServerName中找到project1. server 了,然後設置Connected=true 激活。  

4.  再添加一個TClientDataSet控件(在Data Access頁),其屬性設置:   RemoteServer:DCOMConnrction1   ProviderName: DataSetProvider1(服務器端將被激活)   Active:true (激活後將能正常連接)   添加TDataSource控件,設置其屬性DataSet指向ClientDataSet1。   添加TDBGrid控件,設置其屬性DataSource指向DataSource1。   這就完成了客戶端的程序設計,保存、編譯。這樣一個三層數據庫構架就基本完成了,我們可以在客戶端添加數據顯示控件,設置同普通數據庫連接設置相同。

 

以上所需控件:

    服務器端: DataSetProvider(Data Access), ADotable

    客戶端:TDcomConnection(DataSnap), TClientDataSet(Data Access) , DataSource, DBGrid.

發表評論
所有評論
還沒有人評論,想成為第一個評論的人麼? 請在上方評論欄輸入並且點擊發布.
相關文章