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

TvPlanIt: Activate dayview drag-and-drop in the examples/datastores demos.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@8175 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2021-12-13 21:56:17 +00:00
parent aedf5ffcc0
commit e584f4c869
18 changed files with 217 additions and 193 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
components/tvplanit/examples/datastores/flex/sqlite3/unit1.pas
View File

@ -103,7 +103,7 @@ end;
procedure TForm1.CreateDB(AFileName: String);
begin
SQLite3Connection1.Close; // Ensure the connection is closed when we start
// Create the database and the tables
try
SQLite3Connection1.DatabaseName := AFileName;
@ -285,7 +285,13 @@ begin
// Transaction
SQLTransaction1.DataBase := Sqlite3Connection1;
SQLTransaction1.Action := caCommitRetaining;
QryResources.Options := QryResources.Options + [sqoAutoApplyUpdates];
QryEvents.Options := QryEvents.Options + [sqoAutoApplyUpdates];
QryTasks.Options := QryTasks.Options + [sqoAutoApplyUpdates];
QryContacts.Options := QryContacts.Options + [sqoAutoApplyUpdates];
if not FileExists(AppendPathDelim(Application.Location) + DB_NAME) then
CreateDB(AppendPathDelim(Application.Location) + DB_NAME);