1

POST OFFICE MANAGEMENT SYSTEM

Presented by : Ningappa
Reg No : U04KE23S0085
Class : BCA 6th Semester

Under guidance of : Dr. R. Jyothi Tegnoor

 2

INTRODUCTION

ABSTRACT:

Visual Basic is an interesting topic, which has different types. It has all
The methods have their won features with each having merits and demerits which
Help in data processing. The topic includes their architecture representing the
Elements involved in it and their action is also specified.

Visual Basic 6.0 allows creating object-oriented applications. Visual Basic 6.0 profoundly concentrates on the Internet
development features, Active X technology, enhanced controls, enhanced features of existing control, client/server, new language
features development, data access, a few design enhancement etc.,
 3

SYSTEM ENVIRONMENT

Following are the technical resources required for developing the system.

HARDWARE REQUIREMENTS: -
 PC 586 Dx & above with 4.1 G.B hard disk.
 RAM capacity of minimum of 32 MB
 Floppy disk drive either 1.2 MB or 1.44 MB
 Floppy 1.2 MB or 1.44 MB
 Epson stylus COLOR 480

SOFTWARE REQUIREMENTS: -
 WINDOWS 95/98 ENVIRONMENT
 MS - ACCESS(BACK END)
 VISUAL BASIC 6.0(FRONT END)

OTHER REQUIREMENTS: -
 U.P.S
 Stationary
 Miscellaneous assets.
 4

SECURITY: -
Security measures present unauthorized to access the system. Any system to have a security measure should is provided with
login-id and password facility. Security is provided for both the database level and application level. Only the authorized persons can
avoid the data corruption to accessed database. The database can accessed only of correct login-id and password is provided.

SOFTWARE CONFIGARATION
GUI : VISUAL BASIC 6.0
OPERATING SYSTEM : WINDOWS 98
BACK END : MS – ACCESS

HARDWARE CONFIGARATION
 An IBM personal computer or a close preferably Pentium 233 MHz.
 An SVGA or better Display System.
 32 MB of variable memory.
 256 KB of external Cache Memory.
 A 3.5” 1.44 MB Floppy Disk Drive.
 A 4.3 GB Hard Disk.
 An Inkjet or Dot Matrix Printer.
 A Microsoft mouse or a compatible pointing device.
 5

About Visual Basic Language: -

Visual Basic was developed forms the BASIC programming language. In 1970’s Microsoft got its start by developing ROM
based interpreted Basic for the early microprocessor based computer. In 1982, Microsoft QuickBasic revolutionized Basic and
legitimized as a serious development language for MS-DOS environment. Later on, Microsoft Corporation created the enhanced
version of BASIC called Visual Basic for Windows.

Visual Basic 6.0: -

Visual Basic 6.0 allows creating Object Oriented Application. When Visual Basic originally developed, it allowed to the
programmer to create programs using pre-defined objects, forms and controls. It uses some of the Windows 95 Controls. Visual Basic
6.0 can be used to develop both standalone systems and Client Server Based systems.

Visual Basic 6.0 comes in three categories

 Standard Edition
 Professional Edition
 Enterprise Edition
 6

Features of Visual Basic 6.0: -

Visual Basic 6.0 profoundly concentrates on the Internet development features, ActiveX technology, enhanced controls,
enhanced features of existing control, client/server, new language features development, data access, a few design enhancement etc.,

Native Code: -
A Visual Basic project is compiled to native code for faster execution. Profiles native code using new native code compiler
option, and debug native code using the Visual C++ environment.

Create Active X Controls: -

Features of existing controls can be combined, or new control can be created form the scratch. ActiveX controls created with
Visual Basic have events, data binding
Support, licensing support, property pages, Internet features, and more.

Wizards: -
The application Wizard is new and the Setup Wizard has been enhanced to enable creating a dependency file for a standard
project. In the professional Edition, the Active X control Interface Wizard, Active X Document Migration Wizard, Data Form Wizard,
and property page Wizard is new. The Setup Wizard has been enhanced to support distribution via the Internet. The installation of
remote server components using Distributed COM (DCOM) and Remote Automation is an added feature. The ability to create
dependency files for projects and components created with Visual Basic.
 7

Extensibility Model: -
The new model allows to programmatically extending the development environment and control projects, events, code, and
Visual elements.

Declare, Raise, and Handle Events: -

Objects provided by the components can raise events that can be handled in other applications, or by our objects, using with
Events variables, Events provide a simple alternative to asynchronous callbacks.

Multithreaded DLLs: -
DLL components marked for unattended execution can be used efficiently by multithreading applications such as Internet
Browser.

Internet Transfer Control: -

This control provides HTTP and FTP support.

Multiple Project: -
Multiple projects can be opened in the same instance of Visual Basic, with is useful for debugging Active X controls.

Create Active X Document: ActiveX document s can be created that boosts the Visual Basic application to the Internet Browser
Windows. The data control, DAO or Microsoft Access, you can create that is virtually database independent, because jet automatically
performs all syntax and data manipulation translations.
 8

ODBC Direct: -
This feature allows us to access ODBC data sources throughout the RDO with DAO objects, by passing the Microsoft Jet
Database Engine. We can also use ODBC Direct through the data Control, by binding controls to data and setting and ODBC Direct
property.

Dock able and Linkable Windows, Toolbox, and Toolbars: -

Project, properties, Debugging, and Object Browser windows can be docked in the development environment and/or linked to
each other. Toolbars can be docked, undocked, or linked to each other.

Automation: -
A technology that enables application to provide objects in a consistent way to other application, development tools and macro
languages. Formerly known as OLE Automation.
 9

Class: -
Class is the formal definition of an object. The class acts as template which an instance of an object is created at run time. The
class defines the properties of the object and the methods used to control the object’s behavior. Class’s uses can typically be
categorized as one of three general types. They are
 Creation of Business Objects
Ex: Employee object
 Encapsulation of programming functions
Ex: Encapsulate the code that opens a record set in a class module
 Visual Basic Add-Ins
Ex: Program Wizard

Polymorphism: -

Polymorphism relates to the use of the same method name in various objects; for example, a print method for the printer, a
form, or a picture box. While the name of the method is the same, the actual code for the method in each object can be different.
However, because the code for the method is encapsulated in the object, each object knows how to perform the correct task when the
method is called, this feature allows classes to support multiple interfaces. Users of components can early bind to these interfaces,
regardless of the object that implements them.
 10

Encapsulation: -
The data about an object and the code used to manipulate the data are contained within the object itself. The data is stored as
the properties of the object and the code as the methods of the object. This feature allows the object data and code to stand alone,
independent of outside routines.

The Component Object Model (COM): -

The Component Object Model (COM) is a specification. It specifies how to build components that can be dynamically
interchanged. Com provides the standard that component and clients follow to ensure that can operate together.

COM is Microsoft’s top-level, all encompassing binary and wire specification for the interoperation of one app with another,
across multiple applications, machines, and hardware types. It provides the following features.

 Single programming model

 Binary compatibility
 Uniform data transfer
 Structured storage
 11

 Component software, reusable functionality

 Macro programmability
 Programming language independent
 Distributed operation

Advantages of Using COM: -

 Binary Compatibility and Cross-platform Development

 Code Reusability
 Version Control

Binary Compatibility and Cross-platform Development: -

The first major advantage of component technology binary compatibility and cross-platforms. Since becoming an Industry-
wide standard, COM-compliant client applications and servers are independent of the development language and operating system.
 12

Code Reusability: -
The second major advantage of component technology is an enhancement of DLL technology. COM components expose
groups of methods, known as interfaces, through which clients interact with objects. Because these interfaces are documented, many
clients for a variety of different purposes can reuse the code that creates those objects.

Version Control: -
The last major advantage resolves issues related to version control. COM components are said to be self-versioning. This
means that new functionality can be added to a component without affecting clients that already use the components. Functionality is
not lost when components are upgraded it is always enhanced or added.
 13

MS-ACCESS:
When we create a Microsoft Access database, we create one file that contains the data and table structures as well as the
queries, forms, reports and other objects that make up the database.

Protecting information can be an important part of developing a Microsoft Access database. By securing your database, you
can control what a user, is a group of users, can do with database objects. Microsoft Access security made up of several pieces that
must be in place before security is complete. Security relies on a relationship between Microsoft Access stores account information
with the work group and permissions assignment in the database (.mdb) file Microsoft Access Version 7 system database includes
several internal security enhancements.

Encrypting a database makes it indecipherable by a utility program or word processor. Encrypting a database compacts the
database file and makes it indecipherable by a utility program or word processor. Decrypting a database reverses it indecipherable in
order to protect it from unauthorized viewing or use.
 14

SYSTEM ANALYSIS

SYSTEM DECRIPTION:
The proposed system is for making easier to manage subscriber details, post details, money order details, bills. So this will be
developed for helping the post office administrative the above things. The overall system is control through the main menu.

The main money contains 6 parts.

1. Sales details.
2. Register post.
3. Speed post.
4. Money order.
5. Money savings.
6. Reports.
 15

SALES DETAILS:-
This form contains the various types of postcards, stamps which are to sold.
1. Postcards:- The various types of postcards are like envelop, competition postcard, printed cards, etc are their amount.
2. Stamps:- The different stamp cost of 1 to 50 are sold.
3. Register post:- the register form contains the postage where to be delivered it contains.
Sender address
Receiver address
Acknowledgement
Weigtage
Commission
4. Speed post:- As form of register posts the same will be in the speed post also. The extra amount will be taken for urgently.
5. money order:- money order form contains details of person to whom money is to be sending, and the sender address.
6. money savings:- the savings form we have the details on various types of savings like short term or long term savings.

EXISTING SYSTEM:
The present system of Postal service does not contain the courier transactions and maintain the details of all other transactions such as
maintaining money order details speed post transactions register post transaction saving and recurring bank transactions all these are
carried out manually. This postal system is made into atomization in order to render services more quickly and efficiently to the
people.
 16

SYSTEM DESIGN:
DATA FLOW DIAGRAMS:

Sales form1.0

Register post 2.0

USER Money order 3.0 USER

Money savings 4.0

Reports 5.0
 17

SALES FORM:
Stamp details 1.1 Stamps

USER

Postcard details 1.2 Postcards

 18

REGISTER POST:

Sender details 2.1 Sender

Receiver details 2.2 Receiver

USER

Wattages 2.3 weight age

Commission 2.4 Commission

 19

MONEY OREDR:

Sender details 3.1 sender

Receiver details 3.2 Receive

USER

Amount details 3.3 Amount

 20

MONEY SAVINGS:

Receiving details 4.1 Receiving

USER

Fixed deposit 4.2 Fixed deposit

 21

DATABASE DESIGN:
SPEED POST:

DATA NAME DATA TYPE SIZE

SNO DOUBLE 8
DATE DATE 8
NAME TEXT 20
AREA TEXT 20
CITY TEXT 20
COUNTRY TEXT 20
PINCODE DOUBLE INTEGER 8
DISTRICT DOUBLE 8
PREPAID CURRENCY 8
WEIGHT INTEGER 2
POSTAGE CURRENCY 8
FEE CURRENCY 8
ACKDUE CURRENCY 8
TOTAL AMT CURRENCY 8
NETAMT CURRENCY 8
COUNT INTEGR 2
 22

SALES:

DATA NAME DATA TYPE SIZE

SNO DOUBLE 8
DATE DATE 8
STAMPS TEXT 20
SREQNO INTEGER 2
POSTCARD TEXT 20
PRATE CURRENCY 8
PREQNO INTEGER 2
AMT CURRENCY 8
COUNT INTEGER 2
 23

MONEY SAVINGS:

DATA NAME DATA TYPE SIZE

SNO DOUBLE 8
ACCNO DOUBLE 8
NAME TEXT 20
AREA TEXT 20
CITY TEXT 20
COUNTRY TEXT 20
PINCODE DOUBLE 8
SCHTYPE TEXT 20
INTR RATE CURRENCY 8
DEPDATE DATE 8
DEPAMT CURRENCY 8
TOTAMT CURRENCY 8
COUNT INTEGER 2
 24

REGISTER POST:

DATA NAME DATA TYPE SIZE

SNO DOUBLE 8
SDATE DATE 8
NAME TEXT 20
AREA TEXT 20
CITY TEXT 20
COUNTRY TEXT 20
PINCODE DOUBLE 8
PREPAID CURRENCY 8
WEIGHT INTEGER 2
POSTAGE CURRENCY 8
REGFEE CURRENCY 8
ACKDUE CURRENCY 8
TOTAMT CURRENCY 8
NETAMT CURRENCY 8
COUNT INTEGER 2
 25

SYSTEM IMPLEMENTATION:

FORM DESCRIPTION:
The proposed system is for making easier to manage subscriber details, post details, money order details, bills. So this
will be developed for helping the post office administrative the above things. The overall system is control through the main
menu.

The main money contains 6 parts.

1. Sales details.
2. Register post.
3. Speed post.
4. Money order.
5. Money savings.
6. Reports.
 26

SALES DETAILS:-
This form contains the various types of postcards, stamps which are to sold.

Postcards:- The various types of postcards are like envelop, competition postcard, printed cards, etc are their amount.
Stamps:- The different stamp cost of 1 to 50 are sold.
Register post:- the register form contains the postage where to be delivered it contains.
Sender address
Receiver address
Acknowledgement
Weigtage
Commission
Speed post:- As form of register posts the same will be in the speed post also. The extra amount will be taken for urgently.
Money order:- money order form contains details of person to whom money is to be sending, and the sender address.
Money savings:- the savings form we have the details on various types of savings like short term or long term.
 27

SCREENS:

REGISTER POST:
 28

SPEED POST:
 29

MONEY ORDER :
 30

SALES:
 31

MONEY SAVINGS:
 32

SOURCE CODE

************************ MONEY ORDER ******************

Option Explicit
Dim db As Database
Dim rs, rs1 As Recordset
Dim a, k As Integer

Private Sub Combo1_Click()

[Link]
While Not [Link]
If [Link] = rs(0) Then
Call data
End If
[Link]
Wend
End Sub

Private Sub Command5_Click()

Call save
 33

[Link]
[Link] rs(0)
MsgBox "record saved"
Call clear
End Sub

Private Sub Command4_Click()

[Link]
a = rs(0)
Call clear
[Link] = a + 1
[Link] = Date
[Link]
[Link] = True
End Sub

Private Sub Command3_Click()

[Link]
End Sub
 34

Private Sub Command6_Click()

[Link]
Load Form6
End Sub

Private Sub Command7_Click()

Call clear
End Sub

Private Sub Form_Load()

Set db = OpenDatabase("C:\MY DOCUMENTS\SESHU\[Link]")
Set rs = [Link]("moneyorder")
[Link]
While Not [Link]
[Link] rs(0)
[Link]
Wend
End Sub
 35

Private Sub Text7_lostfocus()

Dim l, i, J As Integer
If (([Link] = "india" Or [Link] = "INDIA") And [Link] <= 5000) Then
l=5
J=1
For i = 1 To Val([Link])
[Link] = l
J=J+1
i = J * 100
l=l+5
Next
[Link] = Val([Link]) + Val([Link])
ElseIf (([Link] = "india" Or [Link] = "INDIA") And [Link] > 5000) Then
MsgBox "AMOUNT SHOULD BE <5000"
[Link] = ""
[Link]
ElseIf (([Link] <> "india" Or [Link] <> "INDIA") And [Link] <= 50000) Then
l = 15
J=1
For i = 1 To Val([Link])
[Link] = l
 36

J=J+1
i = J * 100
l = l + 15
Next
[Link] = Val([Link]) + Val([Link])
ElseIf (([Link] <> "india" Or [Link] <> "INDIA") And [Link] > 50000) Then
MsgBox "AMOUNT SHOULD BE <50000"
[Link] = ""
[Link]
End If
[Link]
If [Link] = rs(1) Then
k = rs(10)
[Link] = k + 1
Else
[Link] = 1
End If
End Sub
 37

Public Sub clear()

[Link] = ""
[Link] = ""
[Link] = ""
[Link] = ""
[Link] = ""
[Link] = ""
[Link] = ""
[Link] = ""
[Link] = ""
[Link] = ""
[Link] = ""
End Sub

Public Sub save()

[Link]
rs(0) = [Link]
rs(1) = [Link]
rs(2) = [Link]
rs(3) = [Link]
rs(4) = [Link]
 38

rs(5) = [Link]
rs(6) = [Link]
rs(7) = [Link]
rs(8) = [Link]
rs(9) = [Link]
rs(10) = [Link]
[Link]
End Sub
 39

Public Sub data()

[Link] = rs(0)
[Link] = rs(1)
[Link] = rs(2)
[Link] = rs(3)
[Link] = rs(4)
[Link] = rs(5)
[Link] = rs(6)
[Link] = rs(7)
[Link] = rs(8)
[Link] = rs(9)
[Link] = rs(10)
End Sub
 40

**********************REGISTER POST *******************

Option Explicit
Dim db As Database
Dim rs As Recordset
Dim a As Integer

Private Sub Combo1_Click()

[Link]
While Not [Link]
If [Link] = rs(0) Then
[Link] = rs(1)
[Link] = rs(2)
[Link] = rs(3)
[Link] = rs(4)
[Link] = rs(5)
[Link] = rs(6)
[Link] = rs(7)
[Link] = rs(8)
[Link] = rs(9)
[Link] = rs(10)
 41

[Link] = rs(11)
[Link] = rs(12)
[Link] = rs(13)
[Link] = rs(14)
End If
[Link]
Wend
End Sub

Private Sub Command2_Click()

[Link]
rs(0) = [Link]
rs(1) = [Link]
rs(2) = [Link]
rs(3) = [Link]
rs(4) = [Link]
rs(5) = [Link]
rs(6) = [Link]
rs(7) = [Link]
rs(8) = [Link]
 42

rs(9) = [Link]
rs(10) = [Link]
rs(11) = [Link]
rs(12) = [Link]
rs(13) = [Link]
rs(14) = [Link]
[Link]
[Link]
[Link] rs(0)
MsgBox "record saved"
End Sub

Private Sub Command1_Click()

If Not [Link] Then
[Link]
a = rs(0)
[Link] = a + 1
[Link] = ""
[Link] = ""
[Link] = ""
[Link] = ""
 43

[Link] = ""
[Link] = ""
[Link] = ""
[Link] = ""
[Link] = ""
[Link] = ""
[Link] = ""
[Link] = ""
[Link] = ""
Else
[Link] = 101
End If
[Link] = Date
[Link]
[Link] = True
End Sub

Private Sub Command3_Click()

Unload Me
[Link]
End Sub
 44

Private Sub Form_Load()

Set db = OpenDatabase("C:\MY DOCUMENTS\SESHU\[Link]")
Set rs = [Link]("registerpost")
If [Link] Then
MsgBox "no record exists"
Else
[Link]
While Not [Link]
[Link] rs(0)
[Link]
Wend
End If
[Link] = False
[Link] = False
'[Link] = False
End Sub

Private Sub Text8_lostfocus()

Dim k, l As Integer
If [Link] = "india" Then
a=4
 45

Else: a = 15
End If
If Val([Link]) <= 20 Then
[Link] = a
ElseIf Val([Link]) <= 40 Then
[Link] = 2 * a
ElseIf Val([Link]) <= 60 Then
[Link] = 3 * a
ElseIf Val([Link]) <= 80 Then
[Link] = 4 * a
ElseIf Val([Link]) <= 100 Then
[Link] = 5 * a
Else: MsgBox "weight exceeded "
End If
[Link] = 17
[Link] = 3
[Link] = Val([Link]) + Val([Link]) + Val([Link])
[Link] = Val([Link]) - Val([Link])
[Link]
If [Link] = rs(1) Then
k = rs(10)
 46

[Link] = k + 1
Else
[Link] = 1
End If
[Link]
If [Link] = rs(1) Then
l = rs(14)
[Link] = l + 1
Else
[Link] = 1
End If
End Sub
 47

********************* SPEED POST *********************

Option Explicit
Dim db As Database
Dim rs As Recordset
Dim a As Integer
Private Sub Combo1_Click()
[Link]
While Not [Link]
If [Link] = rs(0) Then
[Link] = rs(1)
[Link] = rs(2)
[Link] = rs(3)
[Link] = rs(4)
[Link] = rs(5)
[Link] = rs(6)
[Link] = rs(7)
[Link] = rs(8)
[Link] = rs(9)
[Link] = rs(10)
[Link] = rs(11)
[Link] = rs(12)
 48

[Link] = rs(13)
[Link] = rs(14)
[Link] = rs(15)
End If
[Link]
Wend
End Sub
Private Sub Command2_Click()
[Link]
rs(0) = [Link]
rs(1) = [Link]
rs(2) = [Link]
rs(3) = [Link]
rs(4) = [Link]
rs(5) = [Link]
rs(6) = [Link]
rs(7) = [Link]
rs(8) = [Link]
rs(9) = [Link]
rs(10) = [Link]
rs(11) = [Link]
 49

rs(12) = [Link]
rs(13) = [Link]
rs(14) = [Link]
rs(15) = [Link]
[Link]
[Link]
[Link] rs(0)
MsgBox "record saved"
[Link] = False
End Sub
Private Sub Command1_Click()
If Not [Link] Then
[Link]
a = rs(0)
[Link] = a + 1
[Link] = Date
[Link] = ""
[Link] = ""
[Link] = ""
[Link] = ""
[Link] = ""
 50

[Link] = ""
[Link] = ""
[Link] = ""
[Link] = ""
[Link] = ""
[Link] = ""
[Link] = ""
[Link] = ""
[Link] = ""
Else
[Link] = 101
[Link]
End If
[Link] = True
End Sub
Private Sub Command3_Click()
Unload Me
[Link]
End Sub
Private Sub Form_Load()
Set db = OpenDatabase("C:\MY DOCUMENTS\SESHU\[Link]")
 51

Set rs = [Link]("speedpost")
If [Link] Then
MsgBox "no record exists"
Else
[Link]
While Not [Link]
[Link] rs(0)
[Link]
Wend
End If
[Link] = False
[Link] = False
'[Link] = False
End Sub
Private Sub Text9_lostfocus()
Dim k As Integer
If [Link] = "india" Then
If [Link] <= 50 And [Link] <= 50 Then
[Link] = 15
ElseIf [Link] <= 200 And [Link] <= 50 Then
[Link] = 20
 52

ElseIf [Link] <= 500 And [Link] <= 50 Then

[Link] = 30
ElseIf [Link] > 500 And [Link] <= 50 Then
[Link] = 45
ElseIf [Link] <= 50 And [Link] <= 200 Then
[Link] = 20
ElseIf [Link] <= 200 And [Link] <= 200 Then
[Link] = 30
ElseIf [Link] <= 500 And [Link] <= 200 Then
[Link] = 35
ElseIf [Link] > 500 And [Link] <= 200 Then
[Link] = 50
ElseIf [Link] <= 50 And [Link] <= 500 Then
[Link] = 25
ElseIf [Link] <= 200 And [Link] <= 500 Then
[Link] = 40
ElseIf [Link] <= 500 And [Link] <= 500 Then
[Link] = 45
ElseIf [Link] > 500 And [Link] <= 500 Then
[Link] = 55
End If
 53

Else
If [Link] <= 50 Then
[Link] = 50
ElseIf [Link] <= 200 Then
[Link] = 60
ElseIf [Link] <= 500 Then
[Link] = 80
ElseIf [Link] <= 1000 Then
[Link] = 100
ElseIf [Link] > 1000 Then
MsgBox " not possible "
End If
End If
[Link] = 25
[Link] = 5
[Link] = Val([Link]) + Val([Link]) + Val([Link])
[Link] = Val([Link]) - Val([Link])
[Link]
If [Link] = rs(1) Then
k = rs(15)
[Link] = k + 1
 54

Else
[Link] = 1
End If
End Sub

************************ MONEY SAVINGS ************************

Option Explicit
Dim db As Database
Dim rs As Recordset
Dim a As Integer

Private Sub Combo1_Click()

[Link]
While Not [Link]
If [Link] = rs(0) Then
Call data
End If
[Link]
Wend
End Sub
 55

Private Sub Combo2_LostFocus()

[Link] = 9.8
[Link] = Date
End Sub

Private Sub Command1_Click()

Unload Me
[Link]

End Sub

Private Sub Command2_Click()

If Not [Link] Then
[Link]
a = rs(0)
Call clear
[Link] = a + 1
Else
[Link] = 101
End If
 56

[Link] = Date
[Link]
[Link] = True
End Sub

Private Sub Command3_Click()

Call save
[Link]
[Link] rs(0)
MsgBox "record saved"
Call clear
[Link] = False
End Sub

Private Sub Command4_Click()

Call clear
End Sub

Private Sub Form_Load()

Set db = OpenDatabase("C:\MY DOCUMENTS\SESHU\[Link]")
Set rs = [Link]("moneysavings")
 57

If [Link] And [Link] Then

MsgBox "no record exists"
Else
[Link]
While Not [Link]
[Link] rs(0)
[Link]
Wend
End If
[Link] = False
End Sub

Public Sub clear()

[Link] = ""
[Link] = ""
[Link] = ""
[Link] = ""
[Link] = ""
[Link] = ""
[Link] = ""
[Link] = ""
 58

[Link] = ""
[Link] = ""
[Link] = ""
[Link] = ""
[Link] = ""
[Link] = ""
[Link] = ""
[Link] = ""
[Link] = ""
End Sub

Public Sub save()

[Link]
rs(0) = [Link]
rs(1) = [Link]
rs(2) = [Link]
rs(3) = [Link]
rs(4) = [Link]
rs(5) = [Link]
rs(6) = [Link]
rs(7) = [Link]
 59

rs(8) = [Link]
rs(9) = [Link]
rs(10) = [Link]
rs(11) = [Link]
rs(12) = [Link]
rs(13) = [Link]
rs(14) = [Link]
rs(15) = [Link]
rs(16) = [Link]
[Link]
End Sub

Public Sub data()

[Link] = rs(0)
[Link] = rs(1)
[Link] = rs(2)
[Link] = rs(3)
[Link] = rs(4)
[Link] = rs(5)
[Link] = rs(6)
[Link] = rs(7)
 60

[Link] = rs(8)
[Link] = rs(9)
[Link] = rs(10)
[Link] = rs(11)
[Link] = rs(12)
[Link] = rs(13)
[Link] = rs(14)
[Link] = rs(15)
[Link] = rs(16)
End Sub

Private Sub Text10_lostfocus()

Dim i, k As Integer
Dim amt, inte As Double
If [Link] > 5000 Then
If [Link] = "1YEAR" Then
[Link] = Round(Val([Link]) / 12)
a = 12
[Link] = DateAdd("m", 12, Date)
ElseIf [Link] = "2YEARS" Then
[Link] = Round(Val([Link]) / 24)
 61

a = 24
[Link] = DateAdd("m", 24, Date)
ElseIf [Link] = "3YEARS" Then
[Link] = Round(Val([Link]) / 36)
a = 36
[Link] = DateAdd("m", 36, Date)
ElseIf [Link] = "5YEARS" Then
[Link] = Round(Val([Link]) / 60)
a = 60
[Link] = DateAdd("m", 60, Date)
End If
Else
MsgBox " minimum deposited amount should be 5000Rs."
[Link] = ""
[Link] = ""
End If
inte = 0

amt = Val([Link])
 62

For i = 1 To a
inte = Round((amt + inte) * (1.01))
'MsgBox inte
'MsgBox i
Next

[Link] = inte - Val([Link])

[Link] = inte

[Link]
If [Link] = rs(10) Then
k = rs(16)
[Link] = k + 1
Else
[Link] = 1
End If
End Sub
 63

***************************** SALES *************************

Option Explicit
Dim db As Database
Dim rs As Recordset
Dim a As Integer

Private Sub Combo1_Click()

[Link]
While Not [Link]
If [Link] = rs(0) Then
[Link] = rs(1)
[Link] = rs(2)
[Link] = rs(3)
[Link] = rs(4)
[Link] = rs(5)
[Link] = rs(6)
[Link] = rs(7)
[Link] = rs(8)
End If
[Link]
 64

Wend
[Link] = False
End Sub

Private Sub Combo3_lostfocus()

If [Link] = "single" Then
[Link] = 0.5
ElseIf [Link] = "reply" Then
[Link] = 1
ElseIf [Link] = "print" Then
[Link] = 3
ElseIf [Link] = "competition" Then
[Link] = 5
ElseIf [Link] = "envolop" Then
[Link] = 3
ElseIf [Link] = "englandcover" Then
[Link] = 2
End If
[Link]
End Sub
 65

Private Sub Command2_Click()

[Link]
a = rs(0)
[Link] = a + 1
[Link] = Date
[Link] = ""
[Link] = ""
[Link] = ""
[Link] = ""
[Link] = ""
[Link] = ""
[Link] = ""
[Link]
[Link] = True
End Sub
 66

Private Sub Command3_Click()

[Link]
rs(0) = [Link]
rs(1) = [Link]
rs(2) = [Link]
rs(3) = [Link]
rs(4) = [Link]
rs(5) = [Link]
rs(6) = [Link]
rs(7) = [Link]
rs(8) = [Link]
[Link]
MsgBox "record saved"
[Link]
[Link] rs(0)
[Link] = False
End Sub

Private Sub Command6_Click()

Unload Me
[Link]
 67

End Sub

Private Sub Form_Load()

Set db = OpenDatabase("C:\MY DOCUMENTS\SESHU\[Link]")
Set rs = [Link]("sales")
[Link] = False
[Link] = False
[Link] = False
[Link] = False
[Link]
While Not [Link]
[Link] (rs(0))
[Link]
Wend
[Link] = False
End Sub

Private Sub Text4_LostFocus()

Dim k As Integer
[Link] = Val([Link]) * Val([Link]) + Val([Link]) * Val([Link])
[Link]
 68

If [Link] = rs(1) Then

k = rs(8)
[Link] = k + 1
Else
[Link] = 1
End If
End Sub
 69

********************* MAIN FORM **********************************

Private Sub E_Click()
End
End Sub
Private Sub mo_Click()
Load Form1
[Link]
End Sub
Private Sub ms_Click()
Load Form4
[Link]
End Sub
Private Sub R_Click()
Load Form7
[Link]
End Sub
Private Sub rp_Click()
Load Form2
[Link]
End Sub
Private Sub s_Click()
 70

Load Form5
[Link]
End Sub
Private Sub sp_Click()
Load Form3
[Link]
End Sub
 71

REPORTS:
72
73
74
75
76
 77

CONCLUSION

A computerized postal department system has been developed and the system was tested with sample data.

The system results in regular timely preparations of required outputs. In comparison with manual system the benefits
under a computer system are considerable in the saving of man power working hours and Eiffel.

Provision for addition and deletion of customers is there in the system it is possible to view that proper filling system has
been adopted to slate date for future. The entire project runs on windows environments.

The system can be used to make better management described at appropriate time. The user gets amount and timely
information system.
 78

SCOPE OF ENHANCEMENT

The system may be further updated or modified at will owing to its simple structure. If the organization willing the add a new
module that would allow the vendor to the post office system. More over the developed system does not provide any kind of facility
for making of the information.
 79

BIBLIOGRAPHY

a) MS – ACCESS ------- IVAN BAY ROSS

b) VISUAL BASE VOLUME 1&11 ------ S.S.I PRESS

c) DATA BASE MANAGEMENT SYSTEMS ----- KORTH

d) SYSTEM ANALYSIS AND DESIGN ------ JAMES [Link]