精华公布栏

发信人: lofe ()感激生活(), 信区: BorlandDev
标  题: 在Delphi中自动检测、建立数据库别名和表格 (转贴)
发信站: 哈工大紫丁香 (Mon Sep  4 16:16:45 2000), 转信

在Delphi中自动检测、建立数据库别名和表格

---- Delphi3 内建的Borland 数据库引擎(BDE)，使Delphi3 程序能通过数据库别名(Database Alias) 十分方便地访问各种类型的数据库。然而，数据库别名的建立、修改、删除等维护工作，需要在 BDE Administrator 中进行，数据库中实
际表格结构的建立和维护，有时也要在DataBase Desktop 中完成，这给用户增加了不少困难。有没有办法让用户不去执行BDE Administrator 和DataBase Desktop 这两个应用程序，就可直接检测、建立数据库别名和
库中的表格呢？笔者通过探索，得到了一种可行的方案，现以笔者所开发的一个单机版的图书资料管理系统为例，简要加以说明。

一、数据库别名(Alias) 的定义和检测方法
---- 当Type 为STANDARD 时, 别名定义最为简单，这时仅能采用PARADOX, DBASE,ASCIIDRV 三种数据库作为缺省的驱动程序(DEFAULT DRIVER)。

---- 另外，还要定义数据库存放路径(PATH) 和ENABLE BCD，才能建立一个完整的数据库别名。

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

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

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

---- 3.BDE 配置文件存盘
---- Session.SaveConfigFile;

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

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

---- 2. 建立一个表格
---- 第一步，设置TTable 组件的DataBase Name( 别名)、TableName ( 表格名)、TableType( 数据库类型);
---- 第二步，调用Table.FieldDefs.Add(const Name: string; DataType: TFieldType; 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 建立表格。

三、一个实例
---- 在Form1.Formcreate 事件中写入如下代码，程序启动时，将自动检测是否存在数据库别名Cntssamp，如果没有则建立之；自动检测别名Cntssamp 中是否存在表格TSK( 图书库)，如果没有则自动建立表格TSK。
procedure TForm1.FormCreate(Sender: TObject);
var
牋 ap:TStringList;牋 {字符串列表变量}
牋 answer:Integer;
begin
牋 ap:=TStringlist.Create;
牋 Session.GetAliasNames(ap);牋 {取得别名列表}
牋 if (ap.IndexOf('Cntssamp')=-1) then牋 {判断别名是否存在}
牋 begin
牋牋� answer:=Application.MessageBox('别名Cntssamp不存在，现在创建吗？','BDE信息窗口',mb_OKCancel);
牋� {增加一个名为Cngzsamp的数据库别名}
牋牋� if� answer=IDCANCEL then
牋牋� begin
牋牋牋牋� ap.Free;
牋牋牋牋� Exit;
牋牋� end;
牋牋� Session.AddStandardAlias('Cntssamp','c:\delphp11','Paradox');
牋牋� Session.SaveConfigFile;牋� {BDE配置文件存盘}
牋 end ;

牋� ap.Clear;牋牋� {取得别名Cngzsamp中的所有表格名称列表}
牋� Session.GetTableNames('Cntssamp','',False,False,ap);
牋� if (ap.IndexOf('TSK')=-1)� then� {判断表格是否存在}
牋� begin
牋牋牋 answer:=Application.MessageBox( '别名Cntssamp中不存在表格TSK,现在创建吗？','表格信息窗口',mb_OKCancel);
牋牋牋 if answer=IDCANCEL then
牋牋牋 begin
牋牋牋牋� ap.Free;
牋牋牋牋� Exit;
牋牋� end;

牋牋� with table1 do
牋牋� begin
牋牋牋牋 Active:=false;
牋牋牋牋 DatabaseName:='Cntssamp'; 牋� {数据库别名}
牋牋牋牋 TableName:='TSK'; 牋牋牋牋牋� {表格名}
牋牋牋牋 TableType:=ttParadox; 牋牋牋� {数据库类型}
牋牋牋牋 with FieldDefs do
牋牋牋牋� begin 牋牋� {增加字段}
牋牋牋牋牋牋� Clear;
牋牋牋牋牋牋� Add('SH',ftString,30,False); � {书号 String(30)}
牋牋牋牋牋牋� Add('SM',ftString,30,False); � {书名 String(30)}
牋牋牋牋牋牋� Add('CBS',ftString,20,False); {出版社 String(20)}
牋牋牋牋牋牋� Add('CBRQ',ftDate,0,False); 牋 {出版日期 Date}
牋牋牋牋牋牋� Add('YS',ftInteger,0,False); 牋 {页数 Integer}
牋牋牋牋 end;

牋牋牋牋 with IndexDefs do
牋牋牋牋 begin牋牋� {增加索引}
牋牋牋牋牋� Clear; 牋牋牋牋牋牋牋牋牋牋� {按书号字段建立主索引}
牋牋牋牋牋� Add('SHSY','SH',[ixPrimary,ixUnique]);
牋牋牋牋 end;

牋牋牋� CreateTable;牋牋� {创建表格}
牋牋 end;
牋 end ;
牋 ap.free;牋牋牋牋牋� {释放变量ap}
end;

------------------------------------------------------------------------

中国计算机世界出版服务公司版权所有

--
※ 修改:．haojs 于 Sep  4 16:11:18 修改本文．[FROM: bbs.hit.edu.cn]
--
※ 转寄:．武汉白云黄鹤站 bbs.whnet.edu.cn．[FROM: bbs.hit.edu.cn]

--
☆ 来源:．哈工大紫丁香 bbs.hit.edu.cn．[FROM: haojs.bbs@bbs.whnet.]