网站导航免费论文 原创论文 论文搜索 作业答案 网学软件 学术大家 资料中心 会员中心 问题解答 定作论文 论文素材 设计下载 最新论文 下载排行 论文上传 在线投稿 联系我们
返回网学首页
最新论文 推荐专题 热门论文 素材专题
当前位置: 网学 > 交易代码 > Delphi精品代码 > 正文
Delphi开发工具中如何访问数据库结构
来源:Http://myeducs.cn 联系QQ:点击这里给我发消息 作者: 佚名 来源: 网络 发布时间: 10/11/07

  在开发数据库软件的过程中,由于实际需求不断发生变化,数据库结构也将随之改变,这会给文档更新工作带来很大困难。如果能够用软件自动获得数据库的结构信息并生成报告文件,将减轻软件的文档工作量。

  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和Paradox数据库有效;

  SystemTables:为布尔量,表示是否显示系统数据表;

  List:为返回结果,结果按字母顺序排序。

  4 获取数据域和索引信息

  在取得了数据表信息后,应使用TTable对象访问该数据表的具体信息。对应函数如下:

以下是引用片段:
  procedure TDataSet.GetFieldNames(List: TStrings);
  procedure TTable.GetIndexNames(List: TStrings);

  GetFieldNames用来取得数据表中的各个域名,GetIndexNames用来取得数据表中的各个索引名。

  另外,可以进一步使用TDataset和TTable中的两个属性TDataSet.FieldDefs.Items 和 TTable.IndexDefs.Items来访问具体的数据域信息和索引信息。它们分别是由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帮助。

  5 应用实例

  使用下面的程序片段即可获得指定数据库中指定表的域定义和索引定义。ListBox1、ListBox2 和 ListBox3 为Form1中定义的三个列表框,用于显示结果。

以下是引用片段:
Var  Alias,TableName:String;
Table1:TTable;
Begin
Alias:=''fjs'';  TableName:=''d*'';    //初始化
Session.GetTableNames(Alias, {别名}
                      TableName, {过滤器}
                      True, {是否显示文件扩展名(对DBF) }
                      False, {是否显示系统表}
                      ListBox1.Items);
If ListBox1.Items.Count=0 then
  Begin
    MessageDlg(''数据库''+Alias+''中没有数据表''+TableName, mtError, [mbOK], 0 );
  Exit;
End;
Table1:=TTable.Create(nil);
Table1.DatabaseName :=Alias;
Table1.TableName := ListBox1.Items.Strings[0];
{取得表中字段名及索引名}
Table1.Open;
if Table1.Active then
begin
Table1.GetFieldNames(ListBox2.Items);
   Table1.GetIndexNames(ListBox3.Items);
end;
//… 此时结果在ListBox2和ListBox3中
//
Table1.Destroy;
end;

  6 小结

  通过上面讨论和实例证明,利用Delphi语言开发数据库软件管理系统,关键技术都已得到解决。

  参考文献

   (李维 编著).《DELPHI 7高效数据库程序设计》机械工业出版社2003.1

   郭旭等 著.《Delphi6应用开发指南》清华大学出版社2004.6

   大富翁http://www.delphibbs.com/

  • 上一篇资讯: [Delphi精品代码]
  • 网学推荐

    免费论文

    原创论文

    浏览:
    设为首页 | 加入收藏 | 论文首页 | 论文专题 | 设计下载 | 网学软件 | 论文模板 | 论文资源 | 程序设计 | 关于网学 | 站内搜索 | 网学留言 | 友情链接 | 资料中心
    版权所有 电话:013574892963 QQ:3710167 邮箱:Educs@163.com 网学网 [Myeducs.cn] 您电脑的分辨率是 像素
    Copyright 2008-2015 Www.myeducs.Cn All Rights Reserved
    湘ICP备09003080号