1.1 About Project:-: 1-Planned Approach Towards Working

Chapter 1
Introduction
1.1 About project:-
The project title "Self Supporting Program" that is developed on visual basic 6.0.
This project should be used to computerize the budget process of department computer
science A.P.S. University. Any computerize system solve many problem of non computerize
system like saving data in long time, fast searching, creating backup of important data, quit
processing and also use new trends and technology of computer for useful job. And most
important tools providing security Cain not access unauthorized member.
Only access the administrator manages all details of the “Self Supporting Program”.
1.2 Purpose of the Project:-
The main purposes of this Project (self supporting program) on develop good and
useful software for our department computer Science so that we can computerize our easily
ménage income & budget processing system of department.
The Software is for the automation of self supporting program
1.3 proposed system:-
1- Planned approach towards working: - The working in the organization will be

well planned and organized. The data will be stored properly in data stores, which will
help in retrieval of information as well as its storage.
.2- Accuracy: - The level of accuracy in the proposed system will be higher. All
operation would be done correctly and it ensures that whatever information is coming from
the center is accurate.
3- Reliability: - The reliability of the proposed system will be high due to the Above
stated reasons. The reason for the increased reliability of the system is that Now there
would be proper storage of information.
4- No Redundancy: - In the proposed system utmost care would be that no Information
is repeated anywhere, in storage or otherwise. This would assure Economic use of storage
space and consistency in the data stored.
5- Immediate retrieval of information: - The main objective of proposed System is
to provide for a quick and efficient retrieval of information. Any type of information would
be available whenever the user requires.
6- Immediate storage of information: - In manual system there are many Problems
to store the largest amount of information.
7- Easy to Operate: - The system should be easy to operate and should be such That it
can be developed within a short period of time and fit in the limited budget Of the user.
1.4Why Need of Computerization;-
The Main Application of This Project to Make Documentation More Basilar Task for
the Administrator without Any Gigantic Error. The Next Factors For Which This Project
Comes Into Existence Is Retrieving Data (As Well As Old Data). Last Factor but Not the
Last One Called Time Factor It Saves Precious Time Which Consumes In Documentation
Problems with conventional system:-
1. Lack of immediate retrievals: -The information is very difficult to find particular
information
2. Lack of immediate information storage: - The information generated by various
transactions takes time and efforts to be stored at right place.
3. Lack of prompt updating: - Various changes to information like details or
immunization details of difficult to make as paper work.
4. Error prone manual calculation: - Manual calculations are error take a lot of time this
may result in incorrect information.
5. Preparation of accurate and prompt reports: - This becomes a difficult task as
information is difficult to collect from various registers.
2
1.5 Advantage of Computerization:-
Having a computer at hand a Provides a vast range of advantage to our day life. Some
of them are:-
 Speed – data entry onto the computer with its formatted screens and built-in
databases of customers and supplier details and stock records can be carried out
far more quickly than any manual processing.
 Automatic document production – fast and accurate invoices, credit notes,
purchase orders, printing statements and payroll documents are all done
automatically.
 Accuracy – there is less room for errors as only one entry is needed for each
transaction rather than two (or three) for a manual system.
 Up-to-date information – the income records are automatically updated and so
will always be up-to-date.
 Availability of information – the data is instantly available and can be made
available to different users in different locations at the same time.
 Management information – reports can be produced which will help
management monitor and control, for example the aged debtors analysis will
show which customer
 Legibility – the onscreen and printed data should always be legible and so will
avoid errors caused by poor figures.
 Efficiency – better use is made of resources and time; cash flow should improve
through better debt collection and inventory control.
 Staff motivation – the system will require staff to be trained to use new skills,
which can make them feel more motivated
 Cost savings – computerized programs reduce staff time doing and reduce audit
expenses as records are neat, up-to-date and accurate.
The ability to deal in multiple currencies easily – many computerized accounting
packages now allow an income to trade in multiple currencies with ease.
3
Chapter-2
Objective and Scope of the project
2.1 OBJECTIVE:-
The main objective of the application is to automate the self supporting program of
manually maintain the records of the income, head of expenditures, Search to be
computerized. So the income, head of expenditures, Return, Searching will be faster’s.
Mention the calculation automatic
2.2 SCOPE:-
This application can be used by any self supporting program to automate the process
of manually maintaining the records related course of maintaining the income and
expenditure. Generate the report
4
Chapter-3
Project Overview
3.1 SDLC Model:-
System development life cycle model is produce height quality s/w loose cost and in
reusable time it is essences to perform s/w development in a phase this phase development
s/w is reefer to a System development life cycle model .into top to bottom approach.
Provides the step by step development
Investigation
6 phases to develop s/w

Analysis
Step by step
Process to development Designing
Coding
Testing
Maintenance
System development life cycle model
3.2 Feasibility Study: -

Depending on the results of the initial investigation the survey is now expanded to
a more detailed feasibility study. “FEASIBILITY STUDY” is a test of system proposal
according to its workability, impact of the organization, ability to meet needs and effective
use of the resources. It focuses on these major questions:
1. What are the user’s demonstrable needs and how does a candidate system meet
them?
2. What resources are available for given candidate system?
5
3. What are the likely impacts of the candidate system on the organization?
4. Whether it is worth to solve the problem?
During feasibility analysis for this project, following primary areas of interest are to be
considered. Investigation and generating ideas about a new system does this.
3.2.1 Technically
A study of resource availability that may affect the ability to achieve an acceptable
system. This evaluation determines whether the technology needed for the proposed system
is available or not.
• Can the work for the project be done with current equipment existing software
technology & available personal?
• Can the system be upgraded if developed?
• If new technology is needed then what can be developed?
This is concerned with specifying equipment and software that will successfully satisfy
the user requirement. The technical needs of the system may include:
Front-end and back-end selection

An important issue for the development of a project is the selection of suitable front-
end and back-end. When we decided to develop the project we went through an extensive
study to determine the most suitable platform that suits the needs of the organization as well
as helps in development of the project.
The aspects of our study included the following factors.
Front-end selection:
1. It must have a graphical user interface that assists employees that are not from IT
background.
2. Scalability and extensibility.
6
3. Flexibility.
4. Robustness.
5. According to the organization requirement and the culture.
6. Must provide excellent reporting features with good printing support.
7. Platform independent.
8. Easy to debug and maintain.
9. Event driven programming facility.
10. Front end must support some popular back end like Ms Access.
According to the above stated features we selected VB6.0 as the front-end for
developing our project.
Back-end Selection:-
1. Multiple user support.
2. Efficient data handling.
3. Provide inherent features for security.
4. Efficient data retrieval and maintenance.
5. Stored procedures.
6. Popularity.
7. Operating System compatible.
8. Easy to install.
9. Various drivers must be available.
10. Easy to implant with the Front-end.
According to above stated features we selected Ms-Access as the backend.
The technical feasibility is frequently the most difficult area encountered at this stage.
It is essential that the process of analysis and definition be conducted in parallel with an
assessment to technical feasibility. It centers on the existing computer system (hardware,
software etc.) and to what extent it can support the proposed system.
7
3.2.2Economically:-
Economic justification is generally the “Bottom Line” consideration for most
systems.
Economic justification includes a broad range of concerns that includes cost benefit
analysis. In this we weight the cost and the benefits associated with the candidate system
and if it suits the basic purpose of the organization i.e. profit making, the project is making
to the analysis and design phase.
The financial and the economic questions during the preliminary investigation are verified
to estimate the following:
• The cost to conduct a full system investigation.
• The cost of hardware and software for the class of application being considered.
• The benefits in the form of reduced cost.
• The proposed system will give the minute information, as a result the performance is
improved which in turn may be expected to provide increased profits.
• This feasibility checks whether the system can be developed with the available funds.
3.2.3 Operational:-
It is mainly related to human organizations and political aspects. The points to be
considered are:
• What changes will be brought with the system?
• What organization structures are disturbed?
• What new skills will be required? Do the existing staff members have these skills? If not,
can they be trained in due course of time?
The system is operationally feasible as it very easy for the End users to operate it. It only
needs basic information about Windows platform.
8
3.3 Project Scheduling:-
Time evaluation is the most important consideration in the development of project. The
time schedule required for the developed of this project is very important since more
development time effect machine time, cost and cause delay in the development of other
systems.
A reliable self supporting program can be developed in the considerable amount of time.
Time
TASKS MONTH 1 MONTH 2 MONTH 3 MONTH 4
TASK A PLANIG
TASK B ANALYSIS
TASK C DESIGIN
TASK D CODING
TASK E TESTING
TASK F MAINTENANA
TIME
Gantt chart
3.4 User characteristic:-
Every user should be:-
i. Comfortable of working with computer.

ii. He must have knowledge in field.
iii. He must also have basic knowledge of English too.
9
Chapter-4
System Requirement Analysis and Specification
4.1-SRS:-
Requirement describe how a system should act appear or perform for when user request
for a software.
The output of the requirement phase of s/w development process to how use the terms in
application to analysis
4.1.1 Terms used in project:-
This project will be a desktop application to be developed in VB 6.0 having Ms Access

as backend.
• Database Design (Ms Access)
• Form Design (VB 6.0)
• Coding (VB 6.0)
• Testing (VB 6.0)
• Reporting Tool (Data Report)
4.1.2 System hardware requirements:-
Processor : Pentium II, Pentium III,

Pentium IV or higher Intel dual core 2.5 GB Hz
RAM : 64 Mb or Higher, 512 MB
HDD : 40 GB
Monitor : Colors Monitor, VGA/XGA
Mouse : Optical mouse
Printer : hp LaserJet
10
4.1.3 Software requirements:-
Operating System : Win-98, Win-XP, Linux or any other higher version
Front end : Visual Basic 6.0
Back end : Ms Access
4.2 Analysis:-
SDLC Stages we discussed about Project Planning and Feasibility Study moved on to
System Analysis and Requirements which lead to Systems Design.
Systems Design will naturally lead to another stage where it becomes closer to the
actual deployment of the planned software. Since the design is already there, developers
have an idea on how the software actually looks like. All they need is to put them all
together to realize the intended software.
11
Chapter-5
System Design
5.1 Flow chart:-
Login
Main form
Option New entry

1
Option2 Expenditure
Incomes
Option3 Find
Expenditur
e
Incomes
Option4 Report
Expenditure
Option5 Exit
12
5.2 Data flow diagram:-
A Date Flow Diagram (DFD) is a diagrammatic representation of the information (data)

flow within a system.
User Logi Mdi Incom

n form e
Repor Add
Check db t new
Add db
Dfd Level 0
User Login Mdi form select income Inco feed data Add data
me
Print report Takes report Report Jenrette report Update

data
Stored db
Dfd level 1
Advantages of Data Flow Diagrams

 It is a simplified but powerful graphic technique
 It enables representing data with different levels of details.
 It helps defining boundaries of the system
Chapter 6
13
Database Design
6.1 ER Diagram:-
Ssp
No. of student
Name of course Budge Name of course

t
Head Head of
of Expend
incom iture
Total e Tuition. Fee.
Income Expenditure
Form.
Fee. Staff
Otter
(specify Salary honorarium
Caution
money Guest
fac.
Entranc Payment unit 20%
Photocopy e
Audit inco.fee.1% SRERANA
RY
Advertisemen
t
Common services
Seminar
f.d.r.16%
Refund of Payment cell
caution fee. 4%
Pension fund 10%
Capital account
equipmen Total rs.

buildin book
g t
6.2 Table specification:-
14
Awadhesh Pratap Singh University, Rewa(M.P.)
Self Supporting Programmed
Name of Course:-............................ No. of Student:-......................

No. of Student:-........................
Sr. Head of Actual for Original Actual unto Revised Budget

No. Income 2009-10 Estimates Dec. 2010 Estimates Estimates
2009-10 2010-11 2011-12
1 Tuition Fee.
2 Form Fee.
3 Caution
Money
4 Other
(Specify)
Total Rs.-
Awadhesh Pratap Singh University, Rewa (M.P.)

Self Supporting Programmed
Name of Course:-............................
Head of Expenditure Actual for Original Actual Revised Budget

2009-10 Estimates unto Estimates Estimates
2009-10 Dec. 2010-11 2011-12
2010
A. Salary Honorarium
1.Staff Honorarium for
Prof. I/C OfficeAsstt./
Library Asstt./ Computer
Asstt./ Lab.Asstt./ Peon Etc.
2.Honorarium for Guest
Faculty Visiting Faculty/
Part-time/ Contractual
Faculty
B. Common Services
1.Photocopy of Teaching
Materials/ Printing of
Prospectus/ etc
2.Advertisement
3.Stationary/Postage,
15
Telephone Charges
4.Seminar/Maintenance of
Equipments Glass/
Chemicals and other
Consumables
5.Refund of Caution Money
/Fee
6. Entrance Test/ Misc.
Expenditure
7. Audit Income Fee. 1%
8.Payment of Uni. 20% of
Course Fee
9.Payment of Cell 4%
Course Fee
10. Contribution to Pension
Fund 10% of Course Fee
11. F.D.R.(Reserve/
Emergency fund) 16% of
Course Fee.
C. Capital Account
1.Books/ Journals
2.Equipment/ Furniture
3.Building/ Other
Construction
Total Rs.
Chapter-7
16
System Input and Output Screens
MDI Form:-
This is MDI Form designed for selection of the different Menus. Following menu options
have been provided in this Home Form:-
1. New Income
2. Expenditure
3. Find
1. Income
2. Expenditure
4. Exit
New entry:- By clicking the New Income Menu of the MDI form this form can be
displayed for the entry of new Income in the self supporting programmed. Following Text
Boxes have been provided for the entry of the income related information:-
17
1. Name of course
2. Semester
3. Year
4. Number of student
5. Tuition fees
6. Form fees
7. Caution money
8. Other (specify)
9. total
In addition to above different Update, Delete, Add, Refresh and Exit command buttons
have been provided in the form.
18
Expenditure:- Clicking the second menu Expenditure this form can be obtained for the
entry of the Expenditure. The following provisions have been provided in this form:-
1. Staff honorarium
2. Honorarium for guest facility
3. Photocopy
4. Advertisement
5. Stationary
6. Seminar
7. Refund of caution money
8. Entrance test
9. Audit income fees
10. Payment of unit 20%
11. Payment of cell 4%
12. Pension fund 10%
13. Fdr 16%
14. Book
15. Equipment
16. Other construction
17. Total
In addition to above different Update, Delete, Add, Refresh and Exit command
buttons have been provided in the form.
19
Find income:- This form can be obtained by clicking the “Income” under the third menu
“Find” for income a particular field available in the self supporting program along with the
course and year. The following text boxes have been provided for entry of find field
income.
1. Name of course
2. Semester
3. Year
4. Number of student
5. Tuition fees
6. Form fees
7. Caution money
8. Other (specify)
9. total
In addition to above different Update, Delete, Search, Refresh and Exit

command buttons have been provided in the form.
20
Find Expenditure:- This form can be obtained by clicking the “Expenditure” under the
third menu “find” for Expenditure a particular field to from the self supporting program
along with the field, due date and course with fine if any. The following text boxes have
been provided for entry o
1. Staff honorarium
2. Honorarium for guest facility
3. Photocopy
4. Advertisement
5. Stationary
6. Seminar
7. Refund of caution money
8. Entrance test
9. Audit income fees
10. Payment of unit 20%
11. Payment of cell 4%
12. Pension fund 10%
13. Fdr 16%
14. Book
21
15. Equipment
16. Other construction
17. Total
In addition to above different Update, Delete, Search, Refresh and Exit command
buttons have been provided in the form
Report:-
This command used in to Jenrette data report to income and Expenditure .this command to
Jenrette repot same to the enter the data .to click print command to print report.
22
Exit:-
Exit command used in close the application
Output Screens
23
24
25
26
27
28
Chapter-8
Coding and Testing
Coding:-
Module1:-
Public formsectf As Double
Public original As Double
Public actual As Double
Public revised As Double
Public budget As Double
Form plash
Option Explicit
Dim mintCount As Integer, mintPause As Integer
Private Sub Timer1_Timer()
mintPause = mintPause + 1
If mintCount < 100 Then
mintCount = mintCount + 2
lblCount.Caption = "(" & mintCount & "%)..."
End If
If mintPause = 100 Then
lblCount.Caption = "Application..."
lblInform.Caption = "Starting"
ElseIf mintPause = 110 Then
Unload Me
frmLogin.Show vbModal
End If
End Sub
Login form:-
Option Explicit
Public LoginSucceeded As Boolean
Private Sub cmdCancel_Click()
'set the global var to false
'to denote a failed login
LoginSucceeded = False
Me.Hide
End Sub
29
Private Sub cmdOK_Click()
'check for correct password
If txtPassword = "singh" And txtUserName = "satendra" Then
'place code to here to pass the
'success to the calling sub
'setting a global var is the easiest
LoginSucceeded = True
Me.Hide
MDIForm1.Show
Else
MsgBox "Invalid Password, try again!", , "Login"
txtPassword.SetFocus
SendKeys "{Home}+{End}"
End If
End Sub
Mdi form:-
Private Sub mnucancel_Click()
Unload Me
End Sub
Private Sub ExpenditureRiport_Click()

DataReport2.Show
End Sub
Private Sub mExpenditure_Click()

Form4.Show
End Sub
Private Sub mExpenditureRiport_Click()

DataReport2.Show
End Sub
Private Sub mincome_Click()

Form1.Show
End Sub
Private Sub mincomreport_Click()

DataReport1.Show
End Sub
30
Private Sub mnuexit_Click()
End
End Sub
Private Sub mnuexp_Click()

Form3.Show
End Sub
Private Sub mnunewentry_Click()
Form2.Show
End Sub

StatusBar1.Panels(2).Text = "Date: " & Format(Date, "MMMM DD YYYY, DDDD")
StatusBar1.Panels(2).Text = "Time: " & Time
End Sub
New entry form2

Public x As Double
Private Sub cmdAdd_Click()

On Error Resume Next
Call enebal
Adodc1.Recordset.AddNew
'Adodc1.Recordset.Fields("course") = Combo2.Text
'Adodc1.Recordset.Fields("Sem") = Combo1.Text
'Adodc1.Recordset.Fields("TF1") = Text21.Text
'Adodc1.Recordset.Fields("FF1") = Text23.Text
'Adodc1.Recordset.Fields("CM1") = Text24.Text
'Adodc1.Recordset.Fields("OS1") = Text25.Text
'Adodc1.Recordset.Fields("TOTofActual") = Text26.Text
'Adodc1.Recordset.Fields("TLTofOriginal") = Text5.Text
'Adodc1.Recordset.Fields("TLTofuptoDec") = Text10.Text
31
'Adodc1.Recordset.Fields("TLTofRevised") = Text18.Text
'Adodc1.Recordset.Fields("TLTofbudget") = Text20.Text
'Adodc1.Recordset.AddNew
End Sub
Private Sub Cmdcalculater_Click()

Call enebal
Shell ("C:\WINDOWS\system32\calc.exe")
End Sub

Call enebal
Unload Me
End Sub
Private Sub cmdDelete_Click()

Call enebal
Adodc1.Recordset.Delete
Adodc1.Recordset.Fields("course") = Combo2.Text
Adodc1.Recordset.Fields("Sem") = Combo1.Text
Adodc1.Recordset.Fields("year") = Combo3.Text
Adodc1.Recordset.Fields("TF1") = Text21.Text
Adodc1.Recordset.Fields("FF1") = Text23.Text
Adodc1.Recordset.Fields("CM1") = Text24.Text
Adodc1.Recordset.Fields("OS1") = Text25.Text
Adodc1.Recordset.Fields("TOTofActual") = Text26.Text
32
Adodc1.Recordset.Fields("TLTofOriginal") = Text5.Text
Adodc1.Recordset.Fields("TLTofuptoDec") = Text10.Text
Adodc1.Recordset.Fields("TLTofRevised") = Text18.Text
Adodc1.Recordset.Fields("TLTofbudget") = Text20.Text
MsgBox "Record Deleted"
Adodc1.Refresh
End Sub
Private Sub Cmdedit_Click()

Call enebal
Combo2.Enabled = True
Text21.Enabled = True
33
End Sub
Private Sub cmdExit_Click()

Unload Me
MDIForm1.Show
End Sub
Private Sub Cmdexpendiacher_Click()

Call enebal
Form3.Show
End Sub
Private Sub cmdRefresh_Click()

Call enebal
Adodc1.Refresh
34
End Sub
Private Sub cmdsave_Click()

Call enebal
Adodc1.Recordset.Update
35
MsgBox "Record Saved"
Call denebal
'Adodc1.Refresh
End Sub
Private Sub Cmdsearch_Click()

Dim i As Integer
i = Val(InputBox("Enter year to search"))
Adodc1.Recordset.Find "year=" & i
End Sub
Private Sub cmdsum_Click()

Text26.Text = Val(Text25.Text) + Val(Text21.Text) + Val(Text23.Text) + Val(Text24.Text)
End Sub
Private Sub cmdUpdate_Click()

Call enebal
36
MsgBox "Record updated"
End Sub
Private Sub Command1_Click()
DataReport1.Show
End Sub
Private Sub Form_Activate()
Call clear_clear
End Sub
Private Sub Form_Load()

Adodc1.ConnectionString = "Provider=Microsoft.jet.OLEDB.4.0; Data Source=" + App.Path +
"\record\NEW.MDB"
Adodc1.RecordSource = "income"
Adodc1.Refresh
End Sub
Private Sub Text1_Change()

original = Text1.Text
End Sub
revised = Text12.Text
End Sub
37
budget = Text15.Text
End Sub
Private Sub Text21_LostFocus()
formsectf = Text21.Text
End Sub
'actual = Text6.Text
End Sub
Label1.ForeColor = RGB(122, 0, 48) * Rnd
'Label19.ForeColor = RGB(123, 0, 790 * Rnd)
End Sub
Public Sub clear_clear()
Combo2.Text = " "
Combo1.Text = " "
Combo3.Text = " "
Text21.Text = " "
Text23.Text = " "
Text24.Text = " "
Text25.Text = " "
Text26.Text = " "
Text1.Text = " "
Text2.Text = " "
Text3.Text = " "
Text4.Text = " "
Text5.Text = " "
Text6.Text = " "
Text7.Text = " "
Text8.Text = " "
Text9.Text = " "
Text10.Text = " "
Text11.Text = " "
Text12.Text = " "
Text13.Text = " "
Text14.Text = " "
Text18.Text = " "
Text15.Text = " "
Text16.Text = " "
Text17.Text = " "
Text19.Text = " "
Text20.Text = " "
38
End Sub
Public Sub enebal()

End Sub
Public Sub denebal()

Combo2.Enabled = False
Text21.Enabled = False
39
Text2.Enabled = TFalse
End Sub
Expenditure: form 3
Private Sub cmdAdd_Click()

Call enebal
Adodc1.Recordset.AddNew
'Adodc1.Recordset.Fields("course") = Combo1.Text
'Adodc1.Recordset.Fields("semester") = Combo2.Text
'Adodc1.Recordset.Fields("year") = Combo3.Text
'Adodc1.Recordset.Fields("staff1") = Text74.Text
'Adodc1.Recordset.Fields("guest1") = Text71.Text
'Adodc1.Recordset.Fields("photocopy1") = Text8.Text
'Adodc1.Recordset.Fields("advertisement1") = Text7.Text
'Adodc1.Recordset.Fields("statonary1") = Text6.Text
'Adodc1.Recordset.Fields("seminar1") = Text9.Text
'Adodc1.Recordset.Fields("refound1") = Text11.Text
'Adodc1.Recordset.Fields("entrance1") = Text10.Text
40
'Adodc1.Recordset.Fields("audit1") = Text1.Text
'Adodc1.Recordset.Fields("paymnt of uni1") = Text2.Text
'Adodc1.Recordset.Fields("payement1") = Text3.Text
'Adodc1.Recordset.Fields("contribut1") = Text4.Text
'Adodc1.Recordset.Fields("fdr1") = Text5.Text
'Adodc1.Recordset.Fields("book1") = Text64.Text
'Adodc1.Recordset.Fields("equipement1") = Text65.Text
'Adodc1.Recordset.Fields("building1") = Text66.Text
'Adodc1.Recordset.Fields("total1") = Text63.Text
'Adodc1.Recordset.Fields("advertisement2") = Text17.Text
'Adodc1.Recordset.Fields("stationary2") = Text18.Text
'Adodc1.Recordset.Fields("seminar2") = Text4.Text
'Adodc1.Recordset.Fields("refund2") = Text12.Text
'Adodc1.Recordset.Fields("payment of uni2") = Text22.Text
'Adodc1.Recordset.Fields("payment2") = Text21.Text
'Adodc1.Recordset.Fields("equipment2") = Text69.Text
'Adodc1.Recordset.Fields("advertisment3") = Text28.Text
'Adodc1.Recordset.Fields("seminor3") = Text26.Text
'Adodc1.Recordset.Fields("refond3") = Text24.Text
'Adodc1.Recordset.Fields("contribution3") = Text31.Text
41
'Adodc1.Recordset.Fields("advertisment4") = Text50.Text
'Adodc1.Recordset.Fields("refound4") = Text46.Text
'Adodc1.Recordset.Fields("aduitit4") = Text56.Text
'Adodc1.Recordset.Fields("advr5") = Text39.Text
'Adodc1.Recordset.Fields("refund5") = Text35.Text
'Adodc1.Recordset.Fields("aduit5") = Text45.Text
'Adodc1.Recordset.Fields("contribution5") = Text42.Text
'Adodc1.Recordset.AddNew
'MsgBox "Record add"
'On Error Resume Next
End Sub
Private Sub Cmdcalculatr_Click()

42
End Sub

Unload Me
End Sub

Adodc1.Recordset.Fields("semester") = Combo2.Text
Adodc1.Recordset.Fields("staff1") = Text74.Text
Adodc1.Recordset.Fields("guest1") = Text71.Text
Adodc1.Recordset.Fields("photocopy1") = Text8.Text
Adodc1.Recordset.Fields("advertisement1") = Text7.Text
Adodc1.Recordset.Fields("statonary1") = Text6.Text
Adodc1.Recordset.Fields("seminar1") = Text9.Text
Adodc1.Recordset.Fields("refound1") = Text11.Text
Adodc1.Recordset.Fields("entrance1") = Text10.Text
Adodc1.Recordset.Fields("audit1") = Text1.Text
Adodc1.Recordset.Fields("paymnt of uni1") = Text2.Text
Adodc1.Recordset.Fields("payement1") = Text3.Text
Adodc1.Recordset.Fields("contribut1") = Text4.Text
Adodc1.Recordset.Fields("fdr1") = Text5.Text
Adodc1.Recordset.Fields("book1") = Text64.Text
Adodc1.Recordset.Fields("equipement1") = Text65.Text
Adodc1.Recordset.Fields("building1") = Text66.Text
Adodc1.Recordset.Fields("total1") = Text63.Text
Adodc1.Recordset.Fields("stationary2") = Text18.Text
Adodc1.Recordset.Fields("refund2") = Text12.Text
Adodc1.Recordset.Fields("payment of uni2") = Text22.Text
Adodc1.Recordset.Fields("payment2") = Text21.Text
Adodc1.Recordset.Fields("equipment2") = Text69.Text
43
Adodc1.Recordset.Fields("advertisment3") = Text28.Text
Adodc1.Recordset.Fields("seminor3") = Text26.Text
Adodc1.Recordset.Fields("refond3") = Text24.Text
Adodc1.Recordset.Fields("contribution3") = Text31.Text
Adodc1.Recordset.Fields("aduitit4") = Text56.Text
Adodc1.Recordset.Fields("advr5") = Text39.Text
44
Adodc1.Recordset.Fields("aduit5") = Text45.Text
Adodc1.Refresh
End Sub

45
46
End Sub

Unload Me
End Sub
Private Sub Cmdincome_Click()

Form2.Show
End Sub
Private Sub Cmdpersenteg_Click()

Text1.Text = formsectf * 0.01
Text2.Text = formsectf * 20 / 100
47
Text23.Text = original * 0.01
Text22.Text = original * 20 / 100
Text34.Text = actual * 0.01
Text33.Text = actual * 20 / 100
Text56.Text = revised * 0.01
Text55.Text = revised * 20 / 100
Text45.Text = budget * 0.01
Text44.Text = budget * 20 / 100
End Sub

Call enebal
48
49
Adodc1.Refresh
End Sub

Call enebal
50
51
52
Adodc1.Refresh
Call denebal
End Sub

c1 = Combo1.Text
seme = Combo2.Text
session1 = Combo3.Text
Adodc2.Refresh
Adodc2.Recordset.MoveFirst
While Not Adodc2.Recordset.EOF
If c1 = Adodc2.Recordset.Fields("course") And seme = Adodc2.Recordset.Fields("Sem") And session1 =
Adodc2.Recordset.Fields("year") Then
formsectf = Adodc2.Recordset.Fields("TF1")
original = Adodc2.Recordset.Fields("TF2")
actual = Adodc2.Recordset.Fields("TF3")
revised = Adodc2.Recordset.Fields("TF4")
budget = Adodc2.Recordset.Fields("TF5")
'Combo1.Text = Adodc2.Recordset.Fields("course")
'Combo2.Text = Adodc2.Recordset.Fields("sem")
Exit Sub
End If
Adodc2.Recordset.MoveNext
Wend
End Sub

Text63.Text = Val(Text74.Text) + Val(Text71.Text) + Val(Text8.Text) + Val(Text7.Text) + Val(Text6.Text) +
Val(Text9.Text) + Val(Text11.Text) + Val(Text10.Text) + Val(Text1.Text) + Val(Text2.Text) + Val(Text3.Text)
+ Val(Text4.Text) + Val(Text5.Text) + Val(Text64.Text) + Val(Text65.Text) + Val(Text66.Text)
Text67.Text = Val(Text72.Text) + Val(Text73.Text) + Val(Text16.Text) + Val(Text17.Text) + Val(Text18.Text)
+ Val(Text14.Text) + Val(Text12.Text) + Val(Text13.Text) + Val(Text23.Text) + Val(Text22.Text) +
Val(Text21.Text) + Val(Text20.Text) + Val(Text19.Text) + Val(Text68.Text) + Val(Text69.Text) +
Val(Text70.Text)
Val(Text78.Text)
53
Val(Text86.Text)
Val(Text82.Text)
End Sub

Call enebal
54
55
End Sub
Private Sub Command1_Click()

DataReport2.Show
End Sub

Call clear_clear
End Sub

'Adodc1.ConnectionString = "Provider=Microsoft.jet.OLEDB.4.0; Data Source=" + App.Path +
"\record\NEW.MDB"
'Adodc1.RecordSource = "head"
'Adodc1.Refresh
"\record\NEW.MDB"
Adodc2.Refresh
End Sub
'Combo1.Text = " "
56
'Combo2.Text = " "
'Combo3.Text = " "
Text1.Text = " "
Text2.Text = " "
Text3.Text = " "
Text4.Text = " "
Text5.Text = " "
Text6.Text = " "
Text7.Text = " "
Text8.Text = " "
Text9.Text = " "
Text10.Text = " "
Text11.Text = " "
Text12.Text = " "
Text13.Text = " "
Text14.Text = " "
Text18.Text = " "
Text15.Text = " "
Text16.Text = " "
Text17.Text = " "
Text19.Text = " "
Text20.Text = " "
Text21.Text = " "
Text22.Text = " "
Text23.Text = " "
Text24.Text = " "
Text25.Text = " "
Text26.Text = " "
Text27.Text = " "
Text28.Text = " "
Text29.Text = " "
Text30.Text = " "
Text31.Text = " "
Text32.Text = " "
Text33.Text = " "
Text34.Text = " "
Text35.Text = " "
Text36.Text = " "
Text37.Text = " "
Text38.Text = " "
Text39.Text = " "
Text40.Text = " "
57
Text41.Text = " "
Text42.Text = " "
Text43.Text = " "
Text44.Text = " "
Text45.Text = " "
Text46.Text = " "
Text47.Text = " "
Text48.Text = " "
Text49.Text = " "
Text50.Text = " "
Text51.Text = " "
Text52.Text = " "
Text53.Text = " "
Text54.Text = " "
Text55.Text = " "
Text56.Text = " "
Text57.Text = " "
Text58.Text = " "
Text59.Text = " "
Text60.Text = " "
Text61.Text = " "
Text62.Text = " "
Text63.Text = " "
Text64.Text = " "
Text65.Text = " "
Text66.Text = " "
Text67.Text = " "
Text68.Text = " "
Text69.Text = " "
Text70.Text = " "
Text71.Text = " "
Text72.Text = " "
Text73.Text = " "
Text74.Text = " "
Text75.Text = " "
Text76.Text = " "
Text77.Text = " "
Text78.Text = " "
Text79.Text = " "
Text80.Text = " "
Text81.Text = " "
Text82.Text = " "
58
Text83.Text = " "
Text84.Text = " "
Text85.Text = " "
Text86.Text = " "
End Sub
Public Sub enebal()

59
60
End Sub
61
62
End Sub
Find income form 1
Dim cl As String, seme As String, session1 As String

Private Sub Cmdcalculater_Click()
Call enebal
End Sub

Unload Me
End Sub
63
Call enebal
Adodc1.Refresh
Call denebal
End Sub

Call enebal
64
End Sub

Unload Me
End Sub

Call enebal
65
Adodc1.Refresh
Call denebal
End Sub

Call enebal
c1 = Combo1.Text
sem = Combo2.Text
Adodc1.Refresh
If c1 = Adodc1.Recordset.Fields("course") And sem = Adodc1.Recordset.Fields("Sem") And session1 =
Combo1.Text = (Adodc1.Recordset.Fields("course"))
Combo2.Text = (Adodc1.Recordset.Fields("Sem"))
66
Combo3.Text = (Adodc1.Recordset.Fields("year"))
Text21.Text = (Adodc1.Recordset.Fields("TF1"))
Text23.Text = (Adodc1.Recordset.Fields("FF1"))
Text24.Text = (Adodc1.Recordset.Fields("CM1"))
Text25.Text = (Adodc1.Recordset.Fields("OS1"))
Text26.Text = (Adodc1.Recordset.Fields("TOTofActual"))
Text5.Text = (Adodc1.Recordset.Fields("TLTofOriginal"))
Text10.Text = (Adodc1.Recordset.Fields("TLTofuptoDec"))
Text18.Text = (Adodc1.Recordset.Fields("TLTofRevised"))
Text20.Text = (Adodc1.Recordset.Fields("TLTofbudget"))
Exit Sub
End If
Wend
End Sub

End Sub
67
Call enebal
Call denebal
End Sub

Call clear_clear
End Sub
68
"\record\NEW.MDB"
Adodc1.Refresh
End Sub

'Combo2.Text = " "
'Combo1.Text = " "
'Combo3.Text = " "
Text21.Text = " "
Text23.Text = " "
Text24.Text = " "
Text25.Text = " "
Text26.Text = " "
Text1.Text = " "
Text2.Text = " "
Text3.Text = " "
Text4.Text = " "
Text5.Text = " "
Text6.Text = " "
Text7.Text = " "
Text8.Text = " "
Text9.Text = " "
Text10.Text = " "
Text11.Text = " "
Text12.Text = " "
Text13.Text = " "
Text14.Text = " "
Text18.Text = " "
Text15.Text = " "
Text16.Text = " "
Text17.Text = " "
Text19.Text = " "
Text20.Text = " "
End Sub

69
End Sub
Public Sub enebal()
70
End Sub
Find e form 4
Private Sub Cmd_Click()

End Sub

Unload Me
End Sub

Call enebal
71
72
Adodc1.Refresh
73
End Sub

Unload Me
End Sub

Call enebal
Adodc1.Refresh
74
75
End Sub

Call enebal
76
77
Adodc1.Refresh
End Sub

Call enebal
c1 = Combo1.Text
seme = Combo2.Text
Adodc1.Refresh
78
If c1 = Adodc1.Recordset.Fields("course") And seme = Adodc1.Recordset.Fields("semester") And session1 =
Combo1.Text = Adodc1.Recordset.Fields("course")
Combo2.Text = Adodc1.Recordset.Fields("semester")
Combo3.Text = (Adodc1.Recordset.Fields("year"))
Text74.Text = (Adodc1.Recordset.Fields("staff1"))
Text71.Text = (Adodc1.Recordset.Fields("guest1"))
Text8.Text = (Adodc1.Recordset.Fields("photocopy1"))
Text7.Text = (Adodc1.Recordset.Fields("advertisement1"))
Text6.Text = (Adodc1.Recordset.Fields("statonary1"))
Text9.Text = (Adodc1.Recordset.Fields("seminar1"))
Text11.Text = (Adodc1.Recordset.Fields("refound1"))
Text10.Text = (Adodc1.Recordset.Fields("entrance1"))
Text1.Text = (Adodc1.Recordset.Fields("audit1"))
Text2.Text = (Adodc1.Recordset.Fields("paymnt of uni1"))
Text3.Text = (Adodc1.Recordset.Fields("payement1"))
Text4.Text = (Adodc1.Recordset.Fields("contribut1"))
Text5.Text = (Adodc1.Recordset.Fields("fdr1"))
Text64.Text = (Adodc1.Recordset.Fields("book1"))
Text65.Text = (Adodc1.Recordset.Fields("equipement1"))
Text66.Text = (Adodc1.Recordset.Fields("building1"))
Text63.Text = (Adodc1.Recordset.Fields("total1"))
Text17.Text = (Adodc1.Recordset.Fields("advertisement2"))
Text18.Text = (Adodc1.Recordset.Fields("stationary2"))
Text4.Text = (Adodc1.Recordset.Fields("seminar2"))
Text12.Text = (Adodc1.Recordset.Fields("refund2"))
Text22.Text = (Adodc1.Recordset.Fields("payment of uni2"))
Text21.Text = (Adodc1.Recordset.Fields("payment2"))
Text69.Text = (Adodc1.Recordset.Fields("equipment2"))
79
Text28.Text = (Adodc1.Recordset.Fields("advertisment3"))
Text26.Text = (Adodc1.Recordset.Fields("seminor3"))
Text24.Text = (Adodc1.Recordset.Fields("refond3"))
Text31.Text = (Adodc1.Recordset.Fields("contribution3"))
Text50.Text = (Adodc1.Recordset.Fields("advertisment4"))
Text46.Text = (Adodc1.Recordset.Fields("refound4"))
Text56.Text = (Adodc1.Recordset.Fields("aduitit4"))
Text39.Text = (Adodc1.Recordset.Fields("advr5"))
Text35.Text = (Adodc1.Recordset.Fields("refund5"))
Text45.Text = (Adodc1.Recordset.Fields("aduit5"))
80
Text42.Text = (Adodc1.Recordset.Fields("contribution5"))
Exit Sub
End If
Wend
End Sub

Text63.Text = Val(Text74.Text) + Val(Text71.Text) + Val(Text8.Text) + Val(Text7.Text) + Val(Text6.Text) +
Val(Text9.Text) + Val(Text11.Text) + Val(Text10.Text) + Val(Text1.Text) + Val(Text2.Text) + Val(Text3.Text)
+ Val(Text4.Text) + Val(Text5.Text) + Val(Text64.Text) + Val(Text65.Text) + Val(Text66.Text)
Val(Text70.Text)
Val(Text78.Text)
Val(Text86.Text)
Val(Text82.Text)
End Sub

Call enebal
81
82
83
End Sub
Coding will be continue-----------------
Testing:-
Software testing can be stated as the process of validating and verifying that a software
program/application/product:
1. meets the requirements that guided its design and development;

2. works as expected; and
3. Can be implemented with the same characteristics.
Software testing, depending on the testing method employed, can be implemented at any
time in the development process. However, most of the test effort occurs after the
requirements have been defined and the coding process has been completed. As such, the
methodology of the test is governed by the software development methodology adopted.
Chapter-9
84
System Implementation
Depending on the SDLC model, implementation becomes an important stage in
knowing for the first time if the actual plan and system design works in the real
environment. Implementation will always suggest that something might be wrong, users
and developers have to exploit it extensively. Documentation will be highlighted for the
first time since developers will have to refer to documentation not only for troubleshooting
but also for future development and the next stages of SDLC.
Chapter-10
85
Conclusion/Future work/Limitations
CONCLUSION:-
After we have completed the project we are sure the problems in the existing system
would overcome. The “Self Supporting Program” process made computerized to reduce
human errors and to increase the efficiency. The main focus of this project is to lessen
human efforts. The maintenance of the records is made efficient, as all the records are
stored in the ACCESS database, through which data can be retrieved easily. The navigation
control is provided in all the forms to navigate through the large amount of records. If the
numbers of records are very large then user has to just type in the search string and user
gets the results immediately. The editing is also made simpler. The user has to just type in
the required field and press the update button to update the desired field.
The income and expenditure are given a particular unique. So that they can be
accessed correctly and without errors. Our main aim of the project is to get the correct
information about a particular income and expenditure available in the self supporting
program.
Future work:-
1. Automatic feed to data
2. Automatic calculation
3. Search to store data
4. editing store data
5. create report
Limitations:-
1. Single user
2. Not online searing
86
References
 Www.Support.mircosoft.com
 Microsoft Visual Basic 6.0
 Mastering Visual Basic
 Simply Visual Basic 2008
 21 Days learning VB
 Www.Google.com.in
87

1.1 About Project:-: 1-Planned Approach Towards Working

Uploaded by

Copyright:

Available Formats

1.1 About Project:-: 1-Planned Approach Towards Working

Uploaded by

Document Information

Original Description:

Original Title

Copyright

Available Formats

Share this document

Share or Embed Document

Sharing Options

Did you find this document useful?

Is this content inappropriate?

Copyright:

Available Formats

1.1 About Project:-: 1-Planned Approach Towards Working

Uploaded by

Copyright:

Available Formats

Chapter 1

1.1 About project:-

1.2 Purpose of the Project:-

1.3 proposed system:-

1- Planned approach towards working: - The working in the organization will be

1.4Why Need of Computerization;-

Problems with conventional system:-

1. Lack of immediate retrievals: -The information is very difficult to find particular

2. Lack of immediate information storage: - The information generated by various

transactions takes time and efforts to be stored at right place.

3. Lack of prompt updating: - Various changes to information like details or

immunization details of difficult to make as paper work.

may result in incorrect information.

5. Preparation of accurate and prompt reports: - This becomes a difficult task as

information is difficult to collect from various registers.

6 phases to develop s/w

System development life cycle model

3.2 Feasibility Study: -

a more detailed feasibility study. “FEASIBILITY STUDY” is a test of system proposal

use of the resources. It focuses on these major questions:

2. What resources are available for given candidate system?

4. Whether it is worth to solve the problem?

technology & available personal?

• Can the system be upgraded if developed?

• If new technology is needed then what can be developed?

Front-end and back-end selection

as helps in development of the project.

The aspects of our study included the following factors.

2. Scalability and extensibility.

5. According to the organization requirement and the culture.

6. Must provide excellent reporting features with good printing support.

8. Easy to debug and maintain.

9. Event driven programming facility.

developing our project.

1. Multiple user support.

2. Efficient data handling.

3. Provide inherent features for security.

4. Efficient data retrieval and maintenance.

7. Operating System compatible.

9. Various drivers must be available.

10. Easy to implant with the Front-end.

According to above stated features we selected Ms-Access as the backend.

assessment to technical feasibility. It centers on the existing computer system (hardware,

Economic justification is generally the “Bottom Line” consideration for most

to the analysis and design phase.

to estimate the following:

• The cost to conduct a full system investigation.

• The benefits in the form of reduced cost.

improved which in turn may be expected to provide increased profits.

It is mainly related to human organizations and political aspects. The points to be

• What changes will be brought with the system?

• What organization structures are disturbed?

can they be trained in due course of time?

needs basic information about Windows platform.

TASKS MONTH 1 MONTH 2 MONTH 3 MONTH 4

3.4 User characteristic:-

Every user should be:-

i. Comfortable of working with computer.