A

Project Report

On

Submitted in partial fulfillment of the requirements for the

award of degree
POST GRADUATE DIPLOMA IN COMPUTER APPLICATION
From
HEMCHAND YADAV VISHWAVIDYALAYA, DURG (C.G.)
SESSION: 2020-2021

GUIDENCE BY: SUBMITTED BY:

MR. DILEEP KUMAR SAHU MISS NEHA DEWANGAN
ROLL NO............................

SUBMITTED TO

GOVT. V.Y.T. PG AUTONOMOUS COLLEGE

DURG, CHHATTISHARG, INDIA
AN AUTONOMOUS COLLEGE AFFILIATED TO
HEMCHAND YADAV VISHWAVIDYALAYA, DURG
(C.G.)

GOVT. V.Y.T. PG AUTONOMOUS

COLLEGE, DURG,
CHHATTISGARH, INDIA
Reaccredited with Grade “A+” By NACC
An Autonomous College Affiliated to
Hemchand Yadav Vishwavidyalaya, Durg (C.G.)
 CERTIFICATE OF APPROVAL

This is to certify that the Project work entitled “AQUARIUM SHOP MANAGEMENT
SYSTEM” is carried out by Miss Neha Dewangan, a student of PGDCA-IInd SEMESTER
at Govt. V.Y.T. PG Autonomous College Durg, Chhattisgarh, India is hereby approved as
a credible work in the discipline of Computer Science & Information Technology for the
award of degree of Post Graduate Diploma in Computer Application during the year
20202021 from HEMCHAND YADAV VISHWAVIDYALAYA, Durg (C.G.).

DR. R. K. SINHA
(Principal)

2
 GOVT. V.Y.T. PG AUTONOMOUS
COLLEGE, DURG,
CHHATTISGARH, INDIA
Reaccredited with Grade “A+” By NACC
An Autonomous College Affiliated to
Hemchand Yadav Vishwavidyalaya, Durg (C.G.)

CERTIFICATE

This is to certify that the Project work entitled “AQUARIUM SHOP MANAGEMENT
SYSTEM” submitted to the Govt. V.Y.T. PG Autonomous College Durg, Chhattisgarh,
India by Miss Neha Dewangan ROLL No ….................. in partial fulfillment for the
requirements relating to nature and standard of the award of Post Graduate Diploma in
Computer Application Degree by HEMCHAND YADAV VISHWAVIDYALAYA,
DURG (C.G.) for the academic year 2020-2021.
This project has been carried out under my guidance.

MR. DILEEP KUMAR SAHU

(Guide Name)
3
 CERTIFICATE OF ORGANIZATION/COMPANY

This is to certify that Miss Deepa Dewangan student of PGDCA-IInd SEMESTER has
successfully completed this computer project on the topic “AQUARIUM SHOP
MANAGEMENT SYSTEM” from “,……………………AQUARIUM SHOP (C.G.)”
during academic session 2020-2021 as per the guidelines issues by HEMCHAND YADAV
VISHWAVIDYALAYA, DURG (C.G.).
 GOVT. V.Y.T. PG AUTONOMOUS
COLLEGE, DURG,
CHHATTISGARH, INDIA
Reaccredited with Grade “A+” By NACC
An Autonomous College Affiliated to
Hemchand Yadav Vishwavidyalaya, Durg (C.G.)

8
 CERTIFICATE OF EVALUATION

This is to certify that the Project work entitled “AQUARIUM SHOP MANAGEMENT
SYSTEM” is carried out by Miss Neha Dewangan, a student of PGDCA-IInd SEMESTER
at Govt. V.Y.T. PG Autonomous College Durg, Chhattisgarh, India after proper
evaluation and examination, is hereby approved as a credible work in the discipline of
Computer Science & Information Technology and is done in a satisfactory manner for its
acceptance as a requisite for the award of degree of Post Graduate Diploma in Computer
Application during the year 2020-2021 from HEMCHAND YADAV
VISHWAVIDYALAYA , DURG (C.G.).

Internal Examiner External Examiner

DECLARATION
This is to certify that the Project report entitled “AQUARIUM SHOP MANAGEMENT
SYSTEM” , which is submitted by me in the partial fulfillment for the award of the degree of
Post Graduate Diploma In Computer Application, (Govt. V.Y.T. PG Autonomous
College Durg, Chhattisgarh, India), comprises the original work carried out by me.
I further declare that the work reported in this project has not been submitted and will not be
submitted, either in part or in full for the award of any other degree in the institute or any
other Institute or University.

Place:- Durg Name: - Miss Neha Dewangan Date:- Roll

No. : -................................

10
 ACKNOWLEDGEMENT

“Fruit of hard work is Success”

Completing any task is never a one man effort. It is often the result of valuable
contribution of a number of individual in a direct or indirect manner that helps in shaping and
achieving an objective.
We express a deep sense of gratitude & thanks to our principle, project guide & our
lecturers for their efforts in giving their timely advice an interest in our project.
There is a large and continuing debt owed by us to the faculty members of our
department for their support and encouragement. Last but not the least, our unending
gratefulness towards our parents for their remarkable patience and unending support
throughout, thus leading to our objective. We believe this endeavor of ours has greatly
boosted our self-confidence and will go long on helping us reach further milestones and
greater heights.

Miss Neha Dewangan

PGDCA-IInd SEMESTER

12
 SYNOPSIS
1. OBJECTIVES & SCOPE OF THE PROJECT……………………………………. 9
2. THEORETICALBACKGROUNDOFTHEPROJECT………………….................10
2.1.1 VISUALBASIC6.0………………………………………………………….10
2.2 MSACCESS…………………………………………………………………11
3. DEFINATIONOFPROBLEM……………………………………………..............12
4. SYSTEMANALYSISANDDESIGN………………………………………………13
5. SYSTEMPLANNING(PERTCHART)…………………………………………….15
6. SYSTEMMAINTENANCE&EVALUATION………………………….…………16
7. METHODOLOGYADOPTED…………………………………………..………...17
8. HARDWARE&SOFTWARESPECIFICATION……………………..……………18 9.
COST&BENEFITSANALYSIS……………………………………..…………….19
10.DFD(DATAFLOWDIAGRAM)…………………………..……………………….22
11.E-DIAGRAM……………………………………………………..………………..25
12.DATABASE DESIGN…………………………………………………………......27
13.FORMDESIGN…………………………………………………………………….31
14.ENTRYDETAIL…………………………………………………………..……….43
15.REPORTS……………………………………………………………………….....49
16.CODING……………………………………………………………………...........53
17.SYSTEMECURITY…………………………………………………………..........83
18.CONCLUSION………………………………………………………….………...84
19.REFERENCES…………………………………………………………….…….....85
20.SOFTCOPYOFTHEPROJECT ON CD……………………………………………86

13
 OBJECTIVES & SCOPE OF THE PROJECT

 LEAST TIME CONSUMPTION: - Time can be conserved by elimination the need

entering the same data in different registers.

 REDUCTION IN PAPER WORK:- By management the data on computers a lot of

paper work can reduced.

 ELIMINATING MANUAL ERROR:- Main training record manually for a large

number of customers of different id no’s may lead to error. As in the case of computer
based data maintenance, the flow is atomized and there very rare change of error.

 UTILIZING MANPOWER:- Many people are involved in the maintenance of data

and in accounting jobs. All these can be replaced with a single computer operator.

 PROVIDING SECURITY:- Security can be provided to resisters and report by

adding password for access.

 ECONOMICAL:-As the time is conserved, manpower and paperwork is reduced this

directly leads to reduction in overhead expenses.

14
 THEORETICAL BACKGROUND OF THE PROJECT
FRONT END
VISUAL BASIC 6.0

Visual basic is a tool that allows you to develop windows (Graphic user interface –GUI).
Rather than writing numerous lines of code to describe the appearance and location of
interface element, you simply odd objects into place on the screen.
Visual basic is a high level programming language evolved from the earlier Dos
version called BASIC. Basic means Beginners All purpose symbolic Instruction code.
Visual basic is an event driver programming. This is an event driver programming.
This basic due to its window interface, the user may click on a creation object
randomly. So each object has to be programmed independently to be able to response to
the actions (event). Therefore a visual basic programs is made up of many sub
programs, each has its own program code and each can be linked together in a way or
another .VB is Microsoft programming language. The idea allows the programmer to
create, run and debug VB programs conveniently.

FEATURES OF VB

1. It allows the user for clipboard and printer access.

2. It has the powerful database access tools that allow you to create database, font end
applications and scalable server –side component for most popular database format,
including Microsoft SQL server and enterprise-level databases.

3. Visual Basic is GUI (Graphical User Interface) based language.

4. It is dividing everything into modules, so debugging becomes easier.

5. Visual Basic provides many additional tools to make interface & programming become
attractive.

15
 MS ACCESS

Microsoft access is a database management system. It is a collection of

interrelated data and a set of programs to access those data. The collection of data,
usually referred to as the database contains information about one particular
enterprise.
Microsoft access is a S/W package that allows data to be effectively stored, retrieved
and manipulated. The data contained in a Microsoft access package can be accessed by
multiple application programs and users.
Microsoft access is designed to manage large bodies of information. The management
of data involves both the definition of structures for the storage of information and
provision of mechanisms for the manipulation of information.

ADVANTAGES OF MICROSOFT ACCESS

1. It represents complex relationships among different data items.

2. Keeps tight control on data redundancy.

3. Enforces data access authorization.

4. Has an automatic intelligent backup and recovery procedure.

5. Enforces user defined rules to ensure the integrity of data in a table.

16
 DEFINITION OF PROBLEM
Since we were working manually now we have decided to implement a computerized
system to make the purchase System.

To access the customer’s records and get the desired information which may require.
Also we want a user friendly system which can help us a lot because we were new to
computers.
The implementation of this system has given some benefits to us, they are as follows:
 Reduce errors caused by manual calculations work.

 Everything will be quick instead of hand written.

 Reduce time loss which is wasted in manually filling the register.

 There will be more security in a computerized system.

 Quickly find out information of a fruit details.

 To provide user friendly environment.

17
 SYSTEM ANALYSIS AND & DESIGN
System Analysis
Systems analysis is a process of collecting factual data, understand the processes involved,
identifying problems and recommending feasible suggestions for improving the system
functioning. This involves studying the business processes, gathering operational data,
understand the information flow, finding out bottlenecks and evolving solutions for
overcoming the weaknesses of the system so as to achieve the organizational goals. System
Analysis also includes subdividing of complex process involving the entire system,
identification
of data store and manual processes. The major objectives of systems analysis are to find
answers for each business process: What is being done How is it being done, Who is doing it,
When is he doing it, Why is it being done and How can it be improved? It is more of a
thinking process and involves the creative skills of the System Analyst. It attempts to give
birth to a new efficient system that satisfies the current needs of the user and has scope for
future growth within the organizational constraints. The result of this process is a logical
system design. Systems analysis is an iterative process that continues until a preferred and
acceptable solution emerges.

System Design
Based on the user requirements and the detailed analysis of the existing system, the
new system must be designed. This is the phase of system designing. It is the most crucial
phase in the developments of a system. The logical system design arrived at as a result of

18
systems analysis is converted into physical system design. Normally, the design proceeds in
two stages:

• Preliminary or General Design:- In the preliminary or general design, the

features of the new system are specified. The costs of implementing these features and
the benefits to be derived are estimated. If the project is still considered to be feasible,
we move to the detailed design stage.
• Structured or Detailed Design:- In the detailed design stage, computer oriented
work begins in earnest. At this stage, the design of the system becomes more structured.
Structure design is a blue print of a computer system solution to a given problem having
the same components and inter-relationships among the same components as the
original problem. Input, output, databases, forms, codification schemes and processing
specifications are drawn up in detail.

In the design stage, the programming language and the hardware and software platform in
which the new system will run are also decided. There are several tools and techniques used
for describing the system design of the system. These tools and techniques are:

19
 Pert Chart
 Flowchart
 Data flow diagram (DFD)
 Data dictionary
 Structured English
 Decision table
 Decision tree

14
 SYSTEM PLANNING (PERT CHART)

Project
Definition

22
 Database
Design

Requirement Report
Coding Testing
Specification

GUI Design

15

SYSTEM MAINTENANCE & EVALUATION

System Maintenance

Planning begins early the acquisition process with development of a maintenance concept.
Maintenance planning is conducted to evolve and establish requirements and task to be
accomplished for achieving, restoring and maintaining operational capability for the life of
system. Throughout its life, a system should operate effectively and efficiently. To do this,
the system needs to be maintained and its users need to be supported. This should be an
ongoing process to make sure that the system continues to meet requirements. The
operational characteristics of the system will be reviewed continually.

The project should implement the following activities and tasks in accordance with applicable
organization policies and procedures with respect to the maintenance process. Preserving
System operating potential through proper planning of system scheduled maintenance .This
requires a reliability –centered maintenance strategy that incorporates preventive
maintenance in order to preempt failures thereby extending the mean time between corrective
maintenance.as well as enhancing the availability to the system.

24
 METHODOLOGY ADOPTED

Hybrid design methodology

The top down methodology may lead to an inefficient decomposition in levels, this ending in
a failure. Hence it needs space for backtracking. The bottom-up strategy, on the other hand,
needs prior knowledge of the system and its constituting components without which it is
impractical to work with this method. To avoid these limitations, designers generally start
design the system from meddle level of decomposition, moving up for design the system as
well as moving down for design atomic units. This becomes practical problems, designers
have incomplete but workable to design these components with atomic units and then design
the system with these components. This approach is called the hybrid approach. This
approach incorporates the benefits of both top-down and bottom-up approaches overcoming
most of their drawbacks.
 HARDWARE & SOFTWARE SPECIFICATION

1. PROESSOR : Intel(R) Pentium(R) CPU G2030 @ 3.00GHz

2. RAM : 2GB

3. HARD DISK : 280GB

4. MONITER : 19”HCL

7. KEY BOARD : 104 Key Boards (Multimedia)

8. PRINTER : HP Laser Jet 2000

9. MOUSE : Scroll Mouse

10. OPERATING SYSTEM : Windows 7 Ultimate

BACKEND TOOL : ACCESS 2007

FRONTEND TOOL : VISUAL BASIC 6.0

COST& BENEFITS ANALYSIS

In performing Cost Benefit Analysis, it is important to identify cost and benefit factors. Cost
and benefits can be categorized into the following categories.
There are several cost factors/elements. These are hardware, personnel, facility, operation,
and supply cost.
In a broad sense the costs can be divided into two types
1. Development cost
Development costs that are incurred during the development of the system are one
time investment.
Wages
Equipment
Following costs incurred in our project:
Electricity
Net surfing 2. Operating cost
 e.g., Wages Supplies
Overheads

Another classification of cost can be Hardware/Software costs:

It includes the cost of purchasing or leasing of computers and its peripherals.
Software costs involve required software costs.
H/W & S/W cost- As per requirement specification.
Personnel cost:
It is the money, spent on the people involved in the development of the system. These
expenditures include salaries, other benefits such as health insurance, conveyance allowance,
etc.
Facility cost:
Expenses incurred during preparation of the physical site where the system will be
operational. These can be wiring, flooring, acoustics, lighting and air conditioning.
Operating cost:
Operating cost are the expenses required for the day to day running of the system. This
includes the maintenance of the system. That can be in the form of maintaining the hardware or
application programs or money paid to professionals responsible for running or maintaining the
system.

Benefit
We can define benefit as
Profit or Benefit = Income - Costs
• The whole software can be operate through a single system not a load of systems
required.
• This system leads to less time consuming.
• Only a single person is needed to run the software this helps in saving of cost.

as either direct or indirect. Direct costs are having rupee value from the associated with it.
Direct Benefits can be acquired by:
• Increasing income, or
• Decreasing cost, or
• Both
The system will provide some benefits also. Benefits can be tangible pr intangible direct
or indirect. In cost benefit analysis, the first task is to identify each benefit and assign a
monetary value to it.
The two main benefits are improved performance and minimized processing costs. Further
costs and benefits can be categorized as Tangible and Intangible Costs and Benefits:
Tangible cost and benefits can be measured. Hardware costs, salaries for professionals,
software cost are all tangible costs. They are identified and measured. The purchase of
hardware or software, personnel training, and employee salaries are example of tangible costs.
Costs whose value cannot be measured are referred as intangible costs. The cost of breakdown
of an online system during banking hours will cause the bank lose deposits.
Benefits are also tangible or intangible. For example, more customer satisfaction,
improved company status, etc. are all intangible benefits. Whereas improved response time,
producing error free output such as producing reports are all tangible benefits. Both tangible
and intangible costs and benefits should be considered in the evaluation process.
Direct or Indirect Costs and Benefits
Cost accounting point of view, the costs are treated benefits are also attributable to a
given project. For example, if the proposed systems that can handle more transactions say 25%
more than the present system then it is direct benefit.
Indirect costs results from the operations that are not directly associated with the system.
Insurance, maintenance, heat, light, air conditioning are all indirect costs.

Fixed or Variable Costs and benefits

Some costs and benefits are fixed. Fixed costs don’t change. Descriptions of
hardware, insurance, etc. are all fixed costs. Variable costs are incurred on regular
basis. Recurring period

May be weekly or monthly depending upon the system. They are proportional to the
work volume and continue as long as system is in operation.
Fixed benefits don’t change. Variable benefits are realized on a regular basis. Steps of
CBA can briefly be described as:
• Estimate the development costs, operating costs and benefits.
• Determine the life of the system.
• When will the benefits start to accrue?
• When will the system become obsolete?
• Determine the interest rate
This should reflect a realistic low risk investment rate.
DFD(DATA FLOW DIAGRAM)

LEVEL 1 DFD

LOGIN
&
ADMIN PASSWORD

AQUARIUM
SHOP
MANAGE MENT
 CUSTOMER
CUSTOMER

DEALER
DEALER

STOCK
STOCK

PURCHASE PURCHASE

SALES SLALES

REPORTS

LEVEL 0 DFD

CUSTOMER

DEALER

LOG IN AQUARIUM
SHOP STOCK
ADMIN MANAGEMENT
SYSTEM
PURCHASE
 E-R DIAGRAM

DATA BASE DESIGN

CUTOMER DETAILS

DEALER DETAIL

STOCK DETAIL

PURCHASE-TABLE

SALE - TABLE
FORM DESIGN

LOGIN FORM
SPLASH FORM
MDI FORM

CUSTOMER ENTRY
DEALER OR SUPPLIER FORM
STOCK DETAIL
PURCHASE DETAILS FORM
SALES DETAILS FORM
PURCHASE REPORT FORM
SALE ENTRY FORM
EXIT MDI
 CUSTOMER TABLE

DEALER OR SUPPLIER TABLE

STOCK TABLE

PURCHASE TABLE
 SALES TABLE

REPORTS
CUSTOMER REPORTS
 DEALER OR SUPPLIER REPORT

STCOK REPORT REPORT

SALES REPORT
CODING
 LOG IN FORM

Private Sub Command1_Click()

If Text1.Text = "aquarium" And Text2.Text = "1234" Then
Form1.Show
Unload Me
Else
MsgBox "Invalid password", vbInformation
End If

End Sub

Private Sub Command2_Click()

End
End Sub

Private Sub Form_Load() dosomething Me

End Sub
 SPLASH FORM

Private Sub Timer1_Timer()

I=I+1
If I > 200 Then Timer1.Enabled = False mdi.Show Unload Me
End If
Image1.Width = Image1.Width + 2
Image1.Height = Image1.Height + 2
If I Mod 2 = 0 Then
Image1.Left = Image1.Left - 1
Image1.Top = Image1.Top - 1
End If
If I > 200 - Len(Label1.Caption) Then
Label1.Caption = Label1.Caption & Mid(st, j, 1) j = j + 1
End If
End Sub
 MDI FORM

Private Sub c_Click() Private Sub addnew_Click() item.Show

End Sub

Private Sub C_Click()

Customer.Show
End Sub

Private Sub d_Click() dealer.Show

End Sub

Private Sub e_Click()

End
End Sub

Private Sub Form_Load() dosomething Me

End Sub

Private Sub p_Click()

Pruchase.Show
End Sub

Private Sub pr_Click() purreport.Show

End Sub

Private Sub S_Click() sale.Show

End Sub

Private Sub SR_Click() salereport.Show

End SubEnd

CUSTOMER DETAILS FORM

Private Sub Command1_Click() If rs.State = 1 Then rs.Close

rs.Open "select * from tbl_cust", con, adOpenKeyset, adLockOptimistic, adCmdText
rs.addnew rs(0) = Text1.Text rs(1) = Text2.Text rs(2) = Text3.Text

rs.Update
CLEARALLTEXT Me
MsgBox "Record saved.", vbInformation
Adodc1.Refresh
End Sub

Private Sub Command2_Click()

Unload Me
End Sub

Private Sub Command3_Click()

Adodc1.Recordset.Delete
End Sub

Private Sub Form_Load() dosomething Me

End Sub
 DEALER OR SUPPLIER FORM

Private Sub Command1_Click() If rs.State = 1 Then rs.Close

rs.Open "select * from tbl_dealer", con, adOpenKeyset, adLockOptimistic, adCmdText
rs.addnew rs(0) = Text1.Text rs(1) = Text2.Text rs(2) = Text3.Text

rs.Update
CLEARALLTEXT Me
MsgBox "Record saved.", vbInformation
Adodc1.Refresh
End Sub

Private Sub Command2_Click()

Unload Me
End Sub

Private Sub Command3_Click()

Adodc1.Recordset.Delete
End Sub

Private Sub Form_Load() dosomething Me

End Sub
 STOCK FORM

Private Sub Command1_Click() If rs.State = 1 Then rs.Close

rs.Open "select * from tbl_stock", con, adOpenKeyset, adLockOptimistic, adCmdText
rs.addnew rs(0) = Text1.Text rs(1) = Combo1.Text rs(2) = Val(Text2.Text) rs(3) =
Combo2.Text
rs(4) = Date
rs(5) = Val(Combo3.Text) rs(6) = Val(text4.Text) rs(7) = Val(Text3.Text) rs(8) =
Val(Combo4.Text) rs(9) = Combo5.Text rs.Update
CLEARALLTEXT Me
MsgBox "Record saved.", vbInformation
Adodc1.Refresh
End Sub

Private Sub Command2_Click()

Unload Me
End Sub

Private Sub Command3_Click()

Adodc1.Recordset.Delete
End Sub

Private Sub Form_Load() dosomething Me

End Sub

PURCHASE FORM
Private Sub Combo6_Click() If rs.State = 1 Then rs.Close
rs.Open "select * from tbl_stock where Aquarium_Name='" & Combo6.Text & "'", con,
adOpenKeyset, adLockOptimistic, adCmdText

Combo1.Text = rs(1)
Text2.Text = rs(2)
Combo2.Text = rs(3)
 DTPicker1.Value = rs(4)
Combo3.Text = rs(5)
'Text4.Text = rs(6)
'Text3.Text = rs(7)
Combo4.Text = rs(8)
Combo5.Text = rs(9)

End Sub

Private Sub Command1_Click() If rs.State = 1 Then rs.Close

rs.Open "select * from tbl_purchase", con, adOpenKeyset, adLockOptimistic, adCmdText rs.addnew
rs(0) = Combo6.Text rs(1) = Combo7.Text
rs(2) = Date rs(3) = 1 rs(4) = Val(text4.Text) rs(5) = Val(Text3.Text) rs(6) =
Val(Text2.Text) rs(7) = Val(Text2.Text)

rs.Update
CLEARALLTEXT Me
MsgBox "Record saved.", vbInformation
Adodc1.Refresh
End Sub

Private Sub Command2_Click()

Unload Me
End Sub

Private Sub Command3_Click()

Adodc1.Recordset.Delete
End Sub

Private Sub Form_Load()

dosomething Me
If rs.State = 1 Then rs.Close
rs.Open "select * from tbl_stock", con, adOpenKeyset, adLockOptimistic, adCmdText Combo6.Clear
While Not rs.EOF Combo6.AddItem rs(0)
rs.MoveNext
Wend

If rs.State = 1 Then rs.Close

rs.Open "select * from tbl_cust", con, adOpenKeyset, adLockOptimistic, adCmdText
Combo7.Clear
While Not rs.EOF Combo7.AddItem rs(0)
rs.MoveNext Wend
End Sub
 SALES FORM

Private Sub Command1_Click() If rs.State = 1 Then rs.Close

rs.Open "select * from tbl_sales", con, adOpenKeyset, adLockOptimistic, adCmdText
rs.addnew rs(0) = Combo6.Text rs(1) = Combo7.Text rs(2) = Date rs(3) =
Val(Text2.Text) rs(4) = Val(text4.Text) rs(5) = Val(Text3.Text)
qty = 1

rs.Update

If rs.State = 1 Then rs.Close

rs.Open "select status from tbl_purchase where stock_name='" & Combo6.Text & "' and
aquarium_size=" & Val(text4.Text), con, adOpenKeyset, adLockOptimistic, adCmdText rs(0)
=1
rs.Update
CLEARALLTEXT Me
MsgBox "Record saved.", vbInformation
Adodc1.Refresh
End Sub

Private Sub Command2_Click()

Unload Me
End Sub

Private Sub Command3_Click()

Adodc1.Recordset.Delete
End Sub

Private Sub Form_Load() dosomething Me

If rs.State = 1 Then rs.Close

PURCHASE REPORT FORM

Private Sub Command1_Click()

If DataEnvironment1.rsCommand1.State = 1 Then DataEnvironment1.rsCommand1.Close
DataEnvironment1.rsCommand1.Filter = "p_date>=#" & DTPicker1.Value & "# and
p_date<=#" & DTPicker2.Value & "#"
DataReport1.Show
End Sub

Private Sub Command2_Click()

Unload Me
End Sub

Private Sub Form_Load() dosomething Me DTPicker1.Value = Date

DTPicker2.Value = Date
End Sub

SALE REPORT FORM

x "ITEM Quantity NOT AVAILABLE", vbInformation

Exit Sub End If
'sql = "insert into purchase values(#" & DTd_o_p.Value & "#," & txtPur_Or_n.Text & "," &
txtAmount.Text & ",'" & cmbb_name.Text & "'," & txtDraft_che.Text & "," &
txtQuantity.Text & ",'" & cmbf_type.Text & "')"
'con.Execute sql
If RS.State = 1 Then RS.Close
RS.Open "select * from tbl_SALES", con, adOpenKeyset, adLockOptimistic, adCmdText
RS.AddNew
RS(0) = DTd_o_p.Value
RS(1) = Val(Text2.Text)
RS(2) = txtPur_Or_n.Text
RS(3) = Text1.Text
RS(4) = cmbf_type.Text
' RS(5) = Combo1.Text
' RS(6) = Combo2.Text
RS(7) = Val(txtAmount.Text)
RS(8) = Val(Text3.Text)
RS(9) = Val(txtAmount.Text) * Val(Text3.Text)
RS(10) = Text4.Text
RS.Update

If RS.State = 1 Then RS.Close

RS.Open "select * from sub_service where SUB_SERVICE_NAME='" & cmbf_type.Text &
"'", con, adOpenKeyset, adLockOptimistic, adCmdText
RS(3) = Val(RS(3) - Val(Text3.Text))
RS.Update

txtPur_Or_n.Enabled = False
Label12.BackColor = &HFFC0C0
Timer1.Enabled = False
'Text1.Enabled = False
MsgBox "record ADDED", vbInformation
Adodc1.RecordSource = "select * from tbl_SALES where sales_Order_no=" &
Val(Text2.Text)
Adodc1.Refresh
End Sub

Private Sub DTd_o_p_Change()

If DTd_o_p.Value > Date Then
MsgBox "Enter Currect Date...", vbInformation, "Date Error"
DTd_o_p.Value = Date
End If
End Sub

Private Sub Form_Load() Dim sql As String centerform Me DTd_o_p.Value = Date

sql = "select * from tbl_SALES"
If RS.State = 1 Then
RS.Close
Set RS = Nothing
End If
RS.Open sql, con, adOpenKeyset, adLockPessimistic, adCmdText
If RS.RecordCount = 0 Then cmdsave.Enabled = False cmdupdate.Enabled = False
cmdfind.Enabled = False
End If
List1.Visible = False
If RS.State = 1 Then RS.Close
RS.Open "select sales_order_no from tbl_SALES GROUP BY sales_ORDER_NO", con,
adOpenKeyset, adLockOptimistic
List1.Clear
While Not RS.EOF = True
List1.AddItem RS(0)
RS.MoveNext
Wend

If RS.State = 1 Then RS.Close

RS.Open "SELECT * FROM MAIN_SERVICE order by SERVICE_NAME", con,
adOpenKeyset, adLockOptimistic, adCmdText
Text1.Clear
If RS.RecordCount >= 1 Then
While RS.EOF = False
Text1.AddItem RS(0)
RS.MoveNext
Wend
End If
RS.Close

cmbf_type.Clear DTd_o_p = Date txtAmount = "" cmbb_name = "" txtDraft_che = ""

txtQuantity = "" cmdfind.Enabled = True
Text2.Text = ""
RS.MoveNext Text1.Text = "" txtPur_Or_n.Text = "" cmbf_type.Text = "" txtAmount.Text =
"" txtPur_Or_n.Enabled = True Text1.Enabled = True
Command2.Enabled = False
Adodc1.RecordSource = "select * from tbl_SALES where sales_Order_no=0" Adodc1.Refresh
End Sub

Private Sub List1_Click() Dim sql As String txtPur_Or_n = List1.Text If RS.State = 1 Then
RS.Close
sql = "select * from tbl_SALES where sales_order_no =" & Val(List1.Text)
RS.Open sql, con, adOpenKeyset, adLockOptimistic
If RS.RecordCount > 0 Then
DTd_o_p.Value = RS(0) Text2.Text = RS(1) txtPur_Or_n.Text = RS(2) Text1.Text = RS(3)
cmbf_type.Text = RS(4) ' Combo1.Text = RS(5) ' Combo2.Text = RS(6) txtAmount.Text
= RS(7)
Text4.Text = RS(10)
End If

cmdupdate.Enabled = True
Adodc1.RecordSource = "select * from tbl_SALES where sales_order_no =" &
Val(List1.Text)
Adodc1.Refresh
End Sub

Private Sub text1_Click()

If RS.State = 1 Then
RS.Close
RS.Open "SELECT * FROM SUB_SERVICE where service_NAME ='" & Text1.Text & "'
order by SUB_SERVICE_NAME", con, adOpenKeyset, adLockOptimistic, adCmdText

If RS.RecordCount >= 1 Then cmbf_type.Clear

While RS.EOF = False cmbf_type.AddItem RS(1)
Wend
End If
End Sub

Private Sub Timer1_Timer()

If Label12.BackColor = vbRed Then
Label12.BackColor = &HFFC0C0
Else
Label12.BackColor = vbBlue
End If
End Sub

Private Sub txtAmount_KeyPress(KeyAscii As Integer)

Call validno(KeyAscii)
End Sub
Private Sub txtDraft_che_KeyPress(KeyAscii As Integer)
Call validno(KeyAscii)
End Sub

Private Sub txtQuantity_KeyPress(KeyAscii As Integer)

Call validno(KeyAscii)
End Sub
Text2.Text = "001"
 PURCHASE FORM
Dim RS As New ADODB.Recordset

Private Sub cmbf_type_click()

If RS.State = 1 Then RS.Close
RS.Open "SELECT * FROM SUB_SERVICE where service_NAME ='" & Text1.Text & "' and
sub_service_name='" & cmbf_type.Text & "'", con, adOpenKeyset, adLockOptimistic, adCmdText

If RS.RecordCount >= 1 Then txtAmount.Text = RS(2) Label12.Caption = RS(3)

End If
If Val(Label12.Caption) < 5 Then
Timer1.Enabled = True
End If

End Sub

Private Sub cmdClose_Click()

Unload Me
End Sub

Private Sub cmdfind_Click()

List1.Visible = True
End Sub

Private Sub cmdnew_Click() Dim sql As String cmdsave.Enabled = True cmdupdate.Enabled = False
cmdfind.Enabled = False
cmdnew.Enabled = False

sql = "select max(sales_order_no)from tbl_pur"

If RS.State = 1 Then RS.Close
RS.Open sql, con, adOpenDynamic, adLockOptimistic

If IsNull(RS(0)) Then

Text2.Text = "00" & (RS(0) + 1)

End If txtPur_Or_n.SetFocus txtPur_Or_n.Text = "" txtAmount.Text = "" Text1.Text = ""
cmbf_type.Text = ""
Text4.Text = ""
' Combo1.Text = "nil"
' Combo2.Text = "nil"
Command2.Enabled = True
'cmbb_name.Text = ""
'txtDraft_che.Text = ""
'txtQuantity.Text = ""

End Sub

Private Sub cmdSave_Click()

If Not IsNumeric(Text4.Text) Then
MsgBox "invalid NUMBER"
Exit Sub
End If
Command1_Click
Form_Load

cmdnew.Enabled = True cmdsave.Enabled = False

cmdfind.Enabled = True

End Sub

Private Sub cmdupdate_Click()

Dim sql As String
'sql = "(update purchase set [date]=#" & DTd_o_p & "#,ammount='" & txtAmount & "',bank_name='"
& cmbb_name & "',draft_cheque='" & txtDraft_che & "',quantity='" & txtQuantity & "',f_type='" &
cmbf_type.Text & "' where 'purchase_order_no=" & txtPur_Or_n & "')"
'con.Execute sql
If RS.State = 1 Then RS.Close
RS.Open "select * from tbl_pur where sales_Order_no=" & Val(Text2.Text), con, adOpenKeyset,
adLockOptimistic, adCmdText If Not IsNumeric(Text4.Text) Then
MsgBox "invalid PHONE NUMBER"
Exit Sub
End If
RS(0) = DTd_o_p.Value
RS(1) = Val(Text2.Text)
RS(2) = txtPur_Or_n.Text
RS(3) = Text1.Text
RS(4) = cmbf_type.Text
' RS(5) = Combo1.Text
' RS(6) = Combo2.Text
RS(7) = Val(txtAmount.Text)
RS(8) = Val(Text3.Text)
RS(9) = Val(txtAmount.Text) * Val(Text3.Text)
RS(10) = Text4.Text
RS.Update
MsgBox ("record update"), vbInformation

End Sub

Private Sub Command1_Click()

If DataEnvironment1.rsCommand6.State = 1 Then DataEnvironment1.rsCommand6.Close
DataEnvironment1.rsCommand6.Filter = "SALES_ORDER_NO = " & Val(Text2.Text)
PURREPORT.Show
End Sub

Private Sub Command2_Click()

If Not IsNumeric(Text4.Text) Then
MsgBox "invalid ph"
Exit Sub
End If
If cmbf_type.Text = "" Then
MsgBox "Please enter Fuel Type", vbInformation cmbf_type.SetFocus
Exit Sub
End If
If Trim(DTd_o_p) = "" Then
DTd_o_p.SetFocus
MsgBox "enter suitable date", vbInformation
Exit Sub
End If
If Trim(txtPur_Or_n) = "" Then txtPur_Or_n.SetFocus
MsgBox "enter suitable sales order no", vbInformation
Exit Sub
End If
If Trim(txtAmount) = "" Then txtAmount.SetFocus
MsgBox "enter suitable amount", vbInformation
Exit Sub
End If
If Trim(Text1) = "" Then cmbb_name.SetFocus
MsgBox "enter RECIPIENT NAME", vbInformation
Exit Sub
End If
If Trim(Text2) = "" Then txtDraft_che.SetFocus
MsgBox "enter number only", vbInformation
Exit Sub
End If
If Trim(cmbf_type.Text) = "" Then txtQuantity.SetFocus
MsgBox "enter FROM", vbInformation
 Exit Sub
End If

If Trim(Text3.Text) = "" Then

Text3.SetFocus
MsgBox "enter quantity", vbInformation
Exit Sub
End If

'sql = "insert into purchase values(#" & DTd_o_p.Value & "#," & txtPur_Or_n.Text & "," &
txtAmount.Text & ",'" & cmbb_name.Text & "'," & txtDraft_che.Text & "," & txtQuantity.Text & ",'"
& cmbf_type.Text & "')"
'con.Execute sql
If RS.State = 1 Then RS.Close
RS.Open "select * from tbl_pur", con, adOpenKeyset, adLockOptimistic, adCmdText RS.AddNew
RS(0) = DTd_o_p.Value
RS(1) = Val(Text2.Text)
RS(2) = txtPur_Or_n.Text
RS(3) = Text1.Text
RS(4) = cmbf_type.Text
' RS(5) = Combo1.Text
' RS(6) = Combo2.Text
RS(7) = Val(txtAmount.Text)
RS(8) = Val(Text3.Text)
RS(9) = Val(txtAmount.Text) * Val(Text3.Text)
RS(10) = Text4.Text
RS.Update

If RS.State = 1 Then RS.Close

RS.Open "select * from sub_service where SUB_SERVICE_NAME='" & cmbf_type.Text & "'",
con, adOpenKeyset, adLockOptimistic, adCmdText
RS(3) = Val(RS(3) + Val(Text3.Text))
RS.Update

txtPur_Or_n.Enabled = False
Label12.BackColor = &HFFC0C0
Timer1.Enabled = False
'Text1.Enabled = False
MsgBox "record ADDED", vbInformation
Adodc1.RecordSource = "select * from tbl_pur where sales_Order_no=" & Val(Text2.Text)
Adodc1.Refresh
End Sub
Private Sub DTd_o_p_Change()
If DTd_o_p.Value > Date Then
MsgBox "Enter Currect Date...", vbInformation, "Date Error"
DTd_o_p.Value = Date
End If
End Sub

Private Sub Form_Load() Dim sql As String centerform Me DTd_o_p.Value = Date sql = "select *
from tbl_pur"
If RS.State = 1 Then
RS.Close
Set RS = Nothing
End If
RS.Open sql, con, adOpenKeyset, adLockPessimistic, adCmdText
If RS.RecordCount = 0 Then cmdsave.Enabled = False cmdupdate.Enabled = False cmdfind.Enabled
= False
End If
List1.Visible = False
If RS.State = 1 Then RS.Close
RS.Open "select sales_order_no from tbl_pur GROUP BY sales_ORDER_NO", con, adOpenKeyset,
adLockOptimistic
List1.Clear
While Not RS.EOF = True
List1.AddItem RS(0)
RS.MoveNext
Wend

If RS.State = 1 Then RS.Close

RS.Open "SELECT * FROM MAIN_SERVICE order by SERVICE_NAME", con, adOpenKeyset,
adLockOptimistic, adCmdText
Text1.Clear
If RS.RecordCount >= 1 Then
While RS.EOF = False
Text1.AddItem RS(0)
RS.MoveNext
Wend
End If
RS.Close

cmbf_type.Clear DTd_o_p = Date txtAmount = "" cmbb_name = "" txtDraft_che = "" txtQuantity = ""
cmdfind.Enabled = True
Text2.Text = "" Text1.Text = "" txtPur_Or_n.Text = "" cmbf_type.Text = "" txtAmount.Text = ""
txtPur_Or_n.Enabled = True Text1.Enabled = True
Command2.Enabled = False
Adodc1.RecordSource = "select * from tbl_pur where sales_Order_no=0"
Adodc1.Refresh
End Sub

Private Sub List1_Click() Dim sql As String txtPur_Or_n = List1.Text If RS.State = 1 Then RS.Close
sql = "select * from tbl_pur where sales_order_no =" & Val(List1.Text)
RS.Open sql, con, adOpenKeyset, adLockOptimistic
If RS.RecordCount > 0 Then
DTd_o_p.Value = RS(0) Text2.Text = RS(1) txtPur_Or_n.Text = RS(2) Text1.Text = RS(3)
cmbf_type.Text = RS(4) ' Combo1.Text = RS(5) ' Combo2.Text = RS(6) txtAmount.Text =
RS(7)
Text4.Text = RS(10)
End If

cmdupdate.Enabled = True
Adodc1.RecordSource = "select * from tbl_pur where sales_order_no =" & Val(List1.Text)
Adodc1.Refresh
End Sub

Private Sub text1_Click()

If RS.State = 1 Then RS.Close
RS.Open "SELECT * FROM SUB_SERVICE where service_NAME ='" & Text1.Text & "' order by
SUB_SERVICE_NAME", con, adOpenKeyset, adLockOptimistic, adCmdText

If RS.RecordCount >= 1 Then cmbf_type.Clear While RS.EOF = False cmbf_type.AddItem RS(1)

RS.MoveNext
Wend
End If
End Sub

Private Sub txtAmount_KeyPress(KeyAscii As Integer)

Call validno(KeyAscii)
End Sub
Private Sub txtDraft_che_KeyPress(KeyAscii As Integer)
Call validno(KeyAscii)
End Sub

Private Sub txtQuantity_KeyPress(KeyAscii As Integer)

Call validno(KeyAscii)
End Sub
 FORM Category,sub_service_name as
Measured_in<=" &

Private Sub cmdClose_Click()

Unload Me
End Sub

Private Sub cmdSave_Click()

If Not IsNumeric(txtPur_Or_n.Text)
Then
MsgBox "invalid NUMBER"
Exit Sub
End If

If txtPur_Or_n.Text = "" Then

MsgBox "Plz enter qty", vbInformation
txtPur_Or_n.SetFocus
Exit Sub
End If
Adodc1.RecordSource = "select
ITEM,Measured_in as Price,BAL
REORDER
Val(txtPur_Or_n.Text) & " order by 1"
F
Adodc1.Refresh
End Sub

Private Sub Form_Load()

End Sub

service_name
from
 as
sub_service where

75

DAILY ATTENDENCE REPORT FORM

Private Sub cmdClose_Click()

Unload Me
End Sub
Private Sub cmdSave_Click()
If DataEnvironment1.rsCommand1.State = 1 Then
DataReport1.Show
End Sub

Private Sub Form_Load()

Me.Height = 3500
Me.Width = 6075
centerform Me
dt1.Value = Date
End Sub

76
 MONTHLY ATTENDENCE REPORT FORM

Private Sub cmbsex_Click()

If RS.State = 1 Then RS.Close
RS.Open "select emp_no,sex from emp_details where emp_name='" &
Label4.Caption = RS(1)
End Sub

Private Sub cmdClose_Click()

Unload Me
End Sub

Private Sub cmdSave_Click()

If DataEnvironment1.rsCommand1.State = 1 Then DataEnvironment1.rsCommand1.Close
DataReport1.Show
End Sub

Private Sub Form_Load()

Me.Height = 3360
Me.Width = 8775
centerform Me
If RS.State = 1 Then RS.Close
RS.Open "select emp_no,emp_name from emp_details where status=0", con cmbsex.Clear
RS.MoveNext
Wend
End Sub

77
 SALE REPORT FORM

Private Sub cmbser_Click()

If cmbser.Text = "ALL" Then
Combo1.Clear
Combo1.AddItem "ALL"
Combo1.Text = "ALL"
Exit Sub
End If
If RS.State = 1 Then RS.Close
If RS.RecordCount >= 1 Then
Combo1.Clear
Combo1.AddItem "ALL"
While RS.EOF = False
Combo1.AddItem RS(1)
RS.MoveNext
Wend
End If
Combo1.Text = "ALL"
End Sub

Private Sub cmdClose_Click()

Unload Me
End Sub

Private Sub cmdSave_Click()

If DataEnvironment1.rsCommand7.State = 1 Then
If Combo1.Text = "ALL" Then

78
DataEnvironment1.rsCommand7.Filter = "date >=#" & dt1.Value & "# and date <=#" &
dt2.Value & "# and rec='" & cmbser.Text & "'"
Else
DataEnvironment1.rsCommand7.Filter = "date >=#" & dt1.Value & "# and date <=#" &
dt2.Value & "# and frm='" & Combo1.Text & "'"
End If
End If
SALEREPORT.Show
End Sub
Private Sub Form_Load()
Me.Height = 2745
Me.Width = 8775
centerform Me
dt1.Value = Date
dt2.Value = Date
If RS.State = 1 Then RS.Close
RS.Open "SELECT * FROM MAIN_SERVICE order by SERVICE_NAME", con,
adOpenKeyset, adLockOptimistic, adCmdText
If RS.RecordCount >= 1 Then
While RS.EOF = False
cmbser.AddItem RS(0)
RS.MoveNext
Wend
End If RS.Close
cmbser.Text = "ALL"
Combo1.Text =
"ALL"
End Sub

79
 PURCHASE REPORT FORM

Private Sub cmbser_Click()

If cmbser.Text = "ALL" Then
Combo1.Clear
Combo1.AddItem "ALL"
Combo1.Text = "ALL"
Exit Sub
End If
Combo1.Text = "ALL"
End Sub
Private Sub cmdClose_Click()
Unload Me
End Sub
Private Sub cmdSave_Click()
If DataEnvironment1.rsCommand6.State = 1 Then
End If
PURREPORT.Show
End Sub
Private Sub Form_Load()
dt1.Value = Date
dt2.Value = Date
RS.Close cmbser.Text =
"ALL" Combo1.Text =
"ALL"
End Sub

80
 MODULE FORM

Public con As New ADODB.Connection

Public rs As New ADODB.Recordset
Public Function dosomething(frm As Form)
Dim mycolor As OLE_COLOR mycolor =
&HC0E0FF frm.BackColor = mycolor
Dim C As Control

For Each C In frm.Controls

If TypeOf C Is Label Then
C.BackStyle = 0
End If
Next
For Each C In frm.Controls
If TypeOf C Is Frame Then
C.BackColor = mycolor
End If
Next
End Function

Private Sub main()

Call setconnection
frmlogin.Show
End Sub
Private Sub setconnection()
con.Open "provider=microsoft.jet.oledb.4.0;data source= Data.mdb"
Exit Sub errhand:
MsgBox "connection error", vbExclamation + vbOKOnly, "error"
End
End Sub
81
Public Function CLEARALLTEXT(frm As Form)
Dim C As Control

For Each C In frm.Controls

If TypeOf C Is TextBox Then
C.Text = ""
End If
Next
For Each C In frm.Controls
If TypeOf C Is ComboBox Then
C.Text = ""
End If
Next
End Function

82
 SYSTEM SECURITY

The protection of computer based resources that include hardware, software, data,
procedures and people against unauthorized use or natural Disaster is known as System
Security.
System Security can be divided into four related issues:
• Security
• Integrity
• Privacy
• Confidentiality
SYSTEM SECURITY refers to the technical innovations and procedures applied to the
hardware and operation systems to protect against deliberate or accidental damage from a
defined threat.

DATA SECURITY is the protection of data from loss, disclosure, modification and
destruction.

SYSTEM INTEGRITY refers to the power functioning of hardware and programs,

appropriate physical security and safety against external threats such as eavesdropping and
wiretapping.

PRIVACY defines the rights of the user or organizations to determine what information they
are willing to share with or accept from others and how the organization can be protected
against unwelcome, unfair or excessive dissemination of information about it.

CONFIDENTIALITY is a special status given to sensitive information in a database to

minimize the possible invasion of privacy. It is an attribute of information that
characterizes its need for protection.

83
 CONCLUSION

The Project “AQUARIUM SHOP MANAGEMNT SYSTEM “of “ ” is aimed.

1. User friendly.

2. Generate the desired report.

3. Proper handling of records of fruits.

4. Daily transaction is very convenient ad up to date.

There are still the scope of further implementation in this programmed.

84
 REFERENCES

The book is which are followed in making this object successful & came to end are:

 COMPLETE REFERENCE OF V.B.-6.0.

 M.S. ACCESS 2007, M.S. ACCESS 2003.

 MASTERING VISUAL BASIC 6.0 –EVANGELS PETROUTSOS-

BOB

PUBLICATIONS

 Google and YouTube.

85
SOFT COPY OF THE PROJECT ON CD

86