UAS

(form)
{Procedure Init}
Thisform.text1.Value=""

Thisform.text2.Value=""

Thisform.text3.Value=DATE()

Thisform.text4.Value=""

Thisform.text5.Value=0

Thisform.combo1.Value=""

Thisform.optiongroup1.Value = 1

thisform.text1.SetFocus

{Procedure Load}
CLOSE DATABASE

SET TALK OFF

SET ECHO OFF

USE pegawai.dbf

{Procedure Unload}
Close Database

Command2 (Tombol Simpan)
Procedure Click
APPEND BLANK

replace nip WITH thisform.text1.Value

replace nama WITH thisform.text2.Value

replace tgllahir WITH thisform.text3.Value

replace alamat WITH thisform.text4.value

replace gol WITH thisform.combo1.Value

IF thisform.optiongroup1.Value =1

replace jnskel WITH .T.

ELSE

replace jnskel WITH .F.

ENDIF

replace jamk WITH thisform.text5.Value

thisform.Init

Command4 (Tombol Cari)
Procedure Click
LOCATE FOR nip = ALLTRIM(thisform.text1.Value)
IF FOUND()
thisform.text1.Value = nip
thisform.text2.Value = nama
thisform.text3.Value = tgllahir
thisform.text4.Value = alamat
thisform.combo1.Value = gol
IF jnskel
thisform.Optiongroup1.Option1.Value=1
thisform.Optiongroup1.Option2.Value=0
ELSE
thisform.Optiongroup1.Option1.Value=0
thisform.Optiongroup1.Option2.Value=1
ENDIF
thisform.text5.Value=jamk
ELSE
MESSAGEBOX("data tidak ditemukan")

thisform.Init
thisform.text1.SetFocus
ENDIF

Command5 (Tombol Edit)
Procedure Click
replace nip WITH thisform.text1.Value
replace nama WITH thisform.text2.Value
replace tgllahir WITH thisform.text3.Value
replace alamat WITH thisform.text4.Value
replace gol WITH thisform.combo1.Value
IF thisform.Optiongroup1.Value=1
replace jnskel WITH .T.
ELSE
replace jnskel WITH .F.
ENDIF
replace jamk WITH thisform.text5.Value
thisform.Init

Command6 (Tombol Hapus)
Procedure Click
DELETE
PACK
thisform.text1.Value=""
thisform.text2.Value=""
thisform.text3.Value=""
thisform.text4.Value=""
thisform.text5.Value=""
thisform.combo1.Value=""
thisform.text1.SetFocus

Command1 (Tombol Browse)
Procedure Click
Browse

Command3 (Tombol Keluar)
Procedure Click
Thisform.Release()