Gelandang Internet yang mencoba melewati lorong sempit tanpa batas ruang dan waktu

Membuat Form Login di VB dengan Database Acces

· · 4 comments
Assalamu'alaikum, wr.wb

Cara Membuat Form Login dengan Database Acces di Visual Basic (VB) - Selamat datang kembali rekan-rekan. Kali ini mengenai tutorial bagaimana membuat form login admin di bahasa pemograman  VB (visual basic) dengan username dan pasword ditampung pada sebuah database acces. Form login merukan hal wajib pada sebuah program untuk memproteksi penggunaan program dari orang-orang yang tidak bertanggungjawab. Apalagi data yang ada pada program kita tersebut bersifat penting.

Cara buat form login menggunakan database acces  di visual basic 6.0, perhatikan mantera-mantera dibawah ini dengan cara seksama tanpa adanya unsur paksaan dari siapapun, hihi.

Buat terlebih dahulu database untuk menampung username dan pasword dengan nama klinik.mdb. fieldnya username dan pasword. Tempatkan database satu folder dengan project yang akan kita buat. Untuk penjelasan lebih lanjut tentang cara membuat database :

baca disini --> Cara membuat database acces melalui visual data manager VB

Tambahkan komponen Microsoft ADO Data Control 6.0 terlebih dahulu dengan Ctrl + T seperti screenshot dibawah ini.

cara buat form login di VB


Seting preferences dengan cara klik menu project --> preferences --> Microsoft activeX data objects 2.0 library.

cara buat form login di VB dengan database

Buat sebuah projek dengan dua form dan satu modul. Form pertama kita gunakan sebagai login dan form kedua sebagai menu utama (disini masih dalam keadaan kosong).  

source code form login di visual basic (VB)

Buat sebuah modul dengan mantera dibawah ini :

Global conn As ADODB.Connection
Global rspasien As ADODB.Recordset
Global rsobat As ADODB.Recordset
Global rsterapi As ADODB.Recordset

Sub koneksi()
Set conn = New ADODB.Connection
conn.Provider = "microsoft.jet.oledb.4.0"
conn.CursorLocation = adUseClient
conn.Open App.Path & "\klinik.mdb"
End Sub

Perhatikan pada tulisan \klinik.mdb sesuaikan dengan nama database penampung username dan pasword rekan-rekan. Selanjutnya klik dua kali form 1 untuk memanggil modul yang kita buat diatas, masukkan mantera dibawah ini : 

Private Sub Form_Load()
koneksi
End Sub

Klik dua kali pada command button login, masukkan mantera dibawah ini : 

Private Sub Command1_Click()
If Text1.Text <> "" And Text2.Text <> "" Then
Set rslogin = New ADODB.Recordset
rslogin.LockType = adLockOptimistic
rslogin.CursorType = adOpenDinamic
rslogin.Open "select*from login where USERNAME = '" & Text1.Text & "' and PASSWORD ='" & Text2.Text & "'", conn, , , adCmdText
      If Not rslogin.EOF Then
            MsgBox ("Login Anda Berhasil")
            Form2.Show
            Form1.Visible = False
            Else
                MsgBox "User Name dan password Salah Silahkan Ulangi Kembali", vbCritical
                Exit Sub
      End If
End If
End Sub 

Sebelum menjalankan program form loginnya silahkan isi database secara manual saja terlebih dahulu. Untuk penyempurnaan rekan-rekan bisa membuat sebuah form khusus untuk mengelolah data username dan pasword. Setelah program dijalankan maka akan tampil sebagai berikut, dan jika username dan pasword benar maka akan masuk ke form 2 sebagai menu utama program.

Contoh program login d VB 6.0

Supaya ketika mengetikan pasword tampil dengan tanda bintang, silahkan rubah properti pada text2 (pasword) pada bagian pasword char dengan tanda *. Demikian cara membuat form login VB menggunakan database acces sebagai penampung username dan pasword nya. Moga manfaat. Begitulah kira-kira.

Baca juga ---> Membuat program menghitung diskon dengan visual basic

4 comments:

  1. tambah warning gan buat password salah :D
    btw, nice post

    ReplyDelete
  2. Permisi mau tanya. Kenapa database access nya di koneksikan pake modul ya ? Bukan nya uda ada ADO tool ya ?

    ReplyDelete

- Komentar yang mengandung hujatan, negatif akan dianggap spam
- Komentar link akan dilaporkan ke posyandu terdekat & tidak akan ditampilkan