TUTORIAL INPUT DATA DELPHI 7 - DATABASE MYSQL PART-2

Bagikan :

Tweet

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;

Tag : algoritma, Delphi, GUI, komputer, pascal, pemrograman, programming, Software, tutorial