From dc8947e17883029979a57df1653cf32925bcaf0b Mon Sep 17 00:00:00 2001 From: joyfullservice Date: Wed, 6 Dec 2023 14:48:39 -0600 Subject: [PATCH] Simplify component class Removing three functions that are not uniquely specific to each component type and are handled by external functions now that we have exposed the source code file extensions. --- .../modules/IDbComponent.cls | 34 --------------- .../modules/clsAdpFunction.cls | 36 ---------------- .../modules/clsAdpProcedure.cls | 36 ---------------- .../modules/clsAdpServerView.cls | 36 ---------------- .../modules/clsAdpTable.cls | 37 ----------------- .../modules/clsAdpTrigger.cls | 36 ---------------- .../modules/clsDbConnection.cls | 39 ------------------ .../modules/clsDbDocument.cls | 35 ---------------- .../modules/clsDbForm.cls | 38 ----------------- .../modules/clsDbHiddenAttribute.cls | 41 ------------------- .../modules/clsDbImexSpec.cls | 36 ---------------- .../modules/clsDbMacro.cls | 37 ----------------- .../modules/clsDbModule.cls | 37 ----------------- .../modules/clsDbNavPaneGroup.cls | 38 ----------------- .../modules/clsDbProjProperty.cls | 35 ---------------- .../modules/clsDbProject.cls | 35 ---------------- .../modules/clsDbProperty.cls | 38 ----------------- .../modules/clsDbQuery.cls | 37 ----------------- .../modules/clsDbRelation.cls | 37 ----------------- .../modules/clsDbReport.cls | 39 ------------------ .../modules/clsDbSavedSpec.cls | 36 ---------------- .../modules/clsDbSharedImage.cls | 37 ----------------- .../modules/clsDbTableData.cls | 37 ----------------- .../modules/clsDbTableDataMacro.cls | 36 ---------------- .../modules/clsDbTableDef.cls | 38 ----------------- .../modules/clsDbTheme.cls | 37 ----------------- .../modules/clsDbVbeForm.cls | 36 ---------------- .../modules/clsDbVbeProject.cls | 35 ---------------- .../modules/clsDbVbeReference.cls | 38 ----------------- 29 files changed, 1067 deletions(-) diff --git a/Version Control.accda.src/modules/IDbComponent.cls b/Version Control.accda.src/modules/IDbComponent.cls index 7c27df54..54490f12 100644 --- a/Version Control.accda.src/modules/IDbComponent.cls +++ b/Version Control.accda.src/modules/IDbComponent.cls @@ -30,28 +30,6 @@ Option Explicit Public DbObject As Object -'--------------------------------------------------------------------------------------- -' Procedure : ClearOrphanedSourceFiles -' Author : Adam Waller -' Date : 4/23/2020 -' Purpose : Remove any source files for objects not in the current database. -'--------------------------------------------------------------------------------------- -' -Public Sub ClearOrphanedSourceFiles() -End Sub - - -'--------------------------------------------------------------------------------------- -' Procedure : ClearOrphanedDatabaseObjects -' Author : Adam Waller -' Date : 11/3/2021 -' Purpose : Remove database objects that are not represented by existing source files. -'--------------------------------------------------------------------------------------- -' -Public Sub ClearOrphanedDatabaseObjects() -End Sub - - '--------------------------------------------------------------------------------------- ' Procedure : Export ' Author : Adam Waller @@ -124,18 +102,6 @@ Public Function IsModified() As Boolean End Function -'--------------------------------------------------------------------------------------- -' Procedure : SourceIsModified -' Author : Adam Waller -' Date : 12/1/2023 -' Purpose : Returns true if the source file appears to be modified since the last -' : import or export. (When compared to the index) -'--------------------------------------------------------------------------------------- -' -Public Function SourceIsModified(strFile As String) As Boolean -End Function - - '--------------------------------------------------------------------------------------- ' Procedure : DateModified ' Author : Adam Waller diff --git a/Version Control.accda.src/modules/clsAdpFunction.cls b/Version Control.accda.src/modules/clsAdpFunction.cls index 3412986f..855f2fe9 100644 --- a/Version Control.accda.src/modules/clsAdpFunction.cls +++ b/Version Control.accda.src/modules/clsAdpFunction.cls @@ -124,29 +124,6 @@ Private Function IDbComponent_GetFileList() As Dictionary End Function -'--------------------------------------------------------------------------------------- -' Procedure : ClearOrphanedSourceFiles -' Author : Adam Waller -' Date : 4/23/2020 -' Purpose : Remove any source files for objects not in the current database. -'--------------------------------------------------------------------------------------- -' -Private Sub IDbComponent_ClearOrphanedSourceFiles() - ClearOrphanedSourceFiles Me, "sql" -End Sub - - -'--------------------------------------------------------------------------------------- -' Procedure : ClearOrphanedDatabaseObjects -' Author : Adam Waller -' Date : 11/3/2021 -' Purpose : Remove database objects that are not represented by existing source files. -'--------------------------------------------------------------------------------------- -' -Public Sub IDbComponent_ClearOrphanedDatabaseObjects() -End Sub - - '--------------------------------------------------------------------------------------- ' Procedure : IsModified ' Author : Adam Waller @@ -160,19 +137,6 @@ Public Function IDbComponent_IsModified() As Boolean End Function -'--------------------------------------------------------------------------------------- -' Procedure : SourceIsModified -' Author : Adam Waller -' Date : 12/1/2023 -' Purpose : Returns true if the source file appears to be modified since the last -' : import or export. (When compared to the index) -'--------------------------------------------------------------------------------------- -' -Private Function IDbComponent_SourceIsModified(strFile As String) As Boolean - -End Function - - '--------------------------------------------------------------------------------------- ' Procedure : DateModified ' Author : Adam Waller diff --git a/Version Control.accda.src/modules/clsAdpProcedure.cls b/Version Control.accda.src/modules/clsAdpProcedure.cls index 65237344..1aad51dc 100644 --- a/Version Control.accda.src/modules/clsAdpProcedure.cls +++ b/Version Control.accda.src/modules/clsAdpProcedure.cls @@ -124,29 +124,6 @@ Private Function IDbComponent_GetFileList() As Dictionary End Function -'--------------------------------------------------------------------------------------- -' Procedure : ClearOrphanedSourceFiles -' Author : Adam Waller -' Date : 4/23/2020 -' Purpose : Remove any source files for objects not in the current database. -'--------------------------------------------------------------------------------------- -' -Private Sub IDbComponent_ClearOrphanedSourceFiles() - ClearOrphanedSourceFiles Me, "sql" -End Sub - - -'--------------------------------------------------------------------------------------- -' Procedure : ClearOrphanedDatabaseObjects -' Author : Adam Waller -' Date : 11/3/2021 -' Purpose : Remove database objects that are not represented by existing source files. -'--------------------------------------------------------------------------------------- -' -Public Sub IDbComponent_ClearOrphanedDatabaseObjects() -End Sub - - '--------------------------------------------------------------------------------------- ' Procedure : IsModified ' Author : Adam Waller @@ -160,19 +137,6 @@ Public Function IDbComponent_IsModified() As Boolean End Function -'--------------------------------------------------------------------------------------- -' Procedure : SourceIsModified -' Author : Adam Waller -' Date : 12/1/2023 -' Purpose : Returns true if the source file appears to be modified since the last -' : import or export. (When compared to the index) -'--------------------------------------------------------------------------------------- -' -Private Function IDbComponent_SourceIsModified(strFile As String) As Boolean - -End Function - - '--------------------------------------------------------------------------------------- ' Procedure : DateModified ' Author : Adam Waller diff --git a/Version Control.accda.src/modules/clsAdpServerView.cls b/Version Control.accda.src/modules/clsAdpServerView.cls index e93ac385..62f93d16 100644 --- a/Version Control.accda.src/modules/clsAdpServerView.cls +++ b/Version Control.accda.src/modules/clsAdpServerView.cls @@ -124,29 +124,6 @@ Private Function IDbComponent_GetFileList() As Dictionary End Function -'--------------------------------------------------------------------------------------- -' Procedure : ClearOrphanedSourceFiles -' Author : Adam Waller -' Date : 4/23/2020 -' Purpose : Remove any source files for objects not in the current database. -'--------------------------------------------------------------------------------------- -' -Private Sub IDbComponent_ClearOrphanedSourceFiles() - ClearOrphanedSourceFiles Me, "sql" -End Sub - - -'--------------------------------------------------------------------------------------- -' Procedure : ClearOrphanedDatabaseObjects -' Author : Adam Waller -' Date : 11/3/2021 -' Purpose : Remove database objects that are not represented by existing source files. -'--------------------------------------------------------------------------------------- -' -Public Sub IDbComponent_ClearOrphanedDatabaseObjects() -End Sub - - '--------------------------------------------------------------------------------------- ' Procedure : IsModified ' Author : Adam Waller @@ -160,19 +137,6 @@ Public Function IDbComponent_IsModified() As Boolean End Function -'--------------------------------------------------------------------------------------- -' Procedure : SourceIsModified -' Author : Adam Waller -' Date : 12/1/2023 -' Purpose : Returns true if the source file appears to be modified since the last -' : import or export. (When compared to the index) -'--------------------------------------------------------------------------------------- -' -Private Function IDbComponent_SourceIsModified(strFile As String) As Boolean - -End Function - - '--------------------------------------------------------------------------------------- ' Procedure : DateModified ' Author : Adam Waller diff --git a/Version Control.accda.src/modules/clsAdpTable.cls b/Version Control.accda.src/modules/clsAdpTable.cls index c6dc1fdf..4dd5b382 100644 --- a/Version Control.accda.src/modules/clsAdpTable.cls +++ b/Version Control.accda.src/modules/clsAdpTable.cls @@ -183,30 +183,6 @@ Private Function IDbComponent_GetFileList() As Dictionary End Function -'--------------------------------------------------------------------------------------- -' Procedure : ClearOrphanedSourceFiles -' Author : Adam Waller -' Date : 4/23/2020 -' Purpose : Remove any source files for objects not in the current database. -'--------------------------------------------------------------------------------------- -' -Private Sub IDbComponent_ClearOrphanedSourceFiles() - ClearFilesByExtension IDbComponent_BaseFolder, "tdf" ' Legacy extension - ClearOrphanedSourceFiles Me, "txt" -End Sub - - -'--------------------------------------------------------------------------------------- -' Procedure : ClearOrphanedDatabaseObjects -' Author : Adam Waller -' Date : 11/3/2021 -' Purpose : Remove database objects that are not represented by existing source files. -'--------------------------------------------------------------------------------------- -' -Public Sub IDbComponent_ClearOrphanedDatabaseObjects() -End Sub - - '--------------------------------------------------------------------------------------- ' Procedure : IsModified ' Author : Adam Waller @@ -220,19 +196,6 @@ Public Function IDbComponent_IsModified() As Boolean End Function -'--------------------------------------------------------------------------------------- -' Procedure : SourceIsModified -' Author : Adam Waller -' Date : 12/1/2023 -' Purpose : Returns true if the source file appears to be modified since the last -' : import or export. (When compared to the index) -'--------------------------------------------------------------------------------------- -' -Private Function IDbComponent_SourceIsModified(strFile As String) As Boolean - -End Function - - '--------------------------------------------------------------------------------------- ' Procedure : DateModified ' Author : Adam Waller diff --git a/Version Control.accda.src/modules/clsAdpTrigger.cls b/Version Control.accda.src/modules/clsAdpTrigger.cls index 090f75a3..c71b8f08 100644 --- a/Version Control.accda.src/modules/clsAdpTrigger.cls +++ b/Version Control.accda.src/modules/clsAdpTrigger.cls @@ -150,29 +150,6 @@ Private Function IDbComponent_GetFileList() As Dictionary End Function -'--------------------------------------------------------------------------------------- -' Procedure : ClearOrphanedSourceFiles -' Author : Adam Waller -' Date : 4/23/2020 -' Purpose : Remove any source files for objects not in the current database. -'--------------------------------------------------------------------------------------- -' -Private Sub IDbComponent_ClearOrphanedSourceFiles() - ClearOrphanedSourceFiles Me, "sql" -End Sub - - -'--------------------------------------------------------------------------------------- -' Procedure : ClearOrphanedDatabaseObjects -' Author : Adam Waller -' Date : 11/3/2021 -' Purpose : Remove database objects that are not represented by existing source files. -'--------------------------------------------------------------------------------------- -' -Public Sub IDbComponent_ClearOrphanedDatabaseObjects() -End Sub - - '--------------------------------------------------------------------------------------- ' Procedure : IsModified ' Author : Adam Waller @@ -186,19 +163,6 @@ Public Function IDbComponent_IsModified() As Boolean End Function -'--------------------------------------------------------------------------------------- -' Procedure : SourceIsModified -' Author : Adam Waller -' Date : 12/1/2023 -' Purpose : Returns true if the source file appears to be modified since the last -' : import or export. (When compared to the index) -'--------------------------------------------------------------------------------------- -' -Private Function IDbComponent_SourceIsModified(strFile As String) As Boolean - -End Function - - '--------------------------------------------------------------------------------------- ' Procedure : DateModified ' Author : Adam Waller diff --git a/Version Control.accda.src/modules/clsDbConnection.cls b/Version Control.accda.src/modules/clsDbConnection.cls index ea85eb97..68cc988a 100644 --- a/Version Control.accda.src/modules/clsDbConnection.cls +++ b/Version Control.accda.src/modules/clsDbConnection.cls @@ -269,32 +269,6 @@ Private Function IDbComponent_GetFileList() As Dictionary End Function -'--------------------------------------------------------------------------------------- -' Procedure : ClearOrphanedSourceFiles -' Author : Adam Waller -' Date : 5/17/2021 -' Purpose : Remove any source files for objects not in the current database. -'--------------------------------------------------------------------------------------- -' -Private Sub IDbComponent_ClearOrphanedSourceFiles() - If FSO.FileExists(IDbComponent_SourceFile) Then - ' Delete the source file when we no longer have any connection strings - If IDbComponent_GetAllFromDB.Count = 0 Then DeleteFile IDbComponent_SourceFile - End If -End Sub - - -'--------------------------------------------------------------------------------------- -' Procedure : ClearOrphanedDatabaseObjects -' Author : Adam Waller -' Date : 11/3/2021 -' Purpose : Remove database objects that are not represented by existing source files. -'--------------------------------------------------------------------------------------- -' -Public Sub IDbComponent_ClearOrphanedDatabaseObjects() -End Sub - - '--------------------------------------------------------------------------------------- ' Procedure : IsModified ' Author : Adam Waller @@ -308,19 +282,6 @@ Public Function IDbComponent_IsModified() As Boolean End Function -'--------------------------------------------------------------------------------------- -' Procedure : SourceIsModified -' Author : Adam Waller -' Date : 12/1/2023 -' Purpose : Returns true if the source file appears to be modified since the last -' : import or export. (When compared to the index) -'--------------------------------------------------------------------------------------- -' -Private Function IDbComponent_SourceIsModified(strFile As String) As Boolean - -End Function - - '--------------------------------------------------------------------------------------- ' Procedure : DateModified ' Author : Adam Waller diff --git a/Version Control.accda.src/modules/clsDbDocument.cls b/Version Control.accda.src/modules/clsDbDocument.cls index 7a7004c2..a938dde2 100644 --- a/Version Control.accda.src/modules/clsDbDocument.cls +++ b/Version Control.accda.src/modules/clsDbDocument.cls @@ -360,28 +360,6 @@ Private Function IDbComponent_GetFileList() As Dictionary End Function -'--------------------------------------------------------------------------------------- -' Procedure : ClearOrphanedSourceFiles -' Author : Adam Waller -' Date : 4/23/2020 -' Purpose : Remove any source files for objects not in the current database. -'--------------------------------------------------------------------------------------- -' -Private Sub IDbComponent_ClearOrphanedSourceFiles() -End Sub - - -'--------------------------------------------------------------------------------------- -' Procedure : ClearOrphanedDatabaseObjects -' Author : Adam Waller -' Date : 11/3/2021 -' Purpose : Remove database objects that are not represented by existing source files. -'--------------------------------------------------------------------------------------- -' -Public Sub IDbComponent_ClearOrphanedDatabaseObjects() -End Sub - - '--------------------------------------------------------------------------------------- ' Procedure : IsModified ' Author : Adam Waller @@ -395,19 +373,6 @@ Public Function IDbComponent_IsModified() As Boolean End Function -'--------------------------------------------------------------------------------------- -' Procedure : SourceIsModified -' Author : Adam Waller -' Date : 12/1/2023 -' Purpose : Returns true if the source file appears to be modified since the last -' : import or export. (When compared to the index) -'--------------------------------------------------------------------------------------- -' -Private Function IDbComponent_SourceIsModified(strFile As String) As Boolean - -End Function - - '--------------------------------------------------------------------------------------- ' Procedure : DateModified ' Author : Adam Waller diff --git a/Version Control.accda.src/modules/clsDbForm.cls b/Version Control.accda.src/modules/clsDbForm.cls index 941a86ca..3eb1e56b 100644 --- a/Version Control.accda.src/modules/clsDbForm.cls +++ b/Version Control.accda.src/modules/clsDbForm.cls @@ -172,31 +172,6 @@ Private Function IDbComponent_GetFileList() As Dictionary End Function -'--------------------------------------------------------------------------------------- -' Procedure : ClearOrphanedSourceFiles -' Author : Adam Waller -' Date : 4/23/2020 -' Purpose : Remove any source files for objects not in the current database. -'--------------------------------------------------------------------------------------- -' -Private Sub IDbComponent_ClearOrphanedSourceFiles() - If Not Options.SavePrintVars Then ClearFilesByExtension IDbComponent_BaseFolder, "json" - ClearOrphanedSourceFiles Me, "bas", "json", "cls" -End Sub - - -'--------------------------------------------------------------------------------------- -' Procedure : ClearOrphanedDatabaseObjects -' Author : Adam Waller -' Date : 11/3/2021 -' Purpose : Remove database objects that are not represented by existing source files. -'--------------------------------------------------------------------------------------- -' -Public Sub IDbComponent_ClearOrphanedDatabaseObjects() - RemoveOrphanedDatabaseObjects Me -End Sub - - '--------------------------------------------------------------------------------------- ' Procedure : IsModified ' Author : Adam Waller @@ -221,19 +196,6 @@ Public Function IDbComponent_IsModified() As Boolean End Function -'--------------------------------------------------------------------------------------- -' Procedure : SourceIsModified -' Author : Adam Waller -' Date : 12/1/2023 -' Purpose : Returns true if the source file appears to be modified since the last -' : import or export. (When compared to the index) -'--------------------------------------------------------------------------------------- -' -Private Function IDbComponent_SourceIsModified(strFile As String) As Boolean - -End Function - - '--------------------------------------------------------------------------------------- ' Procedure : DateModified ' Author : Adam Waller diff --git a/Version Control.accda.src/modules/clsDbHiddenAttribute.cls b/Version Control.accda.src/modules/clsDbHiddenAttribute.cls index 17a576c6..cc575e69 100644 --- a/Version Control.accda.src/modules/clsDbHiddenAttribute.cls +++ b/Version Control.accda.src/modules/clsDbHiddenAttribute.cls @@ -316,34 +316,6 @@ Private Function IDbComponent_GetFileList() As Dictionary End Function -'--------------------------------------------------------------------------------------- -' Procedure : ClearOrphanedSourceFiles -' Author : Adam Waller / Indigo744 -' Date : 11/14/2020 -' Purpose : Remove any source files for objects not in the current database. -'--------------------------------------------------------------------------------------- -' -Private Sub IDbComponent_ClearOrphanedSourceFiles() - If FSO.FileExists(IDbComponent_SourceFile) Then - If IDbComponent_GetAllFromDB.Count = 0 Then - ' Remove existing file, since we don't have any hidden objects. - DeleteFile IDbComponent_SourceFile - End If - End If -End Sub - - -'--------------------------------------------------------------------------------------- -' Procedure : ClearOrphanedDatabaseObjects -' Author : Adam Waller -' Date : 11/3/2021 -' Purpose : Remove database objects that are not represented by existing source files. -'--------------------------------------------------------------------------------------- -' -Public Sub IDbComponent_ClearOrphanedDatabaseObjects() -End Sub - - '--------------------------------------------------------------------------------------- ' Procedure : IsModified ' Author : Adam Waller @@ -357,19 +329,6 @@ Public Function IDbComponent_IsModified() As Boolean End Function -'--------------------------------------------------------------------------------------- -' Procedure : SourceIsModified -' Author : Adam Waller -' Date : 12/1/2023 -' Purpose : Returns true if the source file appears to be modified since the last -' : import or export. (When compared to the index) -'--------------------------------------------------------------------------------------- -' -Private Function IDbComponent_SourceIsModified(strFile As String) As Boolean - -End Function - - '--------------------------------------------------------------------------------------- ' Procedure : DateModified ' Author : Adam Waller / Indigo744 diff --git a/Version Control.accda.src/modules/clsDbImexSpec.cls b/Version Control.accda.src/modules/clsDbImexSpec.cls index e1440eb9..faa014c5 100644 --- a/Version Control.accda.src/modules/clsDbImexSpec.cls +++ b/Version Control.accda.src/modules/clsDbImexSpec.cls @@ -339,29 +339,6 @@ Private Function IDbComponent_GetFileList() As Dictionary End Function -'--------------------------------------------------------------------------------------- -' Procedure : ClearOrphanedSourceFiles -' Author : Adam Waller -' Date : 4/23/2020 -' Purpose : Remove any source files for objects not in the current database. -'--------------------------------------------------------------------------------------- -' -Private Sub IDbComponent_ClearOrphanedSourceFiles() - ClearOrphanedSourceFiles Me, "json" -End Sub - - -'--------------------------------------------------------------------------------------- -' Procedure : ClearOrphanedDatabaseObjects -' Author : Adam Waller -' Date : 11/3/2021 -' Purpose : Remove database objects that are not represented by existing source files. -'--------------------------------------------------------------------------------------- -' -Public Sub IDbComponent_ClearOrphanedDatabaseObjects() -End Sub - - '--------------------------------------------------------------------------------------- ' Procedure : IsModified ' Author : Adam Waller @@ -375,19 +352,6 @@ Public Function IDbComponent_IsModified() As Boolean End Function -'--------------------------------------------------------------------------------------- -' Procedure : SourceIsModified -' Author : Adam Waller -' Date : 12/1/2023 -' Purpose : Returns true if the source file appears to be modified since the last -' : import or export. (When compared to the index) -'--------------------------------------------------------------------------------------- -' -Private Function IDbComponent_SourceIsModified(strFile As String) As Boolean - -End Function - - '--------------------------------------------------------------------------------------- ' Procedure : DateModified ' Author : Adam Waller diff --git a/Version Control.accda.src/modules/clsDbMacro.cls b/Version Control.accda.src/modules/clsDbMacro.cls index 48f2f6f2..93a9387e 100644 --- a/Version Control.accda.src/modules/clsDbMacro.cls +++ b/Version Control.accda.src/modules/clsDbMacro.cls @@ -138,30 +138,6 @@ Private Function IDbComponent_GetFileList() As Dictionary End Function -'--------------------------------------------------------------------------------------- -' Procedure : ClearOrphanedSourceFiles -' Author : Adam Waller -' Date : 4/23/2020 -' Purpose : Remove any source files for objects not in the current database. -'--------------------------------------------------------------------------------------- -' -Private Sub IDbComponent_ClearOrphanedSourceFiles() - ClearOrphanedSourceFiles Me, "bas" -End Sub - - -'--------------------------------------------------------------------------------------- -' Procedure : ClearOrphanedDatabaseObjects -' Author : Adam Waller -' Date : 11/3/2021 -' Purpose : Remove database objects that are not represented by existing source files. -'--------------------------------------------------------------------------------------- -' -Public Sub IDbComponent_ClearOrphanedDatabaseObjects() - RemoveOrphanedDatabaseObjects Me -End Sub - - '--------------------------------------------------------------------------------------- ' Procedure : IsModified ' Author : Adam Waller @@ -175,19 +151,6 @@ Public Function IDbComponent_IsModified() As Boolean End Function -'--------------------------------------------------------------------------------------- -' Procedure : SourceIsModified -' Author : Adam Waller -' Date : 12/1/2023 -' Purpose : Returns true if the source file appears to be modified since the last -' : import or export. (When compared to the index) -'--------------------------------------------------------------------------------------- -' -Private Function IDbComponent_SourceIsModified(strFile As String) As Boolean - -End Function - - '--------------------------------------------------------------------------------------- ' Procedure : DateModified ' Author : Adam Waller diff --git a/Version Control.accda.src/modules/clsDbModule.cls b/Version Control.accda.src/modules/clsDbModule.cls index b2b27709..c6e08ddd 100644 --- a/Version Control.accda.src/modules/clsDbModule.cls +++ b/Version Control.accda.src/modules/clsDbModule.cls @@ -313,30 +313,6 @@ Private Function IDbComponent_GetFileList() As Dictionary End Function -'--------------------------------------------------------------------------------------- -' Procedure : ClearOrphanedSourceFiles -' Author : Adam Waller -' Date : 4/23/2020 -' Purpose : Remove any source files for objects not in the current database. -'--------------------------------------------------------------------------------------- -' -Private Sub IDbComponent_ClearOrphanedSourceFiles() - ClearOrphanedSourceFiles Me, "bas", "cls" -End Sub - - -'--------------------------------------------------------------------------------------- -' Procedure : ClearOrphanedDatabaseObjects -' Author : Adam Waller -' Date : 11/3/2021 -' Purpose : Remove database objects that are not represented by existing source files. -'--------------------------------------------------------------------------------------- -' -Public Sub IDbComponent_ClearOrphanedDatabaseObjects() - RemoveOrphanedDatabaseObjects Me -End Sub - - '--------------------------------------------------------------------------------------- ' Procedure : IsModified ' Author : Adam Waller @@ -356,19 +332,6 @@ Public Function IDbComponent_IsModified() As Boolean End Function -'--------------------------------------------------------------------------------------- -' Procedure : SourceIsModified -' Author : Adam Waller -' Date : 12/1/2023 -' Purpose : Returns true if the source file appears to be modified since the last -' : import or export. (When compared to the index) -'--------------------------------------------------------------------------------------- -' -Private Function IDbComponent_SourceIsModified(strFile As String) As Boolean - -End Function - - '--------------------------------------------------------------------------------------- ' Procedure : DateModified ' Author : Adam Waller diff --git a/Version Control.accda.src/modules/clsDbNavPaneGroup.cls b/Version Control.accda.src/modules/clsDbNavPaneGroup.cls index d05954de..32a99b79 100644 --- a/Version Control.accda.src/modules/clsDbNavPaneGroup.cls +++ b/Version Control.accda.src/modules/clsDbNavPaneGroup.cls @@ -437,31 +437,6 @@ Private Function IDbComponent_GetFileList() As Dictionary End Function -'--------------------------------------------------------------------------------------- -' Procedure : ClearOrphanedSourceFiles -' Author : Adam Waller -' Date : 4/23/2020 -' Purpose : Remove any source files for objects not in the current database. -'--------------------------------------------------------------------------------------- -' -Private Sub IDbComponent_ClearOrphanedSourceFiles() - If IDbComponent_GetAllFromDB.Count = 0 Then - If FSO.FileExists(IDbComponent_SourceFile) Then DeleteFile IDbComponent_SourceFile, True - End If -End Sub - - -'--------------------------------------------------------------------------------------- -' Procedure : ClearOrphanedDatabaseObjects -' Author : Adam Waller -' Date : 11/3/2021 -' Purpose : Remove database objects that are not represented by existing source files. -'--------------------------------------------------------------------------------------- -' -Public Sub IDbComponent_ClearOrphanedDatabaseObjects() -End Sub - - '--------------------------------------------------------------------------------------- ' Procedure : IsModified ' Author : Adam Waller @@ -475,19 +450,6 @@ Public Function IDbComponent_IsModified() As Boolean End Function -'--------------------------------------------------------------------------------------- -' Procedure : SourceIsModified -' Author : Adam Waller -' Date : 12/1/2023 -' Purpose : Returns true if the source file appears to be modified since the last -' : import or export. (When compared to the index) -'--------------------------------------------------------------------------------------- -' -Private Function IDbComponent_SourceIsModified(strFile As String) As Boolean - -End Function - - '--------------------------------------------------------------------------------------- ' Procedure : DateModified ' Author : Adam Waller diff --git a/Version Control.accda.src/modules/clsDbProjProperty.cls b/Version Control.accda.src/modules/clsDbProjProperty.cls index 1da6cb2c..828d55a9 100644 --- a/Version Control.accda.src/modules/clsDbProjProperty.cls +++ b/Version Control.accda.src/modules/clsDbProjProperty.cls @@ -274,28 +274,6 @@ Private Function IDbComponent_GetFileList() As Dictionary End Function -'--------------------------------------------------------------------------------------- -' Procedure : ClearOrphanedSourceFiles -' Author : Adam Waller -' Date : 4/23/2020 -' Purpose : Remove any source files for objects not in the current database. -'--------------------------------------------------------------------------------------- -' -Private Sub IDbComponent_ClearOrphanedSourceFiles() -End Sub - - -'--------------------------------------------------------------------------------------- -' Procedure : ClearOrphanedDatabaseObjects -' Author : Adam Waller -' Date : 11/3/2021 -' Purpose : Remove database objects that are not represented by existing source files. -'--------------------------------------------------------------------------------------- -' -Public Sub IDbComponent_ClearOrphanedDatabaseObjects() -End Sub - - '--------------------------------------------------------------------------------------- ' Procedure : IsModified ' Author : Adam Waller @@ -309,19 +287,6 @@ Public Function IDbComponent_IsModified() As Boolean End Function -'--------------------------------------------------------------------------------------- -' Procedure : SourceIsModified -' Author : Adam Waller -' Date : 12/1/2023 -' Purpose : Returns true if the source file appears to be modified since the last -' : import or export. (When compared to the index) -'--------------------------------------------------------------------------------------- -' -Private Function IDbComponent_SourceIsModified(strFile As String) As Boolean - -End Function - - '--------------------------------------------------------------------------------------- ' Procedure : DateModified ' Author : Adam Waller diff --git a/Version Control.accda.src/modules/clsDbProject.cls b/Version Control.accda.src/modules/clsDbProject.cls index 3f7e65b0..7beb8f49 100644 --- a/Version Control.accda.src/modules/clsDbProject.cls +++ b/Version Control.accda.src/modules/clsDbProject.cls @@ -199,28 +199,6 @@ Private Function IDbComponent_GetFileList() As Dictionary End Function -'--------------------------------------------------------------------------------------- -' Procedure : ClearOrphanedSourceFiles -' Author : Adam Waller -' Date : 5/17/2021 -' Purpose : Remove any source files for objects not in the current database. -'--------------------------------------------------------------------------------------- -' -Private Sub IDbComponent_ClearOrphanedSourceFiles() -End Sub - - -'--------------------------------------------------------------------------------------- -' Procedure : ClearOrphanedDatabaseObjects -' Author : Adam Waller -' Date : 11/3/2021 -' Purpose : Remove database objects that are not represented by existing source files. -'--------------------------------------------------------------------------------------- -' -Public Sub IDbComponent_ClearOrphanedDatabaseObjects() -End Sub - - '--------------------------------------------------------------------------------------- ' Procedure : IsModified ' Author : Adam Waller @@ -234,19 +212,6 @@ Public Function IDbComponent_IsModified() As Boolean End Function -'--------------------------------------------------------------------------------------- -' Procedure : SourceIsModified -' Author : Adam Waller -' Date : 12/1/2023 -' Purpose : Returns true if the source file appears to be modified since the last -' : import or export. (When compared to the index) -'--------------------------------------------------------------------------------------- -' -Private Function IDbComponent_SourceIsModified(strFile As String) As Boolean - -End Function - - '--------------------------------------------------------------------------------------- ' Procedure : DateModified ' Author : Adam Waller diff --git a/Version Control.accda.src/modules/clsDbProperty.cls b/Version Control.accda.src/modules/clsDbProperty.cls index 3f28e8fb..6f64e353 100644 --- a/Version Control.accda.src/modules/clsDbProperty.cls +++ b/Version Control.accda.src/modules/clsDbProperty.cls @@ -364,31 +364,6 @@ Private Function IDbComponent_GetFileList() As Dictionary End Function -'--------------------------------------------------------------------------------------- -' Procedure : ClearOrphanedSourceFiles -' Author : Adam Waller -' Date : 4/23/2020 -' Purpose : Remove any source files for objects not in the current database. -'--------------------------------------------------------------------------------------- -' -Private Sub IDbComponent_ClearOrphanedSourceFiles() - Dim strFile As String - strFile = IDbComponent_BaseFolder & "properties.txt" - If FSO.FileExists(strFile) Then DeleteFile strFile, True ' Remove legacy file -End Sub - - -'--------------------------------------------------------------------------------------- -' Procedure : ClearOrphanedDatabaseObjects -' Author : Adam Waller -' Date : 11/3/2021 -' Purpose : Remove database objects that are not represented by existing source files. -'--------------------------------------------------------------------------------------- -' -Public Sub IDbComponent_ClearOrphanedDatabaseObjects() -End Sub - - '--------------------------------------------------------------------------------------- ' Procedure : IsModified ' Author : Adam Waller @@ -402,19 +377,6 @@ Public Function IDbComponent_IsModified() As Boolean End Function -'--------------------------------------------------------------------------------------- -' Procedure : SourceIsModified -' Author : Adam Waller -' Date : 12/1/2023 -' Purpose : Returns true if the source file appears to be modified since the last -' : import or export. (When compared to the index) -'--------------------------------------------------------------------------------------- -' -Private Function IDbComponent_SourceIsModified(strFile As String) As Boolean - -End Function - - '--------------------------------------------------------------------------------------- ' Procedure : DateModified ' Author : Adam Waller diff --git a/Version Control.accda.src/modules/clsDbQuery.cls b/Version Control.accda.src/modules/clsDbQuery.cls index 79a358a0..ad01be81 100644 --- a/Version Control.accda.src/modules/clsDbQuery.cls +++ b/Version Control.accda.src/modules/clsDbQuery.cls @@ -212,30 +212,6 @@ Private Function IDbComponent_GetFileList() As Dictionary End Function -'--------------------------------------------------------------------------------------- -' Procedure : ClearOrphanedSourceFiles -' Author : Adam Waller -' Date : 4/23/2020 -' Purpose : Remove any source files for objects not in the current database. -'--------------------------------------------------------------------------------------- -' -Private Sub IDbComponent_ClearOrphanedSourceFiles() - ClearOrphanedSourceFiles Me, "bas", "sql" -End Sub - - -'--------------------------------------------------------------------------------------- -' Procedure : ClearOrphanedDatabaseObjects -' Author : Adam Waller -' Date : 11/3/2021 -' Purpose : Remove database objects that are not represented by existing source files. -'--------------------------------------------------------------------------------------- -' -Public Sub IDbComponent_ClearOrphanedDatabaseObjects() - RemoveOrphanedDatabaseObjects Me -End Sub - - '--------------------------------------------------------------------------------------- ' Procedure : IsModified ' Author : Adam Waller @@ -249,19 +225,6 @@ Public Function IDbComponent_IsModified() As Boolean End Function -'--------------------------------------------------------------------------------------- -' Procedure : SourceIsModified -' Author : Adam Waller -' Date : 12/1/2023 -' Purpose : Returns true if the source file appears to be modified since the last -' : import or export. (When compared to the index) -'--------------------------------------------------------------------------------------- -' -Private Function IDbComponent_SourceIsModified(strFile As String) As Boolean - -End Function - - '--------------------------------------------------------------------------------------- ' Procedure : DateModified ' Author : Adam Waller diff --git a/Version Control.accda.src/modules/clsDbRelation.cls b/Version Control.accda.src/modules/clsDbRelation.cls index 7e0e1720..0437742c 100644 --- a/Version Control.accda.src/modules/clsDbRelation.cls +++ b/Version Control.accda.src/modules/clsDbRelation.cls @@ -298,30 +298,6 @@ Private Function IDbComponent_GetFileList() As Dictionary End Function -'--------------------------------------------------------------------------------------- -' Procedure : ClearOrphanedSourceFiles -' Author : Adam Waller -' Date : 4/23/2020 -' Purpose : Remove any source files for objects not in the current database. -'--------------------------------------------------------------------------------------- -' -Private Sub IDbComponent_ClearOrphanedSourceFiles() - ClearFilesByExtension IDbComponent_BaseFolder, "txt" - ClearOrphanedSourceFiles Me, "json" -End Sub - - -'--------------------------------------------------------------------------------------- -' Procedure : ClearOrphanedDatabaseObjects -' Author : Adam Waller -' Date : 11/3/2021 -' Purpose : Remove database objects that are not represented by existing source files. -'--------------------------------------------------------------------------------------- -' -Public Sub IDbComponent_ClearOrphanedDatabaseObjects() -End Sub - - '--------------------------------------------------------------------------------------- ' Procedure : IsModified ' Author : Adam Waller @@ -335,19 +311,6 @@ Public Function IDbComponent_IsModified() As Boolean End Function -'--------------------------------------------------------------------------------------- -' Procedure : SourceIsModified -' Author : Adam Waller -' Date : 12/1/2023 -' Purpose : Returns true if the source file appears to be modified since the last -' : import or export. (When compared to the index) -'--------------------------------------------------------------------------------------- -' -Private Function IDbComponent_SourceIsModified(strFile As String) As Boolean - -End Function - - '--------------------------------------------------------------------------------------- ' Procedure : DateModified ' Author : Adam Waller diff --git a/Version Control.accda.src/modules/clsDbReport.cls b/Version Control.accda.src/modules/clsDbReport.cls index 32365eab..a2895ac9 100644 --- a/Version Control.accda.src/modules/clsDbReport.cls +++ b/Version Control.accda.src/modules/clsDbReport.cls @@ -141,32 +141,6 @@ Private Function IDbComponent_GetFileList() As Dictionary End Function -'--------------------------------------------------------------------------------------- -' Procedure : ClearOrphanedSourceFiles -' Author : Adam Waller -' Date : 4/23/2020 -' Purpose : Remove any source files for objects not in the current database. -'--------------------------------------------------------------------------------------- -' -Private Sub IDbComponent_ClearOrphanedSourceFiles() - ClearFilesByExtension IDbComponent_BaseFolder, "pv" ' Remove legacy files - If Not Options.SavePrintVars Then ClearFilesByExtension IDbComponent_BaseFolder, "json" - ClearOrphanedSourceFiles Me, "bas", "json", "cls" -End Sub - - -'--------------------------------------------------------------------------------------- -' Procedure : ClearOrphanedDatabaseObjects -' Author : Adam Waller -' Date : 11/3/2021 -' Purpose : Remove database objects that are not represented by existing source files. -'--------------------------------------------------------------------------------------- -' -Public Sub IDbComponent_ClearOrphanedDatabaseObjects() - RemoveOrphanedDatabaseObjects Me -End Sub - - '--------------------------------------------------------------------------------------- ' Procedure : IsModified ' Author : Adam Waller @@ -191,19 +165,6 @@ Public Function IDbComponent_IsModified() As Boolean End Function -'--------------------------------------------------------------------------------------- -' Procedure : SourceIsModified -' Author : Adam Waller -' Date : 12/1/2023 -' Purpose : Returns true if the source file appears to be modified since the last -' : import or export. (When compared to the index) -'--------------------------------------------------------------------------------------- -' -Private Function IDbComponent_SourceIsModified(strFile As String) As Boolean - -End Function - - '--------------------------------------------------------------------------------------- ' Procedure : DateModified ' Author : Adam Waller diff --git a/Version Control.accda.src/modules/clsDbSavedSpec.cls b/Version Control.accda.src/modules/clsDbSavedSpec.cls index 80ae207c..66be496d 100644 --- a/Version Control.accda.src/modules/clsDbSavedSpec.cls +++ b/Version Control.accda.src/modules/clsDbSavedSpec.cls @@ -212,29 +212,6 @@ Private Function IDbComponent_GetFileList() As Dictionary End Function -'--------------------------------------------------------------------------------------- -' Procedure : ClearOrphanedSourceFiles -' Author : Adam Waller -' Date : 4/23/2020 -' Purpose : Remove any source files for objects not in the current database. -'--------------------------------------------------------------------------------------- -' -Private Sub IDbComponent_ClearOrphanedSourceFiles() - ClearOrphanedSourceFiles Me, "json" -End Sub - - -'--------------------------------------------------------------------------------------- -' Procedure : ClearOrphanedDatabaseObjects -' Author : Adam Waller -' Date : 11/3/2021 -' Purpose : Remove database objects that are not represented by existing source files. -'--------------------------------------------------------------------------------------- -' -Public Sub IDbComponent_ClearOrphanedDatabaseObjects() -End Sub - - '--------------------------------------------------------------------------------------- ' Procedure : IsModified ' Author : Adam Waller @@ -248,19 +225,6 @@ Public Function IDbComponent_IsModified() As Boolean End Function -'--------------------------------------------------------------------------------------- -' Procedure : SourceIsModified -' Author : Adam Waller -' Date : 12/1/2023 -' Purpose : Returns true if the source file appears to be modified since the last -' : import or export. (When compared to the index) -'--------------------------------------------------------------------------------------- -' -Private Function IDbComponent_SourceIsModified(strFile As String) As Boolean - -End Function - - '--------------------------------------------------------------------------------------- ' Procedure : DateModified ' Author : Adam Waller diff --git a/Version Control.accda.src/modules/clsDbSharedImage.cls b/Version Control.accda.src/modules/clsDbSharedImage.cls index 5d8ea6a5..4c179034 100644 --- a/Version Control.accda.src/modules/clsDbSharedImage.cls +++ b/Version Control.accda.src/modules/clsDbSharedImage.cls @@ -495,30 +495,6 @@ Private Function IDbComponent_GetFileList() As Dictionary End Function -'--------------------------------------------------------------------------------------- -' Procedure : ClearOrphanedSourceFiles -' Author : Adam Waller -' Date : 4/23/2020 -' Purpose : Remove any source files for objects not in the current database. -' : Matches list of supported image files (in 2010), plus icon image. -'--------------------------------------------------------------------------------------- -' -Private Sub IDbComponent_ClearOrphanedSourceFiles() - ClearOrphanedSourceFiles Me, "json", "jpg", "jpeg", "jpe", "gif", "png", "ico" -End Sub - - -'--------------------------------------------------------------------------------------- -' Procedure : ClearOrphanedDatabaseObjects -' Author : Adam Waller -' Date : 11/3/2021 -' Purpose : Remove database objects that are not represented by existing source files. -'--------------------------------------------------------------------------------------- -' -Public Sub IDbComponent_ClearOrphanedDatabaseObjects() -End Sub - - '--------------------------------------------------------------------------------------- ' Procedure : IsModified ' Author : Adam Waller @@ -544,19 +520,6 @@ Public Function IDbComponent_IsModified() As Boolean End Function -'--------------------------------------------------------------------------------------- -' Procedure : SourceIsModified -' Author : Adam Waller -' Date : 12/1/2023 -' Purpose : Returns true if the source file appears to be modified since the last -' : import or export. (When compared to the index) -'--------------------------------------------------------------------------------------- -' -Private Function IDbComponent_SourceIsModified(strFile As String) As Boolean - -End Function - - '--------------------------------------------------------------------------------------- ' Procedure : DateModified ' Author : Adam Waller diff --git a/Version Control.accda.src/modules/clsDbTableData.cls b/Version Control.accda.src/modules/clsDbTableData.cls index 1b13d65d..51712b70 100644 --- a/Version Control.accda.src/modules/clsDbTableData.cls +++ b/Version Control.accda.src/modules/clsDbTableData.cls @@ -543,30 +543,6 @@ Private Function GetFormatByExt(strFile As String) As eTableDataExportFormat End Function -'--------------------------------------------------------------------------------------- -' Procedure : ClearOrphanedSourceFiles -' Author : Adam Waller -' Date : 4/23/2020 -' Purpose : Remove any source files for objects not in the current database. -' : Note that alternate formats may stay here till the next export. -'--------------------------------------------------------------------------------------- -' -Private Sub IDbComponent_ClearOrphanedSourceFiles() - ClearOrphanedSourceFiles Me, "xml", "txt" -End Sub - - -'--------------------------------------------------------------------------------------- -' Procedure : ClearOrphanedDatabaseObjects -' Author : Adam Waller -' Date : 11/3/2021 -' Purpose : Remove database objects that are not represented by existing source files. -'--------------------------------------------------------------------------------------- -' -Public Sub IDbComponent_ClearOrphanedDatabaseObjects() -End Sub - - '--------------------------------------------------------------------------------------- ' Procedure : IsModified ' Author : Adam Waller @@ -583,19 +559,6 @@ Public Function IDbComponent_IsModified() As Boolean End Function -'--------------------------------------------------------------------------------------- -' Procedure : SourceIsModified -' Author : Adam Waller -' Date : 12/1/2023 -' Purpose : Returns true if the source file appears to be modified since the last -' : import or export. (When compared to the index) -'--------------------------------------------------------------------------------------- -' -Private Function IDbComponent_SourceIsModified(strFile As String) As Boolean - -End Function - - '--------------------------------------------------------------------------------------- ' Procedure : DateModified ' Author : Adam Waller diff --git a/Version Control.accda.src/modules/clsDbTableDataMacro.cls b/Version Control.accda.src/modules/clsDbTableDataMacro.cls index 5da695b6..ecc11186 100644 --- a/Version Control.accda.src/modules/clsDbTableDataMacro.cls +++ b/Version Control.accda.src/modules/clsDbTableDataMacro.cls @@ -182,29 +182,6 @@ Private Function IDbComponent_GetFileList() As Dictionary End Function -'--------------------------------------------------------------------------------------- -' Procedure : ClearOrphanedSourceFiles -' Author : Adam Waller -' Date : 4/23/2020 -' Purpose : Remove any source files for objects not in the current database. -'--------------------------------------------------------------------------------------- -' -Private Sub IDbComponent_ClearOrphanedSourceFiles() - ClearOrphanedSourceFiles Me, "xml" -End Sub - - -'--------------------------------------------------------------------------------------- -' Procedure : ClearOrphanedDatabaseObjects -' Author : Adam Waller -' Date : 11/3/2021 -' Purpose : Remove database objects that are not represented by existing source files. -'--------------------------------------------------------------------------------------- -' -Public Sub IDbComponent_ClearOrphanedDatabaseObjects() -End Sub - - '--------------------------------------------------------------------------------------- ' Procedure : IsModified ' Author : Adam Waller @@ -220,19 +197,6 @@ Public Function IDbComponent_IsModified() As Boolean End Function -'--------------------------------------------------------------------------------------- -' Procedure : SourceIsModified -' Author : Adam Waller -' Date : 12/1/2023 -' Purpose : Returns true if the source file appears to be modified since the last -' : import or export. (When compared to the index) -'--------------------------------------------------------------------------------------- -' -Private Function IDbComponent_SourceIsModified(strFile As String) As Boolean - -End Function - - '--------------------------------------------------------------------------------------- ' Procedure : DateModified ' Author : Adam Waller diff --git a/Version Control.accda.src/modules/clsDbTableDef.cls b/Version Control.accda.src/modules/clsDbTableDef.cls index d4a8a714..da82b7e4 100644 --- a/Version Control.accda.src/modules/clsDbTableDef.cls +++ b/Version Control.accda.src/modules/clsDbTableDef.cls @@ -728,31 +728,6 @@ Private Function IDbComponent_GetFileList() As Dictionary End Function -'--------------------------------------------------------------------------------------- -' Procedure : ClearOrphanedSourceFiles -' Author : Adam Waller -' Date : 4/23/2020 -' Purpose : Remove any source files for objects not in the current database. -'--------------------------------------------------------------------------------------- -' -Private Sub IDbComponent_ClearOrphanedSourceFiles() - ClearFilesByExtension IDbComponent_BaseFolder, "LNKD" - ClearOrphanedSourceFiles Me, "LNKD", "bas", "sql", "xml", "tdf", "json" -End Sub - - -'--------------------------------------------------------------------------------------- -' Procedure : ClearOrphanedDatabaseObjects -' Author : Adam Waller -' Date : 11/3/2021 -' Purpose : Remove database objects that are not represented by existing source files. -'--------------------------------------------------------------------------------------- -' -Public Sub IDbComponent_ClearOrphanedDatabaseObjects() - RemoveOrphanedDatabaseObjects Me -End Sub - - '--------------------------------------------------------------------------------------- ' Procedure : IsModified ' Author : Adam Waller @@ -766,19 +741,6 @@ Public Function IDbComponent_IsModified() As Boolean End Function -'--------------------------------------------------------------------------------------- -' Procedure : SourceIsModified -' Author : Adam Waller -' Date : 12/1/2023 -' Purpose : Returns true if the source file appears to be modified since the last -' : import or export. (When compared to the index) -'--------------------------------------------------------------------------------------- -' -Private Function IDbComponent_SourceIsModified(strFile As String) As Boolean - -End Function - - '--------------------------------------------------------------------------------------- ' Procedure : DateModified ' Author : Adam Waller diff --git a/Version Control.accda.src/modules/clsDbTheme.cls b/Version Control.accda.src/modules/clsDbTheme.cls index bce3390a..2d8953d7 100644 --- a/Version Control.accda.src/modules/clsDbTheme.cls +++ b/Version Control.accda.src/modules/clsDbTheme.cls @@ -465,30 +465,6 @@ Private Function IDbComponent_GetFileList() As Dictionary End Function -'--------------------------------------------------------------------------------------- -' Procedure : ClearOrphanedSourceFiles -' Author : Adam Waller -' Date : 4/23/2020 -' Purpose : Remove any source files for objects not in the current database. -'--------------------------------------------------------------------------------------- -' -Private Sub IDbComponent_ClearOrphanedSourceFiles() - ClearOrphanedSourceFiles Me, "thmx" - ClearOrphanedSourceFolders Me -End Sub - - -'--------------------------------------------------------------------------------------- -' Procedure : ClearOrphanedDatabaseObjects -' Author : Adam Waller -' Date : 11/3/2021 -' Purpose : Remove database objects that are not represented by existing source files. -'--------------------------------------------------------------------------------------- -' -Public Sub IDbComponent_ClearOrphanedDatabaseObjects() -End Sub - - '--------------------------------------------------------------------------------------- ' Procedure : IsModified ' Author : Adam Waller @@ -503,19 +479,6 @@ Public Function IDbComponent_IsModified() As Boolean End Function -'--------------------------------------------------------------------------------------- -' Procedure : SourceIsModified -' Author : Adam Waller -' Date : 12/1/2023 -' Purpose : Returns true if the source file appears to be modified since the last -' : import or export. (When compared to the index) -'--------------------------------------------------------------------------------------- -' -Private Function IDbComponent_SourceIsModified(strFile As String) As Boolean - -End Function - - '--------------------------------------------------------------------------------------- ' Procedure : DateModified ' Author : Adam Waller diff --git a/Version Control.accda.src/modules/clsDbVbeForm.cls b/Version Control.accda.src/modules/clsDbVbeForm.cls index b48e3596..4fa7339f 100644 --- a/Version Control.accda.src/modules/clsDbVbeForm.cls +++ b/Version Control.accda.src/modules/clsDbVbeForm.cls @@ -275,29 +275,6 @@ Private Function IDbComponent_GetFileList() As Dictionary End Function -'--------------------------------------------------------------------------------------- -' Procedure : ClearOrphanedSourceFiles -' Author : Adam Waller -' Date : 4/23/2020 -' Purpose : Remove any source files for objects not in the current database. -'--------------------------------------------------------------------------------------- -' -Private Sub IDbComponent_ClearOrphanedSourceFiles() - ClearOrphanedSourceFiles Me, "frm", "frx", "json" -End Sub - - -'--------------------------------------------------------------------------------------- -' Procedure : ClearOrphanedDatabaseObjects -' Author : Adam Waller -' Date : 11/3/2021 -' Purpose : Remove database objects that are not represented by existing source files. -'--------------------------------------------------------------------------------------- -' -Public Sub IDbComponent_ClearOrphanedDatabaseObjects() -End Sub - - '--------------------------------------------------------------------------------------- ' Procedure : IsModified ' Author : Adam Waller @@ -313,19 +290,6 @@ Public Function IDbComponent_IsModified() As Boolean End Function -'--------------------------------------------------------------------------------------- -' Procedure : SourceIsModified -' Author : Adam Waller -' Date : 12/1/2023 -' Purpose : Returns true if the source file appears to be modified since the last -' : import or export. (When compared to the index) -'--------------------------------------------------------------------------------------- -' -Private Function IDbComponent_SourceIsModified(strFile As String) As Boolean - -End Function - - '--------------------------------------------------------------------------------------- ' Procedure : DateModified ' Author : Adam Waller diff --git a/Version Control.accda.src/modules/clsDbVbeProject.cls b/Version Control.accda.src/modules/clsDbVbeProject.cls index 42e5d1dc..20dca960 100644 --- a/Version Control.accda.src/modules/clsDbVbeProject.cls +++ b/Version Control.accda.src/modules/clsDbVbeProject.cls @@ -327,28 +327,6 @@ Private Function IDbComponent_GetFileList() As Dictionary End Function -'--------------------------------------------------------------------------------------- -' Procedure : ClearOrphanedSourceFiles -' Author : Adam Waller -' Date : 4/23/2020 -' Purpose : Remove any source files for objects not in the current database. -'--------------------------------------------------------------------------------------- -' -Private Sub IDbComponent_ClearOrphanedSourceFiles() -End Sub - - -'--------------------------------------------------------------------------------------- -' Procedure : ClearOrphanedDatabaseObjects -' Author : Adam Waller -' Date : 11/3/2021 -' Purpose : Remove database objects that are not represented by existing source files. -'--------------------------------------------------------------------------------------- -' -Public Sub IDbComponent_ClearOrphanedDatabaseObjects() -End Sub - - '--------------------------------------------------------------------------------------- ' Procedure : IsModified ' Author : Adam Waller @@ -362,19 +340,6 @@ Public Function IDbComponent_IsModified() As Boolean End Function -'--------------------------------------------------------------------------------------- -' Procedure : SourceIsModified -' Author : Adam Waller -' Date : 12/1/2023 -' Purpose : Returns true if the source file appears to be modified since the last -' : import or export. (When compared to the index) -'--------------------------------------------------------------------------------------- -' -Private Function IDbComponent_SourceIsModified(strFile As String) As Boolean - -End Function - - '--------------------------------------------------------------------------------------- ' Procedure : DateModified ' Author : Adam Waller diff --git a/Version Control.accda.src/modules/clsDbVbeReference.cls b/Version Control.accda.src/modules/clsDbVbeReference.cls index 3c094fe0..ba291c13 100644 --- a/Version Control.accda.src/modules/clsDbVbeReference.cls +++ b/Version Control.accda.src/modules/clsDbVbeReference.cls @@ -342,31 +342,6 @@ Private Function IDbComponent_GetFileList() As Dictionary End Function -'--------------------------------------------------------------------------------------- -' Procedure : ClearOrphanedSourceFiles -' Author : Adam Waller -' Date : 4/23/2020 -' Purpose : Remove any source files for objects not in the current database. -'--------------------------------------------------------------------------------------- -' -Private Sub IDbComponent_ClearOrphanedSourceFiles() - Dim strFile As String - strFile = IDbComponent_BaseFolder & "references.csv" - If FSO.FileExists(strFile) Then DeleteFile strFile, True ' Remove legacy file -End Sub - - -'--------------------------------------------------------------------------------------- -' Procedure : ClearOrphanedDatabaseObjects -' Author : Adam Waller -' Date : 11/3/2021 -' Purpose : Remove database objects that are not represented by existing source files. -'--------------------------------------------------------------------------------------- -' -Public Sub IDbComponent_ClearOrphanedDatabaseObjects() -End Sub - - '--------------------------------------------------------------------------------------- ' Procedure : IsModified ' Author : Adam Waller @@ -380,19 +355,6 @@ Public Function IDbComponent_IsModified() As Boolean End Function -'--------------------------------------------------------------------------------------- -' Procedure : SourceIsModified -' Author : Adam Waller -' Date : 12/1/2023 -' Purpose : Returns true if the source file appears to be modified since the last -' : import or export. (When compared to the index) -'--------------------------------------------------------------------------------------- -' -Private Function IDbComponent_SourceIsModified(strFile As String) As Boolean - -End Function - - '--------------------------------------------------------------------------------------- ' Procedure : DateModified ' Author : Adam Waller