Membuat Form LOG IN dengan akses berbeda di VB.6

Membuat Form LOG IN dengan akses berbeda di VB.6

Create: nadir3011 | Jumat, 03 Januari 2014 | 00:46:07 WITA | dibaca: 11902

Assalamualaikum WR.WB

Bagimana liburnya brow n sis pastinya menyenangkan bisa berlibur bersama keluarga. Ok kita langsung saja ke pembahasannya, kali ini saya akan membuat tutorial tentang membuat form login dengan akses yang berbeda. Mungkin ada yang bertanya apa sih gunanya untuk memisahkan akses yang berbeda. Yap tentu saja guna dari akses yang berbeda ini yakni untuk memisahkan akses sebuah user dengan user yang lainnya disini saya membuat 2 akses yang berbeda yakni admin dan user. Dimana admin bisa melakukan apa saja terhadap program yang telah dibuat, sedangkan user hanya bisa melakukan pekerjaan yang telah batasi oleh si pembuat programer.

Pastikan form yang jalan diluan adalah form login

Ok kita langsung saja ke source kode programnya...

Terlebuh dahulu saya membuat module koneksi

 

Public conn As New ADODB.Connection

Public data As New ADODB.Recordset

Public carikan As New ADODB.Recordset

Public Sub koneksi() ‘procedure yang bersifat global dimana bisa dikenali di semua form

Set conn = New ADODB.Connection

Set data = New ADODB.Recordset

Set carikan = New ADODB.Recordset

conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + App.Path + "\gj_pegawai.mdb;Persist Security Info=False"

End Sub

 

 

Perintah di FORM LOGIN

 

Dim pesan ‘membuat variabel tanpa tipe data

 

Private Sub Command1_Click() ‘ tombol login

pencarian

End Sub

 

Private Sub Command2_Click() ‘tombol keluar dari program

pesan = MsgBox("ANDA INGIN KELUAR", vbYesNo + vbQuestion, "NADIR")

If pesan = vbYes Then

Unload Me

End If

End Sub

 

Private Sub Form_Load()

Adodc1.Visible = False ‘adodcnya di hidden (sembunyikan saat program berjalan)

bersihkan

End Sub

 

Private Sub bersihkan() ‘membuat procedure bersih

userku.Text = ""

pass.Text = ""

End Sub

 

Private Sub pencarian() ‘ procedure pencarian dengan tujuan untuk bisa mencari data didatabase

 

Dim a, b, c As String ‘tipe data yang digunakan untuk mengambil nilai yang ada didatabase

If userku.Text <> "" And pass.Text <> "" Then

    On Error Resume Next

    Call koneksi  ‘memanggil procedure koneksi yang ada di module koneksikan

    carikan.Open "SELECT * FROM master WHERE id = '" + userku.Text + "'", conn

                ‘perintah queri untuk menampilkan data berdasarkan userku.text

    If Not carikan.EOF Then

                ‘mengirim nilai dari field didatabase

            a = carikan!id

            b = carikan!pass

            c = carikan!akses

            If userku.Text = a And pass.Text = b And c = "admin" Then

                Unload Me

                utama.hakku.Caption = c 

‘mengirim nilai yang ada di var c ke form utama pada label hakku

                utama.Show ‘menampilkan form utama

                bersihkan

            Else