Coding Page 5
SCHOOL MANAGEMENT SYSTEM PROJECT REPORT
OTHER PROJECTS YOU SHOULD REVIEW
frmchngpasswd
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
frmclass
Private llnew As Boolean, lledit As Boolean
Public lcid$
Private Sub cmdCancel_Click()
Call DataReferesh
Me.cmdExit.Enabled = True
Me.cmdUpdate.Enabled = False
Me.cmdNew.Enabled = True
Me.cmdExit.Enabled = True
Me.cmdSave.Enabled = False
llnew = False
lledit = False
End Sub
Private Sub cmddelete_Click()
Dim lnRetVal As Integer
lnRetVal = MsgBox("Are you sure to Delete the Record", vbYesNo + vbInformation, Me.Caption)
If lnRetVal = 6 Then
conn.Execute " Delete FROM ClassMaster where CID= '" & Me.txtCode.Tag & "' "
End If
Me.cmddelete.Enabled = False
Me.txtCode = ""
Me.txtdesc = ""
Me.txtCode.Tag = ""
Me.TxtSection = ""
Call DataReferesh
End Sub
Private Sub CmdExit_Click()
Unload Me
End Sub
Private Sub cmdNew_Click()
llnew = True
Me.txtCode = ""
Me.txtCode.Tag = ""
Me.txtdesc = ""
Me.TxtSection = ""
Me.cmdExit.Enabled = False
Me.cmdUpdate.Enabled = False
Me.cmdSave.Enabled = True
End Sub
Private Sub cmdsave_Click()
Dim lcsqlstr$
If CheckForEmpty(Me.txtCode, "Code Cannot Be Blank") Then
Exit Sub
End If
If CheckForEmpty(Me.txtdesc, "ClassMaster Cannot Be Blank") Then
Exit Sub
End If
If CheckForEmpty(TxtSection, "Section Cannot Be Blank") Then
Exit Sub
End If
conn.Execute "Insert into ClassMaster Values ('" & GetNextID("ClassMaster", "CID") & "', '" _
& UCase(Me.txtCode) & "','" & Me.txtdesc & "','" & Me.TxtSection & "')"
Me.cmdExit.Enabled = True
Call DataReferesh
Exit Sub
End Sub
Private Sub cmdupdate_Click()
On Error GoTo sam
Dim lcsqlstr$
If CheckForEmpty(txtCode, "Code Cannot Be Blank") Then
Exit Sub
End If
If CheckForEmpty(txtdesc, "ClassMaster Cannot Be Blank") Then
Exit Sub
End If
If CheckForEmpty(TxtSection, "Section Cannot Be Blank") Then
Exit Sub
End If
conn.Execute "Update ClassMaster set ClassCode = '" & UCase(Me.txtCode) & "',Section = '" & Me.TxtSection & "',ClassName = '" & Me.txtdesc & "' where cid = '" & Me.txtCode.Tag & "'"
Me.cmdExit.Enabled = True
Me.cmdUpdate.Enabled = False
Me.cmdNew.Enabled = True
Me.cmddelete.Enabled = False
Call DataReferesh
Exit Sub
End Sub
Private Sub DataGrid1_Click()
If Adodc1.Recordset.EOF Then Exit Sub
txtCode.Tag = Adodc1.Recordset.Fields("CID")
txtCode = Adodc1.Recordset.Fields("ClassCode")
txtdesc = Adodc1.Recordset.Fields("ClassName")
TxtSection = Adodc1.Recordset.Fields("Section") & ""
Me.cmdUpdate.Enabled = True
Me.cmddelete.Enabled = True
End Sub
Private Sub Form_Load()
Call Me.Move(50, 0)
Adodc1.ConnectionString = ConnectString
Adodc1.RecordSource = "Select * from ClassMaster Order By CID"
Set DataGrid1.DataSource = Adodc1
DataGrid1.Columns("CID").Width = 0
End Sub
Public Sub DataReferesh()
Me.Adodc1.Refresh
Me.DataGrid1.Refresh
DataGrid1.Columns("CID").Width = 0
Me.txtCode = ""
Me.txtdesc = ""
Me.txtCode.Tag = ""
Me.TxtSection = ""
End Sub
frmclasslist
Private Sub DataGrid1_DblClick()
If Not Adodc1.Recordset.EOF Then
frmclass.txtCode = Me.Adodc1.Recordset!ccode
frmclass.txtdesc = Me.Adodc1.Recordset!Classname
End If
Unload frmclasslist
End Sub
Private Sub Form_KeyPress(keyascii As Integer)
If keyascii = 13 Then
DataGrid1_DblClick
End If
End Sub
Private Sub Form_Load()
Me.Left = Screen.Width \ 2 - Me.Width \ 2
Me.Top = Screen.Height \ 2 - Me.Height \ 2
Adodc1.ConnectionString = ConnectString
Adodc1.RecordSource = "Select * From CLASSMaster"
Me.Adodc1.Refresh
Set DataGrid1.DataSource = Adodc1
DataGrid1.Refresh
End Sub
School management system project in asp.net
School student management system project is implemented in asp.net platform. This project is developed by considering importance of automation system for schools.
ASP.Net Project ideas, (CVS) is a Version Control Management System, Online Examination System project we made in ASP.NET.
School Management System in talpurdeveloper.com is nice project screenshot.. but where is the source code Talpur?
Asp.Net Project : Loan Against fixed Deposit (Bank to Customer Solution) Download This Asp.Net Project relies on the System wherever
Download School Management System Project Employee Management System in ASP.Net, Hospital Management System Projects College Library Management
Introduction: The project “ School automation record management system a ASP.Net Project ” is an automated system for managing student details.
School Management System Project ( in Asp.Net ) which is a web based project that is maintain all the activity related to School, it store all the information
'School Management System' job on Freelancer India. Work on this job or post your own for free! school management system project net,
Online E school management system project is a web application designed in asp.net programming language. This application objective is to provide solution for
Download Institute Management System Project Related Asp.Net Projects: Payroll Management System Project Database School Management System .Net