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.
Seting preferences dengan cara klik menu project --> preferences --> Microsoft activeX data objects 2.0 library.
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
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.
Seting preferences dengan cara klik menu project --> preferences --> Microsoft activeX data objects 2.0 library.
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).
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.
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
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
tambah warning gan buat password salah :D
ReplyDeletebtw, nice post
siip. thanks
DeletePermisi mau tanya. Kenapa database access nya di koneksikan pake modul ya ? Bukan nya uda ada ADO tool ya ?
ReplyDeletebanyak macam utk koneksi ke database mas hehe
Delete