Add Common Queries, Load User & Module Info from DB

ZooFlow/State/ClassModuleState.vb

@@ -0,0 +1,5 @@
+Public Class ClassModuleState
+    Public HasAccess As Boolean
+    Public IsAdmin As Boolean
+    Public LoggedIn As Integer
+End Class

ZooFlow/State/ClassUserState.vb

@@ -4,10 +4,15 @@
 ''' Helper Class to hold User State
 ''' </summary>
 Public Class ClassUserState
+    Public UserId As Integer
     Public UserName As String
+    Public Surname As String
+    Public GivenName As String
+    Public ShortName As String
+    Public Email As String
     Public MachineName As String
+    Public DateFormat As String
     Public Language As String
-    Public IsAdmin As Boolean
 
     ''' <summary>
     ''' Initialize user object with values that can be read from the environment