Cara Membuat Form Login Dengan Visual Foxpro

Berikut contoh Screen Shoot tampilan sederhana dari form login. Program yang saya gunakan adalah Microsoft Visual Foxpro 7.0. jika ingin memakai yang versi atas lagi gpp ..Langkah awal dalam pembuatan form login ini adalah :

1. Buatlah Table dengan nama (terserah) co: table_login 

2. Tambahkan 2 Field saja (username dan password), selanjutnya isi record .

3. Siapkan Form baru dengan ukuran disesuaikan contoh seperti diatas 

4. Tambahkan object text dan button 

5. Atur properties form (bisa to :D )

6. Isikan syntax dibawah ini ke Command LOGIN 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 username=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 password=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

7. Isikan Syntax dibawah ini ke Command CANCEL berikut :

thisform.release

selesai dehh tinggal di edit sendiri oke !!!! pasti anda bisa