Index: TECH/SQLUtils.cls.xml
===================================================================
diff -u -r3164 -r3173
--- TECH/SQLUtils.cls.xml	(.../SQLUtils.cls.xml)	(revision 3164)
+++ TECH/SQLUtils.cls.xml	(.../SQLUtils.cls.xml)	(revision 3173)
@@ -5,9 +5,43 @@
 <Super>%RegisteredObject</Super>
 <ClassDefinitionError>0</ClassDefinitionError>
 
+<Method name="GeefPassword">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>Username:%String</FormalSpec>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	quit ##class(%SQL.Manager.API).GetPassword(Username)
+]]></Implementation>
+</Method>
+
+<Method name="GeefRollen">
+<ClassMethod>1</ClassMethod>
+<ReturnType>%ListOfDataTypes</ReturnType>
+<Implementation><![CDATA[
+	set Rollen = ##class(%ListOfDataTypes).%New()
+	set Rol = ""
+	for {  set Rol = $order(^%SYS("sql","users","role",Rol)) quit:Rol=""
+		do Rollen.Insert(Rol)
+	}
+	quit Rollen
+]]></Implementation>
+</Method>
+
+<Method name="GeefGebruikers">
+<ClassMethod>1</ClassMethod>
+<ReturnType>%ListOfDataTypes</ReturnType>
+<Implementation><![CDATA[
+	set Gebruikers = ##class(%ListOfObjects).%New()
+	set UserName = ""
+	for  { set UserName = $order(^%SYS("sql","users","1",UserName)) quit:UserName=""
+	 	do Gebruikers.Insert(UserName)
+	}
+	quit Gebruikers
+]]></Implementation>
+</Method>
+
 <Query name="SQLTables">
 <Description>
-Get a List of all Basetables and Views.</Description>
+Get a List of all Basetables</Description>
 <Type>%Query</Type>
 <SqlProc>1</SqlProc>
 <Parameter name="ROWSPEC" value="Name"/>
@@ -52,7 +86,7 @@
 
 <Query name="SQLViews">
 <Description>
-Get a List of all Basetables and Views.</Description>
+Get a List of all Views.</Description>
 <Type>%Query</Type>
 <SqlProc>1</SqlProc>
 <Parameter name="ROWSPEC" value="Name"/>