Coding page 10
SCHOOL MANAGEMENT SYSTEM PROJECT REPORT
OTHER PROJECTS YOU SHOULD REVIEW
End If
If IsNull(res1.Fields(5)) Then
k5 = 0
Else
k5 = res1.Fields(5)
End If
If IsNull(res1.Fields(6)) Then
k6 = 0
Else
k6 = res1.Fields(6)
End If
If IsNull(res1.Fields(7)) Then
k7 = 0
Else
k7 = res1.Fields(7)
End If
If IsNull(res1.Fields(8)) Then
k8 = 0
Else
k8 = res1.Fields(8)
End If
If IsNull(res1.Fields(9)) Then
k9 = 0
Else
k9 = res1.Fields(9)
End If
If IsNull(res1.Fields(10)) Then
k10 = 0
Else
k10 = res1.Fields(10)
End If
If IsNull(res1.Fields(11)) Then
k11 = 0
Else
k11 = res1.Fields(11)
End If
If IsNull(res1.Fields(12)) Then
k12 = 0
Else
k12 = res1.Fields(12)
End If
If IsNull(res1.Fields(13)) Then
k13 = 0
Else
k13 = res1.Fields(13)
End If
If IsNull(res1.Fields(14)) Then
k14 = 0
Else
k14 = res1.Fields(14)
End If
If IsNull(res1.Fields(15)) Then
k15 = 0
Else
k15 = res1.Fields(15)
End If
frmresult.MSF1.AddItem t & Chr(9) _
& res1.Fields(0) & Chr(9) & res1.Fields(1) & Chr(9) & Val(k0) + Val(K1) & Chr(9) _
& res1.Fields(2) & Chr(9) & res1.Fields(3) & Chr(9) & Val(k2) + Val(k3) & Chr(9) _
& res1.Fields(4) & Chr(9) & res1.Fields(5) & Chr(9) & Val(k4) + Val(k5) & Chr(9) _
& res1.Fields(6) & Chr(9) & res1.Fields(7) & Chr(9) & Val(k6) + Val(k7) & Chr(9) _
& res1.Fields(8) & Chr(9) & res1.Fields(9) & Chr(9) & Val(k8) + Val(k9) & Chr(9) _
& res1.Fields(10) & Chr(9) & res1.Fields(11) & Chr(9) & Val(k10) + Val(k11) & Chr(9) _
& res1.Fields(12) & Chr(9) & res1.Fields(13) & Chr(9) & Val(k12) + Val(k13) & Chr(9) _
& res1.Fields(14) & Chr(9) & res1.Fields(15) & Chr(9) & Val(k14) + Val(k15) & Chr(9)
Dim T1 As String
T1 = "Percentage"
Dim q As Integer
frmresult.MSF1.AddItem T1 & Chr(9) _
& (res1.Fields(0) * 100) / (res1.Fields(16) * 25) & Chr(9) & (res1.Fields(1) * 100) / (res1.Fields(16) * 25) & Chr(9) & ((Val(k0) + Val(K1)) * 100 / (res1.Fields(16) * 50)) & Chr(9) _
& (res1.Fields(2) * 100) / (res1.Fields(16) * 50) & Chr(9) & (res1.Fields(3) * 100) / (res1.Fields(16) * 50) & Chr(9) & ((Val(k2) + Val(k3)) * 100 / (res1.Fields(16) * 100)) & Chr(9) _
& (res1.Fields(4) * 100) / (res1.Fields(16) * 25) & Chr(9) & (res1.Fields(5) * 100) / (res1.Fields(16) * 25) & Chr(9) & ((Val(k4) + Val(k5)) * 100 / (res1.Fields(16) * 50)) & Chr(9) _
& (res1.Fields(6) * 100) / (res1.Fields(16) * 50) & Chr(9) & (res1.Fields(7) * 100) / (res1.Fields(16) * 50) & Chr(9) & ((Val(k6) + Val(k7)) * 100 / (res1.Fields(16) * 100)) & Chr(9) _
& (res1.Fields(8) * 100) / (res1.Fields(16) * 100) & Chr(9) & (res1.Fields(9) * 100) / (res1.Fields(16) * 10) & Chr(9) & ((Val(k8) + Val(k9)) * 100 / (res1.Fields(16) * 100)) & Chr(9) _
& (res1.Fields(10) * 100) / (res1.Fields(16) * 25) & Chr(9) & (res1.Fields(11) * 100) / (res1.Fields(16) * 25) & Chr(9) & ((Val(k10) + Val(k11)) * 100 / (res1.Fields(16) * 50)) & Chr(9) _
& (res1.Fields(12) * 100) / (res1.Fields(16) * 50) & Chr(9) & (res1.Fields(13) * 100) / (res1.Fields(16) * 50) & Chr(9) & ((Val(k12) + Val(k13)) * 100 / (res1.Fields(16) * 100)) & Chr(9) _
& (res1.Fields(14) * 100) / (res1.Fields(16) * 100) & Chr(9) & (res1.Fields(15) * 100) / (res1.Fields(16) * 10) & Chr(9) & ((Val(k14) + Val(k15)) * 100 / (res1.Fields(16) * 100)) & Chr(9)
res1.Close
frmresult.MSF1.AddItem "Rank"
frmresult.MSF1.AddItem "Attendance"
frmresult.MSF1.AddItem "Group II"
Set res = conn.Execute("select * from examcbscg where class = '" & Combo3 & "' and section1 = '" & Combo4 & "' and roll_no = '" & Combo5 & "' ")
While Not res.EOF
frmresult.MSF1.AddItem res.Fields(5) & Chr(9) _
& res.Fields(6) & Chr(9) & res.Fields(7) & Chr(9) & "" & Chr(9) _
& res.Fields(8) & Chr(9) & res.Fields(9) & Chr(9) & "" & Chr(9) _
& res.Fields(10) & Chr(9) & res.Fields(11) & Chr(9) & "" & Chr(9) _
& res.Fields(12) & Chr(9) & res.Fields(13) & Chr(9) & "" & Chr(9) _
& res.Fields(14) & Chr(9) & res.Fields(15) & Chr(9) & "" & Chr(9) _
& res.Fields(16) & Chr(9) & res.Fields(17) & Chr(9) & "" & Chr(9) _
& res.Fields(18) & Chr(9) & res.Fields(19) & Chr(9) & "" & Chr(9) _
& res.Fields(20) & Chr(9) & res.Fields(21) & Chr(9) & ""
res.MoveNext
Wend
res.Close
frmresult.MSF1.AddItem ""
frmresult.MSF1.AddItem "Class Teacher Sing"
frmresult.MSF1.AddItem "Checker's Sing"
frmresult.MSF1.AddItem "Principal Sing"
frmresult.MSF1.AddItem "Guardian Sing"
frmresult.Label5 = Combo6.Text
frmresult.Label12 = Combo5.Text
frmresult.Label10 = Combo4.Text
frmresult.Label6 = Combo3.Text
frmresult.Show
End Sub
Private Sub Command4_Click()
End Sub
Private Sub Command5_Click()
If Combo1 = "" Then
MsgBox "Please Select The Exam Name"
Combo1.SetFocus
Exit Sub
End If
If Combo3 = "" Then
MsgBox "Please Select The Class"
Combo3.SetFocus
Exit Sub
End If
If Combo4 = "" Then
MsgBox "Please Select The Section "
Combo4.SetFocus
Exit Sub
End If
If Combo5 = "" Then
MsgBox "Please Select The Roll No"
Combo5.SetFocus
Exit Sub
End If
If Combo6 = "" Then
MsgBox "Please Select The Name "
Combo6.SetFocus
Exit Sub
End If
If Combo9 = "" Then
MsgBox "Please Select The Group II Subject"
Combo9.SetFocus
Exit Sub
End If
If Combo10 = "" Then
MsgBox "Please Enter Marks of Group II Subject"
Combo10.SetFocus
Exit Sub
End If
Dim res As New ADODB.Recordset
Dim a As Integer
Set res = conn.Execute("select max(s_no) from examcbscg")
If IsNull(res.Fields(0)) = True Then
a = 1
Else
a = Val(res.Fields(0)) + Val(1)
End If
res.Close
Dim res1 As New ADODB.Recordset
Set res1 = conn.Execute("select * from examcbscg where class = '" & Combo3 & "' and section1 = '" & Combo4 & "' and roll_no = '" & Combo5 & "' and subject = '" & Combo9 & "' ")
If res1.EOF = True And res1.BOF = True Then
conn.Execute ("INSERT INTO EXAMCBSCG(S_NO,class,section1,ROLL_NO,Name,subject) VALUES(" & a & " ,'" & Combo3 & "','" & Combo4 & "','" & Combo5 & "','" & Combo6 & "','" & Combo9 & "' )")
End If
Dim b As String
b = Combo2.Text
conn.Execute ("update examcbscg set " & b & " = '" & Combo10 & "' where class = '" & Combo3 & "' and section1 = '" & Combo4 & "' and roll_no = '" & Combo5 & "' and subject = '" & Combo9 & "' ")
MsgBox "Marks Enter"
End Sub
Private Sub Form_Load()
Command4.Visible = False
Command6.Visible = False
Me.Left = MainForm.Width \ 2 - Me.Width \ 2
Me.Top = MainForm.ScaleHeight \ 2 - Me.Height \ 2
MSF1.Cols = 1
MSF1.Rows = 1
MSF1.FormatString = " Subject |Marks Obtained"
Dim res1 As New ADODB.Recordset
Set res1 = conn.Execute("select distinct(adyear) from classrecord")
While Not res1.EOF
List1.AddItem res1.Fields(0)
res1.MoveNext
Wend
res1.Close
Dim res As New ADODB.Recordset
Set res = conn.Execute("select distinct(class) from classrecord")
While Not res.EOF
Combo3.AddItem res.Fields(0)
res.MoveNext
Wend
res.Close
End Sub
BCA project report on School management system
transport management system, school management project, » HOSPITAL MANAGEMENT System BCA MCA Project in Management System Project Report …
Project On School Management project on school management system with source code, synopsis and project report using technolgy c,c++ usefull for …
Project Title : Library Management System Project Abstract: Nov 12, 2012 By Ramesh Gavva in B.SC Computer Seminar Reports, BCA Projects, CSE Mini Projects…
visual basic projects for students (BCA,MCA,Engg) 4. a inventory system 5. school management system2 hotel management system project report,
international school of informatics & management (formerly iiim) inventory management system requirements of project report
bca project - Free download as (.rtf the envelope “BCA PROJECT REPORT Instructional Design/ Database Management System/ Internet/ Intranet/ Computer
List of TY BCA Projects has been a new feature Inventory Management System :: A TY BCA Project Profit Loss Statement module; Report module; For more
School Management System in C++ Project with Report Home BCA / MCA School Management System in C++ Project School Management System in C++ Project …
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
project report, database structure of live project, mini project, Project guide. Concurrent Version Schema (CVS) is a Version Control Management System,