Computer Shop Management System

Table of Contents
Table of Contents……………………………………………………………………………….4
Introduction………………………………………………………………………………………5
Objective………………………………………………………………...……………………….6
Operating environment…………………………………………………………………………6
1) Harware requirement…………..…………………………………………………………6
2) Sowtware requirement……………………………………………………………………6
 Front end tool……………………………………………………………………………6
 Back end tool…………….………………………………………………………………5
 Platform used……………………………………………………………………………5
Purpose ………………….………………………………………………………………………5
Project Scope …………...………………………………………………………………………5
Product
Perspective………………………………………………………………………………………5
Product Features ………………….……………………………………………………………5
Process logic....................................................................................................................2
Logic diagram……………….…………………………………………………………………..7
Data flow diagram………….……………………………………………………………………8
ER diagram…...……………..…………………………………………………………………11
Data structure…………………………………………………………………………………..12
Sreenshots ………………………………………………………………………………….. 3
1) Login form……………………………………………………………………………….3
Computer Shop Management System
2) Main form….…………………………………………………………………………….4
3) Sell computer part form………………………………………………………………….5
4)make quotation form….………………………………………………………………….3
5) Update customer balance……………………………………………………………….4
6) Sell computer system form……………………..……………………………………….5
7) Change password………………………….…………………………………………….5
8) Create user account….………………………………………………………………….3
9) Add company form……………………………………………………………………….4
10) Add new product form …………………………………………………………….5
11) Add computer system………………………………………………………………….
12) Update shop information form….…………………………….……………………….3

Test-case…………………………………………………………………….4
Coding …………………………………………………………….5
Future Scope…………………………………………………………
Bibliography …………………………………………………………………………………
Vikrant Singh Baghel Page 1

Introduction
Computer-shop management System is a project which assist in keeping the
Record of what ever the sales from shop (whole seller), also it keep track of remaining
balance which due after selling the product. Through this project we maintain the
warranty given on particular products along with complete information related to that
product.
Computer-shop management System is software for store billing
management. Sell hardware systems components and accessories (keep track of sold
configurations, create system configuration, sell accessories and computer
components, supplying company’s administration, and many more...). Computer-shop
management System is a windows based billing software designed for uses in computer
stores.
Objective
The objective of my project to provides management facility to
computer-shop. We have given many facilities for users in this project.
1) Welcome screen (Formsplash)
2) Login screen
3) Main form
4) Sell Computer System form
5) Sell Computer Parts form
6) Update customer Balance form
7) Product Price Report form
8) Change password form
9) Make quotation form
10) Add computer part form
11) Add computer system form
12) Create user account form
13) Update shop information form
14) Report of sold computer part
15) Report of sold computer system

Operating Environment
1) Hardware Requirement
1) 20 GB HDD Free Space

2) 128 MB RAM
3) P IV or above Processor
4) Monitor
5) Keyboard: Standard
6) Mouse: Optional
2) Software Requirement
1) MS-office-2003
2) MS Visual Basic6.0
 Front End Tool: MS Visual Basic6.0
 Back End Tool: MS Access
 PLATFORM USED: Windows XP, Windows 2000.
Purpose
It is the project about Computer-shop management System. It automates the

Systems records, their Selling and Maintenance, Balance evaluation, due to calculation
other functions. In other words you can say it a complete computer-shop management
System.
In this project we can easily maintain systems sales details. It gives
information’s of Annual Transaction of products, its services, daily sales, daily Receipt &
Balance. We can see the Systems details before selling the particular items & view for
our requirement-satisfying item detail.
Project Scope
The scope of project ‘Computer-shop management system’ is to Develop

Visual Basic based software to support for daily sale, receipt & Balance of products and
maintain the all information of System related items.
This software will be very useful for the Big Computer Shop as well as the
customer. It will perform as the required task of Automation of product by itself in a
systematic way.

It will also save lots of time, as system will perform all tasks in quick time
profiting customer and shop owner as well, so it will prove very economical in every
respect.
Product Perspective
The Computer-shop Management System is the new, self-contained product.
The Computer-shop management system is using vb6.0 platform. All components follow
Model-View-Controller pattern. The user can retrieve information of their shop progress.
All pages of the system are following a consistent theme and clear structure.
The occurrence of errors should be minimized through the use of checkboxes and scroll
down in order to reduce the amount of text input from user. Error message should be
located beside the error input which clearly highlight and tell user how to solve it. If
system error, it should provide the contact methods. The page should display the
project process in different color to clearly reflect the various states. Each level of user
will have its own interface and privilege to mange and modify the project information.
User interface elements are easy to understand. Part of user interface is well-
organized on screen and the parts are concatenated right. When users look at the
interface, they understand which pane is used for which purpose. Each task of an
interface is specified clearly and users use them correctly. For example, when users
press to any button on interface, they can know which operations are done by pressing
this button.
The user interface is easy to learn. When users use the user interface, they
can know which element is used to which operations. The interface actions and
elements is consistent. When users press any button, required actions is done by the
system.
The screen layout and color of the user interface is appealing. When users
look at the screen, it will have a nice vision. Colors will be selected clearly, thus eyes of
users won’t be tired.To inhance the graphical user interface I use xp button, lv button
and vk frame.
Since the application must run on the PC, all the hardware shall require to
connect the PC will be hardware interface for the system.The main interface would be
the monitor, Keyboard and mouse.
Product Features
• NETWORK SUPPORT. You can use more than one computer to work with Computer-
shop Maintenance System.
• Support for VAT tax system. Also you can -

• make system configuration

• Create System configuration and use it later for selling purposes!
• Quickly create database backup!
• Enter and print (optionally) component serial numbers when you selling systems!
• Customize bills that you print!
• Create estimates and latter convert it into bills!
• Reports to make comparisons between months (total sum, or sum by employees)!
• User can see profit of a sold computer system during bill creating!
• Manufacturers administration.
• Print bills with currency sign.
• See number of available components (for selected component in group) when you
selling system configuration!
• Different kind of reports.
• Keep track of you suppliers!
• Check out earnings and get information about charged items!
• Each sold system is registered in database with date of sale and notification if
customer has paid!
• Computer- shop management software provides full billing and income control and
Supports different password protected employee accounts!
• Server database is protected from unauthorized modifications!
• Process payments quickly and efficiently!
• Unique design with very functional user interface!
• Improve your store business with various reports and statistics!
And many more...
Process Logic
1. Login Form
In this form, existing user/administrator enters the user-name and password
and access the main form. If user forgets his password then he can click on button
forget password and then entering his e-mail id can get user name and password. This
form contains user name and password as sub module.
2. Main Form
If administrator accesses this form using authentic login-name and password
then the administrator has administrative power as add the product, create user
account, add new branded computer system, add company, change the shop record .
Administrator have full power But user have some restricted power only which is
provided by administrator.
In this main form user can sell computer part/assemble computer
system/branded computer system, update customer record, change the password,
make quotation. Using this form the user/administrator can see the report of sold
computer part, branded computer system in any time duration. In this form, there is
option to exit & log-off
3. Sell Computer System Module

There are two sub modules:

1) Sell branded computer system

2) Sell assembled computer system/computer part
In sell branded computer system module, user/administrator can sell available
branded computer system. In this form, the user/administrator enters the customer
name, address & phone number and chooses any branded computer system to sell.
This form also so the all information of chosen branded computer system as category,
model number, monitor type, hard-disk range, ram, processor, price etc. After selling,
the user/administrator can print and save the receipt.
In sell assembled computer system/computer part module, user/administrator
can sell available computer part and assembled computer system. In this form, the
user/administrator enters the customer name, address & phone number and chooses all
computer part to sell according to request of customer. The user/administrator can
chose any product, its type, range, its serial number using combo-box. After choosing
the serial number of product the price of the product and total price (including vat, tax)
automatically generate. After selling, the user/administrator can print and save the
receipt. The invoice number and customer number automatically generate by this
software when this form is loaded.
4. Update Customer Balance Module

In this module, there is information related to balance of customer, customer
name and address. In future if any customer paid the balance amount then it can be
update.
5. Make Quotation Module

In this module, the user/administrator makes quotation according to request of
the customer. This quotation provide information about the price, range, type &
company name of all product to customer before purchasing the computer
parts/assembled computer system. This quotation also provides total price (including
vat) assembled computer system.
6. Change Password Module

In this module, the user/administrator can change his/her password by
entering login-name and old password and new password. So this provide security from
unauthorized access.
7. Create user account Module

In this module, the administrator can create new user by providing him login-
name and password. In this module, the administrator can update user information as
name, address and phone number of exiting user. He can delete exiting user account.
The administrator can see the entire exiting user. The administrator can also give
administrator power to any user. In this module, there is information related to the entire
user working in the computer-shop as name, address, e-mail id, phone number etc.
Here admin can take information related to user.
8. Add Product Module

In this module, the administrator can add new product by entering its name,
company name, range, type, serial number, and its price. Here administrator can also
see the available product and its information. And the administrator can also delete any
product.
9. Add computer system Module

In this module, the administrator can add new branded computer system by
entering its category, model number, company name, ram capacity and its speed,
monitor type, Hard-disk capacity and its interface, processor clock speed and its
L2cach, motherboard company-name and its chipset, its selling and buying price and
other description. Here administrator can also see the available computer system and
its information. And the administrator can also delete any computer system.
10. Add company Module

In this module, the administrator can add any company information whose
product are available at the computer shop. This module contains the name of
company, contact person, address, phone number, website, and fax number.
11. Change Shop information Module

In this module, the administrator save/update the information related to his
computer-shop as name of computer-shop, address, phone-number, and registration
number.
12. Product Price Report:

This report shows the price of all available products and its detail as item-
name, company-name, type, range, and serial-number.
13. Sold computer part Report:

This report show the sold computer part in any time duration. The
administrator/user can see the detail of sold computer part in specified time duration.
This report show the name of customer, item-name, company-name, type, range, serial-
number, and price of sold product.
14. Sold computer system Report:

This report shows the sold computer system in any time duration. The
administrator/user can see the detail of sold computer system in specified time duration.
This report shows the name of customer, category, company-name, model-number, ram
capacity and its speed, monitor type, Hard-disk capacity and its interface, processor
clock speed and its L2cach, motherboard company-name and its chipset, its price and
other description.

LOGICAL DIAGRAM
START
LOGIN FORM
MAIN FORM
Sell computer Change Make Change REPORT Administrator

system password quotation password
Update customer
Branded Assemble Balance
computer system computer/Computer
part
Price Report Sold Computer Sold computer

part report system report
Add Add Create user Add Computer Add computer

company company account part system
Change shop
information

Data Flow Diagram:
Zero Level DFD:
Computer-shop
Req. Resp. Customer
Customer
management
System
First Level DFD:
Sold computer part History sold computer system history
I
Sold sold computer system detail
compute
Customer
r part
Sold
Item Compute
User/admin r system
Login Issue detail
Login Detail Rep. Detail
Update Report
Login
Search criteria Update History
Add
compute
Add Search
r system
compute Search detail
r part
Customer detail
Compter Compter
system Part
Detail Detail
Customer
Computer part Record

Computer Part Detail
Second Level DFD:
1. Sell computer part/system
Computer part/system Record
Issue detail
Customer
Computer Customer detail

Comp.part/system detail part/system
User
Verify sold detail
Sell computer part/system
Sold History
Customer

2.Update customer balance:
Sold computer part/system History
Issue detail
User
Balance detail
Update
Balance
Verify balance detail
Balance Record of customer
3. Search The Item:

Sold History
Sold detail
Balance History
Search Detail Balance Detail
User
Search Customer Detail

Customer & Item Info.
Customer Record
Customer Item Detail
Computer part/system Record
ER Diagram:- Brand_name
configuratio
n
system_name Warranty_period
Item_pric
e Warranty_period
Item_type
Computer
user_addres
user_ph.n
o.
system_detail
Brand_name
s Item_pric
Login-
e
name&pas
user_name sword Item_nam
e
serial_no.
BALANCE
Serial.No.
Warranty.per
d
Balance
Date
C_name
Sell
User computer Computer
system/pa part_DETAIL
rt
Paid
Amou
nt
Customer
Invoiceno Invoice
. Paid_amoun no.
t
Tot.amount c_address
c_ph.no.
c_Balance
c_name
DATA STRUCTURE
1. Balance Table
Key Column Name Data Type Width
Primary key InvoiceNo. Alphanumeric 5
Customername Alphanumeric 25
Customer address Alphanumeric 6
Customer phone no. Numeric 6
Paidamount Numeric 8
Totalamount Numeric
Date Date
2. Computer part Detail

Column Name Data Type Width
Itemname Alphanumeric 15

Brandname Alphanumeric 25
Type Alphanumeric 5
Price Numeric 6
Primary key Serialno. Alphanumeric 5
warranty Numeric 1
3. Customer
key Column Name Data Type Width
Customer_name Alphanumeric 25
Customer_Address Alphanumeric 30
Primary key Customer_Phone.no. Numeric 10
Customer_Balance Numeric 8
4. Computer system detail 

Systemname Alphanumeric 15
Brandname Alphanumeric 25
Categary Alphanumeric 5
Price Numeric 6
Primary key Model no. Alphanumeric 5
warranty Numeric 1
Ram Alphanumeric 8
Mother-board Alphanumeric 10
Monitor Alphanumeric 10
Processor Alphanumeric 10
Other description Alphanumeric 45
5.Troubleshoot
Primary key Invoice no Alphanumeric 5
Customer_name Alphanumeric 25
Customer_Address Alphanumeric 30
Customer_phoneno. Numeric 10
Problem Alphanumeric 25
Service_date Date 8
Charge Numeric 10

6.Employee Table
Primary key Employee-id Alphanumeric 12
Employee_name Alphanumeric 15
Employee_address Alphanumeric 45
Employee_phoneno Numeric 10
Email_id Alphanumeric 20
7.Warranty
Invoice_no. Alphanumeric 8
Primary key Serial_no. Alphanumeric 20
Bill_no. Alphanumeric 10
New_Serial no Alphanumeric 15
Problem Alphanumeric 25
Service_date Date 8
Delivery_date Date 8
SCREENSHOTS
Loginform

Main form
Sold computer Parts

Make quotation
Update customer balance

Change password form
Create user account

Add company Form
Add New Product form

Add computer system form
Update shop-information form


Test case
If connection of database is not closed at unload of this form then this error occurred.so
needs to close connection of database as
Private Sub Form_Unload(Cancel As Integer)
con.Close
End Sub
In database setsold table has p2 field, this field have to allow zero lenth.

I the database there is field name “login name’ have no value so this error occurred.
So insert login name and password.
This error occure when in database the data type is not matching. So need to give
correct data type.

There is not any item in the database in the requested field. So need to insert a item or
generate a message.
The insert into command have syntax error. So need to write correct syntax.

When execute the insert into statement, there is any extra parameter.
In database customeaddressfield not found because I have write wrong table name.

Conection to database should be open when we execute any database statment.
I dcrease the size of all text field and labels to correct this error














Login form
Private Sub Form_Load()

Call connectdatabase
rs.ActiveConnection = con
rs.CursorLocation = adUseClient
rs.CursorType = adOpenDynamic
rs.Source = "select *from usertable"
rs.Open
Frame1.Left = -8000
End Sub
Private Sub lvButtons_H1_Click()

a = MsgBox("Do you really want to quit?", vbYesNo, "Endnow")
If a = 6 Then
End
End If
End Sub
Private Sub lvButtons_H2_Click()

If Text1.Text = "" And Text2.Text = "" Then
MsgBox "Please enter the Login name & password!"
Exit Sub
End If
If Text2.Text = "" And Text1.Text <> "" Then
MsgBox "Enter Your Password"
Text2.SetFocus
Exit Sub
End If
If Text2.Text <> "" And Text1.Text = "" Then
MsgBox "Enter Your Username"
Exit Sub
End If
rs.MoveFirst
For i = 1 To rs.RecordCount
If rs.Fields(2) = Text1.Text And rs.Fields(3) = Text2.Text Then
If rs.Fields(6) = ("admin") Then
mainfrm.Show
Unload Me
con.Close
Exit Sub
End If
If rs.Fields(6) = ("employee") Then
mainfrm.Show
mainfrm.admin.Visible = False
Unload Me
con.Close
Exit Sub
End If
End If
rs.MoveNext
Next i
If rs.EOF = True Then
MsgBox "Invalid login name & password!"
Text2.Text = ""
Text2.SetFocus
End If
End Sub
Private Sub Text1_Change()

Text1.BackColor = &HC0FFC0
End Sub
Private Sub Text1_Click()
Text1.BackColor = &H80000009
End Sub
Private Sub Text1_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then
Text2.SetFocus
End If
End Sub
Private Sub Text2_Change()

End Sub
Private Sub Text2_Click()
Text2.BackColor = &H80000009
End Sub
Private Sub Text2_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Call lvButtons_H2_Click
End If
End Sub
Private Sub Timer2_Timer()

Frame1.Left = Frame1.Left + 200
If Frame1.Left = 3000 Then
Timer2.Enabled = False

End If
End Sub
Main form
Private Sub about_Click()

aboutfrm.Show
End Sub
Private Sub asssembled_Click()

sellcomputer.Show
End Sub
Private Sub bronded_Click()

Sellbrondedcom.Show
End Sub
Private Sub brondedreport_Click()

reportcomputersys.Show
End Sub
Private Sub company_Click()

addcompany.Show
End Sub
Private Sub component_Click()

DataReport1.Show
End Sub
Private Sub computersystem_Click()

addcomputersystem.Show
End Sub
Private Sub customer_Click()

customeraccount.Show
End Sub
Private Sub emloyee_Click()

user.Show
End Sub
Private Sub Exit_Click()
b = MsgBox("Do you really want to quit?", vbYesNo, "Conformation")
If b = 6 Then
End

Else
End If
End Sub
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, x As Single,

Y As Single)
Frame1.BackColor = &H404040
End Sub
Private Sub group_Click()
End Sub
Private Sub logo_Click()

shop.Show
End Sub
Private Sub logoff_Click()

loginform.Show
Unload Me
End Sub
Private Sub part_Click()

sellcomputerpart.Show
End Sub
Private Sub monthly_Click()
End Sub
Private Sub pass_Click()

changepasswd.Show
End Sub
Private Sub payment_Click()
End Sub
Private Sub Picture1_MouseMove(Button As Integer, Shift As Integer, x As

Single, Y As Single)
Frame1.BackColor = &H40&
End Sub
Private Sub product_Click()

addproduct.Show
End Sub

Private Sub quatation_Click()

quotation.Show
End Sub
Private Sub soldcom_Click()

reportpart.Show
End Sub
Private Sub Timer1_Timer()

ibldate.Caption = Format(Date, "dd-mmm-yyyy")
iblday.Caption = Format(Date, "dddd")
ibltime.Caption = Time
End Sub
Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)

Select Case Button.Index
Case 1:
Case 2:
asssembled_Click
Case 3:
bronded_Click
Case 4:
logoff_Click
Case 5:
Exit_Click
End Select
End Sub
Sell computer part

Dim price As Double
Dim temp As String
Dim bool As Boolean
Dim p1, p2 As Double
Dim w1, w2 As Integer
Private Sub Clearall_Click()
End Sub
Private Sub Combo19_Click()

Combo27.Clear
temp = "RAM"
If rs3.State = adStateOpen Then rs3.Close

rs3.Open "select Range from itemdetail where Itemname='" & temp & "' and
Company='" & Comboram.Text & "' and Type='" & Combo19.Text & "'"
While rs3.EOF = False
Combo27.AddItem rs3(0)
rs3.MoveNext
Wend
End Sub

Combo28.Clear
temp = "Processor"
Company='" & ComboProcessor.Text & "' and Type='" & Combo20.Text & "'"
rs3.MoveNext
Wend
End Sub
Combo29.Clear
temp = "MotherBoard"
Company='" & Combomotherboard.Text & "' and Type='" & Combo21.Text & "'"
rs3.MoveNext
Wend
End Sub

temp = "Mouse"
rs3.Open "select Serialno from itemdetail where Itemname='" & temp & "' and
Company='" & Combomouse.Text & "' and Type='" & Combo22.Text & "'"
rs3.MoveNext
Wend
End Sub


Combo30.Clear
temp = "Speaker"
Company='" & Combospeaker.Text & "' and Type='" & Combo23.Text & "'"
rs3.MoveNext
Wend
End Sub

Combo31.Clear
temp = "Monitor"
Company='" & Combomonitor.Text & "' and Type='" & Combo24.Text & "'"
rs3.MoveNext
Wend
End Sub
temp = "Modem"
Company='" & Combomodem.Text & "' and Type='" & Combo25.Text & "'"
rs3.MoveNext
Wend
End Sub

temp = "RAM"
Combo38.Clear
Company='" & Comboram.Text & "' and Type='" & Combo19.Text & "' and
Range='" & Combo27.Text & "'"
rs3.MoveNext

Wend
End Sub
Combo39.Clear
temp = "Processor"
Company='" & ComboProcessor.Text & "' and Type='" & Combo20.Text & "' and
rs3.MoveNext
Wend
End Sub
Combo40.Clear
temp = "MotherBoard"
Company='" & Combomotherboard.Text & "' and Type='" & Combo21.Text & "'
and Range='" & Combo29.Text & "'"
rs3.MoveNext
Wend
End Sub
temp = "Speaker"
Company='" & Combospeaker.Text & "' and Type='" & Combo23.Text & "' and
rs3.MoveNext
Wend
End Sub
temp = "Monitor"
Company='" & Combomonitor.Text & "' and Type='" & Combo24.Text & "' and
rs3.MoveNext

Wend
End Sub
temp = "Printer"
Company='" & Comboprinter.Text & "' and Type='" & Combo34.Text & "'"
rs3.MoveNext
Wend
End Sub

Static i As Integer
Static hdprice As Double
rs3.Open "select Price from itemdetail where Serialno='" & Combo35.Text & "'"
text4.Text = rs3(0)
If i = 0 Then
hdprice = Val(text4)
price = price + hdprice
Else
price = price - hdprice
hdprice = Val(text4)
price = price + hdprice
End If
i=i+1
Text21 = price
Text22 = price * 4 / 100
Text23 = price + Val(Text22)
End Sub

Static cdrprice As Double
Static i As Integer
Text5.Text = rs3(0)
If i = 0 Then
cdrprice = Val(Text5)
price = price + cdrprice
Else
price = price - cdrprice
cdrprice = Val(Text5)

price = price + cdrprice

End If
i=i+1
Text21 = price
Text22 = price * 4 / 100
End Sub
Static cdwprice As Double
Static i As Integer
Text6.Text = rs3(0)
If i = 0 Then
cdwprice = Val(Text6)
price = price + cdwprice
Else
price = price - cdwprice
cdwprice = Val(Text6)
price = price + cdwprice
End If
i=i+1
Text21 = price
Text22 = price * 4 / 100
End Sub
Static ramprice As Double
Static i As Integer
Text7.Text = rs3(0)
If i = 0 Then
ramprice = Val(Text7)
price = price + ramprice
Else
price = price - ramprice
ramprice = Val(Text7)
price = price + ramprice
End If
i=i+1
Text21 = price
Text22 = price * 4 / 100
End Sub


Static proprice As Double
Static i As Integer
Text8.Text = rs3(0)
If i = 0 Then
proprice = Val(Text8)
price = price + proprice
Else
price = price - proprice
proprice = Val(Text8)
price = price + proprice
End If
i=i+1
Text21 = price
Text22 = price * 4 / 100
End Sub
Static mbprice As Double
Static i As Integer
Text9.Text = rs3(0)
If i = 0 Then
mbprice = Val(Text9)
price = price + mbprice
Else
price = price - mbprice
mbprice = Val(Text9)
price = price + mbprice
End If
i=i+1
Text21 = price
Text22 = price * 4 / 100
End Sub
Static fdprice As Double
Static i As Integer
Text10 = rs3(0)

If i = 0 Then
fdprice = Val(Text10)
price = price + fdprice
Else
price = price - fdprice
fdprice = Val(Text10)
price = price + fdprice
End If
i=i+1
Text21 = price
Text22 = price * 4 / 100
End Sub
Static dvdrprice As Double
Static i As Integer
Text11.Text = rs3(0)
If i = 0 Then
dvdrprice = Val(Text11)
price = price + dvdrprice
Else
price = price - dvdrprice
dvdrprice = Val(Text11)
price = price + dvdrprice
End If
i=i+1
Text21 = price
Text22 = price * 4 / 100
End Sub
Static dvdwprice As Double
Static i As Integer
If i = 0 Then
dvdwprice = Val(Text12)
price = price + dvdwprice
Else
price = price - dvdwprice
dvdwprice = Val(Text12)
price = price + dvdwprice
End If

i=i+1
Text21 = price
Text22 = price * 4 / 100
End Sub

Static kbdprice As Double
Static i As Integer
If i = 0 Then
kbdprice = Val(Text13)
price = price + kbdprice
Else
price = price - kbdprice
kbdprice = Val(Text13)
price = price + kbdprice
End If
i=i+1
Text21 = price
Text22 = price * 4 / 100
End Sub

Static msprice As Double
Static i As Integer
If i = 0 Then
msprice = Val(Text14)
price = price + msprice
Else
price = price - msprice
msprice = Val(Text14)
price = price + msprice
End If
i=i+1
Text21 = price
Text22 = price * 4 / 100

End Sub

Static spkprice As Double
Static i As Integer
'temp = "Speaker"
If i = 0 Then
spkprice = Val(Text15)
price = price + spkprice
Else
price = price - spkprice
spkprice = Val(Text15)
price = price + spkprice
End If
i=i+1
Text21 = price
Text22 = price * 4 / 100
End Sub

Static monprice As Double
Static i As Integer
'temp = "Monitor"
If i = 0 Then
monprice = Val(Text16)
price = price + monprice
Else
price = price - monprice
monprice = Val(Text16)
price = price + monprice
End If
i=i+1
Text21 = price
Text22 = price * 4 / 100
End Sub

Static upsprice As Double

Static i As Integer
'temp = "UPS"
If i = 0 Then
upsprice = Val(Text17)
price = price + upsprice
Else
price = price - upsprice
upsprice = Val(Text17)
price = price + upsprice
End If
i=i+1
Text21 = price
Text22 = price * 4 / 100
End Sub

Static modprice As Double
Static i As Integer
'temp = "Modem"
If i = 0 Then
modprice = Val(Text18)
price = price + modprice
Else
price = price - modprice
modprice = Val(Text18)
price = price + modprice
End If
i=i+1
Text21 = price
Text22 = price * 4 / 100
End Sub


Static lcardprice As Double
Static i As Integer
'temp = "LAN Card"
If i = 0 Then
lcardprice = Val(Text19)
price = price + lcardprice
Else
price = price - lcarddprice
lcardprice = Val(Text19)
price = price + lcardprice
End If
i=i+1
Text21 = price
Text22 = price * 4 / 100
End Sub

Static prprice As Double
Static i As Integer

If i = 0 Then
prprice = Val(Text20)
price = price + prprice
Else
price = price - prprice
prprice = Val(Text20)
price = price + prprice
End If
i=i+1
Text21 = price
Text22 = price * 4 / 100
End Sub


Static scnprice As Double
Static i As Integer
'temp = "Scanner"
If i = 0 Then
scnprice = Val(Text27)
price = price + scnprice
Else
price = price - scnprice
scnprice = Val(Text27)
price = price + scnprice
End If
i=i+1
Text21 = price
Text22 = price * 4 / 100
End Sub

Static cabprice As Double
Static i As Integer
If i = 0 Then
cabprice = Val(Text28)
price = price + cabprice
Else
price = price - cabprice
cabprice = Val(Text28)
price = price + cabprice
End If
i=i+1
Text21 = price
Text22 = price * 4 / 100
End Sub
Private Sub Combocabinet_Click()

temp = "Cabinet"

Company='" & Combocabinet.Text & "'"
rs3.MoveNext
Wend
End Sub
Private Sub Combocdrom_Click()

Combo36.Clear
temp = "CD ROM"
Company='" & Combocdrom.Text & "'"
rs3.MoveNext
Wend
End Sub
Private Sub Combocdwriter_Click()

Combo37.Clear
temp = "CD Writer"
Company='" & Combocdwriter.Text & "'"
rs3.MoveNext
Wend
End Sub
Private Sub Combodvdrom_Click()

temp = "DVD ROM"
Company='" & Combodvdrom.Text & "'"
rs3.MoveNext
Wend
End Sub

Private Sub Combodvdwriter_Click()

temp = "DVD Writer"
Company='" & Combodvdwriter.Text & "'"
rs3.MoveNext
Wend
End Sub
Private Sub Combofloppy_Click()

Combo41.Clear
temp = "Floppy Drive"
Company='" & Combofloppy.Text & "'"
rs3.MoveNext
Wend
End Sub
Private Sub Comboharddisk_Click()

temp = "Hard Disk"
rs3.Open "select Company,Type from itemdetail where Itemname='" & temp & "'
and Company='" & Comboharddisk.Text & "'"
If rs3.Fields(0).Value = Comboharddisk.Text Then bool = True
For i = 0 To Comboharddisktype.ListCount
If Comboharddisktype.List(i) = rs3(1) Then bool = False
Next
If bool = True Then
Comboharddisktype.AddItem rs3(1)
Else
bool = True
End If
rs3.MoveNext
Wend
End Sub

Private Sub Comboharddiskrange_Click()

Combo35.Clear
temp = "Hard Disk"
Company='" & Comboharddisk.Text & "' and Type='" & Comboharddisktype.Text
& "' and Range='" & Comboharddiskrange.Text & "'"
rs3.MoveNext
Wend
End Sub
Private Sub Comboharddisktype_Click()

Comboharddiskrange.Clear
harddiskprice = ""
temp = "Hard Disk"
Company='" & Comboharddisk.Text & "' and Type='" & Comboharddisktype.Text
& "'"
Comboharddiskrange.AddItem rs3(0)
rs3.MoveNext
Wend
End Sub
Private Sub Combokeyboard_Click()

temp = "Keyboad"
Company='" & Combokeyboard.Text & "'"
rs3.MoveNext
Wend
End Sub

FUTURE SCOPE
The future scope of this software is given below.
• Bar code support.
• make rebates on system configuration
• make rebates on group of components
• make system configuration with rebates
• make tribute on system configuration
• Export data filters /employees, payments, companies, sold items, components-
- XLS /Excel/ file format
- XML file format
- HTML file format
and later change/print that files.
• Quickly create database backup!
• Debts/Demand customer management.
• Customize bills that you print!
• Create estimates and latter convert it into bills!
• Reports to make comparisons between months (total sum, or sum by
employees)!
• Sell computer system by instalments!
• Print bills with currency sign.
• Different kind of reports.
• Pay - roll administration for your employees!
• Keep track of you suppliers!
• Server database is protected from unauthorized modifications!
• Process payments quickly and efficiently!
• Unique design with very functional user interface!
• Improve your store business with various reports and statistics.

Bibliography
Books:
1) Programing Microsoft visual basic 6.0
2) Mastering visual basic 6
3) Black book visual basic
4) Complete reference in visual basic 6
5) System analysis and design by elias m. awad
Websites:
1) www.a1vbcode.com
2) www.vbcode.com
3) www.codeguru.com
4) www.vbexpert.com
5) www.1000project.com

Computer Shop Management System

Uploaded by

Copyright:

Available Formats

Computer Shop Management System

Uploaded by

Document Information

Copyright

Available Formats

Share this document

Share or Embed Document

Sharing Options

Did you find this document useful?

Is this content inappropriate?

Copyright:

Available Formats

Computer Shop Management System

Uploaded by

Copyright:

Available Formats

Table of Contents

 Front end tool……………………………………………………………………………6

 Back end tool…………….………………………………………………………………5

Project Scope …………...………………………………………………………………………5

Product Features ………………….……………………………………………………………5

Data flow diagram………….……………………………………………………………………8

3) Sell computer part form………………………………………………………………….5

4)make quotation form….………………………………………………………………….3

5) Update customer balance……………………………………………………………….4

6) Sell computer system form……………………..……………………………………….5

8) Create user account….………………………………………………………………….3

9) Add company form……………………………………………………………………….4

10) Add new product form …………………………………………………………….5

11) Add computer system………………………………………………………………….

12) Update shop information form….…………………………….……………………….3

Vikrant Singh Baghel Page 1

Vikrant Singh Baghel Page 2

1) 20 GB HDD Free Space

 Front End Tool: MS Visual Basic6.0

 Back End Tool: MS Access

 PLATFORM USED: Windows XP, Windows 2000.

It is the project about Computer-shop management System. It automates the

The scope of project ‘Computer-shop management system’ is to Develop

Vikrant Singh Baghel Page 3

Vikrant Singh Baghel Page 4

• make system configuration

3. Sell Computer System Module

Vikrant Singh Baghel Page 5

1) Sell branded computer system

4. Update Customer Balance Module

5. Make Quotation Module

6. Change Password Module

7. Create user account Module

8. Add Product Module

Vikrant Singh Baghel Page 6

9. Add computer system Module

10. Add company Module

11. Change Shop information Module

12. Product Price Report:

13. Sold computer part Report:

14. Sold computer system Report:

Vikrant Singh Baghel Page 7

Sell computer Change Make Change REPORT Administrator

Price Report Sold Computer Sold computer

Add Add Create user Add Computer Add computer

Vikrant Singh Baghel Page 8

Data Flow Diagram:

Zero Level DFD:

First Level DFD:

Sold computer part History sold computer system history

Login Issue detail

Login Detail Rep. Detail

Search criteria Update History

Computer part Record

Second Level DFD:

1. Sell computer part/system

Computer part/system Record

Computer Customer detail

Verify sold detail

Sell computer part/system