SYNOPSIS

The project entitled “ORGANIC SHOP MANAGEMENT SYSTEM” is a

computerized system. It is a complete software package under Windows 7 environment
using Visual Basic 6.0 as front end tool and MS-Access as back end tool.

The system involves various activities of the concern such as product details,
supplier details, customer details, purchase details, sales details, payment details and
receipt details.

The system has been designed to store the data needed for the above mentioned
scheme and meets all required computations. The preparation of reports also places a major
role in the project.

1
 CHAPTER 1

INTRODUCTION
1.1 ABOUT THE PROJECT

The project contains following modules:

1. Master
2. Transactions
3. View
4. Reports

MASTER MODULE
The master module contains organic product details, supplier details and customer
details. Product details contains product code, product name, size, color, type and brand
etc., supplier details includes supplier code, supplier name, address, city etc., customer
details contains supplier name, supplier code, address, city etc.,

TRANSACTION MODULE
The transaction module contains purchase details, sales details, payment details and
receipt details. Purchase details includes bill no, bill date, type, brand, supplier code,
supplier name, product code, product name etc., sales details includes sales id, sales name,
product id, product name etc.,

2
VIEW MODULE
View module includes purchase details, sales details, customer details, payment
details, receipt details, price details, and supplier details. View module is used to view the
grid format.

REPORT MODULE

This module is used to view all the above in user convenient. What user thinks to
view such details from the above is very easy and in tabular format.

3
 CHAPTER 2

SYSTEM ANALYSIS

2.1 EXISTING SYSTEM

The Existing system is used to maintain all the data as in manual system. The data
are updated and retrieved through the manual entries and searching the particular document
in the existing system. Every day wants to update the day-to-day activities in the hard copy
format. If the user may forgets to update, it leads affects the products management. The
system needs man-power is the essential part and should be imposed in every activity.

2.2 LIMITATIONS OF THE EXISTING SYSTEM

• Not Accuracy.
• Report is not clear and neat.
• Time consumption is high.
• Increase data redundancy.

4
2.3 PROPOSED SYSTEM
The proposed System is the Paperless System operates on a large scale and uses
state-of-the-art computer technology. It has been updating the system and also resolving
numerous technical problems arising from computerization, such as data entry, database
storage and retrieval etc. The entries of proposed system are introduction of the
computerization, on-line filing system and the associated application process, payment
procedures, etc.

ADVANTAGES OF THE PROPOSED SYSTEM

The proposed system has following advantages,

1. Accuracy of information is considerably improved, thereby improving the

quality of the decision
2. Report generation is easier
3. Less time consuming in data entry since manual calculation is avoided.
4. Data Backup Management is easier than ever.
5. Very large data are stored for information and decision-making
6. More Secrecy is observed as compared to manual file system.
7. Paper work is reduced to the minimum as all the information is stored in the
computer itself.

5
 SYSTEM SPECIFICATION

HARDWARE SPECIFICATION

PROCESSOR : Intel Core 2 Duo 2.4 GHz

RAM : 2 GB DDR2 RAM
MONITOR : 15" COLOR
HARD DISK : 250 GB
CDDRIVE : LG 52X
KEYBOARD : STANDARD 102 KEYS
MOUSE : 3 BUTTONS

SOFTWARE SPECIFICATION

Front-End : Visual Basic 6.0

Back-End : MS Access 7.0
Operating System : Windows 7

6
SOFTWARE DESCRIPTION
This project can be done using Visual basic 6.0 as Front End and MS-Access as
Back End.

WINDOW'S 7
Windows 7 is an operating system has evolved from the basic Graphical User
Interface (GUI) like window 3.1 to advanced GUI like window's 98 and window's 3.1 Both
window's 3.1 and window's 98 provide a common goal, ease of use and manageability by
users while window 98 is focused on making computing easier for anyone using a wide
range personal and business application on the desktop operating system for catering
complex bushiness news. Application programmers for developing scientific and financial
application also use window's 7 which provides a high level , reliability, protection and
security.

ADVANTAGES OF WINDOW’S 7
There are many advantages of window’s 7 a few of them are given below
❖ It supports most of the hardware without need of external drivers.
❖ It offers good GUI as compared to older versions.
❖ It supports wireless networking
❖ Many applications are developed for windows only and on other OS they do not
work
❖ Window’s 7 offers universal plug and play features
❖ The availability of this is very high.
❖ It offers universal solution to OS needs and there are no compatibility issues in
this case.
❖ Window’s 7 is user friendly as compared to other OS in market.
❖ Practically universal hardware support (done by vendors, not Microsoft).
❖ Abundance of programs for it, Support.
❖ Almost everyone has experience with it, so they will be able to offer support for
it, and help us to solve the problems.

7
DISADVANTAGES OF WINDOW’S 7

❖ Although there are numerous disadvantages of Windows 7 some of them are

❖ Security loopholes exist in it, hence it is easily affected by virus and spyware.
❖ It is expensive to purchase.
❖ Prone to crashes and hence unstable.
❖ Many flaws and bugs are present in it.
❖ It is very heavy system and old hardware can't run it.
❖ Older DOS programs may not run on this version.
❖ Parallel port not recognized.
❖ No file encryption facility in windows 7 home edition.
❖ Comes with single user license so it can’t be loaded on multiple PCs.
❖ It has no inbuilt chipset drivers, making the install time consuming.

Introduction to Visual Basic 6.0

The "Visual" part refers to the method used to create the Graphical User Interface
(GUI). Rather than writing numerous lines of code to describe the appearance and location
of interface elements, simply add pre built object in to place on screen.

The "Basic" part refers to the BASIC language, a language used by more
programmers than any other language in the history of computing. The Visual Basic
programming system, application, edition included in Microsoft Excel, Microsoft Access
& many other windows application uses the same language.

Data access feature allows creating database, front-end applications and scalable
Server-side components for most popular database formats.

Active X technologies allow the functionality provide the other applications Such
as Microsoft word, Microsoft Excel and other Window applications.

8
 Internet capabilities make it easy to provide access to documents and applications
across the Internet of intranet from within application or to create Internet server
applications. The finished application is a true .Exe file that uses the Visual Basic a Visual
machine that can freely distribute. The components involved in Visual Basic 6.0.

DAO (DATA ACCESS OBJECT)

This new data access technology features a simple object model, better integration
with other Microsoft and non-Microsoft technologies, a common interface for both local
and remote data access, remote and disconnected record sets, a user-accessible data binding
interface and hierarchical record set.

Data Environment
The Data Environment designer provides an interactive, design-time environment
for creating DAO objects.

DAO Data Control

The new OLE DB aware data source control that functions much like the intrinsic
data and remote Data controls, in that it allows us to create a database application with
minimum code.

OLE DB Support
OLE DB is a set of COM interface that provide application with uniform access to
data stored in device, information source may be relational & non -relational.

Data Report
Allow us to use drag and drop, to create reports from any record set, including
hierarchical record set.

9
Text Box
A TEXT Box control, sometimes called an edit field or edit control, displays
information entered at design time, entered by the user, or assigned to the control in code
at run time.

Timer
A timer control can execute code at regular intervals by causing a timer event to
occur. The TIMER control, invisible to the user, is useful for background processing.

LABEL
A LABEL control is a graphical control and we can use to display text that a user
can't change directly.

COMBO BOX
A Combo box control combines the features of a Text Box control and a LIST Box
control users can enter information in the text box portion or select an item from the list
box of the control.

DBGRID
Displays and enables data manipulations of a series of rows and columns
representing records and fields from a Record set objects.

DBLIST
The Data List control is a data bound List box that is automatically populated from
a field in an attached data source, and optionally updates a field in a related table of another
data source.

ADVANTAGES OF VB

The structure of the Basic programming language is very simple, particularly as to

the executable code.

10
 VB is not only a language but primarily an integrated, interactive development
environment ("IDE").
The VB-IDE has been highly optimized to support rapid application development
("RAD"). It is particularly easy to develop graphical user interfaces and to connect them to
handle functions provided by the application.
The graphical user interface of the VB-IDE provides intuitively appealing views
for the management of the program structure in the large and the various types of entities
(classes, modules, procedures, forms, ...).
VB provides a comprehensive interactive and context-sensitive online help system.
When editing program texts the "IntelliSense" technology informs you in a little
popup window about the types of constructs that may be entered at the current cursor
location.
VB is a component integration language which is attuned to Microsoft's Component
Object Model ("COM").
COM components can be written in different languages and then integrated using VB.
Interfaces of COM components can be easily called remotely via Distributed COM
("DCOM"), which makes it easy to construct distributed applications.

DISADVANTAGES OF VB

❖ If it goes down several clients accessing that info can be effected.

❖ Typically takes someone skilled to manage the data
❖ Can cause problems because programs need to typically log into it, so if
permissions are screwed up, programs will have trouble.
❖ Too many users hitting it at the same time can slow it down, and the fact it is not
local to the machine means a performance hit for applications.
❖ One client inputting bad data can propagate through the system and effect other
clients.

❖ There are probably more for both but that should be enough to get you started with
creating a solid list.

11
 ❖ VB is not object oriented.
❖ VB DLL does not support side-by-side execution.
❖ Deployment is time consuming as all the components must be registered in the
Windows registry.

ACCESS 7.0
MS-ACCESS is a powerful database management system and user can create entire
application requires little or no programming. It supports GUI features and an entire
programming language, VBA (Visual Basic 6.0 for application) that can be used develop
richer application.

ADVANTAGES OF MS-ACCESS

❖ It collectively stores all the other related objects such as queries, forms, reports
that are used to implement the database management function effectively.
❖ MS-ACCESS database can act as a Back-End Database for Visual Basic 6.0
While using visual basic 6.0 as a Front End tool.
❖ MS-ACCESS supports the user with its powerful management functions.
❖ A beginner can create his/her own Database very simply using some mouse
clicks.
❖ MS-ACCESS database supports so many data types where a user can
incorporate data from other applications. A database created in MS-ACCESS
can be accessed through Visual Basic 6.0 using a data control.
❖ A single table can have any number of indexed files that can be used to locate
records using an expression. This helps in filtering out information according
to specific criteria.
❖ A user can move inside a table very easily using the navigator tools supported.

DISADVANTAGES OF MS_ACCESS

12
❖ Even though Microsoft has stated that Access is able to support 255 concurrent
users, it is a more practical choice to select Access when the database will be used
by only 15 to 20 simultaneous users.
❖ If more than 20 users try to gain access to the database, performance and response
time may begin to suffer.
❖ Whenever various Windows operating systems like Windows 98, Windows ME,
Windows 2000, Windows 7, or Windows Vista are used to access the same
database, the database may experience corruption issues.
❖ It is recommended that all Access users are operating with the identical operating
system.
❖ If you have sensitive data needs like storing health and medical records, financial
information, academic records or employment data, for example, you will require
more extensive database security than Access can offer.
❖ One suggestion would be to use SQL Server as the database engine with an Access
front-end.
❖ Access was not designed to be used with applications that are web based since its
forms and reports are only functional in a Windows environment and are not
compatible with an internet browser like Internet Explorer.
❖ The Access Jet database that is used by Microsoft Access is a file based system and
does not contain the server features that are available in SQL Server, Oracle or other
ODBC compliant databases.
❖ Access databases are more suited for web based solutions when the number of users
is small or when the users are just viewing data rather than editing or deleting.

13
 SYSTEM DESIGN

INPUT DESIGN

Input Design is one of the most expensive phases of the operation of

computerized system and is often the major problem of a system. A large number of
problems with a system can usually be tracked backs to fault input design and
method. Needless to say, therefore, that the input data is the life blood of a system
and have to be analyzed and designed with utmost care and consideration. The
decisions made during the input design are

➢ To provide cost effective method of input.

➢ To achieve the highest possible level of accuracy.
➢ To ensure that the input is understand by the user.

System analysis decide the following input design details like, what data to
input, what medium to use, how the data should be arranged or coded, data items
and transactions needing validations to detect errors and at last the dialogue to
guide user in providing input.

Input data of a system may not be necessarily be raw data captured in the
system from scratch. These can also be the output of another system or sub system.
The design of input covers all phases of input from the creation of initial data to
actual entering the data to the system for processing. The design of inputs involves
identifying the data needed, specifying the characteristics of each data item, capturing and
preparing data for computer processing and ensuring correctness of data.

14
OUTPUT DESIGN

Output Design generally refers to the results and information’ s that are
generated by the system for many end-users, output is the main reason for developing
the system and the basis on which they evaluate the usefulness of the application.

The objective of a system finds its shape in terms of the output. The analysis
of the objective of a system leads to determination of outputs. Outputs of a system
can face various forms. The most common are reports, screen displays, printed forms,
graphical drawings etc.,. The output also vary in terms of their contents frequency,
timing and format. The user of the output from a system are the justification for
its existence. If the output are inadequate in any way, the system are itself is
adequate. The basic requirements of output are that it should be accurate, timely and
appropriate, in terms of content, medium and layout for its intended purpose.

When designing output, system analysis most accomplish things like, to

determine what information to be present, to decide whether to display or print the
information and select the output medium and to decide how to distribute the output
to intended recipients.

External outputs are those whose destination will be outside the organization and
which require special attention as they project the image of the organization. Internal
outputs are those whose destination is within the organization. It is to be carefully designed
as they are the users main interface with the system.

15
DATABASE DESIGN

The most important consideration in designing the database is how information will
be used. The main objectives of designing a database such as database, information from
several files are coordinated, accessed and operated upon as through it is in a single file.
Data integrity means storing all data in one place and how each application to access it.
This approach results in more consistent information, one update being sufficient to
achieve a new record status for all applications, which use it. This objective seeks to allow
changes in the content and organization of physical data without reprogramming of
applications and to allow modifications to application programs without reorganizing the
physical data.

16
 DATA FLOW DIAGRAM

Sales Supplier Products

entry entry Customer entry

Sales Suppliers Customers Products

Purchas Products Sales

e Entry

Purchase Transaction Purchase Master Sales Master Sales Transaction

Customers
suppliers

Payment Receip
entry t

Payment
Reciept

17
 CHAPTER 3
SYSTEM TESTING AND IMPLEMENTATION

3.1 SYSTEM TESTING

After the source code has been completed, documented as related data structures.
Completion of the project has to undergo testing and validation where there is subtitle and
definite attempt to get errors. The project developer treats lightly, designing and execution
of the project test that will demonstrates that the program works rather than uncovering
errors, unfortunately errors will be present and if the project developer doesn’ t found
errors, the user will find out.

The project developer is always responsible for testing the individual units i.e.
modules of the program. In many cases, developer should conduct the integration testing
i.e. the testing step that leads to the construction of the complete program structure.

This project has undergone the following testing procedures to ensure its
correctness.

✓ Unit testing
✓ Integration testing
✓ Validation testing

UNIT TESTING

In unit testing, user has to test the programs making up the system. For this reason,
Unit testing sometimes called as Program testing. The software units in a system are the
modules and routines that are assembled and integrated to perform a specific function. In
this project, all modules are tested individually like given all the fields and can be updated
for all criteria.

18
INTEGRATION TESTING

Integration testing is a systematic technique for constructing the program structure.

While at the same time conducting tests to uncover errors associated with interfacing. The
objective is to take unit tested modules and build a program structure that has been dictated
by design.

In this, integration testing is done using the main module and based on the type of
integration testing the subordinate tables and other criteria along with their path, is replaced
one at a time with actual modules.

VALIDATION TESTING

It is said that validation is successful when the software functions in a systematic

manner that can be reasonably accepted by the customers. This type of testing is very
important because it is the only way to check whether the requirements given by user have
been completely fulfilled.

19
3.2 SYSTEM IMPLEMENTATION

When the initial design was done for the system, the client was consulted for the
acceptance of the design so that further proceedings of the system development can be
carried on the project. After the development of the system a demonstration was given to
them about the working system. The aim of the system illustration was to identify any
malfunction of the system.

After the management of the system was approved, the system implemented in the
concern, initially the system was run parallel with existing manual system. The system has
been tested with live data and has proved to be error free and user friendly.

Implementation is the process of converting a new or revised system design into an

operational one when the initial design was done by the system; a demonstration was given
to the end user about the working system.

This process is used to verify and identify any logical mess working of the system
by feeding various combinations of test data. After the approval of the system by both end
user and management the system was implemented.

20
 CHAPTER 5
CONCLUSION

It is concluded that the application satisfies almost all the needs. The application is
tested well and problems are cleared. It is designed to maintain both customer and
employee transactions. No manual calculation is required. In addition, the application can
be run from anywhere in the network if the database path is adjusted. Thus the application
reduces the difficulties in enquiry and sales force activities.

21
 CHAPTER 4

BIBLIOGRAPHY

The books referred are

1.VISUAL BASIC 6.0 FROM THE GROUND UP

- Gary Cornel
- Tata McGraw Hill Publications
- 1999, 5 Edition

2.SYSTEM ANALSIS AND DESIGN

- Elias M. Awad.
- Galgotia Publications(P) Ltd.
- 1996, 3 Edition.

3.SOFTWARE ENGINEERING CONCEPTS

- Richard Fairley
- McGraw Hill International Edition(175).

22
 APPENDIX

4.1 TABLE DESIGN

Table : Customers Primary key: CustomerCode

Field Name Type Size Description
CustomerCode Number 4 Customer have a unique code
CustomerName Text 50 Name of the customer
Address Text 255 Address of the customer
City Text 50 City Name
PhoneNo Number 20 Customer Phone Number
Mobile Text 20 Customer Mobile Number
EMailId Text 50 E Mail id of the Customer
JoinDate Date/Time 8 Joining Date of the customer

23
Table : Payment Primary key: BillNo
Field Name Type Size Description
BillNo Number 4 Bill Number have a unique
BillDate Date/Time 8 The date of the payment
SupplierCode Long Integer 4 Unique code number of supplier
Amount Single 4 Amount to the supplier
PaymentMode Text 10 Mode of Payment
BankName Text 50 Name of the Bank
BankBranch Text 50 Name of the Branch
ChequeNo Text 10 Cheque Number
Remarks Text 50 Remark Details

Table : Products Primary key: ProductCode

Field Name Type Size Description
ProductCode Text 10 Unique code of the product
ProductName Text 50 Name of the Product
Description Text 255 Brief Description of the product

Table : PurchaseMaster Primary key: BillNo

Field Name Type Size Description
BillNo Long Integer 4 Unique Bill Number
BillDate Date/Time 8 Purchase Date
SupplierCode Long Integer 4 Unique Supplier code
Total Single 4 Total Amount

24
Table : PurchaseTrans Primary key:BillNo
Field Name Type Size Description
BillNo Long Integer 4 Unique Bill Number
SNo Single 2 Supplier Unique Number
ProductCode Text 10 Unique Product Code
Quantity Integer 4 Total number of quality
Rate Single 4 Rate of the single product
Total Single 4 Total amount

Table : Receipt
Field Name Type Size Description
BillNo Long Integer 4 Bill no of the product
BillDate Date/Time 8 Bill date
CustomerCode Long Integer 4 Code of the customer
Amount Single 4 Amount of the product
ReceiptMode Text 10 Receipt mode
BankName Text 50 Bank name
BankBranch Text 50 Bank branch
ChequeNo Text 10 Cheque number
Remarks Text 50 Remarks of the product

Table : SalesMaster Primary key: BillNo

Field Name Type Size Description
BillNo Long Integer 4 Unique Bill Number
BillDate Date/Time 8 Sales Date
CustomerCode Integer 4 Unique Customer Code
DiscountAmount Single 4 Discount Amount
Total Single 4 Total Amount

25
Table : SalesTrans Primary key: BillNo
Field Name Type Size Description
BillNo Long Integer 4 Unique Bill Number
SNo Integer 2 Supplier Number
ProductCode Text 10 Unique Product Code
Quantity Integer 4 Total Number of Product
Rate Single 4 Amount of a single Product
Total Single 4 Total Amount

Table : Suppliers Primary key: SupplierCode

Field Name Type Size Description

SupplierCode Long Integer 4 Unique Supplier Code
SupplierName Text 50 Name of the Supplier
Address Text 255 Address of the supplier
City Text 50 City Name
PhoneNo Text 20 Phone Number
Mobile Text 20 Mobile Number
EMailId Text 50 E mail id
JoinDate Date/Time 8 Joining Date

Table : Users
Field Name Type Size Description
UserName Text 15 Name of the User
Password Text 15 Password of the User

26
4.2 FORM DESIGN

MASTER MENU

27
TRANSACTION MENU

28
VIEW MENU

29
REPORT MENU

30
PRODUCT DETAILS

31
SUPPLIER DETAILS

32
CUSTOMER DETAILS

33
PURCHASE DETAILS

34
SALES DETAILS

35
PAYMENT DETAILS

36
RECEIPT DETAILS

37
STOCK ENTRY DETAILS

38
PRODUCT REPORT

39
SUPPLIER REPORT

40
CUSTOMER REPORT

41
PURCHASE REPORT

42
SALES REPORT

43
PAYMENT REPORT

44
RECEIPT REPORT

45
4.3CODING

CUSTOMER DETAILS

Dim db As Database
Dim rs As Recordset
Private Sub Command1_Click()
rs.AddNew
txtcmpany = ""
txtadd = ""
txtcity = ""
txtphono = ""
txtemail = ""
txtcmpany.SetFocus
End Sub

Private Sub Command2_Click()

On Error GoTo a
rs.Fields(0) = txtcmpany
rs.Fields(1) = txtadd
rs.Fields(2) = txtcity
rs.Fields(3) = txtphono
rs.Fields(4) = txtemail
rs.Update
MsgBox "the record updated"
a:
If Err.Number > 0 Then
MsgBox "the record already updated"
End If
End Sub
Private Sub Command3_Click()

46
rs.Delete
rs.MoveLast
ss
End Sub
Private Sub Command4_Click()
rs.MoveFirst
ss
End Sub
Private Sub Command5_Click()
rs.MoveLast
ss
End Sub
Private Sub Command6_Click()
rs.MoveNext
If rs.EOF Then
rs.MoveLast
End If
End Sub

SUPPLIER DETAILS
Dim db As Database
Dim rs As Recordset
Private Sub Command1_Click()
rs.AddNew
txtsuppcde = ""
txtsupname = ""
txtadd = ""
txtcity = ""
txtphone = ""
txtmobile = ""
txtemail = ""

47
DTPicker1.Value = Date
txtsuppcde.SetFocus
End Sub

Private Sub Command2_Click()

On Error GoTo a
rs.Fields(0) = txtsuppcde
rs.Fields(1) = txtsupname
rs.Fields(2) = txtadd
rs.Fields(3) = txtcity
rs.Fields(4) = txtphone
rs.Fields(5) = txtmobile
rs.Fields(6) = txtemail
rs.Fields(7) = DTPicker1.Value
rs.Update
MsgBox "the record updated"
a:
If Err.Number > 0 Then
MsgBox "the record already updated"
End If
End Sub
Private Sub Command3_Click()
rs.Delete
rs.MoveLast
ss
End Sub
Private Sub Command4_Click()
rs.MoveFirst
ss
End Sub
Private Sub Command5_Click()

48
rs.MoveLast
ss
End Sub
Private Sub Command6_Click()
rs.MoveNext
If rs.EOF Then
rs.MoveLast
End If
ss
End Sub
Private Sub Command7_Click()
rs.MovePrevious
If rs.BOF Then
rs.MoveFirst
End If
ss
End Sub
Private Sub Command8_Click()
Unload Me
End Sub
Private Sub Form_Load()
Set db = OpenDatabase("d:\wholesales\whole.mdb")
Set rs = db.OpenRecordset("supplier")
ss
End Sub
Private Sub ss()
txtsuppcde = rs.Fields(0)
txtsupname = rs.Fields(1)
txtadd = rs.Fields(2)
txtcity = rs.Fields(3)
txtphone = rs.Fields(4)

49
txtmobile = rs.Fields(5)
txtemail = rs.Fields(6)
DTPicker1.Value = rs.Fields(7)
End Sub
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = 13 Then 'Enter
SendKeys "{TAB}"
ElseIf KeyCode = vbKeyEscape Then
Unload Me
End If
End Sub
Sub Clear()
For Each X In Me.Controls
If TypeOf X Is TextBox Then
If X.Text = "" Then
MsgBox "Enter the data"
End If
End If
Next
MaskEdBox1.Text = Format(Date, "dd/MM/yyyy")
End Sub
Dim db As Database
Dim rs As Recordset
Dim rs2 As Recordset
Dim rs3 As Recordset
Private Sub cmbprocode_click()
Set rs2 = db.OpenRecordset("select * from product")
rs2.FindFirst ("procde='" & cmbprocode & "'")
txtproname = rs2("proname")
End Sub
Private Sub cmbsupcode_Click()

50
Set rs3 = db.OpenRecordset("select * from supplier")
rs3.FindFirst ("suppid=" & cmbsupcode)
txtsupname = rs3("Suppname")
End Sub
Private Sub Command1_Click()
rs.AddNew
txtBill = ""
DTPicker1.Value = Date
cmbsupcode = ""
txtsupname = ""
cmbcate = ""
cmbbrand = ""
cmbcolor = ""
cmbsize = ""
cmbtype = ""
cmbprocode = ""
txtproname = ""
txtqty = ""
txtrate = ""
txttotal = ""
txtBill.SetFocus
End Sub
Private Sub Command7_Click()
rs.MovePrevious
If rs.BOF Then
rs.MoveFirst
End If
End Sub

51
Set db = OpenDatabase("d:\wholesales\whole.mdb")
Set rs = db.OpenRecordset("purchase")
Set rs1 = db.OpenRecordset("supplier")
rs1.MoveFirst
Do Until rs1.EOF
cmbsupcode.AddItem (rs1.Fields(0))
rs1.MoveNext
Loop
Set rs2 = db.OpenRecordset("product")
rs1.MoveFirst
Do Until rs2.EOF
cmbprocode.AddItem (rs2.Fields(0))
rs2.MoveNext
MsgBox "Enter the data"
End If
End If
Next
MaskEdBox1.Text = Format(Date, "dd/MM/yyyy")
End Sub
Private Sub txtprodname_Change()
End Sub
Private Sub fg_KeyPress(KeyAscii As Integer)
If KeyAscii <> 13 Then
If KeyAscii = 8 Then
If FG.Text <> "" Then FG.Text = Left(FG.Text, Len(FG.Text) - 1)
End If
If KeyAscii >= 48 And KeyAscii <= 57 Then
If FG.Col = FG.Cols - 1 Then Exit Sub
If Len(FG.Text) < 9 Then
FG.Text = FG.Text & Chr(KeyAscii)
End If

52
 End If
Else
If FG.Text <> "" Then
If FG.Col < FG.Cols - 1 Then
If FG.Col = 4 Then
FG.TextMatrix(FG.row, 5) = FG.TextMatrix(FG.row, 3) *
FG.TextMatrix(FG.row, 4)
End If
FG.Col = FG.Col + 1
Else
FG.Rows = FG.Rows + 1
FG.RowHeight(FG.Rows - 1) = combo.Height
alligncbo FG.Rows - 1, 1
combo.Visible = True
FG.row = FG.Rows - 1
'fg.Col = 0
FG.TextMatrix(FG.Rows - 1, 0) = FG.Rows - 1
FG.Col = 2
End If
Else
MsgBox "Please Enter the Details"
End If
End If
End Sub
Private Sub txtrate_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
txttotal = Val(txtqty) * Val(txtrate)
End If
End Sub

PRODUCT DETAILS

53
Dim db As Database
Dim rs As Recordset
Dim rs2 As Recordset
Dim rs3 As Recordset
Private Sub cmbprocode_click()
Set rs2 = db.OpenRecordset("select * from product")
rs2.FindFirst ("procde='" & cmbprocode & "'")
txtproname = rs2("proname")
End Sub

Private Sub cmbcuscode_Click()

Set rs3 = db.OpenRecordset("select * from sales")
rs3.FindFirst ("cuscode=" & cmbcuscode)
txtsupname = rs3("cusname")
txtamt = rs3("tot")
End Sub

Private Sub cmbmode_Click()

If cmbmode.Text = "Cash" Then
txtbank.Text = "-"
txtbran.Text = "-"
txtcheque.Text = "-"
txtbank.Enabled = False
txtbran.Enabled = False
txtcheque.Enabled = False
Label14.Enabled = False
Label6.Enabled = False
Label7.Enabled = False
Else
txtbank.Text = ""

54
txtbran.Text = ""
txtcheque.Text = ""
txtbank.Enabled = True
txtbran.Enabled = True
txtcheque.Enabled = True
Label14.Enabled = True
Label6.Enabled = True
Label7.Enabled = True
End If
End Sub

Private Sub Command1_Click()

rs.AddNew
txtBill = ""
DTPicker1.Value = Date
cmbcuscode = ""
txtsupname = ""
txtamt = ""
cmbmode = ""
txtbank = ""
txtbran = ""
txtcheque = ""
txtremark = ""
Text1 = ""
Text2 = ""
txtBill.SetFocus
End Sub

55