Misal : MD C:\Latihan
BEKERJA DENGAN FORM
Mengaktifkan folder yang telah dibuat dengan CD (change directory)
Misal : CD C:\Latihan Membuat Tabel Misal : Create mhs Isi Fieldnya, OK Isi Datanya =>ketikkan perintah Append pada Command Window, isi data, tekan
untuk menyimpan sekaligus keluar. Untuk melihat hasilnya ketikkan perintah Browse pada Command Window.
Membuat form dengan cara mengetikan perintah create form [Nama Form] pada jendela Command atau dari Klik Menu File>New>Pilih Form>Klik New File
Gambar 2.1. New Form
.
ToolBox
Form
Properties
1. Latihan Form 1
MEMBUAT DATABASE
Buatlah form sebagai berikut: Database => Sukumpulan tabel-tabel. # Relasi One To Many Buat Database dengan nama Penjualan.dbc
1. File, New, Project, New File => muncul jendela Project Manajer
Gambar 2.2 Form Latihan 1 Ubahlah Properties Sebagai berikut: Objek Properties Caption Form1 Name Labe1l Caption Command1
Caption Name
Setting Form Latihan 1 Frmlatihan1 Selamat Belajar Visual Foxpro \
Kemudian Klik dua kali pada command keluar
2. Pilih Tab Data, Database, New, New Database, Simpan => muncul jendela database designer. Buat Tabel sbb :
1. Tabel Barang.dbf Field Kodebar Namabar Harga Jumbar
Ketik kode ini
Gambar 2.3 Kode Program Form Latihan 1 Untuk menjalankan progrm, klik menu Program >DO atau Klik icon (Crtl+E). Kemudian pada saat dijalankan visual foxpro akan menampilkan konfirmasi sebagai berikut. Klik Yes untuk menyimpannya.
Gambar 2.4 Menyimpan Form
Type Character Character Numeric Numeric
6 30 8 3
2. Tabel Customer.dbf Field Type Kodecus Character Namacus Character Alamat Character Telepon Character
6 30 30 15
3. Tabel Sementara.dbf Field Type Kodebar Character Namabar Character Harga Numeric Jumbel Numeric Total Numeric
6 30 10 3 10
3. Tabel Transaksi.dbf Field Type Nofak Character Tanggal Date
6 8
Width
Index Ascending, Primary
Width
Index Ascending, Primary
Width
Index
Width
Index Ascending, Regular
Thisform.txttotal.value=round(thisform.txharga. value*val(thisform.txtjumbel.value),0) Cmdkeluar
If messagebox(“Keluarrrr?”,36,”Info”)=6 Thisform.release Endif
Click
Buat Form Ke-2 dengan nama Browsetransaksi.scx
Ketik di bawah “Prompt” File terus dibawah nya lagi Laporan (spt tampak dalam gambar). Ini berarti menu anda nanti akan terdiri atas [ File ] [ Laporan ] Bagian2 yg lain jangan di ubah, pastikan spt tampak di atas. Selanjutnya klik tombol “Create” yg sejajar dg prompt “File” untuk membuat bagian2/item menu “File” ini.
Grid1 pada Builder : Objek Database Or Table Grid1 Transaksi
Field Semua Sampai tampil modul design item menu “File” spt ini :
Cmdkembali Thisform.release
Click
MEMBUAT MENU Jangan lupa untuk sample kali ini nama menunya “mn_siswa”. Dari panel “Project Manager - Siswa” klik tab “Other”. 1 2
3
Ketik modul2 untuk item menu “File” spt ini : 4
Kemudian klik tombol “New” sampai tampil dialog box “New Menu” Klik tombol “Menu” yg kiri sampai tampil modul spt di bawah ini.
Perhatikan “Result” anda ubah ke “Command” untuk “Entri Siswa” dan “Exit”
Ketik di belakang “command” Entri Siswa dg command “ do form frmsiswa.scx” spt tampak di gambar berikut :
Sedangkan di belakang “command” Exit anda isi dg command “ clear events”. Catatan : Dengan demikian kita sudah sekenariokan jika user klik menu [ File ] dan memilih item menu “Entri Siswa” maka aplikasi akan menjalankan form/modul “frmsiswa.scx” (form ini nanti baru akan kita buat). Sedangkan jika user klik “Exit” maka program akan keluar, atau proses “menunggu” program di akhiri. Ini di tandai dengan di jalankan nya command “clear events” sebagai lawan dari “read events”. Setelah selesai design item menu “File” ini kita kembali ke menu level “Menu Bar” dg cara : Di “Menu Level” klik combo yg ada disitu dan pilih “Menu Bar”.
Ketik di prompt “Lap Data Siswa” dan di belakang “command” anda ketik perintah “do form frmcetak.scx ”. Untuk mencetak data siswa anda masih memerlukan modul/interface form, modul ini berguna untuk memberi kesempatan user misalnya hanya ingin mencetak data siswa tertentu saja atau sesuai kriteria/syarat lain yg di inginkan. Sebagai contoh modul/form ini nanti kita beri nama “frmcetak.scx”. Selanjutnya anda kembali ke menu level “Menu Bar”
Dan kembali ke Menu Designer kembali :
Sampai kembali tampil modul “Menu Designer” kembali. Jika anda perhatikan tombol “Create” telah berubah menjadi “Edit” artinya jika anda ingin merubah item menu yg ada anda klik saja tombol “Edit” ini.
Untuk design modul item menu “Laporan” klik combol “Create” sampai tampil :
Untuk save menu yg telah di buat klik tombol close “X” sampai tampil dialog box spt di bawah :
MEMBUAT REPORT(LAPORAN) 1. Pada Jendela Project Manajer, Tab Documents 2. Klik Report 3. klik tombol New =>tampil jendela new report 4. Pilih new report. Klik tombol “Yes” Simpan dg nama “mn_siswa” dan pastikan tersimpan di directory “Menu”
1 3
2
4
Klik tombol “Save” maka sekarang anda sudah memiliki menu.
Dengan demikian proses pembuatan menu sudah selesai.
LATIHAN ONE TO MANY 1. Buatlah Project baru dengan nama : ProNilai 2. Buat Database : Nilai 3. Buat Tabel sbb : Mahasiswa.dbf Name Type Width Nim Character 8 Nama Ch aracter 20 Kelas Character 6 n_mhs.dbf Name Type Width Nim Character 8 Matkul Character 20 Uts Number 3 Uas Number 3 Akhir Number 3 sementara.dbf Name Type Width Matkul Character 20 Uts Number 3 Uas Number 3 Akhir Number 3 4. Rancang Form sbb :
In dex
Keterangan Primary
In dex
Keterangan Regular
In dex
Keterangan
6. Ketentuan : Buatlah New Method : Bersih, Awal, Atur grid Total = (50%*Uas)+(30%*Uts)+(20%*Akhir) Buat Sebuah Form Browsenilai dan simpanlah dengan nama browsenilai.scx Klik tambah maka semua akan kosong dan kursor berada pada txtmatakuliah Klik simpan maka akan menyimpan , Klik Lihat maka akan membuka Form Browsenilai.scx Klik keluar maka akan keluar dari form. Grid adalah tampilan pada tabel sementara.dbf 5. Ketentuan Grade : Grade A jika Total >80 Grade B jika Total >70 Grade C jika Total >50 Grade D jika Total <50 Grade E jika Total <30
########### Selamat Mengerjakan ############