Analisa Dengan M vfr9.0 Metode dan Perintahnya

MEMBUAT METODE-METODE DAN PERINTAHNYA DENGAN M vfr9.0

Pada pembahasan ini kita akan mengisikan perintah-perintah dengan menggunakan aplikasi M vfr9.0, pada aplikasi program Pelajaran, dengan menggunakan delapan metode, yaitu Batal, Selesai, Simpan, Hapus, Lihat, Cetak, Commandaktif, dan Aktif.


1. Isi metode Batal dengan perintahnya sebagai berikut :

WITH Thisform
.TxtKdPel.Value=” “
.TxtNmPel.Value=” “
.TxtSms.Value=” “
ENDWITH


2. Isi metode Selesai dengan perintahnya sebagai berikut :

Thisform.Release


3. Isi metode Simpan dengan perintahnya sebagai berikut :

SELECT Pelajaran
SET ORDER TO tag IdxPel
WITH Thisform
IF !EMPTY(.TxtKdPel.Value)
IF SEEK(.TxtKdPel.Value)
Replace NmPel WITH .TxtNmPel.Value
Replace Sms WITH .TxtSms.Value
ELSE
APPEND BLANK
Replace KdPel WITH .TxtKdPel.Value
Replace NmPel WITH .TxtNmPel.Value
Replace Sms WITH .TxtSms.value
ENDIF
.batal
.aktif(.F.)
.Commandaktif(.F.)
ENDIF
ENDWITH



4. Isi metode Hapus dengan perintahnya sebagai berikut :

SELECT Pelajaran
SET ORDER TO tag IdxPel
WITH Thisform
IF SEEK(.TxtKdPel.Value)
Jwb=MESSAGEBOX(“Benar Data Ingin Di Hapus...!”,4+64,”Informasi”)
IF Jwb=6
DELETE
PACK
ENDIF
.batal
.aktif(.F.)
ENDIF
ENDWITH


5. Isi metode Lihat dengan perintahnya sebagai berikut :

SELECT Pelajaran
SET ORDER TO tag IdxPel
MkdPel=Thisform.TxtKdPel.Value
SET FILTER TO MKdPel=KdPel
REPORT FORM “c:\Documents and setting\Programku\VisualFoxpro\reportpelajaran.frx” TO FormLayar PREVIEW
SET FILTER TO




6. Isi metode Cetak dengan perintahnya sebagai berikut :

SELECT Pelajaran
SET ORDER TO tag IdxPel
MKdPel=Thisform.TxtKdPel.Value
SET FILTER TO MKdPel=KdPel
REPORT FORM “c:\Documents and setting\programku\VisualFoxpro\reportpelajaran.frx” TO PRINTER NOCONSOLE
SET FILTER TO


7. Isi metode Commandaktif dengan perintahnya sebagai berikut :

PARAMETERS Keadaan
WITH Thisform
.CmdSimpan.Enabled=Keadaan
.CmdHapus.Enabled=Keadaan
.CmdLihat.Enabled=Keadaan
.CmdCetak.Enabled=Keadaan
ENDWITH


8. Isi metode aktif dengan perintahnya sebagai berikut :

PARAMETERS Keadaan
WITH Thisform
.TxtKdPel.Enabled=.not. Keadaan
.TxtNmPel.Enabled=Keadaan
.TxtSms.Enabled=Keadaan
ENDWITH