Delphi: Membuat Tombol Tambah

Kupas Tuntas Kuliah Jurusan Sistem Informasi

Delphi: Membuat Tombol Tambah

Tutorial ini tentang “Cara membuat tombol tambah pada Delphi”. Jadi, ketika user mengklik tombol tambah, kemudian mengetikkan data seperti nama sendiri, maka akan tersimpan ke database. Apabila data sudah tersimpan pada database, maka dapat dijadikan laporan, seperti laporan data mahasiswa, data penjualan, dan lain-lain. Tentunya, tentang pembuatan laporan/report dibahas pada tutorial lain.

Mari kita mulai:

1.      Start – All Program – 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.      Simpan dengan nama tblAddStudent di D:\100delphi (atau folder anda)

5.      Hasilnya seperti ini:

6.      File – Close (untuk keluar dari tabel “tblAddStudent”)

7.      File – Exit (untuk keluar Database Desktop)

8.      Buka Delphi (Start – All Programs – Borland Delphi 7 – Delphi 7)

9.      File – New – Application

10.  File – Save All

11.  Ketik file name untuk unit: AddStudent

12.  Klik tombol Save

13.  Ketik file name untuk project: pAddStudent

14.  Klik tombol Save

15.  Klik BDE – Table

16.  Klik di area kosong pada Form

17.  Lakukan setting berikut:

-          DatabaseName: D:\100delphi (ketik)

-          TableName: tblAddStudent.db (pilih)

-          Active: True (pilih)

18.  Lihat gambar di bawah ini:

19.  Klik dua kali Table1 yang ada pada form

20.  Akan keluar gambar ini:

21.  Tekan Ctrl + F

22.  Blok No dan FullName dengan: Tekan Shift + Klik No + Klik FullName

23.  Drag ke area kosong pada form

24.  Klik Additional – BitBtn

25.  Klik di bawah kotak FullName pada form

26.  Lihat gambar ini:

27.  Ubah tulisan BitBtn

-          Klik tombol BitBtn1 pada form

-          Pada properties, ganti Caption menjadi: Add

28.  Hasilnya seperti berikut:

29.  Klik dua kali tombol Add pada form tersebut

30.  Ketik script berikut:

if BitBtn1.caption='Add' then

begin

     Table1.insert;

     BitBtn1.caption:='Save';

end else

begin

     Table1.post;

     BitBtn1.caption:='Add';

end;

31.  Save All

32.  Jalankan program dengan menekan F9

33.  Klik tombol Add

34.  Klik kotak No

35.  Ketik data berikut:

No	Full Name
00001	Komarudin

36.  Klik tombol Save pada form

37.  Klik lagi tombol Add pada form

38.  Klik kotak No

39.  Ketik data berikut:

No	Full Name
00002	Tasdik

40.  Klik tombol Save

41.  Klik tombol Close yang berwarna merah (Lihat gambar yang dilingkari biru):

42.  Buka database desktop

43.  File – Open – Table

44.  Cari nama tabel: tblAddStudent

45.  Klik tombol Open

46.  Hasilnya seperti gambar ini:

47.  Untuk keluar tabel: File – Close

48.  Untuk keluar 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