move test guis to GUIs.Test folders

GUIs.Test.EDMDesigner/ClassInit.vb

@@ -0,0 +1,24 @@
+Imports System.IO
+Imports Modules.Database
+Public Class ClassInit
+    Public Shared Function Init_user()
+        Try
+            USER_USERNAME = Environment.UserName
+            Dim sql = String.Format("select FNGET_USER_ACCESS('edm','{0}') from rdb$database", USER_USERNAME)
+            'Dim result = Firebird.ExecuteScalar(sql, LOGGERFilePath)
+
+            'sql = String.Format("SELECT * FROM VW_TBEDM_USER WHERE UPPER(LOGIN_NAME) = UPPER('{0}')", USER_USERNAME)
+            'DT_USER = ClassDBFirebird.ReturnDatatable(sql, LOGGERFilePath)
+            'If Not IsNothing(result) Then
+            '    If Not IsNothing(DT_USER) Then
+            '        USER_LANGUAGE = DT_USER.Rows(0).Item("LANGUAGE")
+            '    End If
+            '    Return result
+            'Else
+            '    Return False
+            'End If
+        Catch ex As Exception
+
+        End Try
+    End Function
+End Class