030-扩展数据库VCL.pdfVIP

下载 第3 0章 扩展数据库V C L 本章内容： • 使用B D E • dBASE 表 • Paradox表 • 扩展T D a t a S e t V C L ( Visual Component Library) 的数据库体系结构是用 BDE(Borland Database Engine) 通信的， B D E是一个强大且可靠的数据库中间件。 V C L就好像你与数据库之间的绝缘体，它使你可以按相同的 方式访问不同类型的数据库。尽管这增加了可靠性、可伸缩性和易用性，但有一个不足： B D E 的许多 功能无法在V C L 的数据库框架中实现。这一章就介绍怎样与 B D E 或其他数据源直接通信，相当于扩展 了V C L 。 30.1 使用BDE 当你要编写一个直接访问B D E 的应用程序时，有一些规则需要记住。这一节就介绍怎样从 D e l p h i 应用程序中直接调用BDE API 。 30.1.1 BDE单元 所有B D E 的函数、类型和常量都是在B D E单元中定义的。凡是要直接调用 BDE API 的单元一定要 引用B D E单元。另外，B D E单元的接口部分是B D E . I N T文件，这个文件可以在..\Delphi 5\Doc 目录中找 到。可以利用这个文件来访问一些函数和记录。 提示 为了获得更多帮助，建议你打开位于\Program Files\Borland\Common Files\BDE 目录中 BDE32.hlp帮助文件。这个帮助文件中包含了所有BDE API 的详细说明以及很好的Object Pascal 和C语言的例子。 30.1.2 Check() 所有B D E 函数都返回一个D B I R E S U LT类型的值，以表明函数调用是成功还是失败。每次都要检 查函数的返回值是很讨厌的，为此， D e l p h i定义了一个过程叫 C h e c k ( ) ，它需要传递一个D B I R E S U LT 类型的参数。如果B D E 函数没有调用成功，C h e c k ( )就会触发异常。下面的代码演示了应当怎样来调用 B D E 函数： // 不应当这样调用 v a r R e z : D B I R E S U LT; A : A R R AY[0..dbiMaxUserNameLen] of Char; b e g i n Rez:=dbiGetNetUserName(A); // 调用B D E函数 if RezDBIERR_NONE then // 处理错误 第3 0章 扩展数据库 VCL 1 0 4 5 下载 // 在这里处理错误 else begin // 继续做其他事情 e n d ; e n d ; // 应当这样调用B D E函数 v a r A:array[0..dbiMaxUserNameLen] of Char; b e g i n { 处理错误和调用在同一行代码中进行。} { 如果有错误，将触发异常 } C h e c k ( d b i G e t N e t U s e r N a m e ( A ) ) ; // 继续做其他事情 e n d ; 30.1.3 指针和句柄 许多B D E 函数需要传递数据库指针的句柄作为参数。大致说来，指针是一种 B D E对象，它代表数 据库的某个位置。指针句柄的类型是 h B D I C u r 。在D e p h i 的项目表、查询和存储过程中，指针对应着当 前记录。T Ta b l e 、T Q u e r y和T S o r e d P r o c 的H a