Membuat Program Penjualan Visual Basic 7 : Membuat Form Login

Membuat Program Penjualan Visual Basic 7 : Membuat Form Login
Form Login fungsinya sangat penting sekali karena jika form ini tidak ada, maka program yang telah kita buat bisa dipakai oleh orang lain selain yang berhak untuk memakainya. Dengan Form Login seorang user dipaksa untuk memasukan ID dan Password yang membuat tidak semua orang bisa mengaksesnya. Bagi user yang sudah memiliki ID dan password terbagi menjadi 2 yaitu: Administrator User dan Limited User. Administrator dapat menggunakan seluruh isi dari program ini tanpa ada batasan sedangkan Limited dibatasi hanya pada beberapa form tertentu saja misalnya form transaksi atau laporan.

7. Membuat FORM LOGIN
- Buat form baru lagi lalu isikan dengan isi dan properties dibawah ini:

NAME	CAPTION/TEXT	KETERANGAN	TAMBAHAN
Txtkd	-	Textbox
Txtpass	-	Textbox
Txttype	-	Textbox
Cmdcancel	&cancel	Command Button
Data1	-	Data
Login	Form Login	Form

Adapun Listing Program dari Form Login ini adalah:
Private Sub Form_Activate()
TXTKD.SetFocus
TXTKD.Text = ""
TXTPASS.Text = ""
TXTPASS.Enabled = False
End Sub
Private Sub Form_Load()
Data1.DatabaseName = App.Path & "/BUKU.mdb"
Data1.RecordSource = "select * from Table_user"
End Sub
Private Sub TXTKD_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
    Data1.Recordset.FindFirst "Id_user=’" & TXTKD.Text & "’" & ""
    If Not Data1.Recordset.NoMatch Then
    TXTPASS.Enabled = True
    TXTPASS.SetFocus
    Else
    MsgBox "ID TIDAK TERDAFTAR"
    TXTKD.Text = ""
    End If
End If
End Sub
Private Sub TXTPASS_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Data1.Recordset.FindFirst "Id_user=’" & TXTKD.Text & "’" & " And " & "pass_user=’" & TXTPASS.Text & "’"
If Not Data1.Recordset.NoMatch Then
    fTransaksi.TXTKASIR.Text = TXTKD.Text
    Menuutama.TXTTYPE.Text = Data1.Recordset!Type_user
    Menuutama.txtuser.Text = Data1.Recordset!Id_user
    Unload Me
    Menuutama.show
Else
    MsgBox "PASSWORD SALAH"
    TXTPASS.Text = ""
    TXTPASS.SetFocus
    End If
End If
End Sub

Private Sub CMDCANCEL_Click()
Unload Me
End Sub
Peringatan: Jika Form Menu utama (menuutama) atau form transaksi (ftransaksi) belum dibuat maka sebaiknya anda membuatnya terlebih dahulu.

- Jangan lupa untuk mengganti Name dari form ini di properties menjadi ”Login” dan menyimpannya dengan nama ”Login.frm”.

- Sekian saja untuk tutorial pembuatan Form Login. Terima kasih atas perhatiannya jika anda masih setia untuk megikuti tutorial pembuatan penjualan buku ini. Kita bertemu pada tutorial yang selanjutnya Insya Allah.

By: OPIX HOLMES
opix.holmes@yahoo.com
http://www.islamicunderground.com