Coding page 3

PROJECT SOURCE CODE

SCHOOL MANAGEMENT SYSTEM PROJECT SOURCE CODE

PROJECT REPORT

SPONSORED LINKS

SCHOOL MANAGEMENT SYSTEM PROJECT REPORT

OTHER PROJECTS YOU SHOULD REVIEW

11. COURSE MANAGEMENT SYSTEMS PROJECT

12. KNOWLEDGE OUTSOURCING SYSTEM PROJECT REPORT

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