Session

Delphi的数据库应用程序能自 动提供一个Session组件，这个Session组件即为应用程序与BDE的接口。

1.检测别名
　　通过调用Session.GetAliasNames(list:Tstrings) 方法，可将当前BDE配置中的所有数据库别名的名称存放到List字符串列表中。list.IndexOf(需要检测的别名)的值会告诉我们这个别名是否 存在(其值为-1时不存在）。

2.增加一个新的别名
　　Session组件的过程AddStandardAlias(constName,Path,DefaultDriver:string),可以增加一个标准类型的数据库别名。例如增加一个名为Cntssamp，缺省数据库驱动程序为PARADOX、存 放路径为c:/delphp11的别名：

Session.AddStandardAlias(Cntssamp,c:/delphp11,Paradox);

3.BDE配置文件存盘

Session.SaveConfigFile;

二、数据库中表格的定义和检测方法
　　数据库中表格的定义、 维护和使用，只有在数据库别名正确设置的情况下才有意义。以TTable组 件为例，必须设置其DatabaseName为一个实际存在的别名。

1.检测表格是否存在
　　通过调用Session.GetTableNames(constDatabaseName,Pattern:string;
Extensions,SystemTables:Boolean; List:TStrings)方法，可将当前指定数据库? 中所有表格的名称存放 到List字符串列表中。list.IndexOf(需要检测的表格名)的值会告诉 我们这个表格是否存在(其值为1时不存在）。

Session.GetDatabaseNames(cbb1.Items)将数据库名自动填充组合框

2.建立一个表格
　　第一步，设置TTable组件的DataBase Name(别名)、TableName(表格名)、TableType(数据库类型);
　　第二步，调用Table.FieldDefs.Add(constName:string;DataType:FieldType;Size:Word;Required:Boolean)增加表格的各个字段，其中Name为字段名，DataType为字段类型（常用的有ftInteger,ftString,ftDate,ftBoolean等）,Size为字段长度，Required为该字段是否允许有空值。
　　第三步，调用Table.IndexDefs.Add(const Name,Fields:string;Options:TIndexOptions)方法增加表格的索引文件，其中Name为索引文件名，Fields为索引字段，options为索引参数 的集合，常用的索引参数有ixPrimary(主键）、ixDescending(降序)、ixUnique( 具有唯一值）等。
第四步，调用Table.CreateTable 建立表格。