FUNCTION FindUser(BYVAL sUserName AS STRING, BYVAL sPwd AS STRING) AS BYTE
    LOCAL oDBEngine    AS DISPATCH
    LOCAL oDB          AS DISPATCH
    LOCAL oRs          AS DISPATCH
    LOCAL vDBName      AS VARIANT
    LOCAL vFalse       AS VARIANT
    LOCAL vPwd         AS VARIANT
    LOCAL vDB          AS VARIANT
    LOCAL vSQL         AS VARIANT
    LOCAL vRs          AS VARIANT
    LOCAL vEOF         AS VARIANT
    LOCAL vFldName     AS VARIANT
    LOCAL vValue       AS VARIANT
    LOCAL vAnzahl      AS VARIANT
 
    SET oDBEngine = NEW DISPATCH IN GetIniString("DPlan","DAOEngine")
    IF OBJPTR(oDBEngine)=0 THEN
        MSGBOX "Kein Zugriff auf COM-Komponente.",%MB_IconStop,"Schwerer" & _
          "Systemfehler"
        EXIT FUNCTION
    END IF
    vFalse=%False
    vPwd = ";pwd = " + $DBPwd
    vDBName=GetIniString("DPlan","Datenbankpfad")+GetIniString( _
      "DPlan","BenutzerDB")
    OBJECT CALL oDBEngine.OpenDataBase(vDBName,vFalse,vFalse,vPwd) TO vDB
    SET oDB = vDB
    IF OBJPTR(oDB)=0 THEN
        MSGBOX "Datenbank Benutzer.XDB konnte nicht geöffnet" & _
          "werden",%MB_ICONWARNING,"Fehler beim Datenbankzugriff"
        EXIT FUNCTION
    END IF
 
    vSQL = "SELECT UserName, Pwd, PID, Recht FROM USER WHERE " + _
          "UserName = '" + sUserName + "' AND PWD = '" + sPwd + "'"
 
    OBJECT CALL oDB.OpenRecordSet(vSQL) TO vRs
    SET oRs = vRs
    IF OBJPTR(oRs) = 0 THEN
        OBJECT CALL oDB.Close
        MSGBOX "Die Tabelle USER konnte nicht gefunden" & _
          "werden.",%MB_IconWarning, "Fehler beim Datenbankzugriff"
        EXIT FUNCTION
    END IF
 
    OBJECT GET oRs.EOF TO vEOF
    IF VARIANT#(vEOF) = 0 THEN
        vFldName = "PID"
        OBJECT GET oRs.Fields(vFldName).Value TO vValue
        ANGEMELDET.PID = VARIANT#(vValue)
        vFldName = 0
        vFldName = "Recht"
        OBJECT GET oRs.Fields(vFldName).Value TO vValue
        ANGEMELDET.UserRecht = VARIANT$(vValue)
        ANGEMELDET.UName = sUserName
    END IF
 
    OBJECT CALL oDB.Close
    SET oDB = NOTHING
    SET oDBEngine = NOTHING
    FUNCTION = 1
END FUNCTION