Coding Page 6

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

frmdaybook

Dim REC As New ADODB.Recordset

Private Sub cmdAddPayment_Click()

Dim acno As Integer

Dim i As Boolean

Dim no As String

If txtAccountPayment = "" Then

MsgBox "Please enter particulaers"

txtAccountPayment.SetFocus

Exit Sub

End If

If txtAmountPayment = "" Then

MsgBox "Please enter amount"

txtAmountPayment.SetFocus

Exit Sub

End If

acno = AccountNo(txtAccountPayment)

If acno = 0 Then

If accTy <> "" Then

actype = accTy

accTy = ""

Else

Call txtAccount_LostFocus

Exit Sub

End If

If actype = "" Then Exit Sub

acno = OpenNewAccount(txtAccountPayment, condate(DTP1Payment), CStr(actype))

End If

If optCashPayment Then

i = InsertInToLedger(acno, condate(DTP1Payment), "To Cash", "", "Dr", txtAmountPayment)

i = InsertInToCashBook(condate(DTP1Payment), "By " & txtAccountPayment, "", "", txtAmountPayment, "", "Cr")

ElseIf optBankPayment Then

no = InputBox("Enter Cheque or Draft No(Start with Ch of Cheque or DD for Draft)", "DD or Cheque", "DD")

i = InsertInToLedger(acno, condate(DTP1Payment), "To Bank(" & no & ")", "", "Dr", txtAmountPayment)

i = InsertInToCashBook(condate(DTP1Payment), "By " & txtAccountPayment & "(" & no & ")", "", "", "", txtAmountPayment, "Cr")

End If

txtAccountPayment = ""

txtAmountPayment = ""

DTP1Payment = Date

MsgBox "Account updated successfully", vbInformation

End Sub

Private Sub cmdClose_Click()

Unload Me

End Sub

Private Sub cmdReceiptAdd_Click()

Dim acno As Integer

Dim i As Boolean

Dim no As String

Dim actype As String

If txtAccount = "" Then

MsgBox "Please enter amount"

txtAccount.SetFocus

Exit Sub

End If

If txtAmount = "" Then

MsgBox "Please enter amount"

txtAmount.SetFocus

Exit Sub

End If

acno = AccountNo(txtAccount)

If acno = 0 Then

If accTy <> "" Then

actype = accTy

accTy = ""

Else

Call txtAccount_LostFocus

Exit Sub

End If

If actype = "" Then Exit Sub

acno = OpenNewAccount(txtAccount, condate(DTP1), actype)

End If

If optCash Then

i = InsertInToLedger(acno, condate(DTP1), "By Cash", "", "Cr", txtAmount)

i = InsertInToCashBook(condate(DTP1), "To " & txtAccount, "", "", txtAmount, "", "Dr")

ElseIf optBank Then

no = InputBox("Enter Cheque or Draft No(Start with Ch or DD", "DD or Cheque", "DD")

i = InsertInToLedger(acno, condate(DTP1), "By Bank(" & no & ")", "", "Cr", txtAmount)

i = InsertInToCashBook(condate(DTP1), "To " & txtAccount & "(" & no & ")", "", "", "", txtAmount, "Dr")

End If

txtAccount = ""

txtAmount = ""

DTP1 = Date

MsgBox "Account updated successfully", vbInformation

End Sub

Private Sub Form_Load()

Me.Width = 8220

Me.Height = 7170

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

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

Set REC = conn.Execute("select * from head order by name")

txtAccount.Clear

txtAccountPayment.Clear

Do While Not REC.EOF = True

txtAccount.AddItem REC.Fields(1)

txtAccountPayment.AddItem REC.Fields(1)

REC.MoveNext

Loop

REC.Close

DTP1 = Date

DTP1Payment = Date

optGeneral = True

optCash = True

optCashPayment = True

End Sub

Private Sub optCashMemo_Click()

lblAccount.Caption = "Cash Memo No"

End Sub

Private Sub optGeneral_Click()

lblAccount.Caption = "Account Name"

End Sub

Private Sub optInvoice_Click()

lblAccount.Caption = "Invoice No"

End Sub

Private Sub txtAccount_LostFocus()

Dim acno As Integer

If Trim(txtAccount) <> "" Then

If optGeneral Then

acno = AccountNo(txtAccount)

If acno = 0 Then

Load frmAccountType

frmAccountType.Show

frmAccountType.txtNewHead = Me.txtAccount

End If

End If

End If

End Sub

Private Sub txtAccountPayment_LostFocus()

Dim acno As Integer

If Trim(txtAccountPayment) <> "" Then

acno = AccountNo(txtAccountPayment)

End If

End Sub

Private Sub txtAmount_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 txtAmountPayment_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

frmdiscount

Dim res As New ADODB.Recordset

Private Sub Combo1_Click()

Set res = conn.Execute("select ledger,name from classrecord where regno = '" & Combo1 & "'")

Text1 = res.Fields(0)

Text2 = res.Fields(1)

res.Close

End Sub

Private Sub Command1_Click()

If Combo1 = "" Then

MsgBox "Please Select The Reg.No"

Exit Sub

End If

If Combo2 = "" Then

MsgBox "Please Select or Enter The Head"

Exit Sub

End If

conn.Execute ("insert into discount values('" & Combo1 & "','" & Text1 & "','" & Text2 & "','" & Combo2 & "'," & Text3 & "," & Text4 & "," & Text5 & "," & Text6 & "," & Text7 & "," & Text8 & "," & Text9 & "," & Text10 & "," & Text11 & "," & Text12 & "," & Text13 & "," & Text14 & " )")

' Open "A.TXT" For Output As #1

'Print #1, "insert into discount values(" & Combo1 & "," & Text1 & ",'" & Text2 & "','" & Combo2 & "'," & Text3 & "," & Text4 & "," & Text5 & "," & Text6 & "," & Text7 & "," & Text8 & "," & Text9 & "," & Text10 & "," & Text11 & "," & Text12 & "," & Text13 & "," & Text14 & " )"

'Close #1

MsgBox "Discount Add"

End SubPrivate Sub Command4_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

Combo1 = ""

Text1 = ""

Combo2 = ""

Text2 = ""

Set res = conn.Execute("select regno from classrecord")

While Not res.EOF

Combo1.AddItem res.Fields(0)

res.MoveNext

Wend

res.Close

Set res = conn.Execute("select distinct(head) from Discount")

While Not res.EOF

Combo2.AddItem res.Fields(0)

res.MoveNext

Wend

res.Close

End Sub

frmdisreax

Dim dis As New ADODB.Recordset

Private Sub Command1_Click()

Screen.MousePointer = 11

If Option1 = True Then

Set dis = conn.Execute("select * from discount order by regno")

If dis.EOF = True Then

dis.Close

Screen.MousePointer = 0

Exit Sub

End If

MS.Clear

MS.Rows = 1

MS.Cols = 1

MS.FormatString = "Reg No.|Ledger No.|Name |Discount Reason |April |May |June |July |August |September |October |Nov |Dec | Jan | Feb |March"

Do While Not dis.EOF = True

MS.AddItem dis!REGNO & Chr(9) & dis!ledgerno & Chr(9) & dis!Name & Chr(9) & dis!head & Chr(9) & dis!apr & Chr(9) & dis!may & Chr(9) & dis!jun & Chr(9) & dis!jul & Chr(9) & dis!aug & Chr(9) & dis!sep & Chr(9) & dis!Oct & Chr(9) & dis!nov & Chr(9) & dis!dec & Chr(9) & dis!jan & Chr(9) & dis!feb & Chr(9) & dis!mar

dis.MoveNext

Loop

dis.Close

Screen.MousePointer = 0

End If

If Option2 = True Then

Set dis = conn.Execute("select * from relaxation order by regno")

If dis.EOF = True Then

dis.Close

Screen.MousePointer = 0

Exit Sub

End If

MS.Clear

MS.Rows = 1

MS.Cols = 1

MS.FormatString = "Reg No.|Ledger No.|Name |Fees Head |April |May |June |July |August |September |October |Nov |Dec | Jan | Feb |March"

Do While Not dis.EOF = True

MS.AddItem dis!REGNO & Chr(9) & dis!ledgerno & Chr(9) & dis!Name & Chr(9) & dis!head & Chr(9) & dis!apr & Chr(9) & dis!may & Chr(9) & dis!jun & Chr(9) & dis!jul & Chr(9) & dis!aug & Chr(9) & dis!sep & Chr(9) & dis!Oct & Chr(9) & dis!nov & Chr(9) & dis!dec & Chr(9) & dis!jan & Chr(9) & dis!feb & Chr(9) & dis!mar

dis.MoveNext

Loop

dis.Close

Screen.MousePointer = 0

End If

End Sub

Private Sub Command2_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

Option1 = True

End Sub

School management system project in asp.net for BCA students

download school student’s management system asp.net project source code and project abstract.This School student management system project is …

This category consists of Asp.net projects for bca students. Projects asp.net project on Crime record management system ppt dfd. asp.net project on

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 …

ASP.Net, PHP, ASP, JAVA, (CVS) is a Version Control Management System, Free Student Projects © 2015.

School Management System is a complete hosted software solution. students and school administration . Members Area : Email /User ID : Password : Forgot Password?

We are looking forward to provide the list of projects for ty bca students and we would even are planning to Inventory Management System :: A TY BCA Project

for all type of students. Project management system Project On School Management A level,MCA,BCA students. Online Shoap Management System

Giant Store Management system Project is a E-social library Project in Asp.Net Online Student And Faculty Assessment Test Project website is

M.Sc, Diploma, B.E students Project Available in : Visual The following projects available with: asp.net VB/C# coding Online School Management System:

This is E-School Management system. First the school mainly concentrates on the student. 2013 ASP.NET Projects,