Устанавливаем переменные настройки журнала записи.
1. Шаг по вертикале в минутах
2. Время начала записи
3. Время окончания записи

Procedure   setgrafus;
begin
  Form1.DBPlanner1.Display.DisplayUnit :=Setting.Q_set['writestep'];
  Form1.DBPlanner1.Display.DisplayStart := (60/Setting.Q_set['writestep'])*Setting.Q_set['writeusbeg'];
  Form1.DBPlanner1.Display.DisplayEnd   := (60/Setting.Q_set['writestep'])*Setting.Q_set['writeusend']-1;
  Form1.DBPlanner1.Display.ActiveStart := 0;
  Form1.DBPlanner1.Display.ActiveEnd:=200;
end;

Загружаем данные в журнал. Функция GrafUsView - возвращает нам данные в удобном формате для вставки в журнал.

Procedure LoadPlan;
begin
  Form1.DBPlanner1.Enabled := true;
  Form1.statuszapus.Caption := '';
  Form1.Q_bronus2.Close;
  Form1.Q_bronus2.SQL.Text :='Select * from [dbo].[GrafUsView]('''+DateAsSQL(Form1.Dateus.Date)+''') T ';
  Form1.Q_bronus2.open;

  If Form1.Q_bronus2.RecordCount = 0 then
    begin
      Form1.statuszapus.Caption := 'Не заполнен график!!!';
      Form1.DateUS.Date:=Form1.DBDaySource1.Day;
      Form1.DBPlanner1.Enabled := false;
      Exit;
    end;

  Form1.Q_bronusl.Close;
  Form1.Q_bronusl.SQL.Text:='Select *,(select name from usluga where usluga.id = bronus.usluga) as namusl from bronus where convert(varchar(10),starttime,121) = '''+DateAsSQL(Form1.DateUs.Date)+#39;
  Form1.Q_bronusl.open;
  Form1.DBDaySource1.NumberOfResources:=Form1.Q_bronus2.RecordCount;
end;