Membuat Form Login dengan Foxpro 9.0


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

0 Comments