TMS TDBPlanner的使用介绍

TMS TPlanner and TDBPlanner日程与日历组件主要用来设计各种不同类型的计划日程应用程序。该组件已连续3年获得“Delphi Informant杂志读者选择奖”的最佳日程与日历组冠军。但是该组件唯一的缺点就是缺少帮助文件，只有一个英文的TMS Planner developers guide 使用文档。演示程序也不是很详细。近来因需要研究了一下TDBPlanner，感觉确实是很棒的组件，无须写太多代码就可以很轻松的将数据库与TDBPlanner绑定，直接在TDBPlanner上对数据库进行操作。下面就将一些使用心得介绍给大家。

一、              相应的组件介绍

(一)  TDBPlanner组件

TDBPlanner主要由12个显示区域和方式构成（如下图）：

1.        TPlanner caption：表格标题。可通过Planner 的caption属性进行设置，可以选择是否显示。

2.        TPlanner navigator buttons：列导航按钮。可通过Planner 的NavigatorButtons属性进行设置，可以选择是否显示。

3.        TPlanner sidebar：工具条，可通过Planner的Sidebar属性进行设置，可以选择是否显示。它可以设置在表格的左边、右边、顶部及左右两边同时显示。

4.        TPlanner header：表格头。可通过Planner的Header属性进行设置，可以选择是否显示。

5.        TPlanner grid：表格主体。可通过Planner的Display属性进行设置。

6.        TPlannerItem：日程条目。条目通用显示方式，标题包括时间和文本。可在DefaultItem中进行设置。

7.        TPlannerItem：日程条目。超文本显示方式，标题为固定文本。

8.        TPlannerItem：日程条目。HTML显示方，该方式可以插入超文本链接。

9.        TPlanner footer：表格尾。通过进度条显示该列资源情况。

10.    TPlannerItem：可以在表格头显示的日程条目。

11.    TPlannerItem：背景日程条目。

12.    通过定制画出的表格头。

    可通过Sidebar的Position属性设置Planner是横向显示还是竖向显示。

 

(二)  TDBDaySource组件

TDBDaySource组件是数据控件和TDbPlanner控件之间的桥梁，通过它可以将数据库字段与TDbPlanner的一些显示属性关联起来。

主要属性如下：

属性	说明
AutoHeaderUpdate	自动将日期数据填充到TDbPlanner的表格头。
AutoIncKey	当数据库主键使用自动增量时，应设置该值为true，这样TDBDaySourcedoes将不会自动产生一个GUID的主键值。 如果数据库主键不使用自动增量，则应当将该值设置为false，这样当增加一个Item的时候，TDBDaySourcedoes将自动产生一个GUID作为数据库的主键值。
DataSource	设置数据源
Day	设置TDbPlanner第一列的日期值
EndTimeField	设置保存结束时间的字段
KeyField	设置主键字段
NotesField	设置TPlannerItem的文字内容字段
StartTimeField	设置保存开始时间的字段
SubjectField	设置TPlannerItem的的标题字段

 

 

二、              演示程序

1、  数据库设置

在数据库中必需存在一下三个字段：

字段	类型	说明
开始时间 (StartTime)	全日期/时间	如果数据库不支持全日期/时间类型可以用长度位20的字符类型代替
结束时间 (EndTime)	全日期/时间	如果数据库不支持全日期/时间类型可以用长度位20的字符类型代替
主键(Key)	字符或者自动增量	如果是字符类型则长度需要为40，可参考TDBDaySource组件的AutoIncKey属性

当然了，为了记录日程信息，还需要以下两个字段：

字段	类型	说明
日程内容 (Notes)	字符或备注
日程标题  (Sbuject)	字符	该字段可要可不要，因为在默认编辑状态下（不使用编辑控件），日程标题是不可修改的。

以上字段你可以通过TDBDaySource组件的属性关联起来，这样当TDbPlanner的属性内容发生改变的时候可以自动更新这些字段。

如果你还需要记录其它额外信息，可通过DBItemSource.OnFieldsToItem 和DBItemSource.OnItemToFields事件设置字段值。

例如：

下面的代码将映射数据库的COLOR字段到TPlannerItem的Color属性，IMAGE字段映射到TPlannerItem的ImageID字段，CAPTION字段设置TPlannerItem的标题显示。

procedure TForm1.DBDaySource1FieldsToItem(Sender: TObject; Fields:TFields;Item: TPlannerItem);

begin

Item.Color := TColor(Fields.FieldByName('COLOR').AsInteger);

Item.CaptionBkg := Item.Color;

Item.ImageID := Fields.FieldByName('IMAGE').AsInteger;

if Fields.FieldByName('CAPTION').AsBoolean then

Item.CaptionType := ctTime

else

Item.CaptionType := ctNone;

end;

procedure TForm1.DBDaySource1ItemToFields(Sender: TObject; Fields:TFields;

Item: TPlannerItem);

begin

Fields.FieldByName('COLOR').AsInteger := Integer(Item.Color);

Fields.FieldByName('CAPTION').AsBoolean := Item.CaptionType =ctTime;

Fields.FieldByName('IMAGE').AsInteger := Item.ImageID;

end;

 

2、  程序设计

数据库建立后就可以开始建立演示程序了。

在Form1上各放置一个TAdoConnection控件、TADOTable控件、TDataSource控件、TDBDaySource控件和TDBPlanner控件。

各控件属性设置如下：

a)         TADOConnection

属性	值	说明
ConnectionString	Provider=Microsoft.Jet.OLEDB.4.0;Data Source=test.mdb;Persist Security Info=False
LoginPrompt	False
Connected	True

 

b)        TADOTable

属性	值	说明
Connection	ADOConnection1
TableName	Test
Active	True

 

c)        TDataSource

属性	值	说明
DataSet	ADOTable1

 

d)        TDBDaySource

属性	值	说明
AutoIncKey	True	因为使用了自动增量作为主键，所以这里要设置为True
DataSource	DataSource1
StartTimeField	StartTime
EndTimeField	EndTime
KeyField	ID
SubjectField	Sunject
NotesField	Notes
AutoHeaderUpdate	True
DateFormat	yyyy-mm-dd
Day	2005-3-16

 

e)         TDBPlanner

属性	值	说明
Align	alClient
AutoInsDel	True	允许自动增加和删除Item
DefaultItem.CaptionType	ctTime
DefaultItem.ShowDeleteButton	True	显示TPlannerItem的删除按钮，这样可以直接删除TPlannerItem，同时也在数据库中删除了该记录。
EditDirect	True	允许在TDBPlanner上直接编辑Item
Sidebar.Position	spLeftRight
ItemSource	DBDaySource1	与数据库关联

 

要在TDBPlanner直接添加一个日程条目，只需在TDBPlanner的RightClick中添加以下代码就行了：

    with DBPlanner1.CreateItemAtSelection do

    begin

        update;

    end;

如果不想右击鼠标添加条目，你也可以采用其它办法。

注意的地方就是添加的办法有两种：TDBPlanner.CreateItem and DBPlanner.CreateItemAtSelection。CreateItem需要你指定开始时间、结束时间。而CreateItemAtSelection则是在选择区域内建立。

删除日程条目可通过TDBPlanner.FreeItem(APlannerItem: TPlannerItem)操作删除。

修改日程的内容可直接单击条目修改。

是不是很方便，很简单就能实现一般的应用？在组件包中还提供了TSimpleItemEditor、TDefaultItemEditor和TPeriodItemEditor三个编辑控件对日程条目进行编辑，而且可以通过TPlannerRecurrencyEditor对弹出窗口进行语言设置。

演示程序源码： 下载