Create Fees Deposit System in School Management System

Free Source Code for Search Button

जब आप किसी Student की Fees Deposit करेंगे तब आप उस Student की Details पहले Search करेंगे उसके बाद आप उस Student की Fees जमा कर पायेंगे, Fees Deposit वाले System में Student की Details Search करने वाला System बनाने के लिए निचे दिया गया Source Code को Copy करिए और अपने Project के Fees Deposit वाले Userform में Search बटन पर Double Click करके Copy किये गये Source Code को Paste कर दीजिये।

Search Student Details :

निचे दिया गया Source Code छात्र व छात्रा की Basic Details Display करेगा

Source Code

'==========================================================
'start code for Search Student Details (Fees Deposit System)
'==========================================================
On Error Resume Next
Dim x As Long
Dim y As Long
x = Sheets("Database").Range("A" & Rows.Count).End(xlUp).Row
For y = 2 To x
If Sheets("Database").Cells(y, 1).Text = TextBox8.Value Then
'==============================================
'Search Student Details
'==============================================
TextBox1.Text = Sheets("Database").Cells(y, 1)
TextBox2.Text = Sheets("Database").Cells(y, 11)
TextBox5.Text = Sheets("Database").Cells(y, 2)
TextBox4.Text = Sheets("Database").Cells(y, 12)
TextBox6.Text = Sheets("Database").Cells(y, 3)
TextBox7.Text = Sheets("Database").Cells(y, 4)

End If
Next y

Search Installment Fees Details :

निचे दिया गया Source Code छात्र व छात्रा की Installment Fees Paid Details Display करेगा (Copy किये गये Sourse Code को End If से पहले Paste करें। )

Source Code

'===============================================
'Search Installment Fees Paid Details
'===============================================
TextBox9.Text = Sheets("Database").Cells(y, 48)
TextBox10.Text = Sheets("Database").Cells(y, 49)
TextBox11.Text = Sheets("Database").Cells(y, 50)
TextBox12.Text = Sheets("Database").Cells(y, 51)
TextBox13.Text = Sheets("Database").Cells(y, 52)
TextBox14.Text = Sheets("Database").Cells(y, 53)
TextBox15.Text = Sheets("Database").Cells(y, 54)
TextBox16.Text = Sheets("Database").Cells(y, 55)
TextBox17.Text = Sheets("Database").Cells(y, 56)
TextBox18.Text = Sheets("Database").Cells(y, 57)
TextBox19.Text = Sheets("Database").Cells(y, 58)
TextBox20.Text = Sheets("Database").Cells(y, 59)
TextBox21.Text = Sheets("Database").Cells(y, 60)
TextBox22.Text = Sheets("Database").Cells(y, 61)
TextBox23.Text = Sheets("Database").Cells(y, 62)
TextBox24.Text = Sheets("Database").Cells(y, 63)
TextBox25.Text = Sheets("Database").Cells(y, 64)
TextBox26.Text = Sheets("Database").Cells(y, 65)
TextBox27.Text = Sheets("Database").Cells(y, 66)
TextBox28.Text = Sheets("Database").Cells(y, 67)
TextBox29.Text = Sheets("Database").Cells(y, 68)
TextBox30.Text = Sheets("Database").Cells(y, 69)
TextBox31.Text = Sheets("Database").Cells(y, 70)
TextBox32.Text = Sheets("Database").Cells(y, 71)

Search Board Fees Details :

निचे दिया गया Source Code छात्र व छात्रा की Board Fees Paid Details Display करेगा, जैसे- Board Registration Fees, Board Fees..etc (Copy किये गये Sourse Code को End If से पहले Paste करें। )

Source Code

'===============================================
'Search Board Fees Paid Details
'===============================================
TextBox44.Text = Sheets("Database").Cells(y, 21)
TextBox45.Text = Sheets("Database").Cells(y, 22)
TextBox46.Text = Sheets("Database").Cells(y, 23)
TextBox47.Text = Sheets("Database").Cells(y, 24)

Search Exam Fees Details :

निचे दिया गया Source Code छात्र व छात्रा की Exam Fees Paid Details Display करेगा, जैसे- Half Yearly Exam Fees, Annual Exam Fees. (Copy किये गये Sourse Code को End If से पहले Paste करें। )

Source Code

'===============================================
'Search Exam Fees Paid Details
'===============================================
TextBox50.Text = Sheets("Database").Cells(y, 17)
TextBox51.Text = Sheets("Database").Cells(y, 18)
TextBox52.Text = Sheets("Database").Cells(y, 19)
TextBox53.Text = Sheets("Database").Cells(y, 20)

Search Admit Card Fees Details :

निचे दिया गया Source Code छात्र व छात्रा की Admit Card Fees Paid Details Display करेगा (Copy किये गये Sourse Code को End If से पहले Paste करें। )

Source Code

'===============================================
'Search Admit Card Fees Paid Details
'===============================================
TextBox54.Text = Sheets("Database").Cells(y, 25)
TextBox55.Text = Sheets("Database").Cells(y, 26)

Search Practical Fees Details :

निचे दिया गया Source Code छात्र व छात्रा की Practical Fees Paid Details Display करेगा (Copy किये गये Sourse Code को End If से पहले Paste करें। )

Source Code

'===============================================
'Search Practical Fees Paid Details
'===============================================
TextBox56.Text = Sheets("Database").Cells(y, 29)
TextBox57.Text = Sheets("Database").Cells(y, 30)
TextBox58.Text = Sheets("Database").Cells(y, 31)
TextBox59.Text = Sheets("Database").Cells(y, 32)
TextBox60.Text = Sheets("Database").Cells(y, 33)
TextBox61.Text = Sheets("Database").Cells(y, 34)
TextBox62.Text = Sheets("Database").Cells(y, 35)
TextBox63.Text = Sheets("Database").Cells(y, 36)
TextBox113.Text = Sheets("Database").Cells(y, 37)
TextBox114.Text = Sheets("Database").Cells(y, 38)
TextBox115.Text = Sheets("Database").Cells(y, 39)
TextBox116.Text = Sheets("Database").Cells(y, 40)
TextBox64.Text = Sheets("Database").Cells(y, 27)
TextBox65.Text = Sheets("Database").Cells(y, 28)

Search Other Fees Details :

निचे दिया गया Source Code छात्र व छात्रा की Other Fees Paid Details Display करेगा जैसे-

Admission Fees Details
Transport Fees Details
Tuition Fees Details
Total Fees Details
Discount Fees Details
Total Paid Fees Details
Remaining Fees Details

(Copy किये गये Sourse Code को End If से पहले Paste करें। )

Source Code

'===============================================
'Search Other Fees Paid Details
'===============================================
TextBox33.Text = Sheets("Database").Cells(y, 15)
TextBox34.Text = Sheets("Database").Cells(y, 16)
TextBox35.Text = Sheets("Database").Cells(y, 45)
TextBox36.Text = Sheets("Database").Cells(y, 46)
TextBox112.Text = Sheets("Database").Cells(y, 43)
TextBox37.Text = Sheets("Database").Cells(y, 73)
TextBox40.Text = Sheets("Database").Cells(y, 14)
TextBox41.Text = Sheets("Database").Cells(y, 75)
TextBox42.Text = Sheets("Database").Cells(y, 76)
TextBox43.Text = Sheets("Database").Cells(y, 77)

Free Source Code for Deposit Button

Student की जो Fees जमा कर रहे है उसका Amount Enter करने के बाद आपको Deposit बटन पर click करना है लेकिन Deposit बटन तभी काम करेगा जब आप उसके लिए Coding करेंगे तो चलिए मै बताता हु कैसे आपको Fees Deposit वाले बटन के लिए Coding करना है जिसके लिए आपको इसका वीडियो देखकर नीचे दिए गए Source Code को Copy करके अपने Project में Paste करना पड़ेगा

Installment fee Deposit :

निचे दिया गया Source Code छात्र व छात्रा के Installment की Fee Deposit करेगा नीचे दिए गए Source Code को Copy करके Project के Backend में जाकर FeeDeposit वाले Userform में दिए गए Deposit बटन पर Double Click करके Copy किये गये Code को Paste कर दीजिए

Source Code

'========================================================
'start code for Fees Deposit
'========================================================
On Error Resume Next
Dim x As Long
Dim y As Long
x = Sheets("Database").Range("A" & Rows.Count).End(xlUp).Row
For y = 2 To x
If Sheets("Database").Cells(y, 1).Text = TextBox8.Value Then

'================================================
'code for Installment Fees Deposit
'================================================
Sheets("Database").Cells(y, 48) = TextBox9.Text
Sheets("Database").Cells(y, 49) = TextBox10.Text
Sheets("Database").Cells(y, 50) = TextBox11.Text
Sheets("Database").Cells(y, 51) = TextBox12.Text
Sheets("Database").Cells(y, 52) = TextBox13.Text
Sheets("Database").Cells(y, 53) = TextBox14.Text
Sheets("Database").Cells(y, 54) = TextBox15.Text
Sheets("Database").Cells(y, 55) = TextBox16.Text
Sheets("Database").Cells(y, 56) = TextBox17.Text
Sheets("Database").Cells(y, 57) = TextBox18.Text
Sheets("Database").Cells(y, 58) = TextBox19.Text
Sheets("Database").Cells(y, 59) = TextBox20.Text
Sheets("Database").Cells(y, 60) = TextBox21.Text
Sheets("Database").Cells(y, 61) = TextBox22.Text
Sheets("Database").Cells(y, 62) = TextBox23.Text
Sheets("Database").Cells(y, 63) = TextBox24.Text
Sheets("Database").Cells(y, 64) = TextBox25.Text
Sheets("Database").Cells(y, 65) = TextBox26.Text
Sheets("Database").Cells(y, 66) = TextBox27.Text
Sheets("Database").Cells(y, 67) = TextBox28.Text
Sheets("Database").Cells(y, 68) = TextBox29.Text
Sheets("Database").Cells(y, 69) = TextBox30.Text
Sheets("Database").Cells(y, 70) = TextBox31.Text
Sheets("Database").Cells(y, 71) = TextBox32.Text

End If
Next y
MsgBox "Student Fees Deposited successfully.", vbOKOnly, "Learn with OMGStudy.Com"
Unload Me
FeeDeposite.Show

Board fee Deposit :

निचे दिया गया Source Code छात्र व छात्रा के Board की Fee Deposit करेगा (Copy किये गये Sourse Code को End If से पहले Paste करें। )

Source Code

'================================================
'code for Board Fees Deposit
'================================================
Sheets("Database").Cells(y, 22) = TextBox45.Text
Sheets("Database").Cells(y, 24) = TextBox47.Text

Exam fee Deposit :

निचे दिया गया Source Code छात्र व छात्रा के Exam की Fee Deposit करेगा (Copy किये गये Sourse Code को End If से पहले Paste करें। )

Source Code

'================================================
'code for Exam Fees Deposit
'================================================
Sheets("Database").Cells(y, 18) = TextBox51.Text
Sheets("Database").Cells(y, 20) = TextBox53.Text

Admit Card fee Deposit :

निचे दिया गया Source Code छात्र व छात्रा के Admit Card की Fee Deposit करेगा (Copy किये गये Sourse Code को End If से पहले Paste करें। )

Source Code

'================================================
'code for Admit Card Fees Deposit
'================================================
Sheets("Database").Cells(y, 26) = TextBox55.Text

Practical fee Deposit :

निचे दिया गया Source Code छात्र व छात्रा के Practical की Fee Deposit करेगा (Copy किये गये Sourse Code को End If से पहले Paste करें। )

Source Code

'================================================
'code for Practical Fees Deposit
'================================================
Sheets("Database").Cells(y, 31) = TextBox58.Text
Sheets("Database").Cells(y, 34) = TextBox61.Text
Sheets("Database").Cells(y, 37) = TextBox113.Text
Sheets("Database").Cells(y, 40) = TextBox116.Text
Sheets("Database").Cells(y, 28) = TextBox65.Text

Other Fees Deposit :

निचे दिया गया Source Code छात्र व छात्रा की Other Fees Deposit करेगा जैसे-

Admission Fees
Discount Fees
Other Fees

(Copy किये गये Sourse Code को End If से पहले Paste करें। )

Source Code

'===============================================
'Search Other Fees Paid Details
'===============================================
Sheets("Database").Cells(y, 16) = TextBox34.Text
Sheets("Database").Cells(y, 45) = TextBox35.Text
Sheets("Database").Cells(y, 46) = TextBox36.Text
Sheets("Database").Cells(y, 73) = TextBox37.Text

नोट : Tuition Fees और Tranport Fees एक साथ ही Installment के द्वारा जमा होगी, इस बात को ख़ास तौर से ध्यान रखिये...

Free Source Code for Print Fee Receipt

Student की Fees जमा करने के बाद उस Student की Fee Receipt प्रिंट करने के लिए आपको अपने Project में Print Fee Receipt वाला System बनाना पड़ेगा तो चलिए मै बताता हु कैसे आपको Print Fee Receipt वाला System कैसे बनाना है और उसके लिए Coding कैसे करना है जिसके लिए आपको इसका वीडियो देखकर नीचे दिए गए Source Code को Copy करके अपने Project में Paste करना पड़ेगा

सबसे पहले Fee Receipt के लिए Templates वाली File Download कीजिए और अपने Project में किसी एक Template को डाल लीजिए

Download Template

Code for Fee Receipt :

निचे दिया गया Source Code छात्र व छात्रा के Fees की Details Fee Receipt में करेगा नीचे दिए गए Source Code को Copy करके Project के Fee Receipt वाले Sheet में जाकर Show Details वाले बटन पर Right Click करके Assign Macro.. पर Click करने के बाद New पर Click करिए और फिर Copy किये गये Code को Paste कर दीजिए

Source Code

'===========================================================
'start code for generate automatic student fees reciept
'===========================================================
On Error Resume Next
Dim x As Long
Dim y As Long
x = Sheet2.Range("A" & Rows.Count).End(xlUp).Row
For y = 2 To x
If Sheet6.Range("P8").Value = Sheet2.Cells(y, "A").Value Then
'======================================================
'Start Code for display student details
'======================================================
Sheet6.Range("C6").Value = Sheet2.Cells(y, "A").Value
Sheet6.Range("D7").Value = Sheet2.Cells(y, "B").Value
Sheet6.Range("D8").Value = Sheet2.Cells(y, "C").Value
Sheet6.Range("D9").Value = Sheet2.Cells(y, "D").Value
Sheet6.Range("J7").Value = Sheet2.Cells(y, "I").Value
Sheet6.Range("J9").Value = Sheet2.Cells(y, "F").Value
Sheet6.Range("J8").Value = Sheet2.Cells(y, "K").Value
'=======================================================
'Start Code for display student fees details
'=======================================================


'=======================================================
'End Code for display student fees details
'=======================================================
End If
Next y