German Basic4Android MySQL-Tutorialreihe (via PHP)

DROP TABLE IF EXISTS `LoginRegisterTUT`; //Datenbank 'Tisch' erstellen wenn nicht vorhanden
CREATE TABLE `LoginRegisterTUT` (
  `ID` int(5) NOT NULL auto_increment, //Spalte1 = ID = integer selbsterhöhend (Zähler)
  `Benutzername` varchar(255) default NULL,  //Spalte2 Benutzername = varchar 255 Zeichen = Unzugewiesen 0
  `Passwort` varchar(255) default NULL,       //Spalte3 Passwort = varchar 255 Zeichen = Unzugewiesen 0
  PRIMARY KEY  (`ID`)
) ENGINE=MyISAM AUTO_INCREMENT=9 DEFAULT CHARSET=latin1;

BenutzernameTXT.Top = 15%Y
BenutzernameTXT.Height = 15%Y
BenutzernameTXT.Width = 90%X
BenutzernameTXT.HorizontalCenter = 50%X

PasswortTXT.Top = 45%Y
PasswortTXT.Height = 15%Y
PasswortTXT.Width = 90%X
PasswortTXT.HorizontalCenter = 50%X

LoginBTN.Bottom = 100%Y
LoginBTN.Height = 20%Y
LoginBTN.Width = 100%X
LoginBTN.HorizontalCenter = 50%X

Sub Process_Globals
   
   Dim HClient As HttpClient
End Sub

Sub Globals
   Dim LoginBTN As Button
   Dim PasswortTXT As EditText
   Dim BenutzernameTXT As EditText
   Dim Panel1 As Panel
End Sub

Sub Activity_Create(FirstTime As Boolean)

   If FirstTime Then
   Activity.LoadLayout("LoginScreen")
   Else : End If
   
   HClient.Initialize("HClient")
   
End Sub

Sub Activity_Resume

End Sub

Sub Activity_Pause (UserClosed As Boolean)
   
End Sub

//Datenübertragung an PHP-Datei mittels URL-Wertübergabe (?Wertname=Wert&...)
Sub LoginBTN_Click
   Dim request1 As HttpRequest
   request1.InitializeGet("http://diversity.bplaced.net/AndroidDB/Datenbank.php?Benutzername=" & BenutzernameTXT.Text & "&Passwort=" & PasswortTXT.Text) 
   HClient.Execute(request1, 1)
End Sub

Sub hclient_ResponseSuccess (Response As HttpResponse, TaskId As Int)
    Dim resultString As String
    resultString = Response.GetString("UTF8")
   
   ToastMessageShow(resultString , True)
   
    If resultString = "Richtig" Then
   //Erfolgreicher Login...
   Else
   ToastMessageShow("Benutzername oder Passwort falsch", false)
   End If
End Sub

//Falls keine Verbindung möglich ist
Sub hclient_ResponseError (Response As HttpResponse, Reason As String, StatusCode As Int, TaskId As Int)
    ToastMessageShow("Error connecting: " & Reason & " " & StatusCode,False)
    If Response <> Null Then
        Log(Response.GetString("UTF8"))
        Response.Release
    End If
End Sub

//Optimal für Überprüfung von Passwort im Klartext
Sub PasswortTXT_EnterPressed
   ToastMessageShow(PasswortTXT.Text,True)
End Sub

<?php

//Mit Datenbank verbinden
$mysql_connect = mysql_connect('localhost', 'Datenbankname', 'Passwort') or die ("Keine Verbindung zum Server");
mysql_select_db('Datenbankname') or die ("Keine Verbindung zur Datenbank");


$Benutzername = $_GET['Benutzername'];  //Werte aus URL auslesen
$Passwort = $_GET['Passwort'];      //Werte aus URL auslesen
$query = "SELECT * FROM `LoginRegisterTUT` WHERE `Benutzername`='$Benutzername' AND `Passwort`='$Passwort'";
$result = mysql_query($query);
$resultcount = mysql_num_rows($result);

if ($resultcount == 0){


echo "Falsch"; //Wenn Datenbank eintrag nicht vorhanden
}
else {
echo "Richtig"; //Wenn Datenbank eintrag vorhanden
}  

mysql_close ($mysql_connect); //Verbindung zur Datenbank schließen

?>