FORM LOGIN 1. Jalankan Microsoft Visual FoxPro 9.0
Shortcut Visual FoxPro 9.0
Jendela Visual FoxPro 9.0
smaalmasoem.sch.id
2. Buat folder belajar_fox_1 di drive E (E:/belajar_fox_1) 3. Buat proyek baru
Tombol untuk Membuat Proyek Baru
Tombol untuk Membuat File Baru
Menyimpan Proyek belajar_fox.pjx di Folder belajar_fox_1
smaalmasoem.sch.id
Proyek Baru Berhasil Dibuat di Direktori E:/belajar_fox_1
4. Selanjutnya, kita buat form baru. Klik Documents > Forms > New
Membuat Form Baru
Pilih New Form
smaalmasoem.sch.id
Form Baru Telah Berhasil Dibuat
5. Pengaturan properti pada form baru (form ke-1) Objek Form Form Form
Properti Autocenter Caption Name
Nilai True Login frm_login
AutoCenter: True
AutoCenter: True
smaalmasoem.sch.id
Caption: Login
Caption: Login
Name: frm_login
Name: frm_login
smaalmasoem.sch.id
6. Klik tombol run (Ctrl + E) untuk melihat hasil pengaturan form
Tombol Run
7. Setelah mengeklik tombol run, muncul kotak dialog yang mengkonfirmasi peyimpanan FormDoc1. Untuk menyimpan form, klik tombol Yes
Kotak Dialog Konfirmasi Penyimpanan
smaalmasoem.sch.id
8. Form baru diberi nama frm_login.scx dan disimpan di E:\belajar_fox_1
Menyimpan frm_login.scx
Form Login
9. Langkah selanjutnya, memasukkan Label, Text Box, dan Command Button pada form
Label
Text Box
Command Button
smaalmasoem.sch.id
Ketiga objek tersebut terdapat pada Form Controls
Form Controls
Masukan objek tersebut satu per satu pada form
Memasukkan Label pada Form
Memasukkan Command Button pada Form
smaalmasoem.sch.id
10. Setelah memasukkan objek-objek pada form, selanjutnya kita atur properti objek tersebut (cara pengaturannya seperti pengaturan properti pada form/langkah ke-5) Objek Label1 Label2 TextBox1 TextBox2 TextBox3 TextBox4 CommandButton1 CommandButton2
Properti Caption Caption Name Name Name Visible Name Visible Name Label Name Label
Nilai Nama Pengguna Kata Sandi txt_namapengguna txt_katasandi txt_namavalid False txt_katasandivalid False cmd_masuk \>Masuk cmd_keluar \>Keluar
Properti Label1, Name: Nama Pengguna
Properti Text1, Name: txt_namapengguna
smaalmasoem.sch.id
Properti CommanButton1, Caption: \<Masuk
Properti CommanButton1, Name: cmd_masuk
Pengaturan frm_login
smaalmasoem.sch.id
Untuk melihat hasil pengaturan properti, klik tombol run
Hasil Pengaturan Properti Form
11. Selanjutnya, buat form utama. Jika proses login berhasil, maka form utama ini akan ditampilkan. Adapun, properti form utama sebagai berikut Objek Form Form Form
Properti Autocenter Caption Name
Nilai True Form Utama frm_utama
Klik Documents > Forms > New
Form ke-2 untuk Form Utama
smaalmasoem.sch.id
Proses pengaturan dan peyimpanan form sebagai berikut
Pengaturan Properti AutoCenter
Pengaturan Properti Caption
Pengaturan Properti Name
smaalmasoem.sch.id
Klik Tombol Run
Simpan frm_utama.scx di E:\belajar_fox_1
smaalmasoem.sch.id
12. Selanjutnya, kita buat database
Membuat Database
Menyimpan Database
Nama database data.dbc, database tersebut disimpan di direktori E:\belajar_fox_1
smaalmasoem.sch.id
13. Selanjutnya, kita buat tabel. Klik kanan pada jendela Database Designer, pilih New Table
Klik Kanan Pilih New Tabel
Pilih New Table
Nama Tabel tbl_pengguna.dbf
Tabel yang kita buat diberi nama tbl_pengguna.dbf dan disimpan di direktori E:\belajar_fox_1
smaalmasoem.sch.id
14. Berikutnya mengatur kolom/field tabel, sebagai berikut
Field pada Tabel tbl_pengguna.dbf
Primary Key LOGIN
15. Klik tombol OK, tabel tbl_pengguna.dbf akan masuk ke database data.dbc. Selanjutnya, klik tombol close (x) pada jendela Database Designer
tbl_pengguna.dbf
smaalmasoem.sch.id
tbl_pengguna.dbf di Dalam Database data.dbc
16. Untuk memasukkan data pada tabel tbl_pengguna.dbf, kita ketikkan perintah APPEND BLANK pada jendela Command
Perintah Menambah Baris/row Kosong pada Jendela Command
17. Selanjutnya, buka tabel pengguna dan masukkan datanya
Buka tbl_pengguna
smaalmasoem.sch.id
Masukkan Data pada Tabel tbl_pengguna
Nm_pengguna: Excel, Kata_sandi: xscript
18. Langkah selanjutnya adalah mengaitkan frm_login dengan tbl_pengguna (Scripting)
Prosedur Activate pada frm_login
SCRIPT thisform.Refresh IF USED("tbl_pengguna") SELECT tbl_pengguna ENDIF thisform.txt_katasandi.Enabled= .F. thisform.cmd_masuk.Enabled= .F. thisform.Refresh
Prosedur Load pada frm_login
smaalmasoem.sch.id
SCRIPT CLOSE INDEXES CLOSE DATABASES ALL SET DEFAULT TO "E:\belajar_fox_1" USE tbl_pengguna INDEX tbl_pengguna SET ORDER TO tag LOGIN
Prosedur KeyPress pada txt_namapengguna
SCRIPT LPARAMETERS nKeyCode, nShiftAltCtrl IF nkeycode =13 THEN && tekan enter SEEK TRIM(thisform.txt_namapengguna.Value ) IF FOUND() thisform.txt_namavalid.Value = tbl_pengguna.nm_pengguna thisform.txt_katasandivalid.Value = tbl_pengguna.kata_sandi thisform.txt_namapengguna.Enabled= .T. thisform.txt_katasandi.Enabled= .T. thisform.cmd_masuk.Enabled= .F. ELSE MESSAGEBOX("Nama Pengguna tidak ada dalam database",16,"XScript") thisform.txt_katasandi.Enabled = .F. thisform.txt_namapengguna.Value ="" thisform.txt_namapengguna.SetFocus () ENDIF ENDIF thisform.Refresh()
smaalmasoem.sch.id
Prosedur KeyPress pada txt_katasandi
SCRIPT LPARAMETERS nKeyCode, nShiftAltCtrl IF nkeycode=13 then thisform.cmd_masuk.Enabled= .T. ENDIF
Prosedur Click pada cmd_masuk
SCRIPT v_nama = ALLTRIM(thisform.txt_namapengguna.Value) v_katasandi = ALLTRIM(thisform.txt_katasandi.Value) v_namavalid = ALLTRIM(thisform.txt_namavalid.Value) v_katasandivalid = ALLTRIM(thisform.txt_katasandivalid.value) IF (v_nama==v_namavalid ) .AND. (v_katasandi==v_katasandivalid ) &&messagebox("OKE BANGET",16,"INFO") DO FORM "E:\belajar_fox_1\frm_utama.scx" thisform.Hide ELSE MESSAGEBOX("Nama Pengguna atau Kata Sandi yang Anda masukkan salah...",16,"XScript")
smaalmasoem.sch.id
thisform.txt_katasandi.Value="" thisform.txt_katasandi.SetFocus() ENDIF
Prosedur Click pada cmd_keluar
SCRIPT thisform.Release()
SCREENSHOT FORM LOGIN
smaalmasoem.sch.id