強大的數據庫開發功能無疑是Delphi王冠上的明珠，至少有80%以上的人每天使用Delphi來開發數據庫程序?；诜e木式的VCL數據庫控件，以及Dev ExPRess和Woll2Woll等公司提供的強大的第三方數據庫明了控件，毫不夸張的說只需要簡單的設置一下屬性，拖拉幾下鼠標我們就可以非?？焖俚耐瓿蓴祿斐绦虻拈_發。由于Delphi的數據庫功能過于強大了，所以很多人就忽視了一個事實，就是ActiveX同樣可以提供靈活的數據庫綁定，遺憾的是Delphi本身所提供的幾個第三方的ActiveX控件中沒有一個是數據庫明了的控件，這間接導致了一個誤解，使得很多人誤以為Delphi并不支持數據明了的ActiveX控件（也包括很久以前的我J）。這當然是錯誤的看法。

    在Delphi中使用數據明了的ActiveX控件

    在下面的例子中，我們將使用隨Office 2000安裝到系統中的Microsoft Calendar 9.0控件來進行演示，它就是一個數據明了控件。選擇Component | Import ActiveX Control，選擇Microsoft Calendar 9.0(見下圖1.12)，把類名從TCalendar改成TAXCalendar，以避免同系統中原有的同名控件沖突，然后點Install按鈕安裝此控件。

 

 

 

 

 

 

 

 

 

 

 

 

    新建一個程序，在窗體上放置一個TAXCalendar控件。再放上一個DataSource 和Table控件。設定DataSource的Dataset為Table1，然后設定Table1的DataBaseName 屬性為DBDEMOS，TableName 屬性為EMPLOYEE.DB，最后設定Table1.Active屬性為True。

    接下來就該進行數據庫綁定了，注意一下引入的TAXCalendar具有DataSource和DataBindings這兩個同一般ActiveX控件不同的屬性，這是因為ActiveX Import Wizard在引入ActiveX控件先判斷是否是數據庫明了的控件，如果是就以TDBOleControl作為基類進行繼承，如果不是就從TOleControl開始繼承。而TDBOleControl實現了DataBindings和DataSource屬性。設定AXCalendar1.DataSource屬性為Datasource1。

    這時我們在窗體上用鼠標右鍵單擊TAXCalendar控件的話，會發現在右鍵菜單中多出了一個DataBindings…菜單項（見下圖1.13）。

 

 

 

 

 

 

 

 

 

 

    點擊菜單項后，會顯示數據綁定屬性編輯框（見下圖1.14）。分別在FieldName列表框中選定HireDate，在Property Name列表框中選擇Value(12)（其中12是Value的Dispid號），點擊Bind按鈕，就會在數據庫字段和Value屬性間建立數據關聯。

 

 

 

 

 

 

 

 

 

 

 

    最后，再在窗體上放置一個DBGrid和DBNavigator控件，并設定它們的DataSource為DataSource1。運行程序，移動當前數據位置的時候，你可以注意到ActiveX的日期顯示也會隨之變化，同數據庫中的Hiredate保持一致。如圖1.15所示：

 

 

 

 

 

 

 

 

 

 

 

 

    創建數據明了的ActiveX控件

雖然我們已經清楚了Delphi的確可以使用數據明了的ActiveX控件，那么一個新的問題就產生了，Delphi本身可不可以創建數據明了的ActiveX控件呢？由于Delphi提供了一步到位的ActiveX控件轉換生成，就有很多人希望能夠把Delphi中強大的數據庫控件轉換為ActiveX控件，以便能在其他支持ActiveX的開發環境開發數據庫程序時仍然能夠享受到象在Delphi中一樣的輕松愉快的感覺。但是我在前面第一部分中已經提到了，由于Delphi的數據明了控件同ActiveX數據庫控件的在內部機制上差距過大，因此Delphi無法簡單的直接轉換其強大的數據庫控件。那么是不是就意味我們就沒有辦法了呢？of course not! 其實使用類型庫編輯器，我們可以異常輕松的實現數據明了的ActiveX控件，就讓我們用TEdit控件來試驗一下，看看如何去做。

選菜單命令New | ActiveX | ActiveX Control啟動ActiveX Control Convert Wizard，選TEdit控件作為轉化對象，生成EditX　ActiveX框架。

    接下來，我們將改造TEdit的Text屬性，使其支持數據綁定。選 View | Type Library來察看Delphi生成的類型庫，并選中Text屬性，然后切換到Flags屬性頁（見下圖1.16）。

 

 

 

 

 

 

 

 

 

 

 

    注意在Flags屬性頁有很多多選框，對于我們來說，只關心同數據綁定相關的選項。它們是Bindable，Display Bindable，Default Bindable，Immediate Bindable和Request Edit選項。

    標記一個屬性為bindable后，并將其同數據庫字段綁定后，當用戶修改了屬性后，控件就會通知數據庫值已經變化，并請求數據庫記錄更新狀況，數據庫反過來也會通知記錄更新是否成功。

    Bindable選項表明屬性支持數據綁定，如果把屬性標記為bindable，屬性將在其值變化時通知其容器。

    Request Edit表明屬性支持OnRequestEdit 通知消息，這允許控件詢問容器屬性值是否允許用戶修改。

    Display Bindable表示容器可以向用戶顯示這個屬性是可綁定的。

    Default Bindable表示它是唯一的，缺省的可綁定屬性，使用它必須同時標記了Bindable屬性。

    Immediate Bindable當被標記時，所有的改變都會被通知，同時還需要設定bindable和Request Edit標記。

    下面我們就標記EditX控件的Text屬性為Bindable，Display Bindable，Default Bindable，和Request Edit。然后點Refresh按鈕刷新類型庫，最后選Run | Register ActiveX Server注冊ActiveX控件。

    再引入新的EditX ActiveX控件，就會發現它確實實現了數據綁定的功能，下面就是一個使用了數據明了的EditX的程序的運行示意圖1.17，(Delphi的ActiveX數據明了功能的實現的確簡單很COOL，不是嗎？。