B4A - Form Login Sederhana dengan phpMyAdmin

Libraries : HttpUtils2

Membuat database 
1. SigUp di https://www.000webhost.com dan buatlah database baru dengan MySQL
2. Edit database dengan phpMyAdmin
3. Dalam database buatlah table dengan nama tUser dengan 3 fields
4. Fiels masing-masing User_ID, User_Name dan Password

Membuat Script PHP
1. Salin kode berikut dan paste kedalam Notepad atau Notepad++

<?php
$host = "mysql14.000webhost.com";
$db = "a7712181_db";
$user = "a7712181_lyand";
$pw = "blablabla";

$con = mysql_connect($host,$user,$pw) or die(mysql_error());
mysql_select_db($db, $con);

$uid = $_GET["User_ID"];
$pwd = $_GET["Password"];

$res = mysql_query("SELECT User_Name FROM tUser WHERE User_ID = '$uid' AND Password = '$pwd'");
$count = mysql_num_rows($res);

if ($count == 0) {
    echo 'Username salah!';
}
else {
    if ($row = mysql_fetch_array($res)) {
        echo 'Selamat datang, '.$row['User_Name'];
    }
}
?>

Ket :
Untuk mendapatkan host, db dan user. Silahkan buka Panel dan klik My SQL. Untuk pw sesuaikan masing-masing.

2. Save dengan nama login.php

Upload script ke Server
1. Kembali ke Panel
2. Pilih File Manager 3
3. Upload login.php ke dalam folder public_html

Membuat form Login
1. Buatlah sebuah Project baru dengan 1 Layout bernama Main
2. Dalam Layout Main tambahkan 3 Label, 2 EditText dan 1 Button
3. Ketik kode berikut ke dalam Main

Sub Globals
    Private txtPassword As EditText
    Private txtUserID As EditText
Private Label3 As Label
End Sub

Sub Activity_Create(FirstTime As Boolean)
    Activity.LoadLayout("Main")
End Sub

Sub Activity_Resume

End Sub

Sub Activity_Pause (UserClosed As Boolean)

End Sub

Sub btnLogin_Click
    Dim strUsername As String = txtUserID.Text.Trim
    If strUsername = "" Then
        Msgbox("Mohon masukkan User ID", "Kesalahan")
        Return
    End If 
    Dim strPassword As String = txtPassword.Text.Trim
    If strPassword = "" Then
        Msgbox("Mohon masukkan Password", "Kesalahan")
        Return
    End If 

    Dim job1 As HttpJob
    job1.Initialize("Login", Me) 
    job1.Download2("http://namadomainkamuapa.webege.com/login.php", _
    Array As String("User_ID",strUsername,"Password",strPassword))
    ProgressDialogShow("Menghubung ke Server...")
End Sub

Sub JobDone (Job As HttpJob)
    ProgressDialogHide
    Log("JobName = " & Job.JobName & ", Success = " & Job.Success)
    If Job.Success = True Then
        Dim strReturn As String
        Log(Job.GetString)
        strReturn = Job.GetString
        Label3.Text = strReturn
    Else
        Log("Kesalahan: " & Job.ErrorMessage)
        ToastMessageShow("Kesalahan: " & Job.ErrorMessage, True)
    End If
    Job.Release
End Sub

4. Jalankan aplikasinya atau tekan F5 di keyboard
5. Berikut adalah hasilnya