Minggu, 24 Mei 2009

Cara MemBuat login DenGan FOXPRO

coding untuk keluar dari menu.
pesan = MESSAGEBOX("Anda Yakin Mau Keluar!!",32+1,"Caution")
IF pesan=1
thisform.Release
endif
THISFORM.refresh


Membuat menu utama dan membagi 2 user
***terdapat di textbox username***
---------------------------------------------------------------------------------------------
LPARAMETERS nKeyCode, nShiftAltCtrl
IF NKEYCODE=13

SELECT 1
IF SEEK(TRIM(THISFORM.txtkd_kasir.Value))
THISFORM.txtlevel.Value=LEVEL
THISFORM.txtnamakasir.Value=nama_kasir
thisform.txtpassword.Enabled= .T.
thisform.clogin.Enabled= .T.
ELSE
MESSAGEBOX("DATA USER TIDAK ADA!!","INFO")
THISFORM.txtkd_kasir.Value=""
THISFORM.txtkd_kasir.SetFocus()
ENDIF
ENDIF






***terdapat di command buttom login***
-------------------------------------------------------------------------------------------------
SELECT 2
IF EMPTY(THISFORM.txtkd_kasir.VALUE)
MESSAGEBOX("KODE User Belum Diisi",48,"PERHATIAN")
THISFORM.TXTkd_kasir.SETFOCUS()
RETURN
ENDIF
IF EMPTY(THISFORM.TXTPassword.VALUE)
MESSAGEBOX("Password Belum Diisi",48,"PERHATIAN")
THISFORM.TXTPassword.SETFOCUS()
RETURN
ENDIF

a=TRIM(THISFORM.TXTKd_kasir.Value)

coba=coba-1 && Bila Kode dan Password salah 3 kali
IF coba=0
messagebox("Anda Tidak Berhak mengakses data",16,"Warning")
thisform.Release
DO FORM "C:\project_ta\form_gagal"

*QUIT
*return
ELSE

SELECT 1

LOCATE FOR kd_kasir=TRIM(THISFORM.txtkd_kasir.Value) AND password=TRIM(THISFORM.txtpassword.Value)
IF FOUND()
SELECT 1
GO RECNO()
*DO FORM "C:\project_ta\FORM_MENU_UTAMA_kasir.SCX"
*DO FORM "C:\project_ta\BERHASIL_LOGIN.SCX"
IF THISFORM.txtlevel.Value="ADMIN"
DO FORM "C:\project_ta\FORM_MENU_UTAMA_administrator.SCX"
ELSE
DO FORM "C:\project_ta\FORM_MENU_UTAMA_kasir.SCX"
ENDIF
SELECT 2
use tmp_kasir
*append blank
replace kd_kasir with thisform.txtkd_kasir.value
replace password WITH thisform.txtpassword.value
replace level WITH thisform.txtlevel.value
REPLACE namakasir WITH thisform.txtnamakasir.Value


THISFORM.TXTKD_kasir.Value=""
thisform.txtpassword.value=""
thisform.txtlevel.value=""
thisform.txtnamakasir.value=""
ELSE
messagebox("Password Anda Salah!!!",48,"Warning")
THISFORM.TXTPassword.setfocus
thisform.txtpassword.value=""
thisform.txtlevel.value=""
thisform.txtnamakasir.value=""

ENDIF
ENDIF
THISFORM.Refresh
*THISFORM.Release



***form init***
--------------------------------------------------------------------------
PUBLIC coba AS Integer
PUBLIC A AS String
coba=3


***form load***
--------------------------------------------------------------------------------
CLOSE DATABASES ALL
CLOSE TABLES ALL
CLOSE INDEXES ALL
CLOSE ALL

SET DEFAULT TO "C:\PROJECT_TA"
SELECT 1
USE Data_kasir.dbf ALIAS data_kasir
SET ORDER TO tag kd_kasir

SELECT 2
USE tmp_kasir.dbf ALIAS tmp_kasir
SET ORDER TO TAG kd_kasir

2 komentar:

  1. bingung aku buatnya,,
    lo bisa bantulah aku buat satu project form login kirim ke email saya
    hery.pc@gmail.com

    BalasHapus