第十五章 數(shù)據(jù)訪問部件的應(yīng)用及編程（一）-文庫吧
2025-08-02 15:31 本頁面
【正文】 數(shù)值，如 BDE 所在的目錄路徑以及實際名稱等。 GetDatabaseNames 方法：調(diào)用該方法可以幫助我們獲得當前應(yīng)用程序可以進行連接的所有數(shù)據(jù)庫的名字，數(shù)據(jù)庫的名字是用戶使用 BDE 工具定義的實際數(shù)據(jù)庫的別名。 GetDriverNames 方法：數(shù)據(jù)庫引擎 BDE 可以與多種數(shù)據(jù)庫管理系統(tǒng)相連接，如客戶 /服務(wù)器數(shù)據(jù)庫管理系統(tǒng) Oracle、 Sybase 以及本地數(shù)據(jù)庫管理系統(tǒng)dBASE,Paradox 等， BDE 與每一種數(shù)據(jù)庫管理系統(tǒng)進行連接時，都有相應(yīng)的驅(qū)動程序，而且這些驅(qū)動程序都可以選擇地安裝。通過調(diào)用 GetDriverNames 方法。我們可以獲得當前 BDE 安裝的數(shù)據(jù)庫驅(qū)動程序的名字。 GetDriverParams 方法： BDE 的數(shù)據(jù)庫驅(qū)動程序中包含著多個參數(shù)，如支持的民族語言、 DBMS 的版本號、文件塊大小等，對于服務(wù)器上的 DBMS，還有數(shù)據(jù)庫服務(wù)器的名字等等。 GetTableNames 方法：因為每一個數(shù)據(jù)庫都是由多個數(shù)據(jù)庫表組成的，我們通過說明數(shù)據(jù)庫名，然后調(diào)用 GetTableNames 方法，便可以獲得該數(shù)據(jù)庫中全部的數(shù)據(jù)庫表的名字。 上述這些方法在調(diào)用時都需要一個字符串列表作為參數(shù)， 而且都返回一個字符串列表的值。 TSession 部件還有一個叫 DropConnections 的方法用于控制應(yīng)用程序與數(shù)據(jù)庫的連接，當調(diào)用 DropConnections 方法時，應(yīng)用程序與所有的數(shù)據(jù)庫的連接將會切斷。 TSession 部件應(yīng)用舉例 例 ：我們創(chuàng)建一個應(yīng)用程序，通過調(diào)用 TSession 有關(guān)的方法獲取當前應(yīng)用程序可以進行連接的數(shù)據(jù)庫的名字以及獲取其中任意一個數(shù)據(jù)庫中的全部數(shù)據(jù)庫表的名字。 通過 TSession 部件獲取數(shù)據(jù)庫的有關(guān)信息 窗體中主要使用了兩個列表框，其中列表框 DatabaselistBox 用 于顯示數(shù)據(jù)庫的名字，列表框 TablelistBox 用于顯示數(shù)據(jù)庫中的表名。程序運行完后數(shù)據(jù)庫的名字顯示在 DatabaselistBox 列表框中，當用戶單擊 DatabaselistBox 列表框中的數(shù)據(jù)庫名時，該數(shù)據(jù)庫全部的數(shù)據(jù)庫表的名字將會顯示在 TablelistBox 列表框中。有關(guān)的程序代碼如下： 程序清單 unit unit31。 interface uses SysUtils, Windows, Messages, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, DB, DBTables, Buttons, ComCtrls, Tabnotbk。 type TQueryForm = class(TForm) BitBtn1: TBitBtn。 DataSource1: TDataSource。 Table1: TTable。 GroupBox1: TGroupBox。 CheckBox1: TCheckBox。 CheckBox2: TCheckBox。 PageControl1: TPageControl。 TabSheet1: TTabSheet。 Label1: TLabel。 Label2: TLabel。 Label3: TLabel。 ListBox1: TListBox。 ListBox2: TListBox。 ListBox3: TListBox。 TabSheet2: TTabSheet。 Memo1: TMemo。 procedure FormCreate(Sender: TObject)。 procedure ListBox1Click(Sender: TObject)。 procedure ListBox2Click(Sender: TObject)。 end。 var QueryForm: TQueryForm。 implementation {$R *.DFM} uses RSLTFORM。 procedure (Sender: TObject)。 begin := crHourglass。 { Populate the alias list } with ListBox1 do begin 。 (Items)。 end。 { Make su
公司管理相關(guān)推薦
鄂ICP備17016276號-1