Fahmi Basya Kartapura On May - 3 - 2010

Diketahui:

Saya ingin membuat form login seperti gambar/mockup berikut ini:

Pertanyaan:

Bagaimana membuatnya … ?

Jawaban:

Buatlah satu tabel bernama user dengan field:

  • id_user bertipe Integer(AutoInc)
  • username bertipe Varchar(16)
  • password bertipe Varchar(16)

Setelah tabel user sudah dibuat maka coba kamu isi dengan satu user, misalnya :

  • username= fahmi
  • password=basya

Lalu buatlah Form seperti gambar diatas dimana kamu harus mengganti nama properties seperti berikut ini:

  • Textbox pada username, kamu beri nama txt_username
  • Textbox pada password, kamu beri nama txt_password
  • Tombol login kamu beri nama cmd_login

Muncul Pertanyaan:

Saya sudah membuat form dan tabel user, lalu bagaimana cara memeriksa inputan pada textbox username dan textbox password itu benar atau salah … ?

Jawaban:

Pada form di atas ketika kita mengklik tombol login maka otomatis program akan memeriksa inputan user dengan cara mencari data pada tabel user apakah username dan password dari inputan user itu sama dengan data pada tabel user.

Jadi untuk memasukkan kodenya maka kamu harus klik dua kali tombol login, lalu masukkan kode berikut ini:

USE user IN 0
LOCATE FOR username=ALLTRIM(thisform.txt_username.value) .and. password=ALLTRIM(thisform.txt_password.Value)

IF FOUND()
thisform.Release

DO FORM frm_master

ELSE
MESSAGEBOX(“Username atau Password Salah, Coba diingat kembali”,64,“Pemberitahuan”)

ENDIF
USE

Keterangan:

USE user IN 0, kode ini digunakan untuk membuka tabel user pada work area yang tersedia.

LOCATE FOR username=ALLTRIM(thisform.txt_username.value) .and. password=ALLTRIM(thisform.txt_password.Value), kode ini digunakan memeriksa username dan password dari inputan user dengan record yang ada pada tabel user.

IF FOUND(), Kode ini berarti jika ditemukan.
thisform.Release, kode ini berarti form login ditutup.

DO FORM frm_master, kode ini berarti panggil form frm_master (buat juga form bernama frm_master agar jika username dan password benar maka form ini akan ditampilkan).

ELSE
MESSAGEBOX(“Username atau Password Salah, Coba diingat kembali”,64,“Pemberitahuan”), kode ini berarti jika tidak ditemukan maka keluarkan pesan “Username atau Password Salah, Coba diingat kembali.

USE digunakan untuk menutup tabel user.

Pengetesan Program:

Sekarang coba kamu jalankan form login tersebut dan masukkan :

  • username =fahmi
  • password=basya

Lalu tekan tombol Login maka frm_master akan ditampilkan.

Kemudian kamu uji juga dengan username dan password asal maka akan ditampilkan pesan “Username atau Password Salah, Coba diingat kembali”

Muncul Pertanyaan:

Kenapa kok passwordnya kelihatan, bagaimana caranya agar jika kita menulis password maka yang tampil adalah karakter bintang¬†¬† …. ?

Jawaban:

Kamu bisa rubah property PasswordChar dari txt_password menjadi tanda bintang, seperti terlihat pada gambar dibawah ini:


Jika tutorial ini bermanfaat silahkan katakan ‘Terima Kasih Fahmi Basya Kartapura’.





Categories: Visual Foxpro

3 Responses

  1. kiwill says:

    Terima Kasih Fahmi Basya Kartapura

  2. arthur says:

    wah makasih banyak ya .. kebetulan ada tugas foxpro ..
    terima kasih banyak atas tutorialnya

  3. nandes says:

    knp nga blh copas???
    klo blh kirimin ke email saya cz lg perlu buat tugas campus
    thank’s

Copy Protected by Chetans WP-Copyprotect.