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

jvcllaz: Fix database being closed after commit (JvTimeFramework demo)

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@7140 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2019-08-16 11:11:15 +00:00
parent e63668a359
commit d4e4a27557
1 changed files with 12 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@ -2242,6 +2242,7 @@ object MainForm: TMainForm
} }
end end
object NeedApptsQuery: TSQLQuery object NeedApptsQuery: TSQLQuery
PacketRecords = -1
FieldDefs = <> FieldDefs = <>
Database = dbUTF Database = dbUTF
Transaction = SQLTransaction Transaction = SQLTransaction
@ -2251,7 +2252,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] Options = [sqoKeepOpenOnCommit, sqoAutoApplyUpdates, sqoAutoCommit]
Params = < Params = <
item item
DataType = ftUnknown DataType = ftUnknown
@ -2272,6 +2273,7 @@ object MainForm: TMainForm
top = 328 top = 328
end end
object ApptSchedulesQuery: TSQLQuery object ApptSchedulesQuery: TSQLQuery
PacketRecords = -1
FieldDefs = <> FieldDefs = <>
Database = dbUTF Database = dbUTF
Transaction = SQLTransaction Transaction = SQLTransaction
@ -2279,7 +2281,7 @@ object MainForm: TMainForm
'Select * From GroupLink' 'Select * From GroupLink'
' Where ApptID = :ApptID' ' Where ApptID = :ApptID'
) )
Options = [sqoAutoApplyUpdates, sqoAutoCommit] Options = [sqoKeepOpenOnCommit, sqoAutoApplyUpdates, sqoAutoCommit]
Params = < Params = <
item item
DataType = ftUnknown DataType = ftUnknown
@ -2290,6 +2292,7 @@ object MainForm: TMainForm
top = 384 top = 384
end end
object GetApptQuery: TSQLQuery object GetApptQuery: TSQLQuery
PacketRecords = -1
FieldDefs = <> FieldDefs = <>
Database = dbUTF Database = dbUTF
Transaction = SQLTransaction Transaction = SQLTransaction
@ -2297,7 +2300,7 @@ object MainForm: TMainForm
'Select * From GroupAppt' 'Select * From GroupAppt'
' Where ApptID = :ApptID' ' Where ApptID = :ApptID'
) )
Options = [sqoAutoApplyUpdates, sqoAutoCommit] Options = [sqoKeepOpenOnCommit, sqoAutoApplyUpdates, sqoAutoCommit]
Params = < Params = <
item item
DataType = ftUnknown DataType = ftUnknown
@ -2308,6 +2311,7 @@ object MainForm: TMainForm
top = 440 top = 440
end end
object DeleteApptLinkQuery: TSQLQuery object DeleteApptLinkQuery: TSQLQuery
PacketRecords = -1
FieldDefs = <> FieldDefs = <>
Database = dbUTF Database = dbUTF
Transaction = SQLTransaction Transaction = SQLTransaction
@ -2315,7 +2319,7 @@ object MainForm: TMainForm
'Delete From GroupLink' 'Delete From GroupLink'
' Where ApptID = :ApptID' ' Where ApptID = :ApptID'
) )
Options = [sqoAutoApplyUpdates, sqoAutoCommit] Options = [sqoKeepOpenOnCommit, sqoAutoApplyUpdates, sqoAutoCommit]
Params = < Params = <
item item
DataType = ftUnknown DataType = ftUnknown
@ -2326,6 +2330,7 @@ object MainForm: TMainForm
top = 440 top = 440
end end
object DeleteApptQuery: TSQLQuery object DeleteApptQuery: TSQLQuery
PacketRecords = -1
FieldDefs = <> FieldDefs = <>
Database = dbUTF Database = dbUTF
Transaction = SQLTransaction Transaction = SQLTransaction
@ -2333,7 +2338,7 @@ object MainForm: TMainForm
'Delete From GroupAppt' 'Delete From GroupAppt'
' Where ApptID = :ApptID' ' Where ApptID = :ApptID'
) )
Options = [sqoAutoApplyUpdates, sqoAutoCommit] Options = [sqoKeepOpenOnCommit, sqoAutoApplyUpdates, sqoAutoCommit]
Params = < Params = <
item item
DataType = ftUnknown DataType = ftUnknown
@ -2344,13 +2349,14 @@ object MainForm: TMainForm
top = 328 top = 328
end end
object SchedulesQuery: TSQLQuery object SchedulesQuery: TSQLQuery
PacketRecords = -1
FieldDefs = <> FieldDefs = <>
Database = dbUTF Database = dbUTF
Transaction = SQLTransaction Transaction = SQLTransaction
SQL.Strings = ( SQL.Strings = (
'Select Distinct(SchedName) From GroupLink' 'Select Distinct(SchedName) From GroupLink'
) )
Options = [sqoAutoApplyUpdates, sqoAutoCommit] Options = [sqoKeepOpenOnCommit, sqoAutoApplyUpdates, sqoAutoCommit]
Params = <> Params = <>
left = 344 left = 344
top = 384 top = 384