Scribd
Upload
34 views13 pages

Library User Login and Management System

This document contains code for a library management system written in Visual Basic. It includes modules and classes for connecting to a database, performing login authentication, and managing users. The main parts are: 1) A Module class that establishes a connection to a database and declares commands and adapters for querying. 2) A Login class that handles the login form, validating credentials against the database and loading the home screen upon success. 3) A Menu_Utama class representing the home screen, with buttons to access forms for managing books, users, categories etc. 4) A User class containing code for the user management form, allowing adding, editing and deleting of user records from the database.

Uploaded by

sayidalgifary3
Copyright
© © All Rights Reserved
We take content rights seriously. If you suspect this is your content, claim it here.
Available Formats
Download as DOCX, PDF, TXT or read online on Scribd
34 views13 pages

Library User Login and Management System

This document contains code for a library management system written in Visual Basic. It includes modules and classes for connecting to a database, performing login authentication, and managing users. The main parts are: 1) A Module class that establishes a connection to a database and declares commands and adapters for querying. 2) A Login class that handles the login form, validating credentials against the database and loading the home screen upon success. 3) A Menu_Utama class representing the home screen, with buttons to access forms for managing books, users, categories etc. 4) A User class containing code for the user management form, allowing adding, editing and deleting of user records from the database.

Uploaded by

sayidalgifary3
Copyright
© © All Rights Reserved
We take content rights seriously. If you suspect this is your content, claim it here.
Available Formats
Download as DOCX, PDF, TXT or read online on Scribd

Module

Imports [Link]
Module Module1
Public conn As OdbcConnection
Public ds As DataSet
Public cmd As OdbcCommand
Public da As OdbcDataAdapter
Public dr As OdbcDataReader

Public Sub koneksi()


conn = New OdbcConnection("Dsn=perpustakaan_adanwel")
[Link]()
End Sub
End Module

Login

Imports [Link]
Public Class Login
Private Sub Login_Load(ByVal sender As [Link], ByVal e As
[Link]) Handles [Link]
[Link] = Format(Today)
End Sub
Dim dicoba As String
Sub hapus()
[Link]()
[Link]()
[Link] = ""
End Sub
Private Sub Timer1_Tick(ByVal sender As [Link], ByVal e As
[Link]) Handles [Link]
[Link] = TimeOfDay
End Sub
Private Sub tbiduser_KeyPress(ByVal sender As Object, ByVal e As
[Link]) Handles [Link]
[Link] = 20

If [Link] = Chr(13) Then


[Link]()
[Link] = True
End If

End Sub
Private Sub tbpw_KeyPress(ByVal sender As Object, ByVal e As
[Link]) Handles [Link]
[Link] = 20

If [Link] = Chr(13) Then


[Link]()
[Link] = True
End If
End Sub
Private Sub btnlogin_Click(ByVal sender As [Link], ByVal e As
[Link]) Handles [Link]
If [Link] = "" Or [Link] = "" Or [Link] = ""
Then
MsgBox("Masukan Semua Data Anda!.", [Link],
"Informasi")
[Link]()
Exit Sub
End If
Call koneksi()
cmd = New OdbcCommand("select * from user where id_user='" &
[Link] & "' and password='" & [Link] & "' and status_user='" &
[Link] & "'", conn)
dr = [Link]
[Link]()

If [Link] Then
[Link] = False
Menu_Utama.Show()
Menu_Utama.[Link] = Format("Nama User :" &
dr("nama_lengkap"))
Menu_Utama.[Link] = Format("Status User :" &
dr("status_user"))
Menu_Utama.[Link] = dr("id_user")
Menu_Utama.[Link] = dr("nama_lengkap")
Menu_Utama.[Link] = dr("status_user")

'cmd = New OdbcCommand("select * from koleksi_pribadi inner


join koleksi_pribadi.id_buku = buku.id_buku where id_user='" &
dr("id_user") & "'", conn)
'dr = [Link]
'Menu_Utama.[Link]()
'Do While [Link]
'Menu_Utama.[Link](dr("id_buku") & Space(2) &
dr("judul"))
'Loop
Else
dicoba = dicoba + 1
MsgBox("Log-In Gagal!.")
[Link]()

If dicoba > 2 Then


Call hapus()
MsgBox("Anda Telah Mencoba Log-In Lebih Dari 3 Kali,Silahkan
Coba Lagi Nanti!", [Link], "WARNING")
End If

End If

End Sub
Private Sub Button2_Click(ByVal sender As [Link], ByVal e As
[Link]) Handles [Link]
End
End Sub

Private Sub cekbpw_CheckedChanged(ByVal sender As [Link], ByVal


e As [Link]) Handles [Link]
If [Link] = True Then
[Link] = ""
Else
[Link] = "●"
End If
End Sub
End Class

Home

Public Class Menu_Utama


Private Sub Menu_Utama_Load(ByVal sender As [Link], ByVal e As
[Link]) Handles [Link]

End Sub

Private Sub Timer1_Tick(ByVal sender As [Link], ByVal e As


[Link]) Handles [Link]
[Link] = Format(TimeOfDay)
End Sub
Private Sub btnbuku_Click(ByVal sender As [Link], ByVal e As
[Link]) Handles [Link]
[Link]()
End Sub
Private Sub ExitToolStripMenuItem_Click(ByVal sender As [Link],
ByVal e As [Link]) Handles [Link]
End
End Sub
Private Sub btnexit_Click(ByVal sender As [Link], ByVal e As
[Link]) Handles [Link]
End
End Sub
Private Sub btnuser_Click(ByVal sender As [Link], ByVal e As
[Link]) Handles [Link]
[Link]()
End Sub
Private Sub btnkategori_Click(ByVal sender As [Link], ByVal e As
[Link]) Handles [Link]
[Link]()
End Sub
Private Sub LogOutToolStripMenuItem_Click(ByVal sender As
[Link], ByVal e As [Link]) Handles
[Link]
If [Link]("Apakah Yakin Akan Log-Out Dari Aplikasi?.",
"INFORMASI", [Link]) =
[Link] Then
[Link]()
[Link]()
[Link]()
End If
End Sub
Private Sub btnlogout_Click(ByVal sender As [Link], ByVal e As
[Link]) Handles [Link]
If [Link]("Apakah Yakin Akan Log-Out Dari Aplikasi?.",
"INFORMASI", [Link]) =
[Link] Then
[Link]()
[Link]()
[Link]()
End If

End Sub
End Class

User

Imports [Link]
Public Class User
Private Sub User_Load(ByVal sender As [Link], ByVal e As
[Link]) Handles [Link]
Call tampil_grid()
End Sub
Sub hapus()
[Link]()
[Link]()
[Link]()
[Link]()
[Link] = ""
End Sub
Sub panggil_kode()
Call koneksi()
cmd = New OdbcCommand("Select * from user where id_user = '" &
[Link] & "'", conn)
dr = [Link]
[Link]()
End Sub
Sub panggil_data()
On Error Resume Next
[Link] = dr("nama_lengkap")
[Link] = dr("password")
[Link] = dr("status_user")
[Link] = dr("email")
[Link] = dr("alamat_user")
End Sub
Sub tampil_grid()
Call koneksi()
da = New OdbcDataAdapter("select id_user, nama_lengkap,
status_user, email, alamat_user from user", conn)
ds = New DataSet
[Link](ds)
[Link] = [Link](0)
[Link] = True
End Sub
Private Sub tbiduser_KeyPress(ByVal sender As Object, ByVal e As
[Link]) Handles [Link]
[Link] = 11
If [Link] = Chr(13) Then
[Link]()
Call panggil_kode()
[Link] = True

If [Link] Then
Call panggil_data()
Else
Call hapus()
End If

End If

End Sub
Private Sub tbnama_KeyPress(ByVal sender As Object, ByVal e As
[Link]) Handles [Link]
[Link] = 30

If [Link] = Chr(13) Then


[Link]()
[Link] = True
End If

End Sub
Private Sub tbpw_KeyPress(ByVal sender As Object, ByVal e As
[Link]) Handles [Link]
[Link] = 30

If [Link] = Chr(13) Then


[Link]()
[Link] = True
End If

End Sub
Private Sub cbstts_KeyPress(ByVal sender As Object, ByVal e As
[Link]) Handles [Link]
[Link] = 50

If [Link] = Chr(13) Then


[Link]()
[Link] = True
End If
End Sub
Private Sub tbemail_KeyPress(ByVal sender As Object, ByVal e As
[Link]) Handles [Link]
[Link] = 50

If [Link] = Chr(13) Then


[Link]()
[Link] = True
End If

End Sub
Private Sub tbalamat_KeyPress(ByVal sender As Object, ByVal e As
[Link]) Handles [Link]
[Link] = 50
If [Link] = Chr(13) Then

End If
End Sub
Private Sub btnsv_Click(ByVal sender As [Link], ByVal e As
[Link]) Handles [Link]
If [Link] = "" Or [Link] = "" Or [Link] = "" Or
[Link] = "" Or [Link] = "" Or [Link] = "" Then
MsgBox("Masukan Semua Data Anda!.", [Link],
"Informasi")
Else
Call panggil_kode()

If Not [Link] Then


Dim simpan As String = "insert into user values('" &
[Link] & "','" & [Link] & "','" & [Link] & "','" &
[Link] & "','" & [Link] & "','" & [Link] & "')"
cmd = New OdbcCommand(simpan, conn)
[Link]()
MsgBox("Data Berhasil Di Simpan.", [Link],
"Informasi")
Else
Dim edit As String = "update user set nama_lengkap='" &
[Link] & "', password='" & [Link] & "',status_user='" & [Link]
& "',email='" & [Link] & "',alamat_user='" & [Link] & "' where
id_user='" & [Link] & "'"
cmd = New OdbcCommand(edit, conn)
[Link]()
MsgBox("Data Berhasil Di Edit.", [Link],
"Informasi")
End If
Call tampil_grid()
Call hapus()
[Link]()
[Link]()
End If
End Sub
Private Sub btnhps_Click(ByVal sender As [Link], ByVal e As
[Link]) Handles [Link]
If [Link] = "" Or [Link] = "" Or [Link] = "" Or
[Link] = "" Or [Link] = "" Or [Link] = "" Then
MsgBox("Masukan Semua Data Anda!.", [Link],
"Informasi")
Else
Call panggil_kode()

If [Link]("Apakah Yakin Data Akan di Hapus!.",


"INFORMASI", [Link]) =
[Link] Then
Dim hapus As String = "delete from user where id_user='" &
[Link] & "'"
cmd = New OdbcCommand(hapus, conn)
[Link]()
MsgBox("Data Berhasil Di Hapus.", [Link],
"Informasi")
End If
Call tampil_grid()
Call hapus()
[Link]()
[Link]()
'call tampil_grid_member
End If
End Sub
Private Sub btnbtl_Click(ByVal sender As [Link], ByVal e As
[Link]) Handles [Link]
Call hapus()
[Link]()
[Link]()
End Sub
Private Sub btnttp_Click(ByVal sender As [Link], ByVal e As
[Link]) Handles [Link]
[Link]()
End Sub
End Class

Kategori

Imports [Link]
Public Class Kategori

Private Sub Kategori_Load(ByVal sender As [Link], ByVal e As


[Link]) Handles [Link]
Call tampil_grid()
End Sub
Sub hapus()
[Link]()
End Sub
Sub panggil_kode()
Call koneksi()
cmd = New OdbcCommand("Select * from kategori_buku where
id_kategori = '" & [Link] & "'", conn)
dr = [Link]
[Link]()
End Sub
Sub panggil_data()
On Error Resume Next
[Link] = dr("id_kategori")
[Link] = dr("nama_kategori")
End Sub
Sub tampil_grid()
Call koneksi()
da = New OdbcDataAdapter("select * from kategori_buku", conn)
ds = New DataSet
[Link](ds)
[Link] = [Link](0)
[Link] = True
End Sub
Private Sub tbidkat_KeyPress(ByVal sender As Object, ByVal e As
[Link]) Handles [Link]
[Link] = 20

If [Link] = Chr(13) Then


[Link]()
Call panggil_kode()
[Link] = True

If [Link] Then
Call panggil_data()
Else
Call hapus()
End If

End If

End Sub
Private Sub tbnamakat_KeyPress(ByVal sender As Object, ByVal e As
[Link]) Handles [Link]
[Link] = 30

If [Link] = Chr(13) Then


[Link] = True
End If

End Sub
Private Sub btnsv_Click(ByVal sender As [Link], ByVal e As
[Link]) Handles [Link]
If [Link] = "" Or [Link] = "" Then
MsgBox("Masukan Semua Data Anda!.", [Link],
"Informasi")
Else
Call panggil_kode()

If Not [Link] Then


Dim simpan As String = "insert into kategori_buku values('"
& [Link] & "','" & [Link] & "')"
cmd = New OdbcCommand(simpan, conn)
[Link]()
MsgBox("Data Berhasil Di Simpan.", [Link],
"Informasi")
Else
Dim edit As String = "update user set nama_kategori='" &
[Link] & "' where id_kategori='" & [Link] & "'"
cmd = New OdbcCommand(edit, conn)
[Link]()
MsgBox("Data Berhasil Di Edit.", [Link],
"Informasi")
End If
Call tampil_grid()
Call hapus()
[Link]()
[Link]()
End If
End Sub
Private Sub btnbtl_Click(ByVal sender As [Link], ByVal e As
[Link]) Handles [Link]
Call hapus()
[Link]()
[Link]()
End Sub
Private Sub btnhps_Click(ByVal sender As [Link], ByVal e As
[Link]) Handles [Link]
If [Link] = "" Or [Link] = "" Then
MsgBox("Masukan Semua Data Anda!.", [Link],
"Informasi")
Else
Call panggil_kode()
If [Link]("Apakah Yakin Data Akan di Hapus!.",
"INFORMASI", [Link]) =
[Link] Then
Dim hapus As String = "delete from kategori_buku where
id_kategori='" & [Link] & "'"
cmd = New OdbcCommand(hapus, conn)
[Link]()
MsgBox("Data Berhasil Di Hapus.", [Link],
"Informasi")
End If
Call tampil_grid()
Call hapus()
[Link]()
[Link]()
'call tampil_grid_member
End If
End Sub
Private Sub btnttp_Click(ByVal sender As [Link], ByVal e As
[Link]) Handles [Link]
[Link]()
End Sub
End Class

Buku

Imports [Link]
Public Class Buku
Private Sub Buku_Load(ByVal sender As [Link], ByVal e As
[Link]) Handles [Link]
Call tampil_grid()
Call tampil_kategori()
End Sub

Sub hapus()
[Link]()
[Link] = ""
[Link]()
[Link]()
[Link]()
[Link]()
[Link] = ""
End Sub
Sub panggil_kode()
Call koneksi()
cmd = New OdbcCommand("Select * from buku inner join kategori_buku
on buku.id_kategori = kategori_buku.id_kategori where buku.id_buku = '" &
[Link] & "'", conn)
dr = [Link]
[Link]()
End Sub
Sub panggil_data()
On Error Resume Next
[Link] = dr("judul")
[Link] = dr("nama_kategori")
[Link] = dr("penulis")
[Link] = dr("penerbit")
[Link] = dr("alamat")
[Link] = dr("tahun_terbit")
[Link] = dr("ketersediaan_buku")
End Sub
Sub tampil_grid()
Call koneksi()
da = New OdbcDataAdapter("select * from buku", conn)
ds = New DataSet
[Link](ds)
[Link] = [Link](0)
[Link] = True
End Sub

Sub tampil_kategori()
Call koneksi()
cmd = New OdbcCommand("select * from kategori_buku", conn)
dr = [Link]
Do While [Link]
[Link](dr("nama_kategori"))
Loop
End Sub
Sub ubahKategori()
Call koneksi()
cmd = New OdbcCommand("select * from kategori_buku where
nama_kategori='" & [Link] & "'", conn)
dr = [Link]
[Link]()
End Sub
Private Sub tbidbuku_KeyPress(ByVal sender As Object, ByVal e As
[Link]) Handles [Link]
[Link] = 20

If [Link] = Chr(13) Then


[Link]()
Call panggil_data()
[Link] = True

Call panggil_kode()

If [Link] Then
Call panggil_data()
Else
Call hapus()
End If

End If

End Sub
Private Sub tbjudul_KeyPress(ByVal sender As Object, ByVal e As
[Link]) Handles [Link]
[Link] = 250

If [Link] = Chr(13) Then


[Link]()
[Link] = True
End If

End Sub
Private Sub cbkat_KeyPress(ByVal sender As Object, ByVal e As
[Link]) Handles [Link]
[Link] = 50

If [Link] = Chr(13) Then


[Link]()
End If

End Sub
Private Sub tbpenulis_KeyPress(ByVal sender As Object, ByVal e As
[Link]) Handles [Link]
[Link] = 250

If [Link] = Chr(13) Then


[Link]()
[Link] = True
End If

End Sub
Private Sub tbpenerbit_KeyPress(ByVal sender As Object, ByVal e As
[Link]) Handles [Link]
[Link] = 250

If [Link] = Chr(13) Then


[Link]()
[Link] = True
End If

End Sub
Private Sub tbalamat_KeyPress(ByVal sender As Object, ByVal e As
[Link]) Handles [Link]
[Link] = 250

If [Link] = Chr(13) Then


[Link]()
[Link] = True
End If

End Sub
Private Sub tbthterbit_KeyPress(ByVal sender As Object, ByVal e As
[Link]) Handles [Link]
[Link] = 250

If [Link] = Chr(13) Then


[Link]()
[Link] = True
End If

End Sub
Private Sub btnsv_Click(ByVal sender As [Link], ByVal e As
[Link]) Handles [Link]

If [Link] = "" Or [Link] = "" Or [Link] = "" Or


[Link] = "" Or [Link] = "" Or [Link] = "" Or
[Link] = "" Or [Link] = "" Or [Link] = "" Then
MsgBox("Masukan Semua Data Anda!.", [Link],
"Informasi")
End If

Call panggil_kode()

If Not [Link] Then


Call ubahKategori()
Dim simpan As String = "insert into buku values('" &
[Link] & "','" & dr("id_kategori") & "', '" & [Link] & "', '"
& dr("nama_kategori") & "', '" & [Link] & "', '" & [Link]
& "', '" & [Link] & "', '" & [Link] & "', 'Tersedia' )"
cmd = New OdbcCommand(simpan, conn)
[Link]()
MsgBox("Data Berhasil Di Simpan!.", [Link],
"Informasi")
Else
Call ubahKategori()
Dim edit As String = "update buku set id_kategori='" &
dr("id_kategori") & "', judul='" & [Link] & "', penulis='" &
[Link] & "', penerbit='" & [Link] & "', tahun_terbit='" &
[Link] & "', alamat='" & [Link] & "' where id_buku='" &
[Link] & "'"
cmd = New OdbcCommand(edit, conn)
[Link]()
MsgBox("Data berhasil diedit!", [Link],
"Informasi")
End If
Call tampil_grid()
Call hapus()
[Link]()
[Link]()
End Sub
Private Sub btnbtl_Click(ByVal sender As [Link], ByVal e As
[Link]) Handles [Link]
Call hapus()
[Link]()
[Link]()
End Sub
Private Sub btnhps_Click(ByVal sender As [Link], ByVal e As
[Link]) Handles [Link]

If [Link] = "" Or [Link] = "" Or [Link] = "" Or


[Link] = "" Or [Link] = "" Or [Link] = "" Or
[Link] = "" Or [Link] = "" Or [Link] = "" Then
MsgBox("Harap isi semua data!", [Link],
"Informasi")
End If

If [Link]("Yakin data ingin dihapus?", "Warning!",


[Link]) = [Link] Then
Dim hapus As String = "delete from buku where id_buku='" &
[Link] & "'"
cmd = New OdbcCommand(hapus, conn)
[Link]()
MsgBox("Data berhasil dihapus!", [Link],
"Informasi")
End If
Call tampil_grid()
Call hapus()
[Link]()
[Link]()
End Sub
Private Sub btnttp_Click(ByVal sender As [Link], ByVal e As
[Link]) Handles [Link]
[Link]()
End Sub
Private Sub Label1_Click(ByVal sender As [Link], ByVal e As
[Link]) Handles [Link]

End Sub
End Class

You might also like