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