.:: Jasa Membuat Aplikasi Website,Desktop,Android Order Now..!! | | Order Now..!! Jasa Membuat Project Arduino,Robotic,Print 3D ::.

Form Login sederhana untuk mengatur hak akses (2)

0 komentar


بِسْــــــــــــــــمِ اﷲِالرَّحْمَنِ اارَّحِيم
bismillaahirrahmaanirrahiim

السَّلاَمُ عَلَيْكُمْ وَرَحْمَةُ اللهِ وَبَرَكَاتُهُ
Assalamu'alaikum warahmatullahi wabarakatuh


Langkah pertama siapkan menu pada sebuah form (-pilih sebuah form, klik kanan pilih Menu Editor-) misalnya dengan isi sebagai berikut :

Caption Name
Berkas mn001
....Log Off mn0011
....Exit mn0012
Data mn002
....Input mn0021
....Edit mn0022
....Delete mn0023
Report mn003
....Penjualan mn0031
....Laba Rugi mn0032




*untuk yang belum pernah membuat menu bisa baca artikel pada link ini : [ http://vbjadul.wordpress.com/2010/06/02/cara-membuat-menu-pada-visual-basic-6-0/ ]

Menu sudah selesai dibuat, langkah selanjutnya adalah membuat database-nya, dalam contoh ini kita menggunakan database MS-ACCESS, dengan susunan fiekd-fieldnya seperti pada artikel sebelumnya.

Selanjutnya tambahkan sebuah form untuk Form-Loginnya dengan design kurang lebih seperti terlihat dalam gambar di samping.

Masukkan beberapa baris code dibawah ini kedalam jendela code form login :
Private Sub Command1_Click()
    Set rs = New ADODB.Recordset
    rs.Open "SELECT hak_akses from TBlogin where id='" + _
    Text1.Text  + "' AND pass='" +  Text2.Text & "'", Con
    If Not rs.EOF Then
        Form1.mn001.Enabled = True
        Form1.mn002.Enabled = True
        Form1.mn003.Enabled = True
        hak_akses rs.Fields("hak_akses")
        Form1.Show
        Unload Me
    Else
        MsgBox "id dan/atau password Anda salah, akses dotolak", vbCritical, ".:Login"
    End If
End Sub

Private Sub Command2_Click()
    End
End Sub

Private Sub Form_Load()
    Connects
    Form1.mn001.Enabled = False
    Form1.mn002.Enabled = False
    Form1.mn003.Enabled = False
End Sub

Sub hak_akses(kode As String)
    With Form1
        Select Case kode
            Case 1
                .mn0022.Enabled = False
                .mn0023.Enabled = False
                .mn0031.Enabled = False
                .mn0032.Enabled = False
            Case 2
                .mn0032.Enabled = False
        End Select
    End With
End Sub
Jangan lupa juga untuk form utamanya tambahkan code dibawah ini :
Private Sub mn0011_Click()
     Unload Me
     Form2.Show
End Sub

Private Sub mn0012_Click()
     End
End Sub
Sampai disini sudah selesai, saatnya mencoba !
Tekan F5, sehingga muncul form Login, isi user dengan 1 dan password dengan 12345, maka semua menu (kecuali menu Log Off, Exit dan Data - Input) akan di disable alias tidak boleh diakses user ini. Coba user yang lain dengan Log Off dari menu utama (- Berkas - Log Off-), masukkan user 2 dan password isi dengan 12345, maka akses terhadap menu akan lebih banyak dari pada user yang pertama. Untuk menyesuaikan hak akses user sesuai keinginan Anda bisa dengan cara mengubah code pada Form Login pada Sub hak_akses, seperti telihat pada baris code dibawah ini :
Sub hak_akses(kode As String)
    With Form1
        Select Case kode
            Case 1 ' - - - - > user dengan hak akses 1,
                         '              menu-menu dibawah ini tidak dapat diakses
                         '              user dengan hak akses ini.
                .mn0022.Enabled = False
                .mn0023.Enabled = False
                .mn0031.Enabled = False
                .mn0032.Enabled = False
            Case 2
' - - - - > user dengan hak akses 2,
                         '              menu-menu dibawah ini tidak dapat diakses
                         '              user dengan hak akses ini.

                .mn0032.Enabled = False
            'Case 3
' - - - - > user dengan hak akses 3,
                         '              menu-menu dibawah ini tidak dapat diakses
                         '              user dengan hak akses ini.

             '....dst
         End Select

    End With
End Sub
Anda download sample project-nya di link ini :

Update Contact :
No Wa/Telepon (puat) : 085267792168
No Wa/Telepon (fajar) : 085369237896
Email : Fajarudinsidik@gmail.com
NB :: Bila Sobat tertarik Ingin membuat software, membeli software, membeli source code, membeli hardware elektronika untuk kepentingan Perusahaan maupun Tugas Akhir (TA/SKRIPSI), Insyaallah Saya siap membantu, untuk Respon Cepat dapat menghubungi kami, melalui :

No Wa/Telepon (puat) : 085267792168
No Wa/Telepon (fajar) : 085369237896
Email: Fajarudinsidik@gmail.com


atau Kirimkan Private messanger melalui email dengan klik tombol order dibawah ini :

ٱلْحَمْدُ لِلَّهِ رَبِّ ٱلْعَٰلَمِين
Alhamdulilah hirobil alamin

وَ السَّلاَمُ عَلَيْكُمْ وَرَحْمَةُ اللهِ وَبَرَكَاتُهُ
wassalamualaikum warahmatullahi wabarakatuh


Artikel Form Login sederhana untuk mengatur hak akses (2), Diterbitkan oleh scodeaplikasi pada Kamis, 03 Juni 2010. Semoga artikel ini dapat menambah wawasan Anda. Website ini dipost dari beberapa sumber, bisa cek disini sumber, Sobat diperbolehkan mengcopy paste / menyebar luaskan artikel ini, karena segala yang dipost di public adalah milik public. Bila Sobat tertarik Ingin membuat software, membeli software, membeli source code ,Dengan Cara menghubungi saya Ke Email: Fajarudinsidik@gmail.com, atau No Hp/WA : (fajar) : 085369237896, (puat) : 085267792168.

Tawk.to