Analisa Dengan M Vfr9.0 Event Form Nilai

MEMBUAT EVENT PADA FORM NILAI DENGAN M vfr9.0

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

WITH Thisform
.CmbNis.Value=” “
.CmbKdPel.Value=” “
.tidakaktif
ENDWITH


2. Isi pada Click Event CmbNis dengan perintahnya sebagai berikut :


SELECT Siswa
SET ORDER TO tag IdxSiswa
WITH Thisform
IF !EMPTY(.CmbNis.Value)
IF !SEEK(.CmbNis.Value)
Jwb=MESSAGEBOX(“Siswa Belum ada...!”,48,”Informasi”)
RETURN 0
ELSE
.TxtNama.Value=Nama
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 Belum ada...!”,48,”Informasi”)
RETURN 0
.TxtNmPel.Value=NmPel
ENDIF
ENDIF
ENDWITH



4. Isi pada LostFocus Event InteractiveChange Event TxtNilai dengan perintahnya sebagai berikut :


WITH Thisform
.TxtNilai.Enabled=.T.
IF VAL(.TxtNilai.Value)>=85 Then
.TxtIndex.Value=”Baik”
ELSE
IF VAL(.TxtNilai.Value)>=70 Then
.TxtIndex.Value=”Cukup”
ELSE
IF VAL(.TxtNilai.Value)>=55 Then
.TxtIndex.Value=”Kurang”
ELSE
IF VAL(.TxtNilai.Value)>=40 Then
.TxtIndex.Value=”Jelek”
ELSE
.TxtIndex.Value=”Stop”
ENDIF
ENDIF
ENDIF
ENDIF
ENDWITH



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


SELECT Nilai
SET ORDER TO tag IdxNl
IF SEEK(ALLTRIM(Thisform.TxtTglujian.Value)+;
Thisform.CmbNis.Value+Thisform.CmbKdPel.Value)
MESSAGEBOX(“Nilai Sudah Ada...!”,48,”Informasi”)
Thisform.kosong1
RETURN 0
ELSE
APPEND BLANK
Replace Nis WITH Thisform.CmbNis.Value
Replace KdPel WITH Thisform.CmbKdPel.Value
Replace Tglujian WITH CTOD(Thisform.TxtTglujian.Value)
Replace Nilai WITH VAL(Thisform.TxtNilai.Value)
Thisform.kosong1
Thisform.CmbNis.SetFocus
ENDIF
Thisform.tidakaktif
Thisform.CmbNis.SetFocus



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


SELECT Nilai
SET ORDER TO tag IdxNl
IF SEEK(ALLTRIM(Thisform.TxtTglujian.value)+;
Thisform.CmbNis.Value+Thisform.CmbKdPel.Value)

MESSAGEBOX(“Nilai sudah ada....!”,48,”Informasi”)
Thisform.kosong2
RETURN 0
ELSE
APPEND BLANK
Replace Nis WITH Thisform.TxtNis.Value
Replace KdPel WITH Thisform.TxtKdPel.Value
Replace TglUjian WITH CTOD(Thisform.TxtTglujian.Value)
Replace Nilai WITH VAL(Thisform.TxtNilai.Value)
Thisform.kosong2
Thisform.CmbNis.SetFocus
ENDIF
Thisform.tidakaktif
Thisform.CmbKdPel.SetFocus



7. Isi pada Click Event CmdSelesai dengan perintah sebagai berikut :

Thisform.Release



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


SELECT Nilai
SET OERDER TO tag IdxNl
IF SEEK(ALLTRIM(Thisform.TxtTglujian.Value)+;
Thisform.CmbNis.Value+Thisform.CmbKdPel.Value)

MESSAGEBOX(“Nilai Sudah Ada....!”,48,”Informasi”)
Thisform.kosong1
RETURN 0
ELSE
APPEND BLANK
Replace Nis WITH Thisform.TxtNis.value
Replace KdPel WITH Thisform.TxtKdPel.Value
Replace Tglujian WITH CTOD(Thisform.TxtTglUjian.Value)
Replace Nilai WITH VAL(Thisform.TxtNilai.Value)
Thisform.kosong1
Thisform.CmbNis.SetFocus




Simpan dengan nama inputnilai dan simpan pada program PrgSiswa.