Certificate

This is to Certify that THAVASILINGAM THARMALINGAM has carried out

the Project work presented in this entitled “GAS AGENCY MANAGEMENT

SYSTEM” under my supervision and merits the award of Master in Business

Administration from Suresh Gyan Vihar University Jaipur Rajasthan. The

Project embodies result of original work and studies carried out by Student

himself/herself and the contents of the Project do not form the basis for the

award of any other degree to the candidate or to anyone else.

Name of the Student- THAVASILINGAM THARMALINGAM Name of the Guide

Enrollment no:- SGVU45D6202253610

1
AUTOMATION OF
MARUTI
WORKSHOP FOR
GREENLAND
MOTORS

2
 ACKNOWLEDGEMENT

I am sincerely duly bound to express my acknowledgements and thanks to all the

esteemed personalities for kind help, guidance rendered by them in carrying in the humble
work.
First of all I would like to express my sincere gratitude to THAVASILINGAM
THARMALINGAM .
whose timely attendance and intervention with a good sense of criticism and
suggestions helped me to modify the project and make it a multi facilitated general-
purpose project.
I am also duly bound to express my acknowledgement and thanks to all the
employees of Green Land Motors for his timely guidance and help.
Apart From This I am expressing my acknowledgements and thanks to the member
of staff of the computer center for fullest co-operation and support.
I wish to thank all the people who work directly or indirectly associated with this
project.

3
 PREFACE

After sale of a car it is the liability of the Maruti agency that he should take of the
free service and the paid service of the car. So for servicing, each maruti agency owes a
service center. After certain distance or time duration it is necessary to have servicing of
the car.
This project is based on the internal function of the Maruti workshop and dedicated
to „Green Land Motors – Allahabad‟. I had tried to computerize all the internal job of Maruti
service center, which ware based on manual system. We took care about the employees,
Maruti models, spare parts and all other relevant information of the Maruti workshop.
The Internal function of the workshop is so tedious, because there is a lot of
information that kept by the office assistant and the other related personnel‟s.
With the help of this project I am trying to solve the problems, which would occur
during the manual system.

4
 CONTENTS

Chapter 1 Introduction of Workshop Management

Chapter 2 Need and advantages of computerized System

Chapter 3 Introduction of Programming Language, Tools of Designing

Chapter 4 Methodology

Chapter 5 Project Details

Chapter 6 Discussion

5
 CHAPTER 1

INTRODUCTION
OF
WORKSHOP MANAGEMENT

Maruti Services Center is generally known as „Maruti Workshop‟. First of all we will

discuss about the Maruti Showroom. The main job of the show room is that it is

responsible for selling and performing all the marketing like job. If we buy the car then

initially we will contact to any showroom of the Maruti.

But after buying the car, it is necessary to make servicing of the car. So for

servicing of the car we will contact to any nearest service center of the Maruti. The Maruti

service center is responsible for the servicing of the car. But this job is not so easy as it

seems. During the servicing of the car will would sure that the we contains all the

information about the car. The Maruti company has developed a software by Vipro named

as „Dealer management System‟, This software is responsible for sharing all the

information of the car which is going to be sold.

6
 CHAPTER 2

NEED AND ADVANTAGES

OF
COMPUTERIZED SYSTEM

Now a day no body has time for making a long queue and waiting for any specific

job. Today life is so busy, so manual system is so tedious for now a day. The

Computerized system dramatically increases the speed of data processing. So that it

make easy to handle all the internal information‟s of the Maruti Workshop.

The „Automation of Maruti Workshop‟ is fully automated system, with the help of on

line this project we can get totally information about any car and their details easily without

suffering in a long queue. The requirements from the proposal software are as follows: -

 Keeping complete details about employee, labor, dealer, Maruti model, Maruti

color, job card, customer complain and bill details.

 Generating job card whenever a car come for servicing.

 Producing PDI Report and Bill Report in hard copy.

 Updating the stock and spare parts details.

 Updating the labor, employee and other relevant information‟s.

7
 CHAPTER 3

INTRODUCTION
OF
PROGRAMMING LANGUAGE

As we can see that the front - end of this project is Visual Basic.Net and the back -

end of this project is Oracle 9i.

Overview of VB.Net

Visual Basic.Net has been designed to create next-generation

application for the Microsoft windows operating system and the web. The Visual Basic

Language is now truly object-oriented. Microsoft team has streamlined the whole

language introducing various new features. These new features open new doors for the

visual basic developers to rapidly develop scalable Web Sites. The data tools now

inherently support XML data also.

Need For Visual Basic.Net

For nearly a decade, the visual basic language has been a

popular programming language for the windows platform. It is easy to underestimate the

impact that visual basic 1.0 had on the windows market – for the first time, writing windows

applications was a simple and relatively painless task, something with which even a

novice programmer could easily created a simple application. Similarly with the

8
introduction of visual basic 4.0, it became simple to create COM (Component Object

Model) applications.

In short, we can say Microsoft has introduced a totally new language is Visual

Basic.Net which supports entirely “Microsoft‟s .Net strategy”, which aims in providing a

platform for building internet based application in a faster, efficient and much more reliable

manner along with interoperability with other language proving a multi-language

environment.

What is .NET?

.NET is set of common services which can be used from a number of

languages and have the following specialties:

i. These services are executed in the form of intermediate code that is

independent of the underlying architecture.

ii. They operate in the runtime (Common Language Runtime), which manages

resources and monitors applications execution.

The .NET frameworks are a multi-language environment for building, deploying, and

running web services and applications. The Microsoft .NET platform provides .NET

infrastructure and tools to build and operate a new generation of services.

Introduction of Database management System

A database is a collection of interrelated

data. The collection of data must be logically coherent with some inherent meaning. A

database is designed and built for a specific purpose, keeping in mind the needs of the

applications that are going to use it and end users of those applications. It is managed by

a software package known a database management system (DBMS).

9
 CHAPTER 4

METHODOLOGY

Introduction

For developing a system, various methods and techniques are used for

information gathering, analysis and design of the system.

 System Analysis

 System Study: This project is concerned with „Automation of the Maruti

Workshop‟. I have trying to develop a prototype of the actual system.

Structured analysis, development methods has been used for analyzing the

system with aim to provide the result through.

 Systematically positioning the system into components.

 Constructing the model of the system.

 User Needs: The statement of need is written request for the system. The

request was-

 To design a computerized system which could increase the data

processing.

 The system should be fast.

 All the information of workshop related should be easily accessible.

 The frustration should not be created during work on the new

computerized system.

10
  The system should be user friendly.

 Initial Investigation: This is the analysis in details by analyst. To study of

various operations performed by the system. During system development

the users need is identified. The initial investigation is one way of handling

this. The objective is to determine whether the request is valid and feasible.

The system analyst clarifies and defines it in details that are mutually

understood by the user and analyst to understand the real problem.

 Information Gathering: Information gathering is an art and a science. The

approach and manner in which take the information is gathered requires

persons with sensitivity, commonsense, and knowledge of what and when

together and what channels to use for gathering the information. We need

information about.

 The Manual System of Maruti Workshop

 The Service Related Constraints

 The Internal functions of the Maruti Workshop

Strategy for determining the information requirement

 Asking: By simply asking users about their requirements. From existing

information system. Asking user what he currently gets from present system

and what more he wants.

11
  Prototyping: The user is anchored on real-life systems on which adjustymet

can be made.

 Interview: The interview is the face-to-face interpersonal role situation about

the problem area. Since analyst and the use meet face-to-face, there is

opportunity for flexibility in eliciting information.

I have interviewed with the employees of the Greenland Motors and

personally meet the manager and other related executives for

knowing the background details of the Workshop.

 User Requirements: The requirements given by the Workshop were:

 They want to access each related information.

 The management wants to access all the information from a node.

 Creating Computerized Job Card

 Creating Computerized Bill

 Generating Different Reports

 System Design: The most creative and challenging phase of the system life cycle is

system Design. The term design describes the final system and the process by

which it is developed. It also includes the construction of the program and program

testing.

12
 CHAPTER 5

PROJECT DETAILS
Introduction:
After sale of a car it is the liability of the Maruti agency that he should take of the
free service and the paid service of the car. So for servicing each maruti agency owe a
service center. After a certain distance or time duration it is necessary to have servicing of
the car.
This project is based on the internal function of the maruti workshop and dedicated
to „Green Land Motors – Allahabad‟. I had tried to computerized all the internal job of
maruti service center which ware based on manual system. We took care about the
employees, Maruti models, spare parts and all other relevant information of the maruti
workshop.
The main objective of this project is to computerized all the manual system of the
workshop management system. The main points to be considered are :-
 Creating job card for all the cars which are come for the service & storing all the
information‟s about car and their owner.
 Booking car for the further services.
 preparing PDI report and storing their relevant information‟s.
 providing brief details of employee, labor, dealer, maruti model, color and stock.
 Preparing different reports and producing hard copy of that reports.
 Handling customer complain and sending them on the maruti office whenever
required.
 Handling information about the post service customer satisfaction.

My project will belong to two mentioned category, because it is a application type project
which will be implement on a workshop. In front end we will use VB.Net and in back end

13
Oracle will be used. As we know that the oracle follow the concept of Relational Database
Management System(RDBMS) and VB.Net follows the concept of object oriented
programming system(Oops).

The „Automation of Maruti Workshop‟ is fully automated system with the help of on line this
project we can get totally information about any car and their details easily without
suffering in a long queue. The requirements from the proposal software are as follows:-
 Keeping complete details about employee, labor, dealer, Maruti model, maruti
color, job card, customer complain and bill details.
 Generating job card whenever a car come for servicing.
 Producing PDI Report and Bill Report in hard copy.
 Updating the stock and spare parts details.
Updating the labor, employee and other relevant information‟s.

Tabulation of Data
Here we explorer the database where the data is store. Here
database consist the following tables:

i. permission Table

Field Name Data Type Size Description

uname Varchar2 20 Name of user
password Varchar2 20 Password

ii. Employee Table

Field Name Data Type Size Description

Id Varchar2 20 Employee Id
Name Varchar2 20 Employee Name
Dob Date Date of Birth
Address Varchar2 30 Employee Address
Salary Number 10,2 Employee Salary
Designation Varchar2 20 Employee Designation

iii. Vehicle Table

Field Name Data Type Size Description

Id Varchar2 20 Vehicle Id
Name Varchar2 20 Vehicle Name
Model Varchar2 20 Vehicle Model
Color Varchar2 30 Vehicle Color
Quantity Number 10,2 Vehicle Quantity
iv. Sold_veh Table

14
Field Name Data Type Size Description
Regno Varchar2 20 Registration No.
Model Varchar2 20 Model No
Engineno Varchar2 20 Engine No
Milease Number 3 Mileage of Vehicle
Sdealear Varchar2 30 Sale Dealer Name
Sdate Date Sale Date

v. Customer Table

Field Name Data Type Size Description

Custcode Varchar2 15 Customer Code
Name Varchar2 30 Customer Name
Address Varchar2 30 Customer Address
Phone Varchar2 15 Phone No
Email Varchar2 30 E-Mail Account

vi. Jobcard Table

Field Name Data Type Size Description

Jobno Varchar2 15 Job Card No.
Service Varchar2 10 Serice(Paid,Free)
Jod Date Job Order Date
Paid Char 1 Paid(Y/N)
Pdate Date Prompt Date
Ddate Date Delivery Date
Recby Varchar2 25 Received By
Deliby Varchar2 25 Delivered By
Billno Varchar2 15 Bill No.

vii. Spares Table

Field Name Data Type Size Description

Sno Varchar2 15 Serial No
Pname Varchar2 30 Part Name
Price Number 7,2 Part Price
Quantity Number 4 Part Quantity
Dom Date Date of Manufacturer

viii. Complain Table

Field Name Data Type Size Description

Custcode Varchar2 15 Customer Code
Name Varchar2 30 Customer Name
Comp Varchar2 50 Complain
Cdate Date Complain Date

ix. Predel table

Field Name Data Type Size Description

15
Sn Varchar2 15 Serial No
Engineno Varchar2 15 Engine No.
Vehicalname Varchar2 25 Vehical Name
Insdate Date Inspection Date
Status Varchar2 15 Status
x. Postservice table

Field Name Data Type Size Description

Jobno Varchar2 15 Job Card Number
Cname Varchar2 30 Customer Name
Sdate Date Sevice Date
Slevel Varchar2 20 Satisfaction Level

xi. delay table

Field Name Data Type Size Description

Sn Number 5 Serial No
Cname Varchar2 30 Customer Name
Ddate Date Delivery Date
Reason Varchar2 50 Reason For Delay

xii. Response table

Field Name Data Type Size Description

Cardno Varchar2 15 Response Card No
Jobno Varchar2 15 Job Card No
Regno Varchar2 15 Registration No
Resdate Date Reasponce Date
Cname Varchar2 30 Customer Name
Caddress Varchar2 30 Customer Address
Phoneno Varchar2 15 Phone No
Ccomment Varchar2 50 Customer Comment
Rating Varchar2 25 Rating

xiii. Estimate Table

Field Name Data Type Size Description

Sn Number 5 Serial No
Regno Varchar2 30 Registration No
Vehname Varchar2 30 Vehical Name
Codp Number 7,2 Cost of Defected Part
Lcharge Number 7,2 Labour Charge
testamt Number 7,2 Total Estimated Amount

Data Flow Diagram Of System

16
 Zero Level Data Flow Diagram

Check
For
Validity

Delay Deviation Report Job Card Opening

Employee Bill Details

Automation
Labor of Maruti PDI Report Details
Workshop

Dealer Post Service Follow Up

Customer Complain Detail

17
 Opening Job Card

1st Level Data Flow Diagram

Request For Print

Process Produce
Request For Job Card Search if Found
Customer Catalog Hardcopy
Check

Information
Extract

Customer DB Job Card DB

Bill Report Generation

18
 2nd Level Data Flow Diagram

Bill No. Set Calculate

Calculate Produce
Amount Hardcopy
Initial No. of
Customer Spare
Detail Parts

Quantity Lubes
Rate/
Item

Customer DB Spares DB

PDI Report Generation

3rd Level Data Flow Diagram

19
 Request For PDI Initial Produce
Check if Satisfied
Details Status of PDI
of Car Report
Custome

Customer DB Labour DB

ER-Diagram of Automation of Maruti

Workshop

Address
Defect Report
Custom
Telepho PDI JobCard
PDI Labor

20

Automation of
Checki
a) Job Card Opening Module:
Whenever a car come for servicing then

the first step of that process of generating the job card for that car. Actually job card is

a card provided by the workshop for the owner of the car which identify approximate

each personal and other information about the person and the car. So whenever a

person come for the servicing then our first step is opening job card for the particular

person.

b) PDI Report Module :

PDI stand for pre delivery information. This

module check the overall performance of the car and other related parts and

accessories of the car that the car is proper functioning or not. After Serving of the car

it is necessary that a authorized person check that the car is proper functioning or not

this type is checking by only the authorized person. After satisfaction or clearing this

step the workshop surrender car to the owner of that car.

c) Bill Detail Module :

After servicing a car the workshop provides a

hard copy of the bill detail. The servicing may be two types it may be paid service or

free service. If servicing is free then the labor charge will not be considered other wise

the labor charge will be consider.

21
Form Description
Login Form

22
Splash Screen

23
MainForm

24
Employee Form

25
 Customer Form

JobCard Opening Form

26
Bill Form

27
Estimate Form

28
New Vehicle Entry Form

29
Customer Response Form

30
Customer Complain Form

31
Pre Delivery Inspection Form

32
Post Service Follow Up Form

33
Delay Deviation Form

34
Customer Response Report

35
Delay Deviation Report

36
Customer Complain Report

37
Pre Delivery Inspection Report

38
Post Service Follow Up Report

39
 Code Description

Login Form
Imports System.Data
Imports System.Data.OleDb
Public Class Form1
Inherits System.Windows.Forms.Form

#Region " Windows Form Designer generated code "

40
 Public Sub New()
MyBase.New()

'This call is required by the Windows Form Designer.

InitializeComponent()

'Add any initialization after the InitializeComponent() call

End Sub

'Form overrides dispose to clean up the component list.

Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
If disposing Then
If Not (components Is Nothing) Then
components.Dispose()
End If
End If
MyBase.Dispose(disposing)
End Sub

'Required by the Windows Form Designer

Private components As System.ComponentModel.IContainer

'NOTE: The following procedure is required by the Windows Form Designer

'It can be modified using the Windows Form Designer.
'Do not modify it using the code editor.
Friend WithEvents Label1 As System.Windows.Forms.Label
Friend WithEvents Label2 As System.Windows.Forms.Label
Friend WithEvents cmOk As System.Windows.Forms.Button
Friend WithEvents CmdCancel As System.Windows.Forms.Button
Friend WithEvents txtUser As System.Windows.Forms.TextBox
Friend WithEvents txtPass As System.Windows.Forms.TextBox
<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
Me.Label1 = New System.Windows.Forms.Label()
Me.Label2 = New System.Windows.Forms.Label()
Me.txtUser = New System.Windows.Forms.TextBox()
Me.txtPass = New System.Windows.Forms.TextBox()
Me.cmOk = New System.Windows.Forms.Button()
Me.CmdCancel = New System.Windows.Forms.Button()
Me.SuspendLayout()
'
'Label1
'
Me.Label1.AutoSize = True
Me.Label1.Font = New System.Drawing.Font("Arial", 9.75!,
System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,
Byte))
Me.Label1.Location = New System.Drawing.Point(8, 8)
Me.Label1.Name = "Label1"
Me.Label1.Size = New System.Drawing.Size(108, 15)
Me.Label1.TabIndex = 0
Me.Label1.Text = "Enter User Name"
'
'Label2
'
Me.Label2.AutoSize = True
Me.Label2.Font = New System.Drawing.Font("Arial", 9.75!,
System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,
Byte))
Me.Label2.Location = New System.Drawing.Point(8, 40)
Me.Label2.Name = "Label2"

41
 Me.Label2.Size = New System.Drawing.Size(99, 15)
Me.Label2.TabIndex = 1
Me.Label2.Text = "Enter Password"
'
'txtUser
'
Me.txtUser.Location = New System.Drawing.Point(160, 8)
Me.txtUser.Name = "txtUser"
Me.txtUser.Size = New System.Drawing.Size(160, 20)
Me.txtUser.TabIndex = 2
Me.txtUser.Text = ""
'
'txtPass
'
Me.txtPass.Location = New System.Drawing.Point(160, 40)
Me.txtPass.Name = "txtPass"
Me.txtPass.Size = New System.Drawing.Size(160, 20)
Me.txtPass.TabIndex = 3
Me.txtPass.Text = ""
'
'cmOk
'
Me.cmOk.Font = New System.Drawing.Font("Arial", 9.75!,
System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,
Byte))
Me.cmOk.Location = New System.Drawing.Point(160, 64)
Me.cmOk.Name = "cmOk"
Me.cmOk.TabIndex = 4
Me.cmOk.Text = "OK"
'
'CmdCancel
'
Me.CmdCancel.Font = New System.Drawing.Font("Arial", 9.75!,
System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,
Byte))
Me.CmdCancel.Location = New System.Drawing.Point(248, 64)
Me.CmdCancel.Name = "CmdCancel"
Me.CmdCancel.Size = New System.Drawing.Size(72, 23)
Me.CmdCancel.TabIndex = 5
Me.CmdCancel.Text = "Cancel"
'
'Form1
'
Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
Me.ClientSize = New System.Drawing.Size(328, 93)
Me.Controls.AddRange(New System.Windows.Forms.Control() {Me.CmdCancel,
Me.cmOk, Me.txtPass, Me.txtUser, Me.Label2, Me.Label1})
Me.Name = "Form1"
Me.Text = "Login Screen"
Me.ResumeLayout(False)

End Sub

#End Region
Dim con As OleDbConnection
Dim mycomm As OleDbCommand
Dim myreader As OleDbDataReader
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles MyBase.Load
con = New OleDbConnection()
With con

42
 .ConnectionString = "Provider=MSDAORA.1;Password=tiger;User
ID=scott;Data Source="""""
.Open()
End With

mycomm = New OleDbCommand()

mycomm.Connection = con

Dim query As String

query = "select * from permission"
mycomm.CommandText = query

End Sub

Private Sub cmOk_Click(ByVal sender As System.Object, ByVal e As

System.EventArgs) Handles cmOk.Click

Dim flag As Boolean

flag = False
Dim frmsplash As New SplshScreen()
myreader = mycomm.ExecuteReader()
Do While myreader.Read() = True
If myreader.GetString(0) = Trim(txtUser.Text) And
myreader.GetString(1) = Trim(txtPass.Text) Then
flag = True
Exit Do
End If
Loop
If flag = True Then
frmsplash.Show()
Me.Hide()

Else
MsgBox("Sorry Wrong Pssword!" & vbCrLf & "Try Again")
txtUser.Text = ""
txtPass.Text = ""
End If
myreader.Close()
End Sub

Splash Screen

Public Class SplshScreen

Inherits System.Windows.Forms.Form

#Region " Windows Form Designer generated code "

Public Sub New()

MyBase.New()

'This call is required by the Windows Form Designer.

InitializeComponent()

'Add any initialization after the InitializeComponent() call

End Sub

43
 'Form overrides dispose to clean up the component list.
Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
If disposing Then
If Not (components Is Nothing) Then
components.Dispose()
End If
End If
MyBase.Dispose(disposing)
End Sub

'Required by the Windows Form Designer

Private components As System.ComponentModel.IContainer

'NOTE: The following procedure is required by the Windows Form Designer

'It can be modified using the Windows Form Designer.
'Do not modify it using the code editor.
Friend WithEvents Label1 As System.Windows.Forms.Label
Friend WithEvents Label2 As System.Windows.Forms.Label
Friend WithEvents Label3 As System.Windows.Forms.Label
<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
Me.Label1 = New System.Windows.Forms.Label()
Me.Label2 = New System.Windows.Forms.Label()
Me.Label3 = New System.Windows.Forms.Label()
Me.SuspendLayout()
'
'Label1
'
Me.Label1.AutoSize = True
Me.Label1.Font = New System.Drawing.Font("Arial", 20.25!,
System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0,
Byte))
Me.Label1.Location = New System.Drawing.Point(24, 8)
Me.Label1.Name = "Label1"
Me.Label1.Size = New System.Drawing.Size(433, 32)
Me.Label1.TabIndex = 0
Me.Label1.Text = "Automation of Maruti Workshop"
'
'Label2
'
Me.Label2.AutoSize = True
Me.Label2.Font = New System.Drawing.Font("Microsoft Sans Serif", 14.25!,
System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,
Byte))
Me.Label2.Location = New System.Drawing.Point(224, 48)
Me.Label2.Name = "Label2"
Me.Label2.Size = New System.Drawing.Size(36, 22)
Me.Label2.TabIndex = 1
Me.Label2.Text = "For"
'
'Label3
'
Me.Label3.AutoSize = True
Me.Label3.Font = New System.Drawing.Font("Microsoft Sans Serif", 14.25!,
System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,
Byte))
Me.Label3.Location = New System.Drawing.Point(112, 72)
Me.Label3.Name = "Label3"
Me.Label3.Size = New System.Drawing.Size(280, 22)
Me.Label3.TabIndex = 2
Me.Label3.Text = "(Green Land Motors Allahabad)"
'

44
 'SplshScreen
'
Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
Me.ClientSize = New System.Drawing.Size(480, 133)
Me.Controls.AddRange(New System.Windows.Forms.Control() {Me.Label3,
Me.Label2, Me.Label1})
Me.MaximizeBox = False
Me.MinimizeBox = False
Me.Name = "SplshScreen"
Me.Text = "SplshScreen"
Me.TransparencyKey = System.Drawing.Color.FromArgb(CType(255, Byte),
CType(224, Byte), CType(192, Byte))
Me.ResumeLayout(False)

End Sub

#End Region

Private Sub SplshScreen_Click(ByVal sender As System.Object, ByVal e As

System.EventArgs) Handles MyBase.Click
Dim MainFrm As New MainForm()
MainFrm.Show()
Me.Hide()
End Sub

End Class

Main Form
Public Class MainForm
Inherits System.Windows.Forms.Form

#Region " Windows Form Designer generated code "

Public Sub New()

MyBase.New()

'This call is required by the Windows Form Designer.

InitializeComponent()

'Add any initialization after the InitializeComponent() call

End Sub

'Form overrides dispose to clean up the component list.

Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
If disposing Then
If Not (components Is Nothing) Then
components.Dispose()
End If
End If
MyBase.Dispose(disposing)
End Sub

45
 'Required by the Windows Form Designer
Private components As System.ComponentModel.IContainer

'NOTE: The following procedure is required by the Windows Form Designer

'It can be modified using the Windows Form Designer.
'Do not modify it using the code editor.
Friend WithEvents MainMenu1 As System.Windows.Forms.MainMenu
Friend WithEvents MenuItem2 As System.Windows.Forms.MenuItem
Friend WithEvents MenuItem3 As System.Windows.Forms.MenuItem
Friend WithEvents MenuItem4 As System.Windows.Forms.MenuItem
Friend WithEvents MenuItem5 As System.Windows.Forms.MenuItem
Friend WithEvents MenuItem6 As System.Windows.Forms.MenuItem
Friend WithEvents MenuItem7 As System.Windows.Forms.MenuItem
Friend WithEvents MenuItem8 As System.Windows.Forms.MenuItem
Friend WithEvents MenuItem9 As System.Windows.Forms.MenuItem
Friend WithEvents MenuItem10 As System.Windows.Forms.MenuItem
Friend WithEvents MenuItem12 As System.Windows.Forms.MenuItem
Friend WithEvents MenuItem13 As System.Windows.Forms.MenuItem
Friend WithEvents MenuItem14 As System.Windows.Forms.MenuItem
Friend WithEvents MenuItem15 As System.Windows.Forms.MenuItem
Friend WithEvents MenuItem16 As System.Windows.Forms.MenuItem
Friend WithEvents MenuItem17 As System.Windows.Forms.MenuItem
Friend WithEvents MenuItem18 As System.Windows.Forms.MenuItem
Friend WithEvents MenuItem19 As System.Windows.Forms.MenuItem
Friend WithEvents MenuItem20 As System.Windows.Forms.MenuItem
Friend WithEvents MenuItem21 As System.Windows.Forms.MenuItem
Friend WithEvents MenuItem22 As System.Windows.Forms.MenuItem
Friend WithEvents MenuItem23 As System.Windows.Forms.MenuItem
Friend WithEvents MenuItem24 As System.Windows.Forms.MenuItem
Friend WithEvents MenuItem25 As System.Windows.Forms.MenuItem
<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
Me.MainMenu1 = New System.Windows.Forms.MainMenu()
Me.MenuItem2 = New System.Windows.Forms.MenuItem()
Me.MenuItem3 = New System.Windows.Forms.MenuItem()
Me.MenuItem4 = New System.Windows.Forms.MenuItem()
Me.MenuItem5 = New System.Windows.Forms.MenuItem()
Me.MenuItem6 = New System.Windows.Forms.MenuItem()
Me.MenuItem7 = New System.Windows.Forms.MenuItem()
Me.MenuItem8 = New System.Windows.Forms.MenuItem()
Me.MenuItem9 = New System.Windows.Forms.MenuItem()
Me.MenuItem10 = New System.Windows.Forms.MenuItem()
Me.MenuItem15 = New System.Windows.Forms.MenuItem()
Me.MenuItem22 = New System.Windows.Forms.MenuItem()
Me.MenuItem12 = New System.Windows.Forms.MenuItem()
Me.MenuItem13 = New System.Windows.Forms.MenuItem()
Me.MenuItem23 = New System.Windows.Forms.MenuItem()
Me.MenuItem24 = New System.Windows.Forms.MenuItem()
Me.MenuItem25 = New System.Windows.Forms.MenuItem()
Me.MenuItem14 = New System.Windows.Forms.MenuItem()
Me.MenuItem16 = New System.Windows.Forms.MenuItem()
Me.MenuItem17 = New System.Windows.Forms.MenuItem()
Me.MenuItem18 = New System.Windows.Forms.MenuItem()
Me.MenuItem19 = New System.Windows.Forms.MenuItem()
Me.MenuItem20 = New System.Windows.Forms.MenuItem()
Me.MenuItem21 = New System.Windows.Forms.MenuItem()
'
'MainMenu1
'
Me.MainMenu1.MenuItems.AddRange(New System.Windows.Forms.MenuItem()
{Me.MenuItem2, Me.MenuItem7, Me.MenuItem12, Me.MenuItem14, Me.MenuItem21})
'

46
 'MenuItem2
'
Me.MenuItem2.Index = 0
Me.MenuItem2.MenuItems.AddRange(New System.Windows.Forms.MenuItem()
{Me.MenuItem3, Me.MenuItem4, Me.MenuItem5, Me.MenuItem6})
Me.MenuItem2.Text = "&Master"
'
'MenuItem3
'
Me.MenuItem3.Index = 0
Me.MenuItem3.Shortcut = System.Windows.Forms.Shortcut.CtrlE
Me.MenuItem3.Text = "Employee"
'
'MenuItem4
'
Me.MenuItem4.Index = 1
Me.MenuItem4.Shortcut = System.Windows.Forms.Shortcut.CtrlE
Me.MenuItem4.Text = "Vehical"
'
'MenuItem5
'
Me.MenuItem5.Index = 2
Me.MenuItem5.Shortcut = System.Windows.Forms.Shortcut.CtrlD
Me.MenuItem5.Text = "Customer"
'
'MenuItem6
'
Me.MenuItem6.Index = 3
Me.MenuItem6.Shortcut = System.Windows.Forms.Shortcut.CtrlS
Me.MenuItem6.Text = "Spares"
'
'MenuItem7
'
Me.MenuItem7.Index = 1
Me.MenuItem7.MenuItems.AddRange(New System.Windows.Forms.MenuItem()
{Me.MenuItem8, Me.MenuItem9, Me.MenuItem10, Me.MenuItem15, Me.MenuItem22})
Me.MenuItem7.Text = "&Transaction"
'
'MenuItem8
'
Me.MenuItem8.Index = 0
Me.MenuItem8.Text = "Job Card Opening"
'
'MenuItem9
'
Me.MenuItem9.Index = 1
Me.MenuItem9.Text = "Bill Preparation"
'
'MenuItem10
'
Me.MenuItem10.Index = 2
Me.MenuItem10.Text = "Estimation"
'
'MenuItem15
'
Me.MenuItem15.Index = 3
Me.MenuItem15.Text = "New Vehical"
'
'MenuItem22
'
Me.MenuItem22.Index = 4

47
 Me.MenuItem22.Text = "Customer Responce Form"
'
'MenuItem12
'
Me.MenuItem12.Index = 2
Me.MenuItem12.MenuItems.AddRange(New System.Windows.Forms.MenuItem()
{Me.MenuItem13, Me.MenuItem23, Me.MenuItem24, Me.MenuItem25})
Me.MenuItem12.Text = "&Data Management"
'
'MenuItem13
'
Me.MenuItem13.Index = 0
Me.MenuItem13.Shortcut = System.Windows.Forms.Shortcut.CtrlB
Me.MenuItem13.Text = "Customer Complain "
'
'MenuItem23
'
Me.MenuItem23.Index = 1
Me.MenuItem23.Text = "Pre Delevery Inspection"
'
'MenuItem24
'
Me.MenuItem24.Index = 2
Me.MenuItem24.Text = "Post Service Follow Up"
'
'MenuItem25
'
Me.MenuItem25.Index = 3
Me.MenuItem25.Text = "Delay Deviation "
'
'MenuItem14
'
Me.MenuItem14.Index = 3
Me.MenuItem14.MenuItems.AddRange(New System.Windows.Forms.MenuItem()
{Me.MenuItem16, Me.MenuItem17, Me.MenuItem18, Me.MenuItem19, Me.MenuItem20})
Me.MenuItem14.Text = "&Reports"
'
'MenuItem16
'
Me.MenuItem16.Index = 0
Me.MenuItem16.Text = "Customer Responce Report"
'
'MenuItem17
'
Me.MenuItem17.Index = 1
Me.MenuItem17.Text = "Delay Deviation Report"
'
'MenuItem18
'
Me.MenuItem18.Index = 2
Me.MenuItem18.Text = "Customer Complain Report"
'
'MenuItem19
'
Me.MenuItem19.Index = 3
Me.MenuItem19.Text = "PDI Report"
'
'MenuItem20
'
Me.MenuItem20.Index = 4
Me.MenuItem20.Text = "Post Service Follow Up Report"

48
 '
'MenuItem21
'
Me.MenuItem21.Index = 4
Me.MenuItem21.Text = "&Exit"
'
'MainForm
'
Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
Me.ClientSize = New System.Drawing.Size(736, 494)
Me.IsMdiContainer = True
Me.Menu = Me.MainMenu1
Me.Name = "MainForm"
Me.Text = "Maruti Workshop"
Me.WindowState = System.Windows.Forms.FormWindowState.Maximized

End Sub

#End Region

Private Sub MenuItem14_Click(ByVal sender As System.Object, ByVal e As

System.EventArgs) Handles MenuItem14.Click
End
End Sub

Private Sub MenuItem3_Click(ByVal sender As System.Object, ByVal e As

System.EventArgs) Handles MenuItem3.Click
Dim empFrm As New Employee()
empFrm.MdiParent = Me
empFrm.Show()
End Sub

Private Sub MenuItem8_Click(ByVal sender As System.Object, ByVal e As

System.EventArgs) Handles MenuItem8.Click
Dim jobcardFrm As New JobCard()
jobcardFrm.MdiParent = Me
jobcardFrm.Show()
End Sub

Private Sub MenuItem22_Click(ByVal sender As System.Object, ByVal e As

System.EventArgs) Handles MenuItem22.Click
Dim responce As New frmResponse()
responce.MdiParent = Me
responce.Show()
End Sub

Private Sub MenuItem4_Click(ByVal sender As System.Object, ByVal e As

System.EventArgs) Handles MenuItem4.Click
Dim frmvec As New frmVehicle()
frmvec.MdiParent = Me
frmvec.Show()
End Sub

Private Sub MenuItem5_Click(ByVal sender As System.Object, ByVal e As

System.EventArgs) Handles MenuItem5.Click
Dim frmcust As New frmCustomer()
frmcust.MdiParent = Me
frmcust.Show()
End Sub

49
 Private Sub MenuItem6_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles MenuItem6.Click
Dim frmspr As New frmSpares()
frmspr.MdiParent = Me
frmspr.Show()
End Sub

Private Sub MenuItem13_Click(ByVal sender As System.Object, ByVal e As

System.EventArgs) Handles MenuItem13.Click
Dim frmcom As New frmComplain()
frmcom.MdiParent = Me
frmcom.Show()
End Sub

Private Sub MenuItem18_Click(ByVal sender As System.Object, ByVal e As

System.EventArgs) Handles MenuItem18.Click
Dim ccr As New CustomerComplainReport()
ccr.MdiParent = Me
ccr.Show()
End Sub

Private Sub MainForm_Load(ByVal sender As System.Object, ByVal e As

System.EventArgs) Handles MyBase.Load

End Sub

Private Sub MenuItem23_Click(ByVal sender As System.Object, ByVal e As

System.EventArgs) Handles MenuItem23.Click
Dim pdins As New frmPreInspection()
pdins.MdiParent = Me
pdins.Show()
End Sub

Private Sub MenuItem19_Click(ByVal sender As System.Object, ByVal e As

System.EventArgs) Handles MenuItem19.Click
Dim pdi As New PreDeliveryInspectionReport()
pdi.MdiParent = Me
pdi.Show()
End Sub

Private Sub MenuItem24_Click(ByVal sender As System.Object, ByVal e As

System.EventArgs) Handles MenuItem24.Click
Dim psfu As New frmPostService()
psfu.MdiParent = Me
psfu.Show()
End Sub

Private Sub MenuItem20_Click(ByVal sender As System.Object, ByVal e As

System.EventArgs) Handles MenuItem20.Click
Dim psfr As New frmPostServiceFollowUpReport()
psfr.MdiParent = Me
psfr.Show()
End Sub

Private Sub MenuItem25_Click(ByVal sender As System.Object, ByVal e As

System.EventArgs) Handles MenuItem25.Click
Dim ddr As New frmDelay()
ddr.MdiParent = Me
ddr.Show()
End Sub

50
 Private Sub MenuItem17_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles MenuItem17.Click
Dim ddrep As New frmDelayDeviationReport()
ddrep.MdiParent = Me
ddrep.Show()
End Sub

Private Sub MenuItem21_Click(ByVal sender As System.Object, ByVal e As

System.EventArgs) Handles MenuItem21.Click
Application.Exit()
End Sub

Private Sub MenuItem16_Click(ByVal sender As System.Object, ByVal e As

System.EventArgs) Handles MenuItem16.Click
Dim crr As New frmCustomerResponceReport()
crr.MdiParent = Me
crr.Show()
End Sub

Private Sub MenuItem15_Click(ByVal sender As System.Object, ByVal e As

System.EventArgs) Handles MenuItem15.Click
Dim nsv As New frmSoldVeh()
Employee Form
Imports System.Data
Imports System.Data.OleDb
Public Class Employee
Inherits System.Windows.Forms.Form
Dim con As OleDbConnection
Dim mycomm As OleDbCommand
Dim empda As OleDbDataAdapter
Dim empds As DataSet
Dim empReader As OleDbDataReader
Dim delread As OleDbDataReader
#Region " Windows Form Designer generated code "

Public Sub New()

MyBase.New()

'This call is required by the Windows Form Designer.

InitializeComponent()

'Add any initialization after the InitializeComponent() call

End Sub

'Form overrides dispose to clean up the component list.

Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
If disposing Then
If Not (components Is Nothing) Then
components.Dispose()
End If
End If
MyBase.Dispose(disposing)
End Sub

'Required by the Windows Form Designer

Private components As System.ComponentModel.IContainer

'NOTE: The following procedure is required by the Windows Form Designer

'It can be modified using the Windows Form Designer.

51
'Do not modify it using the code editor.
Friend WithEvents TabControl1 As System.Windows.Forms.TabControl
Friend WithEvents TabPage1 As System.Windows.Forms.TabPage
Friend WithEvents TabPage2 As System.Windows.Forms.TabPage
Friend WithEvents GroupBox2 As System.Windows.Forms.GroupBox
Friend WithEvents GroupBox3 As System.Windows.Forms.GroupBox
Friend WithEvents GroupBox5 As System.Windows.Forms.GroupBox
Friend WithEvents cmdFilter As System.Windows.Forms.Button
Friend WithEvents Label1 As System.Windows.Forms.Label
Friend WithEvents cmdShow As System.Windows.Forms.Button
Friend WithEvents GroupBox1 As System.Windows.Forms.GroupBox
Friend WithEvents TabPage3 As System.Windows.Forms.TabPage
Friend WithEvents GroupBox4 As System.Windows.Forms.GroupBox
Friend WithEvents GroupBox6 As System.Windows.Forms.GroupBox
Friend WithEvents Label2 As System.Windows.Forms.Label
Friend WithEvents Label3 As System.Windows.Forms.Label
Friend WithEvents Label4 As System.Windows.Forms.Label
Friend WithEvents Label5 As System.Windows.Forms.Label
Friend WithEvents Label6 As System.Windows.Forms.Label
Friend WithEvents EmpDataGrid As System.Windows.Forms.DataGrid
Friend WithEvents namelist As System.Windows.Forms.ComboBox
Friend WithEvents cmdCancel As System.Windows.Forms.Button
Friend WithEvents cmdIns As System.Windows.Forms.Button
Friend WithEvents txtdob As System.Windows.Forms.DateTimePicker
Friend WithEvents txtName As System.Windows.Forms.TextBox
Friend WithEvents txtid As System.Windows.Forms.TextBox
Friend WithEvents Label7 As System.Windows.Forms.Label
Friend WithEvents txtSal As System.Windows.Forms.TextBox
Friend WithEvents txtAddress As System.Windows.Forms.TextBox
Friend WithEvents txtDesig As System.Windows.Forms.TextBox
Friend WithEvents GroupBox7 As System.Windows.Forms.GroupBox
Friend WithEvents Label8 As System.Windows.Forms.Label
Friend WithEvents Label9 As System.Windows.Forms.Label
Friend WithEvents Label10 As System.Windows.Forms.Label
Friend WithEvents Label11 As System.Windows.Forms.Label
Friend WithEvents Label12 As System.Windows.Forms.Label
Friend WithEvents Label13 As System.Windows.Forms.Label
Friend WithEvents delidList As System.Windows.Forms.ComboBox
Friend WithEvents edesig As System.Windows.Forms.TextBox
Friend WithEvents esal As System.Windows.Forms.TextBox
Friend WithEvents eaddress As System.Windows.Forms.TextBox
Friend WithEvents ename As System.Windows.Forms.TextBox
Friend WithEvents edobli As System.Windows.Forms.DateTimePicker
Friend WithEvents cmdRemove As System.Windows.Forms.Button
<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
Me.TabControl1 = New System.Windows.Forms.TabControl()
Me.TabPage1 = New System.Windows.Forms.TabPage()
Me.GroupBox2 = New System.Windows.Forms.GroupBox()
Me.GroupBox3 = New System.Windows.Forms.GroupBox()
Me.GroupBox5 = New System.Windows.Forms.GroupBox()
Me.cmdFilter = New System.Windows.Forms.Button()
Me.namelist = New System.Windows.Forms.ComboBox()
Me.Label1 = New System.Windows.Forms.Label()
Me.cmdShow = New System.Windows.Forms.Button()
Me.GroupBox1 = New System.Windows.Forms.GroupBox()
Me.EmpDataGrid = New System.Windows.Forms.DataGrid()
Me.TabPage3 = New System.Windows.Forms.TabPage()
Me.GroupBox7 = New System.Windows.Forms.GroupBox()
Me.delidList = New System.Windows.Forms.ComboBox()
Me.Label8 = New System.Windows.Forms.Label()
Me.edesig = New System.Windows.Forms.TextBox()

52
 Me.cmdRemove = New System.Windows.Forms.Button()
Me.edobli = New System.Windows.Forms.DateTimePicker()
Me.esal = New System.Windows.Forms.TextBox()
Me.Label9 = New System.Windows.Forms.Label()
Me.eaddress = New System.Windows.Forms.TextBox()
Me.Label10 = New System.Windows.Forms.Label()
Me.Label11 = New System.Windows.Forms.Label()
Me.ename = New System.Windows.Forms.TextBox()
Me.Label12 = New System.Windows.Forms.Label()
Me.Label13 = New System.Windows.Forms.Label()
Me.TabPage2 = New System.Windows.Forms.TabPage()
Me.GroupBox4 = New System.Windows.Forms.GroupBox()
Me.GroupBox6 = New System.Windows.Forms.GroupBox()
Me.Label7 = New System.Windows.Forms.Label()
Me.txtDesig = New System.Windows.Forms.TextBox()
Me.cmdCancel = New System.Windows.Forms.Button()
Me.cmdIns = New System.Windows.Forms.Button()
Me.txtdob = New System.Windows.Forms.DateTimePicker()
Me.txtSal = New System.Windows.Forms.TextBox()
Me.Label6 = New System.Windows.Forms.Label()
Me.txtAddress = New System.Windows.Forms.TextBox()
Me.Label5 = New System.Windows.Forms.Label()
Me.Label4 = New System.Windows.Forms.Label()
Me.txtName = New System.Windows.Forms.TextBox()
Me.Label3 = New System.Windows.Forms.Label()
Me.txtid = New System.Windows.Forms.TextBox()
Me.Label2 = New System.Windows.Forms.Label()
Me.TabControl1.SuspendLayout()
Me.TabPage1.SuspendLayout()
Me.GroupBox2.SuspendLayout()
Me.GroupBox3.SuspendLayout()
Me.GroupBox5.SuspendLayout()
Me.GroupBox1.SuspendLayout()
CType(Me.EmpDataGrid,
System.ComponentModel.ISupportInitialize).BeginInit()
Me.TabPage3.SuspendLayout()
Me.GroupBox7.SuspendLayout()
Me.TabPage2.SuspendLayout()
Me.GroupBox4.SuspendLayout()
Me.GroupBox6.SuspendLayout()
Me.SuspendLayout()
'
'TabControl1
'
Me.TabControl1.Controls.AddRange(New System.Windows.Forms.Control()
{Me.TabPage1, Me.TabPage3, Me.TabPage2})
Me.TabControl1.Dock = System.Windows.Forms.DockStyle.Fill
Me.TabControl1.Name = "TabControl1"
Me.TabControl1.SelectedIndex = 0
Me.TabControl1.Size = New System.Drawing.Size(720, 494)
Me.TabControl1.TabIndex = 0
'
'TabPage1
'
Me.TabPage1.Controls.AddRange(New System.Windows.Forms.Control()
{Me.GroupBox2, Me.GroupBox1})
Me.TabPage1.Location = New System.Drawing.Point(4, 22)
Me.TabPage1.Name = "TabPage1"
Me.TabPage1.Size = New System.Drawing.Size(712, 468)
Me.TabPage1.TabIndex = 0
Me.TabPage1.Text = "Employee Details"

53
 '
'GroupBox2
'
Me.GroupBox2.Controls.AddRange(New System.Windows.Forms.Control()
{Me.GroupBox3})
Me.GroupBox2.Location = New System.Drawing.Point(8, 323)
Me.GroupBox2.Name = "GroupBox2"
Me.GroupBox2.Size = New System.Drawing.Size(680, 128)
Me.GroupBox2.TabIndex = 3
Me.GroupBox2.TabStop = False
'
'GroupBox3
'
Me.GroupBox3.Controls.AddRange(New System.Windows.Forms.Control()
{Me.GroupBox5, Me.cmdShow})
Me.GroupBox3.Location = New System.Drawing.Point(8, 8)
Me.GroupBox3.Name = "GroupBox3"
Me.GroupBox3.Size = New System.Drawing.Size(664, 112)
Me.GroupBox3.TabIndex = 0
Me.GroupBox3.TabStop = False
'
'GroupBox5
'
Me.GroupBox5.Controls.AddRange(New System.Windows.Forms.Control()
{Me.cmdFilter, Me.namelist, Me.Label1})
Me.GroupBox5.Location = New System.Drawing.Point(8, 40)
Me.GroupBox5.Name = "GroupBox5"
Me.GroupBox5.Size = New System.Drawing.Size(648, 64)
Me.GroupBox5.TabIndex = 2
Me.GroupBox5.TabStop = False
Me.GroupBox5.Text = "Show By Name"
'
'cmdFilter
'
Me.cmdFilter.Location = New System.Drawing.Point(216, 40)
Me.cmdFilter.Name = "cmdFilter"
Me.cmdFilter.Size = New System.Drawing.Size(96, 16)
Me.cmdFilter.TabIndex = 2
Me.cmdFilter.Text = "Show"
'
'namelist
'
Me.namelist.Location = New System.Drawing.Point(104, 16)
Me.namelist.Name = "namelist"
Me.namelist.Size = New System.Drawing.Size(208, 21)
Me.namelist.TabIndex = 1
Me.namelist.Text = "Select Name"
'
'Label1
'
Me.Label1.Location = New System.Drawing.Point(16, 24)
Me.Label1.Name = "Label1"
Me.Label1.Size = New System.Drawing.Size(80, 16)
Me.Label1.TabIndex = 0
Me.Label1.Text = "Select Name"
'
'cmdShow
'
Me.cmdShow.Location = New System.Drawing.Point(160, 16)
Me.cmdShow.Name = "cmdShow"
Me.cmdShow.Size = New System.Drawing.Size(312, 24)

54
 Me.cmdShow.TabIndex = 1
Me.cmdShow.Text = "Show All Records"
'
'GroupBox1
'
Me.GroupBox1.Controls.AddRange(New System.Windows.Forms.Control()
{Me.EmpDataGrid})
Me.GroupBox1.Location = New System.Drawing.Point(8, 3)
Me.GroupBox1.Name = "GroupBox1"
Me.GroupBox1.Size = New System.Drawing.Size(680, 320)
Me.GroupBox1.TabIndex = 2
Me.GroupBox1.TabStop = False
Me.GroupBox1.Text = "Employee Records"

.Open()
End With
Catch myexec As Exception
MsgBox(myexec.Message)
End Try
mycomm = New OleDbCommand()
mycomm.Connection = con
mycomm.CommandText = "select * from Employee"
empReader = mycomm.ExecuteReader

Do While empReader.Read()
namelist.Items.Add(empReader.GetString(1))
delidList.Items.Add(empReader.GetString(0))
Loop
empReader.Close()

End Sub

Private Sub cmdShow_Click_1(ByVal sender As System.Object, ByVal e As

System.EventArgs) Handles cmdShow.Click
Try
mycomm = New OleDbCommand()
mycomm.Connection = con
mycomm.CommandText = "select * from Employee"

empda = New OleDbDataAdapter()

empda.SelectCommand = mycomm

empds = New DataSet()

empda.Fill(empds, "Employee")

EmpDataGrid.DataSource = empds
Catch myexec As Exception
MsgBox(myexec.Message)
End Try
End Sub

Private Sub cmdFilter_Click_1(ByVal sender As System.Object, ByVal e As

System.
end WithEvents cmdShowve As System.Windows.Forms.Button
Friend WithEvents VecDataGrid As System.Windows.Forms.DataGrid
Friend WithEvents cmdFilterve As System.Windows.Forms.Button
Friend WithEvents vehiclelist As System.Windows.Forms.ComboBox
Friend WithEvents Label1 As System.Windows.Forms.Label
Friend WithEvents GroupBox5 As System.Windows.Forms.GroupBox
Friend WithEvents GroupBox2 As System.Windows.Forms.GroupBox

55
 Friend WithEvents Label2 As System.Windows.Forms.Label
Friend WithEvents txtveid As System.Windows.Forms.TextBox
Friend WithEvents txtveName As System.Windows.Forms.TextBox
Friend WithEvents Label3 As System.Windows.Forms.Label
Friend WithEvents txtveModel As System.Windows.Forms.TextBox
Friend WithEvents Label4 As System.Windows.Forms.Label
Friend WithEvents txtvecol As System.Windows.Forms.TextBox
Friend WithEvents Label5 As System.Windows.Forms.Label
Friend WithEvents txtvequ As System.Windows.Forms.TextBox
Friend WithEvents Label6 As System.Windows.Forms.Label
Friend WithEvents GroupBox4 As System.Windows.Forms.GroupBox
Friend WithEvents cmdInsert As System.Windows.Forms.Button

custReader = mycomm.ExecuteReader

Do While custReader.Read()
custlist.Items.Add(custReader.GetString(0))
clist.Items.Add(custReader.GetString(0))
Loop
custReader.Close()
End Sub

Private Sub cmdshcust_Click(ByVal sender As System.Object, ByVal e As

System.EventArgs) Handles cmdshcust.Click
mycomm = New OleDbCommand()
mycomm.Connection = con
mycomm.CommandText = "select * from customer"
Try
custda = New OleDbDataAdapter()
custda.SelectCommand = mycomm

custds = New DataSet()

custda.Fill(custds, "customer")

custDataGrid.DataSource = custds
Catch myexec As Exception
MsgBox(myexec.Message)
End Try
End Sub

Private Sub cmdli_Click(ByVal sender As System.Object, ByVal e As

System.EventArgs) Handles cmdli.Click

Try
mycomm = New OleDbCommand()
mycomm.Connection = con
mycomm.CommandText = "select * from customer where custcode='" &
Trim(custlist.Text) & "'"

custda = New OleDbDataAdapter()

custda.SelectCommand = mycomm

custds = New DataSet()

custda.Fill(custds, "customer")
custDataGrid.DataSource = custds
Catch myexec As Exception
MsgBox(myexec.Message)
End Try
End Sub
Sub cmdcustInsert_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles cmdcustInsert.Click

56
 Dim query As String
Dim msg
Dim cmdins As OleDbCommand
Try
con = New OleDbConnection()
With con
.ConnectionString = "Provider=MSDAORA.1;Password=tiger;User
ID=scott;Data Source="""""
.Open()
End With
Catch myexec As Exception
MsgBox(myexec.Message)
End Try
cmdins = New OleDbCommand()
cmdins.Connection = con
query = "insert into customer values('" & txtcucode.Text & "','" &
txtcuName.Text & "','" & txtcuaddress.Text & "','" & txtcuphone.Text & "','" &
txtcuemail.Text & "')"
cmdins.CommandText = query
Try
cmdins.ExecuteNonQuery()
MsgBox("Record Successfully Inserted", , "Congrates")
txtcucode.Text = ""
txtcuName.Text = ""
txtcuaddress.Text = ""
txtcuphone.Text = ""
txtcuemail.Text = ""
Catch myexc As Exception
MsgBox(myexc.Message)
End Try

End Sub

Private Sub clist_SelectedIndexChanged(ByVal sender As System.Object, ByVal

e As System.EventArgs) Handles clist.SelectedIndexChanged
Dim veid As String
Dim flg As Boolean
veid = Trim(clist.Text)
delread = mycomm.ExecuteReader()
Do While delread.Read()
If veid = Trim(delread.GetString(0)) Then
cname.Text = delread.GetString(1)
caddress.Text = delread.GetString(2)
cphone.Text = delread.GetString(3)
cemail.Text = delread.GetString(4)
End If
Loop
delread.Close()
End Sub
Private Sub cmdRemove_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles cmdRemove.Click
Dim query As String
Dim msg
Dim cmddel As OleDbCommand
Try
con = New OleDbConnection()
With con
.ConnectionString = "Provider=MSDAORA.1;Password=tiger;User
ID=scott;Data Source="""""
.Open()
End With

57
 Catch myexec As Exception
MsgBox(myexec.Message)
End Try
cmddel = New OleDbCommand()
cmddel.Connection = con
msg = MsgBox("Are You Sure", MsgBoxStyle.YesNo, "Warning")
If msg = 6 Then
query = "delete from customer where custcode='" & Trim(clist.Text) &
"'"
cmddel.CommandText = query
Try
cmddel.ExecuteNonQuery()
msg = MsgBox("Record Successfully Deleted", , "Congrates")
clist.Text = ""
cname.Text = ""
caddress.Text = ""
cphone.Text = ""
cemail.Text = ""
Catch myexc As Exception
MsgBox(myexc.Message)
End Try
Else
Exit Sub
End If
End Sub
Private Sub cmdCa_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles cmdCa.Click
clist.Text = ""
cname.Text = ""
caddress.Text = ""
cphone.Text = ""
cemail.Text = ""
End Sub
End Class

Spare Form
Imports System.Data
Imports System.Data.OleDb
Public Class frmSpares
Inherits System.Windows.Forms.Form
Dim con As OleDbConnection
Dim mycomm As OleDbCommand
Dim spda As OleDbDataAdapter
Dim spds As DataSet
Dim spReader As OleDbDataReader
Dim delread As OleDbDataReader
#Region " Windows Form Designer generated code "

Public Sub New()

MyBase.New()

'This call is required by the Windows Form Designer.

InitializeComponent()

'Add any initialization after the InitializeComponent() call

End Sub

'Form overrides dispose to clean up the component list.

Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)

58
 If disposing Then
If Not (components Is Nothing) Then
components.Dispose()
End If
End If
MyBase.Dispose(disposing)
End Sub

'Required by the Windows Form Designer

Private components As System.ComponentModel.IContainer

'NOTE: The following procedure is required by the Windows Form Designer

'It can be modified using the Windows Form Designer.
'Do not modify it using the code editor.
Friend WithEvents TabControl1 As System.Windows.Forms.TabControl
Friend WithEvents TabPage1 As System.Windows.Forms.TabPage
Friend WithEvents TabPage2 As System.Windows.Forms.TabPage
Friend WithEvents TabPage3 As System.Windows.Forms.TabPage
Friend WithEvents GroupBox1 As System.Windows.Forms.GroupBox
Friend WithEvents spareDataGrid As System.Windows.Forms.DataGrid
Friend WithEvents GroupBox3 As System.Windows.Forms.GroupBox
Friend WithEvents GroupBox5 As System.Windows.Forms.GroupBox
Friend WithEvents cmdFiltersp As System.Windows.Forms.Button
Friend WithEvents Label1 As System.Windows.Forms.Label
Friend WithEvents cmdShowsp As System.Windows.Forms.Button
Friend WithEvents sparelist As System.Windows.Forms.ComboBox
Friend WithEvents GroupBox2 As System.Windows.Forms.GroupBox
Friend WithEvents GroupBox4 As System.Windows.Forms.GroupBox
Friend WithEvents Label5 As System.Windows.Forms.Label
Friend WithEvents Label4 As System.Windows.Forms.Label
Friend WithEvents Label3 As System.Windows.Forms.Label
Friend WithEvents Label2 As System.Windows.Forms.Label
Friend WithEvents cmdins As System.Windows.Forms.Button
Friend WithEvents txtprice As System.Windows.Forms.TextBox
Friend WithEvents txtpn As System.Windows.Forms.TextBox
Friend WithEvents txtsn As System.Windows.Forms.TextBox
Friend WithEvents txtquantity As System.Windows.Forms.TextBox
Friend WithEvents Label6 As System.Windows.Forms.Label
Friend WithEvents mdate As System.Windows.Forms.DateTimePicker
Friend WithEvents GroupBox6 As System.Windows.Forms.GroupBox
Friend WithEvents spdom As System.Windows.Forms.DateTimePicker
Friend WithEvents spQuan As System.Windows.Forms.TextBox
Friend WithEvents Label7 As System.Windows.Forms.Label
Friend WithEvents GroupBox7 As System.Windows.Forms.GroupBox
Friend WithEvents Label8 As System.Windows.Forms.Label
Friend WithEvents spPrice As System.Windows.Forms.TextBox
Friend WithEvents Label9 As System.Windows.Forms.Label
Friend WithEvents spName As System.Windows.Forms.TextBox
Friend WithEvents Label10 As System.Windows.Forms.Label
Friend WithEvents Label11 As System.Windows.Forms.Label
Friend WithEvents spList As System.Windows.Forms.ComboBox
Friend WithEvents cmdRemove As System.Windows.Forms.Button
Friend WithEvents cmdca As System.Windows.Forms.Button
<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
Me.TabControl1 = New System.Windows.Forms.TabControl()
Me.TabPage1 = New System.Windows.Forms.TabPage()
Me.GroupBox3 = New System.Windows.Forms.GroupBox()
Me.GroupBox5 = New System.Windows.Forms.GroupBox()
Me.cmdFiltersp = New System.Windows.Forms.Button()
Me.sparelist = New System.Windows.Forms.ComboBox()
Me.Label1 = New System.Windows.Forms.Label()

59
 Me.cmdShowsp = New System.Windows.Forms.Button()
Me.GroupBox1 = New System.Windows.Forms.GroupBox()
Me.spareDataGrid = New System.Windows.Forms.DataGrid()
Me.TabPage2 = New System.Windows.Forms.TabPage()
Me.GroupBox2 = New System.Windows.Forms.GroupBox()
Me.mdate = New System.Windows.Forms.DateTimePicker()
Me.txtquantity = New System.Windows.Forms.TextBox()
Me.Label6 = New System.Windows.Forms.Label()
Me.GroupBox4 = New System.Windows.Forms.GroupBox()
Me.cmdins = New System.Windows.Forms.Button()
Me.Label5 = New System.Windows.Forms.Label()
Me.txtprice = New System.Windows.Forms.TextBox()
Me.Label4 = New System.Windows.Forms.Label()
Me.txtpn = New System.Windows.Forms.TextBox()
Me.Label3 = New System.Windows.Forms.Label()
Me.txtsn = New System.Windows.Forms.TextBox()
Me.Label2 = New System.Windows.Forms.Label()
Me.TabPage3 = New System.Windows.Forms.TabPage()
Me.GroupBox6 = New System.Windows.Forms.GroupBox()
Me.spdom = New System.Windows.Forms.DateTimePicker()
Me.spQuan = New System.Windows.Forms.TextBox()
Me.Label7 = New System.Windows.Forms.Label()
Me.GroupBox7 = New System.Windows.Forms.GroupBox()
Me.cmdRemove = New System.Windows.Forms.Button()
Me.Label8 = New System.Windows.Forms.Label()
Me.spPrice = New System.Windows.Forms.TextBox()
Me.Label9 = New System.Windows.Forms.Label()
Me.spName = New System.Windows.Forms.TextBox()
Me.Label10 = New System.Windows.Forms.Label()
Me.Label11 = New System.Windows.Forms.Label()
Me.spList = New System.Windows.Forms.ComboBox()
Me.cmdca = New System.Windows.Forms.Button()
Me.TabControl1.SuspendLayout()
Me.TabPage1.SuspendLayout()
Me.GroupBox3.SuspendLayout()
Me.GroupBox5.SuspendLayout()
Me.GroupBox1.SuspendLayout()
CType(Me.spareDataGrid,
System.ComponentModel.ISupportInitialize).BeginInit()
Me.TabPage2.SuspendLayout()
Me.GroupBox2.SuspendLayout()
Me.GroupBox4.SuspendLayout()
Me.TabPage3.SuspendLayout()
Me.GroupBox6.SuspendLayout()
Me.GroupBox7.SuspendLayout()
Me.SuspendLayout()
'
'TabControl1
'
Me.TabControl1.Controls.AddRange(New System.Windows.Forms.Control()
{Me.TabPage1, Me.TabPage2, Me.TabPage3})
Me.TabControl1.Dock = System.Windows.Forms.DockStyle.Fill
Me.TabControl1.Name = "TabControl1"
Me.TabControl1.SelectedIndex = 0
Me.TabControl1.Size = New System.Drawing.Size(704, 486)
Me.TabControl1.TabIndex = 0
'
'TabPage1
'
Me.TabPage1.Controls.AddRange(New System.Windows.Forms.Control()
{Me.GroupBox3, Me.GroupBox1})

60
 Me.TabPage1.Location = New System.Drawing.Point(4, 22)
Me.TabPage1.Name = "TabPage1"
Me.TabPage1.Size = New System.Drawing.Size(696, 460)
Me.TabPage1.TabIndex = 0
Me.TabPage1.Text = "Spare Details"
'
'GroupBox3
'
Me.GroupBox3.Controls.AddRange(New System.Windows.Forms.Control()
{Me.GroupBox5, Me.cmdShowsp})
Me.GroupBox3.Location = New System.Drawing.Point(8, 336)
Me.GroupBox3.Name = "GroupBox3"
Me.GroupBox3.Size = New System.Drawing.Size(680, 112)
Me.GroupBox3.TabIndex = 5
Me.GroupBox3.TabStop = False
'
'GroupBox5
'
Me.GroupBox5.Controls.AddRange(New System.Windows.Forms.Control()
{Me.cmdFiltersp, Me.sparelist, Me.Label1})
Me.GroupBox5.Location = New System.Drawing.Point(8, 40)
Me.GroupBox5.Name = "GroupBox5"
Me.GroupBox5.Size = New System.Drawing.Size(664, 64)
Me.GroupBox5.TabIndex = 2
Me.GroupBox5.TabStop = False
Me.GroupBox5.Text = "Show By Name"
'
'cmdFiltersp
'
Me.cmdFiltersp.Location = New System.Drawing.Point(272, 40)
Me.cmdFiltersp.Name = "cmdFiltersp"
Me.cmdFiltersp.Size = New System.Drawing.Size(96, 16)
Me.cmdFiltersp.TabIndex = 2
Me.cmdFiltersp.Text = "Show"
'
'sparelist
'
Me.sparelist.ItemHeight = 13
Me.sparelist.Location = New System.Drawing.Point(160, 16)
Me.sparelist.Name = "sparelist"
Me.sparelist.Size = New System.Drawing.Size(208, 21)
Me.sparelist.TabIndex = 1
Me.sparelist.Text = "Select Name"
'
'Label1
'
Me.Label1.Location = New System.Drawing.Point(16, 24)
Me.Label1.Name = "Label1"
Me.Label1.Size = New System.Drawing.Size(104, 16)
Me.Label1.TabIndex = 0
Me.Label1.Text = "Select Vehicle Name"
'
'cmdShowsp
'
Me.cmdShowsp.Location = New System.Drawing.Point(160, 16)
Me.cmdShowsp.Name = "cmdShowsp"
Me.cmdShowsp.Size = New System.Drawing.Size(312, 24)
Me.cmdShowsp.TabIndex = 1
Me.cmdShowsp.Text = "Show All Records"

msg = MsgBox("Record Successfully Deleted", , "Congrates")

61
 spList.Text = "Select Serial No"
spName.Text = ""
spPrice.Text = ""
spQuan.Text = ""
Catch myexc As Exception
MsgBox(myexc.Message)
End Try
Else
Exit Sub
End If
End Sub
End Class

Job Card Opening Form

Imports System.Data
Imports System.Data.OleDb
Public Class JobCard
Inherits System.Windows.Forms.Form
Dim con As OleDbConnection
Dim soldveh As OleDbCommand
Dim empda As OleDbDataAdapter
Dim empds As DataSet
Dim soldvehReader As OleDbDataReader
Dim delread As OleDbDataReader
#Region " Windows Form Designer generated code "

Public Sub New()

MyBase.New()

'This call is required by the Windows Form Designer.

InitializeComponent()

'Add any initialization after the InitializeComponent() call

End Sub

'Form overrides dispose to clean up the component list.

Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
If disposing Then
If Not (components Is Nothing) Then
components.Dispose()
End If
End If
MyBase.Dispose(disposing)
End Sub

'Required by the Windows Form Designer

Private components As System.ComponentModel.IContainer

'NOTE: The following procedure is required by the Windows Form Designer

'It can be modified using the Windows Form Designer.
'Do not modify it using the code editor.
Friend WithEvents GroupBox1 As System.Windows.Forms.GroupBox
Friend WithEvents Label1 As System.Windows.Forms.Label
Friend WithEvents Label2 As System.Windows.Forms.Label
Friend WithEvents Label3 As System.Windows.Forms.Label
Friend WithEvents Label4 As System.Windows.Forms.Label
Friend WithEvents GroupBox2 As System.Windows.Forms.GroupBox

62
Friend WithEvents Label5 As System.Windows.Forms.Label
Friend WithEvents Label6 As System.Windows.Forms.Label
Friend WithEvents Label7 As System.Windows.Forms.Label
Friend WithEvents Label8 As System.Windows.Forms.Label
Friend WithEvents Label9 As System.Windows.Forms.Label
Friend WithEvents Label10 As System.Windows.Forms.Label
Friend WithEvents Label11 As System.Windows.Forms.Label
Friend WithEvents Label12 As System.Windows.Forms.Label
Friend WithEvents Label13 As System.Windows.Forms.Label
Friend WithEvents Label14 As System.Windows.Forms.Label
Friend WithEvents Label15 As System.Windows.Forms.Label
Friend WithEvents GroupBox3 As System.Windows.Forms.GroupBox
Friend WithEvents Label24 As System.Windows.Forms.Label
Friend WithEvents Label25 As System.Windows.Forms.Label
Friend WithEvents Label26 As System.Windows.Forms.Label
Friend WithEvents Label16 As System.Windows.Forms.Label
Friend WithEvents Label17 As System.Windows.Forms.Label
Friend WithEvents GroupBox4 As System.Windows.Forms.GroupBox
Friend WithEvents Label29 As System.Windows.Forms.Label
Friend WithEvents Label30 As System.Windows.Forms.Label
Friend WithEvents Label31 As System.Windows.Forms.Label
Friend WithEvents Label18 As System.Windows.Forms.Label
Friend WithEvents Label19 As System.Windows.Forms.Label
Friend WithEvents Label20 As System.Windows.Forms.Label
Friend WithEvents datelist As System.Windows.Forms.DateTimePicker
Friend WithEvents txtsdealer As System.Windows.Forms.TextBox
Friend WithEvents txtengine As System.Windows.Forms.TextBox
Friend WithEvents cclist As System.Windows.Forms.ComboBox
Friend WithEvents txttotalamount As System.Windows.Forms.TextBox
Friend WithEvents txtlube As System.Windows.Forms.TextBox
Friend WithEvents txtoil As System.Windows.Forms.TextBox
Friend WithEvents txtparts As System.Windows.Forms.TextBox
Friend WithEvents txtmileage As System.Windows.Forms.TextBox
Friend WithEvents txtmodel As System.Windows.Forms.TextBox
Friend WithEvents txtsaledealer As System.Windows.Forms.TextBox
Friend WithEvents txtengineno As System.Windows.Forms.TextBox
Friend WithEvents saledatelist As System.Windows.Forms.DateTimePicker
Friend WithEvents paidlist As System.Windows.Forms.ComboBox
Friend WithEvents joborderdate As System.Windows.Forms.DateTimePicker
Friend WithEvents service As System.Windows.Forms.ComboBox
Friend WithEvents txtjoborderno As System.Windows.Forms.TextBox
Friend WithEvents txtemail As System.Windows.Forms.TextBox
Friend WithEvents txtph As System.Windows.Forms.TextBox
Friend WithEvents txtmech As System.Windows.Forms.TextBox
Friend WithEvents txtrec As System.Windows.Forms.TextBox
Friend WithEvents txtbill As System.Windows.Forms.TextBox
Friend WithEvents txtdeli As System.Windows.Forms.TextBox
Friend WithEvents cmdSave As System.Windows.Forms.Button
Friend WithEvents cmdCancel As System.Windows.Forms.Button
Friend WithEvents ddate As System.Windows.Forms.DateTimePicker
Friend WithEvents regList As System.Windows.Forms.ComboBox
Friend WithEvents cmdTotal As System.Windows.Forms.Button
<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
Me.GroupBox1 = New System.Windows.Forms.GroupBox()
Me.cmdCancel = New System.Windows.Forms.Button()
Me.cmdSave = New System.Windows.Forms.Button()
Me.GroupBox4 = New System.Windows.Forms.GroupBox()
Me.ddate = New System.Windows.Forms.DateTimePicker()
Me.txtbill = New System.Windows.Forms.TextBox()
Me.txtdeli = New System.Windows.Forms.TextBox()
Me.txtmech = New System.Windows.Forms.TextBox()

63
 Me.Label19 = New System.Windows.Forms.Label()
Me.txtrec = New System.Windows.Forms.TextBox()
Me.Label20 = New System.Windows.Forms.Label()
Me.Label18 = New System.Windows.Forms.Label()
Me.Label29 = New System.Windows.Forms.Label()
Me.Label30 = New System.Windows.Forms.Label()
Me.Label31 = New System.Windows.Forms.Label()
Me.datelist = New System.Windows.Forms.DateTimePicker()
Me.GroupBox3 = New System.Windows.Forms.GroupBox()
Me.txtemail = New System.Windows.Forms.TextBox()
Me.txtph = New System.Windows.Forms.TextBox()
Me.Label16 = New System.Windows.Forms.Label()
Me.Label17 = New System.Windows.Forms.Label()
Me.txtsdealer = New System.Windows.Forms.TextBox()
Me.txtengine = New System.Windows.Forms.TextBox()
Me.cclist = New System.Windows.Forms.ComboBox()
Me.Label24 = New System.Windows.Forms.Label()
Me.Label25 = New System.Windows.Forms.Label()
Me.Label26 = New System.Windows.Forms.Label()
Me.GroupBox2 = New System.Windows.Forms.GroupBox()
Me.regList = New System.Windows.Forms.ComboBox()
Me.txttotalamount = New System.Windows.Forms.TextBox()
Me.Label15 = New System.Windows.Forms.Label()
Me.txtlube = New System.Windows.Forms.TextBox()
Me.Label14 = New System.Windows.Forms.Label()
Me.txtoil = New System.Windows.Forms.TextBox()
Me.Label13 = New System.Windows.Forms.Label()
Me.txtparts = New System.Windows.Forms.TextBox()
Me.Label12 = New System.Windows.Forms.Label()
Me.Label11 = New System.Windows.Forms.Label()
Me.Label8 = New System.Windows.Forms.Label()
Me.txtmileage = New System.Windows.Forms.TextBox()
Me.Label9 = New System.Windows.Forms.Label()
Me.txtmodel = New System.Windows.Forms.TextBox()
Me.Label10 = New System.Windows.Forms.Label()
Me.txtsaledealer = New System.Windows.Forms.TextBox()
Me.Label7 = New System.Windows.Forms.Label()
Me.txtengineno = New System.Windows.Forms.TextBox()
Me.Label6 = New System.Windows.Forms.Label()
Me.Label5 = New System.Windows.Forms.Label()
Me.saledatelist = New System.Windows.Forms.DateTimePicker()
Me.paidlist = New System.Windows.Forms.ComboBox()
Me.Label4 = New System.Windows.Forms.Label()
Me.joborderdate = New System.Windows.Forms.DateTimePicker()
Me.Label3 = New System.Windows.Forms.Label()
Me.service = New System.Windows.Forms.ComboBox()
Me.Label2 = New System.Windows.Forms.Label()
Me.txtjoborderno = New System.Windows.Forms.TextBox()
Me.Label1 = New System.Windows.Forms.Label()
Me.cmdTotal = New System.Windows.Forms.Button()
Me.GroupBox1.SuspendLayout()
Me.GroupBox4.SuspendLayout()
Me.GroupBox3.SuspendLayout()
Me.GroupBox2.SuspendLayout()
Me.SuspendLayout()
'
'GroupBox1
'
Me.GroupBox1.Controls.AddRange(New System.Windows.Forms.Control()
{Me.cmdCancel, Me.cmdSave, Me.GroupBox4, Me.GroupBox3, Me.GroupBox2,

64
Me.paidlist, Me.Label4, Me.joborderdate, Me.Label3, Me.service, Me.Label2,
Me.txtjoborderno, Me.Label1})
Me.GroupBox1.Dock = System.Windows.Forms.DockStyle.Fill
Me.GroupBox1.Name = "GroupBox1"
Me.GroupBox1.Size = New System.Drawing.Size(728, 526)
Me.GroupBox1.TabIndex = 0
Me.GroupBox1.TabStop = False
Me.GroupBox1.Text = "Job Card Opening"
'
'cmdCancel
'
Me.cmdCancel.Location = New System.Drawing.Point(320, 504)
Me.cmdCancel.Name = "cmdCancel"
Me.cmdCancel.Size = New System.Drawing.Size(88, 16)
Me.cmdCancel.TabIndex = 12
Me.cmdCancel.Text = "Cancel"
'
'cmdSave
'
Me.cmdSave.Location = New System.Drawing.Point(224, 504)
Me.cmdSave.Name = "cmdSave"
Me.cmdSave.Size = New System.Drawing.Size(88, 16)
Me.cmdSave.TabIndex = 11
Me.cmdSave.Text = "Save"
'
'GroupBox4
'
Me.GroupBox4.Controls.AddRange(New System.Windows.Forms.Control()
{Me.ddate, Me.txtbill, Me.txtdeli, Me.txtmech, Me.Label19, Me.txtrec,
Me.Label20, Me.Label18, Me.Label29, Me.Label30, Me.Label31, Me.datelist})
Me.GroupBox4.Location = New System.Drawing.Point(8, 328)
Me.GroupBox4.Name = "GroupBox4"
Me.GroupBox4.Size = New System.Drawing.Size(712, 168)
Me.GroupBox4.TabIndex = 10
Me.GroupBox4.TabStop = False
'
'ddate
'
Me.ddate.CustomFormat = "d-MMM-yy"
Me.ddate.Format = System.Windows.Forms.DateTimePickerFormat.Custom
Me.ddate.Location = New System.Drawing.Point(168, 40)
Me.ddate.Name = "ddate"
Me.ddate.Size = New System.Drawing.Size(160, 20)
Me.ddate.TabIndex = 35
'
'txtbill
'
Me.txtbill.Location = New System.Drawing.Point(168, 136)
Me.txtbill.Name = "txtbill"
Me.txtbill.Size = New System.Drawing.Size(160, 20)
Me.txtbill.TabIndex = 34
Me.txtbill.Text = ""
'
'txtdeli
'
Me.txtdeli.Location = New System.Drawing.Point(168, 112)
Me.txtdeli.Name = "txtdeli"
Me.txtdeli.Size = New System.Drawing.Size(160, 20)
Me.txtdeli.TabIndex = 32
Me.txtdeli.Text = ""
'

65
'txtmech
'
Me.txtmech.Location = New System.Drawing.Point(168, 88)
Me.txtmech.Name = "txtmech"
Me.txtmech.Size = New System.Drawing.Size(160, 20)
Me.txtmech.TabIndex = 30
Me.txtmech.Text = ""
'
'Label19
'
Me.Label19.AutoSize = True
Me.Label19.Location = New System.Drawing.Point(72, 132)
Me.Label19.Name = "Label19"
Me.Label19.Size = New System.Drawing.Size(35, 13)
Me.Label19.TabIndex = 29
Me.Label19.Text = "Bill No"
'
'txtrec
'
Me.txtrec.Location = New System.Drawing.Point(168, 64)
Me.txtrec.Name = "txtrec"
Me.txtrec.Size = New System.Drawing.Size(160, 20)
Me.txtrec.TabIndex = 28
Me.txtrec.Text = ""
'
'Label20
'
Me.Label20.AutoSize = True
Me.Label20.Location = New System.Drawing.Point(72, 108)
Me.Label20.Name = "Label20"
Me.Label20.Size = New System.Drawing.Size(65, 13)
Me.Label20.TabIndex = 27
Me.Label20.Text = "Delivered By"
'
'Label18
'
Me.Label18.AutoSize = True
Me.Label18.Location = New System.Drawing.Point(72, 84)
Me.Label18.Name = "Label18"
Me.Label18.Size = New System.Drawing.Size(81, 13)
Me.Label18.TabIndex = 25
Me.Label18.Text = "Mechanic Name"
'
'Label29
'
Me.Label29.AutoSize = True
Me.Label29.Location = New System.Drawing.Point(72, 60)
Me.Label29.Name = "Label29"
Me.Label29.Size = New System.Drawing.Size(63, 13)
Me.Label29.TabIndex = 5
Me.Label29.Text = "Received By"
'
'Label30
'
Me.Label30.AutoSize = True
Me.Label30.Location = New System.Drawing.Point(72, 36)
Me.Label30.Name = "Label30"
Me.Label30.Size = New System.Drawing.Size(75, 13)
Me.Label30.TabIndex = 3
Me.Label30.Text = "Delivered Date"
'

66
 'Label31
'
Me.Label31.AutoSize = True
Me.Label31.Location = New System.Drawing.Point(75, 12)
Me.Label31.Name = "Label31"
Me.Label31.Size = New System.Drawing.Size(65, 13)
Me.Label31.TabIndex = 1
Me.Label31.Text = "Prompt Date"
'
'datelist
'
Me.datelist.CustomFormat = "d-MMM-yy"
Me.datelist.Format = System.Windows.Forms.DateTimePickerFormat.Custom
Me.datelist.Location = New System.Drawing.Point(168, 12)
Me.datelist.Name = "datelist"
Me.datelist.Size = New System.Drawing.Size(160, 20)
Me.datelist.TabIndex = 22
'
'GroupBox3
'
Me.GroupBox3.Controls.AddRange(New System.Windows.Forms.Control()
{Me.txtemail, Me.txtph, Me.Label16, Me.Label17, Me.txtsdealer, Me.txtengine,
Me.cclist, Me.Label24, Me.Label25, Me.Label26})
Me.GroupBox3.Location = New System.Drawing.Point(8, 221)
Me.GroupBox3.Name = "GroupBox3"
Me.GroupBox3.Size = New System.Drawing.Size(712, 104)
Me.GroupBox3.TabIndex = 9
Me.GroupBox3.TabStop = False
'
'txtemail
'
Me.txtemail.Location = New System.Drawing.Point(464, 40)
Me.txtemail.Name = "txtemail"
Me.txtemail.Size = New System.Drawing.Size(160, 20)
Me.txtemail.TabIndex = 18
Me.txtemail.Text = ""
'
'txtph
'
Me.txtph.Location = New System.Drawing.Point(464, 16)
Me.txtph.Name = "txtph"
Me.txtph.Size = New System.Drawing.Size(160, 20)
Me.txtph.TabIndex = 17
Me.txtph.Text = ""
'
'Label16
'
Me.txtsn.TabIndex = 1
Me.txtsn.Text = ""
'
'Label1
'
Me.Label1.AutoSize = True
Me.Label1.Location = New System.Drawing.Point(16, 16)
Me.Label1.Name = "Label1"
Me.Label1.Size = New System.Drawing.Size(54, 13)
Me.Label1.TabIndex = 0
Me.Label1.Text = "Serial No."
'
'TabPage2
'

67
 Me.TabPage2.Controls.AddRange(New System.Windows.Forms.Control()
{Me.GroupBox2, Me.cmdest})
Me.TabPage2.Location = New System.Drawing.Point(4, 22)
Me.TabPage2.Name = "TabPage2"
Me.TabPage2.Size = New System.Drawing.Size(712, 468)
Me.TabPage2.TabIndex = 1
Me.TabPage2.Text = "Estimate List"
'
'GroupBox2
'
Me.GroupBox2.Controls.AddRange(New System.Windows.Forms.Control()
{Me.EstimateDataGrid})
Me.GroupBox2.Location = New System.Drawing.Point(8, 8)
Me.GroupBox2.Name = "GroupBox2"
Me.GroupBox2.Size = New System.Drawing.Size(680, 320)
Me.GroupBox2.TabIndex = 5
Me.GroupBox2.TabStop = False
Me.GroupBox2.Text = "Show Estimate List"
'
'EstimateDataGrid
'
Me.EstimateDataGrid.DataMember = ""
Me.EstimateDataGrid.HeaderForeColor =
System.Drawing.SystemColors.ControlText
Me.EstimateDataGrid.Location = New System.Drawing.Point(8, 16)
Me.EstimateDataGrid.Name = "EstimateDataGrid"
Me.EstimateDataGrid.Size = New System.Drawing.Size(664, 296)
Me.EstimateDataGrid.TabIndex = 0
'
'cmdest
'
Me.cmdest.Location = New System.Drawing.Point(288, 336)
Me.cmdest.Name = "cmdest"
Me.cmdest.Size = New System.Drawing.Size(208, 24)
Me.cmdest.TabIndex = 6
Me.cmdest.Text = "Show Vehical List"
'
'frmestimate
'
Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
Me.ClientSize = New System.Drawing.Size(720, 494)
Me.Controls.AddRange(New System.Windows.Forms.Control()
{Me.TabControl1})
Me.Name = "frmestimate"
Me.Text = "Estimate"
Me.TabControl1.ResumeLayout(False)
Me.TabPage1.ResumeLayout(False)
Me.TabPage2.ResumeLayout(False)
Me.GroupBox2.ResumeLayout(False)
CType(Me.EstimateDataGrid,
System.ComponentModel.ISupportInitialize).EndInit()
Me.ResumeLayout(False)

End Sub

#End Region
Dim con As OleDbConnection
Dim mycomm As OleDbCommand
Dim esda As OleDbDataAdapter
Dim esds As DataSet
Dim esReader As OleDbDataReader

68
 Private Sub frmestimate_Load(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles MyBase.Load
Try
con = New OleDbConnection()
With con
.ConnectionString = "Provider=MSDAORA.1;Password=tiger;User
ID=scott;Data Source="""""
.Open()
End With
Catch myexec As Exception
MsgBox(myexec.Message)
End Try
End Sub

Private Sub cmdreg_Click_1(ByVal sender As System.Object, ByVal e As

System.EventArgs) Handles cmdreg.Click
txttec.Text = Val(txtcodp.Text) + Val(txtlc.Text)
Dim query As String
Dim cmdins As OleDbCommand
Try
con = New OleDbConnection()
With con
.ConnectionString = "Provider=MSDAORA.1;Password=tiger;User
ID=scott;Data Source="""""
.Open()
End With
Catch myexec As Exception
MsgBox(myexec.Message)
End Try
cmdins = New OleDbCommand()
cmdins.Connection = con
query = "insert into estimate values('" & txtsn.Text & "','" &
txten.Text & "','" & txtvn.Text & "','" & Val(txtcodp.Text) & "','" &
Val(txtlc.Text) & "','" & Val(txttec.Text) & "')"
cmdins.CommandText = query
Try
cmdins.ExecuteNonQuery()
MsgBox("Record Successfully Inserted", , "Congrates")
txtsn.Text = ""
txten.Text = ""
txtvn.Text = ""
txtcodp.Text = ""
txtlc.Text = ""
Me.CheckBox1.TabIndex = 0
Me.CheckBox1.Text = "Promptness of Service Advisior"
'
'GroupBox3
'
Me.GroupBox3.Controls.AddRange(New System.Windows.Forms.Control()
{Me.txtphone, Me.Label11, Me.txtAddress, Me.Label10, Me.txtName, Me.Label9,
Me.Label12, Me.txtcomment})
Me.GroupBox3.Location = New System.Drawing.Point(8, 169)
Me.GroupBox3.Name = "GroupBox3"
Me.GroupBox3.Size = New System.Drawing.Size(384, 263)
Me.GroupBox3.TabIndex = 1
Me.GroupBox3.TabStop = False
'
'txtphone
'
Me.txtphone.Location = New System.Drawing.Point(104, 136)
Me.txtphone.Name = "txtphone"

69
 Me.txtphone.Size = New System.Drawing.Size(224, 20)
Me.txtphone.TabIndex = 22
Me.txtphone.Text = ""
'
'Label11
'
Me.Label11.AutoSize = True
Me.Label11.Location = New System.Drawing.Point(8, 136)
Me.Label11.Name = "Label11"
Me.Label11.Size = New System.Drawing.Size(37, 13)
Me.Label11.TabIndex = 21
Me.Label11.Text = "Phone"
'
'txtAddress
'
Me.txtAddress.Location = New System.Drawing.Point(104, 48)
Me.txtAddress.Multiline = True
Me.txtAddress.Name = "txtAddress"
Me.txtAddress.Size = New System.Drawing.Size(224, 80)
Me.txtAddress.TabIndex = 20
Me.txtAddress.Text = ""
'
'Label10
'
Me.Label10.AutoSize = True
Me.Label10.Location = New System.Drawing.Point(8, 48)
Me.Label10.Name = "Label10"
Me.Label10.Size = New System.Drawing.Size(46, 13)
Me.Label10.TabIndex = 19
Me.Label10.Text = "Address"
'
'txtName
'
Me.txtName.Location = New System.Drawing.Point(104, 16)
Me.txtName.Name = "txtName"
Me.txtName.Size = New System.Drawing.Size(224, 20)
Me.txtName.TabIndex = 18
Me.txtName.Text = ""
'
'Label9
'

Private Sub cmdSave_Click(ByVal sender As System.Object, ByVal e As

System.EventArgs) Handles cmdSave.Click
Dim query As String
Dim r As String
If excellent.Checked = True Then
r = "Excellent"
ElseIf good.Checked = True Then
r = "Good"
ElseIf fair.Checked = True Then
r = "Fair"
ElseIf poor.Checked = True Then
r = "Poor"
End If
Dim cmdins As OleDbCommand
Try
con = New OleDbConnection()
With con

70
 .ConnectionString = "Provider=MSDAORA.1;Password=tiger;User
ID=scott;Data Source="""""
.Open()
End With
Catch myexec As Exception
MsgBox(myexec.Message)
End Try
cmdins = New OleDbCommand()
cmdins.Connection = con
query = "insert into responce values('" & txtCard.Text & "','" &
joblist.Text & "','" & txtreg.Text & "','" & Format(resdate.Value, "d-MMM-yy") &
"','" & txtName.Text & "','" & txtAddress.Text & "','" & txtphone.Text & "','" &
txtcomment.Text & "','" & r & "')"
cmdins.CommandText = query
Try
cmdins.ExecuteNonQuery()
MsgBox("Responce Successfully Registered", , "Congrates")
txtCard.Text = ""
joblist.Text = ""
txtreg.Text = ""
txtName.Text = ""
txtAddress.Text = ""
txtphone.Text = ""
txtcomment.Text = ""
Catch myexc As Exception
MsgBox(myexc.Message)
End Try
End Sub

Private Sub cmdCancel_Click(ByVal sender As System.Object, ByVal e As

System.EventArgs) Handles cmdCancel.Click
txtCard.Text = ""
joblist.Text = ""
txtreg.Text = ""
txtName.Text = ""
txtAddress.Text = ""
txtphone.Text = ""
txtcomment.Text = ""
End Sub
End Class

Me.cgrid.HeaderForeColor = System.Drawing.SystemColors.ControlText
Me.cgrid.Location = New System.Drawing.Point(8, 16)
Me.cgrid.Name = "cgrid"
Me.cgrid.Size = New System.Drawing.Size(280, 400)
Me.cgrid.TabIndex = 0
'
'Comp1
'
Me.Comp1.DataSetName = "comp"
Me.Comp1.Locale = New System.Globalization.CultureInfo("en-US")
Me.Comp1.Namespace = "http://www.tempuri.org/comp.xsd"
'
'cmdc
'
Me.cmdc.Location = New System.Drawing.Point(256, 224)
Me.cmdc.Name = "cmdc"
Me.cmdc.Size = New System.Drawing.Size(104, 24)
Me.cmdc.TabIndex = 9
Me.cmdc.Text = "Cancel"

71
'
'cmdreg
'
Me.cmdreg.Location = New System.Drawing.Point(120, 224)
Me.cmdreg.Name = "cmdreg"
Me.cmdreg.Size = New System.Drawing.Size(136, 24)
Me.cmdreg.TabIndex = 8
Me.cmdreg.Text = "Register Complain"
'
'Label4
'
Me.Label4.AutoSize = True
Me.Label4.Location = New System.Drawing.Point(32, 192)
Me.Label4.Name = "Label4"
Me.Label4.Size = New System.Drawing.Size(75, 13)
Me.Label4.TabIndex = 7
Me.Label4.Text = "Complain Date"
'
'comdate
'
Me.comdate.CustomFormat = "d-MMM-yy"
Me.comdate.Format = System.Windows.Forms.DateTimePickerFormat.Custom
Me.comdate.Location = New System.Drawing.Point(120, 192)
Me.comdate.Name = "comdate"
Me.comdate.Size = New System.Drawing.Size(160, 20)
Me.comdate.TabIndex = 6
'
'txtcomp
'
Me.txtcomp.Location = New System.Drawing.Point(120, 80)
Me.txtcomp.Multiline = True
Me.txtcomp.Name = "txtcomp"
Me.txtcomp.Size = New System.Drawing.Size(240, 104)
Me.txtcomp.TabIndex = 5
Me.txtcomp.Text = ""
'
'Label3
'
Me.Label3.AutoSize = True
Me.Label3.Location = New System.Drawing.Point(32, 80)
Me.Label3.Name = "Label3"
Me.Label3.Size = New System.Drawing.Size(49, 13)
Me.Label3.TabIndex = 4
Me.Label3.Text = "Complain"
'
'cname
'
Me.cname.Location = New System.Drawing.Point(120, 56)
Me.cname.Name = "cname"
Me.cname.Size = New System.Drawing.Size(240, 20)
Me.cname.TabIndex = 3
Me.cname.Text = ""
'
'Label2
'
Me.Label2.AutoSize = True
Me.Label2.Location = New System.Drawing.Point(32, 56)
Me.Label2.Name = "Label2"
Me.Label2.Size = New System.Drawing.Size(32, 13)
Me.Label2.TabIndex = 2
Me.Label2.Text = "Name"

72
 '
'codelist
'
Me.codelist.Location = New System.Drawing.Point(120, 24)
Me.codelist.Name = "codelist"
Me.codelist.Size = New System.Drawing.Size(128, 21)
Me.codelist.TabIndex = 1
Me.codelist.Text = "Customer Code"
'
'Label1
'
Me.Label1.AutoSize = True
Me.Label1.Location = New System.Drawing.Point(32, 32)
Me.Label1.Name = "Label1"
Me.Label1.Size = New System.Drawing.Size(78, 13)
Me.Label1.TabIndex = 0
Me.Label1.Text = "Customer Code"
'
'OleDbSelectCommand1
'
Me.OleDbSelectCommand1.CommandText = "SELECT CUSTCODE, NAME, ADDRESS,
PHONE, EMAIL FROM CUSTOMER"
Me.OleDbSelectCommand1.Connection = Me.OleDbConnection1
'
'OleDbConnection1
'
Me.OleDbConnection1.ConnectionString =
"Provider=MSDAORA.1;Password=tiger;User ID=scott;Data Source="""""
'
'OleDbInsertCommand1
'
Me.OleDbInsertCommand1.CommandText = "INSERT INTO CUSTOMER(CUSTCODE,
NAME, ADDRESS, PHONE, EMAIL) VALUES (?, ?, ?, ?, ?" & _
")"
Me.OleDbInsertCommand1.Connection = Me.OleDbConnection1
Me.OleDbInsertCommand1.Parameters.Add(New
System.Data.OleDb.OleDbParameter("CUSTCODE",
System.Data.OleDb.OleDbType.VarChar, 15, "CUSTCODE"))
Me.OleDbInsertCommand1.Parameters.Add(New
System.Data.OleDb.OleDbParameter("NAME", System.Data.OleDb.OleDbType.VarChar,
30, "NAME"))
Me.OleDbInsertCommand1.Parameters.Add(New
System.Data.OleDb.OleDbParameter("ADDRESS", System.Data.OleDb.OleDbType.VarChar,
30, "ADDRESS"))
Me.OleDbInsertCommand1.Parameters.Add(New
System.Data.OleDb.OleDbParameter("PHONE", System.Data.OleDb.OleDbType.VarChar,
15, "PHONE"))
Me.OleDbInsertCommand1.Parameters.Add(New
System.Data.OleDb.OleDbParameter("EMAIL", System.Data.OleDb.OleDbType.VarChar,
25, "EMAIL"))
'
'OleDbUpdateCommand1
'
Me.OleDbUpdateCommand1.CommandText = "UPDATE CUSTOMER SET CUSTCODE = ?,
NAME = ?, ADDRESS = ?, PHONE = ?, EMAIL = ? WHE" & _
"RE (CUSTCODE = ?) AND (ADDRESS = ? OR ? IS NULL AND ADDRESS IS NULL)
AND (EMAIL " & _
"= ? OR ? IS NULL AND EMAIL IS NULL) AND (NAME = ? OR ? IS NULL AND NAME
IS NULL)" & _
" AND (PHONE = ? OR ? IS NULL AND PHONE IS NULL)"
Me.OleDbUpdateCommand1.Connection = Me.OleDbConnection1

73
 Me.OleDbUpdateCommand1.Parameters.Add(New
System.Data.OleDb.OleDbParameter("CUSTCODE",
System.Data.OleDb.OleDbType.VarChar, 15, "CUSTCODE"))
Me.OleDbUpdateCommand1.Parameters.Add(New
System.Data.OleDb.OleDbParameter("NAME", System.Data.OleDb.OleDbType.VarChar,
30, "NAME"))
Me.OleDbUpdateCommand1.Parameters.Add(New
System.Data.OleDb.OleDbParameter("ADDRESS", System.Data.OleDb.OleDbType.VarChar,
30, "ADDRESS"))
Me.OleDbUpdateCommand1.Parameters.Add(New
System.Data.OleDb.OleDbParameter("PHONE", System.Data.OleDb.OleDbType.VarChar,
15, "PHONE"))
Me.OleDbUpdateCommand1.Parameters.Add(New
System.Data.OleDb.OleDbParameter("EMAIL", System.Data.OleDb.OleDbType.VarChar,
25, "EMAIL"))
Me.OleDbUpdateCommand1.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_CUSTCODE",
System.Data.OleDb.OleDbType.VarChar, 15, System.Data.ParameterDirection.Input,
False, CType(0, Byte), CType(0, Byte), "CUSTCODE",
System.Data.DataRowVersion.Original, Nothing))
Me.OleDbUpdateCommand1.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_ADDRESS",
System.Data.OleDb.OleDbType.VarChar, 30, System.Data.ParameterDirection.Input,
False, CType(0, Byte), CType(0, Byte), "ADDRESS",
System.Data.DataRowVersion.Original, Nothing))
Me.OleDbUpdateCommand1.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_ADDRESS1",
System.Data.OleDb.OleDbType.VarChar, 30, System.Data.ParameterDirection.Input,
False, CType(0, Byte), CType(0, Byte), "ADDRESS",
System.Data.DataRowVersion.Original, Nothing))
Me.OleDbUpdateCommand1.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_EMAIL",
System.Data.OleDb.OleDbType.VarChar, 25, System.Data.ParameterDirection.Input,
False, CType(0, Byte), CType(0, Byte), "EMAIL",
System.Data.DataRowVersion.Original, Nothing))
Me.OleDbUpdateCommand1.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_EMAIL1",
System.Data.OleDb.OleDbType.VarChar, 25, System.Data.ParameterDirection.Input,
False, CType(0, Byte), CType(0, Byte), "EMAIL",
System.Data.DataRowVersion.Original, Nothing))
Me.OleDbUpdateCommand1.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_NAME",
System.Data.OleDb.OleDbType.VarChar, 30, System.Data.ParameterDirection.Input,
False, CType(0, Byte), CType(0, Byte), "NAME",
System.Data.DataRowVersion.Original, Nothing))
Me.OleDbUpdateCommand1.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_NAME1",
System.Data.OleDb.OleDbType.VarChar, 30, System.Data.ParameterDirection.Input,
False, CType(0, Byte), CType(0, Byte), "NAME",
System.Data.DataRowVersion.Original, Nothing))
Me.OleDbUpdateCommand1.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_PHONE",
System.Data.OleDb.OleDbType.VarChar, 15, System.Data.ParameterDirection.Input,
False, CType(0, Byte), CType(0, Byte), "PHONE",
System.Data.DataRowVersion.Original, Nothing))
Me.OleDbUpdateCommand1.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_PHONE1",
System.Data.OleDb.OleDbType.VarChar, 15, System.Data.ParameterDirection.Input,
False, CType(0, Byte), CType(0, Byte), "PHONE",
System.Data.DataRowVersion.Original, Nothing))
'

74
 'OleDbDeleteCommand1
'
Me.OleDbDeleteCommand1.CommandText = "DELETE FROM CUSTOMER WHERE
(CUSTCODE = ?) AND (ADDRESS = ? OR ? IS NULL AND ADDRE" & _
"SS IS NULL) AND (EMAIL = ? OR ? IS NULL AND EMAIL IS NULL) AND (NAME =
? OR ? IS" & _
" NULL AND NAME IS NULL) AND (PHONE = ? OR ? IS NULL AND PHONE IS NULL)"
Me.OleDbDeleteCommand1.Connection = Me.OleDbConnection1
Me.OleDbDeleteCommand1.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_CUSTCODE",
System.Data.OleDb.OleDbType.VarChar, 15, System.Data.ParameterDirection.Input,
False, CType(0, Byte), CType(0, Byte), "CUSTCODE",
System.Data.DataRowVersion.Original, Nothing))
Me.OleDbDeleteCommand1.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_ADDRESS",
System.Data.OleDb.OleDbType.VarChar, 30, System.Data.ParameterDirection.Input,
False, CType(0, Byte), CType(0, Byte), "ADDRESS",
System.Data.DataRowVersion.Original, Nothing))
Me.OleDbDeleteCommand1.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_ADDRESS1",
System.Data.OleDb.OleDbType.VarChar, 30, System.Data.ParameterDirection.Input,
False, CType(0, Byte), CType(0, Byte), "ADDRESS",
System.Data.DataRowVersion.Original, Nothing))
Me.OleDbDeleteCommand1.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_EMAIL",
System.Data.OleDb.OleDbType.VarChar, 25, System.Data.ParameterDirection.Input,
False, CType(0, Byte), CType(0, Byte), "EMAIL",
System.Data.DataRowVersion.Original, Nothing))
Me.OleDbDeleteCommand1.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_EMAIL1",
System.Data.OleDb.OleDbType.VarChar, 25, System.Data.ParameterDirection.Input,
False, CType(0, Byte), CType(0, Byte), "EMAIL",
System.Data.DataRowVersion.Original, Nothing))
Me.OleDbDeleteCommand1.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_NAME",
System.Data.OleDb.OleDbType.VarChar, 30, System.Data.ParameterDirection.Input,
False, CType(0, Byte), CType(0, Byte), "NAME",
System.Data.DataRowVersion.Original, Nothing))
Me.OleDbDeleteCommand1.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_NAME1",
System.Data.OleDb.OleDbType.VarChar, 30, System.Data.ParameterDirection.Input,
False, CType(0, Byte), CType(0, Byte), "NAME",
System.Data.DataRowVersion.Original, Nothing))
Me.OleDbDeleteCommand1.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_PHONE",
System.Data.OleDb.OleDbType.VarChar, 15, System.Data.ParameterDirection.Input,
False, CType(0, Byte), CType(0, Byte), "PHONE",
System.Data.DataRowVersion.Original, Nothing))
Me.OleDbDeleteCommand1.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_PHONE1",
System.Data.OleDb.OleDbType.VarChar, 15, System.Data.ParameterDirection.Input,
False, CType(0, Byte), CType(0, Byte), "PHONE",
System.Data.DataRowVersion.Original, Nothing))
'
'OleDbDataAdapter1
'
Me.OleDbDataAdapter1.DeleteCommand = Me.OleDbDeleteCommand1
Me.OleDbDataAdapter1.InsertCommand = Me.OleDbInsertCommand1
Me.OleDbDataAdapter1.SelectCommand = Me.OleDbSelectCommand1
Me.OleDbDataAdapter1.TableMappings.AddRange(New
System.Data.Common.DataTableMapping() {New

75
System.Data.Common.DataTableMapping("Table", "CUSTOMER", New
System.Data.Common.DataColumnMapping() {New
System.Data.Common.DataColumnMapping("CUSTCODE", "CUSTCODE"), New
System.Data.Common.DataColumnMapping("NAME", "NAME"), New
System.Data.Common.DataColumnMapping("ADDRESS", "ADDRESS"), New
System.Data.Common.DataColumnMapping("PHONE", "PHONE"), New
System.Data.Common.DataColumnMapping("EMAIL", "EMAIL")})})
Me.OleDbDataAdapter1.UpdateCommand = Me.OleDbUpdateCommand1
'
'frmComplain
'
Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
Me.ClientSize = New System.Drawing.Size(704, 486)
Me.Controls.AddRange(New System.Windows.Forms.Control() {Me.GroupBox1})
Me.Name = "frmComplain"
Me.Text = "Customer Complain"
Me.GroupBox1.ResumeLayout(False)
Me.GroupBox2.ResumeLayout(False)
CType(Me.cgrid, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.Comp1, System.ComponentModel.ISupportInitialize).EndInit()
Me.ResumeLayout(False)

End Sub

#End Region
Private Sub frmspares_Load(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles MyBase.Load
Try
con = New OleDbConnection()
With con
.ConnectionString = "Provider=MSDAORA.1;Password=tiger;User
ID=scott;Data Source="""""
.Open()
End With
Catch myexec As Exception
MsgBox(myexec.Message)
End Try
mycomm = New OleDbCommand()
mycomm.Connection = con
mycomm.CommandText = "select * from customer"
cuReader = mycomm.ExecuteReader

Do While cuReader.Read()
codelist.Items.Add(cuReader.GetString(0))
Loop
cuReader.Close()

Comp1.Clear()
OleDbDataAdapter1.Fill(Comp1)
End Sub

Private Sub codelist_SelectedIndexChanged(ByVal sender As System.Object,

ByVal e As System.EventArgs) Handles codelist.SelectedIndexChanged
mycomm = New OleDbCommand()
mycomm.Connection = con
mycomm.CommandText = "select * from customer"
Dim cid As String
cid = Trim(codelist.Text)
delread = mycomm.ExecuteReader()
Do While delread.Read()
If Trim(codelist.Text) = Trim(delread.GetString(0)) Then

76
 cname.Text = delread.GetString(1)
Exit Do
End If
Loop
delread.Close()
End Sub

Private Sub cmdreg_Click(ByVal sender As System.Object, ByVal e As

System.EventArgs) Handles cmdreg.Click
Dim query As String
Dim cmdins As OleDbCommand
Try
con = New OleDbConnection()
With con
.ConnectionString = "Provider=MSDAORA.1;Password=tiger;User
ID=scott;Data Source="""""
.Open()
End With
Catch myexec As Exception
MsgBox(myexec.Message)
End Try
cmdins = New OleDbCommand()
cmdins.Connection = con
query = "insert into complain values('" & Trim(codelist.Text) & "','" &
Trim(cname.Text) & "','" & Trim(txtcomp.Text) & "','" & comdate.Text & "')"
cmdins.CommandText = query
Try
cmdins.ExecuteNonQuery()
MsgBox("Complain Registered", , "Congrates")
codelist.Text = "Select Customer Code"
cname.Text = ""
txtcomp.Text = ""
'Add any initialization after the InitializeComponent() call

End Sub

'Form overrides dispose to clean up the component list.

Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
If disposing Then
If Not (components Is Nothing) Then
components.Dispose()
End If
End If
MyBase.Dispose(disposing)
End Sub

'Required by the Windows Form Designer

Private components As System.ComponentModel.IContainer

'NOTE: The following procedure is required by the Windows Form Designer

'It can be modified using the Windows Form Designer.
'Do not modify it using the code editor.
Friend WithEvents TabControl1 As System.Windows.Forms.TabControl
Friend WithEvents TabPage1 As System.Windows.Forms.TabPage
Friend WithEvents TabPage2 As System.Windows.Forms.TabPage
Friend WithEvents GroupBox1 As System.Windows.Forms.GroupBox
Friend WithEvents Label1 As System.Windows.Forms.Label
Friend WithEvents txtsno As System.Windows.Forms.TextBox
Friend WithEvents txteng As System.Windows.Forms.TextBox
Friend WithEvents Label2 As System.Windows.Forms.Label
Friend WithEvents Label3 As System.Windows.Forms.Label

77
 Friend WithEvents Label4 As System.Windows.Forms.Label
Friend WithEvents Label5 As System.Windows.Forms.Label
Friend WithEvents txtstatus As System.Windows.Forms.TextBox
Friend WithEvents cmdcan As System.Windows.Forms.Button
Friend WithEvents cmdReg As System.Windows.Forms.Button
Friend WithEvents insdate As System.Windows.Forms.DateTimePicker
Friend WithEvents txtvc As System.Windows.Forms.TextBox
Friend WithEvents GroupBox2 As System.Windows.Forms.GroupBox
Friend WithEvents GroupBox3 As System.Windows.Forms.GroupBox
Friend WithEvents StatusDataGrid As System.Windows.Forms.DataGrid
Friend WithEvents cmdstatus As System.Windows.Forms.Button
<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
Me.TabControl1 = New System.Windows.Forms.TabControl()
Me.TabPage1 = New System.Windows.Forms.TabPage()
Me.GroupBox1 = New System.Windows.Forms.GroupBox()
Me.cmdcan = New System.Windows.Forms.Button()
Me.cmdReg = New System.Windows.Forms.Button()
Me.txtstatus = New System.Windows.Forms.TextBox()
Me.Label5 = New System.Windows.Forms.Label()
Me.insdate = New System.Windows.Forms.DateTimePicker()
Me.Label4 = New System.Windows.Forms.Label()
Me.txtvc = New System.Windows.Forms.TextBox()
Me.Label3 = New System.Windows.Forms.Label()
Me.txteng = New System.Windows.Forms.TextBox()
Me.Label2 = New System.Windows.Forms.Label()
Me.txtsno = New System.Windows.Forms.TextBox()
Me.Label1 = New System.Windows.Forms.Label()
Me.TabPage2 = New System.Windows.Forms.TabPage()
Me.GroupBox2 = New System.Windows.Forms.GroupBox()
Me.cmdstatus = New System.Windows.Forms.Button()
Me.GroupBox3 = New System.Windows.Forms.GroupBox()
Me.StatusDataGrid = New System.Windows.Forms.DataGrid()
Me.TabControl1.SuspendLayout()
Me.TabPage1.SuspendLayout()
Me.GroupBox1.SuspendLayout()
Me.TabPage2.SuspendLayout()
Me.GroupBox2.SuspendLayout()
Me.GroupBox3.SuspendLayout()
CType(Me.StatusDataGrid,
System.ComponentModel.ISupportInitialize).BeginInit()
Me.SuspendLayout()
'
'TabControl1
'
Me.TabControl1.Controls.AddRange(New System.Windows.Forms.Control()
{Me.TabPage1, Me.TabPage2})
Me.TabControl1.Dock = System.Windows.Forms.DockStyle.Fill
Me.TabControl1.Name = "TabControl1"
Me.TabControl1.SelectedIndex = 0
Me.TabControl1.Size = New System.Drawing.Size(704, 486)
Me.TabControl1.TabIndex = 0
'
'TabPage1
'
Me.TabPage1.Controls.AddRange(New System.Windows.Forms.Control()
{Me.GroupBox1})
Me.TabPage1.Location = New System.Drawing.Point(4, 22)
Me.TabPage1.Name = "TabPage1"
Me.TabPage1.Size = New System.Drawing.Size(696, 460)
Me.TabPage1.TabIndex = 0
Me.TabPage1.Text = "Pre Delivery Inspection"

78
 '
'GroupBox1
'
Me.GroupBox1.Controls.AddRange(New System.Windows.Forms.Control()
{Me.cmdcan, Me.cmdReg, Me.txtstatus, Me.Label5, Me.insdate, Me.Label4, Me.txtvc,
Me.Label3, Me.txteng, Me.Label2, Me.txtsno, Me.Label1})
Me.GroupBox1.Location = New System.Drawing.Point(8, 0)
Me.GroupBox1.Name = "GroupBox1"
Me.GroupBox1.Size = New System.Drawing.Size(688, 456)
Me.GroupBox1.TabIndex = 0
Me.GroupBox1.TabStop = False
'
'cmdcan
'
Me.cmdcan.Location = New System.Drawing.Point(232, 176)
Me.cmdcan.Name = "cmdcan"
Me.cmdcan.Size = New System.Drawing.Size(96, 24)
Me.cmdcan.TabIndex = 11
Me.cmdcan.Text = "Cancel"
'
'cmdReg
'
Me.cmdReg.Location = New System.Drawing.Point(136, 176)
Me.cmdReg.Name = "cmdReg"
Me.cmdReg.Size = New System.Drawing.Size(96, 24)
Me.cmdReg.TabIndex = 10
Me.cmdReg.Text = "Register"
'

79
 System Configuration and Software

Hardware:

Hard Disk : 40 GB

RAM : 256 MB

Processor : Above 2 GHz

Software:

 Windows XP or Above

 Service Pack 2 or Above

 Oracle 9i or 8i Client

80