Lihat Tabel Dengan M vfr9.0

VIEW ATAU LIHAT TABEL SISWA DENGAN APLIKASI M vfr9.0

Program perintah dasar yang terpenting adalah melihat dan mencetak tabel, karena data yang kita input (masukkan), Edit (diperbaiki) dan Hapus (penghapusan data) harus dipastikan benar-benar dengan melihat atau mencetak datanya. Untuk lebih lanjut pembutan program tersebut adalah :

Buka PrgSiswa :

1. Klik forlder Documents dan klik folder Forms.

2. Klik New.....

3. Muncul jendela New Form, Kemudian klik New Form.

4. Klik kanan di form yang tidak ada objeknya.

5. Pilih Data Environment...

6. Pilih Tables in Database....Siswa

7. Klik Add...

8. KLIK close...

9. Tutup jendela Data Enveronment (Close).

10. Atur Propertiesnya sebagai berikut :


OBJEK PROPERTI NILAI
Form1 Caption Lihat Satu Tabel
Label1 Caption Siswa
Label1 AutoSize T (true)
Label1 FontBold T (true)
Label1 FontSize 16
Grid1 Name Grid1
Grid1 ReadOnly T (true)
Grid1 RecordSource Siswa.dbf
Grid1 RcordSourceType 1-Alias
Label2 Caption Cari Nama
Label2 AutoSize T (true)
Label2 FontBold T (true)
Shape1 Name Shape1
Text1 Name Text1
Text1 Format !
Cmd1 Caption Selesai
Cmd1 Name CmdSelesai
Cmd1 FontBold T (true)

Kemudian atur properti nya seperti di atar dan isikan perintahnya :




11. Ketik pada Event LostFocus Text1, dengan mengklik ganda pada objek tersebut dan memilih Procedure : LostFocus, isikan perintahnya sebagai Berikut :


PUBLIC MNama
SELECT Siswa
MNama=ALLTRIM(Thisform.Text1.Value)
SET FILTER TO Nama=MNama
Thisform.Grid1.Refresh



Maksud perintah tersebut adalah, untuk mengaktifkan atau menuju ke work area (daerah kerja) File tabel Siswa, diambil nilai dari objek text box Text1 dengan menghilangkan spasi di depan dan di belakang menggunakan fungsi ALLTRIM() dan disimpan ke dalam variabel memory MNama. Selanjutnya membuat filter untuk nama Siswa yang di minta dan menampilkan data yang baru untuk Grid.


12. Simpan dengan menekan tombol Ctrl+W pada keyboard.

13. Ketik pada event Unload Form1 dengan mengklik ganda pada area tersebut, dan memilih Procedure : Unload. Isikan perintahnya sebagai berikut :

USE

Masudnya adalah untuk menutup tabel yang di buka pada waktu form di tutup.



14. Simpan dengan menekan Ctrl+W.

15. Ketik pada Event Click CmdSelesai dengan mengklik ganda pada area tersebut dan isi kan perintahnya :

Thisform.Release


16. Ketik pada Event Activate Form1 dengan mengklik ganda pada area tersebut dan isikan perintahnya :

Thisform.text1.SetFocus

17. Simpan dengan menekan Ctrl+W.



18. Simpan form dengan nama FormLihatTabelSiswa.

19. Untuk menjalankan program klik icon Run...