CARA MEMBUAT HAK ASES LOGIN PADA VISUAL BASIC 6.0

Oleh peistar

Sunday, 8 May 2016

Bagikan :

Tweet

Hak Ases untuk login digunakan untuk memberikan kenyamanan privasi pengguna untuk mengakses suatu aplikasi. Oleh karena itu posting kali ini saya buat mengenai cara membuat hak ases untuk login, bisa juga diartikan berbasikan multiuser menggunakan bahasa pemrograman Visual Basic 6.0.

Dengan menfaatkan aplikasi berbasis multiuser ini kita dapat mengguanakan jaringan local network sebagai fasilitas untuk mengkoneksikan atar komputer satu dan komputer lainya.

Adapun cara atau langkah –langkah pengerjaanya dapat saudara lihat pada langkah – langkah berikut ini :

- Pertama : Pastikan saudara membuat Form Login seperti gambar dibawah ini.

Keterangan : Form login ini hampir sama dengan Form Login lainya, tapi kita butuh menambahkan satu komponen lagi atau ketentuan  hak akses untuk tiap – tiap pengguna. Disini saya hanya menambahkan satu label lagi yang nantinya saya gunakan untuk pemberitahuan hak akses untuk pengguna seperti gambar diatas.

- Kedua : Pada Form Login kita masukan Coding Program yang ada dibawah ini kedalam Button Login.

 Coding Program :

Set Rs = New ADODB.Recordset

Rs.CursorLocation = adUseClient

Rs.Open "Select * From tUser where Nama='" & Text1.Text & "' and Pass='" & Text2.Text & "'", con

If Rs!Status = "DOSEN" Then

    Form4.Input.Enabled = True

    Form4.LAPORAN.Enabled = True

    Form4.MATAKULIAH.Enabled = True

    Form4.FAKULTAS.Enabled = False

    Form4.NILAI.Enabled = False

    Form4.FAKULTAS.Enabled = False

    Form4.MAHASISWA.Enabled = False

    

    Form4.LAP_MAHASISWA.Enabled = False

    Form4.DM.Enabled = False

    Form4.LAP_NILAI.Enabled = True

    Form4.STUDI.Enabled = False

    Form4.Show

ElseIf Rs!Status = "STAFF" Then

    Form4.Input.Enabled = True

    Form4.LAPORAN.Enabled = True

    

    Form4.MATAKULIAH.Enabled = True

    Form4.FAKULTAS.Enabled = True

    Form4.NILAI.Enabled = True

    Form4.FAKULTAS.Enabled = True

    Form4.MAHASISWA.Enabled = True

    

    Form4.LAP_MAHASISWA.Enabled = True

    Form4.DM.Enabled = True

    Form4.LAP_NILAI.Enabled = True

    Form4.STUDI.Enabled = True

    Form4.Show

    

Else

MsgBox "Maaf,Anda Tidak Berhak", vbInformation, "Peringatan"

End If

Keterangan : Terlebih dahulu kita harus membuat sebuah tabel yang diberi nama tUser dengan 3 (Tiga) Field seperti gambar dibawah ini.

Tabel tUSer

 Data tUser

- Ketiga : Pada Coding Program yang telah ditandai yaitu pada Field Status digunakan untuk memberikan hak akses untuk masuk kedalam program, disini saya Contohkan untuk Status yang saya gunakan yaitu “DOSEN” dan “STAFF”.

 Keterangan : Apabila pengguna masuk sebagai “DOSEN” maka pengguna hanya dapat mengelola Menu “INPUT DATA” yaitu MATAKULIAH, dan Menu “LAPORAN” yaitu LAPORAN NILAI dan juga sebaliknya pengguna yang masuk dengan status “STAFF”.

Apabila Menu atau Sub menu dengan ketentuan Enabled = True maka Menu tersebut akan aktif dan sebaliknya apabila ketentuan Enabled = False maka menu dan sub menu tersebut tidak akan aktif.

Untuk Form4 menandakan posisi menu utama

- Keempat : Untuk memanggil Nama pengguna, Password, dan Status pengguna hal yang harus kita lakukan adalah Klik 2 kalia pada Text1.Text atau Posisi Nama Pengguna kemudian arahkan  Procedure dipojok kanan atas ke LostFocus seperti gambar dibawah ini.

Coding Program :

Set Rs = New Recordset

Rs.Open " SELECT * From tUser where Nama = '" & Text1.Text & "'", con, adOpenStatic, adLockOptimistic

If Not Rs.EOF Then

Label5.Caption = Rs.Fields("Status")

ElseIf Text1.Text = "" Then

Label5.Caption = ""

Set Rs = Nothing

End If

Demikianlah tutorial pembagian hak akses menggunakan Visual Basic 6.0 ini semoga bermanfaat untuk kita semua akhir kata penulis ucapkan terimakasih atas kunjungan saudara. Wasallammm...!!

Tag : Pemrograman Visual Basic 6.0