Coding Page 4

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

frmbookrecord

Private Sub Command1_Click()

If Text1 = "" Then

Exit Sub

End If

Set rs = conn.Execute("select * from bookCARD where ID = " & Text1 & " ")

If rs.EOF = True Then

MsgBox "This Card No. does not exists", vbInformation, "Information"

rs.Close

Exit Sub

End If

Label8 = rs!subject

Label9 = rs!author

Label10 = rs!bookname

Label11 = rs!publi

Label12 = rs!edition

rs.Close

End Sub

Private Sub Command2_Click()

Set rs = conn.Execute("select * from bookCARD where ID = " & Val(Text1) & " ")

If rs.EOF = True Then

MsgBox "This Acc. No. does not exists", vbInformation, "Information"

rs.Close

Exit Sub

End If

Label8 = rs!subject & ""

Label9 = rs!author & ""

Label10 = rs!bookname & ""

Label11 = rs!publi & ""

Label12 = rs!edition & ""

rs.Close

DataEnvironment1.Recordsets.Item("combookcard").Open "select * from bookCARD where ID = " & Val(Text1) & ""

CardReport.Show

End Sub

Private Sub Command3_Click()

Unload Me

End Sub

Private Sub Command4_Click()

CardReport.Show

End Sub

Private Sub Form_Load()

Me.Left = MainForm.Width \ 2 - Me.Width \ 2

Me.Top = MainForm.ScaleHeight \ 2 - Me.Height \ 2

End Sub

frmbookview

Private Sub Combo1_Click()

Set rs = conn.Execute("select bookname from book where subject = '" & Combo1 & "'")

If rs.EOF = False Then

Combo2.Clear

Combo2 = rs.Fields(0)

Do While Not rs.EOF = True

Combo2.AddItem rs.Fields(0) & ""

rs.MoveNext

Loop

rs.Close

End If

End Sub

Private Sub Combo3_Click()

Set rs1 = conn.Execute("select bookname from book where author = '" & Combo3 & "'")

If rs1.EOF = False Then

Combo2.Clear

Combo2 = rs1.Fields(0)

Do While Not rs1.EOF = True

Combo2.AddItem rs1.Fields(0) & ""

rs1.MoveNext

Loop

rs1.Close

End If

End Sub

Private Sub Command1_Click()

If Option1 Then

Set rs = conn.Execute("select * from book where subject = '" & Combo1 & "'")

Set rs1 = conn.Execute("select sum(qty) from book where subject = '" & Combo1 & "'")

ElseIf Option2 Then

Set rs = conn.Execute("select * from book where date1 >= #" & DTP1 & "# and date1 <= #" & DTP2 & "#")

Set rs1 = conn.Execute("select sum(qty) from book where date1 >= #" & DTP1 & "# and date1 <= #" & DTP2 & "#")

ElseIf Option3 Then

Set rs = conn.Execute("select * from book where author = '" & Combo3 & "'")

Set rs1 = conn.Execute("select sum(qty) from book where author = '" & Combo3 & "'")

End If

MSF1.Cols = 11

MSF1.Rows = 1

MSF1.FormatString = "Book Id |Subject |Book Name |Author |Publication | Edition | Date of Purchase|Cost | Quantity |Status |Remarks "

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 & Chr(9) & rs!date1 & Chr(9) & rs!cost & Chr(9) & rs!qty & Chr(9) & rs!Status & Chr(9) & rs!remarks

rs.MoveNext

Loop

End If

Label6 = rs1.Fields(0) & ""

rs1.Close

End Sub

Private Sub Command2_Click()

Unload Me

End Sub

Private Sub Command3_Click()

If Option1 Then

Set rs = conn.Execute("select * from book where subject = '" & Combo1 & "' and bookname = '" & Combo2 & "'")

Set rs1 = conn.Execute("select sum(qty) from book where subject = '" & Combo1 & "' and bookname = '" & Combo2 & "'")

ElseIf Option3 Then

Set rs = conn.Execute("select * from book where author = '" & Combo3 & "'")

Set rs1 = conn.Execute("select sum(qty) from book where author = '" & Combo3 & "'")

End If

MSF1.Cols = 11

MSF1.Rows = 1

MSF1.FormatString = "Book Id |Subject |Book Name |Author |Publication | Edition | Date of Purchase|Cost | Quantity |Status |Remarks "

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 & Chr(9) & rs!date1 & Chr(9) & rs!cost & Chr(9) & rs!qty & Chr(9) & rs!Status & Chr(9) & rs!remarks

rs.MoveNext

Loop

End If

Label6 = rs1.Fields(0) & ""

rs1.Close

End Sub

Private Sub Command4_Click()

If Combo1.Text = "" Then

MsgBox " Please first select the Subject ", vbInformation

Combo1.SetFocus

Exit Sub

End If

Set rs = conn.Execute("select * from book where subject='" & Combo1.Text & "'")

If rs.EOF = True Then

rs.Close

MsgBox "There is no Record to Print", vbInformation, "school"

Exit Sub

End If

DataEnvironment1.Recordsets("book").Open "select * from book where subject='" & Combo1.Text & "'", conn, 1, 2

drptbookrecord.Sections(1).Controls.Item("Label9").Caption = "Book Record Subjectwise (" & Combo1.Text & ")"

drptbookrecord.Show

End Sub

Private Sub Command5_Click()

If Combo3.Text = "" Then

MsgBox " Please first select the Author ", vbInformation

Combo3.SetFocus

Exit Sub

End If

Set rs = conn.Execute("select * from book where author='" & Combo3.Text & "'")

If rs.EOF = True Then

rs.Close

MsgBox "There is no Record to Print", vbInformation, "school"

Exit Sub

End If

DataEnvironment1.Recordsets("book").Open "select * from book where author='" & Combo3.Text & "'", conn, 1, 2

drptbookrecord.Sections(1).Controls.Item("Label9").Caption = "Book Record Authorwise (" & Combo3.Text & ")"

drptbookrecord.Show

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

Set rs = conn.Execute("select distinct subject from book")

If rs.EOF = False Then

Combo1 = rs.Fields(0)

Do While Not rs.EOF = True

Combo1.AddItem rs.Fields(0) & ""

rs.MoveNext

Loop

rs.Close

End If

Set rs1 = conn.Execute("select distinct author from book order by author")

If rs1.EOF = False Then

Combo3 = rs1.Fields(0)

Do While Not rs1.EOF = True

Combo3.AddItem rs1.Fields(0) & ""

rs1.MoveNext

Loop

rs1.Close

End If

Combo3.Visible = False

End Sub

Private Sub Option1_Click()

Frame3.Enabled = False

Frame2.Enabled = True

Command3.Enabled = True

Label1.Visible = True

Combo1.Visible = True

Label7.Visible = False

Combo3.Visible = False

End Sub

Private Sub Option2_Click()

Frame2.Enabled = False

Frame3.Enabled = True

Command3.Enabled = False

Label1.Visible = False

Combo1.Visible = False

Combo3.Visible = True

Label7.Visible = True

End Sub

Private Sub Option3_Click()

If Option3 = True Then

Label1.Visible = False

Combo1.Visible = False

Label7.Visible = True

Combo3.Visible = True

End If

End Sub

frmcashbook

Dim rst As ADODB.Recordset

Dim i As String

Private Sub cmdadd_Click()

Dim i As Integer

If txtParticulars = "" Then

MsgBox "Please enter particulars"

txtParticulars.SetFocus

Exit Sub

End If

If (txtDiscount = "") And (txtBank = "") And (txtCash = "") Then

MsgBox "Please enter amount"

Exit Sub

End If

If cmbType = "" Then

MsgBox "Please enter type"

cmbType.SetFocus

Exit Sub

End If

Set rst = conn.Execute("select max(s_no) from cashbook")

i = rst.Fields(0) + 1

rst.Close

conn.Execute ("insert into cashbook values(" & i & ",'" & condate(DTP1) & "','" & txtParticulars & "','" & txtLF & "'," & Val(txtDiscount) & "," & Val(txtCash) & "," & Val(txtBank) & ",'" & cmbType & "')")

txtParticulars = ""

txtLF = ""

txtDiscount = ""

txtCash = ""

txtBank = ""

cmbType.Refresh

txtAmount = ""

Call RefreshCashBook

End Sub

Private Sub cmddelete_Click()

Dim i As Integer

Dim j As String

i = MsgBox("Are you sure to delete, You may lost data", vbQuestion + vbYesNo, "AE")

If i = 7 Then

Exit Sub

End If

j = InputBox("Enter S. No of the record to update")

If j = "" Then

Exit Sub

End If

Set rst = conn.Execute("select * from cashbook where s_no =" & j & "")

If rst.EOF = True Or rst.BOF = True Then

MsgBox "S. No:" & j & " does not exist."

Exit Sub

End If

rst.Close

conn.Execute ("delete from cashbook where s_no =" & j & "")

Call RefreshCashBook

MsgBox "Delete successfully"

End Sub

Private Sub cmdEdit_Click()

If cmdEdit.Caption = "&Update" Then

Dim j As Integer

If txtParticulars = "" Then

MsgBox "Please enter particulars"

txtParticulars.SetFocus

Exit Sub

End If

If cmbType = "" Then

MsgBox "Please enter type"

cmbType.SetFocus

Exit Sub

End If

If (txtDiscount = "") And (txtBank = "") And (txtCash = "") Then

MsgBox "Please enter amount"

Exit Sub

End If

conn.Execute ("update cashbook set c_date ='" & condate(DTP1) & "', particulars = '" & txtParticulars & "', lf='" & txtLF & "', discount=" & Val(txtDiscount) & ", cash =" & Val(txtCash) & ", bank =" & Val(txtBank) & ", drorcr='" & cmbType & "' where s_no=" & CInt(i) & "")

cmdEdit.Caption = "&Edit"

txtParticulars = ""

txtLF = ""

txtCash = ""

txtDiscount = ""

txtBank = ""

cmbType.Refresh

txtAmount = ""

Call RefreshCashBook

cmdAdd.Enabled = True

Exit Sub

End If

i = InputBox("Enter S. No of the record to update")

If i = "" Then

Exit Sub

End If

cmdEdit.Caption = "&Update"

Set rst = conn.Execute("select * from cashbook where s_no=" & i & "")

If rst.EOF Or rst.BOF Then

cmdEdit.Caption = "&Edit"

MsgBox "This S. No. does not exist", vbInformation

rst.Close

Exit Sub

End If

txtParticulars = rst!particulars & ""

txtLF = rst!LF & ""

txtDiscount = rst!Discount & ""

txtCash = rst!Cash & ""

txtBank = rst!Bank & ""

DTP1 = rst!c_date

cmbType.Text = rst!drorcr

rst.Close

cmdAdd.Enabled = False

End Sub

Private Sub cmdOpen_Click()

Call RefreshCashBook

End Sub

Private Sub Command1_Click()

Unload Me

End Sub

Private Sub Command2_Click()

DataEnvironment1.Recordsets("command6").Open "select * from cashbook where s_no<>0 and c_date between '" & condate(dtpFrom) & "' and '" & condate(dtpTo) & "' order by drorcr", conn

drptCashBook.Sections(5).Controls("label17").Caption = Label17.Caption

drptCashBook.Sections(5).Controls("label19").Caption = Label18.Caption

drptCashBook.Sections(5).Controls("label24").Caption = Label20.Caption

drptCashBook.Sections(5).Controls("label26").Caption = Label19.Caption

drptCashBook.Show

End Sub

Private Sub Form_Load()

Me.Left = (MainForm.Width \ 2 - Me.Width \ 2) - 40

Me.Top = (MainForm.ScaleHeight \ 2 - Me.Height \ 2)

dtpTo = Date

DTP1 = Date

End Sub

Private Sub RefreshCashBook()

Dim str As String

Dim drdis, drbank, drcash As Double

Dim crdis, crbank, crcash As Double

DTP1 = Date

drdis = 0

drbank = 0

drcash = 0

crdis = 0

crbank = 0

crcash = 0

Set rst = conn.Execute("select * from cashbook where c_date >='" & condate(dtpFrom) & "' and c_date<='" & condate(dtpTo) & "'")

MSDr.Clear

MSDr.Cols = 6

MSDr.Rows = 1

MSDr.FormatString = "S. No |Date | Particulars | L.F.| Cash | Bank "

MSCr.Clear

MSCr.Cols = 6

MSCr.Rows = 1

MSCr.FormatString = "S. No |Date | Particulars | L.F.| Cash | Bank "

Do While Not rst.EOF = True

If rst!drorcr = "Dr" Then

If Mid(rst!particulars, 1, 1) = "C" Then

str = "To Cash Memo No:" & Mid(rst!particulars, 2)

ElseIf Mid(rst!particulars, 1, 1) = "I" Then

str = "To Invoice No:" & Mid(rst!particulars, 2)

Else

str = rst!particulars

End If

MSDr.AddItem rst!s_no & Chr(9) & rst!c_date & Chr(9) & str & Chr(9) & rst!LF & Chr(9) & rst!Cash & Chr(9) & rst!Bank

drdis = drdis + Val(rst!Discount)

drbank = drbank + Val(rst!Bank)

drcash = drcash + Val(rst!Cash)

rst.MoveNext

Else

If Mid(rst!particulars, 1, 1) = "C" Then

str = "By Cash Memo No:" & Mid(rst!particulars, 2)

ElseIf Mid(rst!particulars, 1, 1) = "I" Then

str = "By Invoice No:" & Mid(rst!particulars, 2)

Else

str = rst!particulars

End If

MSCr.AddItem rst!s_no & Chr(9) & rst!c_date & Chr(9) & str & Chr(9) & rst!LF & Chr(9) & rst!Cash & Chr(9) & rst!Bank

crdis = crdis + Val(rst!Discount)

crbank = crbank + Val(rst!Bank)

crcash = crcash + Val(rst!Cash)

rst.MoveNext

End If

Loop

rst.Close

DTP1 = Date

Label17.Caption = drcash

Label18.Caption = drbank

Label20.Caption = crcash

Label19.Caption = crbank

End Sub

Private Sub txtBank_KeyPress(keyascii As Integer)

Dim strValid As String

strValid = "0123456789."

If keyascii > 26 Then

If InStr(strValid, Chr(keyascii)) = 0 Then

Beep

keyascii = 0

End If

End If

End Sub

Private Sub txtCash_KeyPress(keyascii As Integer)

Dim strValid As String

strValid = "0123456789."

If keyascii > 26 Then

If InStr(strValid, Chr(keyascii)) = 0 Then

Beep

keyascii = 0

End If

End If

End Sub

Private Sub txtDiscount_KeyPress(keyascii As Integer)

Dim strValid As String

strValid = "0123456789."

If keyascii > 26 Then

If InStr(strValid, Chr(keyascii)) = 0 Then

Beep

keyascii = 0

End If

End If

End Sub

B.tech CS project report on school management system

Final Year Projects | Engineering & B.Tech Projects | MBA Projects » Final Year Projects & Reports |Presentation |Seminar » Computer Science , IT & MCA Projects

B.Tech Embedded Systems 2014-15 Projects. Patient Management System (PMS) Project Abstract: results etc. Generating the print reports of student

VB.Net C# projects, CS projects with source code, Final Report, management system, school management project, B.Tech IT, Btech CS or BE IT

Final Year Projects | Engineering & B.Tech Projects | MBA Projects » Final Year Projects & Reports |Presentation |Seminar » Computer Science , IT & MCA Projects

Engineering & B.Tech Projects Seminar » Computer Science , IT & MCA Projects This system Project Report On School Management System for

,in A PROJECT REPORT ON College Management System technology discussion,A Computer Science Project college management system project report…

Computer Science , IT & MCA Projects Engineering & B.Tech Projects Project Code On School Management System .

HR management system project report B.tech cse mini project on Keyword rank checker project source code in java

E-SCHOOL MANAGEMENT SYSTEM [40610] INTRODUCTION E-School Management System is a comprehensive web-based School Management Software. It is

Huge List of Computer Projects 2013,Latest Final Year Computer Science Engineering CSE Projects,MSc, Hospital Management System : Customer Complaint Report