jj: Init Monorepo! :)

EDMDesigner/ClassCurrentUser.vb

@@ -0,0 +1,16 @@
+Imports DD_FirebirdDLL
+
+Public Class ClassCurrentUser
+    Public Username As String
+    Public Language As String
+
+    Private DB As ClassFirebird
+
+    Public Sub New(DB As ClassFirebird)
+        Username = Environment.UserName
+        DB = DB
+
+        Dim sql As String = $"SELECT FNGET_USER_ACCESS('edm','{Username}') FROM rdb$database"
+        Dim result = DB.ReturnScalar(sql)
+    End Sub
+End Class