Computer Shop Management

PROJECT REPORT
ON
“COMPUTER –SHOP MANAGEMENT SYSTEM”
SUBMITTED BY:
<NAME>-<ROLL NO>
<Course name>
BONAFIDE CERTIFICATE
Certified that this project report titled " COMPUTER –SHOP

MANAGEMENT SYSTEM " is the bona-fide work of Name (SMU Roll No.
) who carried out the project work under my supervision.
SIGNATURE SIGNATURE
HEAD OF THE DEPARTMENT FACULTY IN CHARGE
1
ACKNOWLEDGEMENT
I, “<NAME>-”, owe enormous intellectual debt towards my faculty

guide < NAME >, who has augmented my knowledge in the field of
“COMPUTER –SHOP MANAGEMENT SYSTEM”, helping me learn about
the process and giving me valuable insight into the subject.
I am obliged to her for being extremely patient, giving me sufficient

time for discussions and guidance at all stages through the course of this
research. My increased spectrum of knowledge in this field is the result of
his constant supervision and direction that has helped me to absorb
relevant and high quality information.
I would like to thank his for his guidance and enriching my thoughts in
this field from different perspectives.
Last but not the least, I feel indebted to all those persons and
organizations which have provided information and helped me directly or
indirectly in successful completion of this study.
<NAME>-
(ROLL NO)
2
CERTIFICATE OF THE GUIDE
This is to certify that the Project Work titled "PROJECT NAME" is a

bonafide work of (NAME), Reg. No: (ROLL NO)carried out in partial
fulfillment for the award of degree of MBA of Sikkim Manipal University
under my guidance. This project work is original and not submitted earlier
for the award of any degree / diploma or associateship of any other
University / Institution.
(Signature of the Guide )

<Guide Name>,
<Designation >
<Address>
Place :
Date :
3
Student Declaration
I hereby declare that the project report entitled “COMPUTER –SHOP

MANAGEMENT SYSTEM” submitted in partial fulfillment for the degree
of Masters of Business Administration (MBA) to Sikkim-Manipal University,
India, is my original work and not submitted for the award of any Degree,
Diploma, Fellowship or any other similar Title or Prizes.
NAME
Reg. No.: ROLL NO
Place: <place name>
Date:
University Study Centre Certificate: This is to certify that the project

report entitled " COMPUTER –SHOP MANAGEMENT SYSTEM"
Submitted in partial fulfillment of the requirements for the degree of Masters
of Business Administration of Sikkim - Manipal University of Health, Medical
and Technological Sciences.
NAME
Has worked under my supervision and guidance and that no part of this
report has
been submitted for the award of any other degree, Diploma, Fellowship or
other similar titles or prizes and that the work has not been published in
any journal or
Magazine.
Reg. No. : ROLL NO

Certified
<study center head name>
4
Examiner's Certification
The Project report of Mr. NAME, Reg. No. ROLL NO entitled

“COMPUTER –SHOP MANAGEMENT SYSTEM” is approved and is
acceptable in quality and form.
Internal Examiner External Examiners
5
PREFACE
The computer-shops are increasing day by day.There is lot of work as to sell

computer system/part, to store new computer system/part, to maintain customer
balance and his information, to mantain user account, to maintain and manage shop’s
information and to maintain report of sold computer system/part. But if these works is
done manually, takes to much time and hard work. So there is need of a computer-
software that provide good interface to done these work very efficiently. So I decide to
develop software in visual-basic 6.0 for computer-shop. I give the name to my software
“COMPUTER-SHOP MANAGEMENT SYSTEM”.This is self contained software.
This project report provide all the detail view of the software “Computer-shop
management system”.From my point of view, there is no further system or subsystem
explained elsewhere.This project report containts the introduction, objective, purpose,
project scope, product perspective, product features, h/w and s/w reqirements, frontend
and backend tool, product feature, process logic, logic diagram, data flow diagram, ER
diagram, database detail and data structure, and bibliography.
I have exerted a conscious effort to make software user-oriented and user-
friendly.I hope the users would find the software not only interested but also useful.
<NAME>
Roll no:- <>
6
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
7
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 …………………………………………………………………………………
8
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
9
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.
10
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 -
11
• 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:
12
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
13
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.
14
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
15
Data Flow Diagram:
Zero Level DFD:
Computer-shop
Req. management Resp. Customer
Customer
System
First Level DFD:
Sold computer part History sold computer system history
I Sold sold computer system detail

computer
part Customer
Item Sold
Computer
User/admin
system
Login Issue detail
Login Detail Rep. Detail
Update Report
Login
Search criteria Update History
Add
computer Add
system Search
computer
part Search detail
Customer detail
Compter Compter
system Part Detail
Detail Customer
Computer part Record

Computer Part Detail
16
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
17
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
18
configuration
ER Diagram:- Brand_name
system_name Warranty_period
Item_price
Warranty_period
Item_type
Computer
user_ph.no. system_detail
user_address Brand_name
Item_price
Login-
user_name name&pass
word Item_name
serial_no.
Sell
User computer Computer
system/part part_DETAIL
BALANCE Paid
Amount
Serial.No.
Warranty.per
d
Balance
Customer
Date
Invoiceno. Invoice no.

Paid_amount
C_name Tot.amount c_address
c_ph.no.
c_Balance
c_name
19
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
20

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
21
Main form
Sold computer Parts
22
Make quotation
Update customer balance
23
Change password form
Create user account
24
Add company Form
Add New Product form
25
Add computer system form
Update shop-information form
26
27
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.
28
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.
29
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.
30
When execute the insert into statement, there is any extra parameter.
In database customeaddressfield not found because I have write wrong table name.
31
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
32
33
34
35
36
37
38
39
40
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

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
41
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

End Sub
Private Sub Text2_Click()
Text2.BackColor = &H80000009
End Sub
Private Sub Text2_KeyPress(KeyAscii As Integer)
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
42
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
43
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
44
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
45
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
46
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
47
Wend
End Sub
Combo39.Clear
temp = "Processor"
Company='" & ComboProcessor.Text & "' and Type='" & Combo20.Text & "' and
rs3.MoveNext
Wend
End Sub
Combo40.Clear
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
48
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
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
49
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
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
End If
i=i+1
Text21 = price
Text22 = price * 4 / 100
End Sub
50
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
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
End If
i=i+1
Text21 = price
Text22 = price * 4 / 100
End Sub
Static fdprice As Double
Static i As Integer
Text10 = rs3(0)
51
If i = 0 Then
fdprice = Val(Text10)
price = price + fdprice
Else
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
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
End If
52
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
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
End If
i=i+1
Text21 = price
Text22 = price * 4 / 100
53
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
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
End If
i=i+1
Text21 = price
Text22 = price * 4 / 100
End Sub
54
Static upsprice As Double
Static i As Integer
'temp = "UPS"
If i = 0 Then
upsprice = Val(Text17)
price = price + upsprice
Else
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
End If
i=i+1
Text21 = price
Text22 = price * 4 / 100
End Sub
55
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
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
End If
i=i+1
Text21 = price
Text22 = price * 4 / 100
End Sub
56
Static scnprice As Double
Static i As Integer
'temp = "Scanner"
If i = 0 Then
scnprice = Val(Text27)
price = price + scnprice
Else
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
End If
i=i+1
Text21 = price
Text22 = price * 4 / 100
End Sub
Private Sub Combocabinet_Click()

temp = "Cabinet"
57
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
58
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
59
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"
& "'"
Comboharddiskrange.AddItem rs3(0)
rs3.MoveNext
Wend
End Sub
Private Sub Combokeyboard_Click()

temp = "Keyboad"
Company='" & Combokeyboard.Text & "'"
rs3.MoveNext
Wend
End Sub
60
Private Sub Combolan_Click()
temp = "LAN Card"
Company='" & Combolan.Text & "'"
rs3.MoveNext
Wend
End Sub
Private Sub Combomodem_Click()

temp = "Modem"
and Company='" & Combomodem.Text & "'"
If rs3.Fields(0).Value = Combomodem.Text Then bool = True
For i = 0 To Combo25.ListCount
If Combo25.List(i) = rs3(1) Then bool = False
Next
If bool = True Then
Else
bool = True
End If
rs3.MoveNext
Wend
End Sub
Private Sub Combomonitor_Click()

temp = "Monitor"
and Company='" & Combomonitor.Text & "'"
If rs3.Fields(0).Value = Combomonitor.Text Then bool = True
Next
If bool = True Then
61
Else
bool = True
End If
rs3.MoveNext
Wend
End Sub
Private Sub Combomotherboard_Click()

and Company='" & Combomotherboard.Text & "'"
If rs3.Fields(0).Value = Combomotherboard.Text Then bool = True
Next
If bool = True Then
Else
bool = True
End If
rs3.MoveNext
Wend
End Sub
Private Sub Combomouse_Click()

temp = "Mouse"
and Company='" & Combomouse.Text & "'"
If rs3.Fields(0).Value = Combomouse.Text Then bool = True
Next
If bool = True Then
Else
bool = True
End If
rs3.MoveNext
Wend
62
End Sub
Private Sub Comboprinter_Click()
temp = "Printer"
and Company='" & Comboprinter.Text & "'"
If rs3.Fields(0).Value = Comboprinter.Text Then bool = True
Next
If bool = True Then
Else
bool = True
End If
rs3.MoveNext
Wend
End Sub
Private Sub ComboProcessor_Click()

temp = "Processor"
and Company='" & ComboProcessor.Text & "'"
If rs3.Fields(0).Value = ComboProcessor.Text Then bool = True
Next
If bool = True Then
Else
bool = True
End If
rs3.MoveNext
Wend
End Sub
Private Sub Comboram_Click()
temp = "RAM"
and Company='" & Comboram.Text & "'"
63
If rs3.Fields(0).Value = Comboram.Text Then bool = True
Next
If bool = True Then
Else
bool = True
End If
rs3.MoveNext
Wend
End Sub
Private Sub Comboscanner_Click()
temp = "Scanner"
Company='" & Comboscanner.Text & "'"
rs3.MoveNext
Wend
End Sub
Private Sub Combospeaker_Click()

temp = "Speaker"
and Company='" & Combospeaker.Text & "'"
If rs3.Fields(0).Value = Combospeaker.Text Then bool = True
Next
If bool = True Then
Else
bool = True
End If
rs3.MoveNext
Wend
End Sub
Private Sub Comboups_Click()

temp = "UPS"
64
Company='" & Comboups.Text & "'"
rs3.MoveNext
Wend
End Sub
Call setsoldrecordset
Call itemdetail
Call customerrecordset
Reciept.Visible = False
text4.Enabled = False
Text5.Enabled = False
Label32.Visible = False
Text25.Visible = False
ibldate.Caption = Date
'If rs2.State = 1 Then rs2.Close

'rs2.Open "Select * from setsold", cs, adOpenKeyset, adLockOptimistic
invoice.Caption = "S" & (rs2.RecordCount + 1)
65
invoice.FontBold = True
Label38.Caption = "cust" & (rs2.RecordCount + 1)
price = 0
Dim bool As Boolean
If rs3.Fields(0).Value = "Hard Disk" Then
bool = True
For i = 0 To Comboharddisk.ListCount
If Comboharddisk.List(i) = rs3(1) Then bool = False
Next
If bool = True Then
Comboharddisk.AddItem rs3(1)
Else
bool = True
End If
ElseIf rs3.Fields(0).Value = "CD ROM" Then
bool = True
For i = 0 To Combocdrom.ListCount
If Combocdrom.List(i) = rs3(1) Then bool = False
Next
If bool = True Then
Combocdrom.AddItem rs3(1)
Else
bool = True
End If
ElseIf rs3.Fields(0).Value = "CD Writer" Then
bool = True
For i = 0 To Combocdwriter.ListCount
If Combocdwriter.List(i) = rs3(1) Then bool = False
Next
If bool = True Then
Combocdwriter.AddItem rs3(1)
Else
bool = True
End If
ElseIf rs3.Fields(0).Value = "RAM" Then
bool = True
For i = 0 To Comboram.ListCount
If Comboram.List(i) = rs3(1) Then bool = False
Next
If bool = True Then
Comboram.AddItem rs3(1)
Else
bool = True
End If
ElseIf rs3.Fields(0).Value = "Processor" Then
66
bool = True
For i = 0 To ComboProcessor.ListCount
If ComboProcessor.List(i) = rs3(1) Then bool = False
Next
If bool = True Then
ComboProcessor.AddItem rs3(1)
Else
bool = True
End If
ElseIf rs3.Fields(0).Value = "MotherBoard" Then
bool = True
For i = 0 To Combomotherboard.ListCount
If Combomotherboard.List(i) = rs3(1) Then bool = False
Next
If bool = True Then
Combomotherboard.AddItem rs3(1)
Else
bool = True
End If
ElseIf rs3.Fields(0).Value = "Floppy Drive" Then
bool = True
For i = 0 To Combofloppy.ListCount
If Combofloppy.List(i) = rs3(1) Then bool = False
Next
If bool = True Then
Combofloppy.AddItem rs3(1)
Else
bool = True
End If
ElseIf rs3.Fields(0).Value = "Cabinet" Then
bool = True
For i = 0 To Combocabinet.ListCount
If Combocabinet.List(i) = rs3(1) Then bool = False
Next
If bool = True Then
Combocabinet.AddItem rs3(1)
Else
bool = True
End If
ElseIf rs3.Fields(0).Value = "DVD ROM" Then
bool = True
For i = 0 To Combodvdrom.ListCount
If Combodvdrom.List(i) = rs3(1) Then bool = False
Next
If bool = True Then
Combodvdrom.AddItem rs3(1)
67
Else
bool = True
End If
ElseIf rs3.Fields(0).Value = "DVD Writer" Then
bool = True
For i = 0 To Combodvdwriter.ListCount
If Combodvdwriter.List(i) = rs3(1) Then bool = False
Next
If bool = True Then
Combodvdwriter.AddItem rs3(1)
Else
bool = True
End If
ElseIf rs3.Fields(0).Value = "Keyboad" Then
bool = True
For i = 0 To Combokeyboard.ListCount
If Combokeyboard.List(i) = rs3(1) Then bool = False
Next
If bool = True Then
Combokeyboard.AddItem rs3(1)
Else
bool = True
End If
ElseIf rs3.Fields(0).Value = "Mouse" Then
bool = True
For i = 0 To Combomouse.ListCount
If Combomouse.List(i) = rs3(1) Then bool = False
Next
If bool = True Then
Combomouse.AddItem rs3(1)
Else
bool = True
End If
ElseIf rs3.Fields(0).Value = "Speaker" Then
bool = True
For i = 0 To Combospeaker.ListCount
If Combospeaker.List(i) = rs3(1) Then bool = False
Next
If bool = True Then
Combospeaker.AddItem rs3(1)
Else
bool = True
End If
ElseIf rs3.Fields(0).Value = "Monitor" Then
bool = True
For i = 0 To Combomonitor.ListCount
68
If Combomonitor.List(i) = rs3(1) Then bool = False
Next
If bool = True Then
Combomonitor.AddItem rs3(1)
Else
bool = True
End If
ElseIf rs3.Fields(0).Value = "UPS" Then
bool = True
For i = 0 To Comboups.ListCount
If Comboups.List(i) = rs3(1) Then bool = False
Next
If bool = True Then
Comboups.AddItem rs3(1)
Else
bool = True
End If
ElseIf rs3.Fields(0).Value = "Modem" Then
bool = True
For i = 0 To Combomodem.ListCount
If Combomodem.List(i) = rs3(1) Then bool = False
Next
If bool = True Then
Combomodem.AddItem rs3(1)
Else
bool = True
End If
ElseIf rs3.Fields(0).Value = "LAN Card" Then
bool = True
For i = 0 To Combolan.ListCount
If Combolan.List(i) = rs3(1) Then bool = False
Next
If bool = True Then
Combolan.AddItem rs3(1)
Else
bool = True
End If
ElseIf rs3.Fields(0).Value = "Printer" Then
bool = True
For i = 0 To Comboprinter.ListCount
If Comboprinter.List(i) = rs3(1) Then bool = False
Next
If bool = True Then
Comboprinter.AddItem rs3(1)
Else
bool = True
69
End If
ElseIf rs3.Fields(0).Value = "Scanner" Then
bool = True
For i = 0 To Comboscanner.ListCount
If Comboscanner.List(i) = rs3(1) Then bool = False
Next
If bool = True Then
Comboscanner.AddItem rs3(1)
Else
bool = True
End If
End If
rs3.MoveNext
Wend
End Sub
Private Sub Form_Unload(cancel As Integer)

con.Close
End Sub

Unload Me
End Sub
Private Sub Reciept_Click()
On Error Resume Next:
sellcomputer.PrintForm
End Sub
Private Sub save_Click()
b = (MsgBox("are you sure you want to save?", vbYesNo, conformation))
If b <> 6 Then
Exit Sub
End If
If Combo35.Text = "" Then
End If
End If
End If
End If
End If
End If
70
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
If vkTextBox1.Text = "" Then
MsgBox " Customer Name is Empty"
vkTextBox1.SetFocus
Exit Sub
ElseIf vkTextBox2.Text = "" Then
MsgBox " Customer Address is Empty"
vkTextBox2.SetFocus
Exit Sub
MsgBox " Customer Pnone No is Empty"
vkTextBox3.SetFocus
Exit Sub
End If
If text4.Text = "" And Text5.Text = "" And Text6.Text = "" And Text7.Text = "" And
Text8.Text = "" _
And Text9.Text = "" And Text10.Text = "" And Text11.Text = "" And Text12.Text
= "" And Text13.Text = "" _
= "" And Text18.Text = "" _
71
= "" Then
MsgBox "Any product is not choosen by you. Please choose any product."
Exit Sub
End If
If Text24.Text = "" Then

MsgBox " Payment Amount is Empty", vbInformation
Text24.SetFocus
Exit Sub
ElseIf Not IsNumeric(Text24) Then
MsgBox " Payment Amount should be numaric", vbInformation
Text24.Text = ""
Text24.SetFocus
Exit Sub
Else
con.BeginTrans
con.Execute "Insert into setsold values('" & invoice.Caption & "','" &
ibldate.Caption & "','" & Combo35.Text & "','" & Combo36.Text & "','" &
Combo37.Text & "','" & Combo38.Text & "','" & Combo39.Text & "','" &
Combo52.Text & "','" & Combo53.Text & "'," & Text23.Text & ")"
con.CommitTrans
con.BeginTrans
con.Execute "Insert into Balance values('" & vkTextBox1.Text & "','" &
invoice.Caption & "'," & Text23.Text & "," & Text24.Text & ",'" & ibldate.Caption &
"','" & Text26.Text & "')"
con.CommitTrans
con.BeginTrans
con.Execute "Insert into customer values('" & vkTextBox1.Text & "','" &
vkTextBox2.Text & "','" & vkTextBox3.Text & "','" & Text26.Text & "','" &
invoice.Caption & "')"
con.CommitTrans
If Text26.Visible = True And Val(Text26.Text) > 0 Then
If rs4.State = 1 Then rs4.Close
rs4.Open "Select Customername from Customer where Customername='" &
vkTextBox1.Text & "'"
If rs4.EOF = False Then
con.BeginTrans
con.Execute " Update Customer set Balance= Balance + " & Text26.Text & "
where Customername='" & vkTextBox1.Text & "'"
con.CommitTrans
72
Else
con.BeginTrans
' cs.Execute "Insert into Customer values('" & Text1.Text & "','" & Text2.Text &
"','" & Text3.Text & "'," & Text26.Text & ")"
con.CommitTrans
End If
End If
If Combo35.Text <> "" Then
rs3.Open "select buyingprice,warenty from itemdetail where Serialno='" &
Combo35.Text & "'"
p1 = rs3(0)
w1 = rs3(1)
sql = "insert into

sold(invoice,selldate,customername,address,customerphone,itemname,company
,type,range,buyingprice,price,serialno,warenty) values('" & invoice.Caption & "','"
& ibldate.Caption & "','" & vkTextBox1.Text & "','" & vkTextBox2.Text & "','" &
vkTextBox3.Text & "','" & Label11.Caption & "','" & Comboharddisk.Text & "','" &
Comboharddisktype.Text & "','" & Comboharddiskrange.Text & "','" & p1 & "','" &
text4.Text & "','" & Combo35.Text & "','" & w1 & "')"
Call insertquery
End If
Combo36.Text & "'"
p2 = rs3(0)
w2 = rs3(1)
sql = "insert into

,buyingprice,price,serialno,warenty) values('" & invoice.Caption & "','" &
ibldate.Caption & "','" & vkTextBox1.Text & "','" & vkTextBox2.Text & "','" &
vkTextBox3.Text & "','" & Label12.Caption & "','" & Combocdrom.Text & "','" & p2
& "','" & Text5.Text & "','" & Combo36.Text & "','" & w2 & "')"
Call insertquery
End If
Combo37.Text & "'"
p30 = rs3(0)
w30 = rs3(1)
73
sql = "insert into
vkTextBox3.Text & "','" & Label4.Caption & "','" & Combocdwriter.Text & "','" &
p30 & "','" & Text6.Text & "','" & Combo37.Text & "','" & w30 & "')"
Call insertquery
End If
Combo38.Text & "'"
p31 = rs3(0)
w31 = rs3(1)
sql = "insert into
vkTextBox3.Text & "','" & Label14.Caption & "','" & Comboram.Text & "','" &
Combo19.Text & "','" & Combo27.Text & "','" & p31 & "','" & Text7.Text & "','" &
Combo38.Text & "','" & w31 & "')"
Call insertquery
End If
Combo39.Text & "'"
p3 = rs3(0)
w3 = rs3(1)
sql = "insert into
vkTextBox3.Text & "','" & Label15.Caption & "','" & ComboProcessor.Text & "','" &
Combo39.Text & "','" & w3 & "')"
Call insertquery
End If
Combo40.Text & "'"
p4 = rs3(0)
74
w4 = rs3(1)
sql = "insert into
vkTextBox3.Text & "','" & Label16.Caption & "','" & Combomotherboard.Text &
"','" & Combo21.Text & "','" & Combo29.Text & "','" & p4 & "','" & Text9.Text & "','"
& Combo40.Text & "','" & w4 & "')"
Call insertquery
End If
Combo41.Text & "'"
p5 = rs3(0)
w5 = rs3(1)
sql = "insert into
vkTextBox3.Text & "','" & Label17.Caption & "','" & Combofloppy.Text & "','" & p5
& "','" & Text10.Text & "','" & Combo41.Text & "','" & w5 & "')"
Call insertquery
End If
Combo42.Text & "'"
p6 = rs3(0)
w6 = rs3(1)
sql = "insert into
vkTextBox3.Text & "','" & Label19.Caption & "','" & Combodvdrom.Text & "','" &
Call insertquery
End If
Combo43.Text & "'"
p7 = rs3(0)
75
w7 = rs3(1)
sql = "insert into
vkTextBox3.Text & "','" & Label20.Caption & "','" & Combodvdwriter.Text & "','" &
Call insertquery
End If
Combo44.Text & "'"
p8 = rs3(0)
w8 = rs3(1)
sql = "insert into
vkTextBox3.Text & "','" & Label21.Caption & "','" & Combokeyboard.Text & "','" &
Call insertquery
End If
Combo45.Text & "'"
p9 = rs3(0)
w9 = rs3(1)
sql = "insert into
,type,buyingprice,price,serialno,warenty) values('" & invoice.Caption & "','" &
vkTextBox3.Text & "','" & Label22.Caption & "','" & Combomouse.Text & "','" &
Combo22.Text & "', '" & p9 & "','" & Text14.Text & "','" & Combo45.Text & "','" &
w9 & "')"
Call insertquery
End If
Combo46.Text & "'"
p10 = rs3(0)
76
w10 = rs3(1)
sql = "insert into
vkTextBox3.Text & "','" & Label23.Caption & "','" & Combospeaker.Text & "','" &
Combo46.Text & "','" & w10 & "')"
Call insertquery
End If
Combo47.Text & "'"
p11 = rs3(0)
w11 = rs3(1)
sql = "insert into
vkTextBox3.Text & "','" & Label26.Caption & "','" & Combomonitor.Text & "','" &
Combo47.Text & "','" & w11 & "')"
Call insertquery
End If
Combo48.Text & "'"
p12 = rs3(0)
w12 = rs3(1)
sql = "insert into
vkTextBox3.Text & "','" & Label24.Caption & "','" & Comboups.Text & "','" & p12 &
"','" & Text17.Text & "','" & Combo48.Text & "','" & w12 & "')"
Call insertquery
End If
Combo49.Text & "'"
77
p13 = rs3(0)
w13 = rs3(1)
sql = "insert into
vkTextBox3.Text & "','" & Label25.Caption & "','" & Combomodem.Text & "','" &
Combo25.Text & "','" & p13 & "','" & Text18.Text & "','" & Combo49.Text & "','" &
w13 & "')"
Call insertquery
End If
Combo50.Text & "'"
p14 = rs3(0)
w14 = rs3(1)
sql = "insert into
vkTextBox3.Text & "','" & Label35.Caption & "','" & Combolan.Text & "','" & p14 &
"','" & Text19.Text & "','" & Combo50.Text & "','" & w14 & "')"
Call insertquery
End If
Combo51.Text & "'"
p15 = rs3(0)
w15 = rs3(1)
sql = "insert into
vkTextBox3.Text & "','" & Label36.Caption & "','" & Comboprinter.Text & "','" &
Combo34.Text & "','" & p15 & "','" & Text20.Text & "','" & Combo51.Text & "','" &
w15 & "')"
Call insertquery
End If
78
Combo52.Text & "'"
p16 = rs3(0)
w16 = rs3(1)
sql = "insert into
vkTextBox3.Text & "','" & Label18.Caption & "','" & Comboscanner.Text & "','" &
Call insertquery
End If
Combo53.Text & "'"
p17 = rs3(0)
w17 = rs3(1)
sql = "insert into
vkTextBox3.Text & "','" & Label11.Caption & "','" & Combocabinet.Text & "','" &
Call insertquery
End If
MsgBox "Data is Saved Properly"
End If
save.Visible = False
Reciept.Visible = True
End Sub
Private Sub sellnew_Click()
save.Enabled = True
Unload Me
sellcomputer.Show
End Sub

Exit Sub
End If
If Not IsNumeric(Text24) Then

MsgBox " Payment Amount should be numaric"
79
Text24.Text = ""
Text24.SetFocus
End If
Label33.Visible = True
Text26.Visible = True
price = Val(Text23) - Val(Text24)
If price < 0 Then
MsgBox "Payment can not much than total price.", vbCritical
Text24.Text = ""
Exit Sub
Else
Text26 = price
End If
End Sub
Private Sub vkOptionButton1_Change(Value As CheckBoxConstants)
End Sub

Text26 = Val(Text23)
Text24 = 0
save.SetFocus
End Sub

Label32.Caption = "Cheque Number"
End Sub

Label32.Caption = "Demand Draft Number"
End Sub
Private Sub vkTextBox1_KeyPress(KeyAscii As Integer)

80
If rs4.State = 1 Then rs4.Close
rs4.Open " Select Customeraddress,Customerphone from Customer where
Customername='" & Text1.Text & "'", cs
vkTextBox2.Text = rs4(0)
vkTextBox2.Text = rs4(1)
Comboharddisk.SetFocus
Else
Text2.SetFocus
End If
End If
End Sub
Private Sub vkTextBox3_Change()

Exit Sub
End If
If Not IsNumeric(vkTextBox3.Text) Then
MsgBox " Customer Phone should be numaric"
vkTextBox3.Text = ""
vkTextBox3.SetFocus
Exit Sub
End If
End Sub
Private Sub vkTextBox3_LostFocus()

If Len(vkTextBox3.Text) < 10 Or Len(vkTextBox3.Text) > 12 Then
MsgBox "Please Enter a valid Mobile number"
vkTextBox3.SetFocus
Exit Sub
End If
End Sub
Sell computer system

Dim p As Double

Call computersysrecordset
Call systemsoldrecordset
lvButtons_H8.Visible = False
81
invoice.Caption = "Sbronded" & (rs7.RecordCount + 1)
invoice.FontBold = True
End Sub

con.Close
End Sub

Unload Me
End Sub

b = (MsgBox("are you sure you want to sell?", vbYesNo, conformation))
If Combocompany.Text = "" And model.Text = "" And categary.Text = "" And
combohard.Text = "" And comboram.Text = "" _
And Combomother.Text = "" And ComboProcessor.Text = "" And
Combomonitor.Text = "" And txtsell.Text = "" Then
MsgBox "Any product is not choosen by you. Please choose any product."
Exit Sub
End If
MsgBox " Customer Name is Empty"
vkTextBox1.SetFocus
Exit Sub
MsgBox " Customer Address is Empty"
vkTextBox2.SetFocus
Exit Sub
MsgBox " Customer Pnone No is Empty"
vkTextBox3.SetFocus
Exit Sub
End If

MsgBox " Payment Amount is Empty"
Text1.SetFocus
Exit Sub
End If
con.BeginTrans
82
con.Execute "Insert into Balance values('" & vkTextBox1.Text & "','" &
invoice.Caption & "','" & txtsell.Text & "','" & Text1.Text & "','" & ibldate.Caption &
"','" & Text2.Text & "')"
con.CommitTrans
con.BeginTrans
con.Execute "Insert into customer values('" & vkTextBox1.Text & "','" &
vkTextBox2.Text & "','" & vkTextBox3.Text & "','" & Text2.Text & "','" &
invoice.Caption & "')"
con.CommitTrans

rs1.Open "select buying_value from computersys where Serialno=" & serial.Text
& ""
p = rs1(0)
sql = "insert into

systemsold(seriel,invoice,customername,address,phone,selldate,buyingvalue,pri
ce,companyname,categary,model,harddisk,ram,motherboard,processor,monitor,
other,warranty) values('" & serial.Text & "','" & invoice.Caption & "','" &
vkTextBox1.Text & "','" & vkTextBox2.Text & "','" & vkTextBox3.Text & "','" &
ibldate.Caption & "','" & p & "','" & txtsell.Text & "','" & Combocompany.Text & "','"
& categary.Text & "','" & model.Text & "','" & combohard.Text & "','" &
comboram.Text & "','" & Combomother.Text & "','" & ComboProcessor.Text & "','"
& Combomonitor.Text & "','" & other.Text & "','" & txtwarranty.Text & "')"
MsgBox (sql)
Call insertquery
MsgBox "Data is Saved Properly"

lvButtons_H8.Visible = True
End Sub

rs1.MoveLast
serial.Text = rs1!serialno
Combocompany.Text = rs1!company
model.Text = rs1!model
categary.Text = rs1!categary
combohard.Text = rs1!harddisk
comboram.Text = rs1!ram
Combomother.Text = rs1!motherboard
ComboProcessor.Text = rs1!processor
Combomonitor.Text = rs1!monitor
83
other.Text = rs1!other
txtsell.Text = rs1!selling_value
txtwarranty.Text = rs1!warranty
End Sub

On Error Resume Next
rs1.MoveNext
End If
End Sub

On Error GoTo l1
If rs1.BOF = False Then
rs1.MovePrevious
End If
Exit Sub
l1:
84
MsgBox "You are at the first record..."
End Sub

rs1.MoveFirst
End Sub

Sellbrondedcom.PrintForm
End Sub

Exit Sub
End If
If Not IsNumeric(Text1) Then

MsgBox " Payment Amount should be numaric"
Text1.Text = ""
Text1.SetFocus
End If
price = Val(txtsell) - Val(Text1)
If price < 0 Then
MsgBox "Payment can not much than total price.", vbCritical
Text1.Text = ""
Exit Sub
85
Else
Text2 = price
End If
End Sub
Private Sub vkTextBox3_Change()

Exit Sub
End If
If Not IsNumeric(vkTextBox3.Text) Then
MsgBox " Customer Phone should be numaric"
vkTextBox3.SetFocus
Exit Sub
End If
End Sub
Make quotation
Dim price As Double
Dim temp As String
Dim bool As Boolean
Dim p1, p2 As Double
Dim w1, w2 As Integer
quotation.PrintForm
End Sub
Combo27.Clear
temp = "RAM"
Company='" & Comboram.Text & "' and Type='" & Combo19.Text & "'"
rs3.MoveNext
Wend
End Sub
Combo28.Clear
temp = "Processor"
Company='" & ComboProcessor.Text & "' and Type='" & Combo20.Text & "'"
86
rs3.MoveNext
Wend
End Sub
Combo29.Clear
Company='" & Combomotherboard.Text & "' and Type='" & Combo21.Text & "'"
rs3.MoveNext
Wend
End Sub

temp = "Mouse"
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 & "'"
87
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
rs3.MoveNext
Wend
End Sub
Combo39.Clear
temp = "Processor"
Company='" & ComboProcessor.Text & "' and Type='" & Combo20.Text & "' and
rs3.MoveNext
Wend
End Sub
Combo40.Clear
Company='" & Combomotherboard.Text & "' and Type='" & Combo21.Text & "'
and Range='" & Combo29.Text & "'"
88
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
text4.Text = rs3(0)
89
If i = 0 Then
Else
price = price - hdprice
End If
i=i+1
Text21 = price
Text22 = price * 4 / 100
End Sub

Static cdrprice As Double
Static i As Integer
Text5.Text = rs3(0)
If i = 0 Then
Else
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
90
Else
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
Else
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
Else
price = price - proprice
End If
91
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
Else
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
Else
price = price - fdprice
End If
i=i+1
Text21 = price
Text22 = price * 4 / 100
End Sub
92
Static dvdrprice As Double
Static i As Integer
If i = 0 Then
Else
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
Else
price = price - dvdwprice
End If
i=i+1
Text21 = price
Text22 = price * 4 / 100
93
End Sub

Static kbdprice As Double
Static i As Integer
If i = 0 Then
Else
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
Else
price = price - msprice
End If
i=i+1
Text21 = price
Text22 = price * 4 / 100
End Sub

Static spkprice As Double
94
Static i As Integer
'temp = "Speaker"
If i = 0 Then
Else
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
Else
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"
95
If i = 0 Then
Else
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
Else
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
96
Else
price = price - lcarddprice
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
Else
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
Else
97
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
Else
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"
98
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"
99
Company='" & Combofloppy.Text & "'"
rs3.MoveNext
Wend
End Sub
Private Sub Comboharddisk_Click()

temp = "Hard Disk"
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"
& "' and Range='" & Comboharddiskrange.Text & "'"
rs3.MoveNext
Wend
End Sub
Private Sub Comboharddisktype_Click()

Comboharddiskrange.Clear
harddiskprice = ""
temp = "Hard Disk"
100
& "'"
Comboharddiskrange.AddItem rs3(0)
rs3.MoveNext
Wend
End Sub
Private Sub Combokeyboard_Click()
temp = "Keyboad"
Company='" & Combokeyboard.Text & "'"
rs3.MoveNext
Wend
End Sub
Private Sub Combolan_Click()
temp = "LAN Card"
Company='" & Combolan.Text & "'"
rs3.MoveNext
Wend
End Sub
Private Sub Combomodem_Click()

temp = "Modem"
and Company='" & Combomodem.Text & "'"
If rs3.Fields(0).Value = Combomodem.Text Then bool = True
Next
If bool = True Then
Else
bool = True
End If
rs3.MoveNext
Wend
101
End Sub
Private Sub Combomonitor_Click()

temp = "Monitor"
and Company='" & Combomonitor.Text & "'"
If rs3.Fields(0).Value = Combomonitor.Text Then bool = True
Next
If bool = True Then
Else
bool = True
End If
rs3.MoveNext
Wend
End Sub
Private Sub Combomotherboard_Click()

and Company='" & Combomotherboard.Text & "'"
If rs3.Fields(0).Value = Combomotherboard.Text Then bool = True
Next
If bool = True Then
Else
bool = True
End If
rs3.MoveNext
Wend
End Sub
Private Sub Combomouse_Click()
temp = "Mouse"
and Company='" & Combomouse.Text & "'"
102
If rs3.Fields(0).Value = Combomouse.Text Then bool = True
Next
If bool = True Then
Else
bool = True
End If
rs3.MoveNext
Wend
End Sub
Private Sub Comboprinter_Click()
temp = "Printer"
and Company='" & Comboprinter.Text & "'"
If rs3.Fields(0).Value = Comboprinter.Text Then bool = True
Next
If bool = True Then
Else
bool = True
End If
rs3.MoveNext
Wend
End Sub
Private Sub ComboProcessor_Click()

temp = "Processor"
and Company='" & ComboProcessor.Text & "'"
If rs3.Fields(0).Value = ComboProcessor.Text Then bool = True
Next
If bool = True Then
Else
bool = True
End If
103
rs3.MoveNext
Wend
End Sub
Private Sub Comboram_Click()
temp = "RAM"
and Company='" & Comboram.Text & "'"
If rs3.Fields(0).Value = Comboram.Text Then bool = True
Next
If bool = True Then
Else
bool = True
End If
rs3.MoveNext
Wend
End Sub
Private Sub Comboscanner_Click()
temp = "Scanner"
Company='" & Comboscanner.Text & "'"
rs3.MoveNext
Wend
End Sub
Private Sub Combospeaker_Click()

temp = "Speaker"
and Company='" & Combospeaker.Text & "'"
If rs3.Fields(0).Value = Combospeaker.Text Then bool = True
Next
If bool = True Then
104
Else
bool = True
End If
rs3.MoveNext
Wend
End Sub
Private Sub Comboups_Click()
temp = "UPS"
Company='" & Comboups.Text & "'"
rs3.MoveNext
Wend
End Sub
Call setsoldrecordset
Call itemdetail
text4.Enabled = False
105
'Text26.Enabled = False
'Label32.Visible = False
'Text25.Visible = False
'If rs2.State = 1 Then rs2.Close

'rs2.Open "Select * from setsold", cs, adOpenKeyset, adLockOptimistic
'invoice.Caption = "S" & (rs2.RecordCount + 1)
'invoice.FontBold = True
'Label38.Caption = "cust" & (rs2.RecordCount + 1)
price = 0
Dim bool As Boolean
If rs3.Fields(0).Value = "Hard Disk" Then
bool = True
For i = 0 To Comboharddisk.ListCount
If Comboharddisk.List(i) = rs3(1) Then bool = False
Next
If bool = True Then
Comboharddisk.AddItem rs3(1)
Else
bool = True
End If
ElseIf rs3.Fields(0).Value = "CD ROM" Then
bool = True
For i = 0 To Combocdrom.ListCount
If Combocdrom.List(i) = rs3(1) Then bool = False
Next
If bool = True Then
Combocdrom.AddItem rs3(1)
Else
bool = True
End If
ElseIf rs3.Fields(0).Value = "CD Writer" Then
bool = True
For i = 0 To Combocdwriter.ListCount
If Combocdwriter.List(i) = rs3(1) Then bool = False
Next
If bool = True Then
Combocdwriter.AddItem rs3(1)
Else
bool = True
End If
ElseIf rs3.Fields(0).Value = "RAM" Then
106
bool = True
For i = 0 To Comboram.ListCount
If Comboram.List(i) = rs3(1) Then bool = False
Next
If bool = True Then
Comboram.AddItem rs3(1)
Else
bool = True
End If
ElseIf rs3.Fields(0).Value = "Processor" Then
bool = True
For i = 0 To ComboProcessor.ListCount
If ComboProcessor.List(i) = rs3(1) Then bool = False
Next
If bool = True Then
ComboProcessor.AddItem rs3(1)
Else
bool = True
End If
ElseIf rs3.Fields(0).Value = "MotherBoard" Then
bool = True
For i = 0 To Combomotherboard.ListCount
If Combomotherboard.List(i) = rs3(1) Then bool = False
Next
If bool = True Then
Combomotherboard.AddItem rs3(1)
Else
bool = True
End If
ElseIf rs3.Fields(0).Value = "Floppy Drive" Then
bool = True
For i = 0 To Combofloppy.ListCount
If Combofloppy.List(i) = rs3(1) Then bool = False
Next
If bool = True Then
Combofloppy.AddItem rs3(1)
Else
bool = True
End If
ElseIf rs3.Fields(0).Value = "Cabinet" Then
bool = True
For i = 0 To Combocabinet.ListCount
If Combocabinet.List(i) = rs3(1) Then bool = False
Next
If bool = True Then
Combocabinet.AddItem rs3(1)
107
Else
bool = True
End If
ElseIf rs3.Fields(0).Value = "DVD ROM" Then
bool = True
For i = 0 To Combodvdrom.ListCount
If Combodvdrom.List(i) = rs3(1) Then bool = False
Next
If bool = True Then
Combodvdrom.AddItem rs3(1)
Else
bool = True
End If
ElseIf rs3.Fields(0).Value = "DVD Writer" Then
bool = True
For i = 0 To Combodvdwriter.ListCount
If Combodvdwriter.List(i) = rs3(1) Then bool = False
Next
If bool = True Then
Combodvdwriter.AddItem rs3(1)
Else
bool = True
End If
ElseIf rs3.Fields(0).Value = "Keyboad" Then
bool = True
For i = 0 To Combokeyboard.ListCount
If Combokeyboard.List(i) = rs3(1) Then bool = False
Next
If bool = True Then
Combokeyboard.AddItem rs3(1)
Else
bool = True
End If
ElseIf rs3.Fields(0).Value = "Mouse" Then
bool = True
For i = 0 To Combomouse.ListCount
If Combomouse.List(i) = rs3(1) Then bool = False
Next
If bool = True Then
Combomouse.AddItem rs3(1)
Else
bool = True
End If
ElseIf rs3.Fields(0).Value = "Speaker" Then
bool = True
For i = 0 To Combospeaker.ListCount
108
If Combospeaker.List(i) = rs3(1) Then bool = False
Next
If bool = True Then
Combospeaker.AddItem rs3(1)
Else
bool = True
End If
ElseIf rs3.Fields(0).Value = "Monitor" Then
bool = True
For i = 0 To Combomonitor.ListCount
If Combomonitor.List(i) = rs3(1) Then bool = False
Next
If bool = True Then
Combomonitor.AddItem rs3(1)
Else
bool = True
End If
ElseIf rs3.Fields(0).Value = "UPS" Then
bool = True
For i = 0 To Comboups.ListCount
If Comboups.List(i) = rs3(1) Then bool = False
Next
If bool = True Then
Comboups.AddItem rs3(1)
Else
bool = True
End If
ElseIf rs3.Fields(0).Value = "Modem" Then
bool = True
For i = 0 To Combomodem.ListCount
If Combomodem.List(i) = rs3(1) Then bool = False
Next
If bool = True Then
Combomodem.AddItem rs3(1)
Else
bool = True
End If
ElseIf rs3.Fields(0).Value = "LAN Card" Then
bool = True
For i = 0 To Combolan.ListCount
If Combolan.List(i) = rs3(1) Then bool = False
Next
If bool = True Then
Combolan.AddItem rs3(1)
Else
bool = True
109
End If
ElseIf rs3.Fields(0).Value = "Printer" Then
bool = True
For i = 0 To Comboprinter.ListCount
If Comboprinter.List(i) = rs3(1) Then bool = False
Next
If bool = True Then
Comboprinter.AddItem rs3(1)
Else
bool = True
End If
ElseIf rs3.Fields(0).Value = "Scanner" Then
bool = True
For i = 0 To Comboscanner.ListCount
If Comboscanner.List(i) = rs3(1) Then bool = False
Next
If bool = True Then
Comboscanner.AddItem rs3(1)
Else
bool = True
End If
End If
rs3.MoveNext
Wend
End Sub
con.Close
End Sub

Unload Me
End Sub
price = Val(Text23) - Val(Text24)
If price <= 0 Then
Else
Text26 = price
End If
End Sub
110
End Sub

Text26 = Val(Text23)
Text24 = 0
save.SetFocus
End Sub
Customer balance account

Private Sub DataGrid1_Click()
Set DataGrid1.DataSource = rs4
Text1.Text = DataGrid1.Columns(0)
End Sub

con.Close
End Sub


End Sub
Private Sub tex1_KeyPress(KeyAscii As Integer)

Text1.SetFocus
End If
End Sub
Private Sub txtName_KeyPress(KeyAscii As Integer)
111
txtpass.SetFocus
End If
End Sub

Unload Me
End Sub

If Text1.Text = "" Or Text2.Text = "" Or _
Text3.Text = "" Or Text4.Text = "" Then
MsgBox " INVALID INPUTES !!!!EITHER OR SOME ITEM MISSING!"
Exit Sub
End If
sql = "update customer set Customername='" & Text1.Text &
"',Customeraddress='" & Text2.Text & "',Customerphone='" & Text4.Text &
"',Balance ='" & Text5.Text & "',invoice='" & Text3.Text & "' where
customername='" & DataGrid1.Columns(0) & "'"
con.BeginTrans
con.Execute (sql)
con.CommitTrans
MsgBox "Record Updated"
rs4.Close
sql1 = "select * from customer"
rs4.Source = sql1
rs4.Open
End Sub

sql = "delete from customer where invoice= '" & DataGrid1.Columns(4) & "'"
con.BeginTrans
con.Execute (sql)
con.CommitTrans
MsgBox "Data deleted"
rs4.Close
sql1 = "select * from customer"
rs4.Source = sql1
rs4.Open
112
End Sub
Private Sub Text4_LostFocus()

Exit Sub
End If
If IsNumeric(Text4.Text) = False Then
MsgBox "MOBILE NUMBER SHOULD BE NUMERIC VALUE!"
Text4.Text = ""
Exit Sub
End If
If Len(Text4.Text) < 10 Or Len(Text4.Text) > 12 Then
Text4.Text = ""
Text4.SetFocus
Exit Sub
End If
End Sub
Change password
Private Sub cancel_Click()
Unload Me
End Sub

Call usrrecord
End Sub

con.Close
End Sub

MsgBox "Enter the login name.", vbInformation
Exit Sub
End If
If Not (Text1.Text = Text2.Text) Then
MsgBox "Password not match so Re-enter the password"
113
Text1.Text = ""
Text2.Text = ""
Text1.SetFocus
Else
sql = "update usertable set passwd='" & Text4.Text & "' where logname='" &
Text3.Text & "' and passwd='" & Text1.Text & "'"
MsgBox (sql)
con.BeginTrans
con.Execute (sql)
con.CommitTrans
MsgBox "Your password successfully change.", vbInformation
End If
End Sub
Create User account

Unload Me
End Sub
Private Sub cmdAdd_Click()

If txtemp.Text = "" Or txtName.Text = "" Or _
txtpass.Text = "" Or txtaddress.Text = "" Or _
txtph.Text = "" Then
Exit Sub
End If
sql = "insert into usertable(name,logname,passwd,address,type,mobnumber)

values('" & txtemp.Text & "','" & txtName.Text & "','" & txtpass.Text & "','" &
txtaddress.Text & "','" & tp.Text & "',' " & txtph.Text & "')"
Call insertquery
MsgBox "Data inserted successfully.."
txtemp.Text = ""
txtName.Text = ""
txtpass.Text = ""
txtph.Text = ""
txtaddress.Text = ""
rs.Close
114
sql1 = "select * from usertable"
rs.Source = sql1
rs.Open
Set DataGrid1.DataSource = rs
DataGrid1.Columns(3).Visible = False
End Sub
Private Sub cmdClearAll_Click()

cmdUpdate.Enabled = False
cmdAdd.Enabled = True
cmdDelete.Enabled = False
txtemp.Text = ""
txtName.Text = ""
txtpass.Text = ""
tp.Text = ""
txtph.Text = ""
cmdAdd.Visible = True
End Sub
Private Sub cmdDelete_Click()
sql = "delete from usertable where id= " & DataGrid1.Columns(o) & ""
'Call insertquery
con.BeginTrans
con.Execute (sql)
con.CommitTrans
txtemp.Text = ""
txtName.Text = ""
txtpass.Text = ""
tp.Text = ""
txtph.Text = ""
rs.Close
115
rs.Source = sql1
rs.Open
End Sub
Private Sub cmdUpdate_Click()

If txtemp.Text = "" Or txtName.Text = "" Or _
txtpass.Text = "" Or txtaddress.Text = "" Or _
txtph.Text = "" Then
Exit Sub
End If
sql = "update usertable set name='" & txtemp.Text & "',logname='" &
txtName.Text & "',passwd='" & txtpass.Text & "',address='" & txtaddress.Text &
"',type='" & tp.Text & "',mobnumber='" & txtph.Text & "' where name='" &
DataGrid1.Columns(1) & "'"
'Call insertquery
con.BeginTrans
con.Execute (sql)
con.CommitTrans
txtid.Text = DataGrid1.Columns(0)
txtemp.Text = DataGrid1.Columns(1)
txtName.Text = DataGrid1.Columns(2)
txtpass.Text = DataGrid1.Columns(3)
txtph.Text = DataGrid1.Columns(4)
txtaddress.Text = DataGrid1.Columns(5)
tp.Text = DataGrid1.Columns(6)
rs.Close
rs.Source = sql1
rs.Open
End Sub

cmdClearAll.Enabled = True
id.Visible = True
txtid.Visible = True
116
cmdDelete.Enabled = True
cmdAdd.Visible = False
cmdUpdate.Enabled = True
cmdUpdate.Visible = True
End Sub

con.Close
End Sub
Private Sub salary_LostFocus()

If salary.Text = "" Then
Exit Sub
End If
If IsNumeric(salary.Text) = False Then
MsgBox "ONLY NUMERIC VALUE IS ALLOW"
salary.Text = ""
salary.SetFocus
End If
End Sub
Private Sub show_Click()

id.Visible = True
txtid.Visible = True
117
End Sub

cmdUpdate.Visible = False
cmdClearAll.Enabled = False
Call usrrecord
End Sub
Private Sub txtemp_KeyPress(KeyAscii As Integer)
txtName.SetFocus
End If
End Sub
Private Sub txtName_KeyPress(KeyAscii As Integer)

txtpass.SetFocus
End If
End Sub
Private Sub txtph_LostFocus()
If txtph.Text = "" Then
Exit Sub
End If
If IsNumeric(txtph.Text) = False Then
txtph.Text = ""
Exit Sub
End If
If Len(txtph.Text) < 10 Or Len(txtph.Text) > 12 Then
txtph.Text = ""
txtph.SetFocus
End If
End Sub
118
Add company
update.Visible = False
Clearall.Visible = False
lvButtons_H2.Visible = True
cname.Text = ""
person.Text = ""
address.Text = ""
city.Text = ""
mobnumber.Text = ""
email.Text = ""
website.Text = ""
fax.Text = ""
notes.Text = ""
End Sub

update.Visible = True
Clearall.Visible = True
cname.Text = DataGrid1.Columns(0)
person.Text = DataGrid1.Columns(1)
address.Text = DataGrid1.Columns(2)
city.Text = DataGrid1.Columns(3)
mobnumber.Text = DataGrid1.Columns(4)
email.Text = DataGrid1.Columns(6)
website.Text = DataGrid1.Columns(5)
fax.Text = DataGrid1.Columns(7)
notes.Text = DataGrid1.Columns(8)
End Sub
Private Sub delete_Click()

sql = "delete from company where companyname= '" & DataGrid1.Columns(o) &
"'"
con.BeginTrans
con.Execute (sql)
con.CommitTrans
rs6.Close
sql7 = "select * from company"
rs6.Source = sql7
119
rs6.Open
End Sub
Private Sub fax_LostFocus()

If fax.Text = "" Then
Exit Sub
End If
If IsNumeric(fax.Text) = False Then
MsgBox "FAX NUMBER SHOULD BE NUMERIC VALUE!"
fax.Text = ""
fax.SetFocus
Exit Sub
End If
End Sub

Call companyrecordset
End Sub

con.Close
End Sub

If cname.Text = "" Then
MsgBox "Enter the customer name."
Exit Sub
End If
If person.Text = "" Then
MsgBox "Enter the contact person name"
120
Exit Sub
End If
If address.Text = "" Then

MsgBox "enter the address."
Exit Sub
End If
If city.Text = "" Then
MsgBox "enter the city"
Exit Sub
End If
If mobnumber.Text = "" Then
MsgBox "Enter the mobile number.If there is no mobile no. just enter 0."
Exit Sub
End If
If email.Text = "" Then
MsgBox "Enter the email id."
Exit Sub
End If
If website.Text = "" Then
MsgBox "Enter the website name."
Exit Sub
End If
MsgBox "Enter the fax no."
Exit Sub
End If
If notes.Text = "" Then
'Exit Sub
End If
sql = "insert into

company(companyname,contactperson,address,city,mobnumber,email,website,f
ax,anynote) values('" & cname.Text & "','" & person.Text & "','" & address.Text &
"','" & city.Text & "','" & mobnumber.Text & "','" & email.Text & "','" & website.Text
& "','" & fax.Text & "','" & notes.Text & "')"
Call insertquery
cname.Text = ""
person.Text = ""
address.Text = ""
city.Text = ""
mobnumber.Text = ""
email.Text = ""
website.Text = ""
fax.Text = ""
121
notes.Text = ""
rs6.Close
rs6.Source = sql7
rs6.Open
End Sub

Unload Me
End Sub
Private Sub mobnumber_LostFocus()

Exit Sub
End If
If IsNumeric(mobnumber.Text) = False Then
mobnumber.Text = ""
mobnumber.SetFocus
Exit Sub
End If
If Len(mobnumber.Text) < 10 Or Len(mobnumber.Text) > 12 Then
mobnumber.Text = ""
mobnumber.SetFocus
Exit Sub
End If
End Sub
Private Sub update_Click()

If cname.Text = "" Then
MsgBox "Enter the customer name."
Exit Sub
End If
If person.Text = "" Then
MsgBox "Enter the contact person name"
Exit Sub
End If
If address.Text = "" Then

MsgBox "enter the address."
Exit Sub
122
End If
If city.Text = "" Then
MsgBox "enter the city"
Exit Sub
End If
MsgBox "Enter the mobile number.If there is no mobile no. just enter 0."
Exit Sub
End If
If email.Text = "" Then
MsgBox "Enter the email id."
Exit Sub
End If
If website.Text = "" Then
MsgBox "Enter the website name."
Exit Sub
End If
MsgBox "Enter the fax no."
Exit Sub
End If
If notes.Text = "" Then
End If
sql = "update company set companyname='" & cname.Text & "',contactperson='"
& person.Text & "',address='" & address.Text & "',city='" & city.Text &
"',mobnumber='" & mobnumber.Text & "',email='" & email.Text & "',website='" &
website.Text & "',fax='" & fax.Text & "',anynote='" & notes.Text & "' where
companyname='" & DataGrid1.Columns(0) & "'"
con.BeginTrans
con.Execute (sql)
con.CommitTrans
rs6.Close
rs6.Source = sql7
rs6.Open
123
End Sub
Add product
Unload Me
End Sub
Private Sub cmdAdd_Click()

MsgBox "Enter the product name", vbInformation
Text1.SetFocus
Exit Sub
End If
MsgBox "Enter the company name", vbInformation
Text2.SetFocus
Exit Sub
End If
MsgBox "Enter the Buying Price", vbInformation
Text5.SetFocus
Exit Sub
End If
MsgBox "Enter the Price", vbInformation
Text6.SetFocus
Exit Sub
End If
MsgBox "Enter the Serial no..", vbInformation
Text7.SetFocus
Exit Sub
End If
MsgBox "Enter the Warranty", vbInformation
Text8.SetFocus
Exit Sub
End If
sql = "insert into
itemdetail(itemname,company,type,range,buyingprice,price,serialno,warenty)
values('" & Text1.Text & "','" & Text2.Text & "','" & Text3.Text & "','" & text4.Text &
"','" & Text5.Text & "','" & Text6.Text & "','" & Text7.Text & "','" & Text8.Text & "')"
Call insertquery
MsgBox "Data inserted successfully..", vbInformation
124
Text1 = ""
Text2 = ""
Text3 = ""
text4 = ""
Text5 = ""
Text6 = ""
Text7 = ""
Text8 = ""
rs3.Close
sql1 = "select * from itemdetail"
rs3.Source = sql1
rs3.Open
End Sub
Private Sub cmdClearAll_Click()

Text1 = ""
Text2 = ""
Text3 = ""
text4 = ""
Text5 = ""
Text6 = ""
Text7 = ""
Text8 = ""
End Sub
Private Sub cmdDelete_Click()

sql = "delete from itemdetail where serialno= '" & DataGrid1.Columns(6) & "'"
'Call insertquery
con.BeginTrans
con.Execute (sql)
con.CommitTrans
MsgBox "Data deleted", vbInformation
Text1 = ""
Text2 = ""
Text3 = ""
text4 = ""
Text5 = ""
Text6 = ""
Text7 = ""
Text8 = ""
125
rs3.Close
rs3.Source = sql1
rs3.Open
End Sub
Private Sub cmdUpdate_Click()

MsgBox "Enter the product name", vbInformation
Text1.SetFocus
Exit Sub
End If
MsgBox "Enter the company name", vbInformation
Text2.SetFocus
Exit Sub
End If
MsgBox "Enter the Buying Price", vbInformation
Text5.SetFocus
Exit Sub
End If
MsgBox "Enter the Price", vbInformation
Text6.SetFocus
Exit Sub
End If
MsgBox "Enter the Serial no..", vbInformation
Text7.SetFocus
Exit Sub
End If
MsgBox "Enter the Warranty", vbInformation
Text8.SetFocus
Exit Sub
End If
sql = "update itemdetail set itemname='" & Text1.Text & "',company='" &
Text2.Text & "',type='" & Text3.Text & "',range='" & text4.Text & "',buyingprice='"
& Text5.Text & "',price='" & Text6.Text & "',serialno='" & Text7.Text &
"',warenty='" & Text8.Text & "' where serialno='" & DataGrid1.Columns(6) & "'"
126
con.BeginTrans
con.Execute (sql)
con.CommitTrans
MsgBox "Record Updated", vbInformation
text4.Text = DataGrid1.Columns(3)
rs3.Close
rs.Source = sql1
rs3.Open
End Sub

cmdUpdate.Enabled = True
End Sub
Private Sub Form_Load()cmdUpdate.Visible = False
127
cmdClearAll.Enabled = False
Call itemdetail
End Sub

Exit Sub
End If
MsgBox "Buying price should be numeric", vbInformation
Text5.Text = ""
Text5.SetFocus
End If
End Sub
Exit Sub
End If
MsgBox " Price should be numeric", vbInformation
Text6.Text = ""
Text6.SetFocus
End If
End Sub
Add computer system

Private Sub add_Click()
If Combocompany.Text = "" Then
MsgBox "Enter the company name."
Exit Sub
End If
128
If categary.Text = "" Then
MsgBox "Enter the categary name."
Exit Sub
End If
If model.Text = "" Then
MsgBox "Enter the model name."
Exit Sub
End If
If combohard.Text = "" Then

MsgBox "Enter the hard-disk type."
Exit Sub
End If
If Comboram.Text = "" Then
MsgBox "Enter the Ram quantity."
Exit Sub
End If
If Combomother.Text = " " Then
MsgBox "Enter the motherboard name."
Exit Sub
End If
If ComboProcessor.Text = "" Then
MsgBox "Enter the processor name."
Exit Sub
End If
If Combomonitor.Text = "" Then
MsgBox "Enter the monitor type."
Exit Sub
End If
If txtbuy.Text = "" Then
MsgBox "Enter the Buying value."
Exit Sub
End If
If txtsell.Text = "" Then

MsgBox "Enter the selling value."
Exit Sub
End If
If txtwarranty.Text = "" Then
MsgBox "Enter the Warranty Time."
Exit Sub
End sub
sql = "insert into
computersys(company,model,buying_value,selling_value,Warranty,categary,har
ddisk,ram,motherboard,processor,monitor,other) values('" &
Combocompany.Text & "','" & model.Text & "','" & txtbuy.Text & "','" & txtsell.Text
129
& "','" & txtwarranty.Text & "','" & categary.Text & "','" & combohard.Text & "','" &
Comboram.Text & "','" & Combomother.Text & "','" & ComboProcessor.Text & "','"
& Combomonitor.Text & "','" & other.Text & "')"
Call insertquery
Combocompany.Text = ""
model.Text = ""
categary.Text = ""
combohard.Text = ""
Comboram.Text = ""
Combomother.Text = " "
ComboProcessor.Text = ""
Combomonitor.Text = ""
other.Text = ""
txtbuy.Text = ""
txtsell.Text = ""
txtwarranty.Text = ""
rs1.Close
sql2 = "select * from "
rs.Source = sql2
rs1.Open
End Sub

model.Text = ""
categary.Text = ""
combohard.Text = ""
Comboram.Text = ""
other.Text = ""
txtbuy.Text = ""
txtsell.Text = ""
add.Visible = True
End Sub

add.Visible = False
130
serial.Visible = True
serial.Enabled = False
update.Visible = True
serial.Text = DataGrid1.Columns(0)
Combocompany.Text = DataGrid1.Columns(1)
model.Text = DataGrid1.Columns(2)
categary.Text = DataGrid1.Columns(3)
combohard.Text = DataGrid1.Columns(4)
Comboram.Text = DataGrid1.Columns(5)
Combomother.Text = DataGrid1.Columns(6)
ComboProcessor.Text = DataGrid1.Columns(7)
Combomonitor.Text = DataGrid1.Columns(8)
other.Text = DataGrid1.Columns(9)
txtbuy.Text = DataGrid1.Columns(10)
txtsell.Text = DataGrid1.Columns(11)
txtwarranty.Text = DataGrid1.Columns(12)
End Sub
Private Sub delete_Click()

add.Visible = True
sql = "delete from computersys where serialno= " & DataGrid1.Columns(o) & ""
con.BeginTrans
con.Execute (sql)
con.CommitTrans
model.Text = ""
categary.Text = ""
combohard.Text = ""
Comboram.Text = ""
other.Text = ""
txtbuy.Text = ""
txtsell.Text = ""
rs1.Close
sql2 = "select * from computersys"
rs1.Source = sql2
rs1.Open
End Sub
131
Call computersysrecordset
serial.Visible = False
End Sub

con.Close
End Sub
Unload Me
Exit Sub
End Sub
Private Sub txtbuy_LostFocus()
Exit Sub
End If
If IsNumeric(txtbuy.Text) = False Then
MsgBox "BUYING VALUE SHOULD BE NUMERIC VALUE!"
txtbuy.Text = ""
txtbuy.SetFocus
Exit Sub
End If
End Sub
Private Sub txtsell_LostFocus()
Exit Sub
End If
If IsNumeric(txtsell.Text) = False Then
MsgBox "SELLING VALUE SHOULD BE NUMERIC VALUE!"
txtsell.Text = ""
txtsell.SetFocus
'Exit Sub
End If
End Sub
Private Sub update_Click()
If Combocompany.Text = "" Then
MsgBox "Enter the company name."
Exit Sub
132
End If
If categary.Text = "" Then
MsgBox "Enter the categary name."
Exit Sub
End If
If model.Text = "" Then
MsgBox "Enter the model name."
Exit Sub
End If
If combohard.Text = "" Then

MsgBox "Enter the hard-disk type."
Exit Sub
End If
If Comboram.Text = "" Then
MsgBox "Enter the Ram name."
Exit Sub
End If
If Combomother.Text = " " Then
MsgBox "Enter the motherboard name."
Exit Sub
End If
If ComboProcessor.Text = "" Then
MsgBox "Enter the processor name."
Exit Sub
End If
If Combomonitor.Text = "" Then
MsgBox "Enter the monitor type."
Exit Sub
End If
MsgBox "Enter the Buying value."
Exit Sub
End If

MsgBox "Enter the selling value."
Exit Sub
End If
If txtwarranty.Text = "" Then
MsgBox "Enter the Warranty Time."
Exit Sub
End If
sql = "update computersys set company='" & Combocompany.Text & "',model='"
& model.Text & "',categary='" & categary.Text & "',harddisk='" & combohard.Text
& "',ram='" & Comboram.Text & "',motherboard='" & Combomother.Text &
133
"',processor='" & ComboProcessor.Text & "',monitor='" & Combomonitor.Text &
"',other='" & other.Text & "',buying_value='" & txtbuy.Text & "',selling_value='" &
txtsell.Text & "',Warranty='" & txtwarranty.Text & "' where company='" &
DataGrid1.Columns(1) & "'"
con.BeginTrans
con.Execute (sql)
con.CommitTrans
rs1.Close
sql2 = "select * from computersys"
rs1.Source = sql2
rs1.Open
serial.Text = DataGrid1.Columns(0)
Combocompany.Text = DataGrid1.Columns(1)
model.Text = DataGrid1.Columns(2)
categary.Text = DataGrid1.Columns(3)
combohard.Text = DataGrid1.Columns(4)
Comboram.Text = DataGrid1.Columns(5)
Combomother.Text = DataGrid1.Columns(6)
ComboProcessor.Text = DataGrid1.Columns(7)
Combomonitor.Text = DataGrid1.Columns(8)
other.Text = DataGrid1.Columns(9)
txtbuy.Text = DataGrid1.Columns(10)
txtsell.Text = DataGrid1.Columns(11)
txtwarranty.Text = DataGrid1.Columns(12)
End Sub
Change shop record

Call shoprecordset
rsshop.Close
sql1 = "select * from shop"
rsshop.Source = sql1
rsshop.Open
Text1.Text = rsshop(0)
text4.Text = rsshop(3)
End Sub

Unload Me
134
End Sub

MsgBox "Please enter the SHOP NAME."
Exit Sub
End If
MsgBox "Please enter the OWNER NAME."
Exit Sub
End If
MsgBox "Please enter the Address."
Exit Sub
End If
If text4.Text = "" Then
MsgBox "Please enter the phone number."
Exit Sub
End If
MsgBox "Please enter the Registration name."
Exit Sub
End If
sql = "update shop set shopname='" & Text1.Text & "',address='" & Text3.Text &
"',owner='" & Text2.Text & "',phonenumber='" & text4.Text &
"',registrationnumber='" & Text5.Text & "'"
'Call insertquery
con.BeginTrans
con.Execute (sql)
con.CommitTrans
rsshop.Close
sql1 = "select * from shop"
rsshop.Source = sql1
rsshop.Open
text4.Text = rsshop(3)
End Sub
FUTURE SCOPE
The future scope of this software is given below.
135
• 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
136
137

Computer Shop Management

Uploaded by

Copyright:

Available Formats

Computer Shop Management

Uploaded by

Document Information

Original Description:

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

Uploaded by

Copyright:

Available Formats

PROJECT REPORT

“COMPUTER –SHOP MANAGEMENT SYSTEM”

Certified that this project report titled " COMPUTER –SHOP

HEAD OF THE DEPARTMENT FACULTY IN CHARGE

I, “<NAME>-”, owe enormous intellectual debt towards my faculty

I am obliged to her for being extremely patient, giving me sufficient

This is to certify that the Project Work titled "PROJECT NAME" is a

(Signature of the Guide )

I hereby declare that the project report entitled “COMPUTER –SHOP

University Study Centre Certificate: This is to certify that the project

Reg. No. : ROLL NO

The Project report of Mr. NAME, Reg. No. ROLL NO entitled

Internal Examiner External Examiners

The computer-shops are increasing day by day.There is lot of work as to sell

Roll no:- <>

 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

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

3. Sell Computer System Module

4. Update Customer Balance Module

5. Make Quotation Module

6. Change Password Module

7. Create user account Module

8. Add Product Module

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:

Sell computer Change Make Change REPORT Administrator

Price Report Sold Computer Sold computer

Add Add Create user Add Computer Add computer

Zero Level DFD:

First Level DFD:

Sold computer part History sold computer system history

I Sold sold computer system detail

Login Detail Rep. Detail

Search criteria Update History

Computer part Record

1. Sell computer part/system

Computer part/system Record