Coding page 3
SCHOOL MANAGEMENT SYSTEM PROJECT REPORT
OTHER PROJECTS YOU SHOULD REVIEW
frmbookissue
Dim rst As New ADODB.Recordset
Private Sub Combo3_Click()
Set rst = conn.Execute("SELECT name FROM CLASSrecord where class ='" & Combo2 & "' and section1 ='" & Combo3 & "' ORDER BY NAME")
Do While Not rst.EOF = True
Combo4.AddItem rst.Fields(0)
rst.MoveNext
Loop
rst.Close
End Sub
Private Sub Command1_Click()
If Option1 Then
If Text4.Text = "" Then
MsgBox "Please enter Card No.", vbExclamation, "Incomplete Record Entry"
Text4.SetFocus
Exit Sub
End If
If Text5.Text = "" Then
MsgBox "Please enter Roll No.", vbExclamation, "Incomplete Record Entry"
Text5.SetFocus
Exit Sub
End If
If Combo2.Text = "" Then
MsgBox "Please enter Class", vbExclamation, "Incomplete Record Entry"
Combo2.SetFocus
Exit Sub
End If
If Combo3.Text = "" Then
MsgBox "Please enter Section", vbExclamation, "Incomplete Record Entry"
Combo3.SetFocus
Exit Sub
End If
If Combo4.Text = "" Then
MsgBox "Please enter Name", vbExclamation, "Incomplete Record Entry"
Combo4.SetFocus
Exit Sub
End If
Set rs = conn.Execute("select id from bookcard where id = " & Val(Text4) & " and status = 'False'")
If rs.EOF = False Then
MsgBox "This Book is Already Issued", vbInformation, "Information"
rs.Close
Exit Sub
End If
rs.Close
conn.Execute ("insert into stdissue values(" & Text4 & ",'" & Combo2 & "','" & Combo3 & "','" & Combo4 & "'," & Text5 & ",'" & DTP1 & "','True')")
conn.Execute ("update bookcard set status = 'False' where id = " & Val(Text4) & "")
conn.Execute ("update stdissue set status = 'False' where cardno = " & Val(Text4) & " and class ='" & Combo2 & "' and section ='" & Combo3 & "' and name='" & Combo4 & "' and rollno =" & Text5 & " and date1 = " & DTP1 & "")
Text4 = ""
Text5 = ""
Combo2 = ""
Combo3 = ""
Combo4 = ""
ElseIf Option2 Then
If Text2.Text = "" Then
MsgBox "Please enter Card No.", vbExclamation, "Incomplete Record Entry"
Text2.SetFocus
Exit Sub
End If
If Text3.Text = "" Then
MsgBox "Please enter Emp Id.", vbExclamation, "Incomplete Record Entry"
Text3.SetFocus
Exit Sub
End If
If Combo1.Text = "" Then
MsgBox "Please enter Name", vbExclamation, "Incomplete Record Entry"
Combo1.SetFocus
Exit Sub
End If
Set rs = conn.Execute("select id from bookcard where id = " & Val(Text2) & " and status = 'False'")
If rs.EOF = False Then
MsgBox "This Book is Already Issued", vbInformation, "Information"
rs.Close
Exit Sub
End If
rs.Close
conn.Execute ("insert into staffissue values(" & Text2 & ",'" & Text3 & "','" & Combo1 & "'," & DTP1 & ",'True')")
conn.Execute ("update bookcard set status = 'False' where id = " & Val(Text2) & "")
conn.Execute ("update staffissue set status = 'False' where cardno = " & Val(Text2) & " and empid =" & Text3 & " and name ='" & Combo1 & "' and date1 = " & DTP1 & "")
Text2 = ""
Text3 = ""
Combo1 = ""
End If
Set rs = conn.Execute("select * from bookcard where status ='True' AND ID <>0")
MSF1.Clear
MSF1.Cols = 6
MSF1.Rows = 1
MSF1.FormatString = "Card No.|Subject |Book Name |Author |Publication | Edition "
If rs.EOF = False Then
Do While Not rs.EOF = True
MSF1.AddItem rs!id & Chr(9) & rs!subject & Chr(9) & rs!bookname & Chr(9) & rs!author & Chr(9) & rs!publi & Chr(9) & rs!edition
rs.MoveNext
Loop
End If
rs.Close
Set rs = conn.Execute("select * from bookcard where status ='False' AND ID <>0")
MSF2.Clear
MSF2.Cols = 6
MSF2.Rows = 1
MSF2.FormatString = "Card No.|Subject |Book Name |Author |Publication | Edition "
If rs.EOF = False Then
Do While Not rs.EOF = True
MSF2.AddItem rs!id & Chr(9) & rs!subject & Chr(9) & rs!bookname & Chr(9) & rs!author & Chr(9) & rs!publi & Chr(9) & rs!edition
rs.MoveNext
Loop
End If
rs.Close
End Sub
Private Sub Command2_Click()
Text2 = ""
Text3 = ""
Text4 = ""
Text5 = ""
Combo1 = ""
Combo2 = ""
Combo3 = ""
Combo4 = ""
i = InputBox("Please enter Card No. to be searched", "Searching")
If i = "" Then
Exit Sub
End If
Set rst = New ADODB.Recordset
rst.Open "select * from staffissue where cardno = '" & Val(i) & "' and status = 'False'", conn, adOpenDynamic, adLockOptimistic
If rst.EOF = False Then
Text2 = rst!cardno
Text3 = rst!empid
Combo1 = rst!Name
DTP1 = rst!date1
rst.Close
Exit Sub
End If
rst.Close
rst.Open "select * from stdissue where cardno = '" & Val(i) & "' and status = 'False'", conn, adOpenDynamic, adLockOptimistic
If rst.EOF = False Then
Text4 = rst!cardno
Combo2 = rst!Class
Combo3 = rst!section1
Combo4 = rst!Name
Text5 = rst!rollno
DTP1 = rst!date1
rst.Close
Exit Sub
Else
MsgBox "This Book is not issued", vbInformation, "Information"
End If
rst.Close
End Sub
Private Sub Command3_Click()
i = InputBox("Please enter Acc. No. to be returned", "Return Book")
If i = "" Then
Exit Sub
End If
Set rs = conn.Execute("select id from bookcard where id = " & i & " and status = 'True'")
If rs.EOF = False Then
MsgBox "This Book is Not Issued", vbInformation, "Information"
rs.Close
Exit Sub
End If
rs.Close
conn.Execute ("update bookcard set status = 'True' where id = " & i & "")
conn.Execute ("update staffissue set status = 'True' where cardno = " & i & "")
conn.Execute ("update stdissue set status = 'True' where cardno = " & i & "")
conn.Execute ("update stdissue set datereturn = " & Date & " where cardno = " & i & "")
conn.Execute ("update staffissue set datereturn = " & Date & " where cardno = " & i & "")
Set rs = conn.Execute("select * from bookcard where status ='True' AND ID <>0")
MSF1.Clear
MSF1.Cols = 6
MSF1.Rows = 1
MSF1.FormatString = "Card No.|Subject |Book Name |Author |Publication | Edition "
If rs.EOF = False Then
Do While Not rs.EOF = True
MSF1.AddItem rs!id & Chr(9) & rs!subject & Chr(9) & rs!bookname & Chr(9) & rs!author & Chr(9) & rs!publi & Chr(9) & rs!edition
rs.MoveNext
Loop
End If
rs.Close
Set rs = conn.Execute("select * from bookcard where status ='False' AND ID <>0")
MSF2.Clear
MSF2.Cols = 6
MSF2.Rows = 1
MSF2.FormatString = "Card No.|Subject |Book Name |Author |Publication | Edition "
If rs.EOF = False Then
Do While Not rs.EOF = True
MSF2.AddItem rs!id & Chr(9) & rs!subject & Chr(9) & rs!bookname & Chr(9) & rs!author & Chr(9) & rs!publi & Chr(9) & rs!edition
rs.MoveNext
Loop
End If
rs.Close
End Sub
Private Sub Command4_Click()
Unload Me
End Sub
Private Sub Form_Load()
Me.Left = MainForm.Width \ 2 - Me.Width \ 2
Me.Top = MainForm.ScaleHeight \ 2 - Me.Height \ 2
DTP1 = Date
Set rs = conn.Execute("select * from bookcard where status ='True'AND ID <>0")
MSF1.Cols = 6
MSF1.Rows = 1
MSF1.FormatString = "Card No.|Subject |Book Name |Author |Publication | Edition "
If rs.EOF = False Then
Do While Not rs.EOF = True
MSF1.AddItem rs!id & Chr(9) & rs!subject & Chr(9) & rs!bookname & Chr(9) & rs!author & Chr(9) & rs!publi & Chr(9) & rs!edition
rs.MoveNext
Loop
End If
rs.Close
Set rs = conn.Execute("select * from bookcard where status ='False'AND ID <>0")
MSF2.Cols = 6
MSF2.Rows = 1
MSF2.FormatString = "Card No.|Subject |Book Name |Author |Publication | Edition "
If rs.EOF = False Then
Do While Not rs.EOF = True
MSF2.AddItem rs!id & Chr(9) & rs!subject & Chr(9) & rs!bookname & Chr(9) & rs!author & Chr(9) & rs!publi & Chr(9) & rs!edition
rs.MoveNext
Loop
End If
rs.Close
Dim rst As New ADODB.Recordset
Set rst = conn.Execute("SELECT CLASSNAME From CLASSMaster")
Combo2 = rst.Fields(0)
Do While Not rst.EOF = True
Combo2.AddItem rst.Fields(0) & ""
rst.MoveNext
Loop
rst.Close
End Sub
Private Sub Option1_Click()
Frame3.Enabled = True
Frame4.Enabled = False
End Sub
Private Sub Option2_Click()
Frame4.Enabled = True
Frame3.Enabled = False
End Sub
Private Sub Text1_Change()
Set rs = conn.Execute("select * from bookCARD where ID = " & Val(Text1) & " ")
If rs.EOF = True Then
rs.Close
Label8 = ""
Label9 = ""
Label10 = ""
Label11 = ""
Label12 = ""
Exit Sub
End If
Label8 = rs!subject & ""
Label9 = rs!author & ""
Label10 = rs!bookname & ""
Label11 = rs!publi & ""
Label12 = rs!edition & ""
rs.Close
End Sub
MCA project report on school management system
Full Project Report On School Management System Tags: computer project report it project mca project school management system Thanks for sharing
The main purpose using School Management System Project is to Download School Management System Project Report Project in Asp.Net; School Management System
transport management system, school management project, MCA Project report and synopsis Should have ER diagram and DFD Diagram. Main purpose
Attendance Management System 1 Project Report On “Attendance Management System” (MCA Department) International School of
international school of informatics & management (formerly iiim) inventory management system requirements of project report
School automation record management system a ASP.Net Project” is an BTech BE Projects | MTech ME Projects | MBA MCA Student Management System Project Report;
TITLE OF THE PROJECT “School Management System reports provided by the system. names that are generated by the Project for the management of school or
MCA Project Synopsis Sample NIPS College of IT & Management MCA Department MCA 6th Project Sample Synopsis SYSTEM DESIGN
Download BCA MCA A and B Level Engineering Projects and Assingments Free With Project On School Management Online Shoap Management System Project
This is the project report on School Management System for Computer Science, IT, MCA Students and provides us the information about student record, school faculty