Cara Membuat Form Login dengan FoxPro 9.0

Sebelum membuat form login buatlah terlebih dahulu sebuah tabel misalnya tb_password.dbf

Dengan ketentuan tabel sbb :

id_user bertipe Integer(AutoInc)

username bertipe Varchar(16)

password bertipe Varchar(16)

Isikan dengan salah satu password, misalnya :

Username : admin

Password : admin

Buatlah form dengan tampilan sebagai berikut :

Kemudian ketikkan kode berikut :

Pada object form dan procedure activate

Thisform.txtusername.SetFocus()

Pada object cmdlogin dan procedure click

USE "d:\namaDATABASEanda\tb_password.dbf"

LOCATE FOR username=ALLTRIM(thisform.txtusername.Value) .and. password=ALLTRIM(thisform.txtpassword.Value)

IF FOUND()

Thisform.Release()

DO FORM tugaspcb1

ELSE

MESSAGEBOX("Password salah, silahkan dicoba lagi !!",0 + 16,"Sorry")

thisform.txtpassword.Value=""

thisform.txtusername.Value=""

thisform.txtusername.SetFocus()

ENDIF

USE

Pada object cmdexit dan procedure click

Thisform.Release()

Penjelasan  :

Perintah USE untuk membuka tabel password yang telah kita buat tadi.

Jadi perhatikan tempat penyimpanan d:\namaDATABASEanda\tb_password.dbf  dengan lokasi tempat table password anda tersimpan

LOCATE FOR username=ALLTRIM(thisform.txtusername.Value) .and. password=ALLTRIM(thisform.txtpassword.Value)....

Kode ini digunakan untuk memeriksa username dan password dari inputan user dengan record yang adapada tabel yang telah dibuat..perhatikan untuk txtusername dan txtpassword harus disesuaikan dengan nama text yang anda buat pada form..bisa saja nama yang anda buat untuk text1 adalah txt_user, maka gunakan nama tersebut

IF FOUND()....jika ditemukan

Thisform.Release().....tutup form login

DO FORM tugaspcb1....lakukan atau buka form yang anda inginkan sehingga ganti tugaspcb1 dengan nama form ke-2 yang anda buat

Untuk MESSAGEBOX kata-kata dalam tanda petik diganti sesuai keinginan anda, kode message box bisa disesuikan dapat diganti dengan 32 atau 64

Kode dibawahnya digunakan untuk membersihkan form setelah anda klik ok pada massage box jika salah memasukkan user dan password

USE yang terakhir untuk menutup tabel password.

Demikian kodenya, simpan dan tekan ctrl + e (run)

Masukan username dan password sesuai yang telah dibuat maka anda akan login dan masuk ke form2 jika anda salah maka akan keluar pesan kesalahannya

Untuk membuat agar password yang diinputkan user tidak kelihatan maka property untuk txtpassword cari passwordchar dan ganti dengan tanda * (bintang) atau lainnya.