开发工具delphi（Delphi开发工具中如何访问数据库结构[2]）

：暂无数据 2026-07-26 16:50:01 ：0

大家好,今天小编来为大家解答以下的问题，关于开发工具delphi，Delphi开发工具中如何访问数据库结构[2]这个很多人还不知道，现在让我们一起来看看吧！

本文目录

Delphi开发工具中如何访问数据库结构[2]
DELPHI基础教程：开发Delphi对象式数据管理功能（五）[4]
Delphi程序开发特点分析
delphi是做什么用的数据库开发工具编程语言
Delphi开发工具中如何访问数据库结构[1]

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

　　 获取数据域和索引信息

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

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

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

　　另外可以进一步使用TDataset和TTable中的两个属性TDataSet FieldDefs 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 {取得表中字段名及索引名} 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 /

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

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

lishixinzhi/Article/program/Delphi/201311/8543

DELPHI基础教程：开发Delphi对象式数据管理功能（五）[4]

　　 BLOB字段与文本

　　Delphi BLOB字段中增加了大型文本的处理能力可以在TBlobField和Strings中自由地交换数据

　　procedure TBlobField LoadFromStrings（Strings: TStrings）

　　var

　　BlobStream: TBlobStream;

　　begin

　　BlobStream := TBlobStream Create（Self bmWrite）

　　try

　　Strings SaveToStream（BlobStream）

　　finally

　　BlobStream Free;

　　end;

　　procedure TBlobField SaveToStrings（Strings: TStrings）

　　var

　　BlobStream: TBlobStream;

　　begin

　　BlobStream := TBlobStream Create（Self bmRead）

　　try

　　Strings LoadFromStream（BlobStream）

　　finally

　　BlobStream Free;

　　end;

　　 BLOB字段与Stream对象

　　因为Delphi中 BLOB字段是通过BLOB流来访问的所以可以很容易地在BLOB字段和Stream对象之间传递数据为此 TBlobField对象提供了LoadFromStream和SaveToStream方法

　　procedure TBlobField LoadFromStream（Stream: TStream）

　　var

　　BlobStream: TBlobStream;

　　begin

　　BlobStream := TBlobStream Create（Self bmWrite）

　　try

　　BlobStream CopyFrom（Stream ）

　　finally

　　BlobStream Free;

　　end;

　　procedure TBlobField SaveToStream（Stream: TStream）

　　var

　　BlobStream: TBlobStream;

　　begin

　　BlobStream := TBlobStream Create（Self bmRead）

　　try

　　Stream CopyFrom（BlobStream ）

　　finally

　　BlobStream Free;

　　end;

　　 存取嵌入在OleContainer对象中的OLE服务器的数据

　　对象链接和嵌入（Object Linking and Embedding 简称OLE）是一组服务功能它提供了一种用来源于不同应用程序的信息创建复合文档的强有力方法

　　通过把图像图形表格声音注解文件和其它表示手段描述成对象用它能在不同软件厂家提供的应用程序中更为容易地交换合成和处理数据它是应用程序的集成更为容易 OLE 支持直观用户不需切换到不同窗口就能在文档中直接对对象进行操作改进了操作环境用户不用再关注应用程序和操作环境只需关注于使用对象技术的数据和文件便能完成全部工作

　　OLE已成为操作系统功能上的一大标准各大软商纷纷在开发工具中支持OLE 规范 Delphi 提供了OleContainer对象支持OLE窗户应用程序的开发

　　尽管通过OLE可以用来源于不同应用程序的信息创建复合文档充分体现以任务以文档为中心的思想但是很难分解来自其它应用程序中的嵌入数据以进行特殊的处理

　　例如一套多媒体电子文档管理系统系统需要数据库管理功能文档功能全文检索功能等在文档功能的实现上如果能利用中文Word 或写字板之类的强大的排版功能就可以省却重新开发一个文档的费用使用具有直观的OLE复合文档嵌入Word的DOC数据或RTF数据当然是最佳的选择但问题在于全文检索系统要求能直接在文档中搜索关键字因此要求将文档数据从OLE嵌入数据或文档中的本地数据中分离出来

　　Delphi 的OleContainer部件支持存储OLE对象数据 OLE对象数据包括两部分 OLE类描述信息和OLE服务器嵌入数据一般说来 OLE服务器嵌入数据是以服务器支持的数据格式存储的比方说中文Word 的嵌入数据的格式就是Word 文档的格式因此要将文档数据从OLE 嵌入式文档中分离出来就是要访问第二部分数据

　　我们分析了Delphi 的OleContainer对象存取复合文档的程序得到分离数据的方法

　　让我们来看一段OleContainer对象存储数据的程序

　　procedure TOleContainer SaveToStream（Stream: TStream）

　　var

　　DataHandle: HGlobal;

　　Buffer: Pointer;

　　Header: TStreamHeader;

　　R: TRect;

　　……

　　begin

　　……

　　try

　　……

　　if FOldStreamFormat then

　　begin

　　R := BoundsRect;

　　Header PartRect Left := R Left;

　　Header PartRect Top := R Top;

　　Header PartRect Right := R Right;

　　Header PartRect Bottom := R Bottom;

　　end else

　　begin

　　Header Signature := StreamSignature;

　　Header DrawAspect := FDrawAspect;

　　end;

　　Header DataSize := GlobalSize（DataHandle）

　　Stream WriteBuffer（Header SizeOf（Header））

　　Buffer := GlobalLock（DataHandle）

　　try

　　Stream WriteBuffer（Buffer^ Header DataSize）

　　finally

　　GlobalUnlock（DataHandle）

　　end;

　　finally

　　ReleaseObject（TempStorage）

　　ReleaseObject（TempLockBytes）

　　end;

　　程序中 OleContainer对象执行了两次往流中写数据的操作

　　Stream WriteBuffer（Header Size（Header））

　　Stream WriteBuffer（Buffer^ Header DataSize）

　　前一语句是写入OLE类描述信息后一句语句是写入OLE服务器的嵌入数据 Header是TStreamHeader记录类型的变量 TStreamHeader记录的定义如下

　　TStreamHeader = record

　　case Integer of

　　 : （ { 新版OLE对象 }

　　Signature: Integer;

　　DrawAspect: Integer;

　　DataSize: Integer）

　　 : （ { 旧版OLE对象 }

　　PartRect: TSmallRect）

　　end;

　　因此读OLE服务器嵌入数据时要跳过文件头的TStreamHeader记录下面就是如何分离OLE服务器嵌入数据的程序

　　var

　　Stream : TMemoryStream;

　　FileStream : TFileStream;

　　begin

　　Stream := TMemoryStream Create;

　　FileStream := TFileStream Create（ TEST DOC fmCreate） ;

　　with OleContainer do

　　if （State 《》 osEmpty） then

　　SaveToStream（Stream）

　　Stream Seek（Sizeof（TStreamHeader））

　　FileStream CopyFrom（Stream Stream Size SizeOf（TStreamHeader））

　　Stream Free;

　　FileStream Free;

　　end;

　　OleContainer 包含的服务器对象是中文Word 程序中将分离出的数据存储在磁盘文件 TEST DOC 上如果希望存储在不同的媒介上可以使用相应的Stream对象分离的方法类似但是这种方法并非对所有的OLE服务器数据都适用如Windows 附件中的写字板（WordPad）就不行

　　 返回目录 DELPHI基础教程

Delphi程序开发特点分析

1．引言
我们经常会问这样的问题“:到底什么使得Delphi如此优秀?”和“为什么和别的编程工具相比，我更愿意选择Delphi?”等等。简而言之就是:高效性。决定一个软件开发工具效率的因素归结为以下五点：①可视化开发环境的性能。②编译器的速度和已编译代码的效率。③编程语言的功能及其复杂性。④数据库结构的灵活性和可扩展性。⑤框架对设计和使用模式的扩充。
2．Del phi的特点
2.1可视化集成开发环境
可视化开发环境通常分为三个组成部分:器、调试器和窗体设计器。和大多数现代RAD(快速应用开发)工具一样，这三部分是协同工作的。当你在窗体设计器中工作时，Delphi在后台自动为你正在窗体中操纵的控件生成代码。你还可以自己在器中加入代码来定义应用程序的行为，同时还可以在同一个器中通过设置断点和监控点等来调试程序。
在版本5里，Delphi的调试器具备了许多先进的功能，如远程调试、过程关联、DL断口包调试、自动本地监控以及CPU窗口等。Delphi还支持在调试时随意放置和停靠窗口并把这一状态保存为命令的桌面设置。由此，Delphi的IDE实现了对调试功能的良好支持。对RAD工具(如Delphi、Visual Basic、C++Builder和PowerBuilder等)来说，窗体设计器是一项独特的功能。一些更为经典的开发环境，如VC++和BC++，都提供了对话器，但却没有将窗体设计器集成到开发流程中，没有窗体设计器将会降低开发工具的整体效率。几年来，Delphi与Visual Basic在完善窗体设计器的功能方面展开了激烈的竞争。Delphi的窗体设计器的与众不同之处在于，Delphi是建立在一个真正面向对象的框架结构基础之上的。这样，你对基类所做的改变都将会传递给所有的派生类。这里涉及的一项关键技术就是VFI(visual form inheritance)，即可视化窗体继承。VFI技术使你能够动态地继承当前项目或对象库中的任何其他窗体。一旦基窗体发生改变，派生的窗体会立即予以更新。
2.2编译器的速度和已编译代码的效率
Pascal编译器最著名的特点就是速度快，而Delphi正是建立在这种编译器的基础之上的。事实上，它可能是针对windows的最快的高级语言本地代码编译器。以往速度很慢的C++编译器在近年来取得了很大的进步，增加了链接和各种缓存策略，尤其是在VISua1C++和C++Builder中。但即便如此，C++的编译器还是比Delphi的慢了几倍。Delphi和C++Builder共享同一种编译器后端，是一个公司的产品，因此生成的代码等效于由一个优秀的C++编译器生成的代码。
2.3编程语言的功能及其复杂性
C++是非强类型语言，有些错误编译器无法发现。Object Pascal和Java很相似，它们很好地把握住了复杂性和功能性的平衡。它们都采取了这样一种途径，即限制其可用功能以加强开发者的逻辑设计。例如，两者都避免了完全面向对象但却容易被滥用的多重继承的观念，而是实现了一个执行多重接口功能的类。两者都不支持美观却危险的操作符加载。两者都有一些强大的功能，诸如异常处理、运行期类型信息(RTT工)和生存期内存自管理字符串。特别是运行期类型信息(RTTI)，对我们设计仿真培训系统中的操作站与现场站很重要，用它我们可根据组态数据库的数据在运行期自动创建组件和自动识别组件而赋给相应的数据。同时，Delphi使用编程语言是Object Pascal，是面对对象、强类型语言。有利编制稳健的应用程序，减少调试、检错时间以提高开发效率；有利描述真实世界的事物和系统，如控制系统、工艺数学模型。
2.4数据库结构的灵活性和可扩展性
由于Borland缺少一种数据库计划，因此Delphi保留了我们认为是所有工具中最灵活的数据库结构。对大多数基于本地、客户服务器和ODBC数据库平台的应用程序来说，BDE的功能都非常强大。如果你对此不满意，可以避开使用BDE以支持新的本地ADO组件。如果你没有装ADO，可以自己创建数据访问类或者购买第三方数据访问解决方案。此外，MIDAS使对数据源的多层访问更易于实现。而Microsoft的工具(ODBC、OLEDB或者其他)从逻辑上来说趋向于支持Mi-crosoft自己的数据库和数据访问解决方案。
2.5框架对设计和使用模式的扩充
这是一项经常被其他软件设计工具忽略了的重要功能。VCL是Delphi最重要的组成部分。在设计时操纵组件、创建组件、使用面向对象技术继承其他组件的行为，这些能力都是决定Delphi效率的关键因素。在许多场合，编写VCL组件都采用固定的00设计方法。相比之下，其它基于组件的框架经常过于死板或过于复杂。比如ActiveX控件具有和VCL控件相同的设计期性能，但却不能被继承以创建一个具有其他不同行为的新类。传统的类框架，如OWL和MFC，需要你有大量的内部结构知识，而且如果没有RAD工具的设计期支持，其功能将会受到抑制。
3．Del phi的事件驱动机制
3.1无约定编程
与传统的Windows消息机制相比，Delphi的事件处理机制的最大优势在于所有的事件都是无约定的。对程序员而言，无约定就是指可以在事件处理程序中什么都不干。而在传统的Windows消息机制中，就不得不调用基类的消息处理程序，还要把信息回传给Windows。当然，Delphi的事件处理机制的无约定的编程方式可能无法对消息进行直接的灵活有效的处理，你要受制于谁引发了这一事件以及应用程序对这一事件要做出什么响应等。例如，可以在OnKeyPress处理程序中修改和取消击键，但onResize事件处理程序却只能提供这一事件已发生的通知而无法进一步防止或控制尺寸的改变。
不过，Delphi仍然允许在事件处理程序中直接处理Windows消息。只是这就不像事件处理机制那么简单，因为消息处理需要程序员对要处理的消息有详细了解。可以通过message这个关键字处理所有Windows消息。使用Delphi开发应用程序的好处是，你既可以用高级的、易于理解的方式来编程，也可以在需要时直接访问低层的信息。
3.2 Delphi的VCL消息系统
所有的Delphi类有一个处理消息的内置机理，称之为消息处理方法或者Message handlers。Message handlers的基本思想就是:类获取一些种类的消息，然后再分发(dis-patch)它们，由响应的处理函数或者过程进行处理(调用哪一个处理函数或过程取决于所接受的消息)。对于一个特殊的消息，如果没有一个指定的方法存在的话，则由一个缺省的消息处理。
VCL定义了消息分发系统，该系统将所有的windows消息(包括用户定义的消息)传递给相应的对象，由各对象的消息分发系统进行处理。VCL对象用于接收消息的方法叫做MainWndProc()。通过MainWndProc()可以对消息进行任何特殊的处理。不过，一般情况下很少直接调用MainWndProc()来处理消息，除非不想让消息通过VCL的消息系统分发。从MainWndProc()返回后，消息被传递给对象的WndProc()方法，这就是该对象的窗体过程，然后进入VCL的分发机构。分发机构使用Dispatch()方法把消息分发给一个消息句柄。消息到达该消息的处理句柄(Handler)后，经过该句柄的处理，这个消息处理过程就结束了。没有必要改变这个消息分发机理，所要做的只是产生一个消息处理方法或者句柄，即一个消息处理函数。
3.3加速原型化
当对Delphi使用了一段时间后，即使你只是一个Delphi新手，你也会发现，用Delphi编写第一个项目就能马上获益:开发周期短、应用程序稳健。设计用户界面(UI)是许多windows程序员头疼的问题，而这恰好是Delphi的长处。用户界面的设计和程序的布局被称为原型化。在非可视化的开发环境中，应用程序的原型化经常比真正实现程序的时间还要长。一个简洁直观、令人愉悦的用户界面是应用程序的一大部分。
Delphi能够用它的自定义控件或自己开发的控件来快速建立您需要的用户界面。当你能熟练运用窗口、控件和事件响应方法以后，将发现过去要花很大精力的原型化工作现在大大简化了。同时，用Delphi开发的用户界面丝毫不比用传统的开发工具建立的用户界面逊色。在Delphi中你在设计期看到的往往就是最终的产品。
4．结束语
综上所述，大家可发现Delphi 5本身就是一个功能十分强大的面向对象开发平台，它的可视组件库VCL(VisualComponent Library)是一个易学、易用、高效的可重用的软件对象，还包含有丰富的数据库应用，通讯组件。Delphi自身就是使用VCL编写而成的;不仅界面开发方便迅速，而且对于系统所带组件和自编组件的运用就如同组态一样。只要将组件放置在窗体中，用鼠标移动到你要求的位置，改变某些属性以满足你的要求。

delphi是做什么用的数据库开发工具编程语言

严格的来说不算是个语言吧，算是一个工具。它里面用的是面向对象的pascal语言，是用来做系统的，像医院里的那些个收费系统啦，或者一些超市里面前台pos机用的

收银系统好多都是用delphi做的，不过现在已经不是社会的主流了，以前很流行的。

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

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

　　 TSession对象

　　为了管理应用程序与数据库系统的多重连接 Delphi提供了TSession对象 Delphi中的数据访问对象(Data Access Object)均包含Session属性用来指向与之对应的TSession对象如果应用程序需要同时建立对数据库系统(尤其是BDE数据库)的多个连接就必须定义多个TSession对象属于不同连接的数据访问对象的Session属性不能相同否则将无法同时使用

　　在数据库应用程序运行时 Delphi会自动生成一个缺省TSession对象名字为Session 数据访问对象在缺省情况下均与之相连

　　TSession对象除了自动管理数据库连接外还能够取得数据库信息下面就分别介绍这方面的函数

　　 获取数据库别名信息

　　TSession对象在获取数据库别名方面有个函数/过程

以下是引用片段　　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别名使用的数据库驱动程序的名字

　　这个函数不太复杂就不多加介绍了一般情况下我们只需要使用GetAliasNames即可

　　 获取数据表信息

　　在知道了数据库别名后如何取出该别名对应数据库中包含的数据表呢?可以使用TSession对象中的 GetTableNames过程该过程描述如下

以下是引用片段 procedure TSession GetTableNames(const DatabaseName Pattern: string;

　　各参数意义如下

　　DatabaseName 数据库别名;

　　Pattern 过滤器用来过滤结果可以使用通配符比如 * dbf t* 等如果为空字符串则表示不需要过滤;

　　Extensions 为布尔量表示是否显示数据表扩展名该参数只对DBF和Paradox数据库有效;

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

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

lishixinzhi/Article/program/Delphi/201311/8542