知识大全 Delphi开发工具中如何访问数据库结构[2]

Posted 2022-07-14 片段

篇首语：一知半解的人，多不谦虚;见多识广有本领的人，一定谦虚。本文由小常识网(cha138.com)小编为大家整理，主要介绍了知识大全 Delphi开发工具中如何访问数据库结构[2]相关的知识，希望对你有一定的参考价值。

Delphi开发工具中如何访问数据库结构[2] 以下文字资料是由(全榜网网www.cha138.com)小编为大家搜集整理后发布的内容，让我们赶快一起来看一下吧！

　　 获取数据域和索引信息

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

以下是引用片段　　procedure 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帮助

　　 应用实例

　　使用下面的程序片段即可获得指定数据库中指定表的域定义和索引定义 ListBox ListBox 和 ListBox 为Form 中定义的三个列表框用于显示结果

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

　　小结

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

　　参考文献

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

　　[ ] 郭旭等著《Delphi 应用开发指南》清华大学出版社

　　[ ] 大富翁// delphibbs /

　　收稿日期月日修改日期月日

　　作者简介于海生男年生于辽宁省丹东市黑龙江大庆人年毕业于辽宁化工大学计算机科学与技术专业助理工程师研究方向为钻井计算机软件开发与应用

cha138/Article/program/Delphi/201311/8543