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:工具条,可通过PlannerSidebar属性进行设置,可以选择是否显示。它可以设置在表格的左边、右边、顶部及左右两边同时显示。

4.        TPlanner header:表格头。可通过PlannerHeader属性进行设置,可以选择是否显示。

5.        TPlanner grid:表格主体。可通过PlannerDisplay属性进行设置。

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

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

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

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

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

11.    TPlannerItem:背景日程条目。

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

    可通过SidebarPosition属性设置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字段到TPlannerItemColor属性,IMAGE字段映射到TPlannerItemImageID字段,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直接添加一个日程条目,只需在TDBPlannerRightClick中添加以下代码就行了:

    with DBPlanner1.CreateItemAtSelection do

    begin

        update;

    end;

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

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

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

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

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

演示程序源码:下载

原文地址:https://www.cnblogs.com/muyuge/p/6333874.html