1

Dim conn As ADODB.Connection
Dim rs As ADODB.Recordset
Dim ans As Integer


Private Sub br_Click()
Form27.Show
End Sub

Private Sub bsm_Click()
Unload Me
Form3.Show
End Sub

Private Sub Command1_Click()
If Text1.Text = "" Or Text2.Text = "" Then
MsgBox ("please enter user id and password")
Text1.Text = ""
Text2.Text = ""
Text1.SetFocus
Else


If Text1 <> "" Or Text2 <> "" Then
SQL = "select count(*) from login where userid ='" & Text1.Text & "' and password ='" & Text2.Text & "'"
Set rs = conn.Execute(SQL)
If rs(0) <> 0 Then
Frame1.Visible = True
Text1.Enabled = False
Text2.Enabled = False
Command1.Enabled = False
Command2.Enabled = True
Text3.SetFocus

Else

SQL = "select count(*) from libralogin where userid ='" & Text1.Text & "' and password ='" & Text2.Text & "'"
Set rs = conn.Execute(SQL)
If rs(0) <> 0 Then
MsgBox "UserName and Password are correct"
Frame1.Visible = True
Text1.Enabled = False
Text2.Enabled = False
Command1.Enabled = False
Command2.Enabled = True
Text3.SetFocus
Else
SQL = "select count(*) from stulogin where userid ='" & Text1.Text & "' and password ='" & Text2.Text & "'"
Set rs = conn.Execute(SQL)
If rs(0) <> 0 Then
MsgBox "UserName and Password are correct"
Frame1.Visible = True
Text1.Enabled = False
Text2.Enabled = False
Command1.Enabled = False
Command2.Enabled = True
Text3.SetFocus
Else

MsgBox "UserName and Password are invalid"
Text1.Text = ""
Text2.Text = ""
Text1.SetFocus


End If
End If
End If
End If
End If

End Sub

Private Sub Command10_Click()
Unload Me

End Sub

Private Sub Command11_Click()
Text3.Text = ""
Text7.Text = ""
Text8.Text = ""
Text4.Text = ""
Text3.Enabled = True
Command7.Enabled = True
Command3.Enabled = True
Text3.SetFocus
End Sub

Private Sub Command12_Click()
Text5.Text = ""
End Sub

Private Sub Command2_Click()
Text1.Text = ""
Text2.Text = ""
Text1.Enabled = True
Text2.Enabled = True
Frame1.Visible = False
Command1.Enabled = True
Text1.SetFocus
End Sub

Private Sub Command3_Click()
If Text4.Text = "borrowed" Then
MsgBox ("select another book. that book is borrowed alredy")
Else
If Text3.Text = "" And Text7.Text = "" And Text8.Text = "" And Text4.Text = "" Then
MsgBox ("check the availability or if any field is empty ")
Text3.SetFocus
Else
ans = MsgBox("do you confirm to borrow the book", vbYesNo, Save)
If ans = vbYes Then
SQL = "insert into borrowandreturn(userid,booktitle,authorname,subjectname,status) values('" & Text1.Text & "','" & (Text3.Text) & "','" & (Text7.Text) & "','" & (Text8.Text) & "','borrowed')"
Set rs = conn.Execute(SQL)

SQL = "update bookinformation set Status= 'borrowed' where BookTitle = '" + Trim(Text3.Text) + "'"
Set rs = conn.Execute(SQL)

MsgBox ("book borrowed successfully")

Text3.Enabled = False
Text7.Enabled = False
Text8.Enabled = False
Command7.Enabled = False
Command3.Enabled = False
Command1.Enabled = False
Command2.Enabled = False
Command4.Enabled = False
Else

End If
End If
End If
End Sub

Private Sub Command4_Click()
If Text4.Text = "available" Then
MsgBox "Cant return Book Which is Available"
Else
If Text4 = "borrowed" Then
SQL = "select count(*) from borrowandreturn where userid ='" & Text1.Text & "' and booktitle ='" & Text3.Text & "'"
Set rs = conn.Execute(SQL)
If rs(0) <> 0 Then

ans = MsgBox("Do you wish to return the book?", vbYesNo)
If ans = vbYes Then
SQL = "delete * from borrowandreturn where userid = '" & Text1.Text & "' and BookTitle = '" + Trim(Text3.Text) + "'"
Set rs = conn.Execute(SQL)
SQL = "update bookinformation set Status= 'available' where BookTitle = '" + Trim(Text3.Text) + "' "
Set rs = conn.Execute(SQL)
MsgBox "Book returned"
End If
Text3.Text = ""
Text7.Text = ""
Text8.Text = ""
Text4.Text = ""
Text7.Enabled = False
Text8.Enabled = False
Command4.Enabled = False
Text3.SetFocus

Else
MsgBox "you are not the one borrowed the book"
End If
End If
End If

End Sub

Private Sub Command5_Click()
If Text1.Text <> "" And Text2.Text <> "" And Text5.Text <> "" And Text9.Text <> "" And Text10.Text <> "" And Text6.Text <> "borrowed" Then
ans = MsgBox("do you confirm to borrow the book", vbYesNo, Save)
If ans = vbYes Then
SQL = "insert into borrowandreturn(userid,booktitle,authername,subjectname,status) values('" & Text1.Text & "','" & LCase(Text2.Text) & "','" & LCase(Text5.Text) & "','" & LCase(Text9.Text) & "','" & LCase(Text10.Text) & "','" & LCase(Text6.Text) & "')"
Set rs = conn.Execute(SQL)

SQL = "update bookinformation set Status= '" & borrowed & "' where BookTitle = '" + Trim(Text3.Text) + "'"
Set rs = conn.Execute(SQL)

MsgBox ("book borrowed successfully")
Else
MsgBox ("check the availability or if any field is empty ")
End If
End If
End Sub

Private Sub Command6_Click()
ans = MsgBox("Do you wish to return the book?", vbYesNo)

If ans = vbYes Then
SQL = "delete * from borrowandreturn where userid = '" & Text1.Text & "%'"
Set rs = conn.Execute(SQL)
'conn.Execute ("delete * from bookinformation where BookCode=" & Text1.Text)
MsgBox "Book returned"
End If
Text1.Text = ""
Text2.Text = ""
Text5.Text = ""
Text9.Text = ""
Text10.Text = ""
Text6.Text = ""
End Sub

Private Sub Command7_Click()
If Text3.Text = "" Then
MsgBox ("please enter book title")
Text3.SetFocus
Else
SQL = " select * from bookinformation where BookTitle like '" + Trim(Text3.Text) + "'"
Set rs = conn.Execute(SQL)
If rs.EOF() Then
MsgBox ("Book Title not found")
Text3.Text = ""
Text3.SetFocus
Else
Text7.Text = rs(3)
Text8.Text = rs(7)
Text4.Text = rs(9)
Command4.Enabled = True
Command3.Enabled = True
End If
End If
End Sub

Private Sub Command8_Click()
If Text5.Text = "" Then
MsgBox ("please enter book title")
Else
SQL = " select * from bookinformation where BookTitle like '" + Trim(Text5.Text) + "'"
Set rs = conn.Execute(SQL)
If rs.EOF() Then
MsgBox ("Book Title not found")
Else
Text9.Text = rs(3)
Text10.Text = rs(7)
Text6.Text = rs(9)

Text7.Enabled = False
Text8.Enabled = False
End If
End If
End Sub

Private Sub Command9_Click()
Text3.Text = ""
Text7.Text = ""
Text8.Text = ""
Text4.Text = ""
Text3.Enabled = True
Command7.Enabled = True
Command3.Enabled = True
Text3.SetFocus
End Sub

Private Sub Form_Load()

Set conn = New ADODB.Connection
conn.Open "provider=MSDASQL;DSN=bookinformation;uid=;pwd=;"
sql1 = "Select * from bookinformation"
Set rs = conn.Execute(sql1)
Do While Not rs.EOF
rs.MoveNext
Loop

Set conn = New ADODB.Connection
conn.Open "provider=MSDASQL;DSN=borrowandreturn;uid=;pwd=;"
sql1 = "Select * from bookinformation"
Set rs = conn.Execute(sql1)
Do While Not rs.EOF
rs.MoveNext
Loop

Command4.Enabled = False
Command3.Enabled = False

Text1.Text = ""
Text2.Text = ""
Text7.Enabled = False
Text8.Enabled = False
Frame1.Visible = False
Text1.Text = ""


End Sub

Private Sub logout_Click()

Dim confirm
confirm = MsgBox("Are you sure you want to Exit and log_out??", vbYesNo, "BOOK BORROW AND RETURN MENU")
If confirm = vbYes Then
Unload Me
MDIForm1.Show
End If


End Sub

Private Sub refresh_Click()
Unload Me
Form26.Show
Text1.SetFocus
End Sub

2
Contributors
1
Reply
2
Views
7 Years
Discussion Span
Last Post by AndreRet
0

With all this code, (my apollogies, I have not read through all of this) what are you trying to do? Do you receive an error or is it something you want to change?

This topic has been dead for over six months. Start a new discussion instead.
Have something to contribute to this discussion? Please be thoughtful, detailed and courteous, and be sure to adhere to our posting rules.