TUTORIAL INPUT DATA DELPHI 7 - DATABASE MYSQL PART-2


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



  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'];

   -Klik komponen DBGrid lalu perbaharui settingannya, berikut settingannya:


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:

-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:


//”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;



0 Komentar untuk "TUTORIAL INPUT DATA DELPHI 7 - DATABASE MYSQL PART-2"

Back To Top