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

TENTANG WAKTU

Tentang Waktu

Ambillah waktu untuk berfikir, itu adalah sumber kekuatan.
Ambillah waktu untuk bermain, itu adalah rahsia dari masa muda yang abadi.
Ambillah waktu untuk berdoa, itu adalah sumber ketenangan.
Ambillah waktu untuk belajar, itu adalah sumber kebijaksanaan.
Ambillah waktu untuk mencintai dan dicintai, itu adalah hak istimewa yang diberikan Tuhan.
Ambillah waktu untuk bersahabat, itu adalah jalan menuju kebahagiaan.
Ambillah waktu untuk tertawa, itu adalah musik yang menggetarkan hati.
Ambillah waktu untuk memberi, itu adalah membuat hidup terasa bererti.
Ambillah waktu untuk bekerja, itu adalah nilai keberhasilan.
Ambillah waktu untuk beramal, itu adalah kunci menuju syurga