Membuat Login User Dengan Microsoft Visual Foxpro 6.0

Membuat Login User

Ikuti Langkah-langkahnya :

Sebelum membuat Login User anda terlebih dahulu membuat Databasenya
Screenshot :

                                                                    
SELANJUTNYA :

Object : Form1                  Procedure: Load
Close all
Use password

Listing yang di gunakan :

1. Listing LOGIN

kunci1 = userr
kunci2 = passwordd
kunci3 =upper(alltrim(kunci1)+alltrim(kunci2))
KUNCI4 = upper(ALLTRIM(THISFORM.USER1.VALUE)+ALLTRIM(THISFORM.Password1.VALUE))
IF KUNCI3 =KUNCI4
DO FORM form2
ELSE
MESSAGEBOX("USER ID ATAU PASSWORD YANG ANDA MASUKAN SALAH",48 ,"WARNING")
ENDIF

2. Listing EXIT

thisform.release( ) 

MESSAGEBOX("ANDA YAKIN INGIN KELUAR",64,"MESSAGE ... ? ")

Semoga Artikelnya membantu ^_^