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....

Malam Minggu Miko Serial Komedi Mantap Buat Hiburan

Halo selamat pagi semua.. sudah lama engga ngepost di blog hehe kepikiran buat share serial komedi yang sekarang lagi jadi favorit ane neh hehee iya Malam Minggu Miko hahaha siapa yang engga tau acara ini.. mungkin sebagian dari temen-temen  ada yang belum tahu acara ini ada di mana acara ini ada di KOMPAS TV, mungkin di tv lokal temen-temen kadang ada yang menyediakan acara dari KOMPAS TV kalo di tempat ane di TV B (TV Borobudur) ane di semarang soalnya hehe di tempat lain mungkin juga ada, dari temen-temen mungkin juga sudah menggunakan TV Kabel pasti sudah ada Channel ini, kalo saya sendiri malah liatnya lewat youtube.com karena jarang nonton tv hehehe.. :-D

Langsung aja gan ini salah satu serial yang paling baru ane liat

hehe kalo udah liat jangan lupa berlangganan gan.. biar g ketinggalan hahaha :-D

Baca Selengkapnya....