在開發
資料庫軟體的過程中，由於實際需求不斷發生變化，資料庫結構也將隨之改變，這會給文檔更新工作帶來很大困難。如果能夠用軟體自動獲得資料庫的結構資訊並生成報告檔，將減輕軟體的文檔工作量。
1 TSession對象
為了管理應用程式與資料庫系統的多重連接，Delphi提供了TSession物件。Delphi中的資料訪問物件(Data Access Object)均包含Session屬性，用來指向與之對應的TSession物件。如果應用程式需要同時建立對資料庫系統(尤其是BDE資料庫)的多個連接，就必須定義多個TSession物件，屬於不同連接的資料訪問物件的Session屬性不能相同，否則將無法同時使用。
在資料庫應用程式運行時，Delphi會自動生成一個缺省TSession物件，名字為Session，資料訪問物件在缺省情況下均與之相連。
TSession物件除了自動管理資料庫連接外，還能夠取得資料庫資訊。下面就分別介紹這方面的函數。
2 獲取資料庫別名資訊
TSession物件在獲取資料庫別名方面有3個函數/過程：
以下是引用片段：
procedure TSession.GetAliasNames(List: TStrings);
procedure TSession.GetAliasParams(const AliasName: string; List: TStrings);
function TSession.GetAliasDriverName(const AliasName: string): string;
GetAliasNames用來獲得所有的BDE別名名稱，結果保存在變數List中;GetAliasParams用來獲得某個BDE別名的參數，結果保存在變數List中;GetAliasDriverName用來取得某個BDE別名使用的資料庫驅動程式的名字。
這3個函數不太複雜，就不多加介紹了。一般情況下，我們只需要使用GetAliasNames即可。
3 獲取資料表資訊
在知道了資料庫別名後，如何取出該別名對應資料庫中包含的資料表呢?可以使用TSession物件中的 GetTableNames過程。該過程描述如下：
以下是引用片段：
procedure TSession.GetTableNames(const DatabaseName, Pattern: string;
各參數意義如下：
DatabaseName：資料庫別名;
Pattern：篩檢程式，用來過濾結果，可以使用通配符。比如“*.dbf”,“t*” 等。如果為空字串，則表示不需要過濾;
Extensions：為布林量，表示是否顯示資料表副檔名。該參數只對DBF和Par
adox資料庫有效;
SystemTables：為布林量，表示是否顯示系統資料表;
List：為返回結果，結果按字母順序排序。
4 獲取資料欄和索引資訊 在取得了資料表資訊後，應使用TTable物件訪問該資料表的具體資訊。對應函數如下：
以下是引用片段：
pro<!-- 正文頁網畫中畫廣告 -->cedure TDataSet.GetFieldNames(List: TStrings);
procedure TTable.GetIndexNames(List: TStrings);
GetFieldNames用來取得資料表中的各個功能變數名稱，GetIndexNames用來取得資料表中的各個索引名。
另外，可以進一步使用TDataset和TTable中的兩個屬性TDataSet.FieldDefs.Items[] 和 TTable.IndexDefs.Items[]來訪問具體的資料欄資訊和索引資訊。它們分別是由TFieldDef和TIndexDef組成的陣列。
TFieldDef描述如下：
TIndexDef描述如下：
TFieldType定義如下：
以下是引用片段：
TFieldType = (ftUnknown, ftString, ftSmallint, ftInteger, ftWord, ftBoolean,
ftFloat,ftCurrency, ftBCD, ftDate, ftTime, ftDateTime, ftBytes, ftVarBytes,
ftAutoInc,ftBlob, ftMemo, ftGraphic, ftFmtMemo, ftParadoxOle, ftDBaseOle,
ftTypedBinary,ftCursor);
TIndexOptions定義如下：
以下是引用片段：
TIndexOptions = set of (ixPrimary, ixUnique, ixDescending, ixExpression, ixCaseInsensitive);
它們的具體意義可以參見Delphi幫助。
設為首頁
加入收藏
