Cara membuat Form LOGIN di FOXPRO

Assalamualaikum Wb.Wr
 Baik dipertumuan sekarang saya akan membagi bagaimana cara membuat Form LOGIN di Foxpro.
LANGSUNG SAJA...........!!!!!

1.Langkah pertama: Buka terlebih dahulu foxpronya. ketika dibuka jangan lupa. "CD?" agar file mu tidak berantakan.
2. Setalah CD?. baru kita buat "DATABASE"

Klik "Data" => "Database" dan "NEW" Bagi pemula saya sarankan pilih yang New Database . ok
3. Selanjutnya .simpan . dan ikuti gambar;

Ketika muncul tabel. Pilih yang New  lagi, jangan yang wizard.

Kamu isi seperti digambar. dan OK
dan muncul seperti dibawah ini.

maka akan muncul tabel kayak no 1. kemudian di table1 klik kanan pilih browes, maka akan muncul seperti no 2. untuk mengisi kolom  tekan tombol "CTRL+Y"
jika sudah terisi "table1" ditutup.

NAh sekarang baru kita buat FORM-nya.

ketika muncul pilihan , Pilih yang New saja. Bagi pemula.
sekarang kamu isi dah kayang digambar. ok....!!!!

Jika tampilan punyak mu tidak sama denganku ya jelas...... karna belum di desain.
heheheh bukannnya sombong. keng CONGKAK... haha.
Ok. kembali ke topik.

selanjutnya kita buat kodingnya.
Klik 2 kali di formnya. pilih "LOAD" diprosedur, dan ketik koding berikut:

setelah itu , tombol "LOGIN"  Klik 2 kali dan isikan koding dibawah ini :

if empty(thisform.text1.value)
    messagebox("user name harap diisi",48,"informasi")
    thisform.text1.setfocus()
    return
endif

if empty(thisform.text2.value)
    messagebox("password harap diisi",48,"informasi")
    thisform.text2.setfocus()
    return
endif

locate for alltrim(id_nm) = alltrim(thisform.text1.value) .and.;
           alltrim(password) = alltrim(thisform.text2.value)
    if found()
        thisform.Command Button.enabled=.f.
     else
    messagebox("login atau password yang anda masukkan harap diperiksa lagi")
    thisform.text1.setfocus()
    return
endif


Jika selesai maka Dijalankan.
tampilannya akan seperti gambar dibawah ini, jika dikosongi dan di klik login maka akan keluar pesan.

 OK..
sampai disini dulu.
Terima kasih suda bekunjung di Blog Saya. Tetep semangat ya.....!!!