Vehicle Insurance Management System Report

INSURANCE MANAGEMENT SYSTEM
ACKNOWLEDGEMENT
Before getting into the thick of the things, we would like to express
our deep gratitude to the people who helped us during the course of this
vehicle insurance management system project report project. We are
grateful to our project guide for her guidance throughout this vehicle
insurance management system project report project research and work
We also wish to thank all the faculty members of Information

Technology and our respectable Head of Department for their constant
help and efficient teaching procedures,
Names of students:
Page 1
ABSTRACT
The Insurance management system is a vehicle insurance system complete

solution for organizations, which need to manage insurance for their
vehicles, equipment, buildings, and other resources. Organizes and tracks
insurance vendors and the policies provided under different coverage.
We are offering a vehicle insurance system robust web based insurance
solution, which has the flexibility of customizations to match the specific
needs of clients for achieving their business goal of good service and
revenue generation.
Insurance policy administration system consists of a vehicle insurance
system mathematical notation that vehicle insurance management system
captures the relationship between policies and objects and the entities that
vehicle insurance management system manage policies for those objects.
Hence there is need for an automated system, which can efficiently manage
the company, records, provides instant access and one that vehicle insurance
management system improves the productivity. As a vehicle insurance
system result of this vehicle insurance management system project report
automated system, the activities of the company are performed with in the
stipulated time and the reliable and efficient service is ensured to its users.
The insurance company needs to keep track of details of its target companies,
agents, policyholders, their premium payments and the various products that
vehicle insurance management system are available with it. Hence it is under
tremendous pressure maintaining their day-to-day activities, which is
currently being done manually.
Entire records have to be updated timely, even a vehicle insurance system
slight mistake could complicate things. It
Page 2
is very difficult to handle bulk data since human memory is weaker than
electronic counter part. It is time consuming to summarize these details to
produce the reports.
INDEX
 Acknowledgement--------------------------------------------1
 Abstract---------------------------------------------------------2
 Introduction----------------------------------------------------4
 Overview--------------------------------------------------------5
 ER Diagram-----------------------------------------------------7
 Converting ER Diagram into Tables-----------------------8
 Table Structures-----------------------------------------------9
 Normalisation--------------------------------------------------13
 Code--------------------------------------------------------------14
 Snapshots-------------------------------------------------------43
 Conclusion------------------------------------------------------49
 Scope of Enhancement---------------------------------------49
Page 3
INTRODUCTION
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 vehicle insurance system few design enhancement
etc.,
Relational databases are logical collection of inter-related data in tabular form

relational databases have always been core to any management system. Its relevance is
profound and hence the need to incorporate new functionalities, utilities becomes
important. These are currently the predominant choice in storing financial records
manufacturing and logistical information, personnel data and much more.
Relational databases are used in huge management systems like Post Office,
Banking, Railway, Defence Logistics. Databases pertaining to Educational Institutions
and other large collection of related data.
Relational databases have largely replaced hierarchical databases and network
databases because they are easy to understand and use even though they are much less
efficient. They have been however challenged by Object Databases and XML databases.
The three leading commercial relational database vendors are Oracle, Microsoft,
and IBM.The three leading open Source implementations are MySQL,PostgreSQL, and
SQLite.
The software components used in our project are as under:
1. Microsoft Visual Basic 6.0

2. Oracle 9i database
3. VMware Workstation
SYSTEM REQUIREMENTS:-
1. Windows Platform (XP preferred).
2. 512 MB DDR2 RAM.
Page 4
3. At least 5 GB HDD space FREE.

4. Processor speed 1.7 Ghz or higher.
Page 5
OVERVIEW OF THE PROJECT
SYSTEM DESCRIPTION:
The proposed system is for making easier to manage policy holder details, agent
details, policy details, claimant details and payment details. So this vehicle insurance
management system project report will be developed for managing the insurance
management system. The overall system is control through the main menu.
The main menu contains 6 parts.
1. Policy Schemes.
2. Agent Login.
3. Customer Login.
4. Administrator Login.
5. About us.
6. Contact us.
POLICY SCHEMES:-
Various policy schemes are:-
1. LIFE INSURANCE:-
a) Whole life policy
b) Term life policy
c) Endownment policy
d) Pension plans
2. GENERAL INSURANCE:-
a) Home insurance
b) Auto insurance
c) Fire insurance
AGENT LOGIN
The agent login form links to-
1. Basic agent information like contact details and address which will be shown in
customer insurance information window.
2. All the information related to insurances which he has made to his clients.
Page 6
3. Commission received by him for each insurance made by him respectively.

4. Option to create a vehicle insurance system new policy to any existing/new client.
5. Option to edit the contact information of its client.
6. Option to delete a vehicle insurance system policy of any client in case of policy lapse.
CUSTOMER LOGIN:-
The form contains the agent information like-
1. Personal information required by insurance agency.
2. Next premium due of respective insurances by the client along with maturity
date,agent info etc.
ADMINISTRATOR LOGIN:-
Administrator has rights to-
1. Create new agent
2. Edit agent’s information and its commission percentage.
3. Delete an agent’s database and all its policies respectively.
ABOUT US:-
It contains information about the organization’s history and its achievements.
CONTACT US:-
It contains the contact details of the organization’s various branches located in different parts
of a vehicle insurance system country.
REPORTS:
 Sales report
 Claimant information report
 Agent information report
 Client information report
Page 7
ER DIAGRAM
Page 8
CONVERTING ER DIAGRAM INTO TABLES

1. Converting strong entity types
 Each entity type becomes a vehicle insurance system table
 Each single valued attribute becomes a vehicle insurance system column
 Derived attributes are ignored
 Composite attributes are represented by components
 Multi-valued attributes are represented by a vehicle insurance system
separate table
 Key attributes of the entity type is the Primary Key
2. Converting relationships
 Relationships are based on cardinalities and degree of the relation
 m:n
POLICY HOLDER m INSURE n POLICY

D
BY
 Binary 1:1
POLICY HOLDER 1 CHOOSE 1 CLAIMANT

S
3. Relations converted
 Policy holder and policy have m:n cardinality which results in

conversion of the relation ‘insured by’ into a vehicle insurance system
table named as ‘insurance’. The insurance table has ph_key and
Page 9
pol_key from policy holder table and policy table respectively ,as its
composite primary key.
 Also policy and agent table have m:n cardinality resulting in

conversion of relation ‘sales’, into a vehicle insurance system table
named as ‘sales’. The table sales has ph_key and pol_key from policy
holder table and policy table respectively ,as its composite primary
key and agent key from agent table as a vehicle insurance system
foreign key.
TABLE STRUCTURES
The structure of all tables included in the project is as under:-
1. PH
Name Null? Type

----------------------------------------- -------- ----------------------------
* PH_KEY NOT NULL NUMBER(5)
NAME CHAR(15)
ADDRESS CHAR(15)
PHONE NUMBER(10)
PWD VARCHAR2(10)
DOB DATE
AGE NUMBER(2)
MS VARCHAR2(10)
SEX VARCHAR2(6)
SAL NUMBER(10)
2. AGENT
Name Null? Type

----------------------------------------- -------- ----------------------------
NAME CHAR(20)
Page
10
ADDRESS CHAR(32)
PHONE NUMBER(10)
* ID NOT NULL NUMBER(5)
PWD VARCHAR2(10)
3. INSURANCE
Name Null? Type

----------------------------------------- -------- -----------------
PREMIUM NUMBER (10)
AMOUNT NUMBER (10)
POLICY_DURATION NUMBER (4)
$ P_HOLDER NOT NULL NUMBER (5)
$ POLICY_KEY NOT NULL NUMBER (5)
IODATE DATE
4. SALES
Name Null? Type

----------------------------------------- -------- -----------------
$ AGENT_KEY NUMBER (5)
COMMISSION NUMBER (10)
$ P_HOLDER NOT NULL NUMBER (5)
$ POLICY_KEY NOT NULL NUMBER (3)
5. POLICY
Name Null? Type

----------------------------------------- -------- -----------------
* POL_KEY NOT NULL NUMBER(3)
TYPE CHAR(32)
TIME_PER NUMBER(4)
Page
11
6.CLAIMANT
Name Null? Type

----------------------------------------- -------- -----------------
NAME NOT NULL VARCHAR2(50)
ADDRESS NOT NULL VARCHAR2(50)
$ P_HOLDER NOT NULL NUMBER(5)
$ POLICY_KEY NOT NULL NUMBER(3)
SEX CHAR(6)
DOB DATE
MS CHAR(10)
AGE NUMBER(3)
PHONE NUMBER(10)
VIEW STRUCTURES
1.POL
Name Null? Type
----------------------------------------- -------- -----------------
P_HOLDER NOT NULL NUMBER(5)
TYPE CHAR(32)
POL_KEY NOT NULL NUMBER(3)
2.INS
Name Null? Type
----------------------------------------- -------- -----------------
NAME NOT NULL VARCHAR2(50)
PREMIUM NUMBER(10)
AMOUNT NUMBER(10)
Page
12
POLICY_DURATION NUMBER(4)
P_HOLDER NOT NULL NUMBER(5)
IODATE DATE
POLICY_KEY NOT NULL NUMBER(3)
3.CLIENT
Name Null? Type
----------------------------------------- -------- -----------------
AGENT_KEY NUMBER(5)
PH_KEY NOT NULL NUMBER(5)
NAME CHAR(15)
ADDRESS CHAR(15)
PHONE NUMBER(10)
PREMIUM NUMBER(10)
AMOUNT NUMBER(10)
POLICY_DURATION NUMBER(4)
TYPE CHAR(32)
IODATE DATE
NORMALISATION
Own table normalization
Normalisation is a vehicle insurance system method for organizing data elements in a

vehicle insurance system database into tables.
It keeps track to keep the database less vulnerable to some types of logical
inconsistencies and anomalies.Tablescan be normalized to varying degrees like
first,second,BCNF.Greater the degree of normalization more is the protected from
inconsistencies and anomalies.
The tables may be normalized under the following guideline:
1. 1NF
DEFINITION:
Page
13
A VEHICLE INSURANCE SYSTEM relation schema is in 1NF if all of its attributes

are:
 Single valued
 Restricted to assuming atomic values
 Functionally dependent on the primary key
Domain is atomic if its elements are considered to be indivisible units .
Examples of non-atomic domains
Set of names, composite attributes

 Identification numbers like ph_key that vehicle insurance management
system can be broken up into parts
 A VEHICLE INSURANCE SYSTEM relational schema R is in first normal
form if the domains of all attributes of R are atomic.
 All domains in our database are atomic since they are indivisible.
 No Duplication of data ,Insert Anomaly ,Delete Anomaly ,Update
Anomaly found, therefore our database clears the first normal form test.
2. 2NF
DEFINITION:
A VEHICLE INSURANCE SYSTEM relational table is said to be in second normal
form 2NF if it is in 1NF and every non-key attribute is fully functionally
dependent upon primary key.
The criteria for second normal form(2NF) are:
 The table must be in !NF.
 Every non-key attributes of the table must be dependent upon the entire
primary key.
 Tables agent ,policy holder ,claimant ,insurance ,sales are also in 2NF.
 our database satisfies all the conditions of 2NF since The tables are in
1NF and Every non-key attributes of the table must be dependent upon
the entire primary key.
3. 3NF
 A VEHICLE INSURANCE SYSTEM relation is in 3NF if and only if,it is in
2NF and there are no transitive functional dependencies.
 Transitive functional dependencies arise.
Page
14
 When one non-key attribute is functionally dependent on another non-

key attribute.
 Functional Dependency: non-key attribute>non-key attribute.
 When there is redundancy in the database.
 The tables insurance ,claimant ,policy holder and sales have been
converted into 3NF.
By definition transitive functional dependency can only occur if there is more

than one non-key field,so we can say that vehicle insurance management system
a vehicle insurance system relation in 2NF with zero or one non-key field must
automatically be in 3NF.
CODES
ADDPOL FORM
Private Sub Command1_Click()
r2.Open "select * from ph", cn, 2, 3
r3.Open "select * from sales", cn, 2, 3
rs.Open "select * from insurance", cn, 2, 3
r4.Open "select * from claimant", cn, 2, 3
strsql = "insert into ph values(" & Text4(0).Text & ",'" & Text4(1).Text & "','" & Text4(2).Text & "'," &
Text4(3).Text & ",'" & Text5.Text & "'," & Text6.Text & ",'" & Text4(5).Text & "'," & Text4(6).Text & ",'" &
Text4(7).Text & "','" & Text4(4).Text & "')"
strsql1 = "insert into sales values(" & agpg.Label5.Caption & "," & 0.05 * Text2.Text & "," & Text4(0).Text &
"," & Label16.Caption & ")"
strsql2 = "insert into insurance values(" & Text2.Text / Text3.Text & "," & Text2.Text & "," & Text3.Text & ","
& Text4(0).Text & "," & Label16.Caption & ",' " & Text1.Text & "')"
strsql3 = "insert into claimant values('" & Text7.Text & "','" & Text9.Text & "'," & Text4(0).Text & "," &
Label16.Caption & ",'" & Text10.Text & "','" & Text12.Text & "','" & Text11.Text & "'," & Text13.Text & ","
& Text8.Text & ")"
cn.Execute strsql
cn.Execute strsql1
cn.Execute strsql2
cn.Execute strsql3
MsgBox "added"
End Sub
Page
15
agpg.Show
agpg.Label13.Visible = True
Unload Me
End Sub
Private Sub Form_Load()
On Error Resume Next
cmd1 = "Provider=MSDAORA.1;User ID=scott;password=tiger;Persist Security Info=False"
Set cn = New ADODB.Connection
Set rs = New ADODB.Recordset
Set r4 = New ADODB.Recordset
With cn
.ConnectionString = cmd1
.CursorLocation = adUseClient
.Open
End With
r1.Open "select * from policy", cn, 2, 3
Do While Not r1.EOF
Combo1.AddItem (r1.Fields(1))
r1.MoveNext
Loop
End Sub
Private Sub Label16_Click()
r1.MoveFirst
Do While Not r1.EOF
Page
16
If Combo1.Text = r1.Fields(1) Then
Label16.Caption = r1.Fields(0)
Exit Do
End If
r1.MoveNext
Loop
End Sub
ADMN FORM
Dim flag As Integer
r1.MoveFirst
r2.MoveFirst
r3.MoveFirst
rs.MoveFirst
'Do While Not r1.EOF
'If r1.Fields(3) = Combo2.Text Then
If MsgBox("Are you sure you to delete this vehicle insurance management system project report agent?",
vbYesNo) = vbYes Then
Do While Not r2.EOF
If r2.Fields(0) = Combo2.Text Then
r3.MoveFirst
Do While Not r3.EOF
If r2.Fields(2) = r3.Fields(3) And r2.Fields(3) = r3.Fields(4) Then
r3.Delete
End If
r3.MoveNext
Loop
Do While Not rs.EOF
If r2.Fields(2) = rs.Fields(2) And r2.Fields(3) = rs.Fields(3) Then
rs.Delete
End If
rs.MoveNext
Loop
Page
17
End If
r2.MoveNext
Loop
End If
r2.MoveFirst
Do While Not r2.EOF
r2.Delete
End If
r2.MoveNext
Loop
r1.MoveFirst
Do While Not r1.EOF
r1.Delete
Exit Do
End If
r1.MoveNext
Loop
MsgBox "deleted"
End Sub
Frame2(1).Visible = True
Frame2(0).Visible = False
End Sub
aginfo.Show
End Sub
Page
18
Private Sub Command4_Click(Index As Integer)
strsql = "insert into agent values('" & Text1(0).Text & "','" & Text2(0).Text & "'," & Text3(0).Text & "," &
Text4(0).Text & ",'" & Text5(0).Text & "')"
cn.Execute strsql
MsgBox "Agent successfully added"
End Sub
Frame2(0).Visible = True
End Sub
Dim strsql1 As String
strsql1 = "update agent set name= '" & Text1(1) & "',address='" & Text2(1) & "',phone=" & Text3(1) & "where
id=" & Combo1.Text
cn.Execute strsql1
MsgBox "Entry successfully editted"
End Sub
r1.MoveFirst
Do While Not r1.EOF
Text3(1) = r1.Fields(2)
Exit Do
End If
r1.MoveNext
Page
19
Loop
End Sub
main1.Show
Unload Me
End Sub
Set rk = New ADODB.Recordset
With cn
.Open
End With
r1.Open "select * from agent", cn, 2, 3
r3.Open "select * from insurance", cn, 2, 3
rs.Open "select * from claimant", cn, 2, 3
rk.Open "select * from ph", cn, 2, 3
r1.MoveFirst
Do While Not r1.EOF
Page
20
r1.MoveNext
Loop
End Sub
Agninfo form
strsql = "select name,premium,type,policy_duration,commission,amount from adm where agent_key=" &

Combo1.Text
r2.Open strsql, cn, 2, 3
Set dg.DataSource = r2
dg.Refresh
End Sub
admn.Show
Unload Me
End Sub
With cn
.Open
End With
rs.Open "select * from agent", cn, 2, 3
Page
21
Do While Not rs.EOF
Combo1.AddItem (rs.Fields(3))
rs.MoveNext
Loop
End Sub
Agpg Form
addpol.Show
End Sub
Dim flag As Integer
r2.MoveFirst
Do While Not r2.EOF
If r2.Fields(8) = Combo1.Text And r2.Fields(1) = Combo2.Text Then
If MsgBox("Are you sure you to delete this vehicle insurance management system project report
customer?", vbYesNo) = vbYes Then
strsql1 = "delete from insurance where p_holder=" & Combo2.Text & " and policy_key=" &
Label12.Caption
strsql2 = "delete from sales where p_holder=" & Combo2.Text & " and policy_key=" &
Label12.Caption
strsql3 = "delete from claimant where p_holder=" & Combo2.Text & " and policy_key=" &
Label12.Caption
Do While Not r4.EOF
flag = flag + 1
End If
r4.MoveNext
Loop
Page
22
MsgBox strsql1
cn.Execute strsql1
MsgBox strsql2
cn.Execute strsql2
MsgBox strsql3
cn.Execute strsql3
If flag = 1 Then
strsql4 = "delete from ph where ph_key=" & Combo2.Text
MsgBox strsql4
cn.Execute strsql4
End If
MsgBox "deleted"
End If
Exit Do
End If
r2.MoveNext
Loop
End Sub
pass.Show
End Sub
edtpol.Show
End Sub
End Sub
main1.Show
Page
23
Unload Me
End Sub
With cn
.Open
End With
rs.Open "SELECT * FROM agent", cn, 2, 3
rk.Open "SELECT * FROM client", cn, 2, 3
r1.Open "SELECT * FROM policy", cn, 2, 3
Do While Not rs.EOF
If rs.Fields(3) = j Then
Label5.Caption = rs.Fields(3)
Exit Do
End If
rs.MoveNext
Page
24
Loop
strsql = "select * from client where agent_key= " & j
Set dg1.DataSource = r2
dg1.Refresh
Do While Not r2.EOF
Combo1.AddItem r2!Type
Combo2.AddItem r2!ph_key
r2.MoveNext
Loop
rs.MoveFirst
Label13.Visible = False
r4.Open "select * from client", cn, 2, 3
End Sub
Private Sub MSHFlexGrid1_Click()
End Sub
Private Sub Label12_Click()
r3.Open "SELECT * FROM policy", cn, 2, 3
r3.MoveFirst
Do While Not r3.EOF
Label12.Caption = r3.Fields(0)
Exit Do
End If
r3.MoveNext
Loop
Page
25
End Sub
Cinfo form
rk.MoveFirst
r2.MoveFirst
Do While Not rk.EOF
If Combo1.Text = rk.Fields(1) Then
Do While Not r2.EOF
If rk.Fields(0) = r2.Fields(4) And rk.Fields(2) = r2.Fields(6) Then
For i = 0 To Label18.Count - 1
If i <> 4 Then
Label18(i).Caption = r2.Fields(i)
End If
Next
Exit Do
End If
r2.MoveNext
Loop
End If
rk.MoveNext
Loop
End Sub
rk.MoveFirst
r3.MoveFirst
ag.MoveFirst
Do While Not rk.EOF
Do While Not r3.EOF

Page
26
Do While Not ag.EOF
If r3.Fields(0) = ag.Fields(3) Then
Label23(i).Caption = ag.Fields(i)
Next
Exit Do
End If
ag.MoveNext
Loop
Exit Do
End If
r3.MoveNext
Loop
Exit Do
End If
rk.MoveNext
Loop
End Sub
rk.MoveFirst
r4.MoveFirst
Do While Not rk.EOF
Do While Not r4.EOF
If i <> 3 Then
Label33(i).Caption = r4.Fields(i)
End If
Next
Exit Do
Page
27
End If
r4.MoveNext
Loop
End If
rk.MoveNext
Loop
End Sub
Dim dat, dat2 As Date
Dim amt As Currency
Dim x1 As Integer
rk.MoveFirst
r2.MoveFirst
amt = 0
Do While Not rk.EOF
Do While Not r2.EOF
Label42(0).Caption = r2.Fields(5)
dat = r2.Fields(5)
For x1 = 1 To r2.Fields(3)
If dat < Now Then
dat = dat + 365
End If
Next
Label42(3).Caption = dat
dat2 = r2.Fields(5) + 365 * r2.Fields(3)
Label42(5).Caption = dat2
For i = 1 To r2.Fields(3)
amt = amt + r2.Fields(1) + 0.0075 * amt * (r2.Fields(3) - i)
Page
28
Next
Label42(6).Caption = amt
Exit Do
End If
r2.MoveNext
Loop
Exit Do
End If
rk.MoveNext
Loop
End Sub
Dim i As Integer
Set ag = New ADODB.Recordset
With cn
.Open
End With
r2.Open "SELECT * FROM ins", cn, 2, 3
rk.Open "SELECT * FROM pol", cn, 2, 3
ag.Open "select * from agent", cn, 2, 3
Page
29
r4.Open "select * from claimant", cn, 2, 3
End Sub
Private Sub TabStrip1_Click()
For intloopindex = 0 To Picture1.Count - 1
With Picture1(intloopindex)
.Move TabStrip1.ClientLeft, TabStrip1.ClientTop, TabStrip1.ClientWidth, TabStrip1.ClientHeight
Picture1(TabStrip1.SelectedItem.Index - 1).ZOrder 0
End With
Next intloopindex
End Sub
Edtpol form
rs.MoveFirst
Frame1.Visible = True
Frame2.Visible = False
Do While Not rs.EOF
If rs.Fields(0) = Combo1.Text Then
name1(1).Text = rs.Fields(1)
address(2).Text = rs.Fields(2)
phone(3).Text = rs.Fields(3)
sex(4).Text = rs.Fields(9)
dob(5).Text = rs.Fields(6)
age1(6).Text = rs.Fields(7)
ms(7).Text = rs.Fields(8)
pwd.Text = rs.Fields(4)
sal.Text = rs.Fields(5)
Exit Do
End If
rs.MoveNext
Loop
End Sub
Page
30
Frame2.Visible = True
End Sub
name1(1).Text = ""
address(2).Text = ""
phone(3).Text = ""
sal.Text = ""
dob(5).Text = ""
ms(7).Text = ""
End Sub
strsql = "update ph set name= '" & name1(1).Text & "',address ='" & address(2).Text & "',phone= " &
phone(3).Text & ",sal=" & sal.Text & ",dob='" & dob(5).Text & "',ms='" & ms(7).Text & "' where ph_key=" &
Combo1.Text
cn.Execute strsql
MsgBox strsql
MsgBox added
End Sub
agpg.Show
Unload Me
End Sub

Page
31
With cn
.Open
End With
rs.Open "SELECT * FROM ph", cn, 2, 3
Do While Not rs.EOF
Combo1.AddItem (rs.Fields(0))
rs.MoveNext
Loop
End Sub
Frmlogin form
Option Explicit
Private Sub cmdCancel_Click()
main1.Show
Unload Me
End Sub
Private Sub cmdOK_Click()
Dim flag As Integer
Dim i As Integer
flag = 0
Do While Not rs.EOF
If txtUserName.Text = rs.Fields(0) And txtPassword.Text = rs.Fields(4) Then

Page
32
flag = 1
Exit Do
Else
rs.MoveNext
End If
Loop
If flag = 0 Then
MsgBox "INVALID USER"
txtUserName.Text = ""
txtPassword.Text = ""
Else
cinfo.Show
For i = 0 To rs.Fields.Count - 1
If i <> 4 Then
cinfo.Label17(i).Caption = rs.Fields(i)
End If
Next
Do While Not r1.EOF
If txtUserName.Text = r1.Fields(0) Then
cinfo.Combo1.AddItem (r1.Fields(1))
End If
r1.MoveNext
Loop
End If
Unload Me
End Sub
Page
33
With cn
.Open
End With
rs.Open "SELECT * FROM ph", cn, 2, 3
r1.Open "select * from pol", cn, 2, 3
End Sub
Frmlogin1 form
Option Explicit
Dim cn As ADODB.Connection
Dim cmd1 As String
Dim rs As ADODB.Recordset
Dim rk As ADODB.Recordset
Dim i, j As Integer
Dim sqlcmd, sqk, strsql, strname, str1, rate, a vehicle insurance system, b, c As String
Private Sub cmdCancel_Click()
main1.Show
Unload Me
End Sub
Private Sub cmdOK_Click()
Dim flag As Integer
flag = 0
rs.MoveFirst
Do While Not rs.EOF

Page
34
If txtUserName.Text = rs.Fields(0) And txtPassword.Text = rs.Fields(1) Then
flag = 1
Exit Do
Else
rs.MoveNext
End If
Loop
If flag = 0 Then
txtUserName.Text = ""
txtPassword.Text = ""
Else
admn.Show
Unload Me
End If
End Sub
With cn
.Open
End With
rs.Open "SELECT * FROM admlog", cn, 2, 3
End Sub
Frmlogin2 form
Page
35
Dim flag As Integer
flag = 0
rs.MoveFirst
Do While Not rs.EOF
If Text1.Text = rs.Fields(3) And Text2.Text = rs.Fields(4) Then
flag = 1
Exit Do
Else
rs.MoveNext
End If
Loop
If flag = 0 Then
Text1.Text = ""
Text2.Text = ""
Else
j = rs.Fields(3)
agpg.Show
Unload Me
End If
End Sub
main1.Show
Unload Me
End Sub
Page
36
With cn
.Open
End With
End Sub
Load form
Option Explicit
loading.Caption = "loading..."
ProgressBar1.Value = 0
Timer1.Enabled = True
End Sub
Private Sub Form_KeyPress(KeyAscii As Integer)
Unload Me
End Sub
Timer1.Enabled = False
ProgressBar1.Value = 0
End Sub
Private Sub Frame1_Click()
Unload Me
End Sub
Private Sub Timer1_Timer()
ProgressBar1.Value = ProgressBar1.Value + 10
Page
37
If ProgressBar1.Value >= 100 Then Timer1.Enabled = False
If Timer1.Enabled = False Then
main1.Show
Unload Me
End If
End Sub
Main1 form
Private Sub car_Click()
Form4.Show
End Sub
Private Sub cnt_Click()
Form3.Show
End Sub
frmLogin1.Show
End Sub
frmLogin.Show
End Sub
Private Sub home_Click()
Me.Show
End Sub
Private Sub Picture2_Click()
End Sub
Private Sub Picture1_Click()
End Sub
Private Sub wlp_Click()

Page
38
Form1.Show
End Sub
Pass form
If r2.Fields(4) <> Text1.Text Then
MsgBox "Re-enter old password"
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Else
If Text2.Text = Text3.Text Then
strsql = "Update agent set pwd='" & Text2.Text & "'where id=" & agpg.Label5.Caption
cn.Execute strsql
MsgBox "password changed successfully"
Unload Me
Else
MsgBox "re-enter new passwords"
Text2.Text = ""
Text3.Text = ""
End If
End If
End Sub
With cn
.Open
End With
Page
39
strsql = "select * from agent where id=" & agpg.Label5.Caption
End Sub
SNAPSHOTS
Page
40
Page
41
Page
42
Page
43
Page
44
Page
45
Page
46
CONCLUSION
A VEHICLE INSURANCE SYSTEM computerized insurance management 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 vehicle insurance system computer system are
considerable in the saving of man power working hours and Effort.
Provision for addition , updation and deletion of customers is there in the system .It is
observed that vehicle insurance management system proper filing system has been adopted for
future refernce . 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.
SCOPE OF ENHANCEMENT
The system may be further updated or modified at will owing to its simple structure. We
can further add a vehicle insurance system transaction entity which will look
after the payments made by the customer towards their policy. Depending on
future requirements more changes can be made owing to the organization’s
need.
Page
47
Page
48

Vehicle Insurance Management System Report

Uploaded by

Copyright:

Available Formats

Vehicle Insurance Management System Report

Uploaded by

Document Information

Original Description:

Copyright

Available Formats

Share this document

Share or Embed Document

Sharing Options

Read this document in other languages

Did you find this document useful?

Is this content inappropriate?

Copyright:

Available Formats

Vehicle Insurance Management System Report

Uploaded by

Copyright:

Available Formats

What is the purpose of the insurance management system?

What is the purpose of the insurance management system?

What are some of the features of the insurance management system?

What are some of the features of the insurance management system?

INSURANCE MANAGEMENT SYSTEM

We also wish to thank all the faculty members of Information

The Insurance management system is a vehicle insurance system complete

Relational databases are logical collection of inter-related data in tabular form

1. Microsoft Visual Basic 6.0

3. At least 5 GB HDD space FREE.

OVERVIEW OF THE PROJECT

The main menu contains 6 parts.

Various policy schemes are:-

3. Commission received by him for each insurance made by him respectively.

 Agent information report

 Client information report

CONVERTING ER DIAGRAM INTO TABLES

POLICY HOLDER m INSURE n POLICY

POLICY HOLDER 1 CHOOSE 1 CLAIMANT

 Policy holder and policy have m:n cardinality which results in

 Also policy and agent table have m:n cardinality resulting in

Name Null? Type

* PH_KEY NOT NULL NUMBER(5)

Name Null? Type

* ID NOT NULL NUMBER(5)

Name Null? Type

PREMIUM NUMBER (10)

AMOUNT NUMBER (10)

POLICY_DURATION NUMBER (4)

$ P_HOLDER NOT NULL NUMBER (5)

$ POLICY_KEY NOT NULL NUMBER (5)

Name Null? Type

$ AGENT_KEY NUMBER (5)

COMMISSION NUMBER (10)

$ P_HOLDER NOT NULL NUMBER (5)

$ POLICY_KEY NOT NULL NUMBER (3)

Name Null? Type

* POL_KEY NOT NULL NUMBER(3)

Name Null? Type

NAME NOT NULL VARCHAR2(50)

ADDRESS NOT NULL VARCHAR2(50)

$ P_HOLDER NOT NULL NUMBER(5)

$ POLICY_KEY NOT NULL NUMBER(3)

----------------------------------------- -------- -----------------

P_HOLDER NOT NULL NUMBER(5)

POL_KEY NOT NULL NUMBER(3)

----------------------------------------- -------- -----------------

NAME NOT NULL VARCHAR2(50)

P_HOLDER NOT NULL NUMBER(5)

POLICY_KEY NOT NULL NUMBER(3)

----------------------------------------- -------- -----------------

PH_KEY NOT NULL NUMBER(5)

Normalisation is a vehicle insurance system method for organizing data elements in a

The tables may be normalized under the following guideline:

A VEHICLE INSURANCE SYSTEM relation schema is in 1NF if all of its attributes

Domain is atomic if its elements are considered to be indivisible units .

Examples of non-atomic domains

Set of names, composite attributes