程式師世界 >> 編程語言 >> 更多編程語言 >> Delphi >> Delphi演示Session的強大功能-Session獲取BDE信息

Delphi演示Session的強大功能-Session獲取BDE信息

編輯：Delphi

Delphi中的session功能也是很強大的，本例演示了使用Session獲取BDE信息，將得到驅動器信息、獲取數據庫信息、獲取表格名稱以及得到數據庫的字段信息，如果實現的呢？就請參閱下面的代碼：

Delphi通過Session獲取BDE信息
Delphi獲取BDE信息運行截圖

Delphi演示Session的強大功能-Session獲取BDE信息，完整代碼：

vIEw source

print? 01 unit Unit1; 02 interface 03 uses 04 Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, 05 Dialogs, StdCtrls, Buttons,DBTables;//, DB; (只要有DBTables就行了) 06 type 07 TForm1 = class(TForm) 08 ListBox1: TListBox; 09 Button2: TButton; 10 Button1: TButton; 11 Button4: TButton; 12 Button3: TButton; 13 procedure Button2Click(Sender: TObject); 14 procedure Button1Click(Sender: TObject); 15 procedure Button4Click(Sender: TObject); 16 procedure Button3Click(Sender: TObject); 17 private 18 { Private declarations } 19 public 20 { Public declarations } 21 end; 22 var 23 Form1: TForm1; 24 implementation 25 {$R *.dfm} 26 procedure TForm1.Button2Click(Sender: TObject); 27 var DatabaseNames:TStringList; 28 Begin 29 DatabaseNames := TStringList.Create; 30 try 31 Session.GetDatabaseNames(DatabaseNames); //獲取BDE中的數據庫名 32 ListBox1.Items := DatabaseNames; //顯示在列表框中 33 finally 34 DatabaseNames.Free; //清空字符列表 35 end; 36 end; 37 procedure TForm1.Button1Click(Sender: TObject); 38 var DriverParams:TStringList; 39 begin 40 DriverParams := TStringList.Create; 41 try 42 Session.GetDriverParams('IntrBase', DriverParams); //獲取指定驅動器信息 43 ListBox1.Items := DriverParams; //顯示在列表框中 44 finally 45 DriverParams.Free; //清空字符列表 46 end; 47 end; 48 procedure TForm1.Button4Click(Sender: TObject); 49 Var fIEldnames:TStringList; 50 begin 51 fIEldnames:= TStringList.Create; 52 try 53 session.GetFIEldNames('DBDEMOS','employee.db',fIEldnames);//獲取指定表格的字段信息 54 ListBox1.Items:=fIEldnames; //顯示在列表框中 55 finally 56 fIEldnames.Free; //清空字符列表 57 end; 58 end; 59 procedure TForm1.Button3Click(Sender: TObject); 60 var TableNames:TStringList; 61 begin 62 TableNames := TStringList.Create; 63 try 64 Session.GetTableNames('DBDEMOS', '*.db',False, False,TableNames); //獲取指定數據庫中的表格名 65 ListBox1.Items:=TableNames; //顯示在列表框中 66 finally 67 TableNames.Free; //清空字符列表 68 end; 69 end; 70 end.

Delphi