B4A - Tabel Pekerjaan Sederhana dengan SQL

1. Buatlah sebuah Project baru
2. Buatlah satu Layout dan simpan dengan nama Main
3. Dalam Layout tersebut, tambahkan 3 Label, 3 EditText, 3 Button dan 1 ListView
3. Ketik kode berikut kedalam Main

Sub Process_Globals

     Dim SQL As SQL

End Sub

Sub Globals

     Dim ListPos As Int

     Dim Cursor As Cursor

     Dim ListView As ListView

     Dim btnSimpan, btnUbah, btnHapus As Button

     Dim txtID, txtNama, txtPekerjaan As EditText

End Sub

Sub Activity_Create(FirstTime As Boolean)

     Activity.LoadLayout("Main")

     txtID.Enabled = False

     SQL.Initialize(File.DirRootExternal, "SQLite.db", True)

     SQL.ExecNonQuery("DROP TABLE IF EXISTS tblPekerjaan")

     SQL.ExecNonQuery("CREATE TABLE tblPekerjaan (ID INTEGER, Nama TEXT, Pekerjaan TEXT)")

     LoadListfromDatabase

End Sub

Sub Activity_Resume

     LoadListfromDatabase

End Sub

Sub Activity_Pause (UserClosed As Boolean)

     Activity.Finish

End Sub

Sub LoadListfromDatabase

     ListView.Clear

     SQL.Initialize(File.DirRootExternal, "SQLite.db", False)  

     Cursor = SQL.ExecQuery("SELECT Nama, Pekerjaan FROM tblPekerjaan")

     For i = 0 To Cursor.RowCount - 1

           Cursor.Position = i

           ListView.AddTwoLines(Cursor.GetString("Nama"), Cursor.GetString("Pekerjaan"))

     Next

End Sub

Sub ListView_ItemClick (Position As Int, Value As Object)

     Cursor = SQL.ExecQuery("SELECT * FROM tblPekerjaan WHERE Nama = '" & ListView.GetItem(Position) & "' ")

     For i = 0 To Cursor.RowCount - 1

           Cursor.Position = i

           txtID.Text = Cursor.getString("ID")

           txtNama.text = Cursor.getString("Nama")

           txtPekerjaan.text = Cursor.getString("Pekerjaan")

     Next

End Sub

Sub btnSimpan_Click

     If txtNama.Text="" And txtPekerjaan.Text="" Then

           ToastMessageShow("Data belum diisi", False)

     Else

           Cursor = SQL.ExecQuery("SELECT ID FROM tblPekerjaan")

           If Cursor.RowCount > 0 Then

                For i = 0 To Cursor.RowCount - 1    

                     Cursor.Position = i

                     Dim IDBaru As Int

                     IDBaru = Cursor.GetInt("ID")

                Next

           End If

          

           IDBaru = IDBaru + 1

           SQL.ExecNonQuery("INSERT INTO tblPekerjaan VALUES('" & IDBaru & "', '" & txtNama.Text & "','" & txtPekerjaan.Text & "')")

           ToastMessageShow("Data tersimpan", False)

           txtNama.Text=""

           txtPekerjaan.Text=""

           txtNama.RequestFocus

     End If

     LoadListfromDatabase

End Sub

Sub btnUbah_Click

     Cursor = SQL.ExecQuery("SELECT * FROM tblPekerjaan")

     For i = 0 To Cursor.RowCount - 1

           Cursor.Position = i

           SQL.ExecNonQuery("UPDATE tblPekerjaan SET Nama ='"& txtNama.Text &"', Pekerjaan ='"& txtPekerjaan.Text &"' WHERE ID ='"& txtID.Text &"'")

           ToastMessageShow("Data diubah", False)

     Next

     LoadListfromDatabase

End Sub

Sub btnHapus_Click

     SQL.ExecNonQuery("DELETE FROM tblPekerjaan WHERE ID = '" & txtID.Text & "' ")

     ListView.RemoveAt(ListPos)

     txtNama.Text = ""

     txtPekerjaan.Text = ""

     txtNama.RequestFocus

     ToastMessageShow("Data terhapus", False)

     LoadListfromDatabase

End Sub

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