Hello Katabah!
Pada tutorial Delphi
ini, saya belajar membuat tombol Next (Selanjutnya), Back (Sebelumnya), First
(Pertama) dan Last (Terakhir).
Sedangkan data yang
ditampilkan akan diperoleh dari tabel yang sudah ada bawaan Delphi. Jadi, kita
tidak perlu membuat tabel baru dulu.
1. Buka Delphi 7
2. Klik BDE pada
Component Pallete
3. Klik Table
4. Klik di area kosong
pada form
5. Muncullah Table1
6. Klik Database Name
pada Object Inspector – Properties
7. Pilih DBDEMOS
DBDEMOS adalah database
yang disediakan Delphi untuk kita berlatih. Isinya ada beberapa tabel.
8. Masih di Properties,
klik Table Name. Pilih animals.dbf
9. Masih di Properties
juga, di paling atas ada Active. Pilih True.
10. Klik dua kali Table1
pada form
11. Muncul kotak
Form1.Table1
12. Tekan Ctrl+F pada
keyboard
13. Untuk memblok semua
field name, klik NAME, tekan SHIFT pada keyboard (shift jangan dilepas), klik
BMP. Sekarang semua field name sudah terblok (warna biru)
14. Tombol Shift jangan
ditekan lagi
15. Klik field name yang
sudah diblok tadi, misal pada NAME
16. Tarik ke area kosong
form
17. Lepas mouse kita
18. Semua field name dan
isinya sudah muncul di form
Sekarang, kita membuat
tombol Next, Back, First, Last Buatan Sendiri dengan Delphi:
19. Klik Additional
20. Klik BitBtn
21. Klik di area kosong
pada form
22. Muncullah BitBtn1
pada form
23. Klik Caption pada
Object Inspector – Properties
24. Ketik: First
25. Klik lagi BitBtn
pada Additional
26. Klik di sebelah kanan
tombol First
27. Klik Caption pada
Object Inspector – Properties
28. Ketik: Next
29. Klik lagi BitBtn
pada Additional
30. Klik di bawah tombol
First
31. Klik Caption pada
Object Inspector – Properties
32. Ketik: Back
33. Klik lagi BitBtn
pada Additional
34. Klik di bawah tombol
Next
35. Klik Caption pada
Object Inspector – Properties
36. Ketik: Last
Sampai di sini desain
sudah beres, tapi masing-masing tombol belum bisa digunakan karena belum diisi
script. Ini tampilannya:
Mari lanjutkan ke
langkah 37 agar keempat tombol tersebut bisa berfungsi.
37. Klik dua kali tombol
First pada form
38. Ketik script ini:
Table1.First;
39. Klik dua kali tombol
Next pada form
40. Ketik script ini:
Table1.Next;
41. Klik dua kali tombol
Back pada form
42. Ketik script ini:
Table1.Prior;
43. Klik dua kali tombol
Last pada form
44. Ketik script ini:
Table1.Last;
45. Jalankan program
dengan menekan F9 pada keyboard
46. Silahkan klik
tombol-tombol yang empat tadi, maka data yang muncul di kotak Name, Size,
Weight, Area dan BPM akan berubah-ubah
Tambahan:
Tulisan caption pada
keempat tombol di atas boleh menggunakan bahasa apapun, selain bahasa Inggris.
|
"Investasi Emas dan Reksadana, Untung Mana?."
|
|
Youtube: Katabah Com: Menuju 1 jt Konten :) |
|
|
