Kode Kartu Nama 1
Ketika form pertama kali dibuka ada procedure yang pertama kali dibaca yaitu procedure init... nah di procedure ini kita bisa isikan kondisi awal dari form Input Data Kartu Nama.
OK.. kita double klik pada form hingga keluar area pernulisan kode yaitu di objeck form1 dan pilih procedurenya adalah Init.
Keterangan
| thisform.kde.Value='' thisform.nma.Value='' thisform.alm.Value='' thisform.phn.Value='' thisform.ket.Value='' | Memberikan nilai spasi kosong ('') pada textbox karena nilai dari textbox adalah karakter |
| thisform.tga.Value=DATE() | Memberikan nilai tanggal hari ini pada textbox tga. |
| thisform.cpel.Value=0 thisform.ccab.Value=0 thisform.csup.Value=0 thisform.cpeg.Value=0 thisform.cdll.Value=0 | memberikan nilai 0 pada check box. karena nilai 0 checkbox dalam kondisi tidak dipilih, kebalikanya jika dipilih bernilai 1 |
| thisform.kde.SetFocus() | menempatkan pointer pada textbox KDE |
Untuk tombol clear , karena baris kodenya sama dengan yang ada di form1 procedure init maka bisa kita copy paste ke objek cclear, procedure klik.
Nah sekarang form input kartu nama bisa dicoba dijalankan dengan Ctrl + E. Coba isikan dengan data sample kemudian klik tombol Clear... ok.. kayaknya tidak ada masalah yah .
Ups .. Jika seandainya kita sering membuat baris kode yang sama, kita sebenernya bisa membuat procedure sendiri untuk mempersingkat penulisan baris kode program. oK.. caranya :
- Pada menubar Form , pilih New Method
- Akan muncul jendela New Method - fkartu.scx
- Tuliskan nama methodnya , misalnya pClear, kemudian klik tombol Add
- klik pada form kemudian pilih procedure yang telah kita buat pclear. (biasannya paling bawah sendiri)
- Copy pastekan kode dari procedure form1 init , kemudian pada object form1 procedure init dan objeck cclear pada procedure click isikan baris perintah untuk memanggil procedure Pclear.
thisform.pclear()
Ok.. gampang yah... :) . Selanjutnya kita bisa buat desain Output dari Daftar kartu nama pada sub bab selanjutnya...
