11/17/2014

Cara membuat Menu Login Pada Visual Foxpro [Total]


Agar program foxpro hanya dapat diakses oleh orang tertentu, maka menu login wajib nongol. untuk itu, ane akan share tahapannya dibawah ini. sobat fajarjabrik, pantengin terus ya,,,..

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]