Gini Nih Caranya:
1.Buat database sebagai tempat penyimpanan username dan password (Biar lebih gampang, bikin lewat Free Table) lalu simpan (misal: login.dbf)
2. Masukan userid n password kamu kedalam tabel login. Kalo belum tau, gini caranya ( Pilih pada free table "login" >> Klik Browse >> Tekan Ctrl+Y) Misal:userid : user | pasword: 123
3.Biki Form untuk menginputkan user n pasword, kayak gini nih contohnya
4. Masukan Coding Login Dibawah ini Pada Command button "Login"
Coding Login
|
| USE login IN 0 LOCATE FOR userid=ALLTRIM(thisform.text1.Value).and.pasword=ALLTRIM(thisform.text2.Value) IF FOUND() MESSAGEBOX("Kamu Berhasil Login.. Selamat Ya!",0,"PEMBERITAHUAN") thisform.Release Do Form form2 ELSE MESSAGEBOX("Username atau Passwordmu Salah/Belum Kamu Isi",1,"PERHATIAN") thisform.text1.Value='' thisform.text2.Value='' thisform.text1.SetFocus() ENDIF USE |
Keterangan Dari Coding Diatas
USE login IN 0 (login adalah nama database (free table) tempat penyimpanan id n pasword)LOCATE FOR userid=ALLTRIM(thisform.text1.Value).and.pasword=ALLTRIM(thisform.text2.Value)
(userid/pasword adalah userid/pasword yang ada pada tabel database login)
IF FOUND()
MESSAGEBOX("Kamu Berhasil Login.. Selamat Ya!",0,"PEMBERITAHUA")
=> Pesan yang muncul bila pasword benar
thisform.Release => form pasword akan tertutup bila id/pasword benar
Do Form form2 => form yang akan di panggil bila id/pasword benar
ELSE
MESSAGEBOX("Username atau Passwordmu Salah/Belum Kamu Isi",1,"PERHATIAN")
=> Pesan yang muncul bila id/pasword salah
thisform.text1.Value='' => Input Text1 (pada userid) akan kosong bila id salah
thisform.text2.Value='' => Input Text2 (pada pasword) akan kosong bila pasword salah
thisform.text1.SetFocus() => Fokus input akan berada pada text1
ENDIF
USE
Bagi Yang Pengen Langsung Liat Projectnya, Silahkan Klik [Download]
