lazarus-ccr/components/tvplanit/examples/datastores/flex/access/unit1.lfm

object Form1: TForm1
  Left = 336
  Height = 686
  Top = 153
  Width = 980
  Caption = 'VpFlexDatastore demo (MS Access via ODBC)'
  ClientHeight = 686
  ClientWidth = 980
  LCLVersion = '3.99.0.0'
  OnCreate = FormCreate
  OnDestroy = FormDestroy
  object Panel1: TPanel
    Left = 0
    Height = 34
    Top = 0
    Width = 980
    Align = alTop
    AutoSize = True
    BevelOuter = bvNone
    ClientHeight = 34
    ClientWidth = 980
    TabOrder = 0
    object VpResourceCombo1: TVpResourceCombo
      AnchorSideLeft.Control = Panel1
      AnchorSideTop.Control = Panel1
      AnchorSideTop.Side = asrCenter
      Left = 4
      Height = 23
      Top = 6
      Width = 208
      DataStore = VpFlexDataStore1
      Style = csDropDownList
      Borderspacing.Left = 4
      Borderspacing.Top = 4
      Borderspacing.Bottom = 4
    end
    object BtnNewRes: TButton
      AnchorSideLeft.Control = VpResourceCombo1
      AnchorSideLeft.Side = asrBottom
      AnchorSideTop.Control = Panel1
      AnchorSideTop.Side = asrCenter
      Left = 216
      Height = 25
      Top = 5
      Width = 98
      AutoSize = True
      BorderSpacing.Left = 4
      BorderSpacing.Top = 4
      BorderSpacing.Bottom = 4
      Caption = 'New resource'
      TabOrder = 1
      OnClick = BtnNewResClick
    end
    object BtnEditRes: TButton
      AnchorSideLeft.Control = BtnNewRes
      AnchorSideLeft.Side = asrBottom
      AnchorSideTop.Control = Panel1
      AnchorSideTop.Side = asrCenter
      Left = 318
      Height = 25
      Top = 5
      Width = 94
      AutoSize = True
      BorderSpacing.Left = 4
      BorderSpacing.Top = 4
      BorderSpacing.Bottom = 4
      Caption = 'Edit resource'
      TabOrder = 2
      OnClick = BtnEditResClick
    end
    object BtnDeleteRes: TButton
      AnchorSideLeft.Control = BtnEditRes
      AnchorSideLeft.Side = asrBottom
      AnchorSideTop.Control = Panel1
      AnchorSideTop.Side = asrCenter
      Left = 416
      Height = 25
      Top = 5
      Width = 107
      AutoSize = True
      BorderSpacing.Left = 4
      BorderSpacing.Top = 4
      BorderSpacing.Bottom = 4
      Caption = 'Delete resource'
      TabOrder = 3
      OnClick = BtnDeleteResClick
    end
  end
  object PageControl1: TPageControl
    Left = 0
    Height = 652
    Top = 34
    Width = 980
    ActivePage = TabSheet1
    Align = alClient
    TabIndex = 0
    TabOrder = 1
    OnChange = PageControl1Change
    object TabSheet1: TTabSheet
      Caption = 'Events and tasks'
      ClientHeight = 624
      ClientWidth = 972
      object VpDayView1: TVpDayView
        Left = 0
        Height = 624
        Top = 0
        Width = 301
        PopupMenu = VpDayView1.default
        DataStore = VpFlexDataStore1
        ControlLink = VpControlLink1
        Align = alLeft
        TabOrder = 0
        AllowDragAndDrop = True
        ShowEventTimes = False
        DrawingStyle = dsFlat
        TimeSlotColors.Active = clWhite
        TimeSlotColors.Inactive = 8454143
        TimeSlotColors.Holiday = 16744703
        TimeSlotColors.Weekend = 16777088
        TimeSlotColors.ActiveRange.RangeBegin = h_00
        TimeSlotColors.ActiveRange.RangeEnd = h_00
        HeadAttributes.Font.Height = -13
        RowHeadAttributes.HourFont.Height = -24
        RowHeadAttributes.MinuteFont.Height = -12
        LineColor = clGray
        DateLabelFormat = 'dddd, mmmm dd, yyyy'
      end
      object Panel2: TPanel
        Left = 306
        Height = 624
        Top = 0
        Width = 386
        Align = alLeft
        BevelOuter = bvNone
        Caption = 'Panel2'
        ClientHeight = 624
        ClientWidth = 386
        TabOrder = 1
        object VpWeekView1: TVpWeekView
          Left = 0
          Height = 378
          Top = 0
          Width = 386
          PopupMenu = VpWeekView1.default
          DataStore = VpFlexDataStore1
          ControlLink = VpControlLink1
          AllDayEventAttributes.BackgroundColor = clWindow
          AllDayEventAttributes.EventBorderColor = clGray
          DateLabelFormat = 'dddd, mmmm dd, yyyy'
          DayHeadAttributes.DateFormat = 'dddd mmmm, dd'
          DayHeadAttributes.Font.Height = -13
          DayHeadAttributes.Font.Name = 'Tahoma'
          DrawingStyle = dsFlat
          LineColor = clGray
          WeekStartsOn = dtMonday
          Align = alClient
          TabOrder = 0
        end
        object VpMonthView1: TVpMonthView
          Left = 0
          Height = 241
          Top = 383
          Width = 386
          PopupMenu = VpMonthView1.default
          DataStore = VpFlexDataStore1
          ControlLink = VpControlLink1
          Align = alBottom
          TabOrder = 1
          DayHeadAttributes.Font.Height = -13
          DayHeadAttributes.Font.Name = 'Tahoma'
          DrawingStyle = dsFlat
          OffDayColor = clSilver
          TodayAttributes.Color = clSilver
          TodayAttributes.BorderPen.Color = clRed
          TodayAttributes.BorderPen.Width = 3
          WeekStartsOn = dtMonday
        end
        object Splitter2: TSplitter
          Cursor = crVSplit
          Left = 0
          Height = 5
          Top = 378
          Width = 386
          Align = alBottom
          ResizeAnchor = akBottom
        end
      end
      object VpTaskList1: TVpTaskList
        Left = 697
        Height = 624
        Top = 0
        Width = 275
        PopupMenu = VpTaskList1.default
        DataStore = VpFlexDataStore1
        ControlLink = VpControlLink1
        Align = alClient
        TabOrder = 2
        DisplayOptions.ShowAll = True
        DisplayOptions.NormalColor = clBlack
        DrawingStyle = dsFlat
        LineColor = clGray
        TaskHeadAttributes.Color = clSilver
      end
      object Splitter1: TSplitter
        Left = 692
        Height = 624
        Top = 0
        Width = 5
      end
      object Splitter3: TSplitter
        Left = 301
        Height = 624
        Top = 0
        Width = 5
      end
    end
    object TabSheet2: TTabSheet
      Caption = 'Contacts'
      ClientHeight = 624
      ClientWidth = 972
      object VpContactButtonBar1: TVpContactButtonBar
        Left = 0
        Height = 624
        Top = 0
        Width = 40
        DrawingStyle = dsFlat
        RadioStyle = False
        Align = alLeft
      end
      object VpContactGrid1: TVpContactGrid
        Left = 40
        Height = 624
        Top = 0
        Width = 932
        PopupMenu = VpContactGrid1.default
        DataStore = VpFlexDataStore1
        ControlLink = VpControlLink1
        Align = alClient
        TabOrder = 1
        ColumnWidth = 200
        DrawingStyle = dsFlat
      end
    end
    object TabSheet3: TTabSheet
      Caption = 'Grids'
      ClientHeight = 624
      ClientWidth = 972
      object TabControl1: TTabControl
        AnchorSideLeft.Control = TabSheet3
        AnchorSideTop.Control = DBNavigator
        AnchorSideTop.Side = asrBottom
        AnchorSideRight.Control = TabSheet3
        AnchorSideRight.Side = asrBottom
        AnchorSideBottom.Control = TabSheet3
        AnchorSideBottom.Side = asrBottom
        Left = 8
        Height = 575
        Top = 41
        Width = 956
        OnChange = TabControl1Change
        TabIndex = 0
        Tabs.Strings = (
          'Resources'
          'Contacts'
          'Events'
          'Tasks'
        )
        Anchors = [akTop, akLeft, akRight, akBottom]
        BorderSpacing.Around = 8
        TabOrder = 0
        object Grid: TDBGrid
          Left = 2
          Height = 550
          Top = 23
          Width = 952
          Align = alClient
          Color = clWindow
          Columns = <>
          DataSource = DsResources
          Options = [dgEditing, dgTitles, dgIndicator, dgColumnResize, dgColumnMove, dgColLines, dgRowLines, dgTabs, dgAlwaysShowSelection, dgConfirmDelete, dgCancelOnExit, dgThumbTracking]
          TabOrder = 1
        end
      end
      object DBNavigator: TDBNavigator
        AnchorSideLeft.Control = TabSheet3
        AnchorSideTop.Control = TabSheet3
        Left = 8
        Height = 25
        Top = 8
        Width = 241
        BevelOuter = bvNone
        BorderSpacing.Left = 8
        BorderSpacing.Top = 8
        ChildSizing.EnlargeHorizontal = crsScaleChilds
        ChildSizing.EnlargeVertical = crsScaleChilds
        ChildSizing.ShrinkHorizontal = crsScaleChilds
        ChildSizing.ShrinkVertical = crsScaleChilds
        ChildSizing.Layout = cclLeftToRightThenTopToBottom
        ChildSizing.ControlsPerLine = 100
        ClientHeight = 25
        ClientWidth = 241
        Options = []
        TabOrder = 1
      end
      object BtnApplyToPlanner: TButton
        AnchorSideLeft.Control = DBNavigator
        AnchorSideLeft.Side = asrBottom
        AnchorSideTop.Control = DBNavigator
        AnchorSideTop.Side = asrCenter
        Left = 257
        Height = 25
        Top = 8
        Width = 120
        BorderSpacing.Left = 8
        Caption = 'Apply to planner'
        TabOrder = 2
        OnClick = BtnApplyToPlannerClick
      end
    end
  end
  object VpControlLink1: TVpControlLink
    DataStore = VpFlexDataStore1
    Printer.DayStart = h_08
    Printer.DayEnd = h_05
    Printer.Granularity = gr30Min
    Printer.MarginUnits = imAbsolutePixel
    Printer.PrintFormats = <>
    Left = 136
    Top = 168
  end
  object VpResourceEditDialog1: TVpResourceEditDialog
    Version = 'v1.8.0'
    DataStore = VpFlexDataStore1
    Options = []
    Placement.Position = mpCenter
    Placement.Top = 10
    Placement.Left = 10
    Placement.Height = 250
    Placement.Width = 400
    Left = 136
    Top = 232
  end
  object VpFlexDataStore1: TVpFlexDataStore
    CategoryColorMap.Category0.Description = 'Category 0'
    CategoryColorMap.Category1.Description = 'Category 1'
    CategoryColorMap.Category2.Description = 'Category 2'
    CategoryColorMap.Category3.Description = 'Category 3'
    CategoryColorMap.Category4.Description = 'Category 4'
    CategoryColorMap.Category5.Description = 'Category 5'
    CategoryColorMap.Category6.Description = 'Category 6'
    CategoryColorMap.Category7.Description = 'Category 7'
    CategoryColorMap.Category8.Description = 'Category 8'
    CategoryColorMap.Category9.Description = 'Category 9'
    HiddenCategories.BackgroundColor = clSilver
    HiddenCategories.Color = clGray
    DataSources.ResourceDataSource = DsResources
    DataSources.EventsDataSource = DsEvents
    DataSources.ContactsDataSource = DsContacts
    DataSources.TasksDataSource = DsTasks
    OnCreateTable = VpFlexDataStore1CreateTable
    Left = 136
    Top = 101
    ResourceFieldMappings = (
      'ResourceID'
      'ResourceID'
      'Description'
      'Description'
      'Notes'
      'Notes'
      'ImageIndex'
      'ImageIndex'
      'ResourceActive'
      'ResourceActive'
      'UserField0'
      'UserField0'
      'UserField1'
      'UserField1'
      'UserField2'
      'UserField2'
      'UserField3'
      'UserField3'
      'UserField4'
      'UserField4'
      'UserField5'
      'UserField5'
      'UserField6'
      'UserField6'
      'UserField7'
      'UserField7'
      'UserField8'
      'UserField8'
      'UserField9'
      'UserField9'
    )
    EventFieldMappings = (
      'RecordID'
      'RecordID'
      'ResourceID'
      'ResourceID'
      'StartTime'
      'StartTime'
      'EndTime'
      'EndTime'
      'Description'
      'Description'
      'Location'
      'Location'
      'Notes'
      'Notes'
      'Category'
      'Category'
      'AllDayEvent'
      'AllDayEvent'
      'DingPath'
      'DingPath'
      'AlarmSet'
      'AlarmSet'
      'AlarmAdvance'
      'AlarmAdvance'
      'AlarmAdvanceType'
      'AlarmAdvanceType'
      'SnoozeTime'
      'SnoozeTime'
      'RepeatCode'
      'RepeatCode'
      'RepeatRangeEnd'
      'RepeatRangeEnd'
      'CustomInterval'
      'CustomInterval'
    )
    ContactFieldMappings = (
      'RecordID'
      'RecordID'
      'ResourceID'
      'ResourceID'
      'FirstName'
      'FirstName'
      'LastName'
      'LastName'
      'Birthdate'
      'Birthdate'
      'Anniversary'
      'Anniversary'
      'Title'
      'Title'
      'Company'
      'Company'
      'Job_Position'
      'Job_Position'
      'Address1'
      'Address1'
      'Address2'
      'Address2'
      'City1'
      'City1'
      'City2'
      'City2'
      'State1'
      'State1'
      'State2'
      'State2'
      'Zip1'
      'Zip1'
      'Zip2'
      'Zip2'
      'Country1'
      'Country1'
      'Country2'
      'Country2'
      'Notes'
      'Notes'
      'EMail1'
      'EMail1'
      'EMail2'
      'EMail2'
      'EMail3'
      'EMail3'
      'EMailType1'
      'EMailType1'
      'EMailType2'
      'EMailType2'
      'EMailType3'
      'EMailType3'
      'Phone1'
      'Phone1'
      'Phone2'
      'Phone2'
      'Phone3'
      'Phone3'
      'Phone4'
      'Phone4'
      'Phone5'
      'Phone5'
      'PhoneType1'
      'PhoneType1'
      'PhoneType2'
      'PhoneType2'
      'PhoneType3'
      'PhoneType3'
      'PhoneType4'
      'PhoneType4'
      'PhoneType5'
      'PhoneType5'
      'Website1'
      'Website1'
      'Website2'
      'Website2'
      'WebsiteType1'
      'WebsiteType1'
      'WebsiteType2'
      'WebsiteType2'
      'Category'
      'Category'
      'PathToPhoto'
      'PathToPhoto'
      'Custom1'
      'Custom1'
      'Custom2'
      'Custom2'
      'Custom3'
      'Custom3'
      'Custom4'
      'Custom4'
    )
    TaskFieldMappings = (
      'RecordID'
      'RecordID'
      'ResourceID'
      'ResourceID'
      'Complete'
      'Complete'
      'Description'
      'Description'
      'Details'
      'Details'
      'CreatedOn'
      'CreatedOn'
      'Priority'
      'Priority'
      'Category'
      'Category'
      'CompletedOn'
      'CompletedOn'
      'DueDate'
      'DueDate'
    )
  end
  object DsResources: TDataSource
    DataSet = QryResources
    Left = 240
    Top = 428
  end
  object DsContacts: TDataSource
    DataSet = QryContacts
    Left = 240
    Top = 496
  end
  object DsEvents: TDataSource
    DataSet = QryEvents
    Left = 240
    Top = 560
  end
  object DsTasks: TDataSource
    DataSet = QryTasks
    Left = 240
    Top = 621
  end
  object QryResources: TSQLQuery
    PacketRecords = -1
    FieldDefs = <    
      item
        Name = 'ResourceID'
        Attributes = [faReadonly]
        DataType = ftAutoInc
        Precision = -1
      end    
      item
        Name = 'Description'
        DataType = ftString
        Precision = -1
        Size = 255
      end    
      item
        Name = 'Notes'
        DataType = ftString
        Precision = -1
        Size = 255
      end    
      item
        Name = 'ImageIndex'
        DataType = ftInteger
        Precision = -1
      end    
      item
        Name = 'ResourceActive'
        DataType = ftBoolean
        Precision = -1
      end    
      item
        Name = 'UserField0'
        DataType = ftString
        Precision = -1
        Size = 100
      end    
      item
        Name = 'UserField1'
        DataType = ftString
        Precision = -1
        Size = 100
      end    
      item
        Name = 'UserField2'
        DataType = ftString
        Precision = -1
        Size = 100
      end    
      item
        Name = 'UserField3'
        DataType = ftString
        Precision = -1
        Size = 100
      end    
      item
        Name = 'UserField4'
        DataType = ftString
        Precision = -1
        Size = 100
      end    
      item
        Name = 'UserField5'
        DataType = ftString
        Precision = -1
        Size = 100
      end    
      item
        Name = 'UserField6'
        DataType = ftString
        Precision = -1
        Size = 100
      end    
      item
        Name = 'UserField7'
        DataType = ftString
        Precision = -1
        Size = 100
      end    
      item
        Name = 'UserField8'
        DataType = ftString
        Precision = -1
        Size = 100
      end    
      item
        Name = 'UserField9'
        DataType = ftString
        Precision = -1
        Size = 100
      end>
    Database = ODBCConnection1
    Transaction = SQLTransaction1
    SQL.Strings = (
      'SELECT * FROM Resources'
    )
    UpdateSQL.Strings = (
      'UPDATE'
      '  Resources'
      'SET'
      '  Description = :Description,'
      '  Notes = :Notes,'
      '  ResourceActive = :ResourceActive,'
      '  ImageIndex = :ImageIndex'
      'WHERE'
      '  ResourceID = :ResourceID'
    )
    DeleteSQL.Strings = (
      'DELETE * FROM Resources'
      'WHERE ResourceID = :ResourceID'
    )
    Options = [sqoKeepOpenOnCommit, sqoAutoApplyUpdates, sqoAutoCommit]
    Params = <>
    Macros = <>
    UsePrimaryKeyAsKey = False
    Left = 136
    Top = 428
  end
  object QryContacts: TSQLQuery
    PacketRecords = -1
    FieldDefs = <    
      item
        Name = 'RecordID'
        Attributes = [faReadonly]
        DataType = ftAutoInc
        Precision = -1
      end    
      item
        Name = 'ResourceID'
        DataType = ftInteger
        Precision = -1
      end    
      item
        Name = 'FirstName'
        DataType = ftString
        Precision = -1
        Size = 50
      end    
      item
        Name = 'LastName'
        DataType = ftString
        Precision = -1
        Size = 50
      end    
      item
        Name = 'Birthdate'
        DataType = ftDateTime
        Precision = -1
      end    
      item
        Name = 'Anniversary'
        DataType = ftDateTime
        Precision = -1
      end    
      item
        Name = 'Title'
        DataType = ftString
        Precision = -1
        Size = 50
      end    
      item
        Name = 'Company'
        DataType = ftString
        Precision = -1
        Size = 50
      end    
      item
        Name = 'Department'
        DataType = ftString
        Precision = -1
        Size = 50
      end    
      item
        Name = 'Job_Position'
        DataType = ftString
        Precision = -1
        Size = 30
      end    
      item
        Name = 'AddressType1'
        DataType = ftInteger
        Precision = -1
      end    
      item
        Name = 'Address1'
        DataType = ftString
        Precision = -1
        Size = 100
      end    
      item
        Name = 'City1'
        DataType = ftString
        Precision = -1
        Size = 50
      end    
      item
        Name = 'State1'
        DataType = ftString
        Precision = -1
        Size = 25
      end    
      item
        Name = 'Zip1'
        DataType = ftString
        Precision = -1
        Size = 10
      end    
      item
        Name = 'Country1'
        DataType = ftString
        Precision = -1
        Size = 25
      end    
      item
        Name = 'AddressType2'
        DataType = ftInteger
        Precision = -1
      end    
      item
        Name = 'Address2'
        DataType = ftString
        Precision = -1
        Size = 100
      end    
      item
        Name = 'City2'
        DataType = ftString
        Precision = -1
        Size = 50
      end    
      item
        Name = 'State2'
        DataType = ftString
        Precision = -1
        Size = 25
      end    
      item
        Name = 'Zip2'
        DataType = ftString
        Precision = -1
        Size = 10
      end    
      item
        Name = 'Country2'
        DataType = ftString
        Precision = -1
        Size = 25
      end    
      item
        Name = 'Notes'
        DataType = ftString
        Precision = -1
        Size = 255
      end    
      item
        Name = 'EMail1'
        DataType = ftString
        Precision = -1
        Size = 100
      end    
      item
        Name = 'EMail2'
        DataType = ftString
        Precision = -1
        Size = 100
      end    
      item
        Name = 'EMail3'
        DataType = ftString
        Precision = -1
        Size = 100
      end    
      item
        Name = 'EMailType1'
        DataType = ftInteger
        Precision = -1
      end    
      item
        Name = 'EMailType2'
        DataType = ftInteger
        Precision = -1
      end    
      item
        Name = 'EMailType3'
        DataType = ftInteger
        Precision = -1
      end    
      item
        Name = 'Phone1'
        DataType = ftString
        Precision = -1
        Size = 25
      end    
      item
        Name = 'Phone2'
        DataType = ftString
        Precision = -1
        Size = 25
      end    
      item
        Name = 'Phone3'
        DataType = ftString
        Precision = -1
        Size = 25
      end    
      item
        Name = 'Phone4'
        DataType = ftString
        Precision = -1
        Size = 25
      end    
      item
        Name = 'Phone5'
        DataType = ftString
        Precision = -1
        Size = 25
      end    
      item
        Name = 'PhoneType1'
        DataType = ftInteger
        Precision = -1
      end    
      item
        Name = 'PhoneType2'
        DataType = ftInteger
        Precision = -1
      end    
      item
        Name = 'PhoneType3'
        DataType = ftInteger
        Precision = -1
      end    
      item
        Name = 'PhoneType4'
        DataType = ftInteger
        Precision = -1
      end    
      item
        Name = 'PhoneType5'
        DataType = ftInteger
        Precision = -1
      end    
      item
        Name = 'Website1'
        DataType = ftString
        Precision = -1
        Size = 100
      end    
      item
        Name = 'Website2'
        DataType = ftString
        Precision = -1
        Size = 100
      end    
      item
        Name = 'WebsiteType1'
        DataType = ftInteger
        Precision = -1
      end    
      item
        Name = 'WebsiteType2'
        DataType = ftInteger
        Precision = -1
      end    
      item
        Name = 'Category'
        DataType = ftInteger
        Precision = -1
      end    
      item
        Name = 'Custom1'
        DataType = ftString
        Precision = -1
        Size = 100
      end    
      item
        Name = 'Custom2'
        DataType = ftString
        Precision = -1
        Size = 100
      end    
      item
        Name = 'Custom3'
        DataType = ftString
        Precision = -1
        Size = 100
      end    
      item
        Name = 'Custom4'
        DataType = ftString
        Precision = -1
        Size = 100
      end>
    Database = ODBCConnection1
    Transaction = SQLTransaction1
    SQL.Strings = (
      'SELECT * FROM Contacts'
    )
    UpdateSQL.Strings = (
      'UPDATE'
      '  Contacts'
      'SET'
      '  ResourceID = :ResourceID,'
      '  FirstName = :FirstName,'
      '  LastName = :LastName,'
      '  Title = :Title,'
      '  Category = :Category,'
      '  BirthDate = :Birthdate,'
      '  Company = :Company,'
      '  Department = :Department,'
      '  Job_Position = :Job_Position,'
      '  AddressType1 = :AddressType1,'
      '  Address1 = :Address1,'
      '  City1 = :City1,'
      '  State1 = :State1,'
      '  Zip1 = :Zip1,'
      '  Country1 = :Country1,'
      '  AddressType2 = :AddressType2,'
      '  Address2 = :Address2,'
      '  City2 = :City2,'
      '  State2 = :State2,'
      '  Zip2 = :Zip2,'
      '  Country2 = :Country2,'
      '  Notes = :Notes,'
      '  EMail1 = :EMail1,'
      '  EMail2 = :EMail2,'
      '  EMail3 = :EMail3,'
      '  EMailType1 = :EMailType1,'
      '  EMailType2 = :EMailType2,'
      '  EMailType3 = :EMailType3,'
      '  Phone1 = :Phone1,'
      '  Phone2 = :Phone2,'
      '  Phone3 = :Phone3,'
      '  Phone4 = :Phone4,'
      '  Phone5 = :Phone5,'
      '  PhoneType1 = :PhoneType1,'
      '  PhoneType2 = :PhoneType2,'
      '  PhoneType3 = :PhoneType3,'
      '  PhoneType4 = :PhoneType4,'
      '  PhoneType5 = :PhoneType5,'
      '  Website1 = :Website1,'
      '  Website2 = :Website2,'
      '  WebsiteType1 = :WebsiteType1,'
      '  WebsiteType2 = :WebsiteType2,'
      '  Custom1 = :Custom1,'
      '  Custom2 = :Custom2,'
      '  Custom3 = :Custom3,'
      '  Custom4 = :Custom4'
      'WHERE'
      '  RecordID = :RecordID'
    )
    DeleteSQL.Strings = (
      'DELETE * FROM Contacts'
      'WHERE RecordID = :RecordID'
    )
    Options = [sqoKeepOpenOnCommit, sqoAutoApplyUpdates, sqoAutoCommit]
    Params = <>
    Macros = <>
    UsePrimaryKeyAsKey = False
    Left = 136
    Top = 496
  end
  object QryEvents: TSQLQuery
    PacketRecords = -1
    FieldDefs = <    
      item
        Name = 'RecordID'
        Attributes = [faReadonly]
        DataType = ftAutoInc
        Precision = -1
      end    
      item
        Name = 'ResourceID'
        DataType = ftInteger
        Precision = -1
      end    
      item
        Name = 'StartTime'
        DataType = ftDateTime
        Precision = -1
      end    
      item
        Name = 'EndTime'
        DataType = ftDateTime
        Precision = -1
      end    
      item
        Name = 'Description'
        DataType = ftString
        Precision = -1
        Size = 255
      end    
      item
        Name = 'Location'
        DataType = ftString
        Precision = -1
        Size = 255
      end    
      item
        Name = 'Notes'
        DataType = ftString
        Precision = -1
        Size = 255
      end    
      item
        Name = 'Category'
        DataType = ftInteger
        Precision = -1
      end    
      item
        Name = 'AllDayEvent'
        DataType = ftBoolean
        Precision = -1
      end    
      item
        Name = 'DingPath'
        DataType = ftString
        Precision = -1
        Size = 255
      end    
      item
        Name = 'AlarmSet'
        DataType = ftBoolean
        Precision = -1
      end    
      item
        Name = 'AlarmAdvance'
        DataType = ftInteger
        Precision = -1
      end    
      item
        Name = 'AlarmAdvanceType'
        DataType = ftInteger
        Precision = -1
      end    
      item
        Name = 'SnoozeTime'
        DataType = ftDateTime
        Precision = -1
      end    
      item
        Name = 'RepeatCode'
        DataType = ftInteger
        Precision = -1
      end    
      item
        Name = 'RepeatRangeEnd'
        DataType = ftDateTime
        Precision = -1
      end    
      item
        Name = 'CustomInterval'
        DataType = ftInteger
        Precision = -1
      end>
    Database = ODBCConnection1
    Transaction = SQLTransaction1
    SQL.Strings = (
      'SELECT * FROM Events'
    )
    UpdateSQL.Strings = (
      'UPDATE'
      '  Events'
      'SET'
      '  ResourceID = :ResourceID,'
      '  StartTime = :StartTime,'
      '  EndTime = :EndTime,'
      '  Description = :Description,'
      '  Location = :Location,'
      '  Notes = :Notes,'
      '  SnoozeTime = :SnoozeTime,'
      '  Category = :Category,'
      '  DingPath = :DingPath,'
      '  AllDayEvent = :AllDayEvent,'
      '  AlarmSet = :AlarmSet,'
      '  AlarmAdvance = :AlarmAdvance,'
      '  AlarmAdvanceType = :AlarmAdvanceType,'
      '  RepeatCode = :RepeatCode,'
      '  RepeatRangeEnd = :RepeatRangeEnd,'
      '  CustomInterval = :CustomInterval'
      'WHERE'
      '  RecordID = :RecordID'
    )
    DeleteSQL.Strings = (
      'DELETE * FROM Events'
      'WHERE RecordID = :RecordID'
    )
    Options = [sqoKeepOpenOnCommit, sqoAutoApplyUpdates, sqoAutoCommit]
    Params = <>
    Macros = <>
    UsePrimaryKeyAsKey = False
    Left = 136
    Top = 560
  end
  object QryTasks: TSQLQuery
    PacketRecords = -1
    FieldDefs = <    
      item
        Name = 'RecordID'
        Attributes = [faReadonly]
        DataType = ftAutoInc
        Precision = -1
      end    
      item
        Name = 'ResourceID'
        DataType = ftInteger
        Precision = -1
      end    
      item
        Name = 'Complete'
        DataType = ftBoolean
        Precision = -1
      end    
      item
        Name = 'Description'
        DataType = ftString
        Precision = -1
        Size = 255
      end    
      item
        Name = 'Details'
        DataType = ftString
        Precision = -1
        Size = 255
      end    
      item
        Name = 'CreatedOn'
        DataType = ftDateTime
        Precision = -1
      end    
      item
        Name = 'Priority'
        DataType = ftInteger
        Precision = -1
      end    
      item
        Name = 'Category'
        DataType = ftInteger
        Precision = -1
      end    
      item
        Name = 'CompletedOn'
        DataType = ftDateTime
        Precision = -1
      end    
      item
        Name = 'DueDate'
        DataType = ftDateTime
        Precision = -1
      end>
    Database = ODBCConnection1
    Transaction = SQLTransaction1
    SQL.Strings = (
      'SELECT * FROM Tasks'
    )
    UpdateSQL.Strings = (
      'UPDATE'
      '  Tasks'
      'SET'
      '  ResourceID = :ResourceID,'
      '  Description = :Description,'
      '  Details = :Details,'
      '  Category = :Category,'
      '  Priority = :Priority,'
      '  Complete = :Complete,'
      '  DueDate = :DueDate,'
      '  CreatedOn = :CreatedOn,'
      '  CompletedOn = :CompletedOn'
      'WHERE'
      '  RecordID = :RecordID'
    )
    DeleteSQL.Strings = (
      'DELETE * FROM Tasks'
      'WHERE RecordID = :RecordID'
    )
    Options = [sqoKeepOpenOnCommit, sqoAutoApplyUpdates, sqoAutoCommit]
    Params = <>
    Macros = <>
    UsePrimaryKeyAsKey = False
    Left = 136
    Top = 621
  end
  object ODBCConnection1: TODBCConnection
    Connected = False
    LoginPrompt = False
    KeepConnection = True
    Params.Strings = (
      ''
    )
    Transaction = SQLTransaction1
    Driver = 'Microsoft Access Driver (*.mdb)'
    Left = 136
    Top = 304
  end
  object SQLTransaction1: TSQLTransaction
    Active = False
    Action = caCommitRetaining
    Database = ODBCConnection1
    Left = 136
    Top = 368
  end
  object QryAllResources: TSQLQuery
    PacketRecords = -1
    FieldDefs = <    
      item
        Name = 'ResourceID'
        Attributes = [faReadonly]
        DataType = ftAutoInc
        Precision = -1
      end    
      item
        Name = 'Description'
        DataType = ftString
        Precision = -1
        Size = 255
      end    
      item
        Name = 'Notes'
        DataType = ftString
        Precision = -1
        Size = 255
      end    
      item
        Name = 'ImageIndex'
        DataType = ftInteger
        Precision = -1
      end    
      item
        Name = 'ResourceActive'
        DataType = ftBoolean
        Precision = -1
      end    
      item
        Name = 'UserField0'
        DataType = ftString
        Precision = -1
        Size = 100
      end    
      item
        Name = 'UserField1'
        DataType = ftString
        Precision = -1
        Size = 100
      end    
      item
        Name = 'UserField2'
        DataType = ftString
        Precision = -1
        Size = 100
      end    
      item
        Name = 'UserField3'
        DataType = ftString
        Precision = -1
        Size = 100
      end    
      item
        Name = 'UserField4'
        DataType = ftString
        Precision = -1
        Size = 100
      end    
      item
        Name = 'UserField5'
        DataType = ftString
        Precision = -1
        Size = 100
      end    
      item
        Name = 'UserField6'
        DataType = ftString
        Precision = -1
        Size = 100
      end    
      item
        Name = 'UserField7'
        DataType = ftString
        Precision = -1
        Size = 100
      end    
      item
        Name = 'UserField8'
        DataType = ftString
        Precision = -1
        Size = 100
      end    
      item
        Name = 'UserField9'
        DataType = ftString
        Precision = -1
        Size = 100
      end>
    AfterEdit = QryGridAfterEdit
    AfterInsert = QryGridAfterInsert
    AfterPost = QryGridAfterPost
    Database = ODBCConnection1
    Transaction = SQLTransaction1
    SQL.Strings = (
      'SELECT * FROM Resources'
    )
    Options = [sqoKeepOpenOnCommit, sqoAutoCommit]
    Params = <>
    Macros = <>
    UpdateMode = upWhereAll
    UsePrimaryKeyAsKey = False
    Left = 531
    Top = 171
  end
  object QryAllContacts: TSQLQuery
    PacketRecords = -1
    FieldDefs = <    
      item
        Name = 'RecordID'
        Attributes = [faReadonly]
        DataType = ftAutoInc
        Precision = -1
      end    
      item
        Name = 'ResourceID'
        DataType = ftInteger
        Precision = -1
      end    
      item
        Name = 'FirstName'
        DataType = ftString
        Precision = -1
        Size = 50
      end    
      item
        Name = 'LastName'
        DataType = ftString
        Precision = -1
        Size = 50
      end    
      item
        Name = 'Birthdate'
        DataType = ftDateTime
        Precision = -1
      end    
      item
        Name = 'Anniversary'
        DataType = ftDateTime
        Precision = -1
      end    
      item
        Name = 'Title'
        DataType = ftString
        Precision = -1
        Size = 50
      end    
      item
        Name = 'Company'
        DataType = ftString
        Precision = -1
        Size = 50
      end    
      item
        Name = 'Job_Position'
        DataType = ftString
        Precision = -1
        Size = 30
      end    
      item
        Name = 'Address'
        DataType = ftString
        Precision = -1
        Size = 100
      end    
      item
        Name = 'City'
        DataType = ftString
        Precision = -1
        Size = 50
      end    
      item
        Name = 'State'
        DataType = ftString
        Precision = -1
        Size = 25
      end    
      item
        Name = 'Zip'
        DataType = ftString
        Precision = -1
        Size = 10
      end    
      item
        Name = 'Country'
        DataType = ftString
        Precision = -1
        Size = 25
      end    
      item
        Name = 'Notes'
        DataType = ftString
        Precision = -1
        Size = 255
      end    
      item
        Name = 'Phone1'
        DataType = ftString
        Precision = -1
        Size = 25
      end    
      item
        Name = 'Phone2'
        DataType = ftString
        Precision = -1
        Size = 25
      end    
      item
        Name = 'Phone3'
        DataType = ftString
        Precision = -1
        Size = 25
      end    
      item
        Name = 'Phone4'
        DataType = ftString
        Precision = -1
        Size = 25
      end    
      item
        Name = 'Phone5'
        DataType = ftString
        Precision = -1
        Size = 25
      end    
      item
        Name = 'PhoneType1'
        DataType = ftInteger
        Precision = -1
      end    
      item
        Name = 'PhoneType2'
        DataType = ftInteger
        Precision = -1
      end    
      item
        Name = 'PhoneType3'
        DataType = ftInteger
        Precision = -1
      end    
      item
        Name = 'PhoneType4'
        DataType = ftInteger
        Precision = -1
      end    
      item
        Name = 'PhoneType5'
        DataType = ftInteger
        Precision = -1
      end    
      item
        Name = 'Category'
        DataType = ftInteger
        Precision = -1
      end    
      item
        Name = 'EMail'
        DataType = ftString
        Precision = -1
        Size = 100
      end    
      item
        Name = 'Custom1'
        DataType = ftString
        Precision = -1
        Size = 100
      end    
      item
        Name = 'Custom2'
        DataType = ftString
        Precision = -1
        Size = 100
      end    
      item
        Name = 'Custom3'
        DataType = ftString
        Precision = -1
        Size = 100
      end    
      item
        Name = 'Custom4'
        DataType = ftString
        Precision = -1
        Size = 100
      end>
    AfterEdit = QryGridAfterEdit
    AfterInsert = QryGridAfterInsert
    AfterPost = QryGridAfterPost
    Database = ODBCConnection1
    Transaction = SQLTransaction1
    SQL.Strings = (
      'SELECT * FROM Contacts'
    )
    Options = [sqoKeepOpenOnCommit, sqoAutoCommit]
    Params = <>
    Macros = <>
    UpdateMode = upWhereAll
    UsePrimaryKeyAsKey = False
    Left = 531
    Top = 225
  end
  object QryAllEvents: TSQLQuery
    PacketRecords = -1
    FieldDefs = <>
    AfterEdit = QryGridAfterEdit
    AfterInsert = QryGridAfterInsert
    AfterPost = QryGridAfterPost
    Database = ODBCConnection1
    Transaction = SQLTransaction1
    SQL.Strings = (
      'SELECT * FROM Events'
    )
    Options = [sqoKeepOpenOnCommit, sqoAutoCommit]
    Params = <>
    Macros = <>
    UpdateMode = upWhereAll
    UsePrimaryKeyAsKey = False
    Left = 531
    Top = 285
  end
  object QryAllTasks: TSQLQuery
    PacketRecords = -1
    FieldDefs = <>
    AfterEdit = QryGridAfterEdit
    AfterInsert = QryGridAfterInsert
    AfterPost = QryGridAfterPost
    Database = ODBCConnection1
    Transaction = SQLTransaction1
    SQL.Strings = (
      'SELECT * FROM Tasks'
    )
    Options = [sqoKeepOpenOnCommit, sqoAutoCommit]
    Params = <>
    Macros = <>
    UpdateMode = upWhereAll
    UsePrimaryKeyAsKey = False
    Left = 531
    Top = 352
  end
  object DsAllResources: TDataSource
    DataSet = QryAllResources
    Left = 627
    Top = 171
  end
  object DsAllContacts: TDataSource
    DataSet = QryAllContacts
    Left = 630
    Top = 225
  end
  object DsAllEvents: TDataSource
    DataSet = QryAllEvents
    Left = 625
    Top = 285
  end
  object DsAllTasks: TDataSource
    DataSet = QryAllTasks
    Left = 627
    Top = 352
  end
end