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
2 $type={blogger}:
Posting Komentar