A PROJECT REPORT ON

Nokia Mobile Shop Management System

Submitted to

University of Mumbai 2011-2012

BY Miss. AARTI DEEPAK SHINDE

INDEX
Sr.No. 1 Title Preliminary Investigation Organizational Overview Description Of System Limitations Of Present System Proposed System & its Advantage Feasibility Study Stakeholders Gantt Chart System Analysis Fact Findings Event Table Use Case Diagram Entity Relationship Diagram Activity Diagram Class Diagram Object Diagram Sequence Diagram Collaboration Diagram State Diagram System Design Converting ERD to Tables Relationship Diagram Component Diagram Package Diagram Deployment Diagram System Flow Chart Structure Chart System Coding Menu Tree List of Tables with Attributes & Constraints Program Description with naming Conventions Program Listing Validations Test Cases, Test Data, Test Results Screen Layouts & Report Layouts System Implementation & Uploading Future Enhancement References & Bibliography Page No. 6 7 8 9 10 12 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 41

5 6 7

114 116 120

Chapter 1

Preliminary Investigation

Organizational Overview

Organizational Chart Mobile Store Management System

Employee

Supplier

Customer

Description of System

In Nokia Mobile Store Management System use to maintain their sales detail in files and folders. They use to keep the record of product sold, Customers, Suppliers, etc in a register. A daily register is maintained to keep track of complaints.

Preparing report is very time consuming and tedious task. For searching of single record, whole register is to be searched which is very time consuming task.

Limitations Of Present System

As mentioned above most of details are

maintained manually. Due to this the data retrieved is time consuming. Due to human calculation errors occur.
Even when the data is maintained on spreadsheet

inconsistency occurs as an order might be missed or wrongly entered or twice. Data are stride an excel sheet which takes lot of time and data may be corrupted.
As storage and exchange of data is achieved only

by use of excel sheets which lack validation capabilities, there is always risk of invalid, inaccurate or incomplete data being fed in computer. Difficulty in managing multiple forms. Lack of security.

Proposed System
The proposed system is computerized and has been developed using advance language therefore it gives more facilities than present system. It provides quick access to any data. In this system user have to enter the data only once and then it get linked with all files. This reduces the workload of user and it is also a time saving process. The information about any Subscriber can be easily retrieved. The system maintains all records easy.

Advantages of Proposed System:

All the information about sale, purchase will be maintain properly in

this system. All manual calculation of sale or all the money management will be performed by the computer automatically. This system will provide timely report information.
It will produce report for sale, bill information.

The computer can hold amount of data in its storage device. The operation and speed of the computer is very high.
We can calculate result and print any report within seconds.

Any difficulties we can solve easily. A database application can be stored in computer effectively. It is very user friendly and easy to handle. So the computerized system is more suitable than the manual system.

Feasibility Of Study 1. Software Specification:Software requirements for this system are as listed follows:

FRONTEND BACKEND OPERATING SYSTEM

: : :

Microsoft Visual Basic 8.0 MS Access-2007 Windows XP Microsoft Office

FOR DOCUMENTATION :

2. Hardware Specifications
Minimum hardware requirements for this System are listed below:
Processor

: : : :

Pentium-4 256MB. 80GB. Any.

RAM

HARD DISK

CD-Rom Driver

FRONTEND: - MICROSOFT VISUAL STUDIO 2008

1. First of all, VB.NET provides managed code execution that runs under the Common Language Runtime (CLR), resulting in robust, stable and secure applications. All features of the .NET framework are readily available in VB.NET. 2. VB.NET is totally object oriented. This is a major addition that VB6 and other earlier releases didn't have. 3. The .NET framework comes with ADO.NET, which follows the disconnected paradigm, i.e. once the required records are fetched the connection no longer exists. It also retrieves the records that are expected to be accessed in the immediate future. This enhances Scalability of the application to a great extent. 4. VB.NET uses XML to transfer data between the various layers in the DNA Architecture i.e. data are passed as simple text strings. 5. Error handling has changed in VB.NET. A new Try-Catch-Finally block has been introduced to handle errors and exceptions as a unit, allowing appropriate action to be taken at the place the error occurred thus discouraging the use of ON ERROR GOTO statement. This again credits to the maintainability of the code. 6. Another great feature added to VB.NET is free threading against the VB single-threaded apartment feature. In many situations developers need spawning of a new thread to run as a background process and increase the usability of the application. VB.NET allows developers to spawn threads wherever they feel like, hence giving freedom and better control on the application. 7. Security has become more robust in VB.NET. In addition to the rolebased security in VB6, VB.NET comes with a new security model, Code Access security. This security controls on what the code can access. For example you can set the security to a component such that the component cannot access the database. This type of security is important because it allows building components that can be trusted to various degrees. 8. The CLR takes care of garbage collection i.e. the CLR releases resources as soon as an object is no more in use. This relieves the developer from thinking of ways to manage memory. CLR does this for them.

10

BACKEND: MS-ACCESS 2007

Microsoft Office Access, previously known as Microsoft Access, is a database management system from Microsoft that combines the relational Microsoft Jet Database Engine with a graphical user interface and softwaredevelopment tools. MS Access stores data in its own format based on the Access Jet Database Engine. It can also import or link directly to data stored in other applications and databases Microsoft Access applications can adopt split-database architecture. The database can be divided into a front-end database that contains the application objects (queries, forms, reports, macros, and modules), and is linked to tables stored in a back-end shared database containing the data. The "back-end" database can be stored in a location shared by many users, such as a file server. The "front-end" database is distributed to each user's desktop and linked to the shared database. Access includes an Upsizing Wizard that allows users to upsize their databases to Microsoft SQL Server, an ODBC clientserver database. An additional solution, the SQL Server Migration Assistant for Access (SSMA), is also available for download from

11

Stakeholders
Stakeholders are anyone who has an interest in the project. Project stakeholders are individuals and organizations that are actively involved in the project, or whose interests may be affected as a result of project execution or project completion. They may also exert influence over the projects objectives and outcomes. The project management team must identify the stakeholders, determine their requirements and expectations, and, to the extent possible, manage their influence in relation to the requirements to ensure a successful project. The following are examples of project stakeholders:
1.

Project Developers :Project Developers is one who develops software for customer. In

my project I am the first stakeholder i.e. Project Developer.

2. Project customer :Project Customer is one who pays for the developed software.

3.

Project user Group :Project User group are those people who use the software on daily basis for the Project Customer.

12

4. Project Testers Project Testers are those who test the software.

13

Gantt Chart

Phase Prelimina ry investiga tion Project Finalizati on Investiga tion of system requirem ent System Analysis System Design Coding Interface Coding Database Connecti vity Validatio n Coding Report Coding Impleme ntation Develope r Testing Client Testing User Testing Project Delivery Project Report Submissi on Project Report Hard Copy Checking Project Submissi on

Start date

Compl etion date

10/06/2 011 18/06/2 011

17/06/20 11 25/06/20 11

27/06/2 011 15/8/20 11

14/8/201 1 28/9/201 1

29/09/2 011 16/10/2 011 31/10/2 011 17/11/2 011

15/10/20 11 30/10/20 11 15/11/20 11 31/12/20 11

5/12/20 11 13/12/2 011 25/12/2 011 30/12/2 011

12/12/20 11 22/12/20 11 29/12/20 11 05/1/201 2

8/1/201 2

12/1/201 2

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 WEEK

14
13/1/20 12 18/1/201 2

Chapter 2

System Analysis

15

Fact Findings
Introduction The Current System is the manual one, hence is not speedy, accurate, efficient as well as time consuming. An essential part of the system analysis, which enables the developer to understand & the system correctly. It is undertaken to obtain details of the system. To understand the physical flow of the information through the current system. Collect various information through various fact finding techniques. Identify the procedural difficulties experienced by the user. Study the bottlenecks find out the redundant work being performed in the system. Fact Finding Techniques Employed 1. Interviews Information was obtained from the employees at the organization by interviewing them at the location and time convention both. 2. Document Searching An extensive study of existing document an official correspondence was done to understand the present working status of organization.

16

Event Table
SR NO 1

EVENT Enter new customer Customer change in personal details Gives an Order Enter new supplier

TRIGGER Add

SOURCE Admin

ACTIVITY Create new record Update customer details

RESPONSE New record created Details updated

DESTINATION System

Update

Customer

Admin

New order

Customer

Create new Order Add new supplier record Update supplier details Search supplier details Create new employee record Generating receipt

New order created New record created

Employee

Add supplier

Admin

System

Supplier change in details Owner needs supplier details Enter new employee

Update

Supplier

Details updated

Admin

Search

Admin

Display supplier details New record created

System

Add

Admin

System

Stock entry

Add

Admin

Get receipt

Customer

17

Paying Bill

Order fulfillment

Customer

Paying bill

Get payment

Admin

10

Generating reports Updating records Delete record

New report

Admin

Generating receipt Updating records Check records

Get receipt

System

11

Check previous records Delete

Admin

Record is update Delete record

System

12

admin

System

18

Use Case Diagram

Supplier:Create a new supplier Update supplier details Delete supplier details Display supplier details Lookup for supplier

Supplier

Admin

Search supplier

Product:Create a new product

Update product details Lookup for product details

Delete product details

Admin

Display product details

19

Stock:Create new stock details

Update stock details Lookup for stock details

Delete stock details

Admin

Display stock details

Customer:-

Create a new customer details Update customer details Delete customer details Display customer details Lookup for customer details

Customer

Admin

Search customer

20

Order:-

Places an Order Create a new order Lookup for order details Update order record

Customer

Delete order record

Admin

Bill:-

Places new Bill

Create a new Bill

Display Bill

Customer
Admin

Delete Bill

21

Entity-Relationship Diagram

Purchas Order

Customer

Bill

Nokia Mobile Shop System

Bill

Employee

Product

Supplier

Salary

22

Activity Diagram
Customer

Nokia Mobile Shop System Enter Customer information Display Customer information Verify Customer information Initiate maintain customer information Place Order Create new order Request product for purchase

Check availability No Place purchase order Yes Enter product information

Supplier Product

Add product Enter order Give payment Calculate total Generate Bill

23

Class Diagram
Customer
+Cust_id:Number +Cust_name:Text +Cust_add:Text +Cust_ph:Number +Cust_email:Text +Insert () +Update () +Delete () +New ()

Supplier
+Supp_no:Number +Supp_name:Text +Supp_add:Text +Suppt_ph:Number

+Insert () +Update () +Delete () +New ()

1..* 1..*

1..* 1..*

Employee
+Emp_id:Number +Emp_name:Text +Emp_add:Text +Emp_ph:Number +Insert () +Update () +Delete () +New ()

Bill
+Bill_no:Number +Order_no:Number +Cust_no:Number +Prod_name:Text +Total:Number +Insert () +Update () +Delete () +New ()

Stock
+Prod_id:Number +Prod_name:Text +Prod_qty:Number 1

1
1..*

1..*
1..*

Order
+Order_no:Number +Date:Date/Time +Cust_name:Text +Prod_name:Text +Total:Number +Insert () +Update () +Delete () +New ()

Product
+Prod_no:Number +Prod_name:Text +Prod_info:Text 1..* +MRP:Number

+Insert() +Update() +Delete() +New()

1..*

+Insert () +Update () +Delete () +New ()

24

Object Diagram

: Customer
+Cust_id:Number +Cust_name:Text +Cust_add:Text +Cust_ph:Number +Cust_email:Text +Insert () +Update () +Delete () +New ()

: Supplier
+Supp_no:Number +Supp_name:Text +Supp_add:Text +Suppt_ph:Number

+Insert () +Update () +Delete () +New ()

1..* 1..*

1..* 1..*

: Employee
+Emp_id:Number +Emp_name:Text +Emp_add:Text +Emp_ph:Number +Insert () +Update () +Delete () +New ()

: Bill
+Bill_no:Number +Order_no:Number +Cust_no:Number +Prod_name:Text +Total:Number +Insert () +Update () +Delete () +New ()

: Stock
+Prod_id:Number +Prod_name:Text +Prod_qty:Number 1

1
1..*

1..*
1..*

: Order
+Order_no:Number +Date:Date/Time +Cust_name:Text :Order :Employee +Prod_name:Text +Order_no:Number +Total:Number +Date:Date/Time +Emp_id:Number +Cust_name:Text +Emp_name:Text +Insert () +Prod_name:Text +Emp_add:Text +Update () +Total:Number +Emp_ph:Number +Delete () +New () +Insert () +Update () +Delete () +New ()

: Product
+Prod_no:Number +Prod_name:Text +Prod_info:Text 1..* :Product :Bill +MRP:Number +Bill_no:Number +Prod_no:Number +Order_no:Number +Prod_name:Text +Cust_no:Number +Insert () +Prod_info:Text +Prod_name:Text +Update () +MRP:Number +Total:Number +Delete () +New () +Insert () 25 +Update () +Delete () +New ()

+Insert() +Update() +Delete() +New()

1..*

:Stock
+Prod_id:Number +Prod_name:Text +Prod_qty:Number

+Insert() +Update() +Delete() +New()

26

Sequence Diagram
Supplier:-

Create Supplier:

Create new supplier information

System
New supplier created

Admin

Update Supplier:

Display supplier details Update supplier details

System

Supplier

Admin

Delete Supplier:

Display supplier details Delete supplier

System

Admin

27

Product:-

Create Product:

Create new product details

System
New product created

Admin

Update Product:

Display product details Update product details

System

Admin

Delete Product:

Display product details Delete selected product

System

Admin

28

Stock:-

Create Stock:

Create new stock information

System
New stock created

Admin

Update Stock:

Display stock details Update stock details

System

Admin

Delete Stock:

Display stock details Delete stock

System

Admin

29

Customer:-

Create Customer:
Create new Customer information

System
New Customer created

Customer

Admin

Update Customer:

Display Customer details Update Customer details

System

Customer

Admin

Delete Customer:

Display Customer details Delete Customer

System

Admin

30

Order:-

Create Order:
Create new Order information

System
New Order created

Customer

Admin

Update Order:

Display Order details Update Order details

System

Customer

Admin

Delete Order:

Display Order details Delete Order

System

Admin

31

Bill:-

Create Bill:

Create new Bill information

System
New Bill created

Admin

Delete Delete:

Display Bill details Delete Bill

System

Admin

32

Employee:-

Create Employee:

Create new Employee information

System
New Employee created

Admin

Update Employee:

Display Employee details Update Employee details

System

Employee Admin

Delete Employee:

Display Employee details Delete Employee

System

Admin

33

Collaboration Diagram

Customer
1. Customer enquiry 2. Get information 5. 8. Place order 6. Get order Pay bill 7. Order fulfillment 9. Generate receipt 10. Check availability Of mobile 14. Update records

Employee

3. Customer Registration

4. Check details
11. Order 13. Payment 12. Placed order

Supplier

34

State Diagram
Login Idle Customer enter

Customer enquiry
Order for mobile Mobile not available

Check availability of mobile

Mobile available

Order for mobile

End

Check mobile details

Check details

Mobile provide to customer

Order fulfillment

Pay bill
Paying bill

Generate receipt
Generating receipt

35

Chapter 3

System Design

36

Converting ERD to Tables

Sr.No

TABLE NAME

PURPOSE This table is use to store, retrieve and information about the customer. the fields are c_no,cname,cadd,gender,contactno,email This table is use to store ,retrieve and information about the employee. The fields is : e_id,e_fname,e_mname,e_lname,e_add,e_city,e_contact. This table is use to store ,retrieve and information about the supplier.The field are o_no,s_name,o_model,o_qty,o_prize, o_totprize,o_tax,o_tot. This table is use to purchase , store , retrieve & the information like p_no,p_name. The field in the table are c_no,c_name,cadd,email,contactno, o_no,p_no,p_name,p_qty,p_mrp,p_tot. This table is use store ,retrieve and information about the employee salary. The field are e_id, e_fname,e_mname,e_lname, e_add, e_contact, msalary, advance.

Cust_info

2 3

Employee Supplier

Order

Salary

37

Component Diagram

Supplier.vb

Stock.vb Order.vb

Bill.vb

Nokia Mobile Shop System

Customer.vb

Emp.vb

Order.vb

Salary.vb

38

Package Diagram

Nokia Mobile shop system

Cancel Supplier, Order, Stock, Emp Form Availability Connection Admin

Other Form Emp form Supplier form Product form Order form Bill form

Cancel Processing And Printing

39

Deployment Diagram

PC <<device>>

XP

Cust.vb

Mobdetails.vb Transaction.vb

Database Server <<device>>

Order.vb

Emp.vb

Bill.vb

Emp.vb

Printer
40

System flow
Maintain customer details

Customer

Price Mobile

Mobile details

Purchase order

Purchase order details

Nokia Mobile store management

Mobile bill

Generate mobile bill

Customer bill report

Paid

Paid details

Employee

Maintain employee details

Supplier

Transaction of mobile

Supplier bill report

41

Structure chart

Nokia Mobile Store System

Maintain customer details

Creation of order

Bill generation

Get Customer details

Save customer details

Product details

Customer details

Checking of product

Giving purchase order

Order fulfillment

Bill details

Get mobile details

Retrieve mobile details

Report generation

42

Chapter 4

System Coding

43

Menu Tree

Customer information Main Mobile Details

Customer

Purchase order

MDI Form
Employee

Customer information Mobile Details Transaction

Transaction
Mobile Bill

Reports Supplier Report Utility Calculator

About Us Exit

Help

44

Table List 1.Table name:-Cust_info

Sr.N o.1 2 3 4 4 5 Field Name c_no cname cadd gender contactno email Datatype Integer Varchar Varchar Varchar Bigint Varchar Constraints Primary key 10 10 10 25 Size Description Stores the customer code Stores the customer name Stores the customer address Store the customer gender Stores the customer contact. Stores the customer email id

2.Table name:-Employee
Sr. No. 1 2 3 4 5 6 Field Name E_id E_fname E_mname E_lname E_add Ph_no Datatype Constraints Integer Varchar Varchar varchar Varchar Bigint Primary key 15 15 15 20 Size Description Stores the employee code Stores the employee name Stores the employee middle name Stores the employee last name Stores the employee address Stores the employee ph.no.

45

3.Table name:-Supplier
Sr. No. 1 2 3 4 5 6 7 8 9 Field Name o_no S_name o_model o_qty o_color o_prize o_totprize o_tax o_tot Datatype Constraints Integer Varchar Varchar Integer varchar Bigint Bigint Bigint bigint Primary key 20 20 Size Description Stores the company code Stores the company name Stores the mobile model name Stores the mobile qty Stores the mobile color Stores the mobile prize Stores the total prize Stores the tax value Stores the total amount included tax

20

4. Table name:-Order
Sr. No. 1 2 3 4 5 6 7 8 9 10 11 Field Name c_no c_name c_add contactno email o_no p_no P_name P_q ty P_mrp P_tot Datatype Constraints Integer Foreign key Varchar Varchar Bigint varchar Integer integer Varchar Integer integer bigint
46

Size 15 15

Description Stores the customer code Stores the customer name Stores the customer address Stores the customer contact no Stores the customer email Stores the order no Stores the product no

20

15

Stores the product name Stores the product quantity Stores the product prize Stores the product total prize

8. Table name:-Salary
Sr. No. 1 2 3 4 5 6 7 8 Field Name E_id E_fname e_mname e_lname e_add e_contact msalary advance Datatype Constraints Integer Varchar varchar Varchar varchar Bigint Bigint Bigint primary 15 15 15 20 Size Description Stores the employee id Stores the employee name Stores the employee middle name Stores the employee last name Stores the employee address Stores the employee contact no Stores the emp monthly salary Stores the emp advance salary

47

Program List

NO
1 2 3 4 5 6 7

FORM NAME
Loding.frm Loginform.frm MdIForm.frm Cust_info.frm Emp.frm Supplier.frm Salary.frm

PURPOSE
This form display the title of system name of organization & copyright of the system This form is used for security with the help of password This is the multiple document interface for the all of the form in the project This form is use for store the customer information This form is use for store the employee information This form is use for store the Supplier information This form use for store employee salary

48

Report List NO.

1

REPORT NAME
Crystalreport1.rpt

PURPOSE
This report is use for to print and show the customer bill This report is use for to print & show the supplier bill

Crystalreport2.rpt

49

Program Description

Program Name: Loding.vb Program Function: This is form is used to Load the system.

Code:Public Class Loading Dim i As Integer Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick ProgressBar1.PerformStep() i = i + 1 Label2.Text = i If ProgressBar1.Value = 100 Then Me.Hide() LoginForm1.Show() Timer1.Enabled = False End If End Sub

50

Program Name: Login Form1.vb Program Function: This is form is used to Login in the system.

Code:Public Class LoginForm1 Private Sub OK_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OK.Click If UsernameTextBox.Text = "arti" And PasswordTextBox.Text = "123" Then Me.Hide() MDI.Show() Else MsgBox("error") End If End Sub

51

Program Name: MDI.vb Program Function: This is form contains menus i.e. path for other forms.

Code:Public Class MDI Private Sub CustomerInfoToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CustomerInfoToolStripMenuItem.Click Cust_info.Show() End Sub Private Sub MobileDetailsToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MobileDetailsToolStripMenuItem.Click MobiAdd.Show() End Sub Private Sub MobileBillToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Mobile_Bill.Show() End Sub Private Sub OrderToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PurchaseOrderToolStripMenuItem.Click Order.Show() 52

End Sub Private Sub AboutToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AboutToolStripMenuItem.Click about.Show() End Sub Private Sub EmployeeDetailsToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles EmployeeDetailsToolStripMenuItem.Click emp.Show() End Sub Private Sub ExitToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ExitToolStripMenuItem.Click Me.Close() End Sub Private Sub MobileBillToolStripMenuItem1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MobileBillToolStripMenuItem1.Click Report_bill.Show() End Sub Private Sub CalculatorToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CalculatorToolStripMenuItem.Click Process.Start("C:\WINDOWS\system32\calc.exe") End Sub Private Sub SalaryToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SalaryToolStripMenuItem.Click salary.Show() End Sub Private Sub ReceivedMobileToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ReceivedMobileToolStripMenuItem.Click supplier.Show() End Sub Private Sub ToolStripMenuItem1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripMenuItem1.Click supplier_report.Show() End Sub 53

Program Name: Cust_info.vb Program Function: This is form is used to add new customer and its details Data entry form:

Code:Imports System.Data.OleDb Public Class Cust_Info Dim cmd As OleDbCommand Dim cn As New OleDbConnection Dim ad As New OleDbDataAdapter Dim SlotAdapter As New OleDb.OleDbDataAdapter Dim ds As New DataSet Dim dr As String Dim dt As String Dim i, f, a As Integer Private Sub Cust_Info_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load 'TODO: This line of code loads data into the '_Database1_mdbDataSet14.Cust_info' table. You can move, or remove it, as needed. Me.Cust_infoTableAdapter1.Fill(Me._Database1_mdbDataSe t14.Cust_info) cn = New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=|DataDirectory|\Database1.mdb.accdb") 54

ad = New OleDbDataAdapter("select * from Cust_info", cn) ds = New DataSet() ad.Fill(ds) End Sub Private Sub exitbtn_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles exitbtn.Click Dim a As Integer Dim OleDbYesNo As Integer Dim OleDbQuestion As Integer Dim OleDbYes As Integer If a = OleDbYes Then a = MsgBox(" you want to exit the Form?", OleDbYesNo + OleDbQuestion, "confirm exit") Me.Close() End If End Sub Private Sub TextBox5_LostFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles TextBox5.LostFocus Dim bool As Boolean Dim email As String = TextBox5.Text.Trim bool = ((email.Contains("@") And email.Contains(".")) And (email.IndexOf("@") < email.IndexOf(".")) _ And (email.IndexOf("@") <> email.IndexOf(".") - 1)) If bool = False Then MsgBox("Enter Valid Email Address.", MsgBoxStyle.Exclamation, "Invalid Email Address") TextBox5.Text = "" End If End Sub Private Sub TextBox2_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox2.KeyPress Dim c As Char c = e.KeyChar If Not (Char.IsLetter(c) Or Char.IsControl(c)) Then e.Handled = True MsgBox("enter only character") End If End Sub

55

Private Sub firstbtn_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles firstbtn.Click i = 0 Call add(i) MsgBox("This is first Record") End Sub Private Sub previousbtn_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles previousbtn.Click i = i - 1 If (i >= 0) Then Call add(i) Else MsgBox("this is previous record") End If End Sub Private Sub lastbtn_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles lastbtn.Click i = ds.Tables(0).Rows.Count - 1 Call add(i) MsgBox("This is last Record") End Sub Private Sub nextbtn_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles nextbtn.Click i = i + 1 If (i < ds.Tables(0).Rows.Count) Then Call add(i) Else MsgBox("this is next record") End If End Sub Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click TextBox1.Text = "" TextBox2.Text = "" TextBox3.Text = "" ComboBox1.SelectedIndex = -1 TextBox4.Text = "" TextBox5.Text = "" End Sub 56

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click cn.Close() cn.Open() ds.Clear() If TextBox1.Text = "" Then MsgBox("Please Enter Cust_No") ElseIf TextBox1.Text = "" Then Else ad = New OleDbDataAdapter("select * from Cust_info where Cust_No=" & TextBox1.Text & "", cn) ad.Fill(ds) DataGridView1.DataSource = ds.Tables(0) cn.Close() End If Dim cmd1 As New OleDbCommand cn.Close() cn.Open() cmd1.Connection = cn cmd1.CommandText = "select count(*) from Cust_info" Dim m As Integer m = cmd1.ExecuteScalar a = Val(TextBox1.Text) If a > m Then MsgBox("No Record") End If End Sub Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click cn.Close() cn.Open() If (f = 0) Then ' dt = TextBox1.Text ' MsgBox(dt) cmd = New OleDbCommand("Delete From Cust_info where Cust_No=" & TextBox1.Text & "", cn) cmd.ExecuteNonQuery() End If MsgBox("Record Deleted Successfully.") 57

End Sub Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click cn.Close() cn.Open() If (f = 0) Then If TextBox1.Text = "" Then ElseIf TextBox2.Text = "" Then ElseIf TextBox3.Text = "" Then ElseIf ComboBox1.Text = "" Then ElseIf TextBox4.Text = "" Then ElseIf TextBox5.Text = "" Then MsgBox("Please Enter Record") Else a = MsgBox("Are you want to save new Customer?", vbYesNo + vbQuestion, "SAVE") If a = vbYes Then cmd = New OleDbCommand("insert into Cust_info values('" & TextBox1.Text & "','" & TextBox2.Text & "','" & TextBox3.Text & "','" & ComboBox1.Text & "','" & TextBox4.Text & "','" & TextBox5.Text & "')", cn) cmd.ExecuteNonQuery() MsgBox("Record Save Successfully") End If End If End If End Sub Sub add(ByVal i As Integer) TextBox1.Text = ds.Tables(0).Rows(i).Item(0).ToString TextBox2.Text = ds.Tables(0).Rows(i).Item(1).ToString TextBox3.Text = ds.Tables(0).Rows(i).Item(2).ToString ComboBox1.Text = ds.Tables(0).Rows(i).Item(3).ToString TextBox4.Text = ds.Tables(0).Rows(i).Item(4).ToString TextBox5.Text = ds.Tables(0).Rows(i).Item(5).ToString End Sub Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click cn.Close() cn.Open() If (f = 0) Then 58

' dt = TextBox1.Text ' MsgBox(dt) cmd = New OleDbCommand("Update Cust_info set Cust No= ' " & TextBox1.Text & " ',Name= ' " & TextBox2.Text & " ' ,Address= ' " & TextBox3.Text & " ',Gender= ' " & ComboBox1.Text & " ',Contact No=' " & TextBox5.Text & " ',Email='" & TextBox6.Text & " 'where Cust_No=" & TextBox1.Text & "", cn) cmd.ExecuteNonQuery() End If MsgBox("Record Updated Successfully.") End Sub

End Class

59

Program Name: emp.vb Program Function: This is form is used to add new employee and its details. Test Data:-

Code:Imports System.Data.OleDb Public Class emp Dim Dim Dim Dim Dim Dim Dim cmd As OleDbCommand cn As New OleDbConnection ad As New OleDbDataAdapter ds As New DataSet dr As String dt As String i, f, a As Integer

Private Sub emp_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load 'TODO: This line of code loads data into the '_Database1_mdbDataSet4.emp_details' table. You can move, or remove it, as needed. 60

Me.Emp_detailsTableAdapter1.Fill(Me._Database1_mdbData Set4.emp_details) cn = New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=|DataDirectory|\Database1.mdb.accdb") ad = New OleDbDataAdapter("select * from emp_details", cn) ds = New DataSet() ad.Fill(ds) End Sub Sub add(ByVal i As Integer) TextBox1.Text = ds.Tables(0).Rows(i).Item(0).ToString TextBox2.Text = ds.Tables(0).Rows(i).Item(1).ToString TextBox3.Text = ds.Tables(0).Rows(i).Item(2).ToString TextBox4.Text = ds.Tables(0).Rows(i).Item(3).ToString TextBox5.Text = ds.Tables(0).Rows(i).Item(4).ToString ComboBox1.Text = ds.Tables(0).Rows(i).Item(5).ToString TextBox6.Text = ds.Tables(0).Rows(i).Item(6).ToString TextBox7.Text = ds.Tables(0).Rows(i).Item(7).ToString End Sub

Private Sub TextBox2_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox2.KeyPress Dim c As Char c = e.KeyChar If Not (Char.IsLetter(c) Or Char.IsControl(c)) Then e.Handled = True MsgBox("enter only character") End If End Sub Private Sub TextBox3_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox3.KeyPress Dim c As Char c = e.KeyChar If Not (Char.IsLetter(c) Or Char.IsControl(c)) Then e.Handled = True MsgBox("enter only character") End If End Sub

61

Private Sub Btn_e_Save_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btn_e_Save.Click cn.Close() cn.Open() If (f = 0) Then If TextBox1.Text = "" Then ElseIf TextBox2.Text = "" Then ElseIf TextBox3.Text = "" Then ElseIf TextBox4.Text = "" Then ElseIf TextBox5.Text = "" Then ElseIf ComboBox1.Text = "" Then ElseIf TextBox6.Text = "" Then ElseIf TextBox7.Text = "" Then MsgBox("Please Enter Record") Else a = MsgBox("Are you want to save new Employee?", vbYesNo + vbQuestion, "SAVE") If a = vbYes Then cmd = New OleDbCommand("insert into emp_details values('" & TextBox1.Text & "','" & TextBox2.Text & "','" & TextBox3.Text & "','" & TextBox4.Text & "','" & TextBox5.Text & "','" & ComboBox1.Text & "','" & TextBox6.Text & "','" & TextBox7.Text & "' )", cn) cmd.ExecuteNonQuery() MsgBox("Record Save Successfully") End If End If End If End Sub Private Sub Btn_e_Add_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btn_e_Add.Click TextBox1.Text = "" TextBox2.Text = "" TextBox3.Text = "" TextBox4.Text = "" ComboBox1.SelectedIndex = -1 TextBox5.Text = "" TextBox6.Text = "" TextBox7.Text = "" End Sub

62

Private Sub Btn_e_Delete_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btn_e_Delete.Click cn.Close() cn.Open() If (f = 0) Then If TextBox1.Text = "" Then MsgBox("Please Enter Cust_No") ElseIf TextBox1.Text = "" Then Else a = MsgBox("Are you want to Delete Employee?", vbYesNo + vbQuestion, "Delete") If a = vbYes Then cmd = New OleDbCommand("Delete From emp_details where Emp_ID=" & TextBox1.Text & "", cn) cmd.ExecuteNonQuery() MsgBox("Record Deleted Successfully.") End If End If End If End Sub Private Sub Btn_e_Update_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btn_e_Update.Click cn.Close() cn.Open() a = "select * from emp_details where emp_ID = '" & TextBox1.Text & "'" cmd = New OleDbCommand("Update emp_details set Name= ' " & TextBox2.Text & " ',Address= ' " & TextBox3.Text & " ',Contact_No= ' " & TextBox4.Text & " ',Age=' " & TextBox5.Text & " ', Gender= ' " & ComboBox1.Text & " ' ,J_Date= ' " & TextBox6.Text & " ' ,Total_Sal= ' " & TextBox7.Text & "' where emp_ID='" & TextBox1.Text & "')", cn) cmd.ExecuteNonQuery() MsgBox("Record Updated Successfully.") End Sub Private Sub Btn_e_First_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btn_e_First.Click 63

i = 0 Call add(i) MsgBox("This is first Record") End Sub Private Sub Btn_e_Pre_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btn_e_Pre.Click i = i - 1 If (i >= 0) Then Call add(i) Else MsgBox("this is previous record") End If End Sub Private Sub Btn_e_Last_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btn_e_Last.Click i = ds.Tables(0).Rows.Count - 1 Call add(i) MsgBox("This is last Record") End Sub Private Sub Btn_e_Next_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btn_e_Next.Click i = i + 1 If (i < ds.Tables(0).Rows.Count) Then Call add(i) Else MsgBox("this is next record") End If End Sub Private Sub Btn_e_Exit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btn_e_Exit.Click Dim a As Integer Dim OleDbYesNo As Integer Dim OleDbQuestion As Integer Dim OleDbYes As Integer If a = OleDbYes Then a = MsgBox(" you want to exit the Form?", OleDbYesNo + OleDbQuestion, "confirm exit") 64

Me.Close() End If End Sub Private Sub Btn_e_Search_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btn_e_Search.Click cn.Close() cn.Open() ds.Clear() If TextBox1.Text = "" Then MsgBox("Please Enter emp_details") ElseIf TextBox1.Text = "" Then Else ad = New OleDbDataAdapter("select * from emp_details where emp_ID=" & TextBox1.Text & "", cn) ad.Fill(ds) DataGridView1.DataSource = ds.Tables(0) cn.Close() End If Dim cmd1 As New OleDbCommand cn.Close() cn.Open() cmd1.Connection = cn cmd1.CommandText = "select count(*) from emp_details" Dim m As Integer m = cmd1.ExecuteScalar a = Val(TextBox1.Text) If a > m Then MsgBox("No Record") End If End Sub End Class

65

Program Name: Supplier.vb Program Function: This is form is used to add new supplier and its details. Test Data:-

Code:Imports System.Data.OleDb Public Class supplier Dim cmd As OleDbCommand Dim cn As New OleDbConnection Dim ad As New OleDbDataAdapter Dim SlotAdapter As New OleDb.OleDbDataAdapter Dim ds As New DataSet Dim dr As String Dim dt As String Dim i, f, a As Integer Private Sub supplier_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load 'TODO: This line of code loads data into the '_Database1_mdbDataSet12.supplier' table. You can move, or remove it, as needed. Me.SupplierTableAdapter1.Fill(Me._Database1_mdbDataSet 12.supplier)

66

cn = New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=|DataDirectory|\Database1.mdb.accdb") ad = New OleDbDataAdapter("select * from Supplier", cn) ds = New DataSet() ad.Fill(ds) End Sub Sub add(ByVal i As Integer) Txt_bo_Ono.Text = ds.Tables(0).Rows(i).Item(0).ToString cmb_cm_sname.Text = ds.Tables(0).Rows(i).Item(1).ToString cmb_cm_model.Text = ds.Tables(0).Rows(i).Item(2).ToString Txt_bo_Qty.Text = ds.Tables(0).Rows(i).Item(3).ToString cmb_cm_color.Text = ds.Tables(0).Rows(i).Item(4).ToString Txt_bo_prize.Text = ds.Tables(0).Rows(i).Item(5).ToString txt_bo_total.Text = ds.Tables(0).Rows(i).Item(6).ToString Txt_bo_tax.Text = ds.Tables(0).Rows(i).Item(7).ToString txt_bo_totalprize.Text = ds.Tables(0).Rows(i).Item(8).ToString End Sub Private Sub cal_btn_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cal_btn.Click txt_bo_total.Text = Txt_bo_prize.Text * Txt_bo_Qty.Text Txt_bo_tax.Text = txt_bo_total.Text / 100 txt_bo_totalprize.Text = Val(txt_bo_total.Text) + Val(Txt_bo_tax.Text) End Sub Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click supplier_bill.Show() End Sub

67

Private Sub Txt_bo_Qty_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Txt_bo_Qty.TextChanged End Sub Private Sub Btn_e_Save_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btn_e_Save.Click cn.Close() cn.Open() If (f = 0) Then If Txt_bo_Ono.Text = "" Then ElseIf cmb_cm_sname.Text = "" Then ElseIf cmb_cm_model.Text = "" Then ElseIf Txt_bo_Qty.Text = "" Then ElseIf cmb_cm_color.Text = "" Then ElseIf Txt_bo_prize.Text = "" Then ElseIf txt_bo_total.Text = "" Then ElseIf Txt_bo_tax.Text = "" Then ElseIf txt_bo_totalprize.Text = "" Then MsgBox("Please Enter Record") Else a = MsgBox("Are you want to save new Supplier?", vbYesNo + vbQuestion, "SAVE") If a = vbYes Then cmd = New OleDbCommand("insert into Supplier values('" & Txt_bo_Ono.Text & "','" & cmb_cm_sname.Text & "','" & cmb_cm_model.Text & "','" & Txt_bo_Qty.Text & "','" & cmb_cm_color.Text & "','" & Txt_bo_prize.Text & "','" & txt_bo_total.Text & "','" & Txt_bo_tax.Text & "','" & txt_bo_totalprize.Text & "')", cn) cmd.ExecuteNonQuery() MsgBox("Record Save Successfully") End If End If End If End Sub

68

Private Sub cmb_cm_model_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmb_cm_model.SelectedIndexChanged If cmb_cm_model.SelectedIndex = "0" Then Txt_bo_prize.Text = 25000 ElseIf cmb_cm_model.SelectedIndex = "1" Then Txt_bo_prize.Text = 30000 ElseIf cmb_cm_model.SelectedIndex = "2" Then Txt_bo_prize.Text = 27000 End If End Sub Private Sub Btn_e_Add_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btn_e_Add.Click Txt_bo_Ono.Text = "" cmb_cm_sname.Text = "" cmb_cm_model.Text = "" Txt_bo_Qty.Text = "" cmb_cm_color.Text = "" Txt_bo_prize.Text = "" txt_bo_total.Text = "" Txt_bo_tax.Text = "" txt_bo_totalprize.Text = "" End Sub Private Sub Btn_e_Delete_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btn_e_Delete.Click cn.Close() cn.Open() If (f = 0) Then If Txt_bo_Ono.Text = "" Then MsgBox("Please Enter Order no") ElseIf Txt_bo_Ono.Text = "" Then Else a = MsgBox("Are you want to Delete Supplier?", vbYesNo + vbQuestion, "Delete") If a = vbYes Then cmd = New OleDbCommand("Delete From Supplier where O_no=" & Txt_bo_Ono.Text & "", cn) cmd.ExecuteNonQuery() MsgBox("Record Deleted Successfully.") 69

End If End If End If End Sub Private Sub Btn_e_Update_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btn_e_Update.Click End Sub Private Sub Btn_e_First_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btn_e_First.Click i = 0 Call add(i) MsgBox("This is first Record") End Sub Private Sub Btn_e_Pre_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btn_e_Pre.Click i = i - 1 If (i >= 0) Then Call add(i) Else MsgBox("this is previous record") End If End Sub Private Sub Btn_e_Last_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btn_e_Last.Click i = ds.Tables(0).Rows.Count - 1 Call add(i) MsgBox("This is last Record") End Sub Private Sub Btn_e_Next_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btn_e_Next.Click i = i + 1 If (i < ds.Tables(0).Rows.Count) Then Call add(i) Else 70

MsgBox("this is next record") End If End Sub Private Sub Btn_e_Exit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btn_e_Exit.Click Dim a As Integer Dim OleDbYesNo As Integer Dim OleDbQuestion As Integer Dim OleDbYes As Integer If a = OleDbYes Then a = MsgBox(" you want to exit the Form?", OleDbYesNo + OleDbQuestion, "confirm exit") Me.Close() End If End Sub Private Sub DataGridView1_CellContentClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles DataGridView1.CellContentClick End Sub End Class

71

Program Name: order.vb Program Function: This is form is used to purchase mobile. Test Data:-

Code:Imports System.Data.OleDb Public Class Order Dim cmd As OleDbCommand Dim cn As New OleDbConnection Dim ad As New OleDbDataAdapter Dim ds As New DataSet Dim dr As String Dim dt As String Dim i, f, a As Integer Private Sub purchase_order_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load 'TODO: This line of code loads data into the '_Database1_mdbDataSet15.Order' table. You can move, or remove it, as needed. Me.OrderTableAdapter.Fill(Me._Database1_mdbDataSet15.O rder) cn = New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=|DataDirectory|\Database1.mdb.accdb") ad = New OleDbDataAdapter("select * from Order", cn) ds = New DataSet() 72

End Sub Sub add(ByVal i As Integer) TextBox1.Text = ds.Tables(0).Rows(i).Item(0).ToString TextBox2.Text = ds.Tables(0).Rows(i).Item(1).ToString TextBox3.Text = ds.Tables(0).Rows(i).Item(2).ToString TextBox4.Text = ds.Tables(0).Rows(i).Item(3).ToString TextBox5.Text = ds.Tables(0).Rows(i).Item(4).ToString cmb_pr_id.Text = ds.Tables(0).Rows(i).Item(6).ToString txt_pr_name.Text = ds.Tables(0).Rows(i).Item(7).ToString TextBox6.Text = ds.Tables(0).Rows(i).Item(8).ToString txt_mrp.Text = ds.Tables(0).Rows(i).Item(9).ToString TextBox7.Text = ds.Tables(0).Rows(i).Item(10).ToString End Sub Private Sub TextBox1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress Dim c As Char c = e.KeyChar If Not (Char.IsLetter(c) Or Char.IsControl(c)) Then e.Handled = True MsgBox("enter only character") End If End Sub Private Sub TextBox2_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox2.KeyPress Dim c As Char c = e.KeyChar If Not (Char.IsLetter(c) Or Char.IsControl(c)) Then e.Handled = True MsgBox("enter only character") End If End Sub Private Sub TextBox4_LostFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles TextBox4.LostFocus Dim bool As Boolean Dim email As String = TextBox4.Text.Trim bool = ((email.Contains("@") And email.Contains(".")) And (email.IndexOf("@") < email.IndexOf(".")) _ And (email.IndexOf("@") <> email.IndexOf(".") - 1)) If bool = False Then 73

MsgBox("Enter Valid Email Address.", MsgBoxStyle.Exclamation, "Invalid Email Address") TextBox4.Text = "" End If End Sub Private Sub cmb_pr_id_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmb_pr_id.SelectedIndexChanged If cmb_pr_id.SelectedIndex = 0 Then txt_pr_name.Text = "N8" txt_mrp.Text = 25000 ElseIf cmb_pr_id.SelectedIndex = 1 Then txt_pr_name.Text = "N900" txt_mrp.Text = 30000 ElseIf cmb_pr_id.SelectedIndex = 2 Then txt_pr_name.Text = "nokia 5233" txt_mrp.Text = 6500 ElseIf cmb_pr_id.SelectedIndex = 3 Then txt_pr_name.Text = "nokia E5" txt_mrp.Text = 10519 ElseIf cmb_pr_id.SelectedIndex = 4 Then txt_pr_name.Text = "nokia X5-01" txt_mrp.Text = 9153 ElseIf cmb_pr_id.SelectedIndex = 5 Then txt_pr_name.Text = "nokia X6" txt_mrp.Text = 13839 ElseIf cmb_pr_id.SelectedIndex = 6 Then txt_pr_name.Text = "nokia N97" txt_mrp.Text = 23863

ElseIf cmb_pr_id.SelectedIndex = 7 Then txt_pr_name.Text = "nokia N79" txt_mrp.Text = 13355 ElseIf cmb_pr_id.SelectedIndex = 8 Then txt_pr_name.Text = "nokia C3" txt_mrp.Text = 5800 74

ElseIf cmb_pr_id.SelectedIndex = 9 Then txt_pr_name.Text = "nokia 5800" txt_mrp.Text = 13518 End If End Sub Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Mobile_Bill.Show() End Sub Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox10.TextChanged End Sub Private Sub totalbtn_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles totalbtn.Click TextBox7.Text = TextBox6.Text * txt_mrp.Text End Sub Private Sub savebtn_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles savebtn.Click cn.Close() cn.Open() If (f = 0) Then If TextBox1.Text = "" Then ElseIf TextBox2.Text = "" Then ElseIf TextBox3.Text = "" Then ElseIf TextBox4.Text = "" Then ElseIf TextBox5.Text = "" Then ElseIf cmb_pr_id.Text = "" Then ElseIf txt_pr_name.Text = "" Then ElseIf TextBox6.Text = "" Then ElseIf txt_mrp.Text = "" Then ElseIf TextBox7.Text = "" Then Else a = MsgBox("Are you want to save new Order?", vbYesNo + vbQuestion, "SAVE") If a = vbYes Then cmd = New OleDbCommand("insert into Order values('" & TextBox1.Text & "','" & TextBox2.Text & "' ,'" & TextBox3.Text & "','" & TextBox4.Text & "','" & TextBox5.Text & "','" & cmb_pr_id.Text & "','" & txt_pr_name.Text & "','" & TextBox6.Text & "','" & txt_mrp.Text & "','" & TextBox7.Text & "')", cn) 75

cmd.ExecuteNonQuery() MsgBox("Record Saved Successfully.") End If End If End If End Sub Private Sub TextBox2_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox2.TextChanged End Sub Private Sub newbtn_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles newbtn.Click TextBox1.Text = " " TextBox2.Text = " " TextBox3.Text = " " TextBox4.Text = " " TextBox5.Text = " " cmb_pr_id.Text = " " txt_pr_name.Text = " " TextBox6.Text = " " txt_mrp.Text = "" TextBox7.Text = " " End Sub Private Sub TextBox5_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox5.TextChanged End Sub Private Sub deletebtn_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles deletebtn.Click cn.Close() cn.Open() If (f = 0) Then If TextBox1.Text = "" Then MsgBox("Please Enter Customer name", vbInformation, "Enter") ElseIf TextBox1.Text = "" Then Else a = MsgBox("Are you want to Order Bill?", vbYesNo + vbQuestion, "Delete") If a = vbYes Then cmd = New OleDbCommand("Delete From Order where Order_no=" & TextBox5.Text & "", cn) cmd.ExecuteNonQuery() 76

MsgBox("Record Deleted Successfully.") End If End If End If End Sub Private Sub firstbtn_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles firstbtn.Click i = 0 Call add(i) MsgBox("This is first Record") End Sub Private Sub previousbtn_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles previousbtn.Click i = i - 1 If (i >= 0) Then Call add(i) Else MsgBox("this is previous record") End If End Sub Private Sub lastbtn_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles lastbtn.Click i = i + 1 If (i < ds.Tables(0).Rows.Count) Then Call add(i) Else MsgBox("this is next record") End If End Sub Private Sub nextbtn_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles nextbtn.Click i = ds.Tables(0).Rows.Count - 1 Call add(i) MsgBox("This is last Record") End Sub Private Sub exitbtn_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles exitbtn.Click Dim a As Integer Dim OleDbYesNo As Integer Dim OleDbQuestion As Integer Dim OleDbYes As Integer If a = OleDbYes Then a = MsgBox(" you want to exit the Form?", OleDbYesNo + OleDbQuestion, "confirm exit") Me.Close() 77

End If End Sub Private Sub TextBox7_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox7.TextChanged End Sub Private Sub Panel2_Paint(ByVal sender As System.Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles Panel2.Paint End Sub Private Sub DataGridView1_CellContentClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles DataGridView1.CellContentClick End Sub End Class

78

Program Name:-Salary.vb Program Function: This is form is used to generate salary of employee. Test Data:-

Code:Imports System.Data.OleDb Public Class salary Dim cmd As OleDbCommand Dim cn As New OleDbConnection Dim ad As New OleDbDataAdapter Dim ds As New DataSet Dim dt As String Dim a, i, f As Integer Private Sub DataGridView1_CellContentClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) End Sub Private Sub emp_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

79

'TODO: This line of code loads data into the '_Database1_mdbDataSet13.Salary' table. You can move, or remove it, as needed. Me.SalaryTableAdapter.Fill(Me._Database1_mdbDataSet13. Salary) cn = New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=|DataDirectory|\Database1.mdb.accdb") ad = New OleDbDataAdapter("select * from Salary", cn) ds = New DataSet() ad.Fill(ds) End Sub Sub add(ByVal i As Integer) TextBox1.Text = ds.Tables(0).Rows(i).Item(0).ToString TextBox2.Text = ds.Tables(0).Rows(i).Item(1).ToString TextBox3.Text = ds.Tables(0).Rows(i).Item(2).ToString TextBox4.Text = ds.Tables(0).Rows(i).Item(3).ToString TextBox5.Text = ds.Tables(0).Rows(i).Item(4).ToString TextBox6.Text = ds.Tables(0).Rows(i).Item(5).ToString End Sub Private Sub Btn_e_Save_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btn_e_Save.Click cn.Close() cn.Open() If (f = 0) Then ' dt = TextBox1.Text ' MsgBox(dt) cmd = New OleDbCommand("insert into Salary values('" & TextBox1.Text & "','" & TextBox2.Text & "' ,'" & TextBox3.Text & "','" & TextBox4.Text & "','" & TextBox5.Text & "','" & TextBox6.Text & "')", cn) cmd.ExecuteNonQuery() End If MsgBox("Record Saved Successfully.") End Sub Private Sub Btn_e_Add_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btn_e_Add.Click TextBox1.Text = " " TextBox2.Text = " " TextBox3.Text = " " 80

TextBox4.Text = " " TextBox5.Text = " " TextBox6.Text = " " End Sub Private Sub Btn_e_Delete_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btn_e_Delete.Click cn.Close() cn.Open() If (f = 0) Then ' dt = TextBox1.Text ' MsgBox(dt) cmd = New OleDbCommand("Delete From Salary where Emp_ID=" & TextBox1.Text & "", cn) cmd.ExecuteNonQuery() End If MsgBox("Record Deleted Successfully.") End Sub Private Sub Btn_e_Update_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btn_e_Update.Click cn.Close() cn.Open() If (f = 0) Then ' dt = TextBox1.Text ' MsgBox(dt) cmd = New OleDbCommand("Update Salary set Emp_ID= ' " & TextBox1.Text & " ',F_Name= ' " & TextBox2.Text & " ' ,L_Name= ' " & TextBox3.Text & " ',D_o_sal= ' " & TextBox4.Text & " ',Advance=' " & TextBox5.Text & " ',T_sal='" & TextBox6.Text & " 'where Emp_ID=" & TextBox1.Text & "", cn) cmd.ExecuteNonQuery() End If MsgBox("Record Updated Successfully.") End Sub Private Sub Btn_e_First_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btn_e_First.Click i = 0 81

Call add(i) MsgBox("This is first Record") End Sub Private Sub Btn_e_Pre_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btn_e_Pre.Click i = i - 1 If (i >= 0) Then Call add(i) Else MsgBox("this is previous record") End If End Sub Private Sub Btn_e_Last_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btn_e_Last.Click i = ds.Tables(0).Rows.Count - 1 Call add(i) MsgBox("This is last Record") End Sub Private Sub Btn_e_Next_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btn_e_Next.Click i = i + 1 If (i < ds.Tables(0).Rows.Count) Then Call add(i) Else MsgBox("this is next record") End If End Sub Private Sub Btn_e_Exit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btn_e_Exit.Click Dim a As Integer Dim OleDbYesNo As Integer Dim OleDbQuestion As Integer Dim OleDbYes As Integer If a = OleDbYes Then a = MsgBox(" you want to exit the Form?", OleDbYesNo + OleDbQuestion, "confirm exit") Me.Close() 82

End If End Sub Private Sub Btn_e_Search_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btn_e_Search.Click End Sub Private Sub FillByToolStripButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Try Me.EmpTableAdapter1.FillBy(Me._Database1_mdbDataSe t2.emp) Catch ex As System.Exception System.Windows.Forms.MessageBox.Show(ex.Message) End Try End Sub

Private Sub TextBox2_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox2.KeyPress Dim c As Char c = e.KeyChar If Not (Char.IsLetter(c) Or Char.IsControl(c)) Then e.Handled = True MsgBox("enter only character") End If End Sub Private Sub TextBox3_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox3.KeyPress Dim c As Char c = e.KeyChar If Not (Char.IsLetter(c) Or Char.IsControl(c)) Then e.Handled = True MsgBox("enter only character") End If End Sub End Class

83

Program Name: Mobile Details.vb Program Function: This Form display the various Mobile Details. Test Result:

84

Program Name:-Help Program Function: This is form is used to display details about system. Test Result:

85

Program Name:-Mobile Bill.vb Program Function: This is form is used to display receipt of individual customer. Test Result:-

Code:Imports System.Data.OleDb Public Class Mobile_Bill Dim cn As New OleDbConnection Private Sub Mobile_Bill_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load cn = New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=|DataDirectory|\Database1.mdb.accdb") Label2.Text = Order.TextBox1.Text Lno.Text = Order.TextBox5.Text 86

Lname.Text = Order.txt_pr_name.Text Lqty.Text = Order.TextBox6.Text Lper_prize.Text = Order.txt_mrp.Text Lammount.Text = Order.TextBox7.Text End Sub Private Sub btn_print_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_print.Click PrintForm1.Print(Me, PowerPacks.Printing.PrintForm.PrintOption.CompatibleModeFullWi ndow) End Sub End Class

87

Program Name:-Supplier Bill.vb Program Function: This is form is used to display receipt of supplier bill. Test Result:-

Code:Imports System.Data.OleDb Public Class supplier_bill Dim cn As New OleDbConnection Private Sub supplier_bill_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load cn = New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=|DataDirectory|\Database1.mdb.accdb") Label2.Text = supplier.cmb_cm_sname.SelectedItem Lno.Text = supplier.Txt_bo_Ono.Text Lname.Text = supplier.cmb_cm_model.Text Lqty.Text = supplier.Txt_bo_Qty.Text Lper_prize.Text = supplier.Txt_bo_prize.Text 88

Lammount.Text = supplier.txt_bo_total.Text End Sub Private Sub btn_print_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_print.Click PrintForm1.Print(Me, PowerPacks.Printing.PrintForm.PrintOption.CompatibleModeFullWi ndow) End Sub End Class

Report Layouts
Report Name:- Report Bill.vb Report function:- This form displays purchase order Report of the supplier. Test Result:-

89

Code:Imports CrystalDecisions.CrystalReports.Engine Public Class Report_bill Private Sub Report_bill_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Dim cryRpt As New ReportDocument cryRpt.Load("F:\Impppppppp\Arti\CrystalReport1.rpt") CrystalReportViewer1.ReportSource = cryRpt CrystalReportViewer1.Update() End Sub End Class

90

Report Name:- Supplier_bill.vb Report function:- This form displays all customers bill. Test Result:Code:Imports CrystalDecisions.CrystalReports.Engine Public Class supplier_report Private Sub supplier_report_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Dim cryRpt As New ReportDocument cryRpt.Load("F:\Impppppppp\Arti\CrystalReport2.rpt") CrystalReportViewer1.ReportSource = cryRpt CrystalReportViewer1.Update() End Sub End Class

91

Chapter 5

System Implementation & Uploading

92

System Implementation VARIABLE NAME

Cn

DATA TYPE
Connection

DESCRIPTION
To make the connection between application & database. To execute sql query on table To read data retrieve by sqlcommand. To display report. crystal

Cmd

SqlCommand

Reader

SqlDataReader

CryRpt

CrystalReport

SYSTEM CONTROLS AND STANDARDS

1. Access control:System gives access by valid password.

2. Input control:System validates every textbox. It allows textual values for fields like customer name. It also validates some numeric data only for fields like phone no.

3. System Generated control:In Order details it automatically calculates total price of the product. Similarly in Receipt details it automatically deducts the amount from the actual amount.

4. Range control:In Order Transaction the system checks whether quantity given by the user is not more than the available product.

93

Chapter 6

Future Enhancement

94

Future Enhancement
Being a computer system, the system has good scope to be improved further. Future Enhancements are as listed below Maintain daily employee attendance. Administrator can be given more rights so that he will be able to change order details.

Conclusion

System helps to store all the data about the customer order in computer and there is no need to do paper work. Data is going to be preserved carefully for longer period hence proper backup is required otherwise there is chance of losing entries or data.

95

96

Chapter 7

References & Bibliography

97

References & Bibliography

Sr.No.
1.

Type
Book name : Author :

Description
Visual Basic 2008 Anne Boehm Murach Mastering Visual Basic 2008 Evangelos Petroutsos Wiley-India Edition

Publication : Book name : 2. Author :

Publication :

98