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