From 4419a00c5320ebbfc7589487ceb3ad149ff62841 Mon Sep 17 00:00:00 2001 From: wp_xxyyzz Date: Thu, 8 Aug 2019 12:24:12 +0000 Subject: [PATCH] jvcllaz: Fix storing of modified appointments in JvTimeFramework demo. Add primary keys to demo sqlite3 database. git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@7102 8e941d3f-bd1b-0410-a28a-d453659cc2b4 --- .../examples/JvTimeFramework/Data.sqlite | Bin 24576 -> 34816 bytes .../examples/JvTimeFramework/tfmain.lfm | 26 +++++++++++------- 2 files changed, 16 insertions(+), 10 deletions(-) diff --git a/components/jvcllaz/examples/JvTimeFramework/Data.sqlite b/components/jvcllaz/examples/JvTimeFramework/Data.sqlite index d3a7ec3020449023e8d5345a25028d4dfb531685..bc5462d901725cb2491366ea98e9ff60109c983e 100644 GIT binary patch delta 4783 zcmeHLTWlOx8J=@y)@$!<>^RA;FL8W}oA{o&UlJ$r?8WPy_1`tIOl!_VzB87w`0)co5YDB_KLP)eyQ7B2(Q1u0bkf0$5{@IDUGg3fE zJn+(y&e?P3`~H9abLRY)*>l&>xfQ&!wY{4lh(TxpXid<%R>%2JH!*QHumS&;piqp! z9poB{ksn!I{#9T(7w~uV^`U1^TJPYg_M(x@B>HnkGOZca{#3kbE#haaPW&20zD%rG zZ{diqPJ!ETm8F|H;(drX{;{LSo_^x=iQ{LEEiOHI=45@onE3d~Cr@doPMuj~KNvQH zJ=A=Q^>y+wL|zS2estWoU;(=BBy_#|p=%YP zYafHIzaP47Vdz?d7wDof>AP;${30CHV-1OvLH)pb;dB0JsyOW zd0tkfs5YC(ZgnHF0&5f%K4N66Gu<9U`n8B&M`NQ%q|D$f|XR3qCi;-Wgs|)T-?(wzcag zPlY3^sBrws>9U!Q0qS0Y;ytlzJygYZBe;CfdY}zJ+X$@-+E!@xy|xFf4}R@HV+WjG zXf|e#TcNc>>xX9JHqXDhJQSz|WItScS`chzhNd-`lYW0kGqT?8l<7dm!FR%Zq$@_Z zl%2T@{IgwibaOQz+VcBh{>!c`?XNocUYPIb&eBaT{k854?VES-DCm2m+n^~IpWm9L zN!`Kw0Dpe#bP)4_7F++eX4GQ6(Kk}FBj_Lm1@b<`m7C6qvzt1GvrZHCmAw~|AF7eKgE~um++_YVVuOf@;Hp{qdVv(x`@6=-X(uQ zUO^LR3vrLQ4H_1mJ9TerbgrkXqAH6jC#o}9BOXcEh}G^3otW`(1eI46R*V?QL?Z4% zJYmy=uoA~YIybbrStII-;Hn_1jKqnBWI3CQ)F1eYFSJebP*_OwimX+%Vs;uR)@dfJ z?sutI1W^VKBV{UCEw{siJhTF-4Y~Dm9A_6P@i{ZD?{NvM9K)y*BoQ+cPsMk;5tf0{ zhT#;=tX49r8)2X#vGZFgpG;*G4~fQ2P82!F@|kogYEHWK$_&q|EEmZb<>Z801T5iID3`Q! zQj3gx5YbUqO`CK1vHAml+!X2?^>7$Lk_7OUik6Fw)H!Y8kZ-s?+PFE?yVJ#n1@n@m zsERpPPAB#OVzF%4x3^9{)gG!%1@J#1Mb8uX9sF~A8NZ01!AET8!6Ec_bQ|43-$54o z1X@IKG=|!VzY@2I*N6+m3h@*%?|9I<6FL<`!|9L6p^`8hLNH6E=~R@*|p1NG6RwoqSnU8AiKj-1NE zq6Y=04ya?FU$L8vM{o8yTeq*9$eZTuBC14LGo6i zc2pU7+3}e~AvfnnB-JhrSyj&_qUn?eks)dcDqE>m%!uwm#QLe>a@mruB|QiyvaBcz z6>~7IM`zv8!y{nrKSV%y{i*c@cne35-v1^7)&*oJp(iC?5L76%B_R>d#v{ICHe?;z z67n6bkFK?bjvs00x2t>^s&Yv#r&HzG!)`>hzf~YO>hV%Gx8y-Y5v*c_M4>WUIpjfj zr{Yc|6P208E8`SpQT>}QKP#ZCse$j|$pERtr}7Yi|A^0H6}^tmqd55r@iy^UxcT5( zatg&X6q?`KWzys8g(b|VhK=A@14kCPymfI{3ywCbS!98aTOS>n3=TI+USxs0TR$2Z zpm!d2)Mr86-H{5t)hGVT=0>`y#CQ?{a|!AJ=C~q-5<@-+rd;5idVZBE{~-H z3yzKiOy3_aqLH;>YAx2&V`tz1@i-!<@SFHKETDJM^W<022yv5me06y)u;_>-K`h0W zX!(#+a@#Avz?Xwk!_<0Uw^qj^wD_naqycGaB2V)vXFdS)7bi5D%Q;FWpw7NCF+;OO z2j^kVP3l3$y?qd(t(PV>dROB~)*mJ-!AWA#(UJnKx5i6ISQDrR%gGbuSI9m17GA~@ zyudS1C4862uP%$Q3-vDsdpYk(#bD%!^W=OBLKY-vYeA0EnoIGka*3X9m;>qAr1!h_ z_K;J+b)IR5kUh-vHxjqI>;|g8Nq{%Q-dss;#TY4eeLsbWPJVyr+K6q zURrq|8a$SERPD5HfHPY^9GGZ5y4*?EKk=4TdxycZt>(eA^bwbtpC2^Q;WdT&7gQ6v AX#fBK delta 231 zcmZpez|?Snae}m<00RSq1Q5dj??fGAVF3o+XI#8MA!a6V2BzE0igj=EW=}K>JeuFfVFh*;D}%EcnH|$VCPK DxT`DF diff --git a/components/jvcllaz/examples/JvTimeFramework/tfmain.lfm b/components/jvcllaz/examples/JvTimeFramework/tfmain.lfm index c0cfb5bcc..a0fbbe313 100644 --- a/components/jvcllaz/examples/JvTimeFramework/tfmain.lfm +++ b/components/jvcllaz/examples/JvTimeFramework/tfmain.lfm @@ -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