Project Report Sales Executive

Download as doc, pdf, or txt
Download as doc, pdf, or txt
You are on page 1of 85

INDEX

1. INTORDUCTION

1.1 Background
1.2 Objectives
1.3 Purpose and Scope

1.3.1 Purpose
1.3.2 Scope

2. SURVEY OF TECHNOLOGIES

3. REQUIREMENTS AND ANALYSIS

4. REFERENCES
INTORDUCTION

The title of the project plays a very important role. It denotes someone
something about the project. The title of the project must be thought with a
great care. It should be short and must contain everything in itself.
Sometimes the name title of the project is so specific. I thought of the title of
my project as the

SALES EXECUTIVE SYSTEM

The name of the project is rightly through as it is closely associated


with the details of the library of any premises, and all information about the
course as fee and duration. All the details of students can be maintained by
the software and administration can see it.

This project is an effort to computerize any library.


1.1 Background

With this changing world we also have to change ourselves according


to the current requirements of the market, there was no proper medium
available for the people to get information about the world so that they could
update heartleaves besides news paper, but today various medium area there
such as television, radio and now a days IT. IT has changed the people's idea
about information. People can get information about any thing within few
seconds. These medium are the software which are developed to store
information about any particular area. Here, the software Sales Executive
System will help the staff of a library to search any book easily, s/he can
easily delete update a user/book/member of library.

1.2 Objectives

The project "EXECUTIVE MANAGEMENT SYSTEM" has the main


objective to develop software system that can systematically keep tracks
upon the atomization of the office task of any company particularly for the
executive or representatives.

To provide security of data also plays a very important role, to solve


data from being lost and unauthorized users are also necessary. Few more
objectives area as follows

 If a new customer to visit it can be easily stored to the database.


 If management wants particulars of a customer it can be easily done
by the top management personal.

 A new executive may easily add to the database.


 If company wants to distribute sample for increasing the sale of the
company, the system monitor to whom it is to distribute and in what
quantity.

1.3 Purpose, Scope and Applicability

1.3.1 Purpose

The idea to select this project came in my mind by seeing the manual
task doing by the person of a company. I thought if the system of the guy
will automated there can be easy and fast working with more efficiency.

It will help to the administration to see the executive, total visit,


salary, customer etc.
1.3.2 Scope

The scope of this software is very large as company or small


enterprises provide the representatives. The automation of the system will
help them in an efficient manner.

The main function of the system is to maintain the details information


of member such as their name, address, contact no., course, fee details etc. as
well as the customer. Finally it will also record the details of the orders
taken by an executive and sample distributed by the executives.

1.3.3 Applicability

The project “SALES EXECUTIVE SYSTEM” has its both direct and
indirect application in the registration of member of a library.

Directly a an executive may see the list of customer to visit

Apart from the above mentioned use the software can also be used by
executive himself to register to the software as a user.
SURVEY OF TECHNOLOGIES

Now a day's various technologies are available in the market those can
be used to make this project. I had surveyed various technologies to work on
this project. These technologies are decided on the basis of the complexity of
project and as well as to make it user friendly, low cost etc. It should also try
to be using the latest technologies, because from market point of view latest
technologies gives your project a market value. After looking at the
available technologies I have chosen Visual Basic as a front end tool and
oracle as a back end tool. The main reason behind using, it is user friendly
and it becomes easy for every people having basic knowledge of computer
operation can use this project very easily without facing any problem.
Another major reason behind is that it can be downloaded easily on
traditional operating system (windows 98) which is generally used in India.
Windows also provide user friendly environment to its users.

There were many technologies available for the development of the


project. For example for the front end development Visual Basic 6.0, power
Builder, X-Windows, Oracle Developer 2000, VC++ and jbuilder. And for
the back end Oracle, Ingress, Sybase, SQL Plus, MY SQL etc. But among
these technologies Visual Basic 6.0 is selected as Front End tool and Oracle
is used as Back End because of the following reasons.
REASONS FOR THE SELECTION OF VB 6.0

 Visual Basic is a Window programming language that has been


developed by Microsoft Corporation. Visual Basic is a powerful front-
end tool to develop sophisticated windows programs vary quickly.
Visual Basic is on of the RAD (Rapid Application Development) tools
as it enables the programmer to develop applications very easily and
very quickly.

 Visual Basic is one of the first products provide a graphical


programming environment and a paint metaphor for developing user
interfaces. Instead of worrying about syntax details, the Visual Basic
Programmer can add a substantial amount of code simply by dragging
and dropping controls, such as buttons and dialog boxes, and then
defining their appearance and behavior.

 Visual Basic is one of the easiest programming languages to learn.


Yet, even though it is easy to learn and to use, Visual Basic can also
be used to develop very powerful computer programs. Many computer
games are written in Visual Basic, businesses use Visual Basic to
manage their databases, webmasters use Visual Basic in developing
web pages, and people use Visual Basic to build windows applications
they want and need I their everyday life.

That's why Visual Basic is selected as a Front End tool.


REASONS FOR THE SELECTION OF ORACLE

Oracle is one of widely used Back End Tools for developing the
application software. It's gaining the popularity due to the following reasons.
Oracle take care of following:-

 Updating the database.


 Retrieving information from the database
 Accepting query language statements.
 Enforcing security specifications
 Enforcing data integrity specifications.
 Enforcing transaction consistency.
 Managing data sharing.
 Optimizing queries.
 Managing system catalogs.

That's why Oracle is selected as a Back End tool.

Apart from the above mentioned reasons relevant experience in visual


basic and oracle made to select them as front end and back end tools for
developing the project.
REQUIRMENTS AND ANALYSIS

To work on this project I had to search much more about. I have


arranged the requirements of the project and I analysis them. I choose the
step by step process of the software. These are as follows.

Problem Definition

Firstly I carefully read what the problem is. I consider that the
problem is to make project on EXECUTIVE MANAGEMENT SYSTEM. In
this I have to solve the problem of computerizing the registration
management schedule of the student. The problem is various course are
there which are classified on the basis of its eligibility and it should also
include the fees records, who register in a particular course. This project
should keep the record of the student.

Requirements Specification

Specification of software requirement is very important part towards


developing perfect software. The person who gathering requirements should
have knowledge of what and when to gather information and form the right
resources. The requirement analysis involves obtaining a clear and through
understanding of the product to be developed. Thus CR is a consistent and
correct and complete document. How efficiently a software can fulfill our
requirement depends upon the requirement specification phase.

In the development of this project, I feel the following requirements. I


classified the project requirements as follows
Types of Requirements

There are various categories of the requirements.

On the basis of their priority, the requirements are classified into the
following three types.

 Those that should be absolutely met.


 Those that is highly desirable but not necessary.
 Those that are possible but could be eliminated.

On the basis of their functionality, the requirements are classified in two


types.

1. Functional requirements

They define the factors like, I/O formats, storage structure,


computational capabilities, timing and synchronization. The primary and
basic objective of the user is that the software they are using can fulfill there
requirement in minimum time and less effort without any interruption. I
have arranged the following functional requirements:

 The input to my software should be in such format that any user can
use the software. In the same way I tried to take output from the
software in easy format.
 The computational capability of the software should be good. I tried
my best to strengthen the computational capability of my software
easy with minimum time. If software takes less time in computation
then its computation capability is good. It also saves time.
 I tired to cover the timing problem that is common with the software
development.

2. Non-functional requirements

They define the properties or qualities of a product including


usability, efficiency, performance, space, reliability, portability etc. These
requirements are basically from the user's point of view. User does not mean
about the internal working of software. It needs some features in the
software to be satisfied with the working of software. These requirements
area as follows:

 The software should be as that it becomes easy to use by everyone


that is feature of usability.
 It should as efficient that it can fulfill users requirements such as if
user want to get print outs from the software, want to extract useful
information, its security etc.
 The software should be performed well without any interruption. It
should complete its working with minimum time.
 The software should be reliable. That is it should be consistent with its
performance, so that user can enjoy it.
 The software should have the feature of portability. The software
should be platform independent, so that to load it on any operation
system. If a user wants to carry data from its software, then it should
provide this facility.
Database and the module that will fulfill all the requirements are as
follows:

- : DATABASE REQUREMENTS : -

CUSTOMER:

Field name Datatype Description


Custid Varchar2 Customer ID
Fname Varchar2 First Name
Lname Varchar2 Last Name
Fath_name Varchar2 Father’s Name
Dob Date Date of Birth
Cont Number Contact Number
Mail_id Varchar2 Email ID
Mar_st Varhcar2 Married/unmarried
Gender Varchar2 M/F

EMPLOYEE:

Field name Datatype Description


empid Varchar2 Employee ID
Fname Varchar2 First Name
Lname Varchar2 Last Name
Fath_name Varchar2 Father’s Name
Dob Date Date of Birth
Cont Number Contact Number
Mail_id Varchar2 Email ID
Marital status Varhcar2 Married/unmarried
Gender Varchar2 M/F

STOCK:

Field name Datatype Description


Stock_id Varchar2 Stock ID
Sname Varchar2 Stock Name
Qty Varchar2 Quantity
SAMPLE:

Field name Datatype Description


Stock_id Varchar2 Stock ID
Cust_id Varchar2 Customer ID
Qty Varchar2 Quantity
date_sample Varchar2 Date of the sample

ORDER:

Field name Datatype Description


Oid Varchar2 Order ID
Cust_id Varchar2 Customer ID
Sid Varchar2 Stock ID
Qty Varchar2 Quantity
SALARY:

Field name Datatype Description


Empid Varchar2 Employee ID
Basic_sal Varchar2 Basic Salary
Hra_sal Varchar2 HRA
Med_sal Varchar2 Medical Allowances
Veh_sal Varchar2 Vehicle Allowances
Travel_sal Varchar2 Traveling Allowances
Da_sal Varchar2 DA
Ins_sal Varchar2 Incentives
‘0’ LEVEL (CONTEXT FLOW DIAGRAM)
1st Level
DFD FOR ADMIN
1nd Level

DFD FOR USER


2ND Level
ADMIN
2ND Level
USER
Planning and Scheduling

The planning is very important in every aspect of development work.


Good manager carefully monitor developments at various phases. Improper
planning leads to failure of the project. Software project plan can be viewed
as the following
1. within the organization:
 How to implement the project?
 What are various constraints)?
 What is market strategy?
2. With respect to the customer:
 Weekly or timely meetings with the customer with presentation on
status reports.
 Customer feedback is also taken and further modifications and
developments are done.
 Project milestones are also presented to the customer.

After making an in depth analysis of the problems and considering the


various requirements the project is planned to be complete in one and a half
month. For completing the project waterfall model is selected. The waterfall
model has four phases namely requirement analysis, design, coding, testing
and maintenance. Thus different activities and the milestones in the system
according to the waterfall model are following Activities
 Requirement Gathering: In this phase all the requirements for

developing the software are arranged and analyzed. This phase will
require problem definition, requirement specification, software and
hardware requirements etc.
 Design: After analyzing the requirements the system is designed. This

phase includes logical design, physical design, database design and


the interface design of the system.
 Coding: After designing the system the software is to be coded in any

specific language for this purpose visual basic is chosen as the desired
front end.
 Testing: After coding the system various test cases are to be

developed so that the system can be thoroughly tested and any default
in the system will be reduced. For this purpose unit testing is planned
to be use.
 Maintenance: after going through above phases the system will be

changed according to the feed back of different user. After that the
system will be modified or updated Finally the system will be put into
work.
Milestone

1. Start Of The Project : 10th March 2011


2. Requirement Gathering : 20th March 2011
3. Design : 5th Apr 2011
4. Test Cases : 10th Apr 2011
5. Coding : 12th Apr 2011
6. Testing : 15th Apr 2001
7. Build : 20th Apr 2001
Gantt Chart For The System To Be Developed

The below chart explains the tasks vs. the time they will take to
complete

Tasks 20 March 5 Apr 10 Apr 15 Apr 20 Apr


Req.
Analysis
Design

Test
Cases
Coding

Testing

Build
Software and Hardware Requirements

For software development very first and essential requirement is the


availability of software and hardware.

The software “COURSE REGISTRATION SOFTWARE” requires the


following software and hardware for its successful implementation.

SOFTWARE REQUIREMENTS

Configurations of the project


 Windows - 9x/ 2000/ XP Operating System
 Visual Basic 6.0 (Professional edition)
 Oracle 8+ (structured query language 8)

Here Visual Basic will be used as front end software and Oracle 8 will be
used as backend (to store database)

HARDWARE REQUIREMENTS

 IBM Compatible PC
 128 MB RAM For Installing Oracle And Visual Basic
 10 GB Of Hard Disk
 Monochrome 15" Monitor
 Writable CD ROM For Backup
 132 Character 80 Cps Printer

These are the minimum requirement for working on this project, higher the
hardware and software configuration will give the best quality of software.
Screen Lyaouts
STARTING PAGE

LOGON PAGE
MAIN PAGE
CUSTOMER PAGE
CUSTOMER ADD PAGE
CUSTOMER MODIFY PAGE
CUSTOMER DELETE PAGE
STOCKIEST PAGE

STOCK ADD PAGE


MODIFY STOCK PAGE
DELETE STOCK PAGE

SAMPLE PAGE
DISTRIBUTE SAMPLE PAGE
ORDER PAGE
BOOK ORDER PAGE
SALARY PAGE
ENTER SALARY PAGE
REPORT PAGE
SALARY REPORT PAGE
CUSTOMER REPORT PAGE
STOCK REPORT PAGE
SAMPLE REPORT PAGE
BOOK ORDER PAGE
Coding

MODULE

Public rs As New ADODB.Recordset


Public con As New ADODB.Connection
FIRSTFFORM

Private Sub Timer1_Timer()


If ProgressBar1.Value < 100 Then
ProgressBar1.Value = ProgressBar1.Value + 5
End If
If ProgressBar1.Value = 100 Then
LOGON.Show
Unload Me
End If
End Sub
LOGON FORM

Private Sub Command1_Click()


If Text1.Text <> "" Then
Command1.Enabled = True
Set rs = con.Execute("select * from LOGON where uname='" &
Text1.Text & "' and password='" & Text2.Text & "'")
If rs.Fields(0) <> 0 Then
main.Show
LOGON.Hide
Else
MsgBox "Invalid User Name or password"
Text1.Text = ""
Text2.Text = ""
End If
End If
End Sub

Private Sub Command2_Click()


End
End Sub

Private Sub Command3_Click()


If Text1.Text <> "" Then
Command3.Enabled = True
Set rs = con.Execute("select count(*) from logon where uname='" &
Text1.Text & "' and password='" & Text2.Text & "'")
If rs.Fields(0) <> 0 Then
changepassword.Show
LOGON.Hide
Else
MsgBox "Invalid User Name or password"
Text1.Text = ""
Text2.Text = ""
End If
End If
End Sub
Private Sub Form_Load()
con.Open "provider=msdaora.1; user id=scott; password=tiger"
If Text1.Text = "" Or Text2.Text = "" Then
Command1.Enabled = False
Command3.Enabled = False
End If
End Sub

Private Sub Text2_Change()


If Text2.Text <> "" Then
Command1.Enabled = True
Command3.Enabled = True
Else
Command1.Enabled = False
Command3.Enabled = False
End If
End Sub
MAINFORM

Private Sub adcust_Click()


customeradd.Show
End Sub

Private Sub addstck_Click()


stockadd.Show
End Sub

Private Sub bkordr_Click()


bookorder.Show
End Sub

Private Sub delcust_Click()


customerdelete.Show
End Sub

Private Sub delstck_Click()


stockdelete.Show
End Sub

Private Sub distsamp_Click()


distributesample.Show
End Sub

Private Sub entsal_Click()


salary.Show
End Sub

Private Sub Image1_Click()

End Sub

Private Sub modicust_Click()


customermodify.Show
End Sub

Private Sub modistck_Click()


stockmodify.Show
End Sub

Private Sub totbkordr_Click()


Set rs = con.Execute("select * from bookorder")
Set bookorderreport.DataSource = rs
bookorderreport.Show
End Sub

Private Sub totdistsam_Click()


Set rs = con.Execute("select * from sample")
Set samplereport.DataSource = rs
samplereport.Show
End Sub

Private Sub totsalpaid_Click()


Set rs = con.Execute("SELECT * FROM salary")
Set salaryreport.DataSource = rs
salaryreport.Show
End Sub

Private Sub totvisitcust_Click()


Set rs = con.Execute("SELECT * FROM customer")
Set customerreport.DataSource = rs
customerreport.Show
End Sub

Private Sub totvisitstck_Click()


Set rs = con.Execute("select * from stock")
Set stockreport.DataSource = rs
stockreport.Show
End Sub

Private Sub xmnu_Click()


End
End Sub
CUSTOMER ADD FORM

Private Sub Command1_Click()


Dim dob As String
Dim mstatus As String
Dim gen As String
Dim FEE As String
Dim e As Integer
Set rs = con.Execute("select MAX(cid) from customer")
If rs.Fields(0) <> 0 Then
e = rs.Fields(0) + 1
Else
e = 101
End If
If Text1.Text = "" Or Text2.Text = "" Or Text3.Text = "" Or Text4.Text
= "" Or Text5.Text = "" Or Text6.Text = "" Or (Option1 = False And
Option2 = False) Or (Option3 = False And Option4 = False And
Option5 = False) Then
MsgBox "SOME INFORMATION MISSING"
Else
dob = Format(DTPicker1.Value, "dd-MMM-yy")
If Option1 = True Then
gen = "Male"
Else
gen = "Female"
End If
If Option3 = True Then
mstatus = "Unmarried"
ElseIf Option4 = True Then
mstatus = "Married"
Else
mstatus = "Divorced"
End If
Set rs = con.Execute("insert into customer values('" & e & "','" &
Text1.Text & "','" & Text2.Text & "','" & Text3.Text & "','" & dob & "','" &
Text4.Text & "','" & Text5.Text & "','" & Text6.Text & "','" & mstatus &
"','" & gen & "')")
MsgBox "SUCCESS"
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text4.Text = ""
Text5.Text = ""
Text6.Text = ""
End If
End Sub

Private Sub Command2_Click()


Unload Me
End Sub

Private Sub Command3_Click()


Unload Me
End Sub

Private Sub Form_Load()

End Sub

Private Sub Text1_KeyPress(KeyAscii As Integer)


If KeyAscii >= Asc("A") And KeyAscii <= Asc("Z") Or KeyAscii >=
Asc("a") And KeyAscii <= Asc("z") Or KeyAscii = 8 Then
Else
KeyAscii = 0
End If
End Sub
Private Sub Text2_KeyPress(KeyAscii As Integer)
If KeyAscii >= Asc("A") And KeyAscii <= Asc("Z") Or KeyAscii >=
Asc("a") And KeyAscii <= Asc("z") Or KeyAscii = 8 Then
Else
KeyAscii = 0
End If
End Sub

Private Sub Text3_KeyPress(KeyAscii As Integer)


If KeyAscii >= Asc("A") And KeyAscii <= Asc("Z") Or KeyAscii >=
Asc("a") And KeyAscii <= Asc("z") Or KeyAscii = 8 Then
Else
KeyAscii = 0
End If
End Sub

Private Sub Text4_KeyPress(KeyAscii As Integer)


If KeyAscii >= Asc("0") And KeyAscii <= Asc("9") Or KeyAscii = 8
Then
Else
KeyAscii = 0
End If
End Sub
CUSTOMER MODIFY FORM

Private Sub Combo1_Click()


Set rs = con.Execute("select * from customer where cid='" &
Combo1.Text & "'")
Text1.Text = rs.Fields("firstname")
Text2.Text = rs.Fields("lastname")
Text3.Text = rs.Fields("fathername")
Text4.Text = rs.Fields("dob")
Text5.Text = rs.Fields("contact")
Text6.Text = rs.Fields("address")
Text7.Text = rs.Fields("emailid")
Text8.Text = rs.Fields("maritalstatus")
Text9.Text = rs.Fields("gender")
End Sub

Private Sub Command1_Click()


Dim dob As String
If Text1.Text = "" Or Text2.Text = "" Or Text3.Text = "" Or Text4.Text
= "" Or Text5.Text = "" Or Text6.Text = "" Or Text7.Text = "" Or
Text8.Text = "" Or Text9.Text = "" Then
MsgBox "SOME INFORMATION MISSING"
Else
Set rs = con.Execute("UPDATE CUSTOMER SET firstname='" &
Text1.Text & "',lastname='" & Text2.Text & "',contact='" & Text5.Text
& "',address='" & Text6.Text & "',emailid='" & Text7.Text &
"',maritalstatus='" & Text8.Text & "' where cid='" & Combo1.Text & "'")
MsgBox "SUCCESS"
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text4.Text = ""
Text5.Text = ""
Text6.Text = ""
Text7.Text = ""
Text8.Text = ""
Text9.Text = ""
End If
End Sub

Private Sub Command2_Click()


Unload Me
End Sub

Private Sub Command3_Click()


Unload Me
End Sub

Private Sub Form_Load()


Set rs = con.Execute("select cid from customer")
rs.MoveFirst
While rs.EOF <> True
Combo1.AddItem rs.Fields(0)
rs.MoveNext
Wend
End Sub

Private Sub Text1_KeyPress(KeyAscii As Integer)


If KeyAscii >= Asc("A") And KeyAscii <= Asc("Z") Or KeyAscii >=
Asc("a") And KeyAscii <= Asc("z") Or KeyAscii = 8 Then
Else
KeyAscii = 0
End If
End Sub

Private Sub Text2_KeyPress(KeyAscii As Integer)


If KeyAscii >= Asc("A") And KeyAscii <= Asc("Z") Or KeyAscii >=
Asc("a") And KeyAscii <= Asc("z") Or KeyAscii = 8 Then
Else
KeyAscii = 0
End If
End Sub

Private Sub Text3_KeyPress(KeyAscii As Integer)


If KeyAscii >= Asc("0") And KeyAscii <= Asc("9") Or KeyAscii = 8
Then
Else
KeyAscii = 0
End If
End Sub

Private Sub Text6_KeyPress(KeyAscii As Integer)


If KeyAscii >= Asc("A") And KeyAscii <= Asc("Z") Or KeyAscii >=
Asc("a") And KeyAscii <= Asc("z") Or KeyAscii = 8 Then
Else
KeyAscii = 0
End If
End Sub

Private Sub Text7_KeyPress(KeyAscii As Integer)


If KeyAscii >= Asc("A") And KeyAscii <= Asc("Z") Or KeyAscii >=
Asc("a") And KeyAscii <= Asc("z") Or KeyAscii = 8 Then
Else
KeyAscii = 0
End If
End Sub
CUSTOMER DELETE FORM

Private Sub Combo1_Click()


Set rs = con.Execute("select * from customer where cid='" &
Combo1.Text & "'")
Text1.Text = rs.Fields("firstname")
Text2.Text = rs.Fields("lastname")
Text3.Text = rs.Fields("fathername")
Text4.Text = rs.Fields("dob")
Text5.Text = rs.Fields("contact")
Text6.Text = rs.Fields("address")
Text7.Text = rs.Fields("emailid")
Text8.Text = rs.Fields("maritalstatus")
Text9.Text = rs.Fields("gender")
End Sub

Private Sub Command1_Click()


Set rs = con.Execute("DELETE FROM CUSTOMER WHERE cid='" &
Combo1.Text & "'")
MsgBox "SUCCESS"
Combo1.Text = ""
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text4.Text = ""
Text5.Text = ""
Text6.Text = ""
Text7.Text = ""
Text8.Text = ""
Text9.Text = ""
Combo1.Clear
Set rs = con.Execute("select cid from customer")
rs.MoveFirst
While rs.EOF <> True
Combo1.AddItem rs.Fields(0)
rs.MoveNext
Wend
End Sub

Private Sub Command2_Click()


Unload Me
End Sub

Private Sub Command3_Click()


Unload Me
End Sub

Private Sub Form_Load()


Set rs = con.Execute("select cid from customer")
rs.MoveFirst
While rs.EOF <> True
Combo1.AddItem rs.Fields(0)
rs.MoveNext
Wend
End Sub
STOCK ADD FORM

Private Sub Command1_Click()


If Text1.Text = "" Or Text2.Text = "" Or Text3.Text = "" Then
MsgBox "SOME INFORMATION MISSING"
Else
Set rs = con.Execute("INSERT INTO STOCK VALUES('" &
Text1.Text & "','" & Text2.Text & "','" & Text3.Text & "')")
MsgBox "SUCCESS"
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
End If
End Sub

Private Sub Command2_Click()


Unload Me
End Sub

Private Sub Command3_Click()


Unload Me
End Sub

Private Sub Form_Load()

End Sub

Private Sub Text2_KeyPress(KeyAscii As Integer)


If KeyAscii >= Asc("A") And KeyAscii <= Asc("Z") Or KeyAscii >=
Asc("a") And KeyAscii <= Asc("z") Or KeyAscii = 8 Then
Else
KeyAscii = 0
End If
End Sub

Private Sub Text1_KeyPress(KeyAscii As Integer)


If KeyAscii >= Asc("0") And KeyAscii <= Asc("9") Or KeyAscii = 8
Then
Else
KeyAscii = 0
End If
End Sub

Private Sub Text3_KeyPress(KeyAscii As Integer)


If KeyAscii >= Asc("0") And KeyAscii <= Asc("9") Or KeyAscii = 8
Then
Else
KeyAscii = 0
End If
End Sub
STOCK MODIFY FORM

Private Sub Combo1_Click()


Set rs = con.Execute("select * from stock where stockid='" &
Combo1.Text & "'")
Text1.Text = rs.Fields("stockname")
Text2.Text = rs.Fields("quantity")
End Sub

Private Sub Command1_Click()


If Text1.Text = "" Or Text2.Text = "" Then
MsgBox "SOME INFORMATION MISSING"
Else
Set rs = con.Execute("UPDATE STOCK SET stockname='" &
Text1.Text & "',quantity='" & Text2.Text & "' where stockid='" &
Combo1.Text & "'")
MsgBox "SUCCESS"
Combo1.Text = ""
Text1.Text = ""
Text2.Text = ""
End If
End Sub

Private Sub Command2_Click()


Unload Me
End Sub

Private Sub Command3_Click()


Unload Me
End Sub

Private Sub Form_Load()


Set rs = con.Execute("select stockid from stock")
rs.MoveFirst
While rs.EOF <> True
Combo1.AddItem rs.Fields(0)
rs.MoveNext
Wend
End Sub

Private Sub Text1_KeyPress(KeyAscii As Integer)


If KeyAscii >= Asc("A") And KeyAscii <= Asc("Z") Or KeyAscii >=
Asc("a") And KeyAscii <= Asc("z") Or KeyAscii = 8 Then
Else
KeyAscii = 0
End If
End Sub

Private Sub Text2_KeyPress(KeyAscii As Integer)


If KeyAscii >= Asc("0") And KeyAscii <= Asc("9") Or KeyAscii = 8
Then
Else
KeyAscii = 0
End If
End Sub

Private Sub Text3_KeyPress(KeyAscii As Integer)


If KeyAscii >= Asc("0") And KeyAscii <= Asc("9") Or KeyAscii = 8
Then
Else
KeyAscii = 0
End If
End Sub

Private Sub Text4_KeyPress(KeyAscii As Integer)


If KeyAscii >= Asc("0") And KeyAscii <= Asc("9") Or KeyAscii = 8
Then
Else
KeyAscii = 0
End If
End Sub

Private Sub Text5_KeyPress(KeyAscii As Integer)


If KeyAscii >= Asc("0") And KeyAscii <= Asc("9") Or KeyAscii = 8
Then
Else
KeyAscii = 0
End If
End Sub

Private Sub Text6_KeyPress(KeyAscii As Integer)


If KeyAscii >= Asc("A") And KeyAscii <= Asc("Z") Or KeyAscii >=
Asc("a") And KeyAscii <= Asc("z") Or KeyAscii = 8 Then
Else
KeyAscii = 0
End If
End Sub

Private Sub Text7_KeyPress(KeyAscii As Integer)


If KeyAscii >= Asc("A") And KeyAscii <= Asc("Z") Or KeyAscii >=
Asc("a") And KeyAscii <= Asc("z") Or KeyAscii = 8 Then
Else
KeyAscii = 0
End If
End Sub
STOCK DELETE

Private Sub Combo1_Click()


Set rs = con.Execute("select * from stock where stockid='" &
Combo1.Text & "'")
Text1.Text = rs.Fields("stockname")
Text2.Text = rs.Fields("quantity")
End Sub

Private Sub Command1_Click()


Set rs = con.Execute("DELETE FROM STOCK WHERE STOCKID='"
& Combo1.Text & "'")
Combo1.Clear
MsgBox "SUCCESS"
Combo1.Text = ""
Text1.Text = ""
Text2.Text = ""
Set rs = con.Execute("select stockid from stock")
rs.MoveFirst
While rs.EOF <> True
Combo1.AddItem rs.Fields(0)
rs.MoveNext
Wend
End Sub

Private Sub Command2_Click()


Unload Me
End Sub

Private Sub Command3_Click()


Unload Me
End Sub

Private Sub Form_Load()


Set rs = con.Execute("select stockid from stock")
rs.MoveFirst
While rs.EOF <> True
Combo1.AddItem rs.Fields(0)
rs.MoveNext
Wend
End Sub
DISTRIBUTE SAMPLE FORM

Dim quan As Integer

Private Sub Combo1_Click()


Set rs = con.Execute("select quantity from stock where stockid='" &
Combo1.Text & "'")
Text1.Text = rs.Fields("quantity")
End Sub

Private Sub Command1_Click()


Dim dt As String
Dim quan As Integer
If Text1.Text = "" Or Combo1.Text = "" Or Combo2.Text = "" Then
MsgBox "Some Information Missing"
Else
Set rs = con.Execute("select quantity from stock where stockid='" &
Combo1.Text & "'")
quan = rs.Fields("quantity")
If Text1.Text > quan Then
MsgBox "Not Availlable Quantity"
Else
quan = quan - Text1.Text
dt = Format(DTPicker1.Value, "dd-MMM-yy")
Set rs = con.Execute("insert into sample values('" & Combo1.Text &
"','" & Combo2.Text & "','" & Text1.Text & "','" & dt & "')")
Set rs = con.Execute("update stock set quantity='" & quan & "' where
stockid='" & Combo1.Text & "' ")
MsgBox "success"
Combo1.Text = ""
Combo2.Text = ""
Text1.Text = ""
End If
End If
End Sub

Private Sub Command2_Click()


Unload Me
End Sub

Private Sub Command3_Click()


Unload Me
End Sub

Private Sub Form_Load()


Set rs = con.Execute("select stockid from stock")
While rs.EOF <> True
Combo1.AddItem rs.Fields(0)
rs.MoveNext
Wend
Set rs = con.Execute("select cid from customer")
While rs.EOF <> True
Combo2.AddItem rs.Fields(0)
rs.MoveNext
Wend
End Sub
BOOK ORDER FORM

Private Sub Combo2_Click()


Set rs = con.Execute("select quantity from stock where stockid='" &
Combo2.Text & "'")
Text2.Text = rs.Fields("quantity")
End Sub

Private Sub Command1_Click()


Dim quan As Integer
If Text1.Text = "" Or Text2.Text = "" Or Combo1.Text = "" Or
Combo2.Text = "" Then
MsgBox "Some Information Missing"
Else
Set rs = con.Execute("select quantity from stock where stockid='" &
Combo2.Text & "'")
quan = rs.Fields("quantity")
If Text2.Text > quan Then
MsgBox "Not Availlable Quantity"
Else
Set rs = con.Execute("insert into bookorder values('" & Text1.Text &
"','" & Combo1.Text & "','" & Combo2.Text & "','" & Text2.Text & "')")
MsgBox "success"
Combo1.Text = ""
Combo2.Text = ""
Text1.Text = ""
Text2.Text = ""
End If
End If
End Sub

Private Sub Command2_Click()


Unload Me
End Sub

Private Sub Command3_Click()


Unload Me
End Sub

Private Sub Form_Load()


Set rs = con.Execute("select cid from customer")
While rs.EOF <> True
Combo1.AddItem rs.Fields(0)
rs.MoveNext
Wend
Set rs = con.Execute("select stockid from stock")
While rs.EOF <> True
Combo2.AddItem rs.Fields(0)
rs.MoveNext
Wend
End Sub

Private Sub Form_Resize()


Image1.Height = bookorder.ScaleHeight
Image1.Width = bookorder.ScaleWidth
End Sub
SALARY FORM

Private Sub Command1_Click()


Dim totsal As Integer
totsal = Val(Text2.Text) + Val(Text3.Text) + Val(Text4.Text) +
Val(Text5.Text) + Val(Text6.Text) + Val(Text7.Text) + Val(Text8.Text)
If Text1.Text = "" Or Text2.Text = "" Or Text3.Text = "" Or Text4.Text
= "" Or Text5.Text = "" Or Text6.Text = "" Or Text7.Text = "" Or
Text8.Text = "" Then
MsgBox "SOME INFORMATION MISSING"
Else
Set rs = con.Execute("insert into salary values('" & Text1.Text & "','" &
Text2.Text & "','" & Text3.Text & "','" & Text4.Text & "','" & Text5.Text
& "','" & Text6.Text & "','" & Text7.Text & "','" & Text8.Text & "','" &
totsal & "')")
MsgBox "SUCCESS"
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text4.Text = ""
Text5.Text = ""
Text6.Text = ""
Text7.Text = ""
Text8.Text = ""
End If
End Sub

Private Sub Command2_Click()


Unload Me
End Sub

Private Sub Command3_Click()


Unload Me
End Sub
Private Sub Form_Load()

End Sub
SALARY REPORT

Private Sub DataReport_Initialize()


salaryreport.Sections("section1").Controls("text1").DataMember =
salaryreport.DataMember
salaryreport.Sections("section1").Controls("text1").DataField =
"empid"
salaryreport.Sections("section1").Controls("text2").DataMember =
salaryreport.DataMember
salaryreport.Sections("section1").Controls("text2").DataField =
"basicsalary"
salaryreport.Sections("section1").Controls("text3").DataMember =
salaryreport.DataMember
salaryreport.Sections("section1").Controls("text3").DataField = "hra"
salaryreport.Sections("section1").Controls("text4").DataMember =
salaryreport.DataMember
salaryreport.Sections("section1").Controls("text4").DataField =
"medallowance"
salaryreport.Sections("section1").Controls("text5").DataMember =
salaryreport.DataMember
salaryreport.Sections("section1").Controls("text5").DataField =
"vehallowance"
salaryreport.Sections("section1").Controls("text6").DataMember =
salaryreport.DataMember
salaryreport.Sections("section1").Controls("text6").DataField =
"travallowance"
salaryreport.Sections("section1").Controls("text7").DataMember =
salaryreport.DataMember
salaryreport.Sections("section1").Controls("text7").DataField = "da"
salaryreport.Sections("section1").Controls("text8").DataMember =
salaryreport.DataMember
salaryreport.Sections("section1").Controls("text8").DataField =
"incentive"
salaryreport.Sections("section1").Controls("text9").DataMember =
salaryreport.DataMember
salaryreport.Sections("section1").Controls("text9").DataField =
"totalsal"
End Sub
CUSTOMER REPORT

Private Sub DataReport_Initialize()


customerreport.Sections("section1").Controls("text1").DataMember =
customerreport.DataMember
customerreport.Sections("section1").Controls("text1").DataField =
"cid"
customerreport.Sections("section1").Controls("text2").DataMember =
customerreport.DataMember
customerreport.Sections("section1").Controls("text2").DataField =
"firstname"
customerreport.Sections("section1").Controls("text3").DataMember =
customerreport.DataMember
customerreport.Sections("section1").Controls("text3").DataField =
"lastname"
customerreport.Sections("section1").Controls("text4").DataMember =
customerreport.DataMember
customerreport.Sections("section1").Controls("text4").DataField =
"fathername"
customerreport.Sections("section1").Controls("text5").DataMember =
customerreport.DataMember
customerreport.Sections("section1").Controls("text5").DataField =
"dob"
customerreport.Sections("section1").Controls("text6").DataMember =
customerreport.DataMember
customerreport.Sections("section1").Controls("text6").DataField =
"contact"
customerreport.Sections("section1").Controls("text7").DataMember =
customerreport.DataMember
customerreport.Sections("section1").Controls("text7").DataField =
"emailid"
customerreport.Sections("section1").Controls("text8").DataMember =
customerreport.DataMember
customerreport.Sections("section1").Controls("text8").DataField =
"address"
customerreport.Sections("section1").Controls("text9").DataMember =
customerreport.DataMember
customerreport.Sections("section1").Controls("text9").DataField =
"maritalstatus"
customerreport.Sections("section1").Controls("text10").DataMember
= customerreport.DataMember
customerreport.Sections("section1").Controls("text10").DataField =
"gender"
End Sub
STOCK REPORT

Private Sub DataReport_Initialize()


stockreport.Sections("section1").Controls("text1").DataMember =
stockreport.DataMember
stockreport.Sections("section1").Controls("text1").DataField =
"stockid"
stockreport.Sections("section1").Controls("text2").DataMember =
stockreport.DataMember
stockreport.Sections("section1").Controls("text2").DataField =
"stockname"
stockreport.Sections("section1").Controls("text3").DataMember =
stockreport.DataMember
stockreport.Sections("section1").Controls("text3").DataField =
"quantity"
End Sub
SAMPLE REPORT

Private Sub DataReport_Initialize()


samplereport.Sections("section1").Controls("text1").DataMember =
samplereport.DataMember
samplereport.Sections("section1").Controls("text1").DataField =
"stockid"
samplereport.Sections("section1").Controls("text2").DataMember =
samplereport.DataMember
samplereport.Sections("section1").Controls("text2").DataField = "cid"
samplereport.Sections("section1").Controls("text3").DataMember =
samplereport.DataMember
samplereport.Sections("section1").Controls("text3").DataField =
"quantity"
samplereport.Sections("section1").Controls("text4").DataMember =
samplereport.DataMember
samplereport.Sections("section1").Controls("text4").DataField = "dat"
End Sub
BOOK ORDER REPORT

Private Sub DataReport_Initialize()


bookorderreport.Sections("section1").Controls("text1").DataMember =
bookorderreport.DataMember
bookorderreport.Sections("section1").Controls("text1").DataField =
"orderid"
bookorderreport.Sections("section1").Controls("text2").DataMember =
bookorderreport.DataMember
bookorderreport.Sections("section1").Controls("text2").DataField =
"customerid"
bookorderreport.Sections("section1").Controls("text3").DataMember =
bookorderreport.DataMember
bookorderreport.Sections("section1").Controls("text3").DataField =
"stockid"
bookorderreport.Sections("section1").Controls("text4").DataMember =
bookorderreport.DataMember
bookorderreport.Sections("section1").Controls("text4").DataField =
"quantity"
End Sub
REFERENCES

 An Introduction to Database System, Bipin C.Desai, Gelgotia


 Publication.
 Software Engineering, Rogers Pressman
 Black Dreamtech
 Oracle 8i of BPB Publication

You might also like