Program Microsoft Visual FoxPro 9.0 Login

Keterangan :
Username = Text Box (Name = Text1)
Password user = Text Box (Name = Text2)
\<Login = Command Button (Name = command 1)
\<Cancel = Command Button (Name = command 2)
---------------
Koding :
Click Login (Command1) 
USE tbuser AGAIN IN 0
SELECT Tbuser
LOCATE FOR username=ALLTRIM(thisform.text1.Value) AND password_username=ALLTRIM(thisform.text2.Value)
IF FOUND()
DO FORM d:\matkulfoxpro\menu.scx (Form Yg Dituju)
ELSE
MESSAGEBOX("Maaf Username Dan Password Anda Salah",0+16,"Sorry")
thisform.text1.Value=""
thisform.text2.Value=""
thisform.text1.Setfocus()
ENDIF
--
Click Cancel (Command2) 
pesan =MESSAGEBOX("Apakah Anda Ingin Keluar..?",3+64,"Pesan")=6
thisform.command1.Enabled= .F.
thisform.command2.Enabled= .T.
thisform.Release

Selesai Program Microsoft Visual FoxPro 9.0 Login

Share :

Tweet

More