Dosen : MUTTAQIN ,MI
Object : Form1 dan Procedure :Init
SET DELETED ON
thisform.text1.Value=SPACE(15)
thisform.text2.Value=SPACE(30)
thisform.text3.Value=SPACE(30)
thisform.text4.Value=0
thisform.grid1.SetFocus
thisform.command2.Enabled= .F.
thisform.command3.Enabled= .T.
thisform.Refresh
Object : Command1 dan Procedure :Click
thisform.text1.SetFocus
thisform.command1.Enabled= .F.
thisform.command2.Enabled= .T.
thisform.command3.Enabled= .T.
thisform.command4.Enabled= .F.
thisform.command5.Enabled= .F.
thisform.Refresh
Object : Command2 dan Procedure :Click
APPEND BLANK
replace peserta_les.nokwitansi WITH thisform.text1.Value
replace peserta_les.nama WITH thisform.text2.Value
replace peserta_les.sekolah WITH thisform.text3.Value
replace peserta_les.kelas WITH thisform.text4.Value
thisform.text1.Value=SPACE(15)
thisform.text3.Value=SPACE(30)
thisform.text4.Value=0
thisform.grid1.SetFocus
thisform.Command1.Enabled= .T.
thisform.command2.Enabled= .F.
thisform.command3.Enabled= .F.
thisform.command4.Enabled= .T.
thisform.command5.Enabled= .T.
thisform.Refresh
Object : Command3 dan Procedure :Click
thisform.text1.Value=SPACE(10)
thisform.text2.Value=SPACE(30)
thisform.text3.Value=SPACE(30)
thisform.text4.Value=0
thisform.grid1.SetFocus
thisform.command1.Enabled= .T.
thisform.command2.Enabled= .F.
thisform.command3.Enabled= .F.
thisform.command4.Enabled= .T.
thisform.command5.Enabled= .T.
thisform.Refresh
Object : Command4 dan Procedure :Click
mpilih=MESSAGEBOX("Hapus Peserta Les tersebut?",48,"Konfirmasi")
IF mpilih=1
DELETE
endif
thisform.Refresh
Object : Command5 dan Procedure :Click
CLOSE DATABASE
SET DELETED OFF
RELEASE thisform
Object : Text1 dan Procedure :Valid
IF EMPTY(this.Value)
=MESSAGEBOX("Nomor Kwintansi tidak boleh dikosongkan",16,"Perhatian")
RETURN.f.
ELSE
SET ORDER TO tag nokwitansi
SEEK TRIM(This.Value)
IF FOUND()
=MESSAGEBOX("Nomor Kwitansi tersebut sudah digunakan",16,"Perhatian")
RETURN .f.
ENDIF
ENDIF
0 komentar:
Post a Comment