Coding page 8
SCHOOL MANAGEMENT SYSTEM PROJECT REPORT
OTHER PROJECTS YOU SHOULD REVIEW
frmedithead
Dim REC As New ADODB.Recordset
Dim rst As New ADODB.Recordset
Private Sub cmdOpen_Click()
Dim c As Integer
If cmbHead = "" Then
MsgBox "Select Account In which Want to Edit", vbInformation
Exit Sub
End If
If cmdOpen.Caption <> "Save" Then
Text1 = cmbHead.Text
cmdOpen.Caption = "Save"
Else
i = MsgBox("Are You Sure To Change Name Of Existing Account", vbCritical + vbYesNo)
If i <> 7 Then
conn.Execute ("update head set name ='" & Text1 & "'where no= (select no from head where name='" & cmbHead & "') ")
Text1 = ""
Call RefreshCombo
End If
cmdOpen.Caption = "&Edit"
End If
End Sub
Private Sub Command1_Click()
Unload Me
End Sub
Private Sub Command2_Click()
Dim c, dno, mno As Integer
Dim typ1, typ2 As String
If Combo1 = "" Then
MsgBox "Select Account In which want to merg", vbInformation
Exit Sub
End If
If Combo2 = "" Then
MsgBox "Select Account To which want to merg", vbInformation
Exit Sub
End If
Set REC = conn.Execute("select * from head where name='" & Combo1 & "'")
mno = REC!no
typ1 = REC!Type
REC.Close
Set REC = conn.Execute("select * from head where name='" & Combo2 & "'")
dno = REC!no
typ2 = REC!Type
REC.Close
If typ1 <> typ2 Then
MsgBox "Type Of Accounts MissMatch", vbCritical
Exit Sub
End If
c = MsgBox("Are you sure to merge account " & Combo2 & " in Account " & Combo1 & "", vbCritical + vbYesNo)
If c <> 7 Then
conn.Execute ("update ledger set no = " & mno & " where no=" & dno & "")
conn.Execute ("delete head where no=" & dno & "")
MsgBox "Ledger " & Combo2 & " Deleted And Account " & Combo2 & " Is Merged to " & Combo1 & " ", vbInformation
Call RefreshCombo
End If
End Sub
Private Sub Form_Load()
Me.Left = MainForm.Width \ 2 - Me.Width \ 2
Me.Top = MainForm.ScaleHeight \ 2 - Me.Height \ 2
Call RefreshCombo
End Sub
Private Sub RefreshCombo()
On Error GoTo Ex2
Set rst = conn.Execute("select * from head order by name")
cmbHead.Clear
Combo1.Clear
Combo2.Clear
Do While Not rst.EOF = True
cmbHead.AddItem rst.Fields(1)
Combo1.AddItem rst.Fields(1)
Combo2.AddItem rst.Fields(1)
rst.MoveNext
Loop
rst.Close
Exit Sub
Ex2:
MsgBox ERR.Description
End Sub
frmexam
Dim a, b As Integer
Dim c, d As String
Private Sub Combo1_Click()
Combo2.Clear
If Combo1.Text = "First Term" Then
Combo2.AddItem "CCE_I"
Combo2.AddItem "CCE_II"
Combo2.AddItem "UNIT_TEST_I"
Combo2.AddItem "UNIT_TEST_II"
ElseIf Combo1.Text = "Secound Term" Then
Combo2.AddItem "CCE_III"
Combo2.AddItem "CCE_IV"
Combo2.AddItem "UNIT_TEST_III"
Combo2.AddItem "UNIT_TEST_IV"
Combo2.AddItem "H_THEO"
Combo2.AddItem "H_PRACT"
ElseIf Combo1.Text = "Thired Term" Then
Combo2.AddItem "CCE_V"
Combo2.AddItem "CCE_VI"
Combo2.AddItem "UNIT_TEST_V"
Combo2.AddItem "UNIT_TEST_VI"
Combo2.AddItem "A_THEO"
Combo2.AddItem "A_PRACT"
End If
End Sub
Private Sub Combo3_Click()
If Combo3 = "" Then
MsgBox "Please Select The Class"
Combo3.SetFocus
Exit Sub
End If
Combo7.Clear
Dim res1 As New ADODB.Recordset
Set res1 = conn.Execute("select distinct(subject) from subject where class = '" & Combo3 & "' ")
While Not res1.EOF
Combo7.AddItem res1.Fields(0)
res1.MoveNext
Wend
res1.Close
Set res1 = conn.Execute("select distinct(subject) from subjectgs where class = '" & Combo3 & "' ")
While Not res1.EOF
Combo9.AddItem res1.Fields(0)
res1.MoveNext
Wend
res1.Close
Combo4.Clear
Dim res As New ADODB.Recordset
Set res = conn.Execute("select distinct(section1) from classrecord where class = '" & Combo3 & "' ")
While Not res.EOF
Combo4.AddItem res.Fields(0)
res.MoveNext
Wend
res.Close
End Sub
Private Sub Combo4_Click()
Combo5.Clear
Dim res As New ADODB.Recordset
Set res = conn.Execute("select distinct(ROLLNO) from classrecord where class = '" & Combo3 & "' and section1 = '" & Combo4 & "' ")
While Not res.EOF
Combo5.AddItem res.Fields(0)
res.MoveNext
Wend
res.Close
Combo6.Clear
Set res = conn.Execute("select name from classrecord where class = '" & Combo3 & "' and section1 = '" & Combo4 & "' ")
While Not res.EOF
Combo6.AddItem res.Fields(0)
res.MoveNext
Wend
res.Close
End Sub
Private Sub Combo5_Click()
If Combo5 = "" Then
MsgBox "Please Select The Roll No"
Combo5.SetFocus
Exit Sub
End If
Combo6.Clear
Dim res As New ADODB.Recordset
Set res = conn.Execute("select name from classrecord where class = '" & Combo3 & "' and section1 = '" & Combo4 & "' and rollno = " & Combo5 & " ")
While Not res.EOF
Combo6.Text = res.Fields(0)
res.MoveNext
Wend
res.Close
End Sub
Private Sub Combo5_LostFocus()
End Sub
Private Sub Combo7_Click()
If Combo1 = "" Then
MsgBox "Please Select The Exam Name"
Combo1.SetFocus
Exit Sub
End If
If Combo7 = "" Then
MsgBox "Please Select The Subject"
Combo7.SetFocus
Exit Sub
End If
End Sub
Private Sub Combo9_Click()
If Combo1 = "" Then
MsgBox "Please Select The Exam Name"
Combo1.SetFocus
Exit Sub
End If
If Combo9 = "" Then
MsgBox "Please Select The Subject"
Combo9.SetFocus
Exit Sub
End If
Dim res As New ADODB.Recordset
Set res = conn.Execute("select max_m,min_m from m_m_marks where exam_name = '" & Combo1 & "' and class = '" & Combo3 & "' and subject = '" & Combo9 & "' ")
If res.EOF = True And res.BOF = True Then
c = ""
d = ""
Else
c = res.Fields(0)
d = res.Fields(1)
End If
res.Close
End Sub
Private Sub Command1_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 Combo7 = "" Then
MsgBox "Please Select The Subject"
Combo7.SetFocus
Exit Sub
End If
School management system project in asp.net for B.Tech students
download school student’s management system asp.net project source code and project abstract.This JAVA Application Projects; Android Projects; B.Tech/ …
School Management System is a complete hosted software solution. students and school administration . Members Area : Email /User ID : Password : Forgot Password?
Student Management system C# .Net Project is designed to school students management system with sir send me “Libaray Management Project in asp.net
Project Title : Giant Store Management system Project is a web based application in asp.net. This software will help to manage equipments in the store like inventory
Free asp.net projects sample asp.net projects ASP dot net projects C# ASP.net Get ASP dot net Projects free for students, Library Management System In Asp.Net.
dotnetspider.com is offering Academic Projects with Live experience for MCA and B.Tech students. Project Project in ASP.NET : Project: Employee Management
Attendance management system major project on asp.net for b.tech final year students; they give the proper reason to student not attending the school or
E-School Management System is a web-based School Management application. I want to full report on E-School Management in ASP.NET. Free Student Projects …
>> List of Student /School Management System Projects in JAVA Pharmacy, Student, Payroll, Employee Management System in ASP.Net, (Management Project)
to create a simple student management system project in asp.net windows application with C# language. The Detail of Project : Title: Student Management System …