Add Common Queries, Load User & Module Info from DB

2019-09-10 16:27:31 +02:00
parent 5c7375d124
commit 13da64c6ad
22 changed files with 598 additions and 102 deletions
--- a/ZooFlow/ClassErrorHandler.vb
+++ b/ZooFlow/ClassErrorHandler.vb
@@ -15,7 +15,7 @@ Public Class ClassErrorHandler
        MsgBox(GetMessage(Exception), MsgBoxStyle.Critical, "Unexpected Error")
    End Sub

-    Private Function GetMessage(Exception As Exception)
+    Private Function GetMessage(Exception As Exception) As String
        Dim oTargetSite = Exception.TargetSite
        Dim oMethodName = GetMethodName(Exception)
        Dim oFormName = GetFormName(Exception)