至顶网›软件频道 ›基础软件›Delphi开发工具中如何访问数据库结构

Delphi开发工具中如何访问数据库结构

本文探讨了Delphi开发工具中如何访问数据库结构的技术。从数据库别名信息的获取、数据表信息的获取、数据域和索引信息的获取……

作者：于海生姚微来源：计算机与信息技术 2007年10月31日

关键字：

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语言开发数据库软件管理系统，关键技术都已得到解决。

VIP用户

普通用户

邮件订阅

如果您非常迫切的想了解IT领域最新产品与技术信息，那么订阅至顶网技术邮件将是您的最佳途径之一。

重磅专题

往期文章

业界热点: