Modules.Database

EDMDesigner/ClassCurrentUser.vb

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