Analisa Dengan M Vfr9.0 Event Form Pelajaran

MEMBUAT EVENT-EVENT PADA FORM PELAJARAN DENGAN M vfr9.0

1. Isi pada Activate Event Form dengan perintahnya sebagai berikut :

WITH Thisform
.batal
.aktif(.F.)
.CmbKdPel.Visible=.F.
.Commandaktif(.F.)
ENDWITH


2. Isi pada Valid Event TxtKdpel dengan perintahnya sebagai berikut :

SELECT Pelajaran
SET ORDER TO tag IdxPel
WITH Thisform
IF ! EMPTY(.TxtKdPel.Value)
Jwb=MESSAGEBOX(“Pelajaran Sudah Ada....!”,4+64,”Informasi”)
IF Jwb=6
.TxtNmPel.Value=NmPel
.TxtSms.Value=Sms
.aktif(.T.)
ELSE
.batal
RETURN 0
ENDIF
ELSE
.aktif(.T.)
ENDIF
ENDIF
ENDWITH


3. Isi pada Click Event CmbKdPel dengan perintahnya sebagai berikut :

SELECT Pelajaran
SET ORDER TO tag IdxPel
WITH Thisform
IF !EMPTY(.CmbKdPel.Value)
IF SEEK(.CmbKdPel.Value)
Jwb=MESSAGEBOX(“Pelajaran Sudah Ada...!”,4+64,”Informasi”)
IF Jwb=6
.TxtNmPel.Value=NmPel
.TxtSms.Value=Sms
.CmbKdPel.Enabled=.F.
.CmbKdPel.Visible=.F.
.TxtKdPel.Visible=.T.
.TxtKdPel.Value=.CmbKdPel.value
.TxtKdpel.Enabled=.F.
.aktif(.T.)
.Commandaktif(.T.)
ELSE
.batal
RETURN 0
ENDIF
ELSE
.aktif(.T.)
ENDIF
ENDIF
ENDWITH


4. Isi pada LostFocus Event Txtsms dengan perintahnya sebagai berikut :

PUBLIC MKdPel
MKdPel=thisform.TxtKdPel.Value
Thisform.Commandaktif(.T.)


5. Isi pada Click Event CmdSimpan dengan perintahnya sebagai berikut :

Thisform.Simpan
Thisform.TxtKdPel.SetFocus


6. Isi pada Click Event CmdBatal dengan perintahnya sebagai berikut :

Thisform.batal
Thisform.aktif(.F.)
Thisform.TxtKdPel.Enabled=.T.
Thisform.KdPel.Visible=.T.
Thisform.TxtKdPel.setFocus


7. Isi pada Click Event Cmd Hapus dengan perintahnya sebagai berikut :

Thisform.Hapus
Thisform.TxtKdPel.setFocus


8. Isi pada Click Event CmdEdit dengan perintahnya sebagai berikut :

Thisform.CmbKdpel.Visible=.T.
Thisform.CmbKdPel.Enabled=.T.
Thisform.TxtKdPel.Visible=.F.
Thisform.CmbKdPel.SetFocus


9. Isi pada Click Event CmdLihat dengan perintahnya sebagai berikut :

Thisform.Lihat


10. Isi pada Click Event CmdCetak dengan perintahnya sebagai berikut :

Thisform.Cetak



11. Isi pada Click Event CmdSelesai dengan perintahnya sebagai berikut :

Thisform.Selesai


Dan simpan dengan nama FormPelajaran, kemudian jalankan program aplikasi ini.