Praktikum-6
Pemrograman Delphi 7
Imam Gunawan, M. Kom
MEMBUAT PROGRAM EDIT DATA Perintah untuk mengedit data dari suatu record dalam tabel hampir mirip dengan perintah untuk tambah data. Bentuk perintah untuk pengeditan data adalah : Table.Edit; Table[‘nama field’] := data; Table[‘nama field’] := data; … … Table.post Membuat Program Edit Data 1. 2. 3. 4.
Panggil program Tambah Data yang pernah dibuat Klick Save As, beri nama : UEdit Klick Save Project As, beri nama : PEdit Tambahkan satu buah komponen Button ke dalam form, seperti tampilan dibawah ini :
5. Ubah properties Name dari Tombol tersebut menjadi BtEdit 6. Ubah properties Caption dari Tombol tersebut menjadi &Edit
Praktikum-6
Pemrograman Delphi 7
Imam Gunawan, M. Kom
7. Doubleklick tombol Edit, tuliskan kode program berikut : procedure TForm1.BtEditClick(Sender: TObject); var No:String; Nomor:Integer; CekAngka, Ketemu:Boolean; begin No:=InputBox('Input Edit', 'Masukan No. Teman yang akan diedit',''); //sebelum digunakan cek input user if length(trim(No))=0 then //jika nomor tidak diisi user (kosong) //tidak terjadi apa-apa exit else //jika nomor diisi cek input begin CekAngka:=TryStrToInt(No,Nomor); //untuk mengecek input angka if CekAngka=False then //user tidak memasukan angka begin application.MessageBox('Format Angka Salah', 'ERROR',MB_IconError); exit; end else //user memasukan angka begin Nomor:=StrToInt(No); //convert kedalam bentuk integer //cari data didalam tabel berdasarkan //kunci utama Ketemu:=TSobat.FindKey([Nomor]); if ketemu=True then //jika ketemu, tampilkan datanya begin MeNomor.Text := TSobat['NoTeman']; EdNama.Text := TSobat['NamaLengkap']; EdPanggilan.Text := TSobat['Panggilan']; MeTanggal.Text := TSobat['TglLahir']; EdAlamat.Text := TSobat['Alamat']; EdKota.Text := TSobat['Kota']; EdEmail.Text := TSobat['Email']; EdAwal.Text := TSobat['AwalKetemu']; EdTelpon.Text := TSobat['Telpon']; EdHP.Text := TSobat['HP'];
Praktikum-6
Pemrograman Delphi 7
Imam Gunawan, M. Kom
if TSobat['JKelamin']='L' then RgJenis.ItemIndex := 0 else RgJenis.ItemIndex := 1; EdNama.SetFocus; end else //jika tidak ketemu beri pesan application.MessageBox('Data tidak ada...', 'Cari Edit',MB_IconInformation); end; end; end; 8. Double kiick object Simpan, rubah menjadi seperti di bawah ini : procedure TForm1.BtSimpanClick(Sender: TObject); var Ketemu:Boolean; procedure Pesan; //membuat procedure didalam procedure begin application.MessageBox('Masih ada yang kosong','Cek Input',MB_IconStop); end; begin //cek input yang dilakukan user if length(trim(MeNomor.Text))=0 then begin Pesan; //memanggil procedure pesan dari BtsimpanClick MeNomor.SetFocus; end else if length(trim(EdNama.Text))=0 then begin Pesan; EdNama.SetFocus; end else if length(trim(EdPanggilan.Text))=0 then begin Pesan; EdPanggilan.SetFocus; end else if length(trim(MeTanggal.Text))=0 then begin Pesan; MeTanggal.SetFocus; end else if length(trim(EdAlamat.Text))=0 then begin
Praktikum-6
Pemrograman Delphi 7
Pesan; EdAlamat.SetFocus; end else if length(trim(EdKota.Text))=0 then begin Pesan; EdKota.SetFocus; end else if length(trim(EdEmail.Text))=0 then begin Pesan; EdEmail.SetFocus; end else if length(trim(EdAwal.Text))=0 then begin Pesan; EdAwal.SetFocus; end else if length(trim(EdTelpon.Text))=0 then begin Pesan; EdTelpon.SetFocus; end else if length(trim(EdHP.Text))=0 then begin Pesan; EdHP.SetFocus; end else if RgJenis.ItemIndex=-1 then begin Pesan; RgJenis.SetFocus; end else //jika sudah penuh semua bisa simpan begin //mencari data berdasarkan kunci utama ketemu:=TSobat.FindKey([MeNomor.Text]); if ketemu=True then //jika ketemu bisa simpan edit begin TSobat.Edit; TSobat['NoTeman']:=MeNomor.Text; TSobat['NamaLengkap']:=EdNama.Text; TSobat['Panggilan']:=EdPanggilan.Text; TSobat['TglLahir']:=MeTanggal.Text; TSobat['Alamat']:=EdAlamat.Text;
Imam Gunawan, M. Kom
Praktikum-6
Pemrograman Delphi 7
Imam Gunawan, M. Kom
TSobat['Kota']:=EdKota.Text; TSobat['Email']:=EdEmail.Text; TSobat['AwalKetemu']:=EdAwal.Text; TSobat['Telpon']:=EdTelpon.Text; TSobat['HP']:=EdHP.Text; case RgJenis.ItemIndex of 0: TSobat['JKelamin']:='L'; 1: TSobat['JKelamin']:='P'; end; TSobat.Post; BtBatalClick(Sender); end else //jika tidak ketemu beri pesan begin application.MessageBox('Nomor tidak ada...','Cek Data',MB_IconInformation); MeNomor.Text:=''; MeNomor.SetFocus; end; end; end;
Praktikum-6
Pemrograman Delphi 7
Imam Gunawan, M. Kom
MEMBUAT PROGRAM HAPUS DATA Pada Delphi perintah yang digunakan untuk menghapus record dalam tabel cukup sederhana, karena hanya terdiri dari satu kata yaitu Delete. Bentuk perintah penghapusan record secara umum adalah : Table.Delete Membuat Program Hapus Data 1. 2. 3. 4.
Buka kembali program Tambah Data yang pernah dibuat Klick Save As, beri nama : UHapus Klick Save Project As, beri nama : PHapus Tambahkan satu buah komponen Button ke dalam form, seperti tampilan dibawah ini :
5. Ubah properties Name dari Tombol tersebut menjadi BtHapus 6. Ubah properties Caption dari Tombol tersebut menjadi &Hapus
Praktikum-6
Pemrograman Delphi 7
Imam Gunawan, M. Kom
7. Doubleklick tombol Hapus, tuliskan kode program berikut : procedure TForm1.BtHapusClick(Sender: TObject); var No:String; //untuk input dari inputbox Nomor:Integer; //untuk pencarian data CekAngka : Boolean; //untuk cek input angka Ketemu:Boolean; //untuk logika pencarian data Konfirmasi:Integer; //Untuk konfirmasi hapus begin //buat inputbox No:=InputBox('Input Hapus', 'Masukan No. Teman yang akan dihapus',''); //sebelum digunakan cek input user if length(trim(No))=0 then //jika nomor tidak diisi user ( kosong ) //tidak terjadi apa-apa exit else //jika nomor diisi cek input begin //gunakan function untuk mengecek //tipe data integer CekAngka:=TryStrToInt(No,Nomor); if CekAngka=False then //user tidak memasukan angka begin application.MessageBox('Format Angka Salah', 'ERROR',MB_IconError); exit; end else //user memasukan angka Begin //convert kedalm bentuk integer Nomor:=StrToInt(No); //cari dta didalam tabel berdasarkan //kunci utama Ketemu:=TSobat.FindKey([Nomor]); if ketemu=True then //jika ketemu, beri konfirmasi begin Konfirmasi:=Application.MessageBox('Anda Yakin ?','Konfirmasi',MB_IconQuestion Or MB_YesNO);
Praktikum-6
Pemrograman Delphi 7
Imam Gunawan, M. Kom
if Konfirmasi=IdYes Then //jika user menjawab YES, hapus TSobat.Delete else //jika user menjawab NO, keluar exit; end else //jika tidak ketemu beri pesan application.MessageBox('Data tidak ada...', 'Cari Edit',MB_IconInformation); end; end; end;
