19.3 Delphi部件编程实例
19.3.1 创建数据库相关的日历控制－TDBCalendar
当处理数据库联接时，将控制和数据直接相联是很重要的。就是说，应用程序可以建立控制与数据库之间的链。Delphi包括了数据相关的标签、编辑框、列表框和栅格。用户可以使自己的控制与数据相关。
数据相关有若干等级。最简单的是只读数据相关或数据浏览，以及反映数据库当前状态的能力。比较复杂的是数据相关的编辑，也即用户可以在控制上操作数据库中的数据。
在本部分中将示例最简单的情况，即创建联接数据库的单个字段的只读控制。本例中将使用Component Palette的Samples页中的TCalendar部件。
创建数据相关的日历控制包括下列几步：
● 创建和注册部件
● 使控制只读
● 增加数据联接(Data Link)
● 响应数据改变
19.3.1. 1创建和注册部件
每个部件的创建都从相同的方式开始，在本例中将遵循下列过程：
● 将部件库单元命名为DBCal
● 从TCalendar继承一个新部件，名为TDBCalendar
● 在Component Palette的Samples页中注册TDBCalendar
下面就是创建的代码：
unit DBCal;
interface
uses SysUtils, WinTypes, WinProc, Messages, Classes, Graphics, Controls,
Forms, Grids, Calendar;
type
TDBCalendar=class(TCalendar)
end;
procedure ReGISter;
implementation
procedure Register;
begin
RegisterComponents(Samples，[TDBabendar]);
end;
end.
19.3.1.2 使控制只读
因为这个数据日历以只读方式响应数据，所以用户不能在控制中改变数据并指望它们反映到数据库中。
使日历只读包含下列两步：
● 增加只读属性
●
文章整理：西部数码--专业提供域名注册、虚拟主机服务
http://www.west263.com
以上信息与文章正文是不可分割的一部分,如果您要转载本文章,请保留以上信息，谢谢!
