PROJECT REPORT

On
“FABRICATION MANAGEMENT SYSTEM”
Submitted to

Rashtrasant Tukdoji Maharaj Nagpur University, Nagpur

In partial fulfilment of the requirement of

B.Com (Computer Application)

Developed & Submitted by

Aashutosh Dudhe
Mohammad Zeeshan
Himanshu Pradhan

Under the Guidance of

Asst. Prof. Mervin M. Lazarus
Department of Computer Science

ST.FRANCIS DE SALES COLLEGE

Seminary Hills, Nagpur. (2020-21)
 CERTIFICATE

This is to certify that the project entitled “Fabrication

Management System” by Aashutosh Dudhe, Mohammad Zeeshan and
Himanshu Pradhan in partial fulfilment of BATCHLOR OF
COMMERCE (Computer Application) degree examination, had not
been submitted for any other examination and does not form part of any
other course undergone by candidates.

It is further certified that we have completed our project as

prescribed by Rashtrasant Tukdoji Maharaj Nagpur University, Nagpur
for the session 2020-21.

Dr. K. T. Thomas. Asst.Prof. Biju Angalees Asst.Prof. M. M. Lazarus

Principal HOD Project Head

Signature of External Signature of Internal

Place:

Date:
 DECLARATION

We hereby declare that the project entitled “Fabrication

Management System” has been completed by us in partial fulfilment of
BATCHLOR OF COMMERCE (Computer Application) degree
examination. As prescribed by Rashtrasant Tukdoji Maharaj Nagpur
University, Nagpur and had not been submitted for any other
examination and does not form the part of any other course undergone
by me.

Aashutosh Dudhe,

Mohammad Zeeshan

Himanshu Pradhan

Place:

Date:
 ACKNOWLEDGEMENT

With immense pride and sense of gratitude, we take this

golden opportunity to express our sincere regards to Principal Sir Dr. K.
T. Thomas and Asst. Prof. Biju Angalees (H.O.D) of department of
Computer Science, S.F.S College, Nagpur.

We are extremely thankful to our project Guide Asst. Prof. Mervin M

Lazarus for his project guidance throughout the project. We tender our
sincere regards to them for giving us their outstanding guidance,
enthusiastic suggestions and invaluable encouragement which helped us
to complete the project.

We will be failing in our duty if we do not thank to the Non-Teaching

staff of the college for their Co-operation.

We would like to thank all who helped us in making this project

complete and Successful one.
Aashutosh Dudhe

Mohammad Zeeshan

Himanshu Pradhan

(BCCA FINAL)
 TABLE OF CONTENTS

1. INTRODUCTION

2. OBJECTIVES

3. PRELIMINARY SYSTEM ANALYSIS

3.1 Preliminary Investigation
3.2 Presents System in Use
3.3 Flaws in Present System
3.4 Need of New System
3.5 Feasibility Study
3.6 Project Category

4. SOFTWARE ENGINEERING PARADIGM APPLIED

4.1 Modules
4.2 System/Modular Charts

5. SOFTWARE& HARDWARE REQUREMENT SPECIFICATION

6. DETAILED SYSTEM ANAYLIS

6.1 Data Flow Diagram
6.2 Number of Modules and Process Logic
6.3 Entity-Relationship Diagram

7. SYSTEM DESIGN
7.1 Form Design-
7.2 Source Code
7.3 Input Screen and Output Screen

8. TESTING &VALIDATION CHECKS

9. SYSTEM SECURITY MEASURES

10. IMPLEMENTATION AND EVALUATION AND MAINTAINANCE

11. FUTURE SCOPE OF THE PROJECT

12. SUGGESTION & CONCLUSION

13. BIBLIOGRAPHY & REFRENCES

"FABRICATION SYSTEM"
INTRODUCTION:-
Fabrication management application’s functionalities are to maintain
record of customer items, stock, purchase, sale, and created various type
of reports like customer report, supplier report, purchase report, sales
report. With the help of this application we can collect our previous data
related to stock, sales, and purchase transactions.

Fabrication Management System’s Overview :-

In this application the owner of fabrication workshop can maintain
records of various items manufactured by him as well as maintain records of
customer details and various purchase and sales transactions done.
This application also generates various types of reports like customer
reports, supplier reports, purchase reports and sales reports.
Objectives:-

Fabrication management application’s functionalities are to maintain records

of customer items, stock, purchase, sales and generates various types of
reports like customer reports, supplier reports, purchase reports, sales
reports. With the help of this application we can collect our previous data
related to stock, sales and purchase transactions.

1. The security system of this project is taken care by providing username and
password authentication facility on the login (welcome) screen.
2. Maintain Company‟s Detail records related to customer‟s and company‟s
name, billing report of the stock and material availability.
3. Maintain customers or company‟s detail records related to purchase
transactions, sales transactions, order details and manufacturing product‟s
information.
4. The owner of the Fabrication system application can add the quantity and
amount per unit of the item or product being sold to the customer. He can
also calculate the total amount of bulk products being sold to the customer,
which will be stored in the hard disk for future reference.
5. The saved records of purchase and sales transaction can also be a modified
or updated as per the requirement of the customer, which will be easy for the
owner of the system to maintain the records in the customer database.
6. The owner of this application can click on stock reports in order to display
the name of the items and quantity of items available in the stock.
7. The owner of this application can click on Item reports menu and then click
on Show All option in order to display item names, company name and price
of the product.
8. The owner of this application can generate various types of reports like item
reports, customer reports, supplier reports, purchase and sales transaction
reports.
9. Whenever the owner of this application wishes to exit this application he can
simply click on exit menu.
SYSTEM ANALYSIS:-
 PRESENT SYSTEM IN USE.
 PROBLEM DEFINITION.
 FLAWS IN PRESENT SYSTEM.
 NEED FOR NEW SYSTEM.
 PROPOSED SYSTEM.
 FEASIBILITY STUDY.
 TECHNICAL FEASIBILITY
 OPERATIONAL FEASIBLITY
 ECONOMIC FEASIBILITY.
 PRELIMINARY ANALYSIS.
 PROJECT CATEGORY
PRESENT SYSTEM IN USE:-

In the present system, the earlier system is converted from manual to a

computerized system. It is not an easy task to convert the manual
system into a computerized system.

Following are the features of the present system :-

1) Storing of records is possible in a faster way and it saves a lot of
paper work.
2) The present system is efficient in searching the records and
rechecking them for getting the records.
3) Skipping of records which are more of need to the training and
placement department does not occur in this system.
4) Duplication of data does not occur in the current system as
validation checks relating to it are provided.
5) Future reference is not difficult as there are no chances of data
getting lost, damaged or deteriorated as there is a track of each
and every record.
6) The current system does not affect the efficiency of manager,
it‟s not tedious, hectic and also time saving.
7) As data are not maintained by human. It is computerized and is
less prone to errors.

Hence there is a great need of new system, so as to

eliminate the ongoing system for the work.

PROBLEM DEFINITION:-

This software is designed for employee payroll management

system. Earlier all the works related to the employee was done
manually, where we are unable to maintain any record and the system
was not able to keep the track about the previous records.
In manual system we cannot get the proper information about
the previous, present and future records at the same place and cannot
access the records at the same time we need. The manual system is not
 according to the requirements of the user. Therefore, it becomes
necessary to build software which would satisfy the user requirements
and its functions for smoother and efficient functioning of the
employee payroll management.

FLAWS IN PRESENT SYSTEM:-

Making a manual system into computerized system is not an
easy task, especially due to the complexity of work it involves. To
serve better to the users is the aim of every management, but the
present working system doesn‟t seems to work properly.

Following are the flaws in the present manual system:-

1) According to users type are made and all records are maintained
in that file. So it requires different records and file for different
type of users. It has to be maintained in separate files.
2) Storing this file is biggest problem as it involves lot of paper
work done by human.
3) Searching of data and rechecking them becomes too tedious job
for the department.
4) There is skipping of many records which are more of need to
the department.
5) Duplication of data should not take place.
6) The user‟s view-points are also sometimes ignored in the
current system.
7) Future reference is difficult as there are chances of data getting
lost, damaged or deteriorated.
8) Affects efficiency of manager, its tedious, hectic and time
consuming.
9) As data are maintained and made manually by human it is
prone to errors.
10) It is difficult to maintain accuracy due to these errors.
11) Generating report is a time consuming process.
 Hence there is a great need of new system so as to eliminate the
ongoing system for the work.

NEED FOR NEW SYSTEM :-

Why we need to form a new system. Every new system is developed

after finding errors and flaws in the current system or if the system is
not able to meet requirement of user completely. Or maybe it is not
providing facilities required by the user.

So seeing all such flaws in the current system there is a need to

form new system, to overcome the flaws in the present system we
develop a new system.

Now every system is designed keeping in mind the system

requirements and its functions for smoother and efficient functioning
of the organization. Some objectives of the developed system are
listed below:-

1) To ease the complex work process.

2) To avoid redundancy relating to records.
3) To provide user with proper functions.
4) More user-friendly, anybody can operate it easily.
5) To improve the quality of service.
6) It is more compatible, small by size and provides complete and
reliable reports or outcomes.
7) It consumes less memory.
8) It is time saving.
9) It provides proper generation of reports for analysis.

Computer can replace all registers used in organisation. The manpower that
is mainly used for transferring data is also reduced, leading to following
advantages :-

1) Accuracy is maintained.
2) Fast process.
3) Stationary consumption is very low.
 4) No possibility of losing records.
5) Future reference is easy and accurate.
6) This software is economically suitable and also capable of
observing and making changes or adjustments.
7) This system provides flexibility to the department to add,
delete, modify and update records easily and properly.
8) It provides full and complete database as its backup so that data
can be protected from any fear of loss of data.

We can say it is a system which meet the requirement of user, better than
manual and make user comfortable to use, modify and remove in future. It
has all such quality which was lacking in manual system.

FEASIBILITY STUDY
Feasibility study is a test of a system proposal according to its workability Impact
on the organization, ability to meet user needs, and effective use of resources.

Feasibility study is done to determine whether or not a project is worth doing. In

other words, feasibility is the analysis of risk, cost and benefits relating to
economics, technology and user organizations. The problem to be automated is
analyzed in sufficient detail to ensure that all aspect of feasibility is evaluated.

This type of study determines if a project can and should be taken. Once, it
has been determined if a project is feasible, the analyst can go ahead and prepare
the project specification which finalizes project requirement. The contents and the
recommendations of such a study will be used as a sound basis for deciding
whether to proceed since the feasibility study may lead to the commitment of large
resources. It becomes necessary that it should be conducted competently and that
no fundamental errors of judgments are made.

In the conduct of feasibility study the analyst will usually consider three
distinct but interrelated type of feasibility study. They are :-

1) Technical feasibility.
2) Operational feasibility.
3) Economic feasibility.
Technical feasibility
It tells us whether proposed system is technicality sound or not. Means
whether this system is technically fit to use or not? This is related with specifying
hardware equipments and software‟s that will successfully satisfy the user
requirements. The technical needs of the system may vary considerably and
include.
i. The facility to produce the output in a given time.
ii. Response time under certain conditions.
iii. Ability to process a certain volume of transaction at particular
speed.
iv. By size it is short and consumes less energy and is compatible.

In examining technical feasibility, configuration of the system is more than

the actual make of hardware. Configuration should give the complete picture about
the system requirements. What speed of input and output should be achieved at
particular quality of printing? Specific hardware and soft ware products can then
be evaluated keeping in view with logical needs and predetermined budget.

As a feasibility stage, it is desirable that 2 or 3 different configuration will be

persuaded that satisfy the key technical requirements but which represents different
levels of ambition and cost. Investigation of technical alternative can be aided by
approaching a range of suppliers for preliminary decision. Out of all type of
feasibility, technical feasibility is generally the most difficult to determine. The
technical issues raised during the feasibility study are:-

1. Does the necessary technology exist, to do what is suggested?

Ans :- Yes, the necessary technology exists.
2. Can the system be expanded if developed?
Ans :- Yes, the system can be developed as per the norms issued or altered by
the government.
3. Does this technology guarantee accuracy, reliability, ease of access and data
security?
Ans :- Yes, proper backup is taken into consideration and the system would be
protected with password.
4. Does it consume much of the memory?
 Ans :- No, it doesn‟t consume much of the primary and secondary memory
inspite of being large in size.

OPERATIONAL FEASIBILITY:-

It is a study under which the analysis is made on the basis of the system.
Operation feasibility is a study which tells how the working of the system will
affect the environment. In this, we conclude whether the working of the system in
the desired manner will affect the environment, i.e. the required areas or not. It lays
emphasis on areas like user skill, output, the input, maintenance, etc. our system
has overcome.

What change will be brought to the system?

Ans :- The automation will replace the manual system
What new skills will be required?
Ans :- User won‟t require training to run the system. The only thing they require is
to have a proper knowledge of finance and income tax.

ECONOMIC FEASIBILITY:-

Economic stands for cost benefit and budget. Whether the system is going
according to planned budget or not? Whether it is meeting the requirements and
approaching towards goal within planned budget or not? Is the system over
budgeted? Each department is using the resources as per plan or not and up to its
fullest use or not? Whether anything amount to wastage?

If the system which was developing seems to be beneficial for the entire
organization then only we think of making that system.

In economic feasibility, we try to understand and answer all such questions

mentioned above. It is an ongoing process in system life cycle. Without economic
feasibility no system can be successful as each system requires fund and this fund
utilization is assessed using economic feasibility. The main procedure is to
determine the benefits and saving that are expected from a proposed system and
compare them with cost.
If the benefits overweigh cost, decision is taken to design and implement the
system.
PRELIMINARY ANALYSIS :-

In our day today life we come across various systems such as school management
system, traffic management system, etc. The word system is derived from the
Greek word „system‟ means organized relationship among functioning units or
components with a central objective and these components are called as sub-units
of the system.

Thus, every system has a common thing and that is:

a. It is an organized combination of different components.

b. They are interdependent and inter-related.
c. They work for common objective.

Thus in order to carry out the project successfully, the system then is taken under
consideration should be analysed properly. It is necessary to investing the
particular system by considering the following points:

The system undertaken should be feasible.

It should help to derive the cost-benefit analysis.
It should maintain the economic and technical aspect of the organization.
It should help to attain the desired objective.
In the computerised system, information acts as input, which is then processed to
get the desired output, the output in turn helps the management

PROJECT CATEGORY :-

PROJECT CATEGORY IS :-

 STAND ALONE APPLICATION.

HARDWARE REQUIRED :-

 RAM: 4 GB and
 Processor: 2.66 GHz
SOFTWARE REQUIRD :-
 Windows XP
 FRONT END :- V.B.6 (Visual Basic 6.0)
 BACK-END :- M.S.Access

Visual basic :-

Visual Basic is one of the fastest & easiest ways to create application; visual basic
provides you complete set of tools to simplify rapid application development.

Visual basic is the event-driven programming language. In an event-driven

application, the code doesn‟t follow a predetermined path. It executes different
code sections in response to events. Event can be triggered by the user‟s action, by
message from the system or other applications, or even from the application itself.
The sequence of these events determines the sequence in which the code differs
each time the program runs.

M.S Access :-

This database is used to store the data of the project. We can define database as a
shared collection of logically related data, designed to meet the information needs
of multiple user in an organization. Database is used to store the data which is a
raw fact which can be converted into information with the help of Database
management system. Information can be further used to generate the reports.
 Modules

Following modules are combined together to make this application:

1. Masters module :- In this module, the owner of this application can add
new customer details, company‟s name, raw material order details in the
database of MS Access (the backend of this project). He can also modify or
update customer details, add new supplier‟s details in the database of MS
Access. He can also modify or update supplier‟s record or details whenever
the need arrives or cancel any unwanted operation whenever required.

2. Purchase module :- With the help of add purchase option, the owner of this
application can add the purchase transaction details like invoice number,
supplier number, item name, cost per unit, quantity and total price in the
database. He can add and save records, clear wrong entries and cancel any
unwanted operation whenever required.

3. Sales module :- The owner of this application can add sales transaction
details like invoice number, date, item name, customer‟s details, cost per
unit, quantity and total price in the database. In the sales record he can add
and save records, clear wrong entries or cancel any unwanted entries.

4. Item report module :- The owner of this application can generate reports of
various manufactured items (products) available in the fabrication workshop
by clicking on the Show All option which will display item‟s (product‟s)
name, company‟s name, and prices of various products being displayed on
the screen.

5. Stock report :- The owner of this application can generate or check stock‟s
status available in the warehouse by clicking on Show All option. The
various types of item‟s name and its available quantity will be displayed on
the screen. Whenever required he can modify or change stock report.

6. Report Generation :- The owner of this application can generate various

types of reports like customer report, supplier report, purchase report and
sales transaction report by clicking on the required option of this menu.
He can click on Customer Report option and Show All option in order to
generate Report on Customer details. He can generate supplier‟s report by
 clicking on Show All option. He can check the purchase details by clicking
on Purchase report, he can also check Sales report by clicking on Sales
report option in order to generate Sales transaction report.

SYSTEM FLOWCHART

START

MASTER
ADD
PURCHASED
New
SALES
Update
ITEM REPORTS
Save
STOCKS REPORTS
Delete

REPORTS
Exit
EXIT

REPORT

EXIT

LOG OUT

STOP
MASTER

DATABAS
E
 SOFTWARE DESIGN :-
i.
DATA STRUCTURE
ii.
TABLES
iii.
DATA FLOW DIAGRAM
iv.FORM DESIGN
v. SOURCE CODE
vi. REPORT DESIGN

ENTITY RELATIONSHIP DIAGRAM

MODIF
NEW
Y
CUSTO
REPORTS
NEW MER
MODIFY

SUPPLIER’ PURCHASE
1 GENERATES S
m REPORT
MASTERS
REPORT
 DATE

INVOICE CUSTOM COST QUANTI

ER TOTAL PRINT
PER UNIT TY
NO. NAME PRICE BILL
NAME

MASTER
DATA BASE
 CUSTOMER
ENTRY CUSTOMER
DETAILS

CLIEN CLIENT PHON MOBIL FAX E-Mail WEB-

ADD E NO. E NO. SITE
T
NO. Id SAVE
NAME

MASTER
DATA
BASE
 SUPPLIERS

SUPPLIER DETAILS

SUPPLI SUPPLI PHONE MOBIL FAX E-MAIL WEB-

ER ER NO. SITE
E NO. NO.
NAME ADD SAVE
ADD

MASTER
DATA
BASE
 2. Process - Salary Details
MASTER & payroll Generation
S

2.2 2.3 2.4

2.1 2.5 2.7
Save Edit Delete Exit
Issue Cancel
Record Record Record Record
Record Record

MASTER
DATA BASE
 STOCKREPORT, SALES
REPORT
REPORT, PURCHASE
REPORT, SUPPLY REPORT,
CUSTOMER REPORT

Master
Data base
Supplier details :-

Dim Row Num As Integer

Dim con1 As Connection
Dim com1 As Command
Dim rst1 As Record set
Dim Sqlst As String
Private Sub Add Click ()
'Sqlst = "update Item set CompanyName='"& txtSupName.Text &"',Price='"&
txtSupAdd.Text &"'where ClientName='"& Combo1.Text &"'"
Sqlst = "update Supplier set SupAdd='"& txtSupAdd.Text &"',PhNo='"&
txtPhNo.Text &"',MobNo='"& txtMobNo.Text &"',FaxNo='"& txtFaxNo.Text
&"',Email='"& txtEmail.Text &"',WebSite='"& txtWebSite.Text &"' where
SupName= '"& Combo1.Text &"'"

Set rst1 = con1.Execute(Sqlst)

MsgBox ("Record Modify Successfully")

Clear_Click

End Sub

Private Sub Cancel_Click()

Unload Me

End Sub

Private Sub Clear_Click()

Combo1.Text = ""

' txtSupType.Text = ""

 txtSupAdd.Text = ""

txtPhNo.Text = ""

txtMobNo.Text = ""

txtFaxNo.Text = ""

txtEmail.Text = ""

txtWebSite.Text = ""

' txtSupName.SetFocus

End Sub

Private Sub Command1_Click()

Sqlst = "select * from Supplier where SupName='"& Combo1.Text &"'"

Set rst1 = con1.Execute(Sqlst)

If rst1.BOF Or rst1.EOF = True Then

MsgBox ("Record Not Found")

Else

'txtSupName.Text = rst1.Fields(1)

txtSupAdd.Text = rst1.Fields(2)

txtPhNo.Text = rst1.Fields(3)

txtMobNo.Text = rst1.Fields(4)

txtFaxNo.Text = rst1.Fields(5)

txtEmail.Text = rst1.Fields(6)

txtWebSite.Text = rst1.Fields(7)
End If

End Sub

Sales:-

Dim RowNum As Integer

Dim con1 As Connection

Dim com1 As Command

Dim rst1 As Recordset

Dim Sqlst As String

Dim dis As New ADODB.Recordset

Public DB As New ADODB.Connection

Private Sub Salebill()

Sqlst = "insert into SaleBillNew values('"& Combo1.Text &"', "& _

"'"& Combo2.Text &"', '"& _

txtCostPerUnit.Text &"', "& _

"'"& txtQty.Text &"', "& _

""& Text1.Text &""& _

")"

Set rst1 = con1.Execute(Sqlst)

End Sub

Private Sub Add_Click()

If txtQty.Text = "" Then

MsgBox ("Record Should Not be Blank !!!!!!!!!!!")

Exit Sub

End If

Sqlst = "insert into Sale values("& _

Text2.Text &", "& _

"'"& Combo2.Text &"', "& _

"'"& Combo1.Text &"', "& _

txtCostPerUnit.Text &", "& _

""& txtQty.Text &", "& _

""& Text1.Text &", "& _

"'"& dtpOrderDate.Value &"', "& _

"'"& DTPicker1.Value &"'"& _

")"

Set rst1 = con1.Execute(Sqlst)

Call Stock

Call Clear_Click
 MsgBox ("Record Saved Successfully")

Sqlst = "select max(InviceNo) from sale"

Set rst1 = con1.Execute(Sqlst)

If IsNull(rst1.Fields(0).Value) = True Then

Text2.Text = "1"

Else

Text2.Text = Val(rst1.Fields(0).Value) + 1

End If

End Sub

Private Sub Stock()

Sqlst = "select * from Stock where INAME='"& Combo2.Text &"'"

Set rst1 = con1.Execute(Sqlst)

If rst1.EOF = False Then

Qty = rst1.Fields(1)

If Qty < Val(txtQty.Text) Then

MsgBox ("Quantity Is Less")

Exit Sub

End If

Qty = Qty - Val(txtQty.Text)

Sqlst = "update Stock set Quantity ="& Qty &" where INAME=Trim('"&
Combo2.Text &"')"

'Else

'Sqlst = "insert into Stock (INAME,Quantity)values('"& Combo2.Text &"',"&

txtQty.Text &")"

Set rst1 = con1.Execute(Sqlst)

End If

End Sub

Private Sub AddToList_Click()

Salebill

txtCostPerUnit.Text = ""

txtQty.Text = ""

Text1.Text = ""

' Combo1.Text = ""

Combo2.Text = ""

Set con1 = New Connection

Set com1 = New Command

Set rst1 = New Recordset

With con1
 .ConnectionString = ""

.Provider = "Microsoft.Jet.OLEDB.4.0;Data Source='"& App.Path

&"\data.mdb';;Persist Security Info=False"

.Open

End With

dis.Open "select * from SaleBillNew", con1, adOpenStatic, adLockOptimistic

'Sqlst = "select * from SavingAc"

'Set rst1.DataSource = rst1.DataSource

sql = "select * from SaleBillNew"

dis.Close

dis.Open sql, con1, adOpenStatic, adLockOptimistic

Set plangrid.DataSource = dis.DataSource

dis.Close

End Sub

Private Sub Cancel_Click()

Unload Me

End Sub

Private Sub Clear_Click()

txtCostPerUnit.Text = ""
 txtQty.Text = ""

Text1.Text = ""

Combo1.Text = ""

Combo2.Text = ""

End Sub

Private Sub Command1_Click()

Sqlst = "Update Sale set ClientName='"& Combo1.Text &"',CostPerUnit="&

txtCostPerUnit.Text &",Quantity="& txtQty.Text &",TotalCost="& Text1.Text
&",CDate='"& dtpOrderDate.Value &"',ExpiryDate='"& DTPicker1.Value &"',
INAME='"& Combo2.Text &"' where InviceNo="& Text2.Text &""

Set rst1 = con1.Execute(Sqlst)

MsgBox ("Record Modify Successfully")

Call Clear_Click

End Sub

Private Sub Command2_Click()

Sqlst = "select * from Sale where InviceNo="& Text2.Text &""

Set rst1 = con1.Execute(Sqlst)

If rst1.EOF = False Then

Combo2.Text = rst1.Fields(1)

Combo1.Text = rst1.Fields(2)

txtCostPerUnit.Text = rst1.Fields(3)
txtQty.Text = Trim(rst1.Fields(4))

Text1.Text = rst1.Fields(5)

dtpOrderDate.Value = rst1.Fields(6)

DTPicker1.Value = rst1.Fields(7)

End If

End Sub

Private Sub Command3_Click()

''
Sqlst = "delete from SaleBillNew"

Set rst1 = con1.Execute(Sqlst)

'''

Sqlst = "select max(InviceNo) from sale"

Set rst1 = con1.Execute(Sqlst)

If IsNull(rst1.Fields(0).Value) = True Then

Text2.Text = "1"

Else

Text2.Text = Val(rst1.Fields(0).Value) + 1

End If

End Sub
Private Sub Command4_Click()

DataReport4.Show

End Sub

Private Sub Form_Load()

'dtpOrderDate.sho

'DTPicker1.Value = Now

Set con1 = New Connection

Set com1 = New Command

Set rst1 = New Recordset

With con1

.ConnectionString = ""

.Provider = "Microsoft.Jet.OLEDB.4.0;Data Source='"& App.Path

&"\data.mdb';Mode=ReadWrite;"

.Open

End With

RowNum = 1
'Clear_Click

Sqlst = "select * from Client"

Set rst1 = con1.Execute(Sqlst)

While rst1.EOF <> True

Combo1.AddItem rst1(1)

rst1.MoveNext

Wend

Sqlst = "select * from Purchase"

Set rst1 = con1.Execute(Sqlst)

While rst1.EOF <> True

Combo2.AddItem rst1(1)

rst1.MoveNext

Wend

Sqlst = "select max(InviceNo) from Sale"

Set rst1 = con1.Execute(Sqlst)

If IsNull(rst1.Fields(0).Value) = True Then

Text2.Text = "1"

Else

Text2.Text = Val(rst1.Fields(0).Value) + 1

End If

End Sub
Private Sub txtQty_LostFocus()

Text1.Text = Val(txtCostPerUnit.Text) * Val(txtQty.Text)

Sqlst = "select * from Stock where INAME='"& Combo2.Text &"'"

Set rst1 = con1.Execute(Sqlst)

If rst1.EOF = False Then

Qty = rst1.Fields(1)

If Qty < Val(txtQty.Text) Then

MsgBox ("Quantity Is Less")

txtQty.Text = ""

Text1.Text = ""

txtQty.SetFocus

Exit Sub

End If

End If

End Sub

Customer details:-
Dim con1 As Connection

Dim com1 As Command

Dim rst1 As Recordset

Dim Sqlst As String

Private Sub Add_Click()

Sqlst = "update Item set CompanyName='"& txtCompany.Text &"',Price='"&

txtprice.Text &"'where ItemName='"& Combo1.Text &"'"

Set rst1 = con1.Execute(Sqlst)

MsgBox ("Record Modify Successfully")

Call Clear_Click

End Sub

Private Sub Cancel_Click()

Unload Me

End Sub

Private Sub Clear_Click()

Combo1.Text = ""

txtCompany.Text = ""

txtprice.Text = ""
' txtItemName.SetFocus

Sqlst = "select * from Item"

Set rst1 = con1.Execute(Sqlst)

While rst1.EOF <> True

Combo1.AddItem rst1(0)

rst1.MoveNext

Wend

End Sub

Private Sub Command1_Click()

Sqlst = "select * from Item where ItemName='"& Combo1.Text &"'"

Set rst1 = con1.Execute(Sqlst)

If rst1.BOF Or rst1.EOF = True Then

MsgBox ("Record Not Found")

Else

txtCompany.Text = rst1.Fields(1)

txtprice.Text = rst1.Fields(2)

End If

End Sub
Private Sub Command2_Click()

'a = MsgBox("DO YOU WANT TO DELETE THIS RECORD?", vbYesNo)

'If a = vbYes Then

'''''

'cn.Open

' If rs.State = adStateOpen Then rs.Close

' sql = "DELETE * from Item ItemName='"& Combo1.Text &"'"

'

' rs.Open sql, cn

' End If

' cn.Close

Sqlst = "select * from Item where ItemName='"& Combo1.Text &"'"

Set rst1 = con1.Execute(Sqlst)

If MsgBox("Are You Sure you Want To Delete This Medicine", vbYesNo,

"Delete Record") = vbYes Then

Sqlst = "delete from Item where ItemName='"& Combo1.Text &"'"

Set rst1 = con1.Execute(Sqlst)

End If

Call Clear_Click
'Call cmdaddnew_Click

End Sub

Private Sub Form_Load()

Set con1 = New Connection

Set com1 = New Command

Set rst1 = New Recordset

With con1

.ConnectionString = ""

.Provider = "Microsoft.Jet.OLEDB.4.0;Data Source='"& App.Path

&"\data.mdb';Mode=ReadWrite;"

.Open

End With

Sqlst = "select * from Item"

Set rst1 = con1.Execute(Sqlst)

While rst1.EOF <> True

Combo1.AddItem rst1(0)

rst1.MoveNext

Wend

End Sub
Private Sub txtprice_KeyPress(KeyAscii As Integer)

KeyAscii = NumValidate(KeyAscii)

End Sub

Code:-

Dim con1 As Connection

Dim com1 As Command

Dim rst1 As Recordset

Dim Sqlst As String

Dim dis As New ADODB.Recordset

Public DB As New ADODB.Connection

Private Sub Command1_Click()

Unload Me

End Sub

Private Sub Command2_Click()

Set con1 = New Connection

Set com1 = New Command

Set rst1 = New Recordset

With con1

.ConnectionString = ""
 .Provider = "Microsoft.Jet.OLEDB.4.0;Data Source='"& App.Path
&"\data.mdb';;Persist Security Info=False"

.Open

End With

dis.Open "select * from Item WHERE ItemID="& txtAccNo.Text &"", con1,

adOpenStatic, adLockOptimistic

'Sqlst = "select * from SavingAc"

'Set rst1.DataSource = rst1.DataSource

sql = "select * from Item WHERE ItemID="& txtAccNo.Text &""

dis.Close

dis.Open sql, con1, adOpenStatic, adLockOptimistic

Set plangrid.DataSource = dis.DataSource

dis.Close

End Sub

Private Sub Command3_Click()

Set con1 = New Connection

Set com1 = New Command

Set rst1 = New Recordset

With con1

.ConnectionString = ""
 .Provider = "Microsoft.Jet.OLEDB.4.0;Data Source='"& App.Path
&"\data.mdb';;Persist Security Info=False"

.Open

End With

dis.Open "select * from Item", con1, adOpenStatic, adLockOptimistic

'Sqlst = "select * from SavingAc"

'Set rst1.DataSource = rst1.DataSource

sql = "select * from Item"

dis.Close

dis.Open sql, con1, adOpenStatic, adLockOptimistic

Set plangrid.DataSource = dis.DataSource

dis.Close

End Sub

FABRICATION:-

Dim con1 As Connection

Dim com1 As Command

Dim rst1 As Recordset

Dim Sqlst As String

Dim dis As New ADODB.Recordset

Public DB As New ADODB.Connection

Private Sub Command1_Click()

Unload Me

End Sub

Private Sub Command2_Click()

Set con1 = New Connection

Set com1 = New Command

Set rst1 = New Recordset

With con1

.ConnectionString = ""

.Provider = "Microsoft.Jet.OLEDB.4.0;Data Source='"& App.Path

&"\data.mdb';;Persist Security Info=False"

.Open

End With

dis.Open "select * from Item WHERE ItemID="& txtAccNo.Text &"", con1,

adOpenStatic, adLockOptimistic

'Sqlst = "select * from SavingAc"

'Set rst1.DataSource = rst1.DataSource

sql = "select * from Item WHERE ItemID="& txtAccNo.Text &""

dis.Close

dis.Open sql, con1, adOpenStatic, adLockOptimistic

Set plangrid.DataSource = dis.DataSource

dis.Close

End Sub

Private Sub Command3_Click()

Set con1 = New Connection

Set com1 = New Command

Set rst1 = New Recordset

With con1

.ConnectionString = ""

.Provider = "Microsoft.Jet.OLEDB.4.0;Data Source='"& App.Path

&"\data.mdb';;Persist Security Info=False"

.Open

End With

dis.Open "select * from Item", con1, adOpenStatic, adLockOptimistic

'Sqlst = "select * from SavingAc"

'Set rst1.DataSource = rst1.DataSource

sql = "select * from Item"

dis.Close

dis.Open sql, con1, adOpenStatic, adLockOptimistic

Set plangrid.DataSource = dis.DataSource

dis.Close

End Sub

Customer entry:-

Dim con1 As Connection

Dim com1 As Command

Dim rst1 As Recordset

Dim Sqlst As String

Private Sub Add_Click()

If txtClientName.Text = "" Or txtClientAdd.Text = "" Then

MsgBox ("You Cann't Leave Client Name, Type & Address Empty")

Exit Sub

End If

If txtPhNo.Text = "" Then txtPhNo.Text = ""

If txtMobNo.Text = "" Then txtMobNo.Text = ""

If txtFaxNo.Text = "" Then txtFaxNo.Text = ""

If txtEmail.Text = "" Then txtEmail.Text = ""

If txtWebSite.Text = "" Then txtWebSite.Text = ""

Sqlst = "insert into Client values("& _

txtClientID.Text &", "& _

"'"& txtClientName.Text &"', "& _

"'"& txtClientAdd.Text &"', "& _

"'"& txtPhNo.Text &"', "& _

"'"& txtMobNo.Text &"', "& _

"'"& txtFaxNo.Text &"', "& _

"'"& txtEmail.Text &"', "& _

"'"& txtWebSite.Text &"'"& _

")"

Set rst1 = con1.Execute(Sqlst)

MsgBox ("Record Saved Successfully")

Clear_Click

End Sub

Private Sub Cancel_Click()

Unload Me

End Sub

Private Sub Clear_Click()

Sqlst = "select max(ClientID) from client"

Set rst1 = con1.Execute(Sqlst)

If IsNull(rst1.Fields(0).Value) = True Then

 txtClientID.Text = "1"

Else

txtClientID.Text = Val(rst1.Fields(0).Value) + 1

End If

txtClientName.Text = ""

' txtClientType.Text = ""

txtClientAdd.Text = ""

txtPhNo.Text = ""

txtMobNo.Text = ""

txtFaxNo.Text = ""

txtEmail.Text = ""

txtWebSite.Text = ""

txtClientName.SetFocus

End Sub

Private Sub Form_Load()

Set con1 = New Connection

Set com1 = New Command

Set rst1 = New Recordset

With con1

.ConnectionString = ""

.Provider = "Microsoft.Jet.OLEDB.4.0;Data Source='"& App.Path

&"\data.mdb';Mode=ReadWrite;"

.Open

End With

Sqlst = "select max(ClientID) from client"

Set rst1 = con1.Execute(Sqlst)

If IsNull(rst1.Fields(0).Value) = True Then

txtClientID.Text = "1"

Else

txtClientID.Text = Val(rst1.Fields(0).Value) + 1

End If

End Sub

Private Sub txtFaxNo_KeyPress(KeyAscii As Integer)

If KeyAscii <> vbKeyBack Then

If KeyAscii < vbKey0 Or KeyAscii > vbKey9 Then

MsgBox ("NUMBER ONLY")

txtFaxNo.Text = ""
KeyAscii = 0

End If

End If

End Sub

Private Sub txtMobNo_KeyPress(KeyAscii As Integer)

If KeyAscii <> vbKeyBack Then

If KeyAscii < vbKey0 Or KeyAscii > vbKey9 Then

MsgBox ("NUMBER ONLY")

txtMobNo.Text = ""

KeyAscii = 0

End If

End If

End Sub

Private Sub txtPhNo_KeyPress(KeyAscii As Integer)

If KeyAscii <> vbKeyBack Then

If KeyAscii < vbKey0 Or KeyAscii > vbKey9 Then

MsgBox ("NUMBER ONLY")

txtPhNo.Text = ""

KeyAscii = 0

End If

End If
End Sub

Customer report:-

Dim con1 As Connection

Dim com1 As Command

Dim rst1 As Recordset

Dim Sqlst As String

Dim dis As New ADODB.Recordset

Public DB As New ADODB.Connection

Private Sub Command1_Click()

Unload Me

End Sub

Private Sub Command2_Click()

If txtAccNo.Text = "" Then

MsgBox ("Fill Data")

Exit Sub

End If

Set con1 = New Connection

Set com1 = New Command

Set rst1 = New Recordset

With con1

.ConnectionString = ""

.Provider = "Microsoft.Jet.OLEDB.4.0;Data Source='"& App.Path

&"\data.mdb';;Persist Security Info=False"

.Open

End With

dis.Open "select * from Client WHERE ClientID="& txtAccNo.Text &"", con1,

adOpenStatic, adLockOptimistic

'Sqlst = "select * from SavingAc"

'Set rst1.DataSource = rst1.DataSource

sql = "select * from Client WHERE ClientID="& txtAccNo.Text &""

dis.Close

dis.Open sql, con1, adOpenStatic, adLockOptimistic

Set plangrid.DataSource = dis.DataSource

dis.Close

End Sub

Private Sub Command3_Click()

Set con1 = New Connection

Set com1 = New Command

Set rst1 = New Recordset

With con1

.ConnectionString = ""

.Provider = "Microsoft.Jet.OLEDB.4.0;Data Source='"& App.Path

&"\data.mdb';;Persist Security Info=False"

.Open

End With

dis.Open "select * from Client", con1, adOpenStatic, adLockOptimistic

'Sqlst = "select * from SavingAc"

'Set rst1.DataSource = rst1.DataSource

sql = "select * from Client"

dis.Close

dis.Open sql, con1, adOpenStatic, adLockOptimistic

Set plangrid.DataSource = dis.DataSource

dis.Close

End Sub

Firm login:-

Option Explicit

Public LoginSucceeded As Boolean

Private Sub cmdCancel_Click()

LoginSucceeded = False

Me.Hide

End Sub

Private Sub cmdOK_Click()

If txtPassword = "123" And txtUserName = "123" Then

LoginSucceeded = True

MainForm.Show

Unload Me

'MainForm.Show

Unload Me

Else

MsgBox "Invalid Password, try again!", , "Login

txtPassword.SetFocus

SendKeys "{Home}+{End}"

End If

End Sub

Customer entry:-

Option Explicit

Public LoginSucceeded As Boolean

Private Sub cmdCancel_Click()

LoginSucceeded = False

Me.Hide

End Sub

Private Sub cmdOK_Click()

If txtPassword = "123" And txtUserName = "123" Then

LoginSucceeded = True

MainForm.Show

Unload Me

'MainForm.Show

Unload Me

Else

MsgBox "Invalid Password, try again!", , "Login"

txtPassword.SetFocus

SendKeys "{Home}+{End}"

End If

End sub

Purchasing firm details:-

Dim RowNum As Integer

'Dim con1 As Connection

'Dim com1 As Command

'Dim rst1 As Recordset

'Dim Sqlst As String

Dim con1 As Connection

Dim com1 As Command

Dim rst1 As Recordset

Dim Sqlst As String

Dim dis As New ADODB.Recordset

Public DB As New ADODB.Connection

Private Sub Add_Click()

If txtQty.Text = "" Then

MsgBox ("Record Should Not be Blank !!!!!!!!!!!")

Exit Sub

End If

Sqlst = "insert into Purchase values("& _

Text2.Text &", "& _

"'"& Combo2.Text &"', "& _

"'"& Combo1.Text &"', "& _

txtCostPerUnit.Text &", "& _

""& txtQty.Text &", "& _

""& Text1.Text &", "& _

"'"& dtpOrderDate.Value &"', "& _

"'"& DTPicker1.Value &"'"& _

")"

Set rst1 = con1.Execute(Sqlst)

Call Stock

Call Clear_Click

MsgBox ("Record Saved Successfully")

Sqlst = "select max(InviceNo) from Purchase"

Set rst1 = con1.Execute(Sqlst)

If IsNull(rst1.Fields(0).Value) = True Then

Text2.Text = "1"

Else

Text2.Text = Val(rst1.Fields(0).Value) + 1

End If

End Sub

Private Sub Stock()

Sqlst = "select * from Stock where INAME='"& Combo2.Text &"'"

Set rst1 = con1.Execute(Sqlst)

If rst1.EOF = False Then

Qty = rst1.Fields(1)

Qty = Qty + Val(txtQty.Text)

Sqlst = "update Stock set INAME='"& Combo2.Text &"',Quantity ="&

txtQty.Text &" where id= "& id &""

Else

Sqlst = "insert into Stock (INAME,Quantity)values('"& Combo2.Text &"',"&

txtQty.Text &")"

Set rst1 = con1.Execute(Sqlst)

End If

End Sub

Private Sub AddToList_Click()

Sqlst = "insert into Purchase values("& _

Text2.Text &", "& _

"'"& Combo2.Text &"', "& _

"'"& Combo1.Text &"', "& _

txtCostPerUnit.Text &", "& _

""& txtQty.Text &", "& _

""& Text1.Text &", "& _

"'"& dtpOrderDate.Value &"', "& _

"'"& DTPicker1.Value &"'"& _

")"

Set rst1 = con1.Execute(Sqlst)

Set con1 = New Connection

Set com1 = New Command

Set rst1 = New Recordset

With con1

.ConnectionString = ""

.Provider = "Microsoft.Jet.OLEDB.4.0;Data Source='"& App.Path

&"\data.mdb';;Persist Security Info=False"

.Open

End With

dis.Open "select * from Purchase WHERE InviceNo="& Text2.Text &"", con1,

adOpenStatic, adLockOptimistic

'Sqlst = "select * from SavingAc"

'Set rst1.DataSource = rst1.DataSource

sql = "select * from purchase WHERE InviceNo="& Text2.Text &""

dis.Close
dis.Open sql, con1, adOpenStatic, adLockOptimistic

Set plangrid.DataSource = dis.DataSource

dis.Close

'If txtRawID.Text = "" Then

' MsgBox ("Please Enter Valid Raw ID")

' txtRawID.SetFocus

' Exit Sub

' End If

'

' If txtQty.Text = "" Then

' MsgBox ("Please Enter Quantity")

' txtQty.SetFocus

' Exit Sub

' End If

'

' If Val(txtRawID.Text) = 0 Then

' MsgBox ("Invalid Raw ID . Please Try Again")

' txtRawID.Text = ""

' txtRawID.SetFocus

' Exit Sub

' End If

' If Val(txtQty.Text) = 0 Then

' MsgBox ("Invalid Quantity. Please Try Again")

' txtQty.Text = ""

' txtQty.SetFocus

' Exit Sub

' End If

'

'

' Sqlst = "insert into Purchase values("& _

' Text2.Text &", "& _

'"'"& Combo2.Text &"', "& _

'"'"& Combo1.Text &"', "& _

' txtCostPerUnit.Text &", "& _

'""& txtQty.Text &", "& _

'""& Text1.Text &", "& _

'"'"& dtpOrderDate.Value &"', "& _

'"'"& DTPicker1.Value &"'"& _

'")"

'

' Set rst1 = con1.Execute(Sqlst

' MSF1.Col = 0

' MSF1.Row = RowNum

' MSF1.Text = txtRawID.Text

'
' MSF1.Col = 1

' MSF1.Row = RowNum

' MSF1.Text = Combo2.Text

'

' MSF1.Col = 2

' MSF1.Row = RowNum

' MSF1.Text = txtCostPerUnit.Text

'

' MSF1.Col = 3

' MSF1.Row = RowNum

' MSF1.Text = txtQty.Text

'

' RowNum = RowNum + 1

'

' txtRawID.Text = ""

' txtRawItemName.Text = ""

' txtCostPerUnit.Text = ""

' txtQty.Text = ""

' txtRawID.SetFocus

End Sub

Private Sub Cancel_Click()

Unload Me

End Sub

Private Sub Clear_Click()

txtCostPerUnit.Text = ""

txtQty.Text = ""

Text1.Text = ""

Combo1.Text = ""

Combo2.Text = ""

End Sub

Private Sub Combo1_Click()

Sqlst = "select * from Supplier where SupName='"& Combo1.Text &"'"

Set rst1 = con1.Execute(Sqlst)

'If IsNull(rst1.Fields(0).Value) = True Then

' txtClientOrder.Text = Val(rst1.Fields(0).Value)

End Sub
Private Sub Combo2_Click()

Sqlst = "select * from Item where ItemName='"& Combo2.Text &"'"

Set rst1 = con1.Execute(Sqlst)

'If IsNull(rst1.Fields(0).Value) = True Then

' txtRawID.Text = Val(rst1.Fields(0).Value)

End Sub

Private Sub Command1_Click()

Sqlst = "Update Purchase set ClientName='"& Combo1.Text &"',CostPerUnit="&

txtCostPerUnit.Text &",Quantity="& txtQty.Text &",TotalCost="& Text1.Text
&",CDate='"& dtpOrderDate.Value &"',ExpiryDate='"& DTPicker1.Value &"',
INAME='"& Combo2.Text &"' where InviceNo="& Text2.Text &""

Set rst1 = con1.Execute(Sqlst)

MsgBox ("Record Modify Successfully")

Call Clear_Click

End Sub

Private Sub Command2_Click()

Sqlst = "select * from Purchase where InviceNo="& Text2.Text &""

Set rst1 = con1.Execute(Sqlst)

If rst1.EOF = False Then

Combo2.Text = rst1.Fields(1)

Combo1.Text = rst1.Fields(2)

txtCostPerUnit.Text = rst1.Fields(3)

txtQty.Text = rst1.Fields(4)

Text1.Text = rst1.Fields(5)

dtpOrderDate.Value = rst1.Fields(6)

DTPicker1.Value = rst1.Fields(7)

End If

Set rst1 = con1.Execute(Sqlst)

Set con1 = New Connection

Set com1 = New Command

Set rst1 = New Recordset

With con1

.ConnectionString = ""

.Provider = "Microsoft.Jet.OLEDB.4.0;Data Source='"& App.Path

&"\data.mdb';;Persist Security Info=False"

.Open

End With

dis.Open "select * from Purchase WHERE InviceNo="& Text2.Text &"", con1,

adOpenStatic, adLockOptimistic
'Sqlst = "select * from SavingAc"

'Set rst1.DataSource = rst1.DataSource

sql = "select * from purchase WHERE InviceNo="& Text2.Text &""

dis.Close

dis.Open sql, con1, adOpenStatic, adLockOptimistic

Set plangrid.DataSource = dis.DataSource

dis.Close

End Sub

Private Sub Command3_Click()

Sqlst = "select max(InviceNo) from Purchase"

Set rst1 = con1.Execute(Sqlst)

If IsNull(rst1.Fields(0).Value) = True Then

Text2.Text = "1"

Else

Text2.Text = Val(rst1.Fields(0).Value) + 1

End If

End Sub

Private Sub Form_Load()

Set con1 = New Connection

Set com1 = New Command

Set rst1 = New Recordset

With con1

.ConnectionString = ""

.Provider = "Microsoft.Jet.OLEDB.4.0;Data Source='"& App.Path

&"\data.mdb';Mode=ReadWrite;"

.Open

End With

RowNum = 1

Clear_Click

Sqlst = "select * from Supplier"

Set rst1 = con1.Execute(Sqlst)

While rst1.EOF <> True

Combo1.AddItem rst1(1)

rst1.MoveNext

Wend

Sqlst = "select * from Item"

Set rst1 = con1.Execute(Sqlst)

While rst1.EOF <> True

Combo2.AddItem rst1(0)

rst1.MoveNext

Wend

Sqlst = "select max(InviceNo) from Purchase"

Set rst1 = con1.Execute(Sqlst)

If IsNull(rst1.Fields(0).Value) = True Then

Text2.Text = "1"

Else

Text2.Text = Val(rst1.Fields(0).Value) + 1

End If

End Sub

Private Sub txtQty_LostFocus()

Text1.Text = Val(txtCostPerUnit.Text) * Val(txtQty.Text)

End Sub

Purchase report:-

Dim con1 As Connection

Dim com1 As Command

Dim rst1 As Recordset

Dim Sqlst As String

Dim dis As New ADODB.Recordset

Public DB As New ADODB.Connection

Private Sub Command1_Click()

Unload Me

End Sub

Private Sub Command2_Click()

If txtAccNo.Text = "" Then

MsgBox ("Fill Data")

Exit Sub

End If

Set con1 = New Connection

Set com1 = New Command

Set rst1 = New Recordset

With con1

.ConnectionString = ""

.Provider = "Microsoft.Jet.OLEDB.4.0;Data Source='"& App.Path

&"\data.mdb';;Persist Security Info=False"

.Open
End With

dis.Open "select * from PurchaseOrder WHERE POID="& txtAccNo.Text &"",

con1, adOpenStatic, adLockOptimistic

'Sqlst = "select * from SavingAc"

'Set rst1.DataSource = rst1.DataSource

sql = "select * from Purchase WHERE InviceNo="& txtAccNo.Text &""

dis.Close

dis.Open sql, con1, adOpenStatic, adLockOptimistic

Set plangrid.DataSource = dis.DataSource

dis.Close

End Sub

Private Sub Command3_Click()

Set con1 = New Connection

Set com1 = New Command

Set rst1 = New Recordset

With con1

.ConnectionString = ""

.Provider = "Microsoft.Jet.OLEDB.4.0;Data Source='"& App.Path

&"\data.mdb';;Persist Security Info=False"

.Open
End With

dis.Open "select * from PurchaseOrder", con1, adOpenStatic, adLockOptimistic

'Sqlst = "select * from SavingAc"

'Set rst1.DataSource = rst1.DataSource

sql = "select * from Purchase"

dis.Close

dis.Open sql, con1, adOpenStatic, adLockOptimistic

Set plangrid.DataSource = dis.DataSource

dis.Close

End Sub

Sale report:-

Dim con1 As Connection

Dim com1 As Command

Dim rst1 As Recordset

Dim Sqlst As String

Dim dis As New ADODB.Recordset

Public DB As New ADODB.Connection

Private Sub Command1_Click()

Unload Me

End Sub
Private Sub Command2_Click()

If txtAccNo.Text = "" Then

MsgBox ("Fill Data")

Exit Sub

End If

Set con1 = New Connection

Set com1 = New Command

Set rst1 = New Recordset

With con1

.ConnectionString = ""

.Provider = "Microsoft.Jet.OLEDB.4.0;Data Source='"& App.Path

&"\data.mdb';;Persist Security Info=False"

.Open

End With

dis.Open "select * from Sale WHERE InviceNo="& txtAccNo.Text &"", con1,

adOpenStatic, adLockOptimistic

'Sqlst = "select * from SavingAc"

'Set rst1.DataSource = rst1.DataSource

sql = "select * from Sale WHERE InviceNo="& txtAccNo.Text &""

dis.Close

dis.Open sql, con1, adOpenStatic, adLockOptimistic

Set plangrid.DataSource = dis.DataSource

dis.Close

End Sub

Private Sub Command3_Click()

Set con1 = New Connection

Set com1 = New Command

Set rst1 = New Recordset

With con1

.ConnectionString = ""

.Provider = "Microsoft.Jet.OLEDB.4.0;Data Source='"& App.Path

&"\data.mdb';;Persist Security Info=False"

.Open

End With

dis.Open "select * from Sale", con1, adOpenStatic, adLockOptimistic

'Sqlst = "select * from SavingAc"

'Set rst1.DataSource = rst1.DataSource

sql = "select * from Sale"

dis.Close
dis.Open sql, con1, adOpenStatic, adLockOptimistic

Set plangrid.DataSource = dis.DataSource

dis.Close

End Sub

Customer entry:-

Dim con1 As Connection

Dim com1 As Command

Dim rst1 As Recordset

Dim Sqlst As String

Private Sub Add_Click()

'Sqlst = "update Item set CompanyName='"& txtCompany.Text &"',Price='"&

txtprice.Text &"'where ClientName='"& Combo1.Text &"'"

Sqlst = "update Client set ClientAdd='"& txtClientAdd.Text &"',PhNo='"&

txtPhNo.Text &"',MobNo='"& txtMobNo.Text &"',FaxNo='"& txtFaxNo.Text
&"',Email='"& txtEmail.Text &"',WebSite='"& txtWebSite.Text &"' where
ClientName= '"& Combo1.Text &"'"

Set rst1 = con1.Execute(Sqlst)

MsgBox ("Record Modify Successfully")

' Call Clear_Click

End Sub

Private Sub Cancel_Click()

Unload Me

End Sub

Private Sub Clear_Click()

Combo1.Text = ""

' txtSupType.Text = ""

txtClientAdd.Text = ""

txtPhNo.Text = ""

txtMobNo.Text = ""

txtFaxNo.Text = ""

txtEmail.Text = ""

txtWebSite.Text = ""

End Sub

Private Sub Command1_Click()

Sqlst = "select * from Client where ClientName='"& Combo1.Text &"'"

Set rst1 = con1.Execute(Sqlst)

If rst1.BOF Or rst1.EOF = True Then

MsgBox ("Record Not Found")

Else

txtClientAdd.Text = rst1.Fields(2)
txtPhNo.Text = rst1.Fields(3)

txtMobNo.Text = rst1.Fields(4)

txtFaxNo.Text = rst1.Fields(5)

txtEmail.Text = rst1.Fields(6)

txtWebSite.Text = rst1.Fields(7)

End If

End Sub

Private Sub Command2_Click()

Sqlst = "select * from Client where ClientName='"& Combo1.Text &"'"

Set rst1 = con1.Execute(Sqlst)

If MsgBox("Are You Sure you Want To Delete This Medicine", vbYesNo,

"Delete Record") = vbYes Then

Sqlst = "delete from Client where ClientName='"& Combo1.Text &"'"

Set rst1 = con1.Execute(Sqlst)

End If

Call Clear_Click

End Sub

Private Sub Form_Load()

Set con1 = New Connection

Set com1 = New Command

Set rst1 = New Recordset

With con1

.ConnectionString = ""

.Provider = "Microsoft.Jet.OLEDB.4.0;Data Source='"& App.Path

&"\data.mdb';Mode=ReadWrite;"

.Open

End With

Sqlst = "select * from Client"

Set rst1 = con1.Execute(Sqlst)

While rst1.EOF <> True

Combo1.AddItem rst1(1)

rst1.MoveNext

Wend

End Sub

Stock:-

Dim con1 As Connection

Dim com1 As Command

Dim rst1 As Recordset

Dim Sqlst As String

Dim dis As New ADODB.Recordset

Public DB As New ADODB.Connection

Private Sub Command2_Click()

Set con1 = New Connection

Set com1 = New Command

Set rst1 = New Recordset

With con1

.ConnectionString = ""

.Provider = "Microsoft.Jet.OLEDB.4.0;Data Source='"& App.Path

&"\data.mdb';;Persist Security Info=False"

.Open

End With

dis.Open "select * from Stock WHERE ID="& txtAccNo.Text &"", con1,

adOpenStatic, adLockOptimistic

'Sqlst = "select * from SavingAc"

'Set rst1.DataSource = rst1.DataSource

sql = "select * from stock WHERE id="& txtAccNo.Text &""

dis.Close

dis.Open sql, con1, adOpenStatic, adLockOptimistic

Set plangrid.DataSource = dis.DataSource

dis.Close

End Sub

Private Sub Command1_Click()

Unload Me

End Sub

Private Sub Command3_Click()

Set con1 = New Connection

Set com1 = New Command

Set rst1 = New Recordset

With con1

.ConnectionString = ""

.Provider = "Microsoft.Jet.OLEDB.4.0;Data Source='"& App.Path

&"\data.mdb';;Persist Security Info=False"

.Open

End With

dis.Open "select * from stock", con1, adOpenStatic, adLockOptimistic

'Sqlst = "select * from SavingAc"

'Set rst1.DataSource = rst1.DataSource

sql = "select * from stock"

dis.Close

dis.Open sql, con1, adOpenStatic, adLockOptimistic

Set plangrid.DataSource = dis.DataSource

dis.Close

End Sub

Supplier details:-

Dim con1 As Connection

Dim com1 As Command

Dim rst1 As Recordset

Dim Sqlst As String

Dim dis As New ADODB.Recordset

Public DB As New ADODB.Connection

Private Sub Command1_Click()

Unload Me

End Sub

Private Sub Command2_Click()

If txtAccNo.Text = "" Then

MsgBox ("Fill Data")

Exit Sub
End If

Set con1 = New Connection

Set com1 = New Command

Set rst1 = New Recordset

With con1

.ConnectionString = ""

.Provider = "Microsoft.Jet.OLEDB.4.0;Data Source='"& App.Path

&"\data.mdb';;Persist Security Info=False"

.Open

End With

dis.Open "select * from Supplier WHERE SupID="& txtAccNo.Text &"", con1,

adOpenStatic, adLockOptimistic

'Sqlst = "select * from SavingAc"

'Set rst1.DataSource = rst1.DataSource

sql = "select * from Supplier WHERE SupID="& txtAccNo.Text &""

dis.Close

dis.Open sql, con1, adOpenStatic, adLockOptimistic

Set plangrid.DataSource = dis.DataSource

dis.Close
End Sub

Private Sub Command3_Click()

Set con1 = New Connection

Set com1 = New Command

Set rst1 = New Recordset

With con1

.ConnectionString = ""

.Provider = "Microsoft.Jet.OLEDB.4.0;Data Source='"& App.Path

&"\data.mdb';;Persist Security Info=False"

.Open

End With

dis.Open "select * from Supplier", con1, adOpenStatic, adLockOptimistic

'Sqlst = "select * from SavingAc"

'Set rst1.DataSource = rst1.DataSource

sql = "select * from Supplier"

dis.Close

dis.Open sql, con1, adOpenStatic, adLockOptimistic

Set plangrid.DataSource = dis.DataSource
dis.Close

End Sub
SECURITY MESSURES TAKEN :-

Data is very important part of any project. So to provide data security is most
essential for the designer. Data security is provided so that any unauthorized
user cannot misuse the data or should not hamper the data. As data involves
much sensitive and confidential matter, it should not be made available to
all. Keeping all such things in mind, designer makes security system. Now what
all things are provided in this system? It provides username and login password.
In order to keep it safe from unauthorized user designer provides password. User
need to enter password at login stage. Also, in order to have a copyright of the
project we provide only executable files (.vbp) to our client, which allows
anyone to make changes in the source code.
1) This application can be further enhanced by adding Billing feature in the
Purchase module.
2) This application can also be enhanced by electronically automating it
completely and giving additional information to the customer related to
various products or items, displaying its feature and price of each item.
3) Additional information to get the customers review on each product or items
purchased by them can be added to further enhance this application.
 Limitations
1) Since the application does not provide the billing facility to the customer so
this is the main limitation of our project.
2) Since additional information related to each product‟s, price and features
are not available so this is the second limitation of our project.
3) Since the additional information to collect the customer‟s review on each
product or item is not available so this is the third limitation of our project.
System Design:

Login Screen:
Dashboard :-
Sales Form :
Purchase Form:
Report Form :
Stock Form:
Customer Report :
Supplier Report:
Purchase Report:
Sales Report:
Bibliography :

Book Referred:

 Visual Basics Black Book

 The Complete Reference Visual Basics 6. (By: Noel Jerae)

Websites:

www.Genialbooks.com
www.Vb books.com
www.PC w World.com

Search Engine:

www.google.co.in