Добрый день.
Читали ли вы инструкцию по работе с PlannerDataSourceEh и TPlannerControlEh.
"EhLib - Руководство разработчика.doc"
Раздел: Загрузка элементов-событий из БД или другого хранилища?
Для загрузки данных в PlannerDataSourceEh вы можете использовать ДатаСет любого типа.
Вы можете использовать ДатаСет который вы используете для доступа к вашей БД.
Код загрузки примерно такой
Код:
PlannerDataSourceEh1.BeginUpdate;
PlannerDataSourceEh1.ClearItems; //Очищаем старые данные
mtPlannerData.First; //Здесь mtPlannerData - это датасет который содержит события для TPlannerDataSourceEh и TPlannerControlEh
while not mtPlannerData.Eof do
begin
if mtPlannerData.FieldByName('InPlanner').AsBoolean = True then
begin
PlanItem := PlannerDataSourceEh1.NewItem();
PlanItem.ItemID := mtPlannerData['Id'];
PlanItem.StartTime := mtPlannerData['StartTime'];
PlanItem.EndTime := mtPlannerData['EndTime'];
PlanItem.Title := VarToStr(mtPlannerData['Title']);
PlanItem.Body := VarToStr(mtPlannerData['Body']);
PlanItem.AllDay := mtPlannerData.FieldByName('AllDay').AsBoolean;
PlannerDataSourceEh1.FetchTimePlanItem(PlanItem);
end;
mtPlannerData.Next;
end;
PlannerDataSourceEh1.EndUpdate;
Пример загрузки смотрите в Демо проекте
EhLib\Demos\PlannerEh.MainDemo\FrameOne.pas
procedure TfrFrameOne.bFillPlannerClick(Sender: TObject);
--
Если вас интересует работа по загрузке данных в MemTableEh через связку
MemTableEh->SQLDataDriverEh->SQLConnectionProviderEh
то этот вопрос не связан с Планером.
Его надо рассматривать отдельно.