FoxPro Form Login

Screen shoot berikut merupakan tampilan sederhana dari form login. Program yang digunakan adalah microsoft visual foxpro 9.0. Kreasi ini merupakan permintaan dari kawan-kawan sesama newbie yang mana masih dalam tahapan pemula banget. Langkah awal dalam pembuatan form login ini adalah : 

1. Buatlah table dengan nama user 

2. Tambahkan 2 field saja (userId dan pswd), selanjutnya isi record dengan Adm=userId dan 123=pswd 

3. Siapkan form baru dengan ukuran disesuaikan 

4. Tambahkan object text dan button 

5. Atur properties form 

6. Isi form dengan syntax berikut 

IF EMPTY(thisform.text1.Value)

MESSAGEBOX("Maaf, Silahkan Isi Data Anda...!",0,"Login")

thisform.text1.SetFocus ()

retu

ENDIF

IF EMPTY(thisform.text2.Value)

MESSAGEBOX("Maaf, Silahkan Isi Data Anda...!",0,"Login")

thisform.text2.SetFocus ()

retu

ENDIF

locate for userid=trim( thisform.text1.value)

if ! found()

messagebox("Maaf User Id Anda Tidak Terdaftar...!",0,"Perhatian...")

thisform.text1.Value=""

thisform.text1.setfocus()

retu

else

locate for pswd=trim(thisform.text2.value)

if ! found()

messagebox("Maaf Password Tidak Dikenal...!",0,"Perhatian...")

thisform.text2.Value=""

thisform.text2.setfocus()

retu

else

messagebox("Selamat, Anda berhak mengakses system ini..",0,"Login")

DO FORM mainform.scx

thisform.release()

endif

endif

……………………………………………………………………………………………………………………………………………………………………………………

thisform.release()

quit

retu

1 

Oops lupa….!, penjelasan object mana yang harus di isi syntax diatas coba cari sendiri ya…..  ……Selamat mencoba……