lazarus-ccr/components/tvplanit/source/vpdbds.pas

{*********************************************************}
{*                  VPDBDS.PAS 1.03                      *}
{*********************************************************}

{* ***** BEGIN LICENSE BLOCK *****                                            *}
{* Version: MPL 1.1                                                           *}
{*                                                                            *}
{* The contents of this file are subject to the Mozilla Public License        *}
{* Version 1.1 (the "License"); you may not use this file except in           *}
{* compliance with the License. You may obtain a copy of the License at       *}
{* http://www.mozilla.org/MPL/                                                *}
{*                                                                            *}
{* Software distributed under the License is distributed on an "AS IS" basis, *}
{* WITHOUT WARRANTY OF ANY KIND, either express or implied. See the License   *}
{* for the specific language governing rights and limitations under the       *}
{* License.                                                                   *}
{*                                                                            *}
{* The Original Code is TurboPower Visual PlanIt                              *}
{*                                                                            *}
{* The Initial Developer of the Original Code is TurboPower Software          *}
{*                                                                            *}
{* Portions created by TurboPower Software Inc. are Copyright (C) 2002        *}
{* TurboPower Software Inc. All Rights Reserved.                              *}
{*                                                                            *}
{* Contributor(s):                                                            *}
{*                                                                            *}
{* ***** END LICENSE BLOCK *****                                              *}

{$I Vp.INC}
unit VpDBDS;

interface

uses
  {$IFDEF LCL}
  LCLProc, LCLType, LCLIntf,
  {$ELSE}
  Windows,
  {$ENDIF}
  Classes, Dialogs, SysUtils, Db,
  VpBase, VpData, VpSR, VpBaseDS, VpConst, VpException;

type
  TVpCustomDBDataStore = class(TVpCustomDataStore)
  protected {private}
    FReadOnly : Boolean;
    FAfterPostEvents : TNotifyEvent;
    FAfterPostTasks : TNotifyEvent;
    FAfterPostContacts : TNotifyEvent;
    FAfterPostResources : TNotifyEvent;

    { property getters }
    function GetResourceTable : TDataset; virtual; abstract;
    function GetEventsTable : TDataset; virtual; abstract;
    function GetContactsTable : TDataset; virtual; abstract;
    function GetTasksTable : TDataset; virtual; abstract;

    { property setters }
    procedure SetReadOnly(const Value: boolean);

    procedure SetFilterCriteria(aTable : TDataset; aUseDateTime : Boolean;
      aResourceID : Integer; aStartDateTime : TDateTime;
      aEndDateTime : TDateTime); virtual;

  protected {properties that may be surfaced later}
      property ReadOnly : boolean
         read FReadOnly write SetReadOnly default False;
      property ResourceTable : TDataset
         read GetResourceTable;
      property EventsTable : TDataset
         read GetEventsTable;
      property ContactsTable : TDataset
         read GetContactsTable;
      property TasksTable : TDataset
         read GetTasksTable;

  public
    constructor Create(AOwner: TComponent); override;
    destructor Destroy; override;

    procedure Load; override;
    procedure LoadEvents; override;
    procedure LoadContacts; override;
    procedure LoadTasks; override;
    procedure RefreshEvents; override;
    procedure RefreshContacts; override;
    procedure RefreshTasks; override;
    procedure RefreshResource; override;
    procedure PostEvents; override;
    procedure PostContacts; override;
    procedure PostTasks; override;
    procedure PostResources; override;
{ - Added}
    procedure PurgeResource(Res: TVpResource); override;
    procedure PurgeEvents(Res: TVpResource); override;
    procedure PurgeContacts(Res: TVpResource); override;
    procedure PurgeTasks(Res: TVpResource); override;
{ - End}
    procedure SetResourceByName(Value: string); override;
    procedure CreateFieldDefs(const TableName : string;
      FieldDefs : TFieldDefs); virtual;
    procedure CreateIndexDefs(const TableName : string;
      IndexDefs : TIndexDefs); virtual;

  published
    {events}
    property AfterPostEvents : TNotifyEvent
      read FAfterPostEvents write FAfterPostEvents;
    property AfterPostContacts : TNotifyEvent
      read FAfterPostContacts write FAfterPostContacts;
    property AfterPostTasks : TNotifyEvent
      read FAfterPostTasks write FAfterPostTasks;
    property AfterPostResources : TNotifyEvent
      read FAfterPostResources write FAfterPostResources;
  end;

{ Constants for index names }
const
  VpcIndexNameResID = 'ResID_ndx';

implementation
{$IFDEF VERSION6}
  uses
    Variants;
{$ENDIF}

{=== TVpCustomDBDataStore ====================================================}
constructor TVpCustomDBDataStore.Create(AOwner: TComponent);
begin
  inherited Create(AOwner);

  { initialize internal fields }
  FReadOnly := False;
end;
{=====}

procedure TVpCustomDBDataStore.CreateFieldDefs(const TableName: string;
  FieldDefs: TFieldDefs);
begin
  if TableName = ResourceTableName then begin
    with FieldDefs do begin
      Clear;
      { Resource ID }
      with AddFieldDef do begin
        Name := 'ResourceID';
        DataType := ftInteger;
        Required := true;
      end;
      { Description }
      with AddFieldDef do begin
        Name := 'Description';
        DataType := ftString;
        Size := 255;
        Required := false;
      end;
      { Notes }
      with AddFieldDef do begin
        Name := 'Notes';
        DataType := ftString;
        Size := 1024;
        Required := false;
      end;
      { Image Index }
      with AddFieldDef do begin
        Name := 'ImageIndex';
        DataType := ftInteger;
        Required := false;
      end;
      { Active }
      with AddFieldDef do begin
        Name := 'ResourceActive';
        DataType := ftBoolean;
        Required := false;
      end;
      { UserField0 }
      with AddFieldDef do begin
        Name := 'UserField0';
        DataType := ftString;
        Size := 100;
        Required := false;
      end;
      { UserField1 }
      with AddFieldDef do begin
        Name := 'UserField1';
        DataType := ftString;
        Size := 100;
        Required := false;
      end;
      { UserField2 }
      with AddFieldDef do begin
        Name := 'UserField2';
        DataType := ftString;
        Size := 100;
        Required := false;
      end;
      { UserField3 }
      with AddFieldDef do begin
        Name := 'UserField3';
        DataType := ftString;
        Size := 100;
        Required := false;
      end;
      { UserField4 }
      with AddFieldDef do begin
        Name := 'UserField4';
        DataType := ftString;
        Size := 100;
        Required := false;
      end;
      { UserField5 }
      with AddFieldDef do begin
        Name := 'UserField5';
        DataType := ftString;
        Size := 100;
        Required := false;
      end;
      { UserField6 }
      with AddFieldDef do begin
        Name := 'UserField6';
        DataType := ftString;
        Size := 100;
        Required := false;
      end;
      { UserField7 }
      with AddFieldDef do begin
        Name := 'UserField7';
        DataType := ftString;
        Size := 100;
        Required := false;
      end;
      { UserField8 }
      with AddFieldDef do begin
        Name := 'UserField8';
        DataType := ftString;
        Size := 100;
        Required := false;
      end;
      { UserField9 }
      with AddFieldDef do begin
        Name := 'UserField9';
        DataType := ftString;
        Size := 100;
        Required := false;
      end;
    end; {with FieldDefs do}
  end else if TableName = EventsTableName then begin
    with FieldDefs do begin
      Clear;
      { Record ID }
      with AddFieldDef do begin
        Name := 'RecordID';
        DataType := ftInteger;
        Required := true;
      end;
      { StartTime }
      with AddFieldDef do begin
        Name := 'StartTime';
        DataType := ftDateTime;
        Required := true;
      end;
      { EndTime }
      with AddFieldDef do begin
        Name := 'EndTime';
        DataType := ftDateTime;
        Required := true;
      end;
      { Resource ID }
      with AddFieldDef do begin
        Name := 'ResourceID';
        DataType := ftInteger;
        Required := true;
      end;
      { Description }
      with AddFieldDef do begin
        Name := 'Description';
        DataType := ftString;
        Size := 255;
        Required := false;
      end;
      { Locataion }              // new
      with AddFieldDef do begin
        Name := 'Location';
        DataType := ftString;
        Size := 255;
        Required := false;
      end;
      { Note }
      with AddFieldDef do begin
        Name := 'Notes';
        DataType := ftString;
        Size := 1024;
        Required := false;
      end;
      { Category }
      with AddFieldDef do begin
        Name := 'Category';
        DataType := ftInteger;
        Required := false;
      end;
      { AllDayEvent }
      with AddFieldDef do begin
        Name := 'AllDayEvent';
        DataType := ftBoolean;
        Required := false;
      end;
      { DingPath }
      with AddFieldDef do begin
        Name := 'DingPath';
        DataType := ftString;
        Size := 255;
        Required := false;
      end;
      { AlarmSet }
      with AddFieldDef do begin
        Name := 'AlarmSet';
        DataType := ftBoolean;
        Required := false;
      end;
      { Alarm Advance }
      with AddFieldDef do begin
        Name := 'AlarmAdvance';
        DataType := ftInteger;
        Required := false;
      end;
      { Alarm Advance Type }
      with AddFieldDef do begin
        Name := 'AlarmAdvanceType';
        DataType := ftInteger;
        Required := false;
      end;
      { SnoozeTime }
      with AddFieldDef do begin
        Name := 'SnoozeTime';
        DataType := ftDateTime;
        Required := false;
      end;
      { Repeat Code }
      with AddFieldDef do begin
        Name := 'RepeatCode';
        DataType := ftInteger;
        Required := false;
      end;
      { Repeat Range End }
      with AddFieldDef do begin
        Name := 'RepeatRangeEnd';
        DataType := ftDateTime;
        Required := false;
      end;
      { Custom Repeat Interval }
      with AddFieldDef do begin
        Name := 'CustomInterval';
        DataType := ftInteger;
        Required := false;
      end;
      { UserField0 }
      with AddFieldDef do begin
        Name := 'UserField0';
        DataType := ftString;
        Size := 100;
        Required := false;
      end;
      { UserField1 }
      with AddFieldDef do begin
        Name := 'UserField1';
        DataType := ftString;
        Size := 100;
        Required := false;
      end;
      { UserField2 }
      with AddFieldDef do begin
        Name := 'UserField2';
        DataType := ftString;
        Size := 100;
        Required := false;
      end;
      { UserField3 }
      with AddFieldDef do begin
        Name := 'UserField3';
        DataType := ftString;
        Size := 100;
        Required := false;
      end;
      { UserField4 }
      with AddFieldDef do begin
        Name := 'UserField4';
        DataType := ftString;
        Size := 100;
        Required := false;
      end;
      { UserField5 }
      with AddFieldDef do begin
        Name := 'UserField5';
        DataType := ftString;
        Size := 100;
        Required := false;
      end;
      { UserField6 }
      with AddFieldDef do begin
        Name := 'UserField6';
        DataType := ftString;
        Size := 100;
        Required := false;
      end;
      { UserField7 }
      with AddFieldDef do begin
        Name := 'UserField7';
        DataType := ftString;
        Size := 100;
        Required := false;
      end;
      { UserField8 }
      with AddFieldDef do begin
        Name := 'UserField8';
        DataType := ftString;
        Size := 100;
        Required := false;
      end;
      { UserField9 }
      with AddFieldDef do begin
        Name := 'UserField9';
        DataType := ftString;
        Size := 100;
        Required := false;
      end;
    end; {with FieldDefs do}
  end else if TableName = ContactsTableName then begin
    with FieldDefs do begin
      Clear;
      { Record ID }
      with AddFieldDef do begin
        Name := 'RecordID';
        DataType := ftInteger;
        Required := true;
      end;
      { Resource ID }
      with AddFieldDef do begin
        Name := 'ResourceID';
        DataType := ftInteger;
        Required := true;
      end;
      { FirstName }
      with AddFieldDef do begin
        Name := 'FirstName';
        DataType := ftString;
        Size := 50;
        Required := false;
      end;
      { LastName }
      with AddFieldDef do begin
        Name := 'LastName';
        DataType := ftString;
        Size := 50;
        Required := false;
      end;
      { Birthdate }
      with AddFieldDef do begin
        Name := 'Birthdate';
        DataType := ftDate;
        Required := false;
      end;
      { Anniversary }
      with AddFieldDef do begin
        Name := 'Anniversary';
        DataType := ftDate;
        Required := false;
      end;
      { Title }
      with AddFieldDef do begin
        Name := 'Title';
        DataType := ftString;
        Size := 50;
        Required := false;
      end;
      { Company }
      with AddFieldDef do begin
        Name := 'Company';
        DataType := ftString;
        Size := 50;
        Required := false;
      end;
      { Position }
      with AddFieldDef do begin
        Name := 'Job_Position';
        DataType := ftString;
        Size := 30;
        Required := false;
      end;
      { Address }
      with AddFieldDef do begin
        Name := 'Address';
        DataType := ftString;
        Size := 100;
        Required := false;
      end;
      { City }
      with AddFieldDef do begin
        Name := 'City';
        DataType := ftString;
        Size := 50;
        Required := false;
      end;
      { State }
      with AddFieldDef do begin
        Name := 'State';
        DataType := ftString;
        Size := 25;
        Required := false;
      end;
      { Zip }
      with AddFieldDef do begin
        Name := 'Zip';
        DataType := ftString;
        Size := 10;
        Required := false;
      end;
      { Country }
      with AddFieldDef do begin
        Name := 'Country';
        DataType := ftString;
        Size := 25;
        Required := false;
      end;
      { Note }
      with AddFieldDef do begin
        Name := 'Notes';          // was: "Note" in old version
        DataType := ftString;
        Size := 1024;
        Required := false;
      end;
      { Phone1 }
      with AddFieldDef do begin
        Name := 'Phone1';
        DataType := ftString;
        Size := 25;
        Required := false;
      end;
      { Phone2 }
      with AddFieldDef do begin
        Name := 'Phone2';
        DataType := ftString;
        Size := 25;
        Required := false;
      end;
      { Phone3 }
      with AddFieldDef do begin
        Name := 'Phone3';
        DataType := ftString;
        Size := 25;
        Required := false;
      end;
      { Phone4 }
      with AddFieldDef do begin
        Name := 'Phone4';
        DataType := ftString;
        Size := 25;
        Required := false;
      end;
      { Phone5 }
      with AddFieldDef do begin
        Name := 'Phone5';
        DataType := ftString;
        Size := 25;
        Required := false;
      end;
      { Phone1 }
      with AddFieldDef do begin
        Name := 'PhoneType1';
        DataType := ftInteger;
        Required := false;
      end;
      { Phone2 }
      with AddFieldDef do begin
        Name := 'PhoneType2';
        DataType := ftInteger;
        Required := false;
      end;
      { Phone3 }
      with AddFieldDef do begin
        Name := 'PhoneType3';
        DataType := ftInteger;
        Required := false;
      end;
      { Phone4 }
      with AddFieldDef do begin
        Name := 'PhoneType4';
        DataType := ftInteger;
        Required := false;
      end;
      { Phone5 }
      with AddFieldDef do begin
        Name := 'PhoneType5';
        DataType := ftInteger;
        Required := false;
      end;
      { Category }
      with AddFieldDef do begin
        Name := 'Category';
        DataType := ftInteger;
        Required := false;
      end;
      { EMail }
      with AddFieldDef do begin
        Name := 'EMail';
        DataType := ftString;
        Size := 100;
        Required := false;
      end;
      { Custom1 }
      with AddFieldDef do begin
        Name := 'Custom1';
        DataType := ftString;
        Size := 100;
        Required := false;
      end;
      { Custom2 }
      with AddFieldDef do begin
        Name := 'Custom2';
        DataType := ftString;
        Size := 100;
        Required := false;
      end;
      { Custom3 }
      with AddFieldDef do begin
        Name := 'Custom3';
        DataType := ftString;
        Size := 100;
        Required := false;
      end;
      { Custom4 }
      with AddFieldDef do begin
        Name := 'Custom4';
        DataType := ftString;
        Size := 100;
        Required := false;
      end;
      { UserField0 }
      with AddFieldDef do begin
        Name := 'UserField0';
        DataType := ftString;
        Size := 100;
        Required := false;
      end;
      { UserField1 }
      with AddFieldDef do begin
        Name := 'UserField1';
        DataType := ftString;
        Size := 100;
        Required := false;
      end;
      { UserField2 }
      with AddFieldDef do begin
        Name := 'UserField2';
        DataType := ftString;
        Size := 100;
        Required := false;
      end;
      { UserField3 }
      with AddFieldDef do begin
        Name := 'UserField3';
        DataType := ftString;
        Size := 100;
        Required := false;
      end;
      { UserField4 }
      with AddFieldDef do begin
        Name := 'UserField4';
        DataType := ftString;
        Size := 100;
        Required := false;
      end;
      { UserField5 }
      with AddFieldDef do begin
        Name := 'UserField5';
        DataType := ftString;
        Size := 100;
        Required := false;
      end;
      { UserField6 }
      with AddFieldDef do begin
        Name := 'UserField6';
        DataType := ftString;
        Size := 100;
        Required := false;
      end;
      { UserField7 }
      with AddFieldDef do begin
        Name := 'UserField7';
        DataType := ftString;
        Size := 100;
        Required := false;
      end;
      { UserField8 }
      with AddFieldDef do begin
        Name := 'UserField8';
        DataType := ftString;
        Size := 100;
        Required := false;
      end;
      { UserField9 }
      with AddFieldDef do begin
        Name := 'UserField9';
        DataType := ftString;
        Size := 100;
        Required := false;
      end;
    end; {with FieldDefs do}
  end else if TableName = TasksTableName then begin
    with FieldDefs do begin
      Clear;
      { Record ID }
      with AddFieldDef do begin
        Name := 'RecordID';
        DataType := ftInteger;
        Required := true;
      end;
      { Resource ID }
      with AddFieldDef do begin
        Name := 'ResourceID';
        DataType := ftInteger;
        Required := true;
      end;
      { Complete }
      with AddFieldDef do begin
        Name := 'Complete';
        DataType := ftBoolean;
        Required := false;
      end;
      { Description }
      with AddFieldDef do begin
        Name := 'Description';
        DataType := ftString;
        Size := 255;
        Required := false;
      end;
      { Details }
      with AddFieldDef do begin
        Name := 'Details';
        DataType := ftString;
        Size := 1024;
        Required := false;
      end;
      { Created On Date }
      with AddFieldDef do begin
        Name := 'CreatedOn';
        DataType := ftDateTime;
        Required := false;
      end;
      { Priority }
      with AddFieldDef do begin
        Name := 'Priority';
        DataType := ftInteger;
        Required := false;
      end;
      { Category }
      with AddFieldDef do begin
        Name := 'Category';
        DataType := ftInteger;
        Required := false;
      end;
      { Completed On Date }
      with AddFieldDef do begin
        Name := 'CompletedOn';
        DataType := ftDateTime;
        Required := false;
      end;
      { Due Date }
      with AddFieldDef do begin
        Name := 'DueDate';
        DataType := ftDateTime;
        Required := false;
      end;
      { UserField0 }
      with AddFieldDef do begin
        Name := 'UserField0';
        DataType := ftString;
        Size := 100;
        Required := false;
      end;
      { UserField1 }
      with AddFieldDef do begin
        Name := 'UserField1';
        DataType := ftString;
        Size := 100;
        Required := false;
      end;
      { UserField2 }
      with AddFieldDef do begin
        Name := 'UserField2';
        DataType := ftString;
        Size := 100;
        Required := false;
      end;
      { UserField3 }
      with AddFieldDef do begin
        Name := 'UserField3';
        DataType := ftString;
        Size := 100;
        Required := false;
      end;
      { UserField4 }
      with AddFieldDef do begin
        Name := 'UserField4';
        DataType := ftString;
        Size := 100;
        Required := false;
      end;
      { UserField5 }
      with AddFieldDef do begin
        Name := 'UserField5';
        DataType := ftString;
        Size := 100;
        Required := false;
      end;
      { UserField6 }
      with AddFieldDef do begin
        Name := 'UserField6';
        DataType := ftString;
        Size := 100;
        Required := false;
      end;
      { UserField7 }
      with AddFieldDef do begin
        Name := 'UserField7';
        DataType := ftString;
        Size := 100;
        Required := false;
      end;
      { UserField8 }
      with AddFieldDef do begin
        Name := 'UserField8';
        DataType := ftString;
        Size := 100;
        Required := false;
      end;
      { UserField9 }
      with AddFieldDef do begin
        Name := 'UserField9';
        DataType := ftString;
        Size := 100;
        Required := false;
      end;
    end; {with FieldDefs do}
  end else if TableName = RecordIDTableName then begin
    { The RecordID Table has only one record with 4 fields                }
    { each field contains the last record ID for each of the other tables }
    with FieldDefs do begin
      Clear;
      { Resource ID }
      with AddFieldDef do begin
        Name := 'ResourceID';
        DataType := ftInteger;
        Required := true;
      end;
      { Event ID }
      with AddFieldDef do begin
        Name := 'EventID';
        DataType := ftInteger;
        Required := true;
      end;
      { Task ID }
      with AddFieldDef do begin
        Name := 'TaskID';
        DataType := ftInteger;
        Required := true;
      end;
      { Contact ID }
      with AddFieldDef do begin
        Name := 'ContactID';
        DataType := ftInteger;
        Required := true;
      end;
    end; {with FieldDefs do}
  end;
end;
{=====}

procedure TVpCustomDBDataStore.CreateIndexDefs(const TableName: string;
  IndexDefs: TIndexDefs);
begin
  if TableName = ResourceTableName then begin
    with IndexDefs do begin
      with AddIndexDef do begin
        Name := VpcIndexNameResID;
        Fields := 'ResourceID';
        Options := [ixCaseInsensitive];
      end;
      with AddIndexDef do begin
        Name := 'Descr_ndx';
        Fields := 'Description';
        Options := [ixCaseInsensitive];
      end;
    end;
  end else if TableName = EventsTableName then begin
    with IndexDefs do begin
      { added a new index on the ResourceID and StartTime fields.              }
      { this index is used by the FlashFiler 2 DataStore for setting ranges    }
      { instead of using filters on the Events table.                          }
      { tables created with unpatched 1.0 or 1.01 versions of Visual PlanIt    }
      { will not have this new index available so they will continue to use    }
      { filters.                                                               }
      with AddIndexDef do begin
        Name := 'rid_st_ndx';
        Fields := 'ResourceID;StartTime';
        Options := [ixCaseInsensitive];
      end;
      with AddIndexDef do begin
        Name := 'st_ndx';
        Fields := 'StartTime';
        Options := [ixCaseInsensitive];
      end;
      with AddIndexDef do begin
        Name := 'et_ndx';
        Fields := 'EndTime';
        Options := [ixCaseInsensitive];
      end;
      with AddIndexDef do begin
        Name := VpcIndexNameResID;
        Fields := 'ResourceID';
        Options := [ixCaseInsensitive];
      end;
    end;
  end else if TableName = ContactsTableName then begin
    with IndexDefs do begin
      with AddIndexDef do begin
        Name := VpcIndexNameResID;
        Fields := 'ResourceID';
        Options := [ixCaseInsensitive];
      end;
      with AddIndexDef do begin
        Name := 'LName_ndx';
        Fields := 'LastName';
        Options := [ixCaseInsensitive];
      end;
      with AddIndexDef do begin
        Name := 'Company_ndx';
        Fields := 'Company';
        Options := [ixCaseInsensitive];
      end;
    end;
  end else if TableName = TasksTableName then begin
    with IndexDefs do begin
      with AddIndexDef do begin
        Name := VpcIndexNameResID;
        Fields := 'ResourceID';
        Options := [ixCaseInsensitive];
      end;
      { Rule: A single field case sensitive index on a Paradox table must }
      {       have the same name as the field the index is on.            }
      with AddIndexDef do begin
        Name := 'DueDate';
        Fields := 'DueDate';
        Options := [];
      end;
      with AddIndexDef do begin
        Name := 'CompletedOn';
        Fields := 'CompletedOn';
        Options := [];
      end;
    end;
  end;
end;
{=====}

destructor TVpCustomDBDataStore.Destroy;
begin
  inherited Destroy;
end;
{=====}

procedure TVpCustomDBDataStore.Load;
var
  Res        : TVpResource;
begin
  Loading := true;
  try
    if not ResourceTable.Active then
      ResourceTable.Open;

    Resource := nil;
    Resources.ClearResources;

    ResourceTable.First;
    while not ResourceTable.EOF do begin
      { Load this resource into memory }
      Res := Resources.AddResource(-1);
      Res.Loading := true;
      Res.ResourceID := ResourceTable.FieldByName('ResourceID').AsInteger;
      Res.Description := ResourceTable.FieldByName('Description').AsString;
      Res.Notes := ResourceTable.FieldByName('Notes').AsString;
      Res.ResourceActive := ResourceTable.FieldByName('ResourceActive').AsBoolean;
      Res.UserField0 := ResourceTable.FieldByName('UserField0').AsString;
      Res.UserField1 := ResourceTable.FieldByName('UserField1').AsString;
      Res.UserField2 := ResourceTable.FieldByName('UserField2').AsString;
      Res.UserField3 := ResourceTable.FieldByName('UserField3').AsString;
      Res.UserField4 := ResourceTable.FieldByName('UserField4').AsString;
      Res.UserField5 := ResourceTable.FieldByName('UserField5').AsString;
      Res.UserField6 := ResourceTable.FieldByName('UserField6').AsString;
      Res.UserField7 := ResourceTable.FieldByName('UserField7').AsString;
      Res.UserField8 := ResourceTable.FieldByName('UserField8').AsString;
      Res.UserField9 := ResourceTable.FieldByName('UserField9').AsString;
      Res.Loading := false;

      { Add events, contacts and tasks for the currently selected resource }
      if (Res.ResourceID = ResourceID) and Res.ResourceActive then begin
        Resource := Res;
        LoadEvents;
        LoadContacts;
        LoadTasks;
      end;

      ResourceTable.Next;
    end;
  finally
    Loading := false;
  end;
  
  inherited;
end;
{=====}

procedure TVpCustomDBDataStore.LoadEvents;
var
  Event: TVpEvent;
  F: TField;
begin
  if Resource <> nil then
    { Load this resource's events into memory }
    with EventsTable do begin
      SetFilterCriteria(
        EventsTable,
        True,
        ResourceTable.FieldByName('ResourceID').AsInteger,
        TimeRange.StartTime,
        TimeRange.EndTime
      );
      First;
      while not EventsTable.EOF do begin
        Event := Resource.Schedule.AddEvent(
          FieldByName('RecordID').AsInteger,
          FieldByName('StartTime').AsDateTime,
          FieldByName('EndTime').AsDateTime
        );
        if Event <> nil then begin
          Event.Loading := true;
          Event.Description := FieldByName('Description').AsString;
          F := FieldByName('Location');   // new
          if F <> nil then Event.Location := F.AsString;
          Event.Notes := FieldByName('Notes').AsString;
          Event.Category := FieldByName('Category').AsInteger;
          Event.DingPath := FieldByName('DingPath').AsString;
          Event.AllDayEvent := FieldByName('AllDayEvent').AsBoolean;
          Event.AlarmSet := FieldByName('AlarmSet').AsBoolean;
          Event.AlarmAdvance := FieldByName('AlarmAdvance').AsInteger;
          Event.AlarmAdvanceType := TVpAlarmAdvType(FieldByName('AlarmAdvanceType').AsInteger);
          Event.SnoozeTime := FieldByName('SnoozeTime').AsDateTime;
          Event.RepeatCode := TVpRepeatType(FieldByName('RepeatCode').AsInteger);
          Event.RepeatRangeEnd := FieldByName('RepeatRangeEnd').AsDateTime;
          Event.CustomInterval := FieldByName('CustomInterval').AsInteger;
          Event.UserField0 := FieldByName('UserField0').AsString;
          Event.UserField1 := FieldByName('UserField1').AsString;
          Event.UserField2 := FieldByName('UserField2').AsString;
          Event.UserField3 := FieldByName('UserField3').AsString;
          Event.UserField4 := FieldByName('UserField4').AsString;
          Event.UserField5 := FieldByName('UserField5').AsString;
          Event.UserField6 := FieldByName('UserField6').AsString;
          Event.UserField7 := FieldByName('UserField7').AsString;
          Event.UserField8 := FieldByName('UserField8').AsString;
          Event.UserField9 := FieldByName('UserField9').AsString;

          Event.Loading := false;
        end;
        Next;
      end; {while}

    end; {with EventsTable}
end;
{=====}

procedure TVpCustomDBDataStore.LoadContacts;
var
  Contact: TVpContact;
  F: TField;
begin
  if (Resource <> nil) then
    with ContactsTable do begin
      SetFilterCriteria(ContactsTable, False,
        ResourceTable.FieldByName('ResourceID').AsInteger,
        0, 0
      );
      First;
      while not EOF do begin
        Contact := Resource.Contacts.AddContact(GetNextID(ContactsTableName));
        Contact.Loading := true;
        Contact.RecordID := FieldByName('RecordID').AsInteger;
        Contact.FirstName := FieldByName('FirstName').AsString;
        Contact.LastName := FieldByName('LastName').AsString;
        Contact.Birthdate := FieldByName('BirthDate').AsDateTime;
        Contact.Anniversary := FieldByName('Anniversary').AsDateTime;
        Contact.Title := FieldByName('Title').AsString;
        Contact.Company := FieldByName('Company').AsString;
        Contact.Job_Position := FieldByName('Job_Position').AsString;
        Contact.EMail := FieldByName('EMail').AsString;
        Contact.Address := FieldByName('Address').AsString;
        Contact.City := FieldByName('City').AsString;
        Contact.State := FieldByName('State').AsString;
        Contact.Zip := FieldByName('Zip').AsString;
        Contact.Country := FieldByName('Country').AsString;
        F := FieldByName('Notes');
        if F = nil then F := FieldByName('Note');  // deprecated
        if F <> nil then Contact.Notes := F.AsString;
        Contact.Phone1 := FieldByName('Phone1').AsString;
        Contact.Phone2 := FieldByName('Phone2').AsString;
        Contact.Phone3 := FieldByName('Phone3').AsString;
        Contact.Phone4 := FieldByName('Phone4').AsString;
        Contact.Phone5 := FieldByName('Phone5').AsString;
        Contact.PhoneType1 := FieldByName('PhoneType1').AsInteger;
        Contact.PhoneType2 := FieldByName('PhoneType2').AsInteger;
        Contact.PhoneType3 := FieldByName('PhoneType3').AsInteger;
        Contact.PhoneType4 := FieldByName('PhoneType4').AsInteger;
        Contact.PhoneType5 := FieldByName('PhoneType5').AsInteger;
        Contact.Category := FieldByName('Category').AsInteger;
        Contact.Custom1 := FieldByName('Custom1').AsString;
        Contact.Custom2 := FieldByName('Custom2').AsString;
        Contact.Custom3 := FieldByName('Custom3').AsString;
        Contact.Custom4 := FieldByName('Custom4').AsString;
        Contact.UserField0 := FieldByName('UserField0').AsString;
        Contact.UserField1 := FieldByName('UserField1').AsString;
        Contact.UserField2 := FieldByName('UserField2').AsString;
        Contact.UserField3 := FieldByName('UserField3').AsString;
        Contact.UserField4 := FieldByName('UserField4').AsString;
        Contact.UserField5 := FieldByName('UserField5').AsString;
        Contact.UserField6 := FieldByName('UserField6').AsString;
        Contact.UserField7 := FieldByName('UserField7').AsString;
        Contact.UserField8 := FieldByName('UserField8').AsString;
        Contact.UserField9 := FieldByName('UserField9').AsString;
        Contact.Loading := false;
        Next;
      end; {while}
    end; {with ContactsTable}
end;
{=====}

procedure TVpCustomDBDataStore.LoadTasks;
var
  Task: TVpTask;
begin
  if (Resource <> nil) then
    with TasksTable do begin
      SetFilterCriteria(TasksTable, False,
        ResourceTable.FieldByName('ResourceID').AsInteger,
        0, 0
      );
      First;
      while not EOF do begin
        Task := Resource.Tasks.AddTask(GetNextID(TasksTableName));
        task.loading := true;
        Task.RecordID := FieldByName('RecordID').AsInteger;
        Task.Complete := FieldByName('Complete').AsBoolean;
        Task.Description := FieldByName('Description').AsString;
        Task.Details := FieldByName('Details').AsString;
        Task.CreatedOn := FieldByName('CreatedOn').AsDateTime;
        Task.CompletedOn := FieldByName('CompletedOn').AsDateTime;
        Task.Priority := FieldByName('Priority').AsInteger;
        Task.Category := FieldByName('Category').AsInteger;
        Task.DueDate := FieldByName('DueDate').AsDateTime;
        Task.UserField0 := FieldBYName('UserField0').AsString;
        Task.UserField1 := FieldBYName('UserField1').AsString;
        Task.UserField2 := FieldBYName('UserField2').AsString;
        Task.UserField3 := FieldBYName('UserField3').AsString;
        Task.UserField4 := FieldBYName('UserField4').AsString;
        Task.UserField5 := FieldBYName('UserField5').AsString;
        Task.UserField6 := FieldBYName('UserField6').AsString;
        Task.UserField7 := FieldBYName('UserField7').AsString;
        Task.UserField8 := FieldBYName('UserField8').AsString;
        Task.UserField9 := FieldBYName('UserField9').AsString;
        Task.Loading := false;
        Next;
      end; {while}
    end; {with TasksTable}
end;
{=====}

procedure TVpCustomDBDataStore.PostContacts;
var
  I: Integer;
  Contact: TVpContact;
  F: TField;
begin
  if (Resource <> nil) and Resource.ContactsDirty then begin
    { Dump this resource's dirty contacts to the DB }
    if ResourceTable.Locate('ResourceID', Resource.ResourceID, []) then begin
      SetFilterCriteria(ContactsTable, False, Resource.ResourceID, 0, 0);

      for I := pred(Resource.Contacts.Count) downto 0 do begin
        Contact := Resource.Contacts.GetContact(I);
        { if the delete flag is set then delete the record }
        { and free the event instance }
        if Contact.Deleted then begin
          if ContactsTable.Locate('RecordID', Contact.RecordID, [])   
          then ContactsTable.Delete;
          Contact.Free;
          Continue;
        end;

        if Contact.Changed then begin
          if ContactsTable.Locate('RecordID', Contact.RecordID, []) then
            { this event already exists in the database so update it }
            ContactsTable.Edit
          else begin
            { this record doesn't exist in the database, so it's a new event }
            ContactsTable.Append;
          end;
          try
            { DataStore descendants that can use an autoincrement RecordID }
            { field set the RecordID to -1 by default.  If the RecordID is }
            { -1 then this is a new record and we shouldn't overwrite      }
            { RecordID with a bogus value }
            if Contact.RecordID > -1 then
              ContactsTable.FieldByName('RecordID').AsInteger := Contact.RecordID;

            ContactsTable.FieldByName('ResourceID').AsInteger := Resource.ResourceID;
            ContactsTable.FieldByName('FirstName').AsString := Contact.FirstName;
            ContactsTable.FieldByName('LastName').AsString := Contact.LastName;
            ContactsTable.FieldByName('Birthdate').AsDateTime := Contact.Birthdate;
            ContactsTable.FieldByName('Anniversary').AsDateTime := Contact.Anniversary;
            ContactsTable.FieldByName('Title').AsString := Contact.Title;
            ContactsTable.FieldByName('Company').AsString := Contact.Company;
            ContactsTable.FieldByName('Job_Position').AsString := Contact.Job_Position;
            ContactsTable.FieldByName('EMail').AsString := Contact.EMail;
            ContactsTable.FieldByName('Address').AsString := Contact.Address;
            ContactsTable.FieldByName('City').AsString := Contact.City;
            ContactsTable.FieldByName('State').AsString := Contact.State;
            ContactsTable.FieldByName('Zip').AsString := Contact.Zip;
            ContactsTable.FieldByName('Country').AsString := Contact.Country;
            F := ContactsTable.FieldByName('Notes');
            if F = nil then F := ContactsTable.FieldByName('Note');
            if F <> nil then F.AsString := Contact.Notes;
            ContactsTable.FieldByName('Phone1').AsString := Contact.Phone1;
            ContactsTable.FieldByName('Phone2').AsString := Contact.Phone2;
            ContactsTable.FieldByName('Phone3').AsString := Contact.Phone3;
            ContactsTable.FieldByName('Phone4').AsString := Contact.Phone4;
            ContactsTable.FieldByName('Phone5').AsString := Contact.Phone5;
            ContactsTable.FieldByName('PhoneType1').AsInteger := Contact.PhoneType1;
            ContactsTable.FieldByName('PhoneType2').AsInteger := Contact.PhoneType2;
            ContactsTable.FieldByName('PhoneType3').AsInteger := Contact.PhoneType3;
            ContactsTable.FieldByName('PhoneType4').AsInteger := Contact.PhoneType4;
            ContactsTable.FieldByName('PhoneType5').AsInteger := Contact.PhoneType5;
            ContactsTable.FieldByName('Category').AsInteger := Contact.Category;
            ContactsTable.FieldByName('Custom1').AsString := Contact.Custom1;
            ContactsTable.FieldByName('Custom2').AsString := Contact.Custom2;
            ContactsTable.FieldByName('Custom3').AsString := Contact.Custom3;
            ContactsTable.FieldByName('Custom4').AsString := Contact.Custom4;
            ContactsTable.FieldByName('UserField0').AsString := Contact.UserField0;
            ContactsTable.FieldByName('UserField1').AsString := Contact.UserField1;
            ContactsTable.FieldByName('UserField2').AsString := Contact.UserField2;
            ContactsTable.FieldByName('UserField3').AsString := Contact.UserField3;
            ContactsTable.FieldByName('UserField4').AsString := Contact.UserField4;
            ContactsTable.FieldByName('UserField5').AsString := Contact.UserField5;
            ContactsTable.FieldByName('UserField6').AsString := Contact.UserField6;
            ContactsTable.FieldByName('UserField7').AsString := Contact.UserField7;
            ContactsTable.FieldByName('UserField8').AsString := Contact.UserField8;
            ContactsTable.FieldByName('UserField9').AsString := Contact.UserField9;
            ContactsTable.Post;
          except
            ContactsTable.Cancel;
            raise EDBPostError.Create;
          end;
          { DataStore descendants that can use an autoincrement RecordID }
          { field set the RecordID to -1 by default.  If the RecordID is }
          { -1 then this is a new record and we need to assign the real  }
          { record ID value from the dataset. }
          if Contact.RecordID = -1 then
            Contact.RecordID := ContactsTable.FieldByName('RecordID').AsInteger;

          Contact.Changed := false;
        end;
      end;
    end;
    Resource.ContactsDirty := false;

    if not Loading then
      NotifyDependents;

    if Assigned(AfterPostContacts) then
      FAfterPostContacts(self);
  end;
end;
{=====}

procedure TVpCustomDBDataStore.PostEvents;
var
  J: Integer;
  Event: TVpEvent;
  F: TField;
begin
  if (Resource <> nil) and Resource.EventsDirty then begin
    { Dump this resource's dirty events to the DB }
    if ResourceTable.Locate('ResourceID', Resource.ResourceID, [])
    then begin
      SetFilterCriteria(EventsTable, False, Resource.ResourceID, 0, 0);

      for J := pred(Resource.Schedule.EventCount) downto 0 do begin
        Event := Resource.Schedule.GetEvent(J);

        { if the delete flag is set then delete it from the database }
        { and free the event instance }
        if Event.Deleted then begin
          if EventsTable.Locate('RecordID', Event.RecordID, []) then
            EventsTable.Delete;
          Event.Free;
          Continue;
        end;

        if Event.Changed then begin
          if EventsTable.Locate('RecordID', Event.RecordID, []) then  
            { this event already exists in the database so update it }
            EventsTable.Edit
          else begin
            EventsTable.Append;
          end;
          try
            { if a particular descendant datastore uses autoincrementing }
            { RecordID fields, then  don't overwrite them here. }
            if Event.RecordID <> -1 then
              EventsTable.FieldByName('RecordID').AsInteger := Event.RecordID;

            EventsTable.FieldByName('StartTime').AsDateTime := Event.StartTime;
            EventsTable.FieldByName('EndTime').AsDateTime := Event.EndTime;
            EventsTable.FieldByName('ResourceID').AsInteger := Resource.ResourceID;
            EventsTable.FieldByName('Description').AsString := Event.Description;
            F := EventsTable.FieldByName('Location');  // new
            if F <> nil then F.AsString := Event.Location;
            EventsTable.FieldByName('Notes').AsString := Event.Notes;
            EventsTable.FieldByName('Category').AsInteger := Event.Category;
            EventsTable.FieldByName('DingPath').AsString := Event.DingPath;
            EventsTable.FieldByName('AllDayEvent').AsBoolean := Event.AllDayEvent;
            EventsTable.FieldByName('AlarmSet').AsBoolean := Event.AlarmSet;
            EventsTable.FieldByName('AlarmAdvance').AsInteger := Event.AlarmAdvance;
            EventsTable.FieldByName('AlarmAdvanceType').AsInteger := Ord(Event.AlarmAdvanceType);
            EventsTable.FieldByName('SnoozeTime').AsDateTime := Event.SnoozeTime;
            EventsTable.FieldByName('RepeatCode').AsInteger := Ord(Event.RepeatCode);
            EventsTable.FieldByName('RepeatRangeEnd').AsDateTime := Event.RepeatRangeEnd;
            EventsTable.FieldByName('CustomInterval').AsInteger := Event.CustomInterval;
            EventsTable.FieldByName('UserField0').AsString := Event.UserField0;
            EventsTable.FieldByName('UserField1').AsString := Event.UserField1;
            EventsTable.FieldByName('UserField2').AsString := Event.UserField2;
            EventsTable.FieldByName('UserField3').AsString := Event.UserField3;
            EventsTable.FieldByName('UserField4').AsString := Event.UserField4;
            EventsTable.FieldByName('UserField5').AsString := Event.UserField5;
            EventsTable.FieldByName('UserField6').AsString := Event.UserField6;
            EventsTable.FieldByName('UserField7').AsString := Event.UserField7;
            EventsTable.FieldByName('UserField8').AsString := Event.UserField8;
            EventsTable.FieldByName('UserField9').AsString := Event.UserField9;
            EventsTable.Post;
          except
            EventsTable.Cancel;
            raise EDBPostError.Create;
          end;

          { if a particular descendant datastore uses autoincrementing    }
          { RecordID fields then the RecordID is assigned by the database }
          { and needs to be assigned here...}
          if Event.RecordID = -1 then
            Event.RecordID := EventsTable.FieldByName('RecordID').AsInteger;

          Event.Changed := false;
        end;
      end;
    end;
    Resource.EventsDirty := false;
    Resource.Schedule.Sort;

    if not Loading then
      NotifyDependents;

    if Assigned(AfterPostEvents) then
      FAfterPostEvents(self);
  end;
end;
{=====}

procedure TVpCustomDBDataStore.PostTasks;
var
  I: Integer;
  Task: TVpTask;
begin
  if (Resource <> nil) and Resource.TasksDirty then begin
    { Dump this resource's dirty contacts to the DB }
    if ResourceTable.Locate('ResourceID', Resource.ResourceID, [])
    then begin
      SetFilterCriteria(TasksTable, False, Resource.ResourceID, 0, 0);

      for I := pred(Resource.Tasks.Count) downto 0 do begin
        Task := Resource.Tasks.GetTask(I);

        { if the delete flag is set then delete the record }
        { and free the event instance }
        if Task.Deleted then begin
          if TasksTable.Locate('RecordID', Task.RecordID, []) then
            TasksTable.Delete;
          Task.Free;
          Continue;
        end;

        if Task.Changed then begin
          if TasksTable.Locate('RecordID', Task.RecordID, [])
          then
            { this event already exists in the database so update it }
            TasksTable.Edit
          else
            { this record doesn't exist in the database, so }
            { it's a new event }
            TasksTable.Append;
          try
            TasksTable.FieldByName('ResourceID').AsInteger := Resource.ResourceID;
            TasksTable.FieldByName('Description').AsString := Task.Description;
            TasksTable.FieldByName('Details').AsString := Task.Details;
            TasksTable.FieldByName('Complete').AsBoolean := Task.Complete;
            TasksTable.FieldByName('DueDate').AsDateTime := Task.DueDate;
            TasksTable.FieldByName('CreatedOn').AsDateTime := Task.CreatedOn;
            TasksTable.FieldByName('CompletedOn').AsDateTime := Task.CompletedOn;
            TasksTable.FieldByName('Priority').AsInteger := Task.Priority;
            TasksTable.FieldByName('Category').AsInteger := Task.Category;
            TasksTable.FieldByName('UserField0').AsString := Task.UserField0;
            TasksTable.FieldByName('UserField1').AsString := Task.UserField1;
            TasksTable.FieldByName('UserField2').AsString := Task.UserField2;
            TasksTable.FieldByName('UserField3').AsString := Task.UserField3;
            TasksTable.FieldByName('UserField4').AsString := Task.UserField4;
            TasksTable.FieldByName('UserField5').AsString := Task.UserField5;
            TasksTable.FieldByName('UserField6').AsString := Task.UserField6;
            TasksTable.FieldByName('UserField7').AsString := Task.UserField7;
            TasksTable.FieldByName('UserField8').AsString := Task.UserField8;
            TasksTable.FieldByName('UserField9').AsString := Task.UserField9;
            TasksTable.Post;
            Task.RecordID := TasksTable.FieldByName('RecordID').AsInteger;
          except
            TasksTable.Cancel;
            raise EDBPostError.Create;
          end;
          Task.Changed := false;
        end;
      end;
    end;
    Resource.TasksDirty := false;

    if not Loading then
      NotifyDependents;

    if Assigned(AfterPostTasks) then
      FAfterPostTasks(self);
  end;
end;
{=====}

procedure TVpCustomDBDataStore.PostResources;
var
  I: Integer;
  Res: TVpResource;
begin
  Loading := true;
  try
    if (Resources.Count > 0) then begin
      if not ResourceTable.Active then
        ResourceTable.Open;
      ResourceTable.First;
      for I := 0 to pred(Resources.Count) do begin
        Res := Resources.Items[I];

        if (Res <> nil) and Res.Deleted then begin
          PurgeEvents(Res);
          PurgeContacts(Res);
          PurgeTasks(Res);
          if ResourceTable.Locate('ResourceID', Res.ResourceID, [])   
          then ResourceTable.Delete;
          if Resource = Res then
            ResourceID := -1;
          Res.Free;
          Continue;
        end;

        { Dump this resource to the DB }
        if (Res <> nil) and Res.Changed then begin
          with ResourceTable do begin
            if Locate('ResourceID', Res.ResourceID, []) then
              { existing record found }
              Edit
            else
              { this is a new record}
              Append;

            try
              if Res.ResourceID > -1 then
                FieldByName('ResourceID').AsInteger := Res.ResourceID;

              FieldByName('Description').AsString := Res.Description;
              FieldByName('Notes').AsString := Res.Notes;
              FieldByName('ResourceActive').AsBoolean := Res.ResourceActive;
              FieldByName('UserField0').AsString := Res.UserField0;
              FieldByName('UserField1').AsString := Res.UserField1;
              FieldByName('UserField2').AsString := Res.UserField2;
              FieldByName('UserField3').AsString := Res.UserField3;
              FieldByName('UserField4').AsString := Res.UserField4;
              FieldByName('UserField5').AsString := Res.UserField5;
              FieldByName('UserField6').AsString := Res.UserField6;
              FieldByName('UserField7').AsString := Res.UserField7;
              FieldByName('UserField8').AsString := Res.UserField8;
              FieldByName('UserField9').AsString := Res.UserField9;
              Post;
            except
              Cancel;
              raise EDBPostError.Create;
            end;
              if Res.ResourceID = -1 then
                Res.ResourceID := FieldByName('ResourceID').AsInteger;
          end;
          if Res.ResourceID = ResourceID then begin
            PostEvents;
            PostContacts;
            PostTasks;
          end;
          Res.Changed := false;
        end;
      end;
      if not Loading then
        NotifyDependents;

      if Assigned(AfterPostEvents) then
        FAfterPostEvents(self);
    end;
  finally
    Loading := false;
  end;
end;
{=====}

{ - Added}
procedure TVpCustomDBDataStore.PurgeResource(Res: TVpResource);
begin
  Res.Deleted := true;
  PostResources;
  Load;
end;
{=====}

procedure TVpCustomDBDataStore.PurgeEvents(Res: TVpResource);
begin
  { Purging the events from the database is done by the descendant     !!.01}
  { classes                                                            !!.01}
  inherited;
end;
{=====}

procedure TVpCustomDBDataStore.PurgeContacts(Res: TVpResource);
begin
  { Purging the contacts from the database is done by the descendant   !!.01}
  { classes                                                            !!.01}
  inherited;
end;
{=====}

procedure TVpCustomDBDataStore.PurgeTasks(Res: TVpResource);
begin
  { Purging the tasks from the database is done by the descendant      !!.01}
  { classes                                                            !!.01}
  inherited;
end;
{=====}
{ - End}

procedure TVpCustomDBDataStore.SetResourceByName(Value: string);
var
  I: integer;
  Res : TVpResource;
begin
  for I := 0 to pred(Resources.Count) do begin
    Res := Resources.Items[I];
    if Res = nil then
      Continue;

    if Res.Description = Value then begin
      if ResourceID <> Res.ResourceID then begin
        ResourceID := Res.ResourceID;
        RefreshResource;
      end;
      Exit;
    end;
  end;
end;
{=====}

procedure TVpCustomDBDataStore.RefreshContacts;
var
  Contact: TVpContact;
  F: TField;
begin
  if Resource <> nil then begin
    { Clear the Contacts }
    Resource.Contacts.ClearContacts;
    { Load this resource's contacts into memory }
    with ContactsTable do begin
      SetFilterCriteria(ContactsTable, False, Resource.ResourceID, 0, 0);
      First;
      while not EOF do begin
        Contact := Resource.Contacts.AddContact(FieldByName('RecordID').AsInteger);
        Contact.Loading := true;
//        Contact.RecordID := FieldByName('RecordID').AsInteger;      
        Contact.FirstName := FieldByName('FirstName').AsString;
        Contact.LastName := FieldByName('LastName').AsString;
        Contact.Birthdate := FieldByName('Birthdate').AsDateTime;
        Contact.Anniversary := FieldByName('Anniversary').AsDateTime;
        Contact.Title := FieldByName('Title').AsString;
        Contact.Company := FieldByName('Company').AsString;
        Contact.Job_Position := FieldByName('Job_Position').AsString;
        Contact.EMail := FieldByName('EMail').AsString;
        Contact.Address := FieldByName('Address').AsString;
        Contact.City := FieldByName('City').AsString;
        Contact.State := FieldByName('State').AsString;
        Contact.Zip := FieldByName('Zip').AsString;
        Contact.Country := FieldByName('Country').AsString;
        F := FieldByName('Notes');
        if F = nil then F := FieldByName('Note');  // deprecated
        if F <> nil then Contact.Notes := F.AsString;
        Contact.Phone1 := FieldByName('Phone1').AsString;
        Contact.Phone2 := FieldByName('Phone2').AsString;
        Contact.Phone3 := FieldByName('Phone3').AsString;
        Contact.Phone4 := FieldByName('Phone4').AsString;
        Contact.Phone5 := FieldByName('Phone5').AsString;
        Contact.PhoneType1 := FieldByName('PhoneType1').AsInteger;
        Contact.PhoneType2 := FieldByName('PhoneType2').AsInteger;
        Contact.PhoneType3 := FieldByName('PhoneType3').AsInteger;
        Contact.PhoneType4 := FieldByName('PhoneType4').AsInteger;
        Contact.PhoneType5 := FieldByName('PhoneType5').AsInteger;
        Contact.Category := FieldByName('Category').AsInteger;
        Contact.Custom1 := FieldByName('Custom1').AsString;
        Contact.Custom2 := FieldByName('Custom2').AsString;
        Contact.Custom3 := FieldByName('Custom3').AsString;
        Contact.Custom4 := FieldByName('Custom4').AsString;
        Contact.UserField0 := FieldByName('UserField0').AsString;
        Contact.UserField1 := FieldByName('UserField1').AsString;
        Contact.UserField2 := FieldByName('UserField2').AsString;
        Contact.UserField3 := FieldByName('UserField3').AsString;
        Contact.UserField4 := FieldByName('UserField4').AsString;
        Contact.UserField5 := FieldByName('UserField5').AsString;
        Contact.UserField6 := FieldByName('UserField6').AsString;
        Contact.UserField7 := FieldByName('UserField7').AsString;
        Contact.UserField8 := FieldByName('UserField8').AsString;
        Contact.UserField9 := FieldByName('UserField9').AsString;
        Contact.Loading := false;
        Next;
      end;
    end;
    inherited;
  end;
end;
{=====}

procedure TVpCustomDBDataStore.RefreshEvents;
var
  Event: TVpEvent;
  F: TField;
begin
  if Resource <> nil then begin
    { Clear the Events }
    Resource.Schedule.ClearEvents;

    { Load this resource's events into memory }
    with EventsTable do begin
      SetFilterCriteria(EventsTable, True, Resource.ResourceID, TimeRange.StartTime, TimeRange.EndTime);
      First;

      while not EventsTable.EOF  do
      begin
        Event := Resource.Schedule.AddEvent(
          FieldByName('RecordID').AsInteger,
          FieldByName('StartTime').AsDateTime,
          FieldByName('EndTime').AsDateTime
        );
        if Event <> nil then begin
          Event.Loading := true; {prevents the events changed flag from being set}
//          Event.RecordID := FieldByName('RecordID').AsInteger;      
          Event.Description := FieldByName('Description').AsString;
          F := FieldByName('Location');               // new
          if F <> nil then Event.Location := F.AsString;
          Event.Notes := FieldByName('Notes').AsString;
          Event.Category := FieldByName('Category').AsInteger;
          Event.DingPath := FieldByName('DingPath').AsString;
          Event.AllDayEvent := FieldByName('AllDayEvent').AsBoolean;
          Event.AlarmSet := FieldByName('AlarmSet').AsBoolean;
          Event.AlarmAdvance := FieldByName('AlarmAdvance').AsInteger;
          Event.AlarmAdvanceType := TVpAlarmAdvType(
            FieldByName('AlarmAdvanceType').AsInteger);
          Event.RepeatCode := TVpRepeatType(FieldByName('RepeatCode').AsInteger);
          Event.RepeatRangeEnd := FieldByName('RepeatRangeEnd').AsDateTime;
          Event.CustomInterval := FieldByName('CustomInterval').AsInteger;
          Event.UserField0 := FieldByName('UserField0').AsString;
          Event.UserField1 := FieldByName('UserField1').AsString;
          Event.UserField2 := FieldByName('UserField2').AsString;
          Event.UserField3 := FieldByName('UserField3').AsString;
          Event.UserField4 := FieldByName('UserField4').AsString;
          Event.UserField5 := FieldByName('UserField5').AsString;
          Event.UserField6 := FieldByName('UserField6').AsString;
          Event.UserField7 := FieldByName('UserField7').AsString;
          Event.UserField8 := FieldByName('UserField8').AsString;
          Event.UserField9 := FieldByName('UserField9').AsString;

          Event.Loading := false;
        end;
        Next;
      end;
    end;
    inherited;
  end;
end;
{=====}

procedure TVpCustomDBDataStore.RefreshTasks;
var
  Task: TVpTask;
begin
  if Resource <> nil then begin
    { Clear the Tasks }
    Resource.Tasks.ClearTasks;
    { Load this resource's tasks into memory }
    with TasksTable do begin
      SetFilterCriteria(TasksTable, False, Resource.ResourceID, 0, 0);
      First;
      while not EOF do begin
        Task := Resource.Tasks.AddTask(FieldByName('RecordID').AsInteger);
        Task.Loading := true;
//        Task.RecordID := FieldByName('RecordID').AsInteger;         
        Task.Complete := FieldByName('Complete').AsBoolean;
        Task.Description := FieldByName('Description').AsString;
        Task.Details := FieldByName('Details').AsString;
        Task.CreatedOn := FieldByName('CreatedOn').AsDateTime;
        Task.CompletedOn := FieldByName('CompletedOn').AsDateTime;
        Task.Priority := FieldByName('Priority').AsInteger;
        Task.Category := FieldByName('Category').AsInteger;
        Task.DueDate := FieldByName('DueDate').AsDateTime;
        Task.UserField0 := FieldByName('UserField0').AsString;
        Task.UserField1 := FieldByName('UserField1').AsString;
        Task.UserField2 := FieldByName('UserField2').AsString;
        Task.UserField3 := FieldByName('UserField3').AsString;
        Task.UserField4 := FieldByName('UserField4').AsString;
        Task.UserField5 := FieldByName('UserField5').AsString;
        Task.UserField6 := FieldByName('UserField6').AsString;
        Task.UserField7 := FieldByName('UserField7').AsString;
        Task.UserField8 := FieldByName('UserField8').AsString;
        Task.UserField9 := FieldByName('UserField9').AsString;
        Task.Loading := false;
        Next;
      end;
    end;
    inherited;
  end;
end;
{=====}

procedure TVpCustomDBDataStore.RefreshResource;
begin
  if (not ResourceTable.Active) or (ResourceID = -1) then
    Exit;

  {clear the resource}
  if Resource <> nil then begin
    Resource.Schedule.ClearEvents;
    Resource.Tasks.ClearTasks;
    Resource.Contacts.ClearContacts;
  end;

{  if Resource = nil then
    Resource := Resources.GetResource(ResourceID);}

  with ResourceTable do begin
    { if a resource }
    if Locate('ResourceID', ResourceID, []) then begin
      Resource.ResourceID := ResourceID;
      Resource.Description := FieldByName('Description').AsString;
      Resource.Notes := FieldByName('Notes').AsString;
      Resource.ResourceActive := FieldByName('ResourceActive').AsBoolean;
      Resource.UserField0 := FieldByName('UserField0').AsString;
      Resource.UserField1 := FieldByName('UserField1').AsString;
      Resource.UserField2 := FieldByName('UserField2').AsString;
      Resource.UserField3 := FieldByName('UserField3').AsString;
      Resource.UserField4 := FieldByName('UserField4').AsString;
      Resource.UserField5 := FieldByName('UserField5').AsString;
      Resource.UserField6 := FieldByName('UserField6').AsString;
      Resource.UserField7 := FieldByName('UserField7').AsString;
      Resource.UserField8 := FieldByName('UserField8').AsString;
      Resource.UserField9 := FieldByName('UserField9').AsString;
      LoadEvents;
      LoadContacts;
      LoadTasks;
    end;
  end;

  inherited;
end;
{=====}

procedure TVpCustomDBDataStore.SetReadOnly(const Value: boolean);
var
  I: Integer;
begin
  FReadOnly := Value;
  if FReadOnly then begin
    for I := 0 to pred(Owner.ComponentCount) do begin
      if (Owner.Components[I] is TVpLinkableControl)
      and (TVpLinkableControl(Owner.Components[I]).DataStore = self) then
        TVpLinkableControl(Owner.Components[I]).ReadOnly := true;
    end;
  end;
end;
{=====}

procedure TVpCustomDBDataStore.SetFilterCriteria(aTable : TDataset;
  aUseDateTime : Boolean; aResourceID : Integer; aStartDateTime : TDateTime;
      aEndDateTime : TDateTime);
begin
  // error here: "... raised an exception class 'EDatabaseError' with message:
  //              Index based on unknown field '>='.".
  // Could it be that it does not recognise StartTime and EndTime
  // (because they are not mapped?)
  // however StartTime + EndTime are only found in events not tasks

 { if aUseDateTime then
    aTable.Filter := Format('ResourceID = %d '
      + 'and (( (StartTime >= %s) and (EndTime <= %s) ) '
      + '     or ( (RepeatCode > 0) and (%s <= RepeatRangeEnd) ))',
      [aResourceID,
       QuotedStr(FormatDateTime('c', aStartDateTime)),
       QuotedStr(FormatDateTime('c', aEndDateTime)),
       QuotedStr(FormatDateTime('c', aStartDateTime))])
  else
  }
  aTable.Filter := Format('ResourceID = %d', [aResourceID]);
  aTable.Filtered := true;
end;
                         (*
procedure TVpCustomDBDataStore.SetFilterCriteria(aTable : TDataset;
  aUseDateTime : Boolean; aResourceID : Integer; aStartDateTime : TDateTime;
  aEndDateTime : TDateTime);
var
  filter: String;
begin
  if aUseDateTime then
    filter := Format('ResourceID = %d '
      + 'and ( ( (StartTime >= %s) and (EndTime <= %s) ) '
      + '     or ( (RepeatCode > 0) and (%s <= RepeatRangeEnd) ) )',
      [aResourceID,
       QuotedStr(FormatDateTime('c', aStartDateTime)),
       QuotedStr(FormatDateTime('c', aEndDateTime)),
       QuotedStr(FormatDateTime('c', aStartDateTime))])
  else
    filter := Format('ResourceID = %d', [aResourceID]);
  aTable.Filter := filter;
  aTable.Filtered := true;
end;                       *)
{=====}

end.