MEMBUAT FORM LOGIN

Form Login saya berinama :password.scx
Form Login ini difungsikan untuk menyaring siapa saja yang berhak menjalankan program ini.
Mula mula komputer akan mengecek user terlebih dahulu apabila user itu udah terdaftar user dapat mengakses lebih lanjut. Sebaliknya apabila user belum terdaftar komputer akan menolaknya, program selesai.
Untuk membuat form password penulis mengharapkan sudah bisa bisa membuar formnya. Kira kira bentuk formnya sebabai berikut :

Mengisi propertis

• Method Activate isi : thisform.text3.value=DATE()
• Layout Show windows : 1- In top level

Mengsi prooertis tombol OK

- Method Click isi

Local sukses

muser_id=ALLTRIM(Thisform.TEXT1.Value)

mpass=ALLTRIM(Thisform.TEXT2.Value)

lcStringConn,

mquery = []

TEXT to mquery textme noshow pret 8

SELECT Xuser.ID, Xuser.PASS

FROM xuser WHERE Xuser.ID = ?muser_id AND Xuser.PASS = ?mpass

ENDTEXT

sukses=SQLExec(gnConnHandle,mquery,'dt_user')

Select dt_user

x=Reccount()

If x=0

Local MJW

MJW=Messagebox("Maaf Nama Atau Password salah..ulang <Y/T>",

32+4,"Informasi")

If MJW=6

Thisform.TEXT1.Value=" "

Thisform.TEXT2.Value=" "

Thisform.TEXT1.SetFocus()

ELSE

thisform.Release()

Endif

Else

mUSER=Thisform.TEXT1.Value

mtgl_pnj=Thisform.TEXT3.Value

Endif

Thisform.Release()

Sebelu menjalankan program utama kamu haru terlebih dahulu harus membuat tabel xuser yang spesifikasinya sbb :

Setelah di jalankan melalui progut hasilnya  harus nampak berikut ini

Semoga bermanfaat.