Berdasarkan perilaku Assisten Lab C yang begajulan kita sebut aja “Mar*a” yang seenaknya aja ngunci pintu lab dan gak mau ngasih tau kalo ada yang nanya ditambah judesnya bukan maen.., maka saya persembahkan:
“Membuat Form Login Dengan FoxPro”
Didedikasikan untuk teman teman labc 11.5D.12
Buatlah satu tabel bernama user dengan field sebagai berikut :
- id_user bertipe Integer(AutoInc)
- username bertipe Varchar(16)
- password bertipe Varchar(16)
kemudian isi tabel nya, contoh:
- username=Ay
- password=123
Setelah itu, buat form baru. Beri nama form_login..
Buat 2 textbox dan 1 command button, atur dengan ketentuan:
- textbox pertama beri nama = txtusername
- textbox kedua beri nama = txtpassword
- buat juga 1 command button beri caption = Login dan beri nama cmdlogin
listingnya cmdlogin:
USE user IN 0
LOCATE FOR username = ALLTRIM ( thisform.txtusername.value ) .and. password = ALLTRIM( thisform.txtpassword.Value )
IF FOUND()
thisform .Release
DO FORM frm_utama
ELSE
MESSAGEBOX( “Username atau Password Salah, Coba diingat kembali” ,64, “Pemberitahuan” )
ENDIF
use
Kalo ada pertanyaan lain silahkan email aja ke achyadi_ay@yahoo.co.id
mau nanya dong gimana biar nama yang kita login bisa muncul di form lain.
soalnya prgm saya selalu error.
diformtransaksi activate saya tulis listing:
_screen.addproperty(‘KODEKASIR’)
_screen.KODEKASIR=formlogin.tkode.value
thisform.tnamakasir.value=_screen. KODEKASIR
SELECT KASIR
seek alltrim(thisform.tnamakasir.value)
if found()
thisform.tnamakasir.value=kasir.namakasir
endif
pertanyaanya kl saya buka transaksi lewat menu utama ada listing error formlogin is not an object, mohon bantuannya gan buat TA nih
goods artikel,
yang mau contoh program foxpro buraun datang ke http://kastok.net
salam,
cara ngisi tabelnya dimananya?????