pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

jvcllaz: Fix storing of modified appointments in JvTimeFramework demo. Add primary keys to demo sqlite3 database.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@7102 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2019-08-08 12:24:12 +00:00
parent 7bf92d7867
commit 4419a00c53
2 changed files with 16 additions and 10 deletions
Download Patch File Download Diff File Expand all files Collapse all files

BIN
components/jvcllaz/examples/JvTimeFramework/Data.sqlite
View File

Binary file not shown.

26
components/jvcllaz/examples/JvTimeFramework/tfmain.lfm
View File

@ -1,10 +1,10 @@
object MainForm: TMainForm object MainForm: TMainForm
Left = 212 Left = 212
Height = 546 Height = 613
Top = 138 Top = 138
Width = 445 Width = 445
Caption = 'UTF Demo 1: PhotoOp' Caption = 'UTF Demo 1: PhotoOp'
ClientHeight = 546 ClientHeight = 613
ClientWidth = 445 ClientWidth = 445
Color = clBtnFace Color = clBtnFace
Constraints.MinHeight = 400 Constraints.MinHeight = 400
@ -18,7 +18,7 @@ object MainForm: TMainForm
Scaled = False Scaled = False
object PageControl1: TPageControl object PageControl1: TPageControl
Left = 0 Left = 0
Height = 448 Height = 515
Top = 73 Top = 73
Width = 445 Width = 445
ActivePage = TabSheet1 ActivePage = TabSheet1
@ -27,11 +27,11 @@ object MainForm: TMainForm
TabOrder = 0 TabOrder = 0
object TabSheet1: TTabSheet object TabSheet1: TTabSheet
Caption = 'Day View' Caption = 'Day View'
ClientHeight = 420 ClientHeight = 487
ClientWidth = 437 ClientWidth = 437
object JvTFDays1: TJvTFDays object JvTFDays1: TJvTFDays
Left = 0 Left = 0
Height = 420 Height = 487
Top = 0 Top = 0
Width = 437 Width = 437
ScheduleManager = utfScheduleManager1 ScheduleManager = utfScheduleManager1
@ -101,12 +101,12 @@ object MainForm: TMainForm
end end
object TabSheet2: TTabSheet object TabSheet2: TTabSheet
Caption = 'Week View' Caption = 'Week View'
ClientHeight = 445 ClientHeight = 420
ClientWidth = 437 ClientWidth = 437
ImageIndex = 1 ImageIndex = 1
object JvTFWeeks1: TJvTFWeeks object JvTFWeeks1: TJvTFWeeks
Left = 0 Left = 0
Height = 445 Height = 420
Top = 0 Top = 0
Width = 437 Width = 437
ScheduleManager = utfScheduleManager1 ScheduleManager = utfScheduleManager1
@ -186,12 +186,12 @@ object MainForm: TMainForm
end end
object TabSheet3: TTabSheet object TabSheet3: TTabSheet
Caption = 'Month View' Caption = 'Month View'
ClientHeight = 445 ClientHeight = 487
ClientWidth = 437 ClientWidth = 437
ImageIndex = 2 ImageIndex = 2
object JvTFMonths1: TJvTFMonths object JvTFMonths1: TJvTFMonths
Left = 0 Left = 0
Height = 445 Height = 487
Top = 0 Top = 0
Width = 437 Width = 437
ScheduleManager = utfScheduleManager1 ScheduleManager = utfScheduleManager1
@ -814,7 +814,7 @@ object MainForm: TMainForm
object Panel2: TPanel object Panel2: TPanel
Left = 0 Left = 0
Height = 25 Height = 25
Top = 521 Top = 588
Width = 445 Width = 445
Align = alBottom Align = alBottom
AutoSize = True AutoSize = True
@ -1014,6 +1014,7 @@ object MainForm: TMainForm
' And (GroupLink.ApptID = GroupAppt.ApptID)' ' And (GroupLink.ApptID = GroupAppt.ApptID)'
' And ((StartDate >= :D1) and (EndDate <= :D2))' ' And ((StartDate >= :D1) and (EndDate <= :D2))'
) )
Options = [sqoAutoApplyUpdates, sqoAutoCommit]
Params = < Params = <
item item
DataType = ftUnknown DataType = ftUnknown
@ -1041,6 +1042,7 @@ object MainForm: TMainForm
'Select * From GroupLink' 'Select * From GroupLink'
' Where ApptID = :ApptID' ' Where ApptID = :ApptID'
) )
Options = [sqoAutoApplyUpdates, sqoAutoCommit]
Params = < Params = <
item item
DataType = ftUnknown DataType = ftUnknown
@ -1058,6 +1060,7 @@ object MainForm: TMainForm
'Select * From GroupAppt' 'Select * From GroupAppt'
' Where ApptID = :ApptID' ' Where ApptID = :ApptID'
) )
Options = [sqoAutoApplyUpdates, sqoAutoCommit]
Params = < Params = <
item item
DataType = ftUnknown DataType = ftUnknown
@ -1075,6 +1078,7 @@ object MainForm: TMainForm
'Delete From GroupLink' 'Delete From GroupLink'
' Where ApptID = :ApptID' ' Where ApptID = :ApptID'
) )
Options = [sqoAutoApplyUpdates, sqoAutoCommit]
Params = < Params = <
item item
DataType = ftUnknown DataType = ftUnknown
@ -1092,6 +1096,7 @@ object MainForm: TMainForm
'Delete From GroupAppt' 'Delete From GroupAppt'
' Where ApptID = :ApptID' ' Where ApptID = :ApptID'
) )
Options = [sqoAutoApplyUpdates, sqoAutoCommit]
Params = < Params = <
item item
DataType = ftUnknown DataType = ftUnknown
@ -1108,6 +1113,7 @@ object MainForm: TMainForm
SQL.Strings = ( SQL.Strings = (
'Select Distinct(SchedName) From GroupLink' 'Select Distinct(SchedName) From GroupLink'
) )
Options = [sqoAutoApplyUpdates, sqoAutoCommit]
Params = <> Params = <>
left = 328 left = 328
top = 384 top = 384