You've already forked lazarus-ccr
TvPlanIt: Deletion of a resource deletes also the associated events, contacts and tasks. Tested with all database datastores. Update datastore sample projects.
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@8947 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
@ -6,8 +6,8 @@ object Form1: TForm1
|
||||
Caption = 'Form1'
|
||||
ClientHeight = 686
|
||||
ClientWidth = 980
|
||||
LCLVersion = '3.99.0.0'
|
||||
OnCreate = FormCreate
|
||||
LCLVersion = '2.1.0.0'
|
||||
object Panel1: TPanel
|
||||
Left = 0
|
||||
Height = 33
|
||||
@ -21,6 +21,8 @@ object Form1: TForm1
|
||||
TabOrder = 0
|
||||
object VpResourceCombo1: TVpResourceCombo
|
||||
AnchorSideLeft.Control = Panel1
|
||||
AnchorSideTop.Control = Panel1
|
||||
AnchorSideTop.Side = asrCenter
|
||||
Left = 4
|
||||
Height = 23
|
||||
Top = 5
|
||||
@ -34,6 +36,7 @@ object Form1: TForm1
|
||||
object BtnNewRes: TButton
|
||||
AnchorSideLeft.Control = VpResourceCombo1
|
||||
AnchorSideLeft.Side = asrBottom
|
||||
AnchorSideTop.Control = Panel1
|
||||
Left = 216
|
||||
Height = 25
|
||||
Top = 4
|
||||
@ -43,12 +46,13 @@ object Form1: TForm1
|
||||
BorderSpacing.Top = 4
|
||||
BorderSpacing.Bottom = 4
|
||||
Caption = 'New resource'
|
||||
OnClick = BtnNewResClick
|
||||
TabOrder = 1
|
||||
OnClick = BtnNewResClick
|
||||
end
|
||||
object BtnEditRes: TButton
|
||||
AnchorSideLeft.Control = BtnNewRes
|
||||
AnchorSideLeft.Side = asrBottom
|
||||
AnchorSideTop.Control = Panel1
|
||||
Left = 318
|
||||
Height = 25
|
||||
Top = 4
|
||||
@ -58,8 +62,24 @@ object Form1: TForm1
|
||||
BorderSpacing.Top = 4
|
||||
BorderSpacing.Bottom = 4
|
||||
Caption = 'Edit resource'
|
||||
OnClick = BtnEditResClick
|
||||
TabOrder = 2
|
||||
OnClick = BtnEditResClick
|
||||
end
|
||||
object BtnDeleteRes: TButton
|
||||
AnchorSideLeft.Control = BtnEditRes
|
||||
AnchorSideLeft.Side = asrBottom
|
||||
AnchorSideTop.Control = Panel1
|
||||
Left = 416
|
||||
Height = 25
|
||||
Top = 4
|
||||
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
|
||||
@ -74,23 +94,18 @@ object Form1: TForm1
|
||||
OnChange = PageControl1Change
|
||||
object TabSheet1: TTabSheet
|
||||
Caption = 'Events and tasks'
|
||||
ClientHeight = 624
|
||||
ClientHeight = 625
|
||||
ClientWidth = 972
|
||||
object VpDayView1: TVpDayView
|
||||
Left = 0
|
||||
Height = 624
|
||||
Height = 625
|
||||
Top = 0
|
||||
Width = 301
|
||||
PopupMenu = VpDayView1.default
|
||||
DataStore = VpSqlite3Datastore1
|
||||
ControlLink = VpControlLink1
|
||||
Color = clWindow
|
||||
Align = alLeft
|
||||
ReadOnly = False
|
||||
TabStop = True
|
||||
TabOrder = 0
|
||||
AllDayEventAttributes.BackgroundColor = clBtnShadow
|
||||
AllDayEventAttributes.EventBorderColor = cl3DDkShadow
|
||||
AllDayEventAttributes.EventBackgroundColor = clBtnFace
|
||||
ShowEventTimes = False
|
||||
DrawingStyle = dsFlat
|
||||
TimeSlotColors.Active = clWhite
|
||||
@ -100,91 +115,65 @@ object Form1: TForm1
|
||||
TimeSlotColors.ActiveRange.RangeBegin = h_00
|
||||
TimeSlotColors.ActiveRange.RangeEnd = h_00
|
||||
HeadAttributes.Font.Height = -13
|
||||
HeadAttributes.Color = clBtnFace
|
||||
RowHeadAttributes.HourFont.Height = -24
|
||||
RowHeadAttributes.MinuteFont.Height = -12
|
||||
RowHeadAttributes.Color = clBtnFace
|
||||
ShowResourceName = True
|
||||
LineColor = clGray
|
||||
GutterWidth = 7
|
||||
DateLabelFormat = 'dddd, mmmm dd, yyyy'
|
||||
Granularity = gr30Min
|
||||
DefaultTopHour = h_07
|
||||
TimeFormat = tf12Hour
|
||||
end
|
||||
object Panel2: TPanel
|
||||
Left = 306
|
||||
Height = 624
|
||||
Height = 625
|
||||
Top = 0
|
||||
Width = 386
|
||||
Align = alLeft
|
||||
BevelOuter = bvNone
|
||||
Caption = 'Panel2'
|
||||
ClientHeight = 624
|
||||
ClientHeight = 625
|
||||
ClientWidth = 386
|
||||
TabOrder = 1
|
||||
object VpWeekView1: TVpWeekView
|
||||
Left = 0
|
||||
Height = 378
|
||||
Height = 379
|
||||
Top = 0
|
||||
Width = 386
|
||||
PopupMenu = VpWeekView1.default
|
||||
DataStore = VpSqlite3Datastore1
|
||||
ControlLink = VpControlLink1
|
||||
Color = clWindow
|
||||
AllDayEventAttributes.BackgroundColor = clWindow
|
||||
AllDayEventAttributes.EventBorderColor = clGray
|
||||
AllDayEventAttributes.EventBackgroundColor = clBtnFace
|
||||
DateLabelFormat = 'dddd, mmmm dd, yyyy'
|
||||
DayHeadAttributes.Color = clBtnFace
|
||||
DayHeadAttributes.DateFormat = 'dddd mmmm, dd'
|
||||
DayHeadAttributes.Font.Height = -13
|
||||
DayHeadAttributes.Font.Name = 'Tahoma'
|
||||
DayHeadAttributes.Bordered = True
|
||||
DrawingStyle = dsFlat
|
||||
HeadAttributes.Color = clBtnFace
|
||||
LineColor = clGray
|
||||
TimeFormat = tf12Hour
|
||||
ShowEventTime = True
|
||||
WeekStartsOn = dtMonday
|
||||
Align = alClient
|
||||
TabStop = True
|
||||
TabOrder = 0
|
||||
end
|
||||
object VpMonthView1: TVpMonthView
|
||||
Left = 0
|
||||
Height = 241
|
||||
Top = 383
|
||||
Top = 384
|
||||
Width = 386
|
||||
PopupMenu = VpMonthView1.default
|
||||
DataStore = VpSqlite3Datastore1
|
||||
ControlLink = VpControlLink1
|
||||
Color = clWindow
|
||||
Align = alBottom
|
||||
TabStop = True
|
||||
TabOrder = 1
|
||||
DateLabelFormat = 'mmmm yyyy'
|
||||
DayHeadAttributes.Font.Height = -13
|
||||
DayHeadAttributes.Font.Name = 'Tahoma'
|
||||
DayHeadAttributes.Color = clBtnFace
|
||||
DayNameStyle = dsShort
|
||||
DrawingStyle = dsFlat
|
||||
EventDayStyle = []
|
||||
HeadAttributes.Color = clBtnFace
|
||||
KBNavigation = True
|
||||
OffDayColor = clSilver
|
||||
SelectedDayColor = clRed
|
||||
ShowEvents = True
|
||||
ShowEventTime = False
|
||||
TimeFormat = tf12Hour
|
||||
TodayAttributes.Color = clSilver
|
||||
TodayAttributes.BorderPen.Color = clRed
|
||||
TodayAttributes.BorderPen.Width = 3
|
||||
WeekStartsOn = dtSunday
|
||||
end
|
||||
object Splitter2: TSplitter
|
||||
Cursor = crVSplit
|
||||
Left = 0
|
||||
Height = 5
|
||||
Top = 378
|
||||
Top = 379
|
||||
Width = 386
|
||||
Align = alBottom
|
||||
ResizeAnchor = akBottom
|
||||
@ -192,41 +181,28 @@ object Form1: TForm1
|
||||
end
|
||||
object VpTaskList1: TVpTaskList
|
||||
Left = 697
|
||||
Height = 624
|
||||
Height = 625
|
||||
Top = 0
|
||||
Width = 275
|
||||
PopupMenu = VpTaskList1.default
|
||||
DataStore = VpSqlite3Datastore1
|
||||
ControlLink = VpControlLink1
|
||||
Color = clWindow
|
||||
Align = alClient
|
||||
TabStop = True
|
||||
TabOrder = 2
|
||||
ReadOnly = False
|
||||
DisplayOptions.CheckBGColor = clWindow
|
||||
DisplayOptions.CheckColor = cl3DDkShadow
|
||||
DisplayOptions.CheckStyle = csCheck
|
||||
DisplayOptions.DueDateFormat = 'dd.MM.yyyy'
|
||||
DisplayOptions.ShowCompletedTasks = False
|
||||
DisplayOptions.ShowAll = False
|
||||
DisplayOptions.ShowDueDate = True
|
||||
DisplayOptions.OverdueColor = clRed
|
||||
DisplayOptions.NormalColor = clBlack
|
||||
DisplayOptions.CompletedColor = clGray
|
||||
LineColor = clGray
|
||||
MaxVisibleTasks = 250
|
||||
TaskHeadAttributes.Color = clSilver
|
||||
DrawingStyle = dsFlat
|
||||
ShowResourceName = True
|
||||
LineColor = clGray
|
||||
TaskHeadAttributes.Color = clSilver
|
||||
end
|
||||
object Splitter1: TSplitter
|
||||
Left = 692
|
||||
Height = 624
|
||||
Height = 625
|
||||
Top = 0
|
||||
Width = 5
|
||||
end
|
||||
object Splitter3: TSplitter
|
||||
Left = 301
|
||||
Height = 624
|
||||
Height = 625
|
||||
Top = 0
|
||||
Width = 5
|
||||
end
|
||||
@ -243,7 +219,6 @@ object Form1: TForm1
|
||||
ContactGrid = VpContactGrid1
|
||||
DrawingStyle = dsFlat
|
||||
OnContactNotFound = VpContactButtonBar1ContactNotFound
|
||||
RadioStyle = True
|
||||
Align = alLeft
|
||||
end
|
||||
object VpContactGrid1: TVpContactGrid
|
||||
@ -251,18 +226,12 @@ object Form1: TForm1
|
||||
Height = 625
|
||||
Top = 0
|
||||
Width = 932
|
||||
PopupMenu = VpContactGrid1.default
|
||||
DataStore = VpSqlite3Datastore1
|
||||
ControlLink = VpControlLink1
|
||||
Color = clWindow
|
||||
Align = alClient
|
||||
TabStop = True
|
||||
TabOrder = 1
|
||||
AllowInPlaceEditing = True
|
||||
BarWidth = 3
|
||||
BarColor = clSilver
|
||||
ColumnWidth = 200
|
||||
ContactHeadAttributes.Color = clSilver
|
||||
ContactHeadAttributes.Bordered = True
|
||||
DrawingStyle = dsFlat
|
||||
end
|
||||
end
|
||||
@ -303,8 +272,8 @@ object Form1: TForm1
|
||||
AutoSize = True
|
||||
BorderSpacing.Left = 8
|
||||
Caption = 'Apply to planner'
|
||||
OnClick = BtnApplyToPlannerClick
|
||||
TabOrder = 1
|
||||
OnClick = BtnApplyToPlannerClick
|
||||
end
|
||||
object TabControl1: TTabControl
|
||||
AnchorSideLeft.Control = TabSheet3
|
||||
@ -345,20 +314,16 @@ object Form1: TForm1
|
||||
end
|
||||
object VpControlLink1: TVpControlLink
|
||||
DataStore = VpSqlite3Datastore1
|
||||
Printer.BottomMargin = 0
|
||||
Printer.DayStart = h_08
|
||||
Printer.DayEnd = h_05
|
||||
Printer.Granularity = gr30Min
|
||||
Printer.LeftMargin = 0
|
||||
Printer.MarginUnits = imAbsolutePixel
|
||||
Printer.PrintFormats = <>
|
||||
Printer.RightMargin = 0
|
||||
Printer.TopMargin = 0
|
||||
left = 136
|
||||
top = 264
|
||||
Left = 136
|
||||
Top = 264
|
||||
end
|
||||
object VpResourceEditDialog1: TVpResourceEditDialog
|
||||
Version = 'v1.12'
|
||||
Version = 'v1.8.0'
|
||||
DataStore = VpSqlite3Datastore1
|
||||
Options = []
|
||||
Placement.Position = mpCenter
|
||||
@ -366,55 +331,42 @@ object Form1: TForm1
|
||||
Placement.Left = 10
|
||||
Placement.Height = 250
|
||||
Placement.Width = 400
|
||||
left = 136
|
||||
top = 335
|
||||
Left = 136
|
||||
Top = 335
|
||||
end
|
||||
object VpSqlite3Datastore1: TVpSqlite3Datastore
|
||||
CategoryColorMap.Category0.Color = clNavy
|
||||
CategoryColorMap.Category0.Description = 'Category 0'
|
||||
CategoryColorMap.Category1.Color = clRed
|
||||
CategoryColorMap.Category1.Description = 'Category 1'
|
||||
CategoryColorMap.Category2.Color = clYellow
|
||||
CategoryColorMap.Category2.Description = 'Category 2'
|
||||
CategoryColorMap.Category3.Color = clLime
|
||||
CategoryColorMap.Category3.Description = 'Category 3'
|
||||
CategoryColorMap.Category4.Color = clPurple
|
||||
CategoryColorMap.Category4.Description = 'Category 4'
|
||||
CategoryColorMap.Category5.Color = clTeal
|
||||
CategoryColorMap.Category5.Description = 'Category 5'
|
||||
CategoryColorMap.Category6.Color = clFuchsia
|
||||
CategoryColorMap.Category6.Description = 'Category 6'
|
||||
CategoryColorMap.Category7.Color = clOlive
|
||||
CategoryColorMap.Category7.Description = 'Category 7'
|
||||
CategoryColorMap.Category8.Color = clAqua
|
||||
CategoryColorMap.Category8.Description = 'Category 8'
|
||||
CategoryColorMap.Category9.Color = clMaroon
|
||||
CategoryColorMap.Category9.Description = 'Category 9'
|
||||
HiddenCategories.BackgroundColor = clSilver
|
||||
HiddenCategories.Color = clGray
|
||||
EnableEventTimer = True
|
||||
PlayEventSounds = True
|
||||
Connection = SQLite3Connection1
|
||||
AutoConnect = False
|
||||
AutoCreate = False
|
||||
DayBuffer = 31
|
||||
left = 136
|
||||
top = 192
|
||||
Left = 136
|
||||
Top = 192
|
||||
end
|
||||
object SQLite3Connection1: TSQLite3Connection
|
||||
Connected = False
|
||||
LoginPrompt = False
|
||||
KeepConnection = False
|
||||
Transaction = SQLTransaction1
|
||||
left = 136
|
||||
top = 120
|
||||
AlwaysUseBigint = False
|
||||
Left = 136
|
||||
Top = 120
|
||||
end
|
||||
object SQLTransaction1: TSQLTransaction
|
||||
Active = False
|
||||
Action = caCommitRetaining
|
||||
Database = SQLite3Connection1
|
||||
left = 256
|
||||
top = 120
|
||||
Left = 256
|
||||
Top = 120
|
||||
end
|
||||
object QryAllResources: TSQLQuery
|
||||
PacketRecords = -1
|
||||
@ -517,10 +469,11 @@ object Form1: TForm1
|
||||
)
|
||||
Options = [sqoKeepOpenOnCommit, sqoAutoCommit]
|
||||
Params = <>
|
||||
Macros = <>
|
||||
UpdateMode = upWhereAll
|
||||
UsePrimaryKeyAsKey = False
|
||||
left = 560
|
||||
top = 160
|
||||
Left = 560
|
||||
Top = 160
|
||||
end
|
||||
object QryAllContacts: TSQLQuery
|
||||
PacketRecords = -1
|
||||
@ -712,10 +665,11 @@ object Form1: TForm1
|
||||
)
|
||||
Options = [sqoKeepOpenOnCommit]
|
||||
Params = <>
|
||||
Macros = <>
|
||||
UpdateMode = upWhereAll
|
||||
UsePrimaryKeyAsKey = False
|
||||
left = 560
|
||||
top = 214
|
||||
Left = 560
|
||||
Top = 214
|
||||
end
|
||||
object QryAllEvents: TSQLQuery
|
||||
PacketRecords = -1
|
||||
@ -730,10 +684,11 @@ object Form1: TForm1
|
||||
)
|
||||
Options = [sqoKeepOpenOnCommit, sqoAutoApplyUpdates]
|
||||
Params = <>
|
||||
Macros = <>
|
||||
UpdateMode = upWhereAll
|
||||
UsePrimaryKeyAsKey = False
|
||||
left = 560
|
||||
top = 274
|
||||
Left = 560
|
||||
Top = 274
|
||||
end
|
||||
object QryAllTasks: TSQLQuery
|
||||
PacketRecords = -1
|
||||
@ -748,29 +703,30 @@ object Form1: TForm1
|
||||
)
|
||||
Options = [sqoKeepOpenOnCommit, sqoAutoCommit]
|
||||
Params = <>
|
||||
Macros = <>
|
||||
UpdateMode = upWhereAll
|
||||
UsePrimaryKeyAsKey = False
|
||||
left = 560
|
||||
top = 341
|
||||
Left = 560
|
||||
Top = 341
|
||||
end
|
||||
object DsAllResources: TDataSource
|
||||
DataSet = QryAllResources
|
||||
left = 656
|
||||
top = 160
|
||||
Left = 656
|
||||
Top = 160
|
||||
end
|
||||
object DsAllContacts: TDataSource
|
||||
DataSet = QryAllContacts
|
||||
left = 659
|
||||
top = 214
|
||||
Left = 659
|
||||
Top = 214
|
||||
end
|
||||
object DsAllEvents: TDataSource
|
||||
DataSet = QryAllEvents
|
||||
left = 654
|
||||
top = 274
|
||||
Left = 654
|
||||
Top = 274
|
||||
end
|
||||
object DsAllTasks: TDataSource
|
||||
DataSet = QryAllTasks
|
||||
left = 656
|
||||
top = 341
|
||||
Left = 656
|
||||
Top = 341
|
||||
end
|
||||
end
|
||||
|
||||
@ -15,6 +15,7 @@ type
|
||||
{ TForm1 }
|
||||
|
||||
TForm1 = class(TForm)
|
||||
BtnDeleteRes: TButton;
|
||||
BtnNewRes: TButton;
|
||||
BtnEditRes: TButton;
|
||||
BtnApplyToPlanner: TButton;
|
||||
@ -51,6 +52,7 @@ type
|
||||
VpTaskList1: TVpTaskList;
|
||||
VpWeekView1: TVpWeekView;
|
||||
procedure BtnApplyToPlannerClick(Sender: TObject);
|
||||
procedure BtnDeleteResClick(Sender: TObject);
|
||||
procedure BtnNewResClick(Sender: TObject);
|
||||
procedure BtnEditResClick(Sender: TObject);
|
||||
procedure FormCreate(Sender: TObject);
|
||||
@ -105,6 +107,22 @@ begin
|
||||
QryAllTasks.Open;
|
||||
end;
|
||||
|
||||
// Deletes the selected resource and associated events, contacts and tasks
|
||||
procedure TForm1.BtnDeleteResClick(Sender: TObject);
|
||||
var
|
||||
res: TVpResource;
|
||||
begin
|
||||
res := VpControlLink1.Datastore.Resource;
|
||||
if res = nil then
|
||||
exit;
|
||||
|
||||
if MessageDlg(Format('Do you really want to delete resource "%s"? This will also delete its events, tasks and contacts.',
|
||||
[res.Description]), mtConfirmation, [mbYes, mbNo], 0) = mrYes then
|
||||
begin
|
||||
VpControlLink1.Datastore.DeleteResource(res);
|
||||
end;
|
||||
end;
|
||||
|
||||
// Adds a new resource
|
||||
procedure TForm1.BtnNewResClick(Sender: TObject);
|
||||
begin
|
||||
|
||||
Reference in New Issue
Block a user