Gelandang Internet yang mencoba melewati lorong sempit tanpa batas ruang dan waktu
Joint Venture Adsense

Program Simpan Edit Hapus di Delphi

· · 4 comments
Assalamu'alaikum, wr.wb

Contoh Program Menggunakan Database dengan Delphi - Selamat datang rekan. Jika diartikel sebelumnya tentang coding yang digunakan untuk proses simpan, edit dan hapus di Delphi, pada tulisan ini kita akan mengimplementasikan coding tersebut dalam sebuah program sederhana Mata Kuliah Menggunakan Database acces mdb. Jika office yang rekan pakai 2007 keatas, maka lakukan save as ke format 2003 atau mdb.

Silahkan siapkan databasenya dengan nama database kampus2 dan nama tabel matakuliah serta data field seperti tampak pada screenshoot dibawah ini :
contoh program sederhana dengan delphi


1. Desain form seperti gambar
program simpan edit hapus dengan delphi
2. Koneksikan datanya. Silahkan baca disini Cara koneksi database acces di Delphi.
3. Pada button simpan masukan formula dibawah ini :
procedure TForm1.Button1Click(Sender: TObject);
begin
adoquery1.SQL.Clear;
adoquery1.SQL.add('insert into matakuliah values ("'+ edit1.Text +'","'+ edit2.Text +'","'+ edit3.Text +'","'+edit4.Text +'")');
adoquery1.execSQL;
showmessage('Data Sudah Disimpan');
edit1.Clear;
edit2.Clear;
edit3.Clear;
edit4.Clear;
edit1.SetFocus;
end;


4. Sebelum memasukan script untuk mengedit maupun menghapus data, kita akan tampilkan datanya terlebih dahulu dengan menjadikan kode matakuliah sebagai acuan pencarian dan menampilkan record data pada editbox. Jadi untuk menampilkan data kita harus mengambil dari field yang sudah diseting primary key. Klik dua kali pada editbox1. Masukan script berikut : 

procedure TForm1.Edit1Change(Sender: TObject);
begin
adoquery1.SQL.Clear;
adoquery1.SQL.Add('select * from matakuliah where kode_mk = "'+ edit1.text +'"'); 
adoquery1.open;
if not adoquery1.EOF then
begin
edit2.text := adoquery1.fieldvalues['nama_mk'];
edit3.text := adoquery1.fieldvalues['SKS'];
edit4.text := adoquery1.fieldvalues['semester'];
button1.enabled := false;
showmessage ('Data Sudah Ada')
end;
end;

5. Masukan Script berikut pada button ubah data :
procedure TForm1.Button2Click(Sender: TObject);
begin
adoquery1.SQL.Clear;
adoquery1.SQL.Add('update matakuliah set nama_mk="'+edit2.text+'",SKS="'+edit3.text+'",semester="' +edit4.text+'" where kode_mk="'+edit1.text +'"');
adoquery1.ExecSQL;
edit1.Clear;
edit1.Clear;
edit2.Clear;
edit3.Clear;
edit4.Clear;
edit1.SetFocus;
showmessage ('Data Sudah Diperbaiki')
end;

6. Masukan script berikut pada button hapus
procedure TForm1.Button3Click(Sender: TObject);
begin
adoquery1.SQL.Clear;
adoquery1.SQL.Add('delete from matakuliah where kode_mk="'+edit1.Text +'"');
adoquery1.ExecSQL;
showmessage ('Data Sudah Dihapus');
edit1.Clear;
edit2.Clear;
edit3.Clear;
edit4.Clear;
edit1.SetFocus;
end;
end.

7. Pada button keluar copykan code berikut :
procedure TForm1.Button4Click(Sender: TObject);
begin
close;
end; 

Demikian program sederhana simpan, edit hapus pada Bahasa Pemograman Delphi menggunakan Database Access format Mdb. Untuk memahami keterangan script silahkan baca diartikel sebelumnya Code untuk simpan, edit dan hapus data Delphi. Moga bermanfaat, begitulah.

******

4 comments:

  1. WAH COCOK SEKALI NIH BUAT YANG BELAJAR DELPHI BISA DAPAT ILMU DAN TUTORIAL LENGKAP PROGAM DELPHI DISINI MAS,MAKASIH SHARINGNYA YA

    ReplyDelete

- Komentar yang mengandung hujatan, negatif akan dianggap spam
- Komentar link akan dilaporkan ke posyandu terdekat & tidak akan ditampilkan