Membuat Form Login pada Foxpro

Pada tulisan kali ini saya akan membahas tentang cara membuat form login pada Visual Foxpro 9.0. Dimana fungsi dari form ini sebagai akses untuk masuk kedalam aplikasi yang kita bangun terutama jika data yang ada dalam database adalah data yang penting atau rahasia.

Berikut langkah-langkah untuk membuat form login dengan Visual Foxpro 9.0 :

1. Pada project manager pilih tab data-free tables-new muncul kotak save, simpan di dalam folder dengan nama tlogin.

2. Selesai, akan muncul table designer dan kemudian masukkan field pada table designer login. Isi field seperti gambar dibawah ini :

Setelah selesai ok kemudian browse tabel tlogin dan isi username dan passwordnya, ingat cuma 1 record. Selesai pembuatan tabel tlogin.dbf

Membuat Form Login

Untuk membuat form login, silahkan buka documents-form-new, muncul form baru, kemudian desain form seperti gambar dibawah ini :

Kemudian atur propertis masing-masing objek :

Object	Properties	Nilai
Label1	Caption	Username
	Autosize	=.t.
Label1	Caption	Password
	Autosize	=.t.
Text1	Name	txtUserku
	Maxlength	25
	Value	=space(25)
Text2	Name	txtPassku
	Maxlength	10
	Value	=space(10)
Command1	Caption	MASUK
	Name	cmdMasuk
Command2	Caption	KELUAR
	Name	cmdKeluar
Image1	Picture	Bebas
	Stretch	2. Stretch
Form1	Name	flogin
	Caption	Login

Setelah selesai pembuatan desain form selanjutnya masukkan listing sebagai berikut:

Object	Procedure	Listing
Form1	Activate	thisform.txtUserku.Value='' thisform.txtPassku.Value=''
	Load	SELECT tlogin USE tlogin
	Unload	CLOSE ALL
cmdMasuk	Click	IF EMPTY(thisform.txtUserku.Value) MESSAGEBOX('Username masih kosong', 16, 'Perhatian...') RETURN ENDIF IF EMPTY(thisform.txtpassku.Value) MESSAGEBOX('Password masih kosong', 16, 'Perhatian...') RETURN ENDIF SELECT tlogin SET ORDER TO userku IF !SEEK(thisform.txtUserku.Value)  MESSAGEBOX('Username tidak ditemukan', 16, 'Perhatian...') RETURN ELSE SELECT tlogin SET ORDER TO passku IF !SEEK(thisform.txtPassku.Value) MESSAGEBOX('Password tidak ditemukan', 16, ' Perhatian...') thisform.txtPassku.SetFocus() RETURN ELSE l=MESSAGEBOX('Silahkan masuk...', 0, 'Sukses Login') IF l = 1 && DO FORM formku\formutama.scx thisform.Release() ENDIF ENDIF ENDIF
cmdKeluar	Click	thisform.release

Setelah selesai simpan dengan nama flogin.scx, untuk menjalankan silahkan tekan Ctrl+E pada keyboard atau klik tanda icon ! di taksbar masukkan username dan password yang telah ada dalam tlogin.dbf

sumber : catatan siherman.com