Delphi: Membuat Tombol Edit

Kupas Tuntas Kuliah Jurusan Sistem Informasi

Delphi: Membuat Tombol Edit

Tutorial ini adalah tentang cara membuat tombol Edit pada Delphi. Pada tutorial lain, kita sudah belajar membuat tombol Tambah. Kenapa harus ada tombol Edit? Karena kadang-kadang kita salah melakukan entri data atau bahkan data kita belum lengkap terisi.

Mari saya mulai:

1.      Start – All Programs – Borland Delphi 7 – Database Desktop

2.      File – New – Table – Ok

3.      Buat tabel berikut:

Field Name	Type	Size	Key
No	A	5	*
FullName	A	30

4.      Lihat hasilnya:

5.      Simpan dengan nama tblEditStudent di D:\100delphi (atau folder anda)

6.      Buka tabel tblEditStudent yang sudah dibuat dengan cara: File – Open – Table

7.      Cari tblEditStudent di folder anda

8.      Klik tombol Open

9.      Untuk entri data, tekan F9 di keyboard

10.  Ketik data berikut:

11.  File – Close (untuk keluar tabel)

12.  File – Exit (untuk keluar dari Database Desktop

13.  Buka Delphi (Start – All Program – Borland Delphi 7 – Delphi 7)

14.  File – New – Application

15.  File – Save All

16.  Cari direktori D:\100delphi (atau folder anda)

17.  Ketik file name untuk unit: EditStudent

18.  Klik tombol Save

19.  Ketik file name untuk project: pEditStudent

20.  Klik tombol Save

21.  Klik BDE – Table

22.  Klik area kosong pada form

23.  Lakukan setting pada Properties seperti berikut:

-          DatabaseName: D:\100delphi (ketik)

-          TableName: tblEditStudent.db (pilih)

-          Active: True (pilih)

24.  Lihat gambar ini:

25.  Klik dua kali Table1 yang ada di form

26.  Ctrl + F

27.  Blok No dan FullName dengan: klik No + Tekan Shift + klik FullName

28.  Drag No dan FullName ke area kosong pada form

29.  Hasilnya:

30.  Klik Additional – BitBtn

31.  Klik di bawah kotak Full Name pada form

32.  Lihat gambar ini:

33.  Ubah tulisan BitBtn

-          Klik tombol BitBtn1

-          Di properties, klik Caption, kemudian ketik: Edit

34.  Hasilnya seperti berikut:

35.  Klik dua kali tombol Edit

36.  Ketik script berikut:

If BitBtn1.caption='Edit' then

Begin

     table1.edit;

     BitBtn1.caption:='Update';

end else

begin

     table1.post;

     BitBtn1.caption:='Edit';

end;

37.  Save All

38.  Jalankan program dengan menekan tombol F9 pada keyboard

39.  Klik tombol Edit

40.  Ubah nama: “Komarudin” menjadi “Komarudin Tasdik”

41.  Klik tombol Update

42.  Klik tombol Close yang berwarna merah

43.  Untuk keluar dari project kita pada Delphi: File – Close All

44.  Untuk keluar dari Delphi: File – Exit

45.  Buka Database Desktop

46.  File – Open – Table

47.  Klik nama tabel tblEditStudent

48.  Klik tombol Open

49.  Hasilnya seperti gambar ini:

50.  Pada tabel di atas terlihat nama Komarudin sudah berubah menjadi Komarudin Tasdik

51.  Untuk keluar dari tabel: File – Close

52.  Untuk keluar dari Database Desktop: File – Exit

Catatan:

Jika masuk database desktop muncul error, maka tutup dulu Delphi-nya.

Semoga berhasil!

***

Referensi: Usup Supendi. 2002. Modul Delphi 7. AMIK al-Ma’soem, Bandung.

"Boleh Konsultasi Masuk Jurusan Sistem Informasi via IG atau Tiktok."

Tips Skripsi Program Studi Sistem Informasi