Membuat Login di Visual Foxpro

 Selamat pagi gan.. kali ini ane mau share gimana cara buat login di Visual Foxpro.
langsung aja kita mulai..

- Pertama kita buat dulu tabel login yang menyediakan info adminis, field yang paling utama adalah username dan password tapi diisi dengan yang lain juga tidak masalah seperti terlihat di SS ini..

untuk tabel di atas saya buat index berdasarkan kd_user dan berisikan beberapa info adminis
field yang akan kita butuhkan di sana adalah tabel username dan kunci (username=username, kunci=password)

- langkah ke -2 adalah membuat form login, seperti ini..

 isi form di atas
- textbox dengan Name=username
- textbox dengan Name=kunci
- command bottom dengan Name=Cmasuk dengan Caption Masuk
- command bottom dengan Name=Cbatal dengan Caption Batal

agar saat dimasukkan data pada textbox kunci huruf menjadi bintang
- pilih texbox kunci
- di properties cari PasswordChar dan ganti dengan tanda "*" (tanpa petik) atau yang lain "#","$" dll

untuk berkreasi silahkan berkreasi sendiri saya hanya menjelaskan yang ada di contoh saja.. semakin temen-temen berkreasi maka akan semakin bisa... *salah wajar hahaha :-D

- langkah selanjutnya langkah keberapa tadi... langkah ke-3 ya..
kita isikan di method Activate
isinya

ThisForm.username.setfocus

fungsinya agar saat kita mengaktifkan form ini focus berada di username

kemudian isikan ini di Cmasuk

USE LOGIN
LOCATE FOR username=ALLTRIM(ThisFOrm.username.Value) .AND. kunci=ALLTRIM(ThisForm.kunci.value)
IF FOUND()
ThisForm.Release()
DO FORM formutama2
DO MENU.MPR
ELSE
MESSAGEBOX("Username / password anda salah atau anda belum terdaftar silahkan hubungi Administrator.!",0+16,"Login")
ThisForm.userNAME.Value=""
ThisForm.kunci.Value=""
ThisForm.userNAME.SetFocus()
ENDIF
use


penjelasan
use login = menunjukan kita memakai tabel login (jika teman2 tadi mengganti nama tabel ganti nama tabel dengan yang temen2 buat)
locate for username Alltrim....dst untuk mencari username dengan password yang ada di tabel
Alltrim berfungsi untuk menghilangkan semua space (Spasi) :-D misal jono fool maka di sini hanya terbaca jonofool saja.. :-p
if found() = Jika Ketemu
THisFOrm.release() = menutup form ini
do form formutama2 = perintah untuk membuka form utama di program teman2..
do menu.mpr = perintah membuka menu di program teman2..
else = jika tidak ketemu maka akan muncul messagebox di atas (silahkan berkreasi haha)
dst.. untuk perintah selanjutnya saya kira sudah tahu.. :-p

langkah selanjutnya yaitu ke 4 adalah mencoba..
coba di tabel isikan
username=supervisor
password=supervisor
(buka tabel / browse -> append Mode -> kemudian isikan info di atas)
setelah itu kita coba masukkan dengan form username dan passwordnya
buka form (Run)
masukkan username = supervisor, password supervisor
jika jalan berarti sudah berhasil, jika belum terus coba dan silahkan tanya lewat Ym juga boleh..

demikian tutor sedikit dari saya, Semoga Bermanfaat.. :-D



.Share

Baca Selengkapnya....