Skip to content

Commit

Permalink
Simplify component class
Browse files Browse the repository at this point in the history 
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.
  • Loading branch information
@joyfullservice
joyfullservice committed Dec 6, 2023
1 parent fc59ae1 commit dc8947e
Show file tree
Hide file tree
Showing 29 changed files with 0 additions and 1,067 deletions.
34 changes: 0 additions & 34 deletions Version Control.accda.src/modules/IDbComponent.cls
View file
Original file line number Diff line number Diff line change
Expand Up @@ -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
Expand Down Expand Up @@ -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
Expand Down
36 changes: 0 additions & 36 deletions Version Control.accda.src/modules/clsAdpFunction.cls
View file
Original file line number Diff line number Diff line change
Expand Up @@ -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
Expand All @@ -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
Expand Down
36 changes: 0 additions & 36 deletions Version Control.accda.src/modules/clsAdpProcedure.cls
View file
Original file line number Diff line number Diff line change
Expand Up @@ -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
Expand All @@ -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
Expand Down
36 changes: 0 additions & 36 deletions Version Control.accda.src/modules/clsAdpServerView.cls
View file
Original file line number Diff line number Diff line change
Expand Up @@ -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
Expand All @@ -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
Expand Down
37 changes: 0 additions & 37 deletions Version Control.accda.src/modules/clsAdpTable.cls
View file
Original file line number Diff line number Diff line change
Expand Up @@ -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
Expand All @@ -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
Expand Down
36 changes: 0 additions & 36 deletions Version Control.accda.src/modules/clsAdpTrigger.cls
View file
Original file line number Diff line number Diff line change
Expand Up @@ -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
Expand All @@ -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
Expand Down
39 changes: 0 additions & 39 deletions Version Control.accda.src/modules/clsDbConnection.cls
View file
Original file line number Diff line number Diff line change
Expand Up @@ -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
Expand All @@ -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
Expand Down
Loading

0 comments on commit dc8947e

Please sign in to comment.