Coding
SCHOOL MANAGEMENT SYSTEM PROJECT REPORT
OTHER PROJECTS YOU SHOULD REVIEW
frm bookissueview
Dim rst As New ADODB.Recordset
Dim RST1 As New ADODB.Recordset
Private Sub Command1_Click()
MSF1.Clear
MSF1.Rows = 1
MSF1.Cols = 5
MSF1.FormatString = "Issue Date |Card No. | Name | Class |Roll No. |Return Date"
Set rst = New ADODB.Recordset
rst.Open "SELECT * FROM STDISSUE WHERE DATE1 >= #" & DTP1 & "# AND DATE1 <= #" & DTP2 & "# ", conn, adOpenDynamic, adLockOptimistic
If rst.EOF = True Then
MsgBox "There is no Book Issued in this duration", vbInformation, "Information"
rst.Close
Exit Sub
End If
Do While Not rst.EOF = True
MSF1.AddItem rst!date1 & Chr(9) & rst!cardno & Chr(9) & rst!Name & Chr(9) & rst!Class & Chr(9) & rst!rollno & Chr(9)
rst.MoveNext
Loop
rst.Close
End Sub
Private Sub Command2_Click()
MSF1.Clear
MSF1.Rows = 1
MSF1.Cols = 5
MSF1.FormatString = "Issue Date |Card No. | Name | Class |Roll No. |Return Date"
Set rst = New ADODB.Recordset
Set RST1 = New ADODB.Recordset
RST1.Open "select id from bookcard where status = 'False'", conn, adOpenDynamic, adLockOptimistic
If RST1.EOF = False Then
Do While Not RST1.EOF = True
rst.Open "SELECT * FROM STDISSUE WHERE DATE1 >= '" & condate(DTP1) & "' AND DATE1 <= '" & condate(DTP2) & "' and cardno = " & RST1.Fields(0) & "", conn, adOpenDynamic, adLockOptimistic
If rst.EOF = False Then
MSF1.AddItem rst!date1 & Chr(9) & rst!cardno & Chr(9) & rst!Name & Chr(9) & rst!Class & Chr(9) & rst!rollno & Chr(9) & rst!DATERETURN
End If
RST1.MoveNext
rst.Close
Loop
End If
RST1.Close
End Sub
Private Sub Command3_Click()
MSF2.Clear
MSF2.Rows = 1
MSF2.Cols = 4
MSF2.FormatString = "Issue Date | Card No. | Name |Emp Id |Return Date"
Set rst = New ADODB.Recordset
rst.Open "SELECT * FROM STAFFISSUE WHERE DATE1 >= #" & condate(DTP1) & "# AND DATE1 <= #" & condate(DTP2) & "# ", conn, adOpenDynamic, adLockOptimistic
If rst.EOF = True Then
MsgBox "There is no Book Issued in this duration", vbInformation, "Information"
rst.Close
Exit Sub
End If
Do While Not rst.EOF = True
MSF2.AddItem rst!date1 & Chr(9) & rst!cardno & Chr(9) & rst!Name & Chr(9) & rst!empid & Chr(9) & rst!DATERETURN
rst.MoveNext
Loop
rst.Close
End Sub
Private Sub Command4_Click()
MSF2.Clear
MSF2.Rows = 1
MSF2.Cols = 4
MSF2.FormatString = "Issue Date | Card No. | Name |Emp Id |Return Date"
Set rst = New ADODB.Recordset
Set RST1 = New ADODB.Recordset
RST1.Open "select id from bookcard where status = 'False'", conn, adOpenDynamic, adLockOptimistic
If RST1.EOF = False Then
Do While Not RST1.EOF = True
rst.Open "SELECT * FROM STAFFISSUE WHERE DATE1 >= #" & condate(DTP1) & "# AND DATE1 <= #" & condate(DTP2) & "# and cardno = " & RST1.Fields(0) & "", conn, adOpenDynamic, adLockOptimistic
If rst.EOF = False Then
MSF2.AddItem rst!date1 & Chr(9) & rst!cardno & Chr(9) & rst!Name & Chr(9) & rst!empid & Chr(9) & rst!DATERETURN
End If
RST1.MoveNext
rst.Close
Loop
End If
RST1.Close
End Sub
Private Sub Command5_Click()
DataEnvironment1.Recordsets.Item("COMMAND8").Open "SELECT * FROM STDISSUE WHERE DATE1 >= #" & condate(DTP1) & "# AND DATE1 <= #" & condate(DTP2) & "#", conn, adOpenDynamic, adLockOptimistic
BookIssueReport.Sections(1).Controls("LABEL12").Caption = condate(DTP1)
BookIssueReport.Sections(1).Controls("LABEL14").Caption = condate(DTP2)
BookIssueReport.Show
End Sub
Private Sub Command6_Click()
DataEnvironment1.Recordsets.Item("COMMAND8").Open "SELECT * FROM STDISSUE WHERE DATE1 >= #" & condate(DTP1) & "# AND DATE1 <= #" & condate(DTP2) & "# AND STATUS ='FALSE'", conn, adOpenDynamic, adLockOptimistic
BookIssueReport.Sections(1).Controls("LABEL12").Caption = condate(DTP1)
BookIssueReport.Sections(1).Controls("LABEL14").Caption = condate(DTP2)
BookIssueReport.Show
End Sub
Private Sub Command7_Click()
DataEnvironment1.Recordsets.Item("COMMAND9").Open "SELECT * FROM STAFFISSUE WHERE DATE1 >= #" & condate(DTP1) & "# AND DATE1 <= #" & condate(DTP2) & "#", conn, adOpenDynamic, adLockOptimistic
BookIssueStaffReport.Sections(1).Controls("LABEL12").Caption = condate(DTP1)
BookIssueStaffReport.Sections(1).Controls("LABEL14").Caption = condate(DTP2)
BookIssueStaffReport.Show
End Sub
Private Sub Command8_Click()
DataEnvironment1.Recordsets.Item("COMMAND9").Open "SELECT * FROM STAFFISSUE WHERE DATE1 >= #" & condate(DTP1) & "# AND DATE1 <= #" & condate(DTP2) & "#AND STATUS ='False'", conn, adOpenDynamic, adLockOptimistic
BookIssueStaffReport.Sections(1).Controls("LABEL12").Caption = condate(DTP1)
BookIssueStaffReport.Sections(1).Controls("LABEL14").Caption = condate(DTP2)
BookIssueStaffReport.Show
End Sub
Private Sub Command9_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
DTP2 = Date
End Sub
frmcustomfilter
Private Sub FileLoad_Click()
On Error GoTo ExitSub
CommonDialog1.Filter = "Custom Filters|*.FLR"
CommonDialog1.CancelError = True
CommonDialog1.ShowOpen
FFileNum = FreeFile
Me.Caption = CommonDialog1.FileTitle
Open CommonDialog1.FileName For Input As FFileNum
Input #FFileNum, FSize
If FSize = 3 Then Option1.Value = True Else Option2.Value = True
Input #FFileNum, div
Input #FFileNum, Bias
Text2.Text = div
Text3.Text = Bias
For i = 0 To 4
For j = 0 To 4
Input #FFileNum, fweight
Text1(i * 5 + j).Text = fweight
Next
Next
Close #FFileNum
Exit Sub
ExitSub:
Exit Sub
End Sub
Private Sub FileSave_Click()
On Error GoTo ExitSub
CommonDialog1.Filter = "Custom Filters|*.FLR"
CommonDialog1.CancelError = True
CommonDialog1.ShowSave
Me.Caption = CommonDialog1.FileTitle
FFileNum = FreeFile
Open CommonDialog1.FileName For Output As FFileNum
If Option1.Value Then Write #FFileNum, "3" Else Write #FFileNum, "5"
Write #FFileNum, Text2.Text
Write #FFileNum, Text3.Text
For i = 0 To 4
For j = 0 To 4
Write #FFileNum, Text1(i * 5 + j).Text
Next
Next
Close #FFileNum
Exit Sub
ExitSub:
Exit Sub
End Sub
Private Sub Form_Load()
Option1_Click
End Sub
Private Sub Option1_Click()
Dim i As Integer
For i = 0 To 4
Text1(i).Visible = False
Text1(i + 20).Visible = False
Next
For i = 1 To 3
Text1(i * 5).Visible = False
Text1(i * 5 + 4).Visible = False
Next
End Sub
Private Sub Option2_Click()
Dim i As Integer
For i = 0 To 4
Text1(i).Visible = True
Text1(i + 20).Visible = True
Next
For i = 1 To 3
Text1(i * 5).Visible = True
Text1(i * 5 + 4).Visible = True
Next
End Sub
Private Sub Command1_Click()
Dim i, j
FilterCancel = False
For i = 0 To 4
For j = 0 To 4
CustomFilter(i, j) = Val(Text1(i * 5 + j).Text)
Next
Next
FilterNorm = Val(Text2.Text)
FilterBias = Val(Text3.Text)
Form2.Hide
End Sub
Private Sub Command2_Click()
FilterCancel = True
Form2.Hide
End Sub
frmacadmic
Dim rno As Integer
Private Sub Command1_Click()
MSF1.Clear
MSF1.Rows = 1
MSF1.Cols = 4
MSF1.FormatString = " Id |Date | Day |Time |Programme "
Set rs = conn.Execute(" select * from programme where date1 >= '" & condate(DTP2) & "' and date1 <= '" & condate(DTP3) & "'")
If rs.EOF = True Then
x = MsgBox("There is no record in this view.", vbExclamation, "Message")
Else
Do While Not rs.EOF
MSF1.AddItem rs!id & Chr(9) & rs!date1 & Chr(9) & rs!Day & Chr(9) & rs!time1 & Chr(9) & rs!prog
rs.MoveNext
Loop
rs.Close
End If
Command1.Caption = "Open"
End Sub
Private Sub Command2_Click()
On Error GoTo err1:
If Txtpro.Text = "" Then
MsgBox "Please enter Programme", vbExclamation, "Incomplete Record Entry"
Exit Sub
End If
MSF1.Rows = 1
MSF1.Cols = 5
Dim id As Integer
Dim MS As String
Dim da As String
Set rs = conn.Execute("select max(id) from programme")
id = rs.Fields(0)
rs.Close
id = id + 1
da = condate(DTP1)
conn.Execute ("insert into programme values(" & id & ",'" & condate(DTP1) & "','" & Txtday & "','" & Txtpro & "','" & Text1 & "')")
MSF1.AddItem id & Chr(9) & condate(DTP1) & Chr(9) & Txtday & Chr(9) & Text1 & Chr(9) & Txtpro
Txtday.Text = ""
Txtpro.Text = ""
Text1.Text = ""
MsgBox "Record has been added successfully", vbInformation, "Information"
err1:
If ERR.Number <> 0 Then
MsgBox "Number : " & ERR.Number & vbCrLf & vbCrLf & vbCrLf & ERR.Description
Exit Sub
End If
End Sub
Private Sub Command3_Click()
Unload Me
End Sub
Private Sub Command4_Click()
Dim i As String
Dim x As Integer
i = InputBox("Enter the id ", "Delete")
If i = "" Then
Exit Sub
Else
x = MsgBox("Are you sure to Delete this record. ", vbQuestion + vbYesNo)
If x = 7 Then
Exit Sub
Else
Set rs = conn.Execute("select * from programme where id = " & Val(i) & "")
If rs.EOF = True Then
MsgBox "This Id does not exist "
rs.Close
Exit Sub
End If
conn.Execute ("delete programme where id = '" & Val(i) & "'")
Me.Command1.Caption = "Refresh"
rs.Close
Set rst = Nothing
End If
End If
End Sub
Private Sub Command5_Click()
On Error GoTo err1:
Dim x As Integer
Dim i As String
i = InputBox("Enter the id", "Edit")
If i = "" Then
Exit Sub
Else
x = MsgBox("Are you sure to edit this record. ", vbQuestion + vbYesNo)
If x = 7 Then
Exit Sub
Else
Set rs = conn.Execute("select * from programme where id = " & Val(i) & "")
adLockOptimistic
If rs.EOF = True Then
MsgBox "This id does not exist "
Exit Sub
End If
rno = Val(i)
Me.DTP1 = rs!date1
Me.Txtpro = rs!prog
Me.Txtday = rs!Day
Me.Text1 = rs!time1
rs.Close
End If
End If
Command1.Enabled = False
Command2.Enabled = False
Command3.Enabled = False
Command4.Enabled = False
Command5.Visible = False
err1:
If ERR.Number = 380 Then
MsgBox "Please enter numeric value"
ElseIf ERR.Number <> 0 Then
MsgBox "Number : " & ERR.Number & vbCrLf & vbCrLf & vbCrLf & ERR.Description
Exit Sub
End If
End Sub
Private Sub Command6_Click()
If Txtpro.Text = "" Then
MsgBox "Please enter Programme", vbExclamation, "Incomplete Record Entry"
Exit Sub
End If
conn.Execute ("update programme set date1 = '" & condate(DTP1) & "' where id = " & rno & "")
conn.Execute ("update programme set prog = '" & Txtpro & "' where id = " & rno & "")
conn.Execute ("update programme set day = '" & Txtday & "' where id = " & rno & "")
conn.Execute ("update programme set time1 = '" & Text1 & "' where id = " & rno & "")
Command1.Enabled = True
Command2.Enabled = True
Command3.Enabled = True
Command4.Enabled = True
Command5.Visible = True
Txtpro.Text = ""
Txtday.Text = ""
Command1.Caption = "Refresh"
End Sub
Private Sub Command7_Click()
DataEnvironment1.Recordsets.Item("comacad").Open "select * from programme where date1 >= '" & condate(DTP2) & "' and date1 <= '" & condate(DTP3) & "'", conn, adOpenDynamic, adLockOptimistic
AcadmicReport.Sections(1).Controls("LABEL7").Caption = condate(DTP2)
AcadmicReport.Sections(1).Controls("LABEL8").Caption = condate(DTP3)
AcadmicReport.Show
End Sub
Private Sub DTP1_LostFocus()
Dim i As Integer
i = Weekday(DTP1)
If i = 1 Then
Txtday = "Sunday"
ElseIf i = 2 Then
Txtday = "Monday"
ElseIf i = 3 Then
Txtday = "Tuesday"
ElseIf i = 4 Then
Txtday = "Wednesday"
ElseIf i = 5 Then
Txtday = "Thursday"
ElseIf i = 6 Then
Txtday = "Friday"
ElseIf i = 7 Then
Txtday = "Saturday"
End If
End Sub
Private Sub Form_Load()
Me.Left = MainForm.Width \ 2 - Me.Width \ 2
Me.Top = MainForm.ScaleHeight \ 2 - Me.Height \ 2
DTP1 = Date
DTP2 = Date
DTP3 = Date
End Sub
School management system project report with asp.net source code
management system asp.net project source code project report and step by step procedure for executing this project. download school student’s management
source code school management system, school management system project source code, About About us How it Works Mobile App Desktop App Security Report …
E-School Management System is a web-based School source code and every other things attached to I want to full report on E-School Management in ASP.NET.
School management system project is useful for scholl admin to manage students personal details, fees details, students education details. download code in asp.net
Hill fort public School is School Management System Project which is a web Management System Project Report in Asp.Net Android Project Source Code;
Institute Management System project is developed to manage We provide full project source code in Asp.net institute management system full project report …
Online E school management system project is a web link for project report, documentation, and source code. in Asp.Net. E School Management System Project
School Management System Project is a web-based project in ASP.NET. Download full final year project report, source code and documentation of SMS free.
Health Care Management System Project is a Online Shopping Website Project in designed in asp.net. In this project we are going © 2015 Project Code Report.
E School management System Project in Asp Net, e r diagram, dfd, source code, project report and documentation free download.