Tutorial Delphi

Kini, dengan Delphi kita sudah bisa membuat berbagai macam aplikasi keren dan tentu saja hal itu dapat dijalankan di berbagai platform berbeda seperti Android dan iOS. Maka tak perlu lagi gonta ganti bahasa pemrograman karena dengan delphi semua bisa. Lepas dari hal itu, Sebelumnya saya sudah sharing bagaimana membuat aplikasi database berbasis android dengan delphi yang ada disini. Pada postingan tersebut sudah saya jelaskan step by step bagaimana membuat database dengan SQLite serta melakukan koneksi ke Aplikasi.

Kali ini, saya akan lanjutkan dengan membuat proses Insert, Update dan Delete pada contoh kasus yang ada di postingan sebelumnya. Hanya saja kita perlu menambahkan beberapa komponen sehingga tampilan aplikasi menjadi seperti berikut ini.


Untuk Masalah coding, sebenarnya sama saja dengan coding CRUD delphi pada umumnya. berikut adalah contoh Untuk Coding simpan yang saya gunakan.

var
jk : string;
begin
// Cek Jenis Kelamin
if RadioButton1.IsChecked=True then
jk := 'Laki-Laki' else
if RadioButton2.IsChecked=True then
jk:= 'Perempuan';
// Simpan Ke Database
FDQuery1.Active:=False;
FDQuery1.SQL.Text:='INSERT INTO biodata values ("'+IntToStr(FDQuery1.RecordCount+1)+'","'+Edit1.Text+'","'+jk+'","'+ComboBox1.Items.GetText+'",,"'+Memo1.Text+'")';
FDQuery1.ExecSQL;
FDQuery1.SQL.Text:='select * FROM biodata';
FDQuery1.ExecSQL;
FDQuery1.Active:=True;
end;

Kemudian Untuk Proses Update dan Delete Data, Skenarionya User harus mengklik salah satu data yang ada di GRID, lalu value data tersebut akan ditampilkan pada komponen diatas (ID dan Nama). Sebelumnya pada event onactive form kita set button update dan delete dengan visible=false

Edit2.Text:=FDQuery1['id'];
Edit1.Text:=FDQuery1['nama'];
Button3.Enabled:=True;
Button4.Enabled:=True;

Berikut contoh yang saya gunakan untuk Coding Update data

var
jk : string;
begin
// Cek Jenis Kelamin
if RadioButton1.IsChecked=True then
jk := 'Laki-Laki' else
if RadioButton2.IsChecked=True then
jk:= 'Perempuan';
// Update Data
FDQuery1.Active:=False;
FDQuery1.SQL.Text:='UPDATE biodata set nama="'+Edit1.Text+'",jenis_kelamin="'+jk+'",agama="'+ComboBox1.Items.GetText+'",alamat="'+Memo1.Text+'" Where id="'+Edit2.Text+'"';
FDQuery1.ExecSQL;
FDQuery1.SQL.Text:='select * from biodata';
FDQuery1.ExecSQL;
FDQuery1.Active:=True;
Button3.Enabled:=False;

Sedangkan Untuk Coding Delete berikut contohnya.

FDQuery1.Active:=False;
FDQuery1.SQL.Text:='DELETE FROM biodata Where id="'+Edit2.Text+'"';
FDQuery1.ExecSQL;
FDQuery1.SQL.Text:='select * from biodata';
FDQuery1.ExecSQL;
FDQuery1.Active:=True;
Button4.Enabled:=False;