Melanjutkan dari part1, selanjutnya adalah membuat inputan untuk mengganti data, menghapus data dan mencari data inputan. Berikut adalah contoh formnya , pada gambar sebelumnya (gambar tampilan form dari part1), Hanya tinggal menambah komponen PopupMenu (Gambar komponennya seperti yang terlihat dibawah gambar komponen ZConnection).
-Berikut Bagan Case untuk Komponen PopupMenu dan cara Settingnya:
No
|
Case
|
Name
|
Properties
|
Sett
|
1.
|
PopupMenu
|
PopupMenuGanti
|
Items
|
Doubble Click pada event -> Menu
|
Bitmap
|
Browse Bitmap Image (u/ icon ganti) *opsional
|
|||
Caption
|
Ganti
|
|||
ShortCut
|
Mis: Ctrl+E
|
Setelah selesai setting komponen PopupMenu Doubble Click pada Caption ganti dan masukan syntaks berikut:
//Mengambil string dari data kelas yang sudah diinput/ dari database
-Klik komponen DBGrid lalu perbaharui settingannya, berikut settingannya:
Test dulu (run f9), lalu klik kanan pada dbgrid pilih ganti lalu klik, Jika data berhasil terambil/masuk keedittext dari masing-masing field (seperti yang tertulis dari syntaks diatas) maka langkah selanjutnya adalah membuat syntaks untuk update/ganti data, berikut langkahnya:
-Klik pada tombol ganti lalu tuliskan syntaks berikut:
Syntaks Update diatas tidak jauh berbeda dengan syntaks tambah data, perbedaanya hanya pada kata “Append” dan “Edit” saja. Selanjutnya adalah perintah menghapus data, berikut langkahnya:
-Klik pada tombol hapus lalu tuliskan syntaks berikut:
if MessageDlg(' Yakin Data '+ZQKelas.FieldByName('kelas').AsString+(' Ingin Dihapus ??'),mtConfirmation,[mbYes,mbNo],0)=idyes then
ZQKelas.Delete;
Untuk syntaks pencarian data klik pada edittext cari / edt_cari lalu tuliskan syntaks berikut:
//Mengambil string dari data kelas yang sudah diinput/ dari database
Edt_ID_Kelas.Text:=ZQKelas.FieldValues['id_kelas'];
Edt_Kelas.Text:=ZQKelas.FieldValues['kelas'];
Edt_Bagian_Kelas.text:=ZQKelas.FieldValues['bagian_kelas'];
Edt_Jurusan.Text:=ZQKelas.FieldValues['jurusan'];
No
|
Case
|
Name
|
Properties
|
Sett
|
1.
|
DBGrid
|
TabelKelas
|
PopupMenu
|
Pilih PopupMenuGanti.
|
Test dulu (run f9), lalu klik kanan pada dbgrid pilih ganti lalu klik, Jika data berhasil terambil/masuk keedittext dari masing-masing field (seperti yang tertulis dari syntaks diatas) maka langkah selanjutnya adalah membuat syntaks untuk update/ganti data, berikut langkahnya:
-Klik pada tombol ganti lalu tuliskan syntaks berikut:
//opsi simpan
if MessageDlg('Yakin Data '+Edt_Kelas.Text+' Ingin Disimpan??..',mtConfirmation,[mbYes,mbNo],0)=idno then
begin
if ZQKelas.RecordCount > 0 then
ZQKelas.Cancel;
Edt_ID_Kelas.SetFocus;
exit;
end;
//opsi isi semua data
if (Edt_Kelas.Text='')or(Edt_Bagian_Kelas.Text='')or(Edt_Jurusan.Text='')or(Edt_ID_Kelas.Text='')then
begin
MessageDlg(' Harus Diisi Semua!..',mtError,[mbOK],0);
Edt_ID_Kelas.SetFocus;
exit;
end
else
//input data
if (Edt_Kelas.Text<>'')and(Edt_Bagian_Kelas.Text<>'')and(Edt_Jurusan.Text<>'')and(Edt_ID_Kelas.Text<>'')then
ZQKelas.Edit;
ZQKelas.FieldByName('id_kelas').AsString:=Edt_ID_Kelas.Text;
ZQKelas.FieldByName('kelas').AsString:=Edt_Kelas.Text;
ZQKelas.FieldByName('bagian_kelas').AsString:=Edt_Bagian_Kelas.Text;
ZQKelas.FieldByName('jurusan').AsString:=Edt_Jurusan.Text;
ZQKelas.Post;
MessageDlg('Data '+Edt_Kelas.Text+' Berhasil Diganti..',mtInformation,[mbOK],0);
//reset inputan
Edt_ID_Kelas.Clear;
Edt_Kelas.Clear;
Edt_Bagian_Kelas.Clear;
Edt_Jurusan.Clear;
Edt_ID_Kelas.SetFocus;
Syntaks Update diatas tidak jauh berbeda dengan syntaks tambah data, perbedaanya hanya pada kata “Append” dan “Edit” saja. Selanjutnya adalah perintah menghapus data, berikut langkahnya:
if MessageDlg(' Yakin Data '+ZQKelas.FieldByName('kelas').AsString+(' Ingin Dihapus ??'),mtConfirmation,[mbYes,mbNo],0)=idyes then
ZQKelas.Delete;
Untuk syntaks pencarian data klik pada edittext cari / edt_cari lalu tuliskan syntaks berikut:
//”with” perintah memanggil satu kali untuk zqkelas.
with ZQKelas do
begin
//”clear”menyemai data, “add” ambil data, dan “open” tampilkan data.
SQL.Clear;
SQL.Add('select * from tabel_kelas where id_kelas like "%'+Edt_Cari.Text+'%"');
SQL.Add('or kelas like "%'+Edt_Cari.Text+'%"');
SQL.Add('or bagian_kelas like "%'+Edt_Cari.Text+'%"');
SQL.Add('or jurusan like "%'+Edt_Cari.Text+'%"');
Open;
end;
