Coding page 9

PROJECT SOURCE CODE

SCHOOL MANAGEMENT SYSTEM PROJECT SOURCE CODE

PROJECT REPORT

SCHOOL MANAGEMENT SYSTEM PROJECT REPORT

OTHER PROJECTS YOU SHOULD REVIEW

11. COURSE MANAGEMENT SYSTEMS PROJECT

12. KNOWLEDGE OUTSOURCING SYSTEM PROJECT REPORT

If Combo8 = "" Then

MsgBox "Please Enter The Get Marks"

Combo8.SetFocus

Exit Sub

End If

Dim res As New ADODB.Recordset

Dim a As Integer

Set res = conn.Execute("select max(s_no) from examcbsc")

If IsNull(res.Fields(0)) = True Then

a = 1

Else

a = Val(res.Fields(0)) + Val(1)

End If

Dim res1 As New ADODB.Recordset

Set res1 = conn.Execute("select * from examcbsc where class = '" & Combo3 & "' and section1 = '" & Combo4 & "' and roll_no = '" & Combo5 & "' and subject = '" & Combo7 & "' ")

If res1.EOF = True And res1.BOF = True Then

conn.Execute ("INSERT INTO EXAMCBSC(S_NO,class,section1,ROLL_NO,Name,subject) VALUES(" & a & " ,'" & Combo3 & "','" & Combo4 & "','" & Combo5 & "','" & Combo6 & "','" & Combo7 & "' )")

End If

Dim b As String

b = Combo2.Text

conn.Execute ("update examcbsc set " & b & " = '" & Combo8 & "' where class = '" & Combo3 & "' and section1 = '" & Combo4 & "' and roll_no = '" & Combo5 & "' and subject = '" & Combo7 & "' ")

MsgBox "Marks Enter"

End Sub

Private Sub Command2_Click()

Unload Me

End Sub

Private Sub Command3_Click()

If List1 = "" Then

MsgBox "Please Select The Session"

List1.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 Combo4 = "" Then

MsgBox "Please Select The Roll No"

Combo4.SetFocus

Exit Sub

End If

frmresult.MSF1.Cols = 1

frmresult.MSF1.Rows = 1

frmresult.MSF1.FormatString = "Subject |I |II |TOTAL|I |II |TOTAL |III | IV |TOTAL| III | VI |TOTAL|Theo |Pract |Total| V | VI |TOTAL| V | VI |TOTAL|Theo |Pract | Total "

frmresult.MSF2.Cols = 1

frmresult.MSF2.Rows = 1

frmresult.MSF2.FormatString = "CCE(10)|Unit Test(2)|HYE(30)|A.E(40)|Total"

Dim res As New ADODB.Recordset

Dim a6, a7, a8, a9, a10, a11, a12, a13, a14, a15, a16, a17, a18, a19, a20, a21 As Integer

Set res = conn.Execute("select * from examcbsc where class = '" & Combo3 & "' and section1 = '" & Combo4 & "' and roll_no = '" & Combo5 & "' ")

If res.EOF = True And res.BOF = True Then

MsgBox "Please Enter Marks of Student"

Exit Sub

End If

If IsNull(res.Fields(6)) Then

a6 = 0

Else

a6 = res.Fields(6)

End If

If IsNull(res.Fields(7)) Then

a7 = 0

Else

a7 = res.Fields(7)

End If

If IsNull(res.Fields(8)) Then

a8 = 0

Else

a8 = res.Fields(8)

End If

If IsNull(res.Fields(9)) Then

a9 = 0

Else

a9 = res.Fields(9)

End If

If IsNull(res.Fields(10)) Then

a10 = 0

Else

a10 = res.Fields(10)

End If

If IsNull(res.Fields(11)) Then

a11 = 0

Else

a11 = res.Fields(11)

End If

If IsNull(res.Fields(12)) Then

a12 = 0

Else

a12 = res.Fields(12)

End If

If IsNull(res.Fields(13)) Then

a13 = 0

Else

a13 = res.Fields(13)

End If

If IsNull(res.Fields(14)) Then

a14 = 0

Else

a14 = res.Fields(14)

End If

If IsNull(res.Fields(15)) Then

a15 = 0

Else

a15 = res.Fields(15)

End If

If IsNull(res.Fields(16)) Then

a16 = 0

Else

a16 = res.Fields(16)

End If

If IsNull(res.Fields(17)) Then

a17 = 0

Else

a17 = res.Fields(17)

End If

If IsNull(res.Fields(18)) Then

a18 = 0

Else

a18 = res.Fields(18)

End If

If IsNull(res.Fields(19)) Then

a19 = 0

Else

a19 = res.Fields(19)

End If

If IsNull(res.Fields(20)) Then

a20 = 0

Else

a20 = res.Fields(20)

End If

If IsNull(res.Fields(21)) Then

a21 = 0

Else

a21 = res.Fields(21)

End If

While Not res.EOF

frmresult.MSF1.AddItem res.Fields(5) & Chr(9) _

& res.Fields(6) & Chr(9) & res.Fields(7) & Chr(9) & Val(a6) + Val(a7) & Chr(9) _

& res.Fields(8) & Chr(9) & res.Fields(9) & Chr(9) & Val(a8) + Val(a9) & Chr(9) _

& res.Fields(10) & Chr(9) & res.Fields(11) & Chr(9) & Val(a10) + Val(a11) & Chr(9) _

& res.Fields(12) & Chr(9) & res.Fields(13) & Chr(9) & Val(a12) + Val(a13) & Chr(9) _

& res.Fields(14) & Chr(9) & res.Fields(15) & Chr(9) & Val(a14) + Val(a15) & Chr(9) _

& res.Fields(16) & Chr(9) & res.Fields(17) & Chr(9) & Val(a16) + Val(a17) & Chr(9) _

& res.Fields(18) & Chr(9) & res.Fields(19) & Chr(9) & Val(a18) + Val(a19) & Chr(9) _

& res.Fields(20) & Chr(9) & res.Fields(21) & Chr(9) & Val(a20) + Val(a21)

Dim H1, h2, h3, h4, h5 As Double

H1 = ((Val(a6) + Val(a7) + Val(a10) + Val(a11) + Val(16) + Val(17)) * 10) / 100

h2 = ((Val(a8) + Val(a9) + Val(a12) + Val(a13) + Val(18) + Val(19)) * 20) / 100

h3 = ((Val(a14) + Val(a15) * 30) / 100)

h4 = ((Val(a20) + Val(a21) * 40) / 100)

h5 = H1 + h2 + h3 + h4

frmresult.MSF2.AddItem H1 & Chr(9) & h2 & Chr(9) & h3 & Chr(9) & h4 & Chr(9) & h5

res.MoveNext

Wend

res.Close

Dim res1 As New ADODB.Recordset

Dim t As String

Dim k0, K1, k2, k3, k4, k5, k6, k7, k8, k9, k10, k11, k12, k13, k14, k15 As Integer

t = "Total"

Set res1 = conn.Execute("SELECT SUM(CCE_I),SUM(CCE_II),SUM(UNIT_TEST_I),SUM(UNIT_TEST_II),SUM(CCE_III),SUM(CCE_IV),SUM(UNIT_TEST_III),SUM(UNIT_TEST_IV),SUM(H_THEO),SUM(H_PRACT),SUM(CCE_V),SUM(CCE_VI),SUM(UNIT_TEST_V),SUM(UNIT_TEST_VI),SUM(A_THEO),SUM(A_PRACT),count(CCE_I) FROM EXAMCBSC WHERE class = '" & Combo3 & "' and section1 = '" & Combo4 & "' and roll_no = '" & Combo5 & "' ")

If IsNull(res1.Fields(0)) Then

k0 = 0

Else

k0 = res1.Fields(0)

End If

If IsNull(res1.Fields(1)) Then

K1 = 0

Else

K1 = res1.Fields(1)

End If

If IsNull(res1.Fields(2)) Then

k2 = 0

Else

k2 = res1.Fields(2)

End If

If IsNull(res1.Fields(3)) Then

k3 = 0

Else

k3 = res1.Fields(3)

End If

If IsNull(res1.Fields(4)) Then

k4 = 0

Else

k4 = res1.Fields(4)

School management system project in asp.net with source code for BCA students

Asp.net Related projects for bca students free download: asp.net project on Vehicle rental system source code for bca students; asp.net project on Courier information

for all type of students. Online Shoping System in ASP.NET full source code. Project On School Management project on school management system

download school student’s management system asp.net project source code students to gain knowledge on asp.net, school student’s management system asp.net

We provide the best complete project listing with form design, source code, ASP.NET Projects; is a Version Control Management System,

Academic Projects Software Projects with Source Code. for BCA, MCA, B.Sc, M.Sc, Diploma, B.E students Online School Management System:

School Management System in talpurdeveloper.com is nice project screenshot.. but where is the source code Talpur?

School Management Projects In Vb For Bca Students School Management Software is an online school management system School Management Projects In Vb Source Code:

B.Tech live projects with source code This is a 3 Tier Architecture Project in ASP.NET : It is general Book Store Project: Employee Management System with

Health Care Management System Project is a website website is considered a great source of help to college students at a Project Code Report. All rights

School Management Projects In Vb For Bca Students Codes and Scripts Downloads Free. School Management Projects In Vb Source Code: School Management System …