Thanks to visit codestin.com
Credit goes to www.scribd.com

Scribd
Upload
76 views13 pages

CBT Lab Mini Project: Libary Management System

This document describes a library management system project created by three batch members using Visual Studio. The project aims to build a library management system to manage books and customer accounts. It lists the required components as a system, Windows operating system, and Visual Studio. It includes code snippets from the main form and customer form to demonstrate functionality for viewing and searching customer records.

Uploaded by

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

CBT Lab Mini Project: Libary Management System

This document describes a library management system project created by three batch members using Visual Studio. The project aims to build a library management system to manage books and customer accounts. It lists the required components as a system, Windows operating system, and Visual Studio. It includes code snippets from the main form and customer form to demonstrate functionality for viewing and searching customer records.

Uploaded by

Prince. Daf
Copyright
© © All Rights Reserved
We take content rights seriously. If you suspect this is your content, claim it here.
Available Formats
Download as PDF, TXT or read online on Scribd
You are on page 1/ 13

CBT LAB MINI PROJECT

BATCH-6
LIBARY MANAGEMENT SYSTEM
BATCH MEMBERS

M.LAVANYA 19DI17

V.SRI PRATHIUSHA 19DI23

S.SUJA 19DI35
AIM:
To build a Library management system using visual studio
COMPONENTS REQUIRED:

S.NO. FACILITIES REQUIRED QUANTITY

1 SYSTEM 1

2 O/S WINDOWS

5 VS studio 1

CODE:

LMS.slm
Public Class MainForm

Private Sub MainForm_FormClosing(ByVal sender As Object, ByVal e As


System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
My.Settings.MainSize = Me.Size
My.Settings.MainLocation = Me.Location
My.Settings.Save()
End Sub

Private Sub MainForm_Load(ByVal sender As System.Object, ByVal e As System.EventArgs)


Handles MyBase.Load
Try
Me.Size = My.Settings.MainSize
Me.Location = My.Settings.MainLocation
Me.BackgroundImage = Image.FromFile(My.Settings.MainImage)
Catch ex As Exception

End Try
End Sub

Private Sub ExitToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As


System.EventArgs) Handles ExitToolStripMenuItem.Click
Me.Close()
End Sub

Private Sub AddBooksToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As


System.EventArgs) Handles AddBooksToolStripMenuItem.Click
AddBooks.MdiParent = Me
AddBooks.Show()
End Sub
Private Sub IssueBookToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles IssueBookToolStripMenuItem.Click
IssueBook.MdiParent = Me
IssueBook.Show()
End Sub

Private Sub ReturnBookToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As


System.EventArgs) Handles ReturnBookToolStripMenuItem.Click
ReturnBook.MdiParent = Me
ReturnBook.Show()
End Sub

Private Sub BookReportToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As


System.EventArgs) Handles BookReportToolStripMenuItem.Click
BookDetail.MdiParent = Me
BookDetail.Show()
End Sub

Private Sub CloseAllToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As


System.EventArgs) Handles CloseAllToolStripMenuItem.Click
Dim child As Form
For Each child In MdiChildren
child.Close()
Next
End Sub

Private Sub AddGroupToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As


System.EventArgs) Handles AddGroupToolStripMenuItem.Click
GroupID.MdiParent = Me
GroupID.Show()
End Sub

Private Sub PictureToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As


System.EventArgs) Handles PictureToolStripMenuItem.Click
With OpenFileDialog1
.FileName = ""
.Filter = ".jpg|*.jpg|.png|*.png|.gif|*.gif|.bmp|*.bmp"
End With
If OpenFileDialog1.ShowDialog = Windows.Forms.DialogResult.OK Then
PictureToolStripMenuItem.Checked = True
Dim BackFile As String
BackFile = OpenFileDialog1.FileName
Me.BackgroundImage = Image.FromFile(BackFile)
My.Settings.MainImage = BackFile
My.Settings.Save()
End If
End Sub

Private Sub AddCustomerToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As


System.EventArgs) Handles AddCustomerToolStripMenuItem.Click
AddCustomer.MdiParent = Me
AddCustomer.Show()
End Sub

Private Sub ViewCustomerToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As


System.EventArgs) Handles ViewCustomerToolStripMenuItem.Click
CustomerDetail.MdiParent = Me
CustomerDetail.Show()
End Sub

Private Sub HelpToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As


System.EventArgs) Handles HelpToolStripMenuItem.Click
About.MdiParent = Me
About.Show()
End Sub

Private Sub BackgroundToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As


System.EventArgs) Handles BackgroundToolStripMenuItem.Click

End Sub

Private Sub AllRentedToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As


System.EventArgs) Handles AllRentedToolStripMenuItem.Click
AllRented.MdiParent = Me
AllRented.Show()
End Sub
End Class

CUSTOMER.vb
Public Class CustomerDetail
Public curr As String = My.Settings.CurrencyS
Private Sub CustomerDetail_Load(ByVal sender As System.Object, ByVal e As System.EventArgs)
Handles MyBase.Load
Call readDataW()
End Sub
Sub readDataW()
ListView1.Columns.Add("CUSTOMER ID", 90, HorizontalAlignment.Center)
ListView1.Columns.Add("CUSTOMER NAME", 140, HorizontalAlignment.Center)
ListView1.Columns.Add("CUSTOMER ADDRESS", 140, HorizontalAlignment.Center)
ListView1.Columns.Add("CONTACT NUMBER", 120, HorizontalAlignment.Center)
ListView1.Columns.Add("SECURITY AMOUNT", 120, HorizontalAlignment.Center)
ListView1.Columns.Add("ACTIVATION DATE", 120, HorizontalAlignment.Center)
ListView1.Columns.Add("VALID TILL", 120, HorizontalAlignment.Center)
ListView1.View = View.Details
End Sub
Sub readData()
ListView1.Clear()
ListView1.Columns.Add("CUSTOMER ID", 90, HorizontalAlignment.Center)
ListView1.Columns.Add("CUSTOMER NAME", 140, HorizontalAlignment.Center)
ListView1.Columns.Add("CUSTOMER ADDRESS", 140, HorizontalAlignment.Center)
ListView1.Columns.Add("CONTACT NUMBER", 120, HorizontalAlignment.Center)
ListView1.Columns.Add("SECURITY AMOUNT", 120, HorizontalAlignment.Center)
ListView1.Columns.Add("ACTIVATION DATE", 120, HorizontalAlignment.Center)
ListView1.Columns.Add("VALID TILL", 120, HorizontalAlignment.Center)
ListView1.View = View.Details
Try

If (objcon.State = ConnectionState.Closed) Then objcon.Open()


com = New OleDb.OleDbCommand("SELECT * FROM Customer", objcon)
dr = com.ExecuteReader
While dr.Read()
Call adddatatolistview(ListView1, dr(0), dr(1), dr(2), dr(3), dr(4), dr(5), dr(6))
End While
dr.Close()
objcon.Close()
Catch
'MsgBox("Please Refresh", MsgBoxStyle.Information, "")
End Try
End Sub
Public Sub adddatatolistview(ByVal lvw As ListView, ByVal CID As String, ByVal CName As String,
ByVal CAddress As String, ByVal CCont As String, ByVal Sec As String, ByVal CAct As String, ByVal
CVal As String)
Dim lv As New ListViewItem
lvw.Items.Add(lv)
lv.Text = CID
lv.SubItems.Add(CName)
lv.SubItems.Add(CAddress)
lv.SubItems.Add(CCont)
lv.SubItems.Add(curr + " " + Sec)
lv.SubItems.Add(CAct)
lv.SubItems.Add(CVal)
End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)


Handles Button1.Click
If TextBox1.Text = "" Then
Call readData()
Else
ListView1.Clear()
ListView1.Columns.Add("CUSTOMER ID", 90, HorizontalAlignment.Center)
ListView1.Columns.Add("CUSTOMER NAME", 140, HorizontalAlignment.Center)
ListView1.Columns.Add("CUSTOMER ADDRESS", 140, HorizontalAlignment.Center)
ListView1.Columns.Add("CONTACT NUMBER", 120, HorizontalAlignment.Center)
ListView1.Columns.Add("SECURITY AMOUNT", 120, HorizontalAlignment.Center)
ListView1.Columns.Add("ACTIVATION DATE", 120, HorizontalAlignment.Center)
ListView1.Columns.Add("VALID TILL", 120, HorizontalAlignment.Center)
ListView1.View = View.Details
Try

If (objcon.State = ConnectionState.Closed) Then objcon.Open()


com = New OleDb.OleDbCommand("SELECT * FROM Customer WHERE CID='" &
TextBox1.Text & "'", objcon)
dr = com.ExecuteReader
While dr.Read()
Call adddatatolistview(ListView1, dr(0), dr(1), dr(2), dr(3), dr(4), dr(5), dr(6))
End While
dr.Close()
objcon.Close()
Catch

End Try
End If
End Sub
Sub displayThem()

End Sub

Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As


System.EventArgs) Handles TextBox1.TextChanged
Dim i As Integer
ListView1.SelectedItems.Clear()
TextBox1.Focus()
Try
If Me.TextBox1.Text = "" Then

Else
For i = 0 To ListView1.Items.Count - 1
If TextBox1.Text = ListView1.Items(i).SubItems(0).Text Then
ListView1.Items(i).Selected = True
Exit For
End If
Next
End If
Catch

End Try
End Sub
End Class

Addcus.vb
Public Class AddCustomer
Public NameFrm, NameTo As String
Public curr As String = My.Settings.CurrencyS
Private Sub TextBox4_KeyDown(ByVal sender As Object, ByVal e As
System.Windows.Forms.KeyEventArgs) Handles TextBox4.KeyDown

End Sub
Private Sub TextBox4_LostFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles
TextBox4.LostFocus
TextBox4.Text = TextBox4.Text.Trim
End Sub
Private Sub TextBox4_TextChanged(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles TextBox4.TextChanged

End Sub

Private Sub Button9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)


Handles Button9.Click
Me.Close()
End Sub

Private Sub TextBox2_LostFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles


TextBox2.LostFocus
NameFrm = TextBox2.Text
Call Sentence()
TextBox2.Text = NameTo
End Sub

Private Sub TextBox2_TextChanged(ByVal sender As System.Object, ByVal e As


System.EventArgs) Handles TextBox2.TextChanged

End Sub
Sub Sentence()
Dim a, b As Integer
a = NameFrm.Length
NameTo = ""
For b = 0 To a - 1
If b = 0 Then
If Char.IsLower(NameFrm(0)) Then
NameTo = Char.ToUpper(NameFrm(0))
Else
NameTo = NameFrm(0)
End If
Else
If NameFrm(b - 1) = " " Then
NameTo = NameTo + Char.ToUpper(NameFrm(b))
Else
NameTo = NameTo + NameFrm(b)
End If
End If
Next
End Sub

Private Sub TextBox3_LostFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles


TextBox3.LostFocus
NameFrm = TextBox3.Text
Call Sentence()
TextBox3.Text = NameTo
End Sub

Private Sub TextBox3_TextChanged(ByVal sender As System.Object, ByVal e As


System.EventArgs) Handles TextBox3.TextChanged
End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)


Handles Button2.Click
If TextBox1.Text = "" Then
MsgBox("Please enter a Customer ID", 0, "")
Else
Try
If objcon.State = ConnectionState.Closed Then objcon.Open()
com = New OleDb.OleDbCommand("INSERT INTO Customer values('" & TextBox1.Text &
"','" & TextBox2.Text & "','" & TextBox3.Text & "','" & TextBox4.Text & "','" & TextBox5.Text & "','"
& DateTimePicker1.Text & "','" & DateTimePicker2.Text & "')", objcon)
If com.ExecuteNonQuery() Then MsgBox("Saved Success!", 0, "")
ListView1.Clear()
Call readData()
objcon.Close()
Call DisableThem()
Catch ex As Exception
MsgBox(ex.Message, 0, "")
End Try
End If
End Sub

Private Sub Button8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)


Handles Button8.Click
If TextBox1.Text = "" Then
MsgBox("Please enter the ID to be deleted!", 0, "")
Else
Try
objcon.Open()
com = New OleDb.OleDbCommand("delete from Customer where CID='" &
TextBox1.Text & "'", objcon)
If com.ExecuteNonQuery() Then
ListView1.Clear()
Call readData()
MsgBox("Deleted Success!", 0, "")
Else
MsgBox("ID Not Found!", 0, "")
End If

objcon.Close()
Catch ex As Exception
MsgBox(ex.Message, 0, "")
End Try
End If
End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)


Handles Button1.Click
Call EnableThem()
Call ClearField()
End Sub
Sub EnableThem()
TextBox1.Enabled = True
TextBox2.Enabled = True
TextBox3.Enabled = True
TextBox4.Enabled = True
TextBox5.Enabled = True
DateTimePicker1.Enabled = True
DateTimePicker2.Enabled = True
End Sub
Sub DisableThem()
'TextBox1.Enabled = False
TextBox2.Enabled = False
TextBox3.Enabled = False
TextBox4.Enabled = False
TextBox5.Enabled = False
DateTimePicker1.Enabled = False
DateTimePicker2.Enabled = False
End Sub

Private Sub AddCustomer_Load(ByVal sender As System.Object, ByVal e As System.EventArgs)


Handles MyBase.Load
Call DisableThem()
Call readData()
End Sub
Sub readData()
ListView1.Columns.Add("CUSTOMER ID", 90, HorizontalAlignment.Center)
ListView1.Columns.Add("CUSTOMER NAME", 210, HorizontalAlignment.Center)
ListView1.Columns.Add("CUSTOMER ADDRESS", 130, HorizontalAlignment.Center)
ListView1.Columns.Add("CONTACT #", 90, HorizontalAlignment.Center)
ListView1.Columns.Add("SECURITY", 90, HorizontalAlignment.Center)
ListView1.Columns.Add("ACTIVATION DATE", 130, HorizontalAlignment.Center)
ListView1.Columns.Add("VALID TILL", 90, HorizontalAlignment.Center)
Try

If (objcon.State = ConnectionState.Closed) Then objcon.Open()


com = New OleDb.OleDbCommand("SELECT * FROM Customer", objcon)
dr = com.ExecuteReader
While dr.Read()
Call adddatatolistview(ListView1, dr(0), dr(1), dr(2), dr(3), dr(4), dr(5), dr(6))
End While
dr.Close()
objcon.Close()
Catch
'MsgBox("Please Refresh", MsgBoxStyle.Information, "")
End Try
End Sub
Public Sub adddatatolistview(ByVal lvw As ListView, ByVal CID As String, ByVal CName As String,
ByVal CAddress As String, ByVal CCont As String, ByVal Sec As String, ByVal CAct As String, ByVal
CVal As String)
Dim lv As New ListViewItem
lvw.Items.Add(lv)
lv.Text = CID
lv.SubItems.Add(CName)
lv.SubItems.Add(CAddress)
lv.SubItems.Add(CCont)
lv.SubItems.Add(curr + " " + Sec)
lv.SubItems.Add(CAct)
lv.SubItems.Add(CVal)
End Sub
Sub ClearField()
TextBox1.Clear()
TextBox2.Clear()
TextBox3.Clear()
TextBox4.Clear()
TextBox5.Clear()
DateTimePicker1.Refresh()
DateTimePicker2.Refresh()
End Sub
Sub LoadInto()

End Sub

Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)


Handles Button5.Click
Try
Dim i As Integer
For i = 0 To ListView1.Items.Count - 1
If ListView1.Items(i).Selected = True Then
TextBox1.Text = ListView1.Items(i - 1).SubItems(0).Text
Exit For
End If
Next
ListView1.Focus()
ListView1.FullRowSelect = True
Catch ex As Exception
MsgBox(ex.Message, 0, "")
End Try
End Sub

Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)


Handles Button6.Click
Try
Dim i As Integer
For i = 0 To ListView1.Items.Count - 1
If ListView1.Items(i).Selected = True Then
TextBox1.Text = ListView1.Items(i + 1).SubItems(0).Text
Exit For
End If
Next
ListView1.Focus()
ListView1.FullRowSelect = True
Catch ex As Exception
MsgBox(ex.Message, 0, "")
End Try
End Sub

Private Sub ListView1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As


System.EventArgs) Handles ListView1.SelectedIndexChanged
Dim i As Integer
For i = 0 To ListView1.Items.Count - 1
If ListView1.Items(i).Selected = True Then
TextBox1.Text = ListView1.Items(i).SubItems(0).Text
TextBox2.Text = ListView1.Items(i).SubItems(1).Text
TextBox3.Text = ListView1.Items(i).SubItems(2).Text
TextBox4.Text = ListView1.Items(i).SubItems(3).Text
TextBox5.Text = ListView1.Items(i).SubItems(4).Text
DateTimePicker1.Text = ListView1.Items(i).SubItems(5).Text
DateTimePicker2.Text = ListView1.Items(i).SubItems(6).Text
Exit For
End If
Next
ListView1.Focus()
ListView1.FullRowSelect = True
End Sub

Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As


System.EventArgs) Handles TextBox1.TextChanged
Dim i As Integer
ListView1.SelectedItems.Clear()
TextBox1.Focus()
Try
If Me.TextBox1.Text = "" Then
TextBox2.Text = ""
Else
For i = 0 To ListView1.Items.Count - 1
If TextBox1.Text = ListView1.Items(i).SubItems(0).Text Then
TextBox2.Text = ListView1.Items(i).SubItems(1).Text
ListView1.Items(i).Selected = True
Exit For
End If
Next
End If
Catch

End Try
End Sub
End Class
OUTPUT:

RESULT:

THUS THE PROGRAM EXECUTED SUCCESSFULLY

You might also like