Measure/DataModules/StaffDm.dfm

object StaffData: TStaffData
  OldCreateOrder = False
  Left = 503
  Top = 424
  Height = 272
  Width = 267
  object atStaff: TADOTable
    TableName = 'Staff'
    Left = 40
    Top = 16
  end
  object dspStaff: TDataSetProvider
    DataSet = atStaff
    UpdateMode = upWhereKeyOnly
    Left = 40
    Top = 80
  end
  object cdsStaff: TClientDataSet
    Aggregates = <>
    Params = <>
    ProviderName = 'dspStaff'
    Left = 40
    Top = 144
    object cdsStaffPhaseID: TIntegerField
      FieldName = 'PhaseID'
    end
    object cdsStaffStageID: TIntegerField
      FieldName = 'StageID'
    end
    object cdsStaffCompany: TWideStringField
      FieldName = 'Company'
      Size = 50
    end
    object cdsStaffRole: TWideStringField
      FieldName = 'Role'
    end
    object cdsStaffName: TWideStringField
      FieldName = 'Name'
    end
    object cdsStaffLocked: TBooleanField
      FieldName = 'Locked'
    end
    object cdsStaffEnable: TBooleanField
      FieldName = 'Enable'
    end
  end
  object cdsStaffView: TClientDataSet
    Aggregates = <>
    Params = <>
    Left = 112
    Top = 144
    object cdsStaffViewPhaseID: TIntegerField
      FieldName = 'PhaseID'
    end
    object cdsStaffViewStageID: TIntegerField
      FieldName = 'StageID'
      OnGetText = cdsStaffViewStageIDGetText
    end
    object cdsStaffViewCompany: TWideStringField
      FieldName = 'Company'
      Size = 50
    end
    object cdsStaffViewRole: TWideStringField
      FieldName = 'Role'
    end
    object cdsStaffViewName: TWideStringField
      FieldName = 'Name'
    end
    object cdsStaffViewLocked: TBooleanField
      FieldName = 'Locked'
    end
    object cdsStaffViewEnable: TBooleanField
      FieldName = 'Enable'
    end
  end
  object cdsStaffUpdate: TClientDataSet
    Aggregates = <>
    Params = <>
    Left = 192
    Top = 144
    object cdsStaffUpdatePhaseID: TIntegerField
      FieldName = 'PhaseID'
    end
    object cdsStaffUpdateStageID: TIntegerField
      FieldName = 'StageID'
    end
    object cdsStaffUpdateCompany: TWideStringField
      FieldName = 'Company'
      Size = 50
    end
    object cdsStaffUpdateRole: TWideStringField
      FieldName = 'Role'
    end
    object cdsStaffUpdateName: TWideStringField
      FieldName = 'Name'
    end
    object cdsStaffUpdateLocked: TBooleanField
      FieldName = 'Locked'
    end
    object cdsStaffUpdateEnable: TBooleanField
      FieldName = 'Enable'
    end
  end
end