Bagi Kalian Yang Ingin Belajar Dasar Pemrograman Terutama Dasar Pemrograman Visual Foxpro
Program Sederhana Dengan Visual Foxpro
Kartu Tanda Siswa
1.Siapkan Terlebih Dahulu Folder Tempat Kita Menyimpan Semua File Beri Nama Folder dengan Nama Kartu
2.Buatlah Project dengan Nama KartuSis.pjx
- Klik File
- Klik New
- Klik New File,kemudian Akan Tampil Create,di enter Project Klik Kata KartuSis,Lalu Klik Save Akan Muncul Gambar Seperti Dibawah Ini
3.Merancang Database
-Klik Data - Free Tables – Klik New
-klik New Table
-Kemudian Simpan Table Dengan Nama Siswa
-lalu Muncul Table Designer
-Gambar Di Bawah Ini Merupakan Isi Dari field2 Tabel siswa.dbf
-Klik Ok Jika Pembuatan Tabel Telah Selesai
4.Buatlah Sebuah Form
-Klik Tab Documents
-klik form
-klik new
-Klik new form
Buatlah Form Seperti Gambar Di Atas
- Simpan form dengan nama kts
Klik Dua Kali Pada Form,Pilih Load
load events terjadi pertama kali ketika form di set DAN berisi isi yang terkandung di dalam form,load event terjadi sebelum activate dan gotFocus event, terjadi ketika form Dijalankan
Penjelasan :
Set deleted on = menentukan visual Foxpro memproses record yang ditandai untuk dihapus
Set exact on = Bila Set exact dalam keadaan on ,dua data yang dibandingkan harus bernilai sama (karakternya sama untuk Karakter,dan bytenya sama untuk Bilangan Biner)
Use Siswa dipakai Untuk Membuka Tabel Siswa
Set order to tag nomor untuk mengaktifkan index tag nomor
activate event terjadi ketika form pertama kali actif/Diaktifkan
form activ bisa dipicu dengan berbagai aksi/action,seperti form diklik atau ketika pertama kali tampil dan object form dipanggil
Penjelasan:
kotak teks nomor diisi dengan .T./ true yang artinya dihidupkan,sementara kotak teks yang lain berisi .F./false atau dimatikan,lalu semua kotak teks dikosongkan
cmdSimpan enabled =.F. yang artinya cmdSimpan dimatikan
cmdVerifikasi.visible = .T. artinya cmd verifikasi terlihat/dapat dilihat
Penjelasan:
-Jika Isi teks Nomor kosong,maka kotak teks nomor difokuskan
-Jika isi kotak teks nomor sudah ada(didatabase),maka akan tampil messagebox “Nomor Ini sudah ada”
-jika isi Kotak teks nomor belum ada(didatabase),maka perintah dibawah endif yang dijalankan
-Jika isi kotak teks nama kosong,akan tampil messagebox”Nama Perlu Diisi”
-else /Selain itu
-use siswa /buka table siswa/gunakan table siswa
-perintah dibawahnya/berikutnya,tambahkan record baru
-isi nomor(field di table)dengan isi kotak teks nomor
-isi nama(field di Table) dengan Isi Kotak teks Nama
-begitu juga dengan Alamat dan Kelas
-Jika optiongroup bernilai 1 isi klmn dengan Pria selain itu isi klmn dengan wanita
Thisform.activate
-Jalankan event activate
Isi dari cmdBatal : jalankan event activate form ini
Isi dari cmdSelesai:
Thisform.release
Tidak ada komentar:
Posting Komentar