MEMBUAT LOGIN PADA VB 6.0

Salah satu hal yang paling penting dalam pembuatan suatu program untuk mengamankan isi program adalah menu login. Sebelum masuk dalam menu utama kita akan selalu menemui menu login. Saya akan membahas sedikit pembuatan menu login dalam visual basic 6.0. langkahnya adalah sebagai berikut :

1.    Buka Visual Basic 6.0 dari menu Start =>Microsoft Visual Studio => pilih Microsoft Visual Basic 6.0

2.    Selanjutnya akan muncul pilihan dari VB 6.0 ( gambar 1 )

3.    Untuk Mudahnya pilih saja Standar Exe klik Open

4.    Selanjutnya akan muncul lembar kerja Microsoft Visual Basic

5.    Kita akan membuat database nya terlebih dahulu untuk kita koneksikan dalam  menu login.

6.    Cara membuat database : dalam hal ini kita pake database Microsoft access 7.0

a.    Klik Menu AddIns pilih Visual Data Manager

b.    Akan muncul tampilan Visdata

c.     Klik menu File =>New Pilih Micrososoft Access Pilih Version 7.0 MDB

d.     Maka akan muncul jendela penyimpanan database dimana akan kita simpan dan akan di beri nama apa databasenya.

e.     Selanjutnya akan kita temui tampilan dimana didalam database kita harus membuat table

f.     Klik kanan pada Properties pilih New Table

g.    Disinilah kita akan membuat tabelnya.

h.    Pada tampilan gambar diatas kita wajib isi Table Name dengan nama tabel yang mau kita bua dengan ketentuan :

Nama tabel : User

name	Type	Size	Ket
Kduser	Text	5	Index
Passwd	Text	5

i.      Klik addfiled selanjutnya isikan data seperti diatas

j.      Untuk indek setelah selesai membuat field tabel dan OK maka kita melihat pilihan Add Index selanjutnya OK dan Pilih Build the Table

k.    Tahap pembuatan table selesai.

7.    Mari kita kembali dalam tampilan lembar kerja VB yang diantaranya ada Form,Toolbox,Properties dll.

8.    Untuk membuat Menu Login yang perlu kita siapkan adalah :

a.    Form dengan Name Frm_login yang wajib kita isi dengan :

Tool	Properties	Ket
Label1	Caption	UserID
Label2	Caption	Password
Label3	Caption	LOADING
Label4	Caption	Tekan Esc untuk Keluar Aplikasi
Text1	Name	Txtuser
Text2	Name	Pass
Timer1	Name	Timer1
Data1	Name Database Name Record Type Record Source	Dtuser Pilih dimana kita tadi menyimpan database C:\....\.....mdb 1 – Dynaset Pilih nama table (user)

b.    Seting tampilan telah selesai sekarang kita bahas kodingnya;

9.    Koding untuk menu Login adalah sebagai berikut :

Dim a As Integer

Dim coba

Sub tanya()

If MsgBox("Keluar Aplikasi?", vbOKCancel + 32, ".::Konfirmasi::.") = vbOK Then

    End

End If

End Sub

Sub login()

kata = "kode_user='" & txtuser.Text & "'"

With Data1.Recordset

    .FindFirst kata

If .NoMatch Then

    MsgBox "Account dengan user name " & Trim(txtuser.Text) & " tidak ada" & vbCrLf & "Silakan hubungi Administrator anda", vbExclamation, ".::Perhatian::."

    txtuser.SetFocus

    SendKeys "{home}+{end}"

    Exit Sub

Else

    If !Password = txtpass.Text Then

        UTAMA.Show

        UTAMA.Enabled = True

        Unload Me

       

    Else

        MsgBox "Password Salah!", vbExclamation, ".::Perhatian::."

        txtpass.SetFocus

        SendKeys "{home}+{end}"

        coba = coba + 1

        If coba = 3 Then

            MsgBox "Anda telah salah sebanyak 3 kali" & vbCrLf & "Program akan ditutup!", vbExclamation, ".::Perhatian::."

            End

        End If

    End If

End If

End With

End Sub

Private Sub Form_Load()

coba = 0

a = 0

Data1.DatabaseName = App.Path & "\db\gudang.mdb"

Timer1_Timer

End Sub

Private Sub Form_Unload(Cancel As Integer)

If Data1.Recordset!hakakses = "1" Then

    admin

Else

    user

End If

MASUK.lbluser.Caption = txtuser.Text

keluar.lbluser.Caption = txtuser.Text

End Sub

Private Sub Timer1_Timer()

Label5.Caption = Label5.Caption & ". "

a = a + 1

    If a = 10 Then

    Label5.Visible = False

        Label2.Visible = True

        Label3.Visible = True

        Label1.Visible = True

        Label6.Visible = True

        txtuser.Visible = True

        txtpass.Visible = True

        End If

End Sub

Private Sub txtpass_KeyPress(KeyAscii As Integer)

If KeyAscii = 27 Then tanya

If KeyAscii = 13 Then login

End Sub

Private Sub txtuser_KeyPress(KeyAscii As Integer)

KeyAscii = Asc(UCase(Chr(KeyAscii)))

If KeyAscii = 13 Then txtpass.SetFocus

If KeyAscii = 27 Then tanya

End Sub

Itulah Langkah demi Langkah pembuatan Menu Login yang saya rasa sangat penting dan wajib diketahui oleh pada pemula yang sedang belajar pemrograman.

SELAMAT MENCOBA