PROJECT REPORT ON

BUSINESS MANAGEMENT SYSTEM

PROJECT WORK SUBMITTED IN PARTIAL FULFILLMENT OF THE REQUIREMENTS THE AWARD OF THE DEGREE OF (INFORMATION TECHNOLOGY)

SUBMITTED BY KHARATMAL GANESH SAMBHAJI REG.No. 17

UNIVERSITY OF MUMBAI INSTITUTE OF DISTANCE AND OPEN LEARNING (IDOL) UNIVERSITY OF MUMBAI ACADEMIC YEAR 2010-11

BUSINESS MANAGEMENT SYSTEM

Page 1

Desktop Project Report UNIVERSITY OF MUMBAI

Institute of Distance and Open Learning (IDOL) Santacruz(E). Mumbai - 400098

~~~~~~~~~~~~~~~~~~~~~~~~~~ ~~~~~~~~~~~~~~~~~~ Project Subject : BUSINESS

MANAGEMENT SYSTEM

Submitted by Kharatmal

: Ganesh Sambhaji

Register No.

: 17

Seat No

Signature : Date 2011 : __ / 03 /

BUSINESS MANAGEMENT SYSTEM

Page 2

ACKNOWLEDGEMENT

I express my sincere thanks to the Professor -cumDirector, Institute of Distance and Open Learning, University of Mumbai who has given me the opportunity to pursue my B. Sc ( Information Technology) also express my thanks to CO-ORDINATOR and other staff of the I.T. Section, IDOL. I would like to thank SUMAN PACKAGING for giving me the opportunity to develop software for their Company. I would like to thank Mr.Mangesh M. Narayankar(MCA) & Mr. Ajay L. Shinde who was most co-operative and provided us with all the necessary information needed during the development phase of the project. Finally I would like to thank my family members, friends and all others who had helped me during the software development stage.

Name : ________________ REG.NO :______

BUSINESS MANAGEMENT SYSTEM

Page 3

GANESH SAMBHAJI KHARATMAL

PREFACE

This report aims at introducing the various transactions involved in the Business in which raw material are purchased from Suppliers and sold to the Customers. The reports aimed at automatic generation of the bill when the customer purchased any products from the Company.

This reports depicts only the basic logic used for the software development along with flowcharts so that any render may understand the logic applied.

The intricate details of the software have not been introduced in the project. For further information, readers may refer to source code provided along with this report.

Though this report has been prepared with almost care, error may remain and readers are requested to intimidate to the author.
BUSINESS MANAGEMENT SYSTEM Page 4

INDEX

BUSINESS MANAGEMENT SYSTEM

Page 5

17.

Object Diagram Component Diagram Activity Diagram Organization Profile State Diagram Problem Statement Testing Limitation of Current System Scope of Snapshot Proposed System Technology Used Coding System Analysis and Design Challenges in this Project System Planning Project Conclusion SDLC Model BibliographyUsed Database Schema Event Table ERD (Entity Relationship Diagram) DFD Fragment Class Diagram Sequence Diagram Collaboration Diagram Use Case Diagram

42

Sr. 18. No.

19. 1. 20. 2. 21. 3. 4. 22. 5. 23. 6. 24. 7. 25. 8. 26. 9. 10. 11. 12. 13. 14. 15. 16.

Topics

Page 43 No.
44 07 45 08 46 09 10 50 11 51 12 204 15 205 17 206 21 22 25 26 31 32 37 40

BUSINESS MANAGEMENT SYSTEM

Page 6

ORGANIZATION PROFILE
SUMAN PACKAGING is Very Well Known Company Situated in Tiruppur(Tamil -Nadu). SUMAN PACKAGING Manufacturing of Hangers.

The Hangers provided by them so far have been Standard with no complaints from any customer.

Product specialization and cost efficiency allow to offer every customer unique custom-made products at highly competitive prices, often for the same price as standard products.

BUSINESS MANAGEMENT SYSTEM

Page 7

Availability of different types of Hangers provide more choice to the customers.

SUMAN PACKAGING has good name among the Suppliers and hence many companies supply them good quality of Raw-material.

The Employees working here have good knowledge about all types of hangers

They work on shifts to provide 24 hour for Manufacturing Hangers.

PROBLEM STATEMENT
The Present System is totally Base On Manual Data Management. The Records of Goods which are coming in to the company are fed manually on Register Book. Create a system that Store In and Out Stock of Goods. Create two types of users one is normal users and second is administrator. The owner wants a system that store the employee details, supplier details and client details. Create a system that display the all type information like show that how much Raw material is remaining in the company Create the bill format according to company needs

Create a Softcopy of bill for company records

In case, if there is a need to create Records :

BUSINESS MANAGEMENT SYSTEM Page 8

o First find the all appropriate records o Write Report manually Create a Annual report and all types of reports like bill wise report, all types of suppliers report, raw material report, employee report. Provide the extra tools like contact directory and calculator.

Limitations of Current System

Current System has following limitations : Keeping and maintaining Hardcopies / Softcopies for each Customer Orders is very difficult

Since the soft copies arent stored in order searching for a record is difficult. If the owner needs to search any specific record, then he has to search it manually, which is very hard for him. The records of goods are written in the book so it is time consuming task.
Page 9

BUSINESS MANAGEMENT SYSTEM

Update the stock of goods is very difficult. Calculation are done in manually which may lead to some calculation mistake. Creating reports based on orders, charges is very difficult if number of records is very large.

Security issues.

PROPOSED SYSTEM
The proposed system is fully computerised and is developed using Visual studio 2008 Professional Edition and Microsoft SQL Server 2005 Express Edition.

Advantages of the proposed system:

BUSINESS MANAGEMENT SYSTEM

Page 10

 Lot of time is getting saved. Details of the suppliers, employees and customers can be saved in the database. Automatic calculation of bills of the suppliers and customers. It is possible to find out the defective material and return them to the suppliers. Add the stock of goods in suitable manner and Arrange the Stock efficiently. Data retrieving capability is very high. Information is more secure by using the passwords. Automatic calculation of the bills for customers & suppliers. Annual or Monthly Report is generate within a second.

TECHNOLOGY USED
New System Developed in Visual Studio 2008

Professional Edition as front-end and Microsoft SQL Server 2005 Express Edition as front-end. It will provide:

BUSINESS MANAGEMENT SYSTEM

Page 11

 More user friendly since Visual Studio 2008 is best

GUI. Minimization of redundancy in well maintained data. Maximum Data security. Achieve facility. Preventing unauthorised users to view critical working strategy of the company.
Crystal Report Viewer 2007 is used to generate all

types of report.

SYSTEM ANALYSIS AND DESIGN

BUSINESS MANAGEMENT SYSTEM

Page 12

System Analysis :
Analysis is a detailed study of the various operations performed by a system and their relationships within and outside of the system. The overall role of software in a larger in a larger system is identified during system engineering. However, its necessary to take a harder look at softwares role to understand the specific requirements that must be achieved to build high-quality software. Thats the job of software requirements analysis. Generally, a software engineer performs requirements analysis. However, for complete business application, a system analyst trained in the business aspects of the application domain may perform the task. System analysis, requirements definition is the stage where developers try to explain the possible solutions to the problem. But instead of answering the problem head-on, the solutions are posted in functions expected from the software. Once the developers have determined the required software, it is time to analyze the type of software that could answer the problems encountered. System analysis will take a look at possible software. The goal of a system analysis is to know the properties and functions of software that would answer
BUSINESS MANAGEMENT SYSTEM Page 13

the concerns solicited from intended users. System Analysis would lead in determining the requirements needed in software. These requirements in software should be implemented otherwise the software may not answer the concerns or may lack in its usage. This stage will somehow determine how the software should function. Software safety is a software quality assurance activity that focuses on the identification and assessment of potential hazards that may affect software negatively and cause an entire system to fail. If hazards can be identified early in the software engineering process, software design features can be specified that will either eliminator control potential hazards. A modeling and analysis process is conducted as part of software safety. Initially, hazards are identified and categorized by critically and risk.

System Design :
Design is the most creative and challenging phase of the system development life cycle. The term design describes the final system and process by which it is developed.

BUSINESS MANAGEMENT SYSTEM

Page 14

Coding The goal of the coding phase is to translate the design of the system into code in a given programming language. In this phase the aim is to implement the design in the best possible manner.

Testing Testing is the major quality control measure used during software development. Its basic function is to detect errors in the software.

Implementation. Implementation phase is less creative than system design. It is mainly concerned with user-training, site selection and preparation and file conversion.

Maintenance. Maintenance is an important part of SDLC. If there is any error to correct or change needed by the system then it is done in the maintenance phase.

BUSINESS MANAGEMENT SYSTEM

Page 15

SYSTEM PLANNING
Software project management beings with a set of activities that are collectively called project planning. Planning involves estimation-determining how much money, effort, time, and resources, & time it will take to build the specified software or system Estimation being with a description of the product. Until the scope is bounded it is not possible to develop a meaningful eastimate.The problem is then decomposed into a set of smaller problems and each of these is estimated using historical data & experience as
BUSINESS MANAGEMENT SYSTEM Page 16

guidelines. It is advisable to generate the estimate using at least two different methods as a crosscheck. Problem complexity and risk are considered before a final estimate is made. To achieve reliable estimate, we considered the following option: Delay estimation until late in the project.

Base estimation on similar projects that have already been completed.

Use relatively simple decomposition technique to generate project cost & effort estimation.

Use one or more empirical models for software cost & effort estimation.

GANNT CHART

BUSINESS MANAGEMENT SYSTEM

Page 17

Phases
Planning

Jun

Jul

Aug

Sept

Oct

Nov

Analysis

Design

Impleme ntation Maintena nce

SDLC Model Used

Software Development Life Cycle:
BUSINESS MANAGEMENT SYSTEM Page 18

An information system goes through a series of phases from conception to implementation. This process is called as Software Development Life Cycle (SDLC).Various purposes of using life cycle models are: Helps to understand entire process. Enforces a structure approach to development. Enable Planning of Resource in advance. Enable subsequent control of them. Aids management to track progress of the system.

Software Development Life Cycle composed in following phases:

Project initiation and planning. Feasibility Study. Project analysis. System Design Coding. Testing. Implementation. Maintenance.

BUSINESS MANAGEMENT SYSTEM

Page 19

SDLC Life Cycle

Project Plannin g Feasibil ity study Project Implementa tion Analysi s

Maintena nce

Testin g

System design

Coding

Iterative Enhancement Model :

BUSINESS MANAGEMENT SYSTEM Page 20

The Iterative Enhancement Model combines element of the linear sequential model with the iterative philosophy of prototyping. In this model, the software is broken down into several modules, which are incrementally developed and delivered. First, the development team develops the core module of the system and it is later refined into increasing level of adding new functionalities in successive version. Each linear sequence produces a deliverable increment of the software. E.g word processing software developed using the iterative paradigm might deliver basis file management, editing and document production capabilities in second increment, spelling and grammar checking in third increment and so on.

Aa s n ly is

Ds n e ig

S s m for a y te /in m tion e g e rin n in e g

Advantages of Iterative Enhancement model :
BUSINESS MANAGEMENT SYSTEM Page 21

In re e t2 c mn

Aa s n ly is

Ds n e ig

 The feedbacks from early increment improves the later stages. The possibility of changes in requirement is reduced because of the shorter time span between the design of a component and its delivery. Users get benefit earlier than with the conventional approach.

Early delivery of some useful components improves cash flow, because you get some on investment early on.

Smaller sub-projects are easier to control and manage. The project can be temporarily abandoned if more urgent work cross up. Job satisfaction is increased for developers who see their labours fruit at regular, short, intervals.

Disadvantages of Iterative Enhancement model :

Software breakage, that is, later increments may require modification to early increment. Programmers may be more productive working on large system that on a series of smaller ones. Some problems are difficult to divide into functional units(modules), which can be incrementally developed and delivered.

BUSINESS MANAGEMENT SYSTEM

Page 22

Database Schema Diagram

Customer
Cust_id Cust_name Cust_add Cust_phno Cust_CST_n o Cust_TIN_n

Cust ord detail Cust_order_id

Prod_name Qty

Product
Emp_id Prod_name Prod_type Date_of_prod u

Product detail Emp_id

Prod_name Qty_on_hand

Cust_orde r Cust_order_i
d Cust_id Cust_name OrderDate DelDate OrderStatus

Employee Purchase Order Detail

Sup_name Sup_id Material_name Qty Amt Emp_id Emp_name Emp_add Emp_phno Emp_job_title Emp_sal

Bill
Bill_id Cust_id Cust_name Cust_add Cust_CST_no Cust_TIN_no Prod_type Date Qty Amt

Supplier
Sup_name Sup_id Sup_add Sup_phno Material_name

Purchase Order
Sup_name Sup_id OrderDate DelDate

Rawmaterial Material_name
Material_type Qty

Rawmaterial
Material_name

OrderStatus TotalAmt

Amt per kg MANAGEMENT SYSTEM BUSINESS Material_type Qty on hand

Page 23

EVENT TABLE
Event:
Virtually all approaches of system development begin the modeling process with the concept of event. An event occurs at specific time and place, can be described and should be remembered by the system. Event derive or trigger all processing that a System should does, so listing them and then analyzing them make sense when you need to define system requirement.

Event Table:
While developing the list of events, the analyst should note additional information about each event for later use. This information is entered in an event table. An event table includes rows and columns, representing events and their details respectively. Each row in the event table records information about one event.

Event :
Event is something that happens at particular place and time.

Trigger :
An occurrence that tells the system an event has occurred is called the trigger.

Source :
Source of the data could be external agent.

Activity :
The systems reaction to the event is called an activity.

BUSINESS MANAGEMENT SYSTEM

Page 24

Response :
A response is an output of the System. There are often several responses from one activity.

Destination:
Destination is where any response (output) is sent, again an external agent or actor. Sometime there is no response at all.

Event
Owner searches for the customer detail Owner makes new entry for customer Customer places an order Owner create a bill for Customer Owner makes new entry of employee Owner wants to update the detail of employee

Trigg Sourc Respon Desti Activity er e se nation

Custom ers entry New custom er entry New order New bill Owner Look up into customer Create new customer Customer detail Owner

Owner

Order Confirmati on Issue bill

Owner

Custom Request er for create new order Owner Request for create new bill Create new employee Update the details of old employee

Custom er

New Owner employ ee entry Update old employ ee detail Owner

Update confirmati on

Owner

BUSINESS MANAGEMENT SYSTEM

Page 25

Owner makes new entry for Supplier Owner checks raw material status Owner place order to supplier Supplier process order Owner updates raw material stock Owner willing to delete Raw material detail

New supplier Raw materia l status enquiry Raw materia l stock goes below New order

Owner

Create new supplier Look up into raw material availabilit y Create supplier order

Raw material detail Order details

Owner

Owner

Owner

Supplier

Supplie Process Order r New order Details Add/updat e raw material Check for availabilit y, Delete model

Owner

Got new Owner order Raw Owner materia l deletion

Message of availabilit y, Deletion Confirmati on Message of availabilit y, Confirmati on, Success Employees salary report

Owner

Owner willing to change prices of Products

Setting charges

Owner

Check for availabilit y, change price

Owner

Time to produce Employee salary payment report Time to produce Inhouse Production report

At the end of the Month At the end of the month

Produce employee s salary report Produce In-house productio n report

Owner

In-house Owner production report

BUSINESS MANAGEMENT SYSTEM

Page 26

Time to produce Use raw material Report

At the end of the month

Produce Use raw material report Produce supplier report produce all bill report

Use raw material report supplier report

Owner

Time to At the produce end of supplier report the month Time to produce all bill report At the end of the month

Owner

all bill report

Owner

ERD diagram
Pla ce
Custom er
Cust_Ord er ha ve Cust_Ord er_Detail ha ve

Deliv er

Employe e

Crea te

Product

ha ve

Product_ detail Page 27

BUSINESS MANAGEMENT SYSTEM

Have

Bill

us e

Supplier

sup ply

Raw_Materi al

ha ve

Raw_Materi al_Detail

Proce ss

Pur_Order

ha ve

Pur_Orde r_ Detail

DFD Fragment
1

Owne r

Customer Entryup

Look
Customer

Into Customer detail custom er

2
BUSINESS MANAGEMENT SYSTEM

Create new custom er

Page 28

Owne r

New Customer Entry Customer

Custom Customer er

New order

3
Create new order
Cust_order

Order details Cust_Order_Detail Owner Transaction

Product

Owne r
Issue bill

New Bill

4
Create new bill
Bill

Custom er

5
BUSINESS MANAGEMENT SYSTEM

Create new Employ ee

Page 29

Employee Owne

New Employee Entry

6
Update Update Employee old Employ ee Details Details

Employee

Owne r

Owne Supplier r
ail

New Supplier Entry Create

new Suppli er

Raw_Stock_Det

8
Look up inquiry Into raw Material Raw material Details availabil BUSINESS MANAGEMENT SYSTEM ity

Owne r

Raw material status

Raw_Stock

Page 30

Owne r

New order

9
Place New Order
Supplier Pur_Order

Order details

Supplie r

Suppli er Pur_order

New Order

10
Proces s New Order

Raw_Stock

Owner

Order Details

11
Add/Up date Raw Materi al Stock

BUSINESS MANAGEMENT SYSTEM

Owne r

Page 31

Got New Order Raw_Stock

12
Raw material deletion

Owne r

Delete raw Materi Deletion Successfully al Detail s

Raw_Stock

13
Setting Prices

Owne r

Success

Chang e Price for Produ cts

Product

Employee At the end of the Month

14
Produc e Employ ee Salary Report

Product Product_Details

Owne r

BUSINESS MANAGEMENT SYSTEM

Page 32

15
At the end of the Month

Owne r

Produc e Suppli er Report

Supplier Pur_order

16
At the end of the Month

Owne r

Produce Inhouse Product ion Report

Product Product_details

17
Produc At the end of the
Month

Owne r

e Use Raw Materi al Report

Supplier Pur_order

At the end of the Month

18
Bill

Owne r
BUSINESS MANAGEMENT SYSTEM

Produc e All Bill Report

Page 33

CLASS DIAGRAM
Customer1
Cust_id Cust_name

1..*

1 1..*

Cust_add Cust_phno Cust_CST_n o Cust_TIN_n

Cust ord detail Cust_order_id

1
Prod_name Qty

Product
Emp_id Prod_name

Product detail Emp_id

Prod_name

1..* Prod_type 1..* 1

Date_of_prod u

1..* Qty_on_hand

1 1 1

Employee
Emp_id Emp_name

Cust_orde r Cust_order_i
d

0..*

Bill
Bill_id Cust_id Cust_name Cust_add Cust_CST_no Cust_TIN_no Prod_type Date Qty Amt

Cust_id Cust_name OrderDate DelDate OrderStatus

Purchase Order Detail

Sup_name Sup_id Material_name Qty Amt

Emp_add Emp_phno Emp_job_title Emp_sal

Supplier
Sup_name Sup_id

1..* 1

1..*

Sup_add Sup_phno material_name

Purchase Order
1 Sup_name
Sup_id OrderDate DelDate

0..*

Rawmaterial Material_name
Material_type

1..*

Rawmaterial

OrderStatus TotalAmt Page 34

Qty Material_name BUSINESS MANAGEMENT SYSTEM Amt per kg Material_type Qty on hand

1..*

Sequence Diagrams
1. Create New Customer and Look up into Customer

Customer

Owner

[New Customer] Create Customer (CustomerDetail) Visit Company

.

: Customer

[Existing Customer] Status=CheckStatus (Cust_name, Phono)

BUSINESS MANAGEMENT SYSTEM

Page 35

2. Create New Order , Look up into Product and Generate a Bill

Customer

Owner

: Product

Product Inquiry

Status=CheckProduct (Product_name,ProductType) Qty<(Qty_On_Hand) CreateOrder(Order detail)

: Cust order

UpdateProduct(Qty,amt) Order detail Transaction

: Cust order_Det ail

CreateProddetail (Productdetail)

CreateBill(Cust_id,Total_amt_date,Order_id) Order Confirmation

: Bill

BUSINESS MANAGEMENT SYSTEM

Page 36

3. Create New Employee and Update the order Status

Employee

Owner

New Emp entry

CreateEmpoyee Employee Detail)

: Employee

UpdateEmpDetail(Emp_id,Emp_name,sal)

UpdateCusOrder(Order_id,Qty,amt)
: Cust order

Transaction

BUSINESS MANAGEMENT SYSTEM

Page 37

4. Create New Entry of Supplier, Owner Checks Raw-Material Status and Owner Place Order to Supplier
Customer Owner

: Supplier

New Supplier CreateSup(Supplier Details)

: Raw_materi

(Qty_On_Hand<=ROL) Raw_name=SearchRaw-material() Sup=SearchSup(Raw_name) Product Detail

Raw_materi al_Detail

UpdatePurOrder(OrderDt,DelDt,Amt)

: Pur_Orde : Pur_orde r

UpdateDetail(Pur_Order,,Qty,Total_amt_date,) Order Confirmation

BUSINESS MANAGEMENT SYSTEM

Page 38

5. Supplier Process The Order, Owner Update Raw Material Stock

Supplier

Owner

UpdateRaw-material(Qty) Process Order

: Raw_material

BUSINESS MANAGEMENT SYSTEM

Page 39

Collaboration Diagram
1.check Cust(Cust_detail)

Customer
2. Status : Cust_detail Owner [If Customer is new] 1. Create_Cust(Cust_detail)

Customer

Owner 1. Check Product(Prod_name)

Product
2. Status : Product detail Owner [If Product Available] 1. Create Order (Order info)

Cust_order
4. Info : Order Info Owner

2.Create detail

Product

3. Update Product (Qty)

Cust_Order_de tail
Page 40

BUSINESS MANAGEMENT SYSTEM

1. Create New Employee(Emp_detail)

Employee

Owner

1. Update Emp detail(Emp_id,sal)

Employee

Owner

1. Update Cust Order(Order_id,Qty)

Cust_order
2. Update order

Owner

1. Create New Supplier(Sup_detail)

Supplier

Owner

BUSINESS MANAGEMENT SYSTEM

Page 41

1. Place Order (Order info)

Supplier
4. Info : Order Confirmation Owner

2.Update_ pur_order(OrdrDt,Amt)

Pur_Order_Deta il

3. Update Pur_Order_detail (Qty,Amt)

Pur_Ord

er

1. Update Raw-Material(Qty)

Raw-Material

Owner

BUSINESS MANAGEMENT SYSTEM

Page 42

Use Case Diagrams

Customer Order Sub System

Look Up Into Customer

Create New Customer

Customer

Create new Order

Generate Bill

Owner
Look up Into Product

Create New Employee

BUSINESS MANAGEMENT SYSTEM

Update Order Status

Page 43

Employee

Supplier Order Entry Sub System

Update RawMaterial Detail

Create New Supplier

Supplier

Look up into Raw-Material

Owner

Place New Order

Stock Management

Process New Order

Update RawMaterial BUSINESS MANAGEMENT SYSTEM Page 44

Supplier

Owner

OBJECT DIAGRAM
Customer 1
Cust_id=cust 1 Cust_name=a jay Cust_add=sio n Cust_phno=6 768

1..*

1 1..*

Cust ord detail Cust_order_id=o

1
rd1 Prod_name=mh b

Product

Product detail
Emp_id=emp1

Emp_id=emp1

1..* Prod_name=m 1..*

hb Prod_type=plas 1t Dateofman=2-

1 ..* Prod_name=mh
b Qty_on_hand=1

1 1 1

Employee
Emp_id=emp 1

Cust_order
Cust_order_id=o dr1 0..* Cust_id=cust1 Cust_name=aja y OrderDate=110-11

Bill
Bill_id=4 Cust_id=cust1 Cust_name=aja y Cust_add=sion CST_no=12as3 TIN_no=3a45 Prod_type=plah ang Date=11-11-11 Qty=3000

Purchase Order Detail

Sup_name=viju Sup_id=supp1 Material_name= clip Qty=5000 Amt=3000

Emp_name=x yz Emp_add=ab c Emp_phno=5

Supplier
Sup_name=viju Sup_id=supp1 Sup_add=thane Sup_phno=2405 6

1..* 1

Purchase Order
1 Sup_name=viju
Sup_id=supp1 OrderDate=103-11 DelDate =31-3Page 45 11 Qty=5000

1..*

0..*

BUSINESS MANAGEMENT SYSTEM

Rawmaterial

1..*

Material_name= clip Material_type=cl ip Qty=1000

Rawmaterial
1
Material_name= 1..* Clip Material_type=cl ip

COMPONENT DIAGRAM
Admin Login Validate User Login Validate

User Add() Update() Delete Main Menu Form

Make Bill

Custome r Add() Update() Delete

Suppier Employe e Add() Update() Delete Add() Update() Delete

Cust_ord er

Pur_orde r

Cust_ord er_detail BUSINESS MANAGEMENT SYSTEM

Pur_orde r_detail Page 46

ACTIVITY DIAGRAM
Login Form

Admin Login Form Invalid valid Main Form

User Login Form Invalid valid Make Bill

Not exist

Custome r

Supplier
Not exist Not exist

Employe e

Reports

exist

exit

Genearte Reports exist

Check Informati Not available on

Not Available Available

Place Order

Check Informati on

Order Processed

Paid Salary

Place Order Update Stock

Update Stock

Payment

Manage BUSINESS MANAGEMENT SYSTEM Bill

Page 47

STATE DIAGRAM

Login Entry / UserName & Password Do / Validation Exist / Login Details

Customer Entry Entry/ if cust exist Do/ Create cust entry

Customer Order Entry / if Prod. Avail. Do / Create

Cust. Order Details Check/ if cust ord exist view / Order

Supplier Entry Entry/ if Supp exist Do/ Create Sup

Purchase Order Entry/if raw not Avai. Do / Place Order

Purc. Order Details Check/if Pur ord exist View /Pur Order

Employee Entry Entry/ if Emp not exist Do/ Create Emp

BUSINESS MANAGEMENT SYSTEM

Page 48

TESTING
Testing Details: The main objectives for testing are that 1. Testing is a process of executing a program with the intent of finding an error. 2. A good test case is one that has a high portability of finding an as yet discovered error. 3. A successful test is one that uncovers an as yet undiscovered error. Here we discussed the various testing methods that are applicable for our project so that we are able to uncover all the errors before the product is released and reduce the relative cost.

Test Plan: Test plan as soon as the various system requirements were defined comprehended. The test plan was formulated to exercise the internal logic of software as well as the input and output domains of the programs to uncover errors in the program function, behaviour and performance .Testing was planned to begin in the small and progress to large, and was carried out through out the software development process. This implies that the early testing was planned to focus on single component. The various components would be merged into groups, and the entire group would be tested for information domain, function, behaviour and performance, constraints and validation criteria. Testing was done on the basis of the following metrics: 1. Operability: Whether operational or not. 2. Observe ability: Whether all the required outputs are displayed or not. 3. Decomposability: The system was divided into small modules to test them with ease. Finally, it was decided to execute a series of high order tests after the full program is operational. This software uses plan for testing. The testing strategy uses unit testing that is to test the code. In these testing individual components such as textboxes, command buttons, options buttons etc. are tested ensuring that they function. This is the internal testing. It performs the maximum error detection. Second testing strategy is to test all components by integrating BUSINESS MANAGEMENT SYSTEM Page 49

them into a package. This will ensure that the software is working properly when the user interacts with software. Third step of testing strategy is validation order testing. It will check whether the testing results meet the user requirements. The software product which has been designed follows the validation testing and fulfills the user requirements. Last step of testing is high order testing. Kinds of Testing:

White Box Testing:

It deals with internal data structure. In this project following white box testing is applied. 1. Graph based testing: All independent paths are first found out and then testing is applied on each path 2. Control structure testing: We have used this testing. This includes the following test Condition testing: All conditions like if, else, while, for are tested. Loop testing: All loops are tested.

It helped us with the following categories: 1. Exercise all the paths i.e. we saw the desired page was displayed at the click of the button. 2. Execute all the logical decisions on the true as well as false side i.e. result is set not null display of records else notification of failure to the user. Black Box Testing: Black box testing was used since it focuses on functional requirements of the software stated as per the customer. It is also called behavioral testing. The black box testing attempts to find errors in the following categories. 1. Incorrect or Missing functions. 2. Interface errors 3. Behavior or performance errors 4. Initializations and terminations.

Different combinations of inputs were given to the system and according to that the output was generated i.e. if the invalid input is entered in the system will result in error message. It basically depends on the user requirements. In black box testing following test are applied. 1. Equivalence Partitioning: Here input domain is divided into equivalence classes and test which are applied on each domain. The actual results are compared with the BUSINESS MANAGEMENT SYSTEM Page 50

expected results.

Testing procedure: Test Cases Authorized User Form Expected Result If incorrect password and login name is entered, user is prompted with a message Authentication Fai led Display Bill window Form If incorrect password and Admin name is entered, Admin is prompted with a message Authentication Fai led Display Main window Form Admin has to fill all details. Only numeric value has to be filled in the Basic salary field Actual Result Error message is displayed that Authentication Fai led Remarks True result is achieved

Valid password\userna me entered Admin User Form

Bill window is displayed Error message is displayed that Authentication Fai led

True result is achieved True result is achieved

Valid password\Admin user entered Selection of Employee Module

Main window is displayed Any other data type other than Numeric is not accepted in the Salary field

True result is achieved All the information gets save in the database

BUSINESS MANAGEMENT SYSTEM

Page 51

Selection of Supplier Module

All the required information has to be filled in the given field All the production information has to be filled in the given field All the production information has to be filled in the given field All the required information has to be filled in the given field Select Proper Start Date and End Date

If any field is left empty then that field is displayed again If any field is left empty then that field is displayed again If any field is left empty then that field is displayed again If any field is left empty then that field is displayed again If Start Date and End Date is not matched then doesnt dispaly any Report The Admin will get a way to exit from Database

All the information gets save in the database All the information gets save in the database All the information gets save in the database All the information gets save in the database Crystal Report is Dispalyed and Dispaly selected Report Date wise Exit from the Database

Selection of Inhouse Production Module Selection of Clients / Orders Module Selection of Invoice Module

Selection of Reports Module

Selection of Exit module

User will get EXIT from the Database

BUSINESS MANAGEMENT SYSTEM

Page 52

SCREEN LAYOUT OF LOG-IN FORM :

BUSINESS MANAGEMENT SYSTEM

Page 53

CODE FOR LOG-IN FORM :

Imports System.Data.SqlClient Public Class login Dim cs As New SqlConnection() Dim cmd As SqlCommand Dim dr As SqlDataReader Sub New() Try ' This call is required by the Windows Form Designer. InitializeComponent() cs = New SqlConnection("Data Source=localhost;Initial Catalog=sumanpackaging;Integrated Security=True") cmd = New SqlCommand() cmd.Connection = cs ' Add any initialization after the InitializeComponent() call. Catch ex As Exception MsgBox(ex.Message) End Try End Sub Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick If ProgressBar1.Value <> ProgressBar1.Maximum Then If ProgressBar1.Value = 0 Then Label15.Text = "Preparing database connections....." ElseIf ProgressBar1.Value = 20 Then Label15.Text = "Searching for databases....." ElseIf ProgressBar1.Value = 40 Then Label15.Text = "Loading records....." ElseIf ProgressBar1.Value = 60 Then Label15.Text = "Loading settings....." ElseIf ProgressBar1.Value = 80 Then Label15.Text = "Ready....." End If ProgressBar1.Value = ProgressBar1.Value + 1 Else Timer1.Enabled = False billformat.Show() billformat.LinkLabel2.Visible = False

BUSINESS MANAGEMENT SYSTEM

Page 54

billformat.DisableCloseButton(billformat.Handle) InvoiceBill.ExitToolStripMenuItem.Visible = False billformat.Button2.Enabled = False Me.Hide() End If End Sub Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick If ProgressBar1.Value <> ProgressBar1.Maximum Then If ProgressBar1.Value = 0 Then Label15.Text = "Preparing database connections....." ElseIf ProgressBar1.Value = 20 Then Label15.Text = "Searching for databases....." ElseIf ProgressBar1.Value = 40 Then Label15.Text = "Loading records....." ElseIf ProgressBar1.Value = 60 Then Label15.Text = "Loading settings....." ElseIf ProgressBar1.Value = 80 Then Label15.Text = "Ready....." End If ProgressBar1.Value = ProgressBar1.Value + 1 Else Timer2.Enabled = False index.Show() Me.Hide() End If End Sub Private Sub bttnadduser_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bttnadduser.Click admipass.Show() Me.Hide() admipass.txtpass.Text = "" admipass.txtpass.Focus() txtuser.Text = "" txtpass.Text = "" End Sub Private Sub bttnuser_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bttnuser.Click Try If txtuser.Text = "" And txtpass.Text = "" Then MsgBox("Enter User Name & Password") txtuser.Focus() Else Dim sql = "SELECT username,password FROM userid WHERE username = '" & txtuser.Text & "' AND password = '" & txtpass.Text & "'" cs = New SqlConnection("Data Source=gsk;Initial Catalog=sumanpackaging;Integrated Security=True") cs.Open() cmd = New SqlCommand(sql, cs) Dim dr As SqlDataReader = cmd.ExecuteReader Try If dr.Read = False Then MsgBox("Authentication Failed.... ", MsgBoxStyle.Critical) txtuser.Clear() txtpass.Clear() txtuser.Focus() Else

BUSINESS MANAGEMENT SYSTEM

Page 55

MsgBox("Login Successful....") Timer1.Enabled = True End If Catch ex As Exception MsgBox(ex.Message) End Try If cs.State <> ConnectionState.Closed Then cs.Close() End If dr.Close() cmd.Dispose() cs.Close() End If Catch ex As Exception MsgBox(ex.Message) End Try End Sub Private Sub bttnadmin_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bttnadmin.Click Try If txtuser.Text = "" And txtpass.Text = "" Then MsgBox("Enter Admin Name & Password") txtuser.Focus() Else Dim sql = "SELECT username,password FROM admin WHERE username = '" & txtuser.Text & "' AND password = '" & txtpass.Text & "'" cs = New SqlConnection("Data Source=gsk;Initial Catalog=sumanpackaging;Integrated Security=True") cs.Open() cmd = New SqlCommand(sql, cs) Dim dr As SqlDataReader = cmd.ExecuteReader Try If dr.Read = False Then MsgBox("Authentication Failed.... MsgBoxStyle.Critical) txtuser.Clear() txtpass.Clear() txtuser.Focus() Else MsgBox("Login Successful....") Timer2.Enabled = True End If Catch ex As Exception MsgBox(ex.Message) End Try If cs.State <> ConnectionState.Closed Then cs.Close() End If dr.Close() cmd.Dispose() cs.Close() End If Catch ex As Exception MsgBox(ex.Message) End Try End Sub Private Sub bttnexit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bttnexit.Click ",

BUSINESS MANAGEMENT SYSTEM

Page 56

If MsgBox("Do You Want To Exit??", MsgBoxStyle.YesNo, "Exit?") = vbYes Then Application.Exit() End If txtuser.Clear() txtpass.Clear() txtuser.Focus() End Sub Private Sub login_Disposed(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Disposed Application.Exit() End Sub End Class

SCREEN LAYOUT OF MAIN MENU FORM :

BUSINESS MANAGEMENT SYSTEM

Page 57

CODE FOR MAIN MENU FORM

Public Class index Private Sub LinkLabel20_LinkClicked(ByVal sender As System.Object, ByVal e As System.Windows.Forms.LinkLabelLinkClickedEventArgs) Handles LinkLabel20.LinkClicked clientsreport.Show() End Sub Private Sub LinkLabel1_LinkClicked(ByVal sender As System.Object, ByVal e As System.Windows.Forms.LinkLabelLinkClickedEventArgs) Handles LinkLabel1.LinkClicked addemp.Show() Me.Hide() End Sub Private Sub LinkLabel4_LinkClicked_1(ByVal sender As System.Object, ByVal e As System.Windows.Forms.LinkLabelLinkClickedEventArgs) Handles LinkLabel4.LinkClicked Me.Hide() empsalRpt.Show() End Sub Private Sub LinkLabel15_LinkClicked(ByVal sender As System.Object, ByVal e As System.Windows.Forms.LinkLabelLinkClickedEventArgs) Handles LinkLabel15.LinkClicked Me.Hide() AllBillRpt.Show() bttn6_Click(sender, e) End Sub Private Sub LinkLabel16_LinkClicked_1(ByVal sender As System.Object, ByVal e As System.Windows.Forms.LinkLabelLinkClickedEventArgs) Handles LinkLabel16.LinkClicked Remove_Invoice.Show() Me.Hide() End Sub Private Sub index_Disposed(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Disposed Application.Exit() End Sub Private Sub LinkLabel18_LinkClicked(ByVal sender As System.Object, ByVal e As System.Windows.Forms.LinkLabelLinkClickedEventArgs) Handles LinkLabel18.LinkClicked Contact_Directory.Show() Me.Hide() End Sub Private Sub LinkLabel19_LinkClicked(ByVal sender As System.Object, ByVal e As System.Windows.Forms.LinkLabelLinkClickedEventArgs) Handles LinkLabel19.LinkClicked Me.Hide() Contact_DirectoryRpt.Show() End Sub Private Sub LinkLabel17_LinkClicked(ByVal sender As System.Object, ByVal e As System.Windows.Forms.LinkLabelLinkClickedEventArgs) Handles LinkLabel17.LinkClicked

BUSINESS MANAGEMENT SYSTEM

Page 58

add_billdata.Show() Me.Hide() End Sub Private Sub LinkLabel11_LinkClicked_2(ByVal sender As System.Object, ByVal e As System.Windows.Forms.LinkLabelLinkClickedEventArgs) Handles LinkLabel11.LinkClicked Vat_calc.Show() End Sub Private Sub LinkLabel24_LinkClicked(ByVal sender As System.Object, ByVal e As System.Windows.Forms.LinkLabelLinkClickedEventArgs) Handles LinkLabel24.LinkClicked clientsreport.Show() End Sub Private Sub bttn1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bttn1.Click, Label1.MouseHover Panel10.Visible = False Panel10.Width = 0 bttn7.Text = "+" Panel9.Visible = False Panel9.Width = 23 bttn6.Text = "+" Panel8.Visible = False Panel8.Width = 112 bttn5.Text = "+" Panel7.Visible = False Panel7.Width = 143 bttn4.Text = "+" Label2.ForeColor = Color.Navy Label3.ForeColor = Color.Navy Label4.ForeColor = Color.Navy Label5.ForeColor = Color.Navy If bttn1.Text = "+" Then Panel4.Width = 212 Panel4.Visible = True bttn1.Text = "-" Label1.ForeColor = Color.MediumOrchid Else bttn1.Text = "-" Panel4.Visible = False Panel4.Width = 10 bttn1.Text = "+" Label1.ForeColor = Color.Navy End If End Sub Private Sub bttn2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bttn2.Click, Label2.MouseHover Panel4.Visible = False Panel4.Width = 10 bttn1.Text = "+" Panel6.Visible = False Panel6.Width = 40 bttn3.Text = "+" Panel7.Visible = False Panel7.Width = 143 bttn4.Text = "+"

BUSINESS MANAGEMENT SYSTEM

Page 59

Panel8.Visible = False Panel8.Width = 112 bttn5.Text = "+" Label1.ForeColor = Color.Navy Label3.ForeColor = Color.Navy Label4.ForeColor = Color.Navy Label5.ForeColor = Color.Navy If bttn2.Text = "+" Then Panel5.Width = 210 Panel5.Visible = True bttn2.Text = "-" Label2.ForeColor = Color.MediumOrchid Else bttn2.Text = "-" Panel5.Visible = False Panel5.Width = 30 bttn2.Text = "+" Label2.ForeColor = Color.Navy End If End Sub Private Sub bttn3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bttn3.Click, Label3.MouseHover Panel8.Visible = False Panel8.Width = 112 bttn5.Text = "+" Panel5.Visible = False Panel5.Width = 30 bttn2.Text = "+" Panel4.Visible = False Panel4.Width = 10 bttn1.Text = "+" Panel7.Visible = False Panel7.Width = 40 bttn4.Text = "+" Panel9.Visible = False Panel9.Width = 23 bttn6.Text = "+" Panel10.Visible = False Panel10.Width = 0 bttn7.Text = "+" Label1.ForeColor Label2.ForeColor Label4.ForeColor Label5.ForeColor = = = = Color.Navy Color.Navy Color.Navy Color.Navy

If bttn3.Text = "+" Then Panel6.Width = 231 Panel6.Visible = True bttn3.Text = "-" Label3.ForeColor = Color.MediumOrchid Else bttn3.Text = "-" Panel6.Visible = False

BUSINESS MANAGEMENT SYSTEM

Page 60

Panel6.Width = 40 bttn3.Text = "+" Label3.ForeColor = Color.Navy End If End Sub Private Sub bttn4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bttn4.Click, Label4.MouseHover Panel5.Visible = False Panel5.Width = 30 bttn2.Text = "+" Panel4.Visible = False Panel4.Width = 10 bttn1.Text = "+" Panel6.Visible = False Panel6.Width = 40 bttn3.Text = "+" Panel8.Visible = False Panel8.Width = 112 bttn5.Text = "+" If bttn4.Text = "+" Then Panel7.Width = 177 Panel7.Visible = True bttn4.Text = "-" Label4.ForeColor = Color.MediumOrchid Else bttn4.Text = "-" Panel7.Visible = False Panel7.Width = 44 bttn4.Text = "+" Label4.ForeColor = Color.Navy End If End Sub Private Sub bttn5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bttn5.Click, Label5.MouseHover Panel5.Visible = False Panel5.Width = 30 bttn2.Text = "+" Panel4.Visible = False Panel4.Width = 10 bttn1.Text = "+" Panel6.Visible = False Panel6.Width = 40 bttn3.Text = "+" Panel7.Visible = False Panel7.Width = 143 bttn4.Text = "+" Label1.ForeColor = Color.Navy Label2.ForeColor = Color.Navy Label3.ForeColor = Color.Navy If bttn5.Text = "+" Then Panel8.Width = 167 Panel8.Visible = True bttn5.Text = "-" Label5.ForeColor = Color.MediumOrchid Else bttn5.Text = "-"

BUSINESS MANAGEMENT SYSTEM

Page 61

Panel8.Visible = False Panel8.Width = 99 bttn5.Text = "+" Label5.ForeColor = Color.Navy End If End Sub Private Sub bttn6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bttn6.Click, Label6.MouseHover Panel5.Visible = False Panel5.Width = 30 bttn2.Text = "+" Panel4.Visible = False Panel4.Width = 10 bttn1.Text = "+" Panel8.Visible = False Panel8.Width = 112 bttn5.Text = "+" Panel10.Visible = False Panel10.Width = 0 bttn7.Text = "+" Label1.ForeColor = Color.Navy Label2.ForeColor = Color.Navy Label3.ForeColor = Color.Navy If bttn6.Text = "+" Then Panel9.Width = 169 Panel9.Visible = True bttn6.Text = "-" Label6.ForeColor = Color.MediumOrchid Else bttn6.Text = "-" Panel9.Visible = False Panel9.Width = 23 bttn6.Text = "+" Label6.ForeColor = Color.Navy End If End Sub Private Sub bttn7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bttn7.Click, Label7.MouseHover Panel5.Visible = False Panel5.Width = 30 bttn2.Text = "+" Panel8.Visible = False Panel8.Width = 112 bttn5.Text = "+" Panel9.Visible = False Panel9.Width = 23 bttn6.Text = "+" Label1.ForeColor = Color.Navy Label2.ForeColor = Color.Navy If bttn7.Text = "+" Then Panel10.Width = 131 Panel10.Visible = True bttn7.Text = "-" Label7.ForeColor = Color.MediumOrchid Else bttn7.Text = "-" Panel10.Visible = False

BUSINESS MANAGEMENT SYSTEM

Page 62

Panel10.Width = 0 bttn7.Text = "+" Label7.ForeColor = Color.Navy End If End Sub Private Sub LinkLabel13_MouseHover(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles LinkLabel13.MouseHover LinkLabel13.BackColor = Color.MediumOrchid End Sub Private Sub LinkLabel37_MouseHover(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles LinkLabel37.MouseHover LinkLabel37.BackColor = Color.MediumOrchid End Sub Private Sub LinkLabel37_MouseLeave(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles LinkLabel37.MouseLeave LinkLabel37.BackColor = Color.CornflowerBlue End Sub Private Sub LinkLabel29_LinkClicked(ByVal sender As System.Object, ByVal e As System.Windows.Forms.LinkLabelLinkClickedEventArgs) Handles LinkLabel29.LinkClicked Me.Hide() supplierdetail.Show() supplierdetail.TabControl1.SelectTab(2) End Sub Private Sub LinkLabel28_LinkClicked(ByVal sender As System.Object, ByVal e As System.Windows.Forms.LinkLabelLinkClickedEventArgs) Handles LinkLabel28.LinkClicked Me.Hide() supplierdetail.Show() End Sub Private Sub LinkLabel31_LinkClicked(ByVal sender As System.Object, ByVal e As System.Windows.Forms.LinkLabelLinkClickedEventArgs) Handles LinkLabel31.LinkClicked Me.Hide() supplierdetail.Show() supplierdetail.TabControl1.SelectTab(4) End Sub Private Sub LinkLabel33_LinkClicked(ByVal sender As System.Object, ByVal e As System.Windows.Forms.LinkLabelLinkClickedEventArgs) Handles LinkLabel33.LinkClicked Me.Hide() rawmaterial.Show() rawmaterial.txtproname.SelectTab(3) bttn2_Click(sender, e) End Sub Private Sub LinkLabel32_LinkClicked(ByVal sender As System.Object, ByVal e As System.Windows.Forms.LinkLabelLinkClickedEventArgs) Handles LinkLabel32.LinkClicked Me.Hide() rawmaterial.Show() rawmaterial.txtproname.SelectTab(4) End Sub

BUSINESS MANAGEMENT SYSTEM

Page 63

Private Sub LinkLabel37_LinkClicked(ByVal sender As System.Object, ByVal e As System.Windows.Forms.LinkLabelLinkClickedEventArgs) Handles LinkLabel37.LinkClicked Me.Hide() rawmaterial.Show() End Sub Private Sub LinkLabel44_MouseHover(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles LinkLabel44.MouseHover LinkLabel44.BackColor = Color.MediumOrchid End Sub Private Sub LinkLabel44_MouseLeave(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles LinkLabel44.MouseLeave LinkLabel44.BackColor = Color.CornflowerBlue End Sub Private Sub LinkLabel43_MouseHover(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles LinkLabel43.MouseHover LinkLabel43.BackColor = Color.MediumOrchid End Sub Private Sub LinkLabel43_MouseLeave(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles LinkLabel43.MouseLeave LinkLabel43.BackColor = Color.CornflowerBlue End Sub Private Sub LinkLabel45_LinkClicked(ByVal sender As System.Object, ByVal e As System.Windows.Forms.LinkLabelLinkClickedEventArgs) Handles LinkLabel45.LinkClicked products_Report.Show() End Sub Private Sub LinkLabel44_LinkClicked(ByVal sender As System.Object, ByVal e As System.Windows.Forms.LinkLabelLinkClickedEventArgs) Handles LinkLabel44.LinkClicked products_Report.Show() End Sub Private Sub LinkLabel43_LinkClicked(ByVal sender As System.Object, ByVal e As System.Windows.Forms.LinkLabelLinkClickedEventArgs) Handles LinkLabel43.LinkClicked products_Report.Show() End Sub Private Sub LinkLabel20_MouseHover(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles LinkLabel20.MouseHover LinkLabel20.BackColor = Color.MediumOrchid End Sub Private Sub LinkLabel21_MouseHover(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles LinkLabel21.MouseHover LinkLabel21.BackColor = Color.MediumOrchid End Sub Private Sub LinkLabel19_MouseLeave(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles LinkLabel19.MouseLeave LinkLabel19.BackColor = Color.CornflowerBlue End Sub

BUSINESS MANAGEMENT SYSTEM

Page 64

Private Sub LinkLabel11_MouseHover(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles LinkLabel11.MouseHover LinkLabel11.BackColor = Color.MediumOrchid End Sub Private Sub LinkLabel52_LinkClicked(ByVal sender As System.Object, ByVal e As System.Windows.Forms.LinkLabelLinkClickedEventArgs) Handles LinkLabel52.LinkClicked Shell("notepad") End Sub Private Sub LinkLabel53_LinkClicked(ByVal sender As System.Object, ByVal e As System.Windows.Forms.LinkLabelLinkClickedEventArgs) Handles LinkLabel53.LinkClicked Email_Sender.Show() End Sub Private Sub LinkLabel53_MouseHover(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles LinkLabel53.MouseHover LinkLabel53.BackColor = Color.MediumOrchid End Sub Private Sub LinkLabel53_MouseLeave(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles LinkLabel53.MouseLeave LinkLabel53.BackColor = Color.CornflowerBlue End Sub Private Sub LinkLabel52_MouseHover(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles LinkLabel52.MouseHover LinkLabel52.BackColor = Color.MediumOrchid End Sub

BUSINESS MANAGEMENT SYSTEM

Page 65

SCREEN LAYOUT OF ADD EMPLOYEE FORM :

BUSINESS MANAGEMENT SYSTEM

Page 66

CODE FOR ADD EMPLOYEE FORM :

Imports System.Data.SqlClient Public Class addemp Dim cs As New SqlConnection() Dim cmd As SqlCommand Dim dr As SqlDataReader Dim b As Boolean Public Sub addemp() Try Dim qs As String = "insert into emp values(@Emp_Id,@Employee_Name,@Job_Title,@Address,@Contact_No,@Salary)" Dim cmd As New SqlCommand(qs, cs) cmd = New SqlCommand(qs, cs) cmd.Parameters.Add(New SqlParameter("@Emp_Id", SqlDbType.VarChar, 50)).Value = txtempid.Text cmd.Parameters.Add(New SqlParameter("@Employee_Name", SqlDbType.VarChar, 50)).Value = Txtname.Text cmd.Parameters.Add(New SqlParameter("@Job_Title", SqlDbType.VarChar, 50)).Value = txtjob.Text cmd.Parameters.Add(New SqlParameter("@Address", SqlDbType.VarChar, 50)).Value = txtadd.Text cmd.Parameters.Add(New SqlParameter("@Contact_No", SqlDbType.NVarChar, 20)).Value = txtcontact.Text cmd.Parameters.Add(New SqlParameter("@Salary", SqlDbType.VarChar, 50)).Value = txtsalary.Text cs.Open() cmd.ExecuteNonQuery() MsgBox("New Employee are added successfully") cs.Close() cmd.Parameters.Clear() Catch ex As Exception MsgBox(ex.Message) End Try End Sub Private Sub bttnsave_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bttnsave.Click If Txtname.Text = "" Then MsgBox("Please Enter Employee Name") ElseIf txtjob.Text = "" Then MsgBox("Please Enter Job Tile ") ElseIf txtsalary.Text = "" Then MsgBox("Please Enter Basic Salary") Else addemp() Emp_id() conatct_Dire() cs.Open() Dim ds As New DataSet("tab") Dim da As New SqlDataAdapter("select * From emp where Employee_Name=@Employee_Name", cs) da.SelectCommand.Parameters.Add(New SqlParameter("@Employee_Name", SqlDbType.VarChar, 200)).Value = Txtname.Text da.Fill(ds, "tab") gridemp.DataSource = ds gridemp.DataMember = "tab"

BUSINESS MANAGEMENT SYSTEM

Page 67

cs.Close() loadupemp() emp_clear() Txtname.Focus() End If End Sub Sub Emp_id() Dim i As Integer cs.Open() cmd.CommandText = "select Emp_Id from emp where Emp_Id like 'Emp%'" dr = cmd.ExecuteReader() If dr.HasRows = False Then txtempid.Text = "Emp1" Else While dr.Read() i = i + 1 End While i = i + 1 txtempid.Text = "Emp" & i End If dr.Close() cs.Close() End Sub Sub conatct_Dire() Dim qs As String = "insert into Contact_Directory (Name,Address,Contact_No) values(@Name,@Address,@Contact_No)" Dim cmd As New SqlCommand(qs, cs) cmd = New SqlCommand(qs, cs) cmd.Parameters.Add(New SqlParameter("@Name", SqlDbType.VarChar, 200)).Value = Txtname.Text cmd.Parameters.Add(New SqlParameter("@Address", SqlDbType.VarChar, 200)).Value = txtadd.Text cmd.Parameters.Add(New SqlParameter("@Contact_No", SqlDbType.VarChar, 200)).Value = txtcontact.Text cs.Open() cmd.ExecuteNonQuery() cs.Close() End Sub Private Sub Form5_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load 'Emp_Id Dim i As Integer cs.Open() cmd.CommandText = "select Emp_Id from emp where Emp_Id like 'Emp%'" dr = cmd.ExecuteReader() If dr.HasRows = False Then txtempid.Text = "Emp1" Else While dr.Read() i = i + 1 End While i = i + 1 txtempid.Text = "Emp" & i End If dr.Close() cs.Close()

BUSINESS MANAGEMENT SYSTEM

Page 68

Try

Txtname.Focus() 'this code for comboupemp Dim dr As SqlDataReader cs.Open() Dim qs As String = "select Emp_Id from emp order by Emp_Id" Dim cmd As New SqlCommand(qs, cs) dr = cmd.ExecuteReader() While dr.Read() Comboemp.Items.Add(dr("Emp_Id").ToString()) End While dr.Close() cs.Close() Catch ex As Exception MsgBox(ex.Message) End Try Tip1.SetToolTip(Txtname, "Enter Employee Name Here") Tip1.SetToolTip(Comboemp, "Select Employee Id Here") Tip1.SetToolTip(txtjob, "Enter Job Title Here") Tip1.SetToolTip(txtadd, "Enter Short Address Here") End Sub Private Sub Comboemp_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Comboemp.SelectedIndexChanged cs.Open() Dim qs As String = "Select * from emp where Emp_Id=@Emp_Id" Dim cmd As New SqlCommand(qs, cs) cmd.Parameters.Add(New SqlParameter("@Emp_Id", SqlDbType.NChar, 100)).Value = Comboemp.SelectedItem.ToString dr = cmd.ExecuteReader() dr.Read() If dr.HasRows Then txtempname.Text = dr("Employee_Name").ToString() txtupjob.Text = dr("Job_title").ToString() txtupadd.Text = dr("Address").ToString() txtupcontact.Text = dr("Contact_No").ToString txtupsalary.Text = dr("Salary").ToString() End If dr.Close() cs.Close() cmd.Parameters.Clear() bttndel.Enabled = True bttnupdate.Enabled = True End Sub Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click Dim da As New SqlDataAdapter("select Emp_Id,Employee_Name,Job_Title,Address,Contact_No,Salary From emp", cs) Dim ds As New DataSet Dim cmb As New SqlCommandBuilder(da) gridemp.Refresh() da.Fill(ds, "emp") gridemp.DataSource = ds.Tables("emp") End Sub Sub emp_clear() Txtname.Clear() txtempname.Clear()

BUSINESS MANAGEMENT SYSTEM

Page 69

txtjob.Clear() txtadd.Clear() txtcontact.Clear() End Sub Private Sub bttnupdate_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bttnupdate.Click empupdate() upemp_clear() cs.Open() Dim ds As New DataSet("tab") Dim da As New SqlDataAdapter("select * from emp where Emp_Id=@Emp_Id", cs) da.SelectCommand.Parameters.Add(New SqlParameter("@Emp_Id", SqlDbType.VarChar, 100)).Value = Comboemp.SelectedItem.ToString() da.Fill(ds, "tab") gridupemp.DataSource = ds gridupemp.DataMember = "tab" cs.Close() da.SelectCommand.Parameters.Clear() End Sub Sub empupdate() Dim ups As String ups = "update emp set Employee_Name=@Employee_Name,Job_Title=@Job_Title,Address=@Address,Contact_ No=@Contact_No,Salary=@Salary where Emp_Id=@Emp_Id" cmd = New SqlCommand(ups, cs) cmd.Parameters.Add(New SqlParameter("@Emp_Id", SqlDbType.NVarChar, 200)).Value = Comboemp.SelectedItem.ToString cmd.Parameters.Add(New SqlParameter("@Employee_Name", SqlDbType.NVarChar, 200)).Value = txtempname.Text cmd.Parameters.Add(New SqlParameter("@Job_Title", SqlDbType.NVarChar, 200)).Value = txtupjob.Text cmd.Parameters.Add(New SqlParameter("@Address", SqlDbType.NVarChar, 200)).Value = txtupadd.Text cmd.Parameters.Add(New SqlParameter("@Contact_No", SqlDbType.BigInt, 10)).Value = txtupcontact.Text cmd.Parameters.Add(New SqlParameter("@Salary ", SqlDbType.Decimal, 9, 2)).Value = txtupsalary.Text cs.Open() cmd.ExecuteNonQuery() MsgBox("Detail is updated successfully") cs.Close() cmd.Parameters.Clear() End Sub Sub upemp_clear() Comboemp.ResetText() Comboemp.Text = "SELECT" txtupjob.Clear() End Sub Sub emp_del() Dim ups As String ups = "delete from emp where Emp_Id = @Emp_Id" cmd = New SqlCommand(ups, cs) cmd.Parameters.Add(New SqlParameter("@Emp_Id", SqlDbType.NVarChar, 200)).Value = Comboemp.SelectedItem.ToString cs.Open()

BUSINESS MANAGEMENT SYSTEM

Page 70

cmd.ExecuteNonQuery() dr = cmd.ExecuteReader() dr.Close() MsgBox("Employee Remove successfully") cs.Close() cmd.Parameters.Clear() End Sub Private Sub bttndel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bttndel.Click emp_del() upemp_clear() loadupemp() Dim da As New SqlDataAdapter("select Emp_Id,Employee_Name,Job_Title,Address,Contact_No,Salary From emp", cs) Dim ds As New DataSet Dim cmb As New SqlCommandBuilder(da) gridupemp.Refresh() da.Fill(ds, "emp") gridupemp.DataSource = ds.Tables("emp") End Sub Private Sub TabControl1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TabControl1.SelectedIndexChanged gridupemp.Columns.Clear() gridemp.Columns.Clear() upemp_clear() emp_clear() End Sub Private Sub LinkLabel2_LinkClicked(ByVal sender As System.Object, ByVal e As System.Windows.Forms.LinkLabelLinkClickedEventArgs) Handles LinkLabel2.LinkClicked index.Show() Me.Close() End Sub Private Sub LinkLabel1_Disposed(ByVal sender As Object, ByVal e As System.EventArgs) Handles LinkLabel1.Disposed index.Show() Me.Close() End Sub Private Sub LinkLabel1_LinkClicked(ByVal sender As System.Object, ByVal e As System.Windows.Forms.LinkLabelLinkClickedEventArgs) Handles LinkLabel1.LinkClicked Application.Exit() End Sub End Class

BUSINESS MANAGEMENT SYSTEM

Page 71

SCREEN LAYOUT OF EMPLOYEE PAYMENT FORM :

BUSINESS MANAGEMENT SYSTEM

Page 72

CODE FOR ADD EMPLOYEE PAYMENT FORM :

Public Class emppay Dim cs As New SqlConnection() Dim cmd As SqlCommand Dim dr As SqlDataReader Dim b As Boolean Private Sub emppay_Disposed(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Disposed index.Show() Me.Close() End Sub Private Sub Form6_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load dateemppay.ResetText() 'this code for comboupemp cs.Open() Dim qs As String = "select Distinct(Emp_Id) from emp order by Emp_Id" Dim cmd As New SqlCommand(qs, cs) dr = cmd.ExecuteReader() While dr.Read() comboemppay.Items.Add(dr("Emp_Id").ToString()) End While dr.Close() cs.Close() 'Comboempreport cs.Open() Dim qss As String = "select distinct(Emp_Id) from emp_sal order by Dim cmdd As New SqlCommand(qss, cs) dr = cmdd.ExecuteReader() While dr.Read() Comboempreport.Items.Add(dr("Emp_Id").ToString()) End While dr.Close() cs.Close() 'Comboempuppay cs.Open() Dim sq As String = "select Distinct(Emp_Id) from emp_sal order by Dim cm As New SqlCommand(sq, cs) dr = cm.ExecuteReader() While dr.Read() Comboempuppay.Items.Add(dr("Emp_Id").ToString()) End While dr.Close() cs.Close() Tip1.SetToolTip(comboemppay, "Select Employee Id") Tip1.SetToolTip(txtempname, "Name of Employee") Tip1.SetToolTip(txtjob, "Job Title Of Employee") Tip1.SetToolTip(txtsalary, "Enter Salary to Employee") Tip1.SetToolTip(dateemppay, "Select Payment Date Of Employee") Details")

Emp_Id"

Emp_Id "

BUSINESS MANAGEMENT SYSTEM

Page 73

Tip1.SetToolTip(Comboempuppay, "Select Employee Id For Upgrade Employee Payment Details") Tip1.SetToolTip(DateTimePicker2, "Select Previous Payment Date For Upgrade Employee Payment Details") Tip1.SetToolTip(bttnsearch, "First Check Employee Name And Payment Date are Matched Then Click on Search Button") Tip1.SetToolTip(txtempup, "Employee Name") Tip1.SetToolTip(txtupjob, "This is a Previous Record of Job Title Of Slected Employee") Tip1.SetToolTip(txtupsalary, "This is a Previous Record of Salary Of Slected Employee") Tip1.SetToolTip(Comboempreport, "Select Employee Id For Find Out Total Salary are Received From Company") End Sub Private Sub comboemppay_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles comboemppay.SelectedIndexChanged cs.Open() Dim qs As String = "Select * from emp where Emp_Id=@Emp_Id" Dim cmd As New SqlCommand(qs, cs) cmd.Parameters.Add(New SqlParameter("@Emp_Id", SqlDbType.NChar, 100)).Value = comboemppay.SelectedItem.ToString dr = cmd.ExecuteReader() dr.Read() If dr.HasRows Then txtempname.Text = dr("Employee_name").ToString() txtjob.Text = dr("Job_title").ToString() txtsalary.Text = dr("Salary").ToString() End If dr.Close() cs.Close() cmd.Parameters.Clear() End Sub Sub emppayment() Dim qs As String = "insert into emp_sal values (@Emp_Id,@Employee_Name,@Job_Title,@Salary,@Payment_Date)" Dim cmd As New SqlCommand(qs, cs) cmd = New SqlCommand(qs, cs) cmd.Parameters.Add(New SqlParameter("@Emp_Id", SqlDbType.NVarChar, 200)).Value = comboemppay.SelectedItem.ToString cmd.Parameters.Add(New SqlParameter("@Employee_Name", SqlDbType.NVarChar, 20)).Value = txtempname.Text cmd.Parameters.Add(New SqlParameter("@Job_Title", SqlDbType.NVarChar, 200)).Value = txtjob.Text cmd.Parameters.Add(New SqlParameter("@Salary ", SqlDbType.Decimal, 9, 2)).Value = txtsalary.Text cmd.Parameters.Add(New SqlParameter("@Payment_Date", SqlDbType.SmallDateTime)).Value = dateemppay.Text cs.Open() cmd.ExecuteNonQuery() MsgBox("Employee Payment is Updated successfully") cs.Close() cmd.Parameters.Clear() End Sub Private Sub bttnsave_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bttnsave.Click If comboemppay.Text = "SELECT" Then

BUSINESS MANAGEMENT SYSTEM

Page 74

Else

MsgBox("Please Select Employee Id")

emppayment() Dim da As New SqlDataAdapter("select Emp_Id,Employee_Name,Job_Title,Salary,Payment_Date From emp_sal where Payment_Date='" & dateemppay.Text & "'", cs) Dim ds As New DataSet Dim cmb As New SqlCommandBuilder(da) gridemp.Refresh() da.Fill(ds, "emp_sal") gridemp.DataSource = ds.Tables("emp_sal") empsal_clr() loademp() End If End Sub Private Sub bttnshowallemp_sal_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bttnshowallemp_sal.Click Dim da As New SqlDataAdapter("select Emp_Id,Employee_Name,Job_Title,Salary,Payment_Date From emp_sal Order By Payment_Date DESC", cs) Dim ds As New DataSet Dim cmb As New SqlCommandBuilder(da) gridemp.Refresh() da.Fill(ds, "emp_sal") gridemp.DataSource = ds.Tables("emp_sal") End Sub Sub empupdate() Dim ups As String ups = "update emp_sal set Job_Title=@Job_Title,Salary=@Salary,Payment_Date=@Payment_Date where Payment_Date=@Payment_Date" cmd = New SqlCommand(ups, cs) cmd.Parameters.Add(New SqlParameter("@Emp_Id", SqlDbType.NVarChar, 200)).Value = Comboempuppay.SelectedItem.ToString cmd.Parameters.Add(New SqlParameter("@Job_Title", SqlDbType.NVarChar, 200)).Value = txtupjob.Text cmd.Parameters.Add(New SqlParameter("@Salary ", SqlDbType.Decimal, 9, 2)).Value = txtupsalary.Text cmd.Parameters.Add(New SqlParameter("@Payment_Date ", SqlDbType.SmallDateTime)).Value = DateTimePicker2.Text cs.Open() cmd.ExecuteNonQuery() MsgBox("Employee Payment Detail is updated successfully") cs.Close() cmd.Parameters.Clear() End Sub Private Sub bttnupdate_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bttnupdate.Click If txtupjob.Text = "" Then MsgBox("Enter Updated Job Title ") ElseIf txtupsalary.Text = "" Then MsgBox("Enter Updated Salary") Else empupdate() Dim da As New SqlDataAdapter("select Emp_Id,Employee_Name,Job_Title,Salary,Payment_Date From emp_sal Where Emp_Id='" & Comboempuppay.SelectedItem.ToString & "' And Payment_Date= '" & DateTimePicker2.Text & "'", cs)

BUSINESS MANAGEMENT SYSTEM

Page 75

Dim ds As New DataSet Dim cmb As New SqlCommandBuilder(da) gridupemp.Refresh() da.Fill(ds, "emp_sal") gridupemp.DataSource = ds.Tables("emp_sal") empsal_clr() loademp() End If End Sub Sub empPayment_del() Dim ups As String ups = "delete from emp_sal where (Emp_Id = @Emp_Id and Payment_Date=@Payment_Date)" cmd = New SqlCommand(ups, cs) cmd.Parameters.Add(New SqlParameter("@Emp_Id", SqlDbType.NVarChar, 200)).Value = Comboempuppay.SelectedItem.ToString cmd.Parameters.Add(New SqlParameter("@Payment_Date", SqlDbType.SmallDateTime)).Value = DateTimePicker2.Text cs.Open() cmd.ExecuteNonQuery() dr = cmd.ExecuteReader() dr.Close() MsgBox("Employee Remove successfully") cs.Close() cmd.Parameters.Clear() End Sub Private Sub bttndel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bttndel.Click empPayment_del() empsal_clr() loademp() gridupemp.Columns.Clear() End Sub Private Sub bttnsearch_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bttnsearch.Click txtupjob.Text = "" txtupsalary.Text = "" bttndel.Enabled = False bttnupdate.Enabled = False If Comboempuppay.Text = "SELECT" Then MsgBox("Please Select Employee Id") Else cs.Open() Dim qs As String = "Select * from emp_sal where Emp_Id=@Emp_Id and Payment_Date=@Payment_Date Order By Payment_Date" Dim cmd As New SqlCommand(qs, cs) cmd.Parameters.Add(New SqlParameter("@Emp_Id", SqlDbType.NChar, 20)).Value = Comboempuppay.SelectedItem.ToString cmd.Parameters.Add(New SqlParameter("@Payment_Date", SqlDbType.SmallDateTime)).Value = DateTimePicker2.Text dr = cmd.ExecuteReader() dr.Read() If dr.HasRows Then txtempup.Text = dr("Employee_Name").ToString() txtupjob.Text = dr("Job_title").ToString() txtupsalary.Text = dr("Salary").ToString()

BUSINESS MANAGEMENT SYSTEM

Page 76

DateTimePicker2.Text = dr("Payment_Date").ToString() bttndel.Enabled = True bttnupdate.Enabled = True ElseIf txtupjob.Text = "" Then MsgBox("Please Select Proper Date") End If dr.Close() cs.Close() cmd.Parameters.Clear() Dim da As New SqlDataAdapter("select Emp_Id,Employee_Name,Job_Title,Salary,Payment_Date From emp_sal Where Emp_Id='" & Comboempuppay.SelectedItem & "' And Payment_Date= '" & DateTimePicker2.Text & "'", cs) Dim ds As New DataSet Dim cmb As New SqlCommandBuilder(da) gridupemp.Refresh() da.Fill(ds, "emp_sal") gridupemp.DataSource = ds.Tables("emp_sal") End If End Sub Sub emp_sal() Dim da As New SqlDataAdapter("Select * from emp_sal where Payment_Date " & " Between '" & date1.Text & "' AND '" & date2.Text & "'" & "Order by Payment_Date", cs) Dim ds As New DataSet Dim cmb As New SqlCommandBuilder(da) gridempreport.Refresh() da.Fill(ds, "emp_sal") gridempreport.DataSource = ds.Tables("emp_sal") End Sub Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click emp_sal() Dim da As New SqlDataAdapter("Select sum(Salary)As Total_Paid from emp_sal where Payment_Date " & " Between '" & date1.Text & "' AND '" & date2.Text & "'", cs) Dim ds As New DataSet Dim cmb As New SqlCommandBuilder(da) DataGridView1.Refresh() da.Fill(ds, "emp_sal") DataGridView1.DataSource = ds.Tables("emp_sal") End Sub Private Sub TabControl1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TabControl1.SelectedIndexChanged empsal_clr() gridupemp.Columns.Clear() loademp() gridemp.Columns.Clear() DataGridView1.Columns.Clear() End Sub Sub empsal_clr() comboemppay.Items.Clear() Comboempuppay.Items.Clear() Comboempreport.Items.Clear() gridempreport.Columns.Clear() date1.ResetText()

BUSINESS MANAGEMENT SYSTEM

Page 77

date2.ResetText() Comboempreport.ResetText() Comboempreport.Text = "SELECT" date3.ResetText() date4.ResetText() gridperemp.Columns.Clear() Comboempuppay.ResetText() End Sub Private Sub bttnperemp_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bttnperemp.Click If Comboempreport.Text = "SELECT" Then MsgBox("Plase Sekect Employee Id") Else Dim da As New SqlDataAdapter("Select sum(Salary)As Total_Paid_Salary from emp_sal where Emp_Id='" & Comboempreport.SelectedItem & "'" & "AND Payment_Date" & " Between '" & date3.Text & "' AND '" & date4.Text & "'", cs) Dim ds As New DataSet Dim cmb As New SqlCommandBuilder(da) gridperemp.Refresh() da.Fill(ds, "emp_sal") gridperemp.DataSource = ds.Tables("emp_sal") End If End Sub Private Sub LinkLabel2_LinkClicked(ByVal sender As System.Object, ByVal e As System.Windows.Forms.LinkLabelLinkClickedEventArgs) Handles LinkLabel2.LinkClicked index.Show() Me.Close() End Sub Sub loademp() cs.Open() Dim qs As String = "select Distinct(Emp_Id) from emp order by Emp_Id" Dim cmd As New SqlCommand(qs, cs) dr = cmd.ExecuteReader() While dr.Read() comboemppay.Items.Add(dr("Emp_Id").ToString()) End While dr.Close() cs.Close() 'Comboempreport cs.Open() Dim qss As String = "select distinct(Emp_Id) from emp_sal order by Emp_Id" Dim cmdd As New SqlCommand(qss, cs) dr = cmdd.ExecuteReader() While dr.Read() Comboempreport.Items.Add(dr("Emp_Id").ToString()) End While dr.Close() cs.Close() 'Comboempuppay cs.Open() Dim sq As String = "select Distinct(Emp_Id) from emp_sal order by Emp_Id "

BUSINESS MANAGEMENT SYSTEM

Page 78

Dim cm As New SqlCommand(sq, cs) dr = cm.ExecuteReader() While dr.Read() Comboempuppay.Items.Add(dr("Emp_Id").ToString()) End While dr.Close() cs.Close() End Sub Private Sub LinkLabel1_LinkClicked(ByVal sender As System.Object, ByVal e As System.Windows.Forms.LinkLabelLinkClickedEventArgs) Handles LinkLabel1.LinkClicked Application.Exit() End Sub End Class

BUSINESS MANAGEMENT SYSTEM

Page 79

SCREEN LAYOUT OF EMPLOYEE PAYMENT FORM :

BUSINESS MANAGEMENT SYSTEM

Page 80

CODE FOR ADD SUPPLIER FORM :

Imports System.Data.SqlClient Public Class supplierdetail Dim cs As New SqlConnection() Dim cmd As SqlCommand Dim dr As SqlDataReader Dim b As Boolean 'adding new supplier Public Sub InsertPlasticSupp() Dim qs As String = "insert into plastic_supp values(@Supp_Id,@Supplier_Name,@Address,@Contact_No,@Plastic_Raw_Name)" cmd = New SqlCommand(qs, cs) cmd.Parameters.Add(New SqlParameter("@Supp_Id", SqlDbType.VarChar, 50)).Value = txtplasuppid.Text cmd.Parameters.Add(New SqlParameter("@Supplier_Name", SqlDbType.VarChar, 50)).Value = txtaddname.Text cmd.Parameters.Add(New SqlParameter("@Address", SqlDbType.VarChar, 100)).Value = txtaddadd.Text cmd.Parameters.Add(New SqlParameter("@Contact_No", SqlDbType.VarChar, 100)).Value = txtaddcon.Text cmd.Parameters.Add(New SqlParameter("@Plastic_Raw_Name", SqlDbType.VarChar, 100)).Value = txtaddpro.Text cs.Open() cmd.ExecuteNonQuery() MsgBox("Supplier details are added successfully") cs.Close() cmd.Parameters.Clear() End Sub Sub conatct_Dire() Dim qs As String = "insert into Contact_Directory (Name,Address,Contact_No) values(@Name,@Address,@Contact_No)" Dim cmd As New SqlCommand(qs, cs) cmd = New SqlCommand(qs, cs) cmd.Parameters.Add(New SqlParameter("@Name", SqlDbType.VarChar, 200)).Value = txtaddname.Text cmd.Parameters.Add(New SqlParameter("@Address", SqlDbType.VarChar, 200)).Value = txtaddadd.Text cmd.Parameters.Add(New SqlParameter("@Contact_No", SqlDbType.VarChar, 200)).Value = txtaddcon.Text cs.Open() cmd.ExecuteNonQuery() cs.Close() End Sub 'adding new product into available_Raw Sub add_available_raw() Dim xx As Decimal xx = 0.0 Dim qs As String = "insert into available_raw values(@Plastic_Raw_Name,@Available_Quantity)" cmd = New SqlCommand(qs, cs) cmd.Parameters.Add(New SqlParameter("@Plastic_Raw_Name", SqlDbType.VarChar, 600)).Value = txtaddpro.Text cmd.Parameters.Add(New SqlParameter("@Available_Quantity", SqlDbType.Decimal, 18, 2)).Value = xx cs.Open()

BUSINESS MANAGEMENT SYSTEM

Page 81

cmd.ExecuteNonQuery() cs.Close() cmd.Parameters.Clear() End Sub Private Sub btnadd_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnadd.Click If txtaddname.Text = "" Then MsgBox("Please Enter Supplier Name") ElseIf txtaddpro.Text = "" Then MsgBox("Please Enter Plastic Material Name") Else InsertPlasticSupp() add_available_raw() cs.Open() Dim ds As New DataSet("tab") Dim da As New SqlDataAdapter("select * from plastic_supp where Supp_Id=@Supp_Id", cs) da.SelectCommand.Parameters.Add(New SqlParameter("@Supp_Id", SqlDbType.VarChar, 100)).Value = txtplasuppid.Text da.Fill(ds, "tab") datagridplas.DataSource = ds datagridplas.DataMember = "tab" cs.Close() loadnewsupplier() clrall() End If End Sub Sub pla_suppid() 'Plastic Supp Id Dim i As Integer cs.Open() Dim sq As String = "select Supp_Id from Plastic_supp where Supp_Id like 'Sup_p%'" Dim cmg As New SqlCommand(sq, cs) dr = cmg.ExecuteReader() If dr.HasRows = False Then txtplasuppid.Text = "Sup_p1" Else While dr.Read() i = i + 1 End While i = i + 1 txtplasuppid.Text = "Sup_p" & i End If dr.Close() cs.Close() End Sub Sub insert_available_pcs() Dim qs As String = "insert into available_pcs (Raw_Name,Available_Quantity)values(@Raw_Name,@Available_Quantity)" cmd = New SqlCommand(qs, cs) cmd.Parameters.Add(New SqlParameter("@Raw_Name", SqlDbType.VarChar, 50)).Value = txtaddpro.Text cmd.Parameters.Add(New SqlParameter("@Available_Quantity", SqlDbType.Decimal, 18, 2)).Value = 0.0 cs.Open() cmd.ExecuteNonQuery() cs.Close()

BUSINESS MANAGEMENT SYSTEM

Page 82

cmd.Parameters.Clear() End Sub Private Sub supplierdetail_Disposed(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Disposed index.Show() Me.Close() End Sub Private Sub Form12_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load 'Plastic Supp Id Dim i As Integer cs.Open() Dim sq As String = "select Supp_Id from Plastic_supp where Supp_Id like 'Sup_p%'" Dim cmg As New SqlCommand(sq, cs) dr = cmg.ExecuteReader() If dr.HasRows = False Then txtplasuppid.Text = "Sup_p1" Else While dr.Read() i = i + 1 End While i = i + 1 txtplasuppid.Text = "Sup_p" & i End If dr.Close() cs.Close() 'Hook Supp Id Dim ii As Integer cs.Open() Dim sqq As String = "select Supp_Id from hook_supp where Supp_Id like 'Sup_h%'" Dim cmgg As New SqlCommand(sqq, cs) dr = cmgg.ExecuteReader() If dr.HasRows = False Then txthooksuppid.Text = "Sup_h1" Else While dr.Read() ii = ii + 1 End While ii = ii + 1 txthooksuppid.Text = "Sup_h" & ii End If dr.Close() cs.Close() 'Clip Supp Id Dim iii As Integer cs.Open() Dim sqqq As String = "select Supp_Id from clip_supp where Supp_Id like 'Sup_c%'" Dim cmggg As New SqlCommand(sqqq, cs) dr = cmggg.ExecuteReader() If dr.HasRows = False Then txtclpsuppid.Text = "Sup_c1" Else While dr.Read() iii = iii + 1

BUSINESS MANAGEMENT SYSTEM

Page 83

End While iii = iii + 1 txtclpsuppid.Text = "Sup_c" & iii End If dr.Close() cs.Close() Tip1.SetToolTip(txtaddname, "Enter Supplier Name") Tip1.SetToolTip(txtaddadd, "Enter Address") Tip1.SetToolTip(txtaddcon, "Enter Contact No.") Tip1.SetToolTip(txtaddpro, "Enter Valid Product Name") 'Plastic_Suppdel cs.Open() Dim qs As String = "select distinct(Supp_Id) from Plastic_Supp order by Supp_Id" Dim cmd As New SqlCommand(qs, cs) dr = cmd.ExecuteReader() While dr.Read() combodelpla.Items.Add(dr("Supp_Id").ToString()) End While dr.Close() cs.Close() 'hook_Suppdel cs.Open() Dim qss As String = "select distinct(Supp_Id) from hook_Supp by Supp_Id" Dim cmdd As New SqlCommand(qss, cs) dr = cmdd.ExecuteReader() While dr.Read() Combodelhook.Items.Add(dr("Supp_Id").ToString()) End While dr.Close() cs.Close()

order

'clip_Suppdel cs.Open() Dim qsss As String = "select distinct(Supp_Id) from clip_Supp order by Supp_Id " Dim cmddd As New SqlCommand(qsss, cs) dr = cmddd.ExecuteReader() While dr.Read() combodelclip.Items.Add(dr("Supp_Id").ToString()) End While dr.Close() cs.Close() 'Plastic_suppUp cs.Open() Dim qssss As String = "select distinct(Supp_Id) from Plastic_Supp order by Supp_Id " Dim cmdddd As New SqlCommand(qssss, cs) dr = cmdddd.ExecuteReader() While dr.Read() combouppla.Items.Add(dr("Supp_Id").ToString()) End While dr.Close() cs.Close() 'clip_suppUp

BUSINESS MANAGEMENT SYSTEM

Page 84

cs.Open() Dim qssssss As String = "select distinct(Supp_Id) from clip_Supp order by Supp_Id" Dim cmdddddd As New SqlCommand(qssssss, cs) dr = cmdddddd.ExecuteReader() While dr.Read() comboupclip.Items.Add(dr("Supp_Id").ToString()) End While dr.Close() cs.Close() End Sub Private Sub bttndel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bttndel.Click If combodelpla.Text = "SELECT" Then MsgBox("Please Select Supplier Name") Else Dim qs As String = "delete from Plastic_Supp where Supp_Id = @Supp_Id" Dim cmd As New SqlCommand(qs, cs) cmd.Parameters.Add(New SqlParameter("@Supp_Id", SqlDbType.VarChar, 200)).Value = combodelpla.SelectedItem.ToString() cs.Open() cmd.ExecuteNonQuery() dr = cmd.ExecuteReader() dr.Close() MsgBox("Supplier details are deleted successfully") cs.Close() cmd.Parameters.Clear() del_avai_Pla() loadnewsupplier() clrall() End If End Sub Sub del_avai_Pla() Dim qs As String = "delete from Available_Raw where Plastic_Raw_Name = @Plastic_Raw_Name" Dim cmd As New SqlCommand(qs, cs) cmd.Parameters.Add(New SqlParameter("@Plastic_Raw_Name", SqlDbType.VarChar, 200)).Value = TextBox1.Text cs.Open() cmd.ExecuteNonQuery() dr = cmd.ExecuteReader() dr.Close() cs.Close() End Sub Private Sub bttnupdate_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bttnuppla.Click If combouppla.Text = "SELECT" Then MsgBox("Please Select Supplier Name") ElseIf txtuppropla.Text = "" Then MsgBox("Please Enter Plastic Material Name") Else Dim ups As String ups = "update plastic_supp set Supplier_Name=@Supplier_Name,Address=@Address,Contact_No=@Contact_No,Plasti c_Raw_Name=@Plastic_Raw_Name where Supp_Id=@Supp_Id" cmd = New SqlCommand(ups, cs)

BUSINESS MANAGEMENT SYSTEM

Page 85

cmd.Parameters.Add(New SqlParameter("@Supplier_Name", SqlDbType.VarChar, 200)).Value = txtuppla.Text cmd.Parameters.Add(New SqlParameter("@Address", SqlDbType.VarChar, 200)).Value = txtupaddpla.Text cmd.Parameters.Add(New SqlParameter("@Contact_No", SqlDbType.VarChar, 200)).Value = txtupconpla.Text cmd.Parameters.Add(New SqlParameter("@Plastic_Raw_Name", SqlDbType.VarChar, 200)).Value = txtuppropla.Text cmd.Parameters.Add(New SqlParameter("@Supp_Id", SqlDbType.VarChar, 200)).Value = combouppla.SelectedItem.ToString() cs.Open() cmd.ExecuteNonQuery() MsgBox("Supplier details are updated successfully") cs.Close() cmd.Parameters.Clear() upadte_avai_pla() cs.Open() Dim ds As New DataSet("tab") Dim da As New SqlDataAdapter("select * from plastic_supp where supp_Id=@supp_Id", cs) da.SelectCommand.Parameters.Add(New SqlParameter("@supp_Id", SqlDbType.NVarChar, 200)).Value = combouppla.SelectedItem.ToString da.Fill(ds, "tab") gridsuppup.DataSource = ds gridsuppup.DataMember = "tab" cs.Close() loadnewsupplier() clrall() End If End Sub Sub upadte_avai_pla() Dim ups As String ups = "update Available_Raw set Plastic_Raw_Name=@Plastic_Raw_Name " cmd = New SqlCommand(ups, cs) cmd.Parameters.Add(New SqlParameter("@Plastic_Raw_Name", SqlDbType.VarChar, 200)).Value = txtuppropla.Text cs.Open() cmd.ExecuteNonQuery() cs.Close() cmd.Parameters.Clear() End Sub Private Sub comboup_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles combouppla.SelectedIndexChanged cs.Open() cmd.CommandText = "select Supplier_Name,Address,Contact_No,Plastic_Raw_Name from plastic_supp where Supp_Id=@Supp_Id" cmd.Parameters.Add(New SqlParameter("@Supp_Id", SqlDbType.VarChar, 100)).Value = combouppla.SelectedItem.ToString dr = cmd.ExecuteReader() dr.Read() If dr.HasRows Then txtuppla.Text = dr("Supplier_Name").ToString() txtupaddpla.Text = dr("Address").ToString() txtupconpla.Text = dr("Contact_No").ToString() txtuppropla.Text = dr("Plastic_Raw_Name").ToString() End If dr.Close() cs.Close()

BUSINESS MANAGEMENT SYSTEM

Page 86

cmd.Parameters.Clear() End Sub Private Sub bttnshow_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bttnshow.Click Dim da As New SqlDataAdapter("select * From Plastic_supp", cs) Dim ds As New DataSet Dim cmb As New SqlCommandBuilder(da) gridshow1.Refresh() da.Fill(ds, "Plastic_supp") gridshow1.DataSource = ds.Tables("Plastic_supp") Dim daaa As New SqlDataAdapter("select * From clip_supp", cs) Dim dsss As New DataSet Dim cmbbb As New SqlCommandBuilder(daaa) gridshow3.Refresh() daaa.Fill(dsss, "clip_supp") gridshow3.DataSource = dsss.Tables("clip_supp") End Sub 'loading Supplierid Public Sub loadnewsupplier() pla_suppid() hook_suppid() clp_suppid() 'Plastic_Suppdel combodelpla.Items.Clear() cs.Open() Dim qs As String = "select distinct(Supp_Id) from Plastic_Supp order by Supp_Id" Dim cmd As New SqlCommand(qs, cs) dr = cmd.ExecuteReader() While dr.Read() combodelpla.Items.Add(dr("Supp_Id").ToString()) End While dr.Close() cs.Close() 'hook_Suppdel Combodelhook.Items.Clear() cs.Open() Dim qss As String = "select distinct(Supp_Id) from hook_Supp by Supp_Id" Dim cmdd As New SqlCommand(qss, cs) dr = cmdd.ExecuteReader() While dr.Read() Combodelhook.Items.Add(dr("Supp_Id").ToString()) End While dr.Close() cs.Close()

order

'clip_Suppdel combodelclip.Items.Clear() cs.Open() Dim qsss As String = "select distinct(Supp_Id) from clip_Supp order by Supp_Id " Dim cmddd As New SqlCommand(qsss, cs) dr = cmddd.ExecuteReader() While dr.Read() combodelclip.Items.Add(dr("Supp_Id").ToString())

BUSINESS MANAGEMENT SYSTEM

Page 87

End While dr.Close() cs.Close() 'Plastic_suppUp combouppla.Items.Clear() cs.Open() Dim qssss As String = "select distinct(Supp_Id) from Plastic_Supp order by Supp_Id " Dim cmdddd As New SqlCommand(qssss, cs) dr = cmdddd.ExecuteReader() While dr.Read() combouppla.Items.Add(dr("Supp_Id").ToString()) End While dr.Close() cs.Close() 'Hook_suppUp combouphook.Items.Clear() cs.Open() Dim qsssss As String = "select distinct(Supp_Id) from hook_Supp order by Supp_Id " Dim cmddddd As New SqlCommand(qsssss, cs) dr = cmddddd.ExecuteReader() While dr.Read() combouphook.Items.Add(dr("Supp_Id").ToString()) End While dr.Close() cs.Close() 'clip_suppUp comboupclip.Items.Clear() cs.Open() Dim qssssss As String = "select distinct(Supp_Id) from clip_Supp order by Supp_Id " Dim cmdddddd As New SqlCommand(qssssss, cs) dr = cmdddddd.ExecuteReader() While dr.Read() comboupclip.Items.Add(dr("Supp_Id").ToString()) End While dr.Close() cs.Close() End Sub Sub clrall() txtaddname.Text = "" txtaddadd.Text = "" txtaddcon.Text = "" txtaddpro.Text = "" txthookaddsup.Text = "" txthookadd.Text = "" txthookcon.Text = "" txthooname.Text = "" txtuppla.Text = "" txtuphook.Text = "" txtupclp.Text = "" combodelpla.ResetText() Combodelhook.ResetText() Combodelhook.Text = "SELECT" comboupclip.ResetText() comboupclip.Text = "SELECT"

BUSINESS MANAGEMENT SYSTEM

Page 88

End Sub Private Sub bttnaddhook_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bttnaddhook.Click If txthookaddsup.Text = "" Then MsgBox("Please Enter Supplier Name") ElseIf txthooname.Text = "" Then MsgBox("Please Hook Name") Else insertHookSupp() 'conatct_Dire() Add_Available_Hook() cs.Open() Dim ds As New DataSet("tab") Dim da As New SqlDataAdapter("select * from hook_supp where Supp_Id=@Supp_Id", cs) da.SelectCommand.Parameters.Add(New SqlParameter("@Supp_Id", SqlDbType.VarChar, 100)).Value = txthooksuppid.Text da.Fill(ds, "tab") gridhooksupp.DataSource = ds gridhooksupp.DataMember = "tab" cs.Close() loadnewsupplier() clrall() End If End Sub Sub hook_suppid() 'Hook Supp Id Dim ii As Integer cs.Open() Dim sqq As String = "select Supp_Id from hook_supp where Supp_Id like 'Sup_h%'" Dim cmgg As New SqlCommand(sqq, cs) dr = cmgg.ExecuteReader() If dr.HasRows = False Then txthooksuppid.Text = "Sup_h1" Else While dr.Read() ii = ii + 1 End While ii = ii + 1 txthooksuppid.Text = "Sup_h" & ii End If dr.Close() cs.Close() End Sub Sub Add_Available_Hook() Dim xx As Decimal xx = 0.0 Dim qs As String = "insert into available_Hook values(@Hook_Name,@Available_Quantity)" cmd = New SqlCommand(qs, cs) cmd.Parameters.Add(New SqlParameter("@Hook_Name", SqlDbType.VarChar, 600)).Value = txthooname.Text cmd.Parameters.Add(New SqlParameter("@Available_Quantity", SqlDbType.Decimal, 18, 2)).Value = xx cs.Open() cmd.ExecuteNonQuery()

BUSINESS MANAGEMENT SYSTEM

Page 89

cs.Close() cmd.Parameters.Clear() End Sub Sub insertHookSupp() Dim qs As String = "insert into hook_supp values(@Supp_Id,@Supplier_Name,@Address,@Contact_No,@Hook_Name)" cmd = New SqlCommand(qs, cs) cmd.Parameters.Add(New SqlParameter("@Supp_Id", SqlDbType.VarChar, 50)).Value = txthooksuppid.Text cmd.Parameters.Add(New SqlParameter("@Supplier_Name", SqlDbType.VarChar, 50)).Value = txthookaddsup.Text cmd.Parameters.Add(New SqlParameter("@Address", SqlDbType.VarChar, 100)).Value = txthookadd.Text cmd.Parameters.Add(New SqlParameter("@Contact_No", SqlDbType.VarChar, 100)).Value = txthookcon.Text cmd.Parameters.Add(New SqlParameter("@Hook_Name", SqlDbType.VarChar, 100)).Value = txthooname.Text cs.Open() cmd.ExecuteNonQuery() MsgBox("Supplier details are added successfully") cs.Close() cmd.Parameters.Clear() End Sub Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click If txtclipsupp.Text = "" Then MsgBox("Please Enter Supplier Name") ElseIf txtclipname.Text = "" Then MsgBox("Please Enter Clip Name") Else InsertclipSupp() add_Available_Clip() cs.Open() Dim ds As New DataSet("tab") Dim da As New SqlDataAdapter("select * from clip_supp where Supp_Id=@Supp_Id", cs) da.SelectCommand.Parameters.Add(New SqlParameter("@Supp_Id", SqlDbType.VarChar, 600)).Value = txtclpsuppid.Text da.Fill(ds, "tab") gridsuppclip.DataSource = ds gridsuppclip.DataMember = "tab" cs.Close() loadnewsupplier() clrall() End If End Sub Sub clp_suppid() 'Clip Supp Id Dim iii As Integer cs.Open() Dim sqqq As String = "select Supp_Id from clip_supp where Supp_Id like 'Sup_c%'" Dim cmggg As New SqlCommand(sqqq, cs) dr = cmggg.ExecuteReader() If dr.HasRows = False Then txtclpsuppid.Text = "Sup_c1" Else While dr.Read()

BUSINESS MANAGEMENT SYSTEM

Page 90

iii = iii + 1 End While iii = iii + 1 txtclpsuppid.Text = "Sup_c" & iii End If dr.Close() cs.Close() End Sub Sub InsertclipSupp() Dim qs As String = "insert into clip_supp values(@Supp_Id,@Supplier_Name,@Address,@Contact_No,@Clip_Name)" cmd = New SqlCommand(qs, cs) cmd.Parameters.Add(New SqlParameter("@Supp_Id", SqlDbType.VarChar, 50)).Value = txtclpsuppid.Text cmd.Parameters.Add(New SqlParameter("@Supplier_Name", SqlDbType.VarChar, 50)).Value = txtclipsupp.Text cmd.Parameters.Add(New SqlParameter("@Address", SqlDbType.VarChar, 100)).Value = txtclipadd.Text cmd.Parameters.Add(New SqlParameter("@Contact_No", SqlDbType.VarChar, 100)).Value = txtclipcon.Text cmd.Parameters.Add(New SqlParameter("@Clip_Name", SqlDbType.VarChar, 100)).Value = txtclipname.Text cs.Open() cmd.ExecuteNonQuery() MsgBox("Supplier details are added successfully") cs.Close() cmd.Parameters.Clear() End Sub Sub add_Available_Clip() Dim xx As Decimal xx = 0.0 Dim qs As String = "insert into available_clip values(@Clip_Name,@Available_Quantity)" cmd = New SqlCommand(qs, cs) cmd.Parameters.Add(New SqlParameter("@Clip_Name", SqlDbType.VarChar, 600)).Value = txtclipname.Text cmd.Parameters.Add(New SqlParameter("@Available_Quantity", SqlDbType.Decimal, 18, 2)).Value = xx cs.Open() cmd.ExecuteNonQuery() cs.Close() cmd.Parameters.Clear() End Sub Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim da As New SqlDataAdapter("select * From Plastic_supp", cs) Dim ds As New DataSet Dim cmb As New SqlCommandBuilder(da) datagridplas.Refresh() da.Fill(ds, "Plastic_supp") datagridplas.DataSource = ds.Tables("Plastic_supp") End Sub Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click Dim da As New SqlDataAdapter("select * From hook_supp", cs) Dim ds As New DataSet

BUSINESS MANAGEMENT SYSTEM

Page 91

Dim cmb As New SqlCommandBuilder(da) gridhooksupp.Refresh() da.Fill(ds, "hook_sup") gridhooksupp.DataSource = ds.Tables("hook_sup") End Sub Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click Dim da As New SqlDataAdapter("select * From clip_supp", cs) Dim ds As New DataSet Dim cmb As New SqlCommandBuilder(da) gridsuppclip.Refresh() da.Fill(ds, "clip_supp") gridsuppclip.DataSource = ds.Tables("clip_supp") End Sub Private Sub bttndelhook_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bttndelhook.Click If Combodelhook.Text = "SELECT" Then MsgBox("Please Select Supplier Name") Else Dim qs As String = "delete from hook_Supp where Supp_Id = @Supp_Id" Dim cmd As New SqlCommand(qs, cs) cmd.Parameters.Add(New SqlParameter("@Supp_Id", SqlDbType.VarChar, 200)).Value = Combodelhook.SelectedItem.ToString() cs.Open() cmd.ExecuteNonQuery() dr = cmd.ExecuteReader() dr.Close() MsgBox("Supplier details are deleted successfully") cs.Close() cmd.Parameters.Clear() del_hook_Avai() loadnewsupplier() clrall() End If End Sub Sub del_hook_Avai() Dim qs As String = "delete from Available_Hook where Hook_Name = @Hook_Name" Dim cmd As New SqlCommand(qs, cs) cmd.Parameters.Add(New SqlParameter("@Hook_Name", SqlDbType.VarChar, 200)).Value = TextBox2.Text.ToString cs.Open() cmd.ExecuteNonQuery() dr = cmd.ExecuteReader() dr.Close() cs.Close() End Sub Private Sub bttndelclip_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bttndelclip.Click If combodelclip.Text = "SELECT" Then MsgBox("Please Select Supplier Name") Else Dim qs As String = "delete from clip_Supp where Supp_Id = @Supp_Id" Dim cmd As New SqlCommand(qs, cs)

BUSINESS MANAGEMENT SYSTEM

Page 92

cmd.Parameters.Add(New SqlParameter("@Supp_Id", SqlDbType.VarChar, 200)).Value = combodelclip.SelectedItem.ToString() cs.Open() cmd.ExecuteNonQuery() dr = cmd.ExecuteReader() dr.Close() MsgBox("Supplier details are deleted successfully") cs.Close() cmd.Parameters.Clear() del_Clip_Avai() loadnewsupplier() clrall() End If End Sub Sub del_Clip_Avai() Dim qs As String = "delete from Available_Clip where Clip_Name = @Clip_Name" Dim cmd As New SqlCommand(qs, cs) cmd.Parameters.Add(New SqlParameter("@Clip_Name", SqlDbType.VarChar, 200)).Value = TextBox3.Text.ToString cs.Open() cmd.ExecuteNonQuery() dr = cmd.ExecuteReader() dr.Close() cs.Close() End Sub Private Sub bttnuphook_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bttnuphook.Click If combouphook.Text = "SELECT" Then MsgBox("Please Select Supplier Name") ElseIf txtupprohook.Text = "" Then MsgBox("Please Enter Hook Name") Else Dim ups As String ups = "update hook_supp set Supplier_Name=@Supplier_Name,Address=@Address,Contact_No=@Contact_No,Hook_N ame=@Hook_Name where Supp_Id=@Supp_Id" cmd = New SqlCommand(ups, cs) cmd.Parameters.Add(New SqlParameter("@Supplier_Name", SqlDbType.VarChar, 200)).Value = txtuphook.Text cmd.Parameters.Add(New SqlParameter("@Address", SqlDbType.VarChar, 200)).Value = txtupaddhook.Text cmd.Parameters.Add(New SqlParameter("@Contact_No", SqlDbType.VarChar, 200)).Value = txtupconhook.Text cmd.Parameters.Add(New SqlParameter("@Hook_Name", SqlDbType.VarChar, 200)).Value = txtupprohook.Text cmd.Parameters.Add(New SqlParameter("@Supp_Id", SqlDbType.VarChar, 200)).Value = combouphook.SelectedItem.ToString() cs.Open() cmd.ExecuteNonQuery() MsgBox("Supplier details are updated successfully") cs.Close() cmd.Parameters.Clear() upadte_avai_hook() cs.Open() Dim ds As New DataSet("tab") Dim da As New SqlDataAdapter("select * from hook_supp where Supp_Id=@Supp_Id", cs)

BUSINESS MANAGEMENT SYSTEM

Page 93

da.SelectCommand.Parameters.Add(New SqlParameter("@Supp_Id", SqlDbType.NVarChar, 200)).Value = combouphook.SelectedItem.ToString da.Fill(ds, "tab") gridsuppup.DataSource = ds gridsuppup.DataMember = "tab" cs.Close() loadnewsupplier() clrall() End If End Sub Sub upadte_avai_hook() Dim ups As String ups = "update Available_Hook set Hook_Name=@Hook_Name " cmd = New SqlCommand(ups, cs) cmd.Parameters.Add(New SqlParameter("@Hook_Name", SqlDbType.VarChar, 200)).Value = txtupprohook.Text cs.Open() cmd.ExecuteNonQuery() cs.Close() cmd.Parameters.Clear() End Sub Private Sub bttnupclip_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bttnupclip.Click If comboupclip.Text = "SELECT" Then MsgBox("Please Select Supplier Name") ElseIf txtupproclip.Text = "" Then MsgBox("Please Enter Clip Name") Else Dim ups As String ups = "update clip_supp set Supplier_Name=@Supplier_Name,Address=@Address,Contact_No=@Contact_No,Clip_N ame=@Clip_Name where Supp_Id=@Supp_Id" cmd = New SqlCommand(ups, cs) cmd.Parameters.Add(New SqlParameter("@Supplier_Name", SqlDbType.VarChar, 200)).Value = txtupclp.Text cmd.Parameters.Add(New SqlParameter("@Address", SqlDbType.VarChar, 200)).Value = txtupaddclip.Text cmd.Parameters.Add(New SqlParameter("@Contact_No", SqlDbType.VarChar, 200)).Value = txtupconclip.Text cmd.Parameters.Add(New SqlParameter("@Clip_Name", SqlDbType.VarChar, 200)).Value = txtupproclip.Text cmd.Parameters.Add(New SqlParameter("@Supp_Id", SqlDbType.VarChar, 200)).Value = comboupclip.SelectedItem.ToString() cs.Open() cmd.ExecuteNonQuery() MsgBox("Supplier details are updated successfully") cs.Close() cmd.Parameters.Clear() update_Avi_Clip() cs.Open() Dim ds As New DataSet("tab") Dim da As New SqlDataAdapter("select * from clip_supp where Supp_Id=@Supp_Id", cs) da.SelectCommand.Parameters.Add(New SqlParameter("@Supp_Id", SqlDbType.NVarChar, 200)).Value = comboupclip.SelectedItem.ToString da.Fill(ds, "tab") gridsuppup.DataSource = ds gridsuppup.DataMember = "tab" cs.Close()

BUSINESS MANAGEMENT SYSTEM

Page 94

loadnewsupplier() clrall() End If End Sub Sub update_Avi_Clip() Dim ups As String ups = "update Available_Clip set Clip_Name=@Clip_Name" cmd = New SqlCommand(ups, cs) cmd.Parameters.Add(New SqlParameter("@Clip_Name", SqlDbType.VarChar, 200)).Value = txtupproclip.Text cs.Open() cmd.ExecuteNonQuery() cs.Close() cmd.Parameters.Clear() End Sub Private Sub combouphook_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles combouphook.SelectedIndexChanged cs.Open() cmd.CommandText = "select Supplier_Name,Address,Contact_No,Hook_Name from hook_supp where Supp_Id=@Supp_Id" cmd.Parameters.Add(New SqlParameter("@Supp_Id", SqlDbType.VarChar, 100)).Value = combouphook.SelectedItem.ToString dr = cmd.ExecuteReader() dr.Read() If dr.HasRows Then txtuphook.Text = dr("Supplier_Name").ToString() txtupaddhook.Text = dr("Address").ToString() txtupconhook.Text = dr("Contact_No").ToString() txtupprohook.Text = dr("Hook_Name").ToString() End If dr.Close() cs.Close() cmd.Parameters.Clear() End Sub Private Sub comboupclip_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles comboupclip.SelectedIndexChanged cs.Open() cmd.CommandText = "select Supplier_Name,Address,Contact_No,Clip_Name from clip_supp where Supp_Id=@Supp_Id" cmd.Parameters.Add(New SqlParameter("@Supp_Id", SqlDbType.VarChar, 100)).Value = comboupclip.SelectedItem.ToString dr = cmd.ExecuteReader() dr.Read() If dr.HasRows Then txtupclp.Text = dr("Supplier_Name").ToString() txtupaddclip.Text = dr("Address").ToString() txtupconclip.Text = dr("Contact_No").ToString() txtupproclip.Text = dr("Clip_Name").ToString() End If dr.Close() cs.Close() cmd.Parameters.Clear() End Sub

BUSINESS MANAGEMENT SYSTEM

Page 95

Private Sub combodelpla_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles combodelpla.SelectedIndexChanged cs.Open() cmd.CommandText = "select Supplier_Name,Plastic_Raw_Name from Plastic_supp where Supp_Id=@Supp_Id" cmd.Parameters.Add(New SqlParameter("@Supp_Id", SqlDbType.VarChar, 100)).Value = combodelpla.SelectedItem.ToString dr = cmd.ExecuteReader() dr.Read() If dr.HasRows Then txtdelsupp.Text = dr("Supplier_Name").ToString() TextBox1.Text = dr("Plastic_Raw_Name").ToString() End If dr.Close() cs.Close() cmd.Parameters.Clear() End Sub Private Sub Combodelhook_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Combodelhook.SelectedIndexChanged cs.Open() cmd.CommandText = "select Supplier_Name,Hook_Name from Hook_supp where Supp_Id=@Supp_Id" cmd.Parameters.Add(New SqlParameter("@Supp_Id", SqlDbType.VarChar, 100)).Value = Combodelhook.SelectedItem.ToString dr = cmd.ExecuteReader() dr.Read() If dr.HasRows Then txtdelhsu.Text = dr("Supplier_Name").ToString() TextBox2.Text = dr("Hook_Name").ToString() End If dr.Close() cs.Close() cmd.Parameters.Clear() End Sub Private Sub LinkLabel2_LinkClicked(ByVal sender As System.Object, ByVal e As System.Windows.Forms.LinkLabelLinkClickedEventArgs) Handles LinkLabel2.LinkClicked index.Show() Me.Close() End Sub Private Sub LinkLabel1_LinkClicked(ByVal sender As System.Object, ByVal e As System.Windows.Forms.LinkLabelLinkClickedEventArgs) Handles LinkLabel1.LinkClicked Application.Exit() End Sub

BUSINESS MANAGEMENT SYSTEM

Page 96

SCREEN LAYOUT OF ADD RAW MATERIAL FORM :

BUSINESS MANAGEMENT SYSTEM

Page 97

CODE FOR ADD RAW MATERIAL FORM :

Imports System.Data.SqlClient Public Class rawmaterial Dim cs As New SqlConnection() Dim cmd As SqlCommand Dim dr As SqlDataReader Dim qsss As Decimal Dim bool As Boolean Public Sub adduser() Try Dim qs As String = "insert into raw_plastic values(@Supp_Id,@Supplier_Name,@Plastic_Raw_Name,@Received_Date,@Quantity,@ Cost_Per_Kgs,@Total_Cost,@Vat,@Tax,@Grand_Total)" Dim cmd As New SqlCommand(qs, cs) cmd = New SqlCommand(qs, cs) cmd.Parameters.Add(New SqlParameter("@Supp_Id", SqlDbType.NVarChar, 200)).Value = Comboaddraw.SelectedItem.ToString cmd.Parameters.Add(New SqlParameter("@Supplier_Name", SqlDbType.NVarChar, 100)).Value = txtcontact.Text cmd.Parameters.Add(New SqlParameter("@Plastic_Raw_Name", SqlDbType.NVarChar, 200)).Value = Comboaddpro.SelectedItem.ToString cmd.Parameters.Add(New SqlParameter("@Received_Date", SqlDbType.SmallDateTime)).Value = datereceived.Text cmd.Parameters.Add(New SqlParameter("@Quantity", SqlDbType.Decimal, 18, 2)).Value = txtqty.Text cmd.Parameters.Add(New SqlParameter("@Cost_Per_Kgs", SqlDbType.Decimal, 18, 2)).Value = txtperkgs.Text cmd.Parameters.Add(New SqlParameter("@Total_Cost", SqlDbType.Decimal, 18, 2)).Value = txtcost.Text cmd.Parameters.Add(New SqlParameter("@Vat", SqlDbType.Decimal, 18, 2)).Value = txtrawvat.Text cmd.Parameters.Add(New SqlParameter("@Tax", SqlDbType.Decimal, 18, 2)).Value = txtrawtax.Text cmd.Parameters.Add(New SqlParameter("@Grand_Total", SqlDbType.Decimal, 18, 2)).Value = txtrawgtotal.Text cs.Open() cmd.ExecuteNonQuery() MsgBox("Raw Material are added successfully") cs.Close() cmd.Parameters.Clear() Catch ex As Exception MsgBox(ex.Message) End Try End Sub Sub calculate_Raw() txtcost.Text = (Convert.ToDouble(txtqty.Text) * Convert.ToDouble(txtperkgs.Text)) Dim tax As Double tax = Format(((Convert.ToDouble((txtcost.Text)) * Convert.ToDouble(txtrawvat.Text)) / 100), "#.00") txtrawtax.Text = tax.ToString txtrawgtotal.Text = Format((Convert.ToDouble(Convert.ToDouble(txtcost.Text) + tax)), "#.00") End Sub Sub add_stock() Dim xx As Decimal

BUSINESS MANAGEMENT SYSTEM

Page 98

xx = 0 Dim qs As String = "insert into supplier values(@Product_Name,@Available_Quantity)" Dim cmd As New SqlCommand(qs, cs) cmd = New SqlCommand(qs, cs) cmd.Parameters.Add(New SqlParameter("@Product_Name", SqlDbType.NVarChar, 200)).Value = Comboaddpro.SelectedItem.ToString cmd.Parameters.Add(New SqlParameter("@Available_Quantity", SqlDbType.NVarChar, 200)).Value = xx cs.Open() cmd.ExecuteNonQuery() cs.Close() cmd.Parameters.Clear() End Sub Private Sub bttnsave_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bttnsave.Click If Comboaddraw.Text = "SELECT" Then MsgBox("Please Select Supplier Name") ElseIf Comboaddpro.Text = "SELECT" Then MsgBox("Select Raw Name") ElseIf txtqty.Text = "" Then MsgBox("Please Enter Quantity") ElseIf txtcost.Text = "" Then MsgBox("Please Enter Cost Of The Product") Else calculate_Raw() adduser() updateavailable_Stock() Dim da As New SqlDataAdapter("Select * From raw_Plastic Where Supp_Id='" & Comboaddraw.SelectedItem.ToString & "'And Received_Date='" & datereceived.Text & "'", cs) Dim ds As New DataSet Dim cmb As New SqlCommandBuilder(da) gridstock.Refresh() da.Fill(ds, "raw_Plastic") gridstock.DataSource = ds.Tables("raw_Plastic") clrall() loadingcombo() End If End Sub Private Sub rawmaterial_Disposed(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Disposed index.Show() Me.Close() End Sub Private Sub Form7_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load datereceived.ResetText() Tip1.SetToolTip(Comboaddraw, "Select Supplier Name") Tip1.SetToolTip(txtcontact, "Enter Contact No.") Tip1.SetToolTip(Comboaddpro, "Select Product Name") Tip1.SetToolTip(txtqty, "Enter Quantity") Tip1.SetToolTip(txtcost, "Enter Cost Of Product") 'Plastic Raw cs.Open()

BUSINESS MANAGEMENT SYSTEM

Page 99

Dim qs As String = "select distinct(Supp_Id) from Plastic_Supp order by Supp_Id" Dim cmd As New SqlCommand(qs, cs) dr = cmd.ExecuteReader() While dr.Read() Comboaddraw.Items.Add(dr("Supp_Id").ToString()) End While dr.Close() cs.Close() cs.Open() Dim qss As String = "select distinct(Plastic_Raw_Name) from Available_Raw order by Plastic_Raw_Name" Dim cmdd As New SqlCommand(qss, cs) dr = cmdd.ExecuteReader() While dr.Read() Comboaddpro.Items.Add(dr("Plastic_Raw_Name").ToString()) End While dr.Close() cs.Close() cs.Open() Dim qsss As String = "select distinct(Supp_Id) from Hook_Supp order by Supp_Id" Dim cmddd As New SqlCommand(qsss, cs) dr = cmddd.ExecuteReader() While dr.Read() combohooksupp.Items.Add(dr("Supp_Id").ToString()) End While dr.Close() cs.Close() cs.Open() Dim qssss As String = "select distinct(Hook_Name) from Available_Hook order by Hook_Name" Dim cmdddd As New SqlCommand(qssss, cs) dr = cmdddd.ExecuteReader() While dr.Read() combohookname.Items.Add(dr("Hook_Name").ToString()) End While dr.Close() cs.Close() cs.Open() Dim qsssss As String = "select distinct(Clip_Name) from Available_Clip order by Clip_Name" Dim cmddddd As New SqlCommand(qsssss, cs) dr = cmddddd.ExecuteReader() While dr.Read() comboclipname.Items.Add(dr("Clip_Name").ToString()) End While dr.Close() cs.Close() cs.Open() Dim qssssss As String = "select distinct(Supp_Id) from Clip_supp order by Supp_Id" Dim cmdddddd As New SqlCommand(qssssss, cs) dr = cmdddddd.ExecuteReader() While dr.Read() comboclipsupp.Items.Add(dr("Supp_Id").ToString())

BUSINESS MANAGEMENT SYSTEM

Page 100

End While dr.Close() cs.Close() cs.Open() Dim sq As String = "select distinct(Supp_Id) from Raw_Plastic order by Supp_Id" Dim cmb As New SqlCommand(sq, cs) dr = cmb.ExecuteReader() While dr.Read() combodelsupppla.Items.Add(dr("Supp_Id").ToString()) comboshowpla.Items.Add(dr("Supp_Id").ToString()) End While dr.Close() cs.Close() cs.Open() Dim sqq As String = "select distinct(Plastic_Raw_Name) from Raw_Plastic order by Plastic_Raw_Name" Dim cmbb As New SqlCommand(sqq, cs) dr = cmbb.ExecuteReader() While dr.Read() combodelpropla.Items.Add(dr("Plastic_Raw_Name").ToString()) End While dr.Close() cs.Close() cs.Open() Dim sqqq As String = "select distinct(Supp_Id) from Raw_Hook order by Supp_Id" Dim cmbbb As New SqlCommand(sqqq, cs) dr = cmbbb.ExecuteReader() While dr.Read() combodelsupphook.Items.Add(dr("Supp_Id").ToString()) ComboBox2.Items.Add(dr("Supp_Id").ToString()) End While dr.Close() cs.Close() cs.Open() Dim sqqqq As String = "select distinct(Hook_Name) from Raw_Hook order by Hook_Name" Dim cmbbbb As New SqlCommand(sqqqq, cs) dr = cmbbbb.ExecuteReader() While dr.Read() combodelhook.Items.Add(dr("Hook_Name").ToString()) End While dr.Close() cs.Close() cs.Open() Dim sqqqqq As String = "select distinct(Supp_Id) from Raw_clip order by Supp_Id" Dim cmbbbbb As New SqlCommand(sqqqqq, cs) dr = cmbbbbb.ExecuteReader() While dr.Read() combodelclipsupp.Items.Add(dr("Supp_Id").ToString()) ComboBox3.Items.Add(dr("Supp_Id").ToString()) End While dr.Close() cs.Close()

BUSINESS MANAGEMENT SYSTEM

Page 101

cs.Open() Dim sqqqqqq As String = "select distinct(Clip_Name) from Raw_clip order by Clip_Name" Dim cmbbbbbb As New SqlCommand(sqqqqqq, cs) dr = cmbbbbbb.ExecuteReader() While dr.Read() combodelclip.Items.Add(dr("Clip_Name").ToString()) End While dr.Close() cs.Close() End Sub cs.Open() cmd.CommandText = "select Available_Quantity from available_raw where Plastic_Raw_Name= '" & Comboaddpro.SelectedItem.ToString & "'" dr = cmd.ExecuteReader() While dr.Read() b = dr("Available_Quantity").ToString() End While dr.Close() cs.Close() c = a + b Dim qss As String = "update available_raw set Available_Quantity=@Available_Quantity where Plastic_Raw_Name=@Plastic_Raw_Name " cmd = New SqlCommand(qss, cs) cmd.Parameters.Add(New SqlParameter("@Plastic_Raw_Name", SqlDbType.NVarChar, 200)).Value = Comboaddpro.SelectedItem.ToString cmd.Parameters.Add(New SqlParameter("@Available_Quantity", SqlDbType.Decimal, 18, 2)).Value = c cs.Open() cmd.ExecuteNonQuery() cs.Close() cmd.Parameters.Clear() End Sub Private Sub Comboaddraw_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Comboaddraw.SelectedIndexChanged cs.Open() cmd.CommandText = "select Supplier_Name,Plastic_Raw_Name from Plastic_Supp where Supp_Id=@Supp_Id" cmd.Parameters.Add(New SqlParameter("@Supp_Id", SqlDbType.VarChar, 100)).Value = Comboaddraw.SelectedItem.ToString dr = cmd.ExecuteReader() dr.Read() If dr.HasRows Then txtcontact.Text = dr("Supplier_Name").ToString() Comboaddpro.Text = dr("Plastic_Raw_Name").ToString() End If dr.Close() cs.Close() cmd.Parameters.Clear() End Sub Private Sub bttnupdate_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) If combodelpropla.Text = "SELECT" Then MsgBox("Please Select Product Name")

BUSINESS MANAGEMENT SYSTEM

Page 102

ElseIf txtdelqtypla.Text = "" Then MsgBox("Please Enter Quantity") Else Dim da As New SqlDataAdapter("select Supplier_Name,Address,Contact_No,Product_Name,Quantity,Total_Cost,Received_ Date From supplier Where Supplier_Name='" & combodelsupppla.SelectedItem & "' And Received_Date= '" & datedelpla.Text & "'", cs) Dim ds As New DataSet Dim cmb As New SqlCommandBuilder(da) da.Fill(ds, "supplier") clrall() loadingcombo() End If End Sub Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bttnsearchpla.Click If combodelsupppla.Text = "SELECT" Then MsgBox("Please Select ID") ElseIf combodelpropla.Text = "SLECT" Then MsgBox("Please Select Product Name") Else cs.Open() Dim qs As String = "select * from raw_plastic where Supp_Id=@Supp_Id And Plastic_Raw_Name=@Plastic_Raw_Name And Received_Date=@Received_Date" Dim cmd As New SqlCommand(qs, cs) cmd.Parameters.Add(New SqlParameter("@Supp_Id", SqlDbType.VarChar, 200)).Value = combodelsupppla.SelectedItem.ToString cmd.Parameters.Add(New SqlParameter("@Plastic_Raw_Name", SqlDbType.VarChar, 200)).Value = combodelpropla.SelectedItem.ToString cmd.Parameters.Add(New SqlParameter("@Received_Date", SqlDbType.VarChar, 200)).Value = datedelpla.Text dr = cmd.ExecuteReader() dr.Read() If dr.HasRows Then txtdelqtypla.Text = dr("Quantity").ToString() ElseIf dr.Read = False Then MsgBox("Please Select Proper Date or Supplier Name") End If dr.Close() cs.Close() cmd.Parameters.Clear() Dim da As New SqlDataAdapter("select * From raw_plastic Where Supp_Id='" & combodelsupppla.SelectedItem & "' And Received_Date= '" & datedelpla.Text & "'", cs) Dim ds As New DataSet Dim cmb As New SqlCommandBuilder(da) gridremovekg.Refresh() da.Fill(ds, "raw_plastic") gridremovekg.DataSource = ds.Tables("raw_plastic") bttndelpla.Enabled = True End If End Sub Private Sub bttnshowallemp_sal_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bttnshowallemp_sal.Click Dim da As New SqlDataAdapter("select * From raw_plastic Order By Received_Date DESC", cs)

BUSINESS MANAGEMENT SYSTEM

Page 103

Dim ds As New DataSet Dim cmb As New SqlCommandBuilder(da) gridstock.Refresh() da.Fill(ds, "raw_plastic") gridstock.DataSource = ds.Tables("raw_plastic") End Sub Private Sub bttndel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Dim ups As String ups = "delete from Supplier where (Supplier_Name = @Supplier_Name and received_Date=@received_Date)" cmd = New SqlCommand(ups, cs) cmd.Parameters.Add(New SqlParameter("@Supplier_Name", SqlDbType.NVarChar, 200)).Value = combodelsupppla.SelectedItem.ToString cmd.Parameters.Add(New SqlParameter("@received_Date", SqlDbType.SmallDateTime)).Value = datedelpla.Text cs.Open() cmd.ExecuteNonQuery() dr = cmd.ExecuteReader() dr.Close() MsgBox("Remove Raw Material successfully") cs.Close() cmd.Parameters.Clear() cs.Open() cmd.CommandText = "select Available_Quantity from available_Raw where Product_Name= '" & combodelpropla.SelectedItem.ToString & "'" dr = cmd.ExecuteReader() While dr.Read() y = dr("Available_Quantity").ToString() End While dr.Close() cs.Close() Dim qss As String = "update available_Raw set Product_Name=@s,Available_Quantity=@z where Product_Name=@s " cmd = New SqlCommand(qss, cs) cmd.Parameters.Add(New SqlParameter("@s", SqlDbType.NVarChar, 200)).Value cmd.Parameters.Add(New SqlParameter("@z", SqlDbType.Decimal, 18, 2)).Value cs.Open() cmd.ExecuteNonQuery() cs.Close() clrall() combodelsupppla.Items.Clear() loadingcombo() End Sub Sub loadingcombo() combodelsupppla.Items.Clear() comboshowpla.Items.Clear() cs.Open() Dim sq As String = "select distinct(Supp_Id) from Raw_Plastic order by Supp_Id" Dim cmb As New SqlCommand(sq, cs) dr = cmb.ExecuteReader() While dr.Read() combodelsupppla.Items.Add(dr("Supp_Id").ToString()) comboshowpla.Items.Add(dr("Supp_Id").ToString()) End While

BUSINESS MANAGEMENT SYSTEM

Page 104

dr.Close() cs.Close() combodelpropla.Items.Clear() cs.Open() Dim sqq As String = "select distinct(Plastic_Raw_Name) from Raw_Plastic order by Plastic_Raw_Name" Dim cmbb As New SqlCommand(sqq, cs) dr = cmbb.ExecuteReader() While dr.Read() combodelpropla.Items.Add(dr("Plastic_Raw_Name").ToString()) End While dr.Close() cs.Close() 'Remove Hook combodelsupphook.Items.Clear() ComboBox2.Items.Clear() cs.Open() Dim sqqq As String = "select distinct(Supp_Id) from Raw_Hook order by Supp_Id" Dim cmbbb As New SqlCommand(sqqq, cs) dr = cmbbb.ExecuteReader() While dr.Read() combodelsupphook.Items.Add(dr("Supp_Id").ToString()) ComboBox2.Items.Add(dr("Supp_Id").ToString()) End While dr.Close() cs.Close() combodelhook.Items.Clear() cs.Open() Dim sqqqq As String = "select distinct(Hook_Name) from Raw_Hook order by Hook_Name" Dim cmbbbb As New SqlCommand(sqqqq, cs) dr = cmbbbb.ExecuteReader() While dr.Read() combodelhook.Items.Add(dr("Hook_Name").ToString()) End While dr.Close() cs.Close() 'Remove Clip combodelclipsupp.Items.Clear() ComboBox3.Items.Clear() cs.Open() Dim sqqqqq As String = "select distinct(Supp_Id) from Raw_clip order by Supp_Id" Dim cmbbbbb As New SqlCommand(sqqqqq, cs) dr = cmbbbbb.ExecuteReader() While dr.Read() combodelclipsupp.Items.Add(dr("Supp_Id").ToString()) ComboBox3.Items.Add(dr("Supp_Id").ToString()) End While dr.Close() cs.Close() combodelclip.Items.Clear() cs.Open() Dim sqqqqqq As String = "select distinct(Clip_Name) from Raw_clip order by Clip_Name"

BUSINESS MANAGEMENT SYSTEM

Page 105

Dim cmbbbbbb As New SqlCommand(sqqqqqq, cs) dr = cmbbbbbb.ExecuteReader() While dr.Read() combodelclip.Items.Add(dr("Clip_Name").ToString()) End While dr.Close() cs.Close() End Sub Sub clrall() 'Plastic Raw Comboaddraw.ResetText() Comboaddraw.Text = "SELECT" txtcontact.Text = "" datereceived.ResetText() Comboaddpro.ResetText() Comboaddpro.Text = "SELECT" txtperkgs.Text = "" bttnsave.Enabled = Fals 'Hook Raw combohooksupp.ResetText() combohooksupp.Text = "SELECT" txthookcon.Text = "" datehook.ResetText() combohookname.ResetText() combohookname.Text = "SELECT" txthookqty.Text = "" txthookqty.Text = 0.0 txthooktax.Text = "" txthooktax.Text = 0.0 txthookgrand.Text = "" txthookgrand.Text = 0.0 bttnhook.Enabled = False combodelpropla.ResetText() combodelpropla.Text = "SELECT" datedelpla.ResetText() txtdelqtypla.Text = "" bttndelpla.Enabled = False End Sub Private Sub txtproname_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtproname.SelectedIndexChanged clrall() bttndelhook.Enabled = False bttndelpla.Enabled = False gridstock.Columns.Clear() griddelhook.Columns.Clear() gridremovekg.Columns.Clear() griddelclip.Columns.Clear() gridpla1.Columns.Clear() gridclipsupp.Columns.Clear() loadingcombo() End Sub Private Sub LinkLabel2_LinkClicked(ByVal sender As System.Object, ByVal e As System.Windows.Forms.LinkLabelLinkClickedEventArgs) Handles LinkLabel2.LinkClicked index.Show() Me.Close() End Sub

BUSINESS MANAGEMENT SYSTEM

Page 106

Private Sub LinkLabel1_LinkClicked(ByVal sender As System.Object, ByVal e As System.Windows.Forms.LinkLabelLinkClickedEventArgs) Handles LinkLabel1.LinkClicked Application.Exit() End Sub Private Sub bttncal_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bttncal.Click If Comboaddpro.Text = "SELECT" Then MsgBox("Select Product Name") ElseIf txtqty.Text = "" Then MsgBox("Enter Quantity") ElseIf txtperkgs.Text = "" Then MsgBox("Enter Cost") ElseIf txtrawvat.Text = "" Then MsgBox("Enter Vat") Else calculate_Raw() bttnsave.Enabled = True End If End Sub Private Sub comborawpcs_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles combohooksupp.SelectedIndexChanged cs.Open() cmd.CommandText = "select Supplier_Name,Hook_Name from Hook_Supp where Supp_Id=@Supp_Id" cmd.Parameters.Add(New SqlParameter("@Supp_Id", SqlDbType.VarChar, 100)).Value = combohooksupp.SelectedItem.ToString dr = cmd.ExecuteReader() dr.Read() If dr.HasRows Then txthookcon.Text = dr("Supplier_Name").ToString() combohookname.Text = dr("Hook_Name").ToString() End If dr.Close() cs.Close() cmd.Parameters.Clear() End Sub Private Sub Button9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button9.Click If combohookname.Text = "SELECT" Then MsgBox("Select Raw Name") ElseIf txthookqty.Text = "" Then MsgBox("Enter Quantity") ElseIf txthookcostper.Text = "" Then MsgBox("Enter Cost") ElseIf txthookvat.Text = "" Then MsgBox("Enter Vat") Else calculate_pcs() bttnhook.Enabled = True End If End Sub Sub calculate_pcs() txthooktotal.Text = (Convert.ToDouble(txthookqty.Text) * Convert.ToDouble(txthookcostper.Text)) Dim tax As Double

BUSINESS MANAGEMENT SYSTEM

Page 107

tax = Format(((Convert.ToDouble((txthooktotal.Text)) * Convert.ToDouble(txthookvat.Text)) / 100), "#.00") txthooktax.Text = tax.ToString txthookgrand.Text = Format((Convert.ToDouble(Convert.ToDouble(txthooktotal.Text) + tax)), "#.00") End Sub Private Sub bttnpcs_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bttnhook.Click If combohooksupp.Text = "SELECT" Then MsgBox("Please Select Supplier Name") ElseIf combohookname.Text = "SELECT" Then MsgBox("Select Raw Name") ElseIf txthookqty.Text = "" Then MsgBox("Please Enter Quantity") ElseIf txthookcostper.Text = "" Then MsgBox("Please Enter Cost Of The Product") Else calculate_pcs() Save_Raw_Pcs() update_Rawpcs() Dim da As New SqlDataAdapter("Select * From raw_hook Where Supp_Id='" & combohooksupp.SelectedItem & "'And Received_Date='" & datehook.Text & "'", cs) Dim ds As New DataSet Dim cmb As New SqlCommandBuilder(da) gridpcs.Refresh() da.Fill(ds, "raw_hook") gridpcs.DataSource = ds.Tables("raw_hook") clrall() loadingcombo() End If End Sub cs.Open() cmd.CommandText = "select Available_Quantity from available_hook where Hook_Name= '" & combohookname.SelectedItem.ToString & "'" dr = cmd.ExecuteReader() While dr.Read() b = dr("Available_Quantity").ToString() End While dr.Close() cs.Close() c = a + b Dim qss As String = "update available_hook set Available_Quantity=@Available_Quantity where Hook_Name=@Hook_Name" cmd = New SqlCommand(qss, cs) cmd.Parameters.Add(New SqlParameter("@Hook_Name", SqlDbType.NVarChar, 200)).Value = combohookname.SelectedItem.ToString cmd.Parameters.Add(New SqlParameter("@Available_Quantity", SqlDbType.Decimal, 18, 2)).Value = c cs.Open() cmd.ExecuteNonQuery() cs.Close() cmd.Parameters.Clear() End Sub Sub Save_Raw_Pcs()

BUSINESS MANAGEMENT SYSTEM

Page 108

Dim qs As String = "insert into raw_hook values(@Supp_Id,@Supplier_Name,@Hook_Name,@Received_Date,@Quantity,@Cost_Pe r_Pcs,@Total_Cost,@Vat,@Tax,@Grand_Total)" Dim cmd As New SqlCommand(qs, cs) cmd = New SqlCommand(qs, cs) cmd.Parameters.Add(New SqlParameter("@Supp_Id", SqlDbType.NVarChar, 200)).Value = combohooksupp.SelectedItem.ToString cmd.Parameters.Add(New SqlParameter("@Supplier_Name", SqlDbType.NVarChar, 100)).Value = txthookcon.Text cmd.Parameters.Add(New SqlParameter("@Hook_Name", SqlDbType.NVarChar, 200)).Value = combohookname.SelectedItem.ToString cmd.Parameters.Add(New SqlParameter("@Received_Date", SqlDbType.SmallDateTime)).Value = datehook.Text cmd.Parameters.Add(New SqlParameter("@Quantity", SqlDbType.Decimal, 18, 2)).Value = txthookqty.Text cmd.Parameters.Add(New SqlParameter("@Cost_Per_Pcs", SqlDbType.Decimal, 18, 2)).Value = txthookcostper.Text cmd.Parameters.Add(New SqlParameter("@Total_Cost", SqlDbType.Decimal, 18, 2)).Value = txthooktotal.Text cmd.Parameters.Add(New SqlParameter("@Vat", SqlDbType.Decimal, 18, 2)).Value = txthookvat.Text cmd.Parameters.Add(New SqlParameter("@Tax", SqlDbType.Decimal, 18, 2)).Value = txthooktax.Text cmd.Parameters.Add(New SqlParameter("@Grand_Total", SqlDbType.Decimal, 18, 2)).Value = txthookgrand.Text cs.Open() cmd.ExecuteNonQuery() MsgBox("Raw Material are added successfully") cs.Close() cmd.Parameters.Clear() End Sub Private Sub bttnshowpcs_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bttnshowpcs.Click Dim da As New SqlDataAdapter("Select * From raw_Hook Order By Received_Date DESC", cs) Dim ds As New DataSet Dim cmb As New SqlCommandBuilder(da) gridpcs.Refresh() da.Fill(ds, "raw_Hook") gridpcs.DataSource = ds.Tables("raw_Hook") End Sub Private Sub bttnkgdel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bttndelpla.Click Dim ups As String ups = "delete from raw_plastic where (Supp_Id = @Supp_Id and Plastic_Raw_Name=@Plastic_Raw_Name and received_Date=@received_Date)" cmd = New SqlCommand(ups, cs) cmd.Parameters.Add(New SqlParameter("@Supp_Id", SqlDbType.NVarChar, 200)).Value = combodelsupppla.SelectedItem.ToString cmd.Parameters.Add(New SqlParameter("@Plastic_Raw_Name", SqlDbType.NVarChar, 200)).Value = combodelpropla.SelectedItem.ToString cmd.Parameters.Add(New SqlParameter("@received_Date", SqlDbType.SmallDateTime)).Value = datedelpla.Text cs.Open() cmd.ExecuteNonQuery() dr = cmd.ExecuteReader() dr.Close() MsgBox("Remove Raw Material successfully") cs.Close()

BUSINESS MANAGEMENT SYSTEM

Page 109

cmd.Parameters.Clear() cs.Open() cmd.CommandText = "select Available_Quantity from available_Raw where Plastic_Raw_Name= '" & combodelpropla.SelectedItem.ToString & "'" dr = cmd.ExecuteReader() While dr.Read() y = dr("Available_Quantity").ToString() End While dr.Close() cs.Close() x = y - z Dim qss As String = "update available_Raw set Available_Quantity=@Available_Quantity where Plastic_Raw_Name=@Plastic_Raw_Name" cmd = New SqlCommand(qss, cs) cmd.Parameters.Add(New SqlParameter("@Plastic_Raw_Name", SqlDbType.NVarChar, 200)).Value = combodelpropla.SelectedItem.ToString cmd.Parameters.Add(New SqlParameter("@Available_Quantity", SqlDbType.Decimal, 18, 2)).Value = x cs.Open() cmd.ExecuteNonQuery() cs.Close() cmd.Parameters.Clear() clrall() loadingcombo() End Sub Private Sub Button11_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button11.Click If combodelsupphook.Text = "SELECT" Then MsgBox("Please Select Supplier ID") ElseIf combodelhook.Text = "SLECT" Then MsgBox("Please Select Product Name") Else cs.Open() Dim qs As String = "select * from raw_Hook where Supp_Id=@Supp_Id and Hook_Name=@Hook_Name And Received_Date=@Received_Date" Dim cmd As New SqlCommand(qs, cs) cmd.Parameters.Add(New SqlParameter("@Supp_Id", SqlDbType.VarChar, 200)).Value = combodelsupphook.SelectedItem.ToString cmd.Parameters.Add(New SqlParameter("@Hook_Name", SqlDbType.VarChar, 200)).Value = combodelhook.SelectedItem.ToString cmd.Parameters.Add(New SqlParameter("@Received_Date", SqlDbType.VarChar, 200)).Value = datedelhook.Text dr = cmd.ExecuteReader() dr.Read() If dr.HasRows Then txtdelqtyhook.Text = dr("Quantity").ToString() ElseIf dr.Read = False Then MsgBox("Please Select Proper Date or Supplier Name") Else End If bttndelhook.Enabled = True dr.Close() cs.Close() cmd.Parameters.Clear()

BUSINESS MANAGEMENT SYSTEM

Page 110

Dim da As New SqlDataAdapter("select * From raw_Hook Where Supp_Id='" & combodelsupphook.SelectedItem & "' And Received_Date= '" & datedelhook.Text & "'", cs) Dim ds As New DataSet Dim cmb As New SqlCommandBuilder(da) griddelhook.Refresh() da.Fill(ds, "raw_Hook") griddelhook.DataSource = ds.Tables("raw_Hook") End If End Sub Private Sub Button10_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bttndelhook.Click Dim ups As String ups = "delete from raw_Hook where (Supp_Id = @Supp_Id and Hook_Name=@Hook_Name and received_Date=@received_Date)" cmd = New SqlCommand(ups, cs) cmd.Parameters.Add(New SqlParameter("@Supp_Id", SqlDbType.NVarChar, 200)).Value = combodelsupphook.SelectedItem.ToString cmd.Parameters.Add(New SqlParameter("@Hook_Name", SqlDbType.NVarChar, 200)).Value = combodelhook.SelectedItem.ToString cmd.Parameters.Add(New SqlParameter("@received_Date", SqlDbType.SmallDateTime)).Value = datedelhook.Text cs.Open() cmd.ExecuteNonQuery() dr = cmd.ExecuteReader() dr.Close() MsgBox("Remove Raw Material successfully") cs.Close() cmd.Parameters.Clear() cs.Open() cmd.CommandText = "select Available_Quantity from available_Hook where Hook_Name= '" & combodelhook.SelectedItem.ToString & "'" dr = cmd.ExecuteReader() While dr.Read() y = dr("Available_Quantity").ToString() End While dr.Close() cs.Close() x = y - z Dim qss As String = "update available_Hook set Available_Quantity=@Available_Quantity where Hook_Name=@Hook_Name" cmd = New SqlCommand(qss, cs) cmd.Parameters.Add(New SqlParameter("@Hook_Name", SqlDbType.NVarChar, 200)).Value = combodelhook.SelectedItem.ToString cmd.Parameters.Add(New SqlParameter("@Available_Quantity", SqlDbType.Decimal, 18, 2)).Value = x cs.Open() cmd.ExecuteNonQuery() cs.Close() cmd.Parameters.Clear() clrall() loadingcombo() End Sub Private Sub Button8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button8.Click If comboclipname.Text = "SELECT" Then MsgBox("Select Raw Name") ElseIf txtclipqty.Text = "" Then MsgBox("Enter Quantity")

BUSINESS MANAGEMENT SYSTEM

Page 111

ElseIf txtclipcostper.Text = "" Then MsgBox("Enter Cost") ElseIf txtclipvat.Text = "" Then MsgBox("Enter Vat") Else calculate_clip() bttnclip.Enabled = True End If End Sub Private Sub bttnclip_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bttnclip.Click If comboclipsupp.Text = "SELECT" Then MsgBox("Please Select Supplier Name") ElseIf comboclipname.Text = "SELECT" Then MsgBox("Select Raw Name") ElseIf txtclipqty.Text = "" Then MsgBox("Please Enter Quantity") ElseIf txtclipcostper.Text = "" Then MsgBox("Please Enter Cost Of The Clip") Else calculate_clip() save_Raw_Clip() update_Raw_Clip() Dim da As New SqlDataAdapter("Select * From raw_clip Where Supp_Id='" & comboclipsupp.SelectedItem & "'And Received_Date='" & dateclip.Text & "'", cs) Dim ds As New DataSet Dim cmb As New SqlCommandBuilder(da) gridclipsupp.Refresh() da.Fill(ds, "raw_clip") gridclipsupp.DataSource = ds.Tables("raw_clip") clrall() loadingcombo() End If End Sub cs.Open() cmd.CommandText = "select Available_Quantity from available_clip where Clip_Name= '" & comboclipname.SelectedItem.ToString & "'" dr = cmd.ExecuteReader() While dr.Read() b = dr("Available_Quantity").ToString() End While dr.Close() cs.Close() c = a + b Dim qss As String = "update available_clip set Available_Quantity=@Available_Quantity where Clip_Name=@Clip_Name" cmd = New SqlCommand(qss, cs) cmd.Parameters.Add(New SqlParameter("@Clip_Name", SqlDbType.NVarChar, 200)).Value = comboclipname.SelectedItem.ToString cmd.Parameters.Add(New SqlParameter("@Available_Quantity", SqlDbType.Decimal, 18, 2)).Value = c cs.Open() cmd.ExecuteNonQuery() cs.Close() cmd.Parameters.Clear() End Sub

BUSINESS MANAGEMENT SYSTEM

Page 112

Private Sub comboclipsupp_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles comboclipsupp.SelectedIndexChanged cs.Open() cmd.CommandText = "select Supplier_Name,Clip_Name from clip_Supp where Supp_Id=@Supp_Id" cmd.Parameters.Add(New SqlParameter("@Supp_Id", SqlDbType.VarChar, 100)).Value = comboclipsupp.SelectedItem.ToString dr = cmd.ExecuteReader() dr.Read() If dr.HasRows Then txtclipcon.Text = dr("Supplier_Name").ToString() comboclipname.Text = dr("Clip_Name").ToString() End If dr.Close() cs.Close() cmd.Parameters.Clear() End Sub Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click Dim da As New SqlDataAdapter("Select * From raw_Clip Order By Received_Date DESC", cs) Dim ds As New DataSet Dim cmb As New SqlCommandBuilder(da) gridclipsupp.Refresh() da.Fill(ds, "raw_Clip") gridclipsupp.DataSource = ds.Tables("raw_Clip") End Sub Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click If combodelclipsupp.Text = "SELECT" Then MsgBox("Please Select Supplier ID") ElseIf combodelclip.Text = "SLECT" Then MsgBox("Please Select Product Name") Else cs.Open() Dim qs As String = "select * from raw_clip where Supp_Id=@Supp_Id and clip_Name=@clip_Name And Received_Date=@Received_Date" Dim cmd As New SqlCommand(qs, cs) cmd.Parameters.Add(New SqlParameter("@Supp_Id", SqlDbType.VarChar, 200)).Value = combodelclipsupp.SelectedItem.ToString cmd.Parameters.Add(New SqlParameter("@clip_Name", SqlDbType.VarChar, 200)).Value = combodelclip.SelectedItem.ToString cmd.Parameters.Add(New SqlParameter("@Received_Date", SqlDbType.VarChar, 200)).Value = datedelclip.Text dr = cmd.ExecuteReader() dr.Read() If dr.HasRows Then txtdelqtyclip.Text = dr("Quantity").ToString() ElseIf dr.Read = False Then MsgBox("Please Select Proper Date or Supplier Name") Else End If bttndelclip.Enabled = True dr.Close() cs.Close() cmd.Parameters.Clear()

BUSINESS MANAGEMENT SYSTEM

Page 113

Dim da As New SqlDataAdapter("select * From raw_clip Where Supp_Id='" & combodelclipsupp.SelectedItem & "' And Received_Date= '" & datedelclip.Text & "'", cs) Dim ds As New DataSet Dim cmb As New SqlCommandBuilder(da) griddelclip.Refresh() da.Fill(ds, "raw_clip") griddelclip.DataSource = ds.Tables("raw_clip") End If End Sub Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click Dim da As New SqlDataAdapter("Select * From Available_Raw Order By Plastic_Raw_Name ", cs) Dim ds As New DataSet Dim cmb As New SqlCommandBuilder(da) gridplasavai.Refresh() da.Fill(ds, "Available_Raw") gridplasavai.DataSource = ds.Tables("Available_Raw") Dim daa As New SqlDataAdapter("Select * From Available_Hook Order By Hook_Name ", cs) Dim dss As New DataSet Dim cmbb As New SqlCommandBuilder(daa) gridhookavai.Refresh() daa.Fill(dss, "Available_Hook") gridhookavai.DataSource = dss.Tables("Available_Hook") Dim daaa As New SqlDataAdapter("Select * From Available_Clip Order By Clip_Name ", cs) Dim dsss As New DataSet Dim cmbbb As New SqlCommandBuilder(daaa) gridclipavail.Refresh() daaa.Fill(dsss, "Available_Clip") gridclipavail.DataSource = dsss.Tables("Available_Clip") End Sub Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles comboshowpla.SelectedIndexChanged Dim da As New SqlDataAdapter("Select Sum(Total_Cost)As Total,Sum(Tax)as Tax,Sum(Grand_Total)As G_Total from Raw_Plastic where Supp_Id='" & comboshowpla.SelectedItem.ToString & "'", cs) Dim ds As New DataSet Dim cmb As New SqlCommandBuilder(da) gridpla1.Refresh() da.Fill(ds, "Raw_Plastic") gridpla1.DataSource = ds.Tables("Raw_Plastic") plaSupp() End Sub Sub plaSupp() Dim da As New SqlDataAdapter("Select (Plastic_Raw_Name)As Raw, (Received_Date)As Date, (Quantity)As Qty,(Total_Cost)As Total,Tax, (Grand_Total)As G_Total from Raw_Plastic where Supp_Id='" & comboshowpla.SelectedItem.ToString & "'", cs) Dim ds As New DataSet Dim cmb As New SqlCommandBuilder(da) gridpla2.Refresh() da.Fill(ds, "Raw_Plastic")

BUSINESS MANAGEMENT SYSTEM

Page 114

gridpla2.DataSource = ds.Tables("Raw_Plastic") End Sub Private Sub CheckBox1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox1.CheckedChanged If CheckBox1.Checked = True Then comboshowpla.Enabled = True Button1.Enabled = False Else comboshowpla.Enabled = False gridpla1.Columns.Clear() gridpla2.Columns.Clear() Button1.Enabled = True End If End Sub Private Sub Button1_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim da As New SqlDataAdapter("Select Supp_Id, Supplier_Name,Sum(Total_Cost)As Total,Sum(Tax)as Tax,Sum(Grand_Total)As G_Total from Raw_Plastic where Received_Date" & " Between '" & date1.Text & "' AND '" & date2.Text & "'Group By Supp_Id,Supplier_Name", cs) Dim ds As New DataSet Dim cmb As New SqlCommandBuilder(da) gridpla1.Refresh() da.Fill(ds, "Raw_Plastic") gridpla1.DataSource = ds.Tables("Raw_Plastic") plasuppdatewise() End Sub Sub plasuppdatewise() Dim da As New SqlDataAdapter("Select (Plastic_Raw_Name)As Raw, (Received_Date)As Date, (Quantity)As Qty,(Total_Cost)As Total,Tax, (Grand_Total)As G_Total from Raw_Plastic where Received_Date" & " Between '" & date1.Text & "' AND '" & date2.Text & "'Order By Received_Date", cs) Dim ds As New DataSet Dim cmb As New SqlCommandBuilder(da) gridpla2.Refresh() da.Fill(ds, "Raw_Plastic") gridpla2.DataSource = ds.Tables("Raw_Plastic") End Sub Private Sub CheckBox2_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox2.CheckedChanged If CheckBox2.Checked = True Then ComboBox2.Enabled = True Button2.Enabled = False Else ComboBox2.Enabled = False DataGridView3.Columns.Clear() DataGridView2.Columns.Clear() Button2.Enabled = True End If End Sub Private Sub ComboBox2_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox2.SelectedIndexChanged Dim da As New SqlDataAdapter("Select Sum(Total_Cost)As Total,Sum(Tax)as Tax,Sum(Grand_Total)As G_Total from Raw_Hook where Supp_Id='" & ComboBox2.SelectedItem.ToString & "'", cs)

BUSINESS MANAGEMENT SYSTEM

Page 115

Dim ds As New DataSet Dim cmb As New SqlCommandBuilder(da) DataGridView3.Refresh() da.Fill(ds, "Raw_Hook") DataGridView3.DataSource = ds.Tables("Raw_Hook") showhooksupp() End Sub Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click Dim da As New SqlDataAdapter("Select Supp_Id,Supplier_Name,Sum(Total_Cost)As Total,Sum(Tax)as Tax,Sum(Grand_Total)As G_Total from Raw_Hook where Received_Date" & " Between '" & DateTimePicker1.Text & "' AND '" & DateTimePicker2.Text & "'Group By Supp_Id,Supplier_Name", cs) Dim ds As New DataSet Dim cmb As New SqlCommandBuilder(da) DataGridView3.Refresh() da.Fill(ds, "Raw_Hook") DataGridView3.DataSource = ds.Tables("Raw_Hook") showhooksupp_datewise() End Sub Sub showhooksupp_datewise() Dim da As New SqlDataAdapter("Select Hook_Name,(Received_Date)As Date, (Quantity)As Qty,(Total_Cost)As Total,Tax,(Grand_Total)As G_Total from Raw_Hook where Received_Date" & " Between '" & DateTimePicker1.Text & "' AND '" & DateTimePicker2.Text & "'Order By Received_Date", cs) Dim ds As New DataSet Dim cmb As New SqlCommandBuilder(da) DataGridView2.Refresh() da.Fill(ds, "Raw_Hook") DataGridView2.DataSource = ds.Tables("Raw_Hook") End Sub Private Sub CheckBox3_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox3.CheckedChanged If CheckBox3.Checked = True Then ComboBox3.Enabled = True Button4.Enabled = False Else ComboBox3.Enabled = False DataGridView8.Columns.Clear() DataGridView7.Columns.Clear() Button4.Enabled = True End If End Sub Sub showclipsupp() Dim da As New SqlDataAdapter("Select Clip_Name,(Received_Date)As Date, (Quantity)As Qty,(Total_Cost)As Total,Tax,(Grand_Total)As G_Total from Raw_Clip where Supp_Id='" & ComboBox3.SelectedItem.ToString & "'", cs) Dim ds As New DataSet Dim cmb As New SqlCommandBuilder(da) DataGridView7.Refresh() da.Fill(ds, "Raw_Clip") DataGridView7.DataSource = ds.Tables("Raw_Clip") End Sub Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click

BUSINESS MANAGEMENT SYSTEM

Page 116

Dim da As New SqlDataAdapter("Select Supp_Id,Supplier_Name,Sum(Total_Cost)As Total,Sum(Tax)as Tax,Sum(Grand_Total)As G_Total from Raw_Clip where Received_Date" & " Between '" & DateTimePicker3.Text & "' AND '" & DateTimePicker4.Text & "'Group By Supp_Id,Supplier_Name", cs) Dim ds As New DataSet Dim cmb As New SqlCommandBuilder(da) DataGridView8.Refresh() da.Fill(ds, "Raw_Clip") DataGridView8.DataSource = ds.Tables("Raw_Clip") showclip_datewise() End Sub Sub showclip_datewise() Dim da As New SqlDataAdapter("Select Clip_Name,(Received_Date)As Date, (Quantity)As Qty,(Total_Cost)As Total,Tax,(Grand_Total)As G_Total from Raw_Clip where Received_Date" & " Between '" & DateTimePicker3.Text & "' AND '" & DateTimePicker4.Text & "'Order By Received_Date", cs) Dim ds As New DataSet Dim cmb As New SqlCommandBuilder(da) DataGridView7.Refresh() da.Fill(ds, "Raw_Clip") DataGridView7.DataSource = ds.Tables("Raw_Clip") End Sub

SCREEN LAYOUT OF ADD INHOUSE PRODUCT FORM :

BUSINESS MANAGEMENT SYSTEM Page 117

CODE FOR ADD INHOUSE PRODUCT FORM :

Imports System.Data.SqlClient Imports System.Windows.Forms.RadioButton Public Class inhouseproduct

BUSINESS MANAGEMENT SYSTEM

Page 118

Dim Dim Dim Dim Dim

cs As New SqlConnection() cmd As SqlCommand dr As SqlDataReader gg As String bool As Boolean

Public Sub addinhouseproduct() Dim qs As String = "insert into inhouse values(@Emp_Id,@Hanger_Name,@Hanger_Qty,@Cavity,@Date_Of_Production,@Ship,@ Wt_Of_One_Hanger,@Plastic_Raw_Name,@Plastic_Raw_Kgs,@Hook_Name,@Hook_Qty,@C lip_Name,@Clip_Qty)" Dim cmd As New SqlCommand(qs, cs) cmd = New SqlCommand(qs, cs) cmd.Parameters.Add(New SqlParameter("@Emp_Id", SqlDbType.NVarChar, 200)).Value = Comboempid.SelectedItem.ToString cmd.Parameters.Add(New SqlParameter("@Hanger_Name", SqlDbType.NVarChar, 200)).Value = Comboaddpro.Text cmd.Parameters.Add(New SqlParameter("@Hanger_Qty", SqlDbType.Decimal, 18, 2)).Value = txtqty.Text cmd.Parameters.Add(New SqlParameter("@Cavity", SqlDbType.Decimal, 18, 2)).Value = txtcavity.Text cmd.Parameters.Add(New SqlParameter("@Date_Of_Production", SqlDbType.SmallDateTime)).Value = dateofproduct.Text cmd.Parameters.Add(New SqlParameter("@Ship", SqlDbType.NVarChar, 200)).Value = Comboship.Text cmd.Parameters.Add(New SqlParameter("@Wt_Of_One_Hanger", SqlDbType.Decimal, 18, 2)).Value = txtwt.Text cmd.Parameters.Add(New SqlParameter("@Plastic_Raw_Name", SqlDbType.NVarChar, 200)).Value = comboraw.SelectedItem.ToString cmd.Parameters.Add(New SqlParameter("@Plastic_Raw_Kgs", SqlDbType.Decimal, 18, 2)).Value = txtfindbal.Text cmd.Parameters.Add(New SqlParameter("@Hook_Name", SqlDbType.NVarChar, 200)).Value = combohook.Text.ToString cmd.Parameters.Add(New SqlParameter("@Hook_Qty", SqlDbType.Decimal, 18, 2)).Value = txthookqty.Text cmd.Parameters.Add(New SqlParameter("@Clip_Name", SqlDbType.NVarChar, 200)).Value = comboclip.Text.ToString cmd.Parameters.Add(New SqlParameter("@Clip_Qty", SqlDbType.Decimal, 18, 2)).Value = txtclipqty.Text cs.Open() cmd.ExecuteNonQuery() MsgBox("In-House Product are added successfully") cs.Close() cmd.Parameters.Clear() cs.Open() cmd.CommandText = "select Available_Quantity from available where Hanger_Name= '" & Comboaddpro.SelectedItem.ToString & "'" dr = cmd.ExecuteReader() While dr.Read() b = dr("Available_Quantity").ToString() End While dr.Close() cs.Close() c = a + b Dim qss As String = "update available set Available_Quantity=@Available_Quantity where Hanger_Name=@Hanger_Name " cmd = New SqlCommand(qss, cs)

BUSINESS MANAGEMENT SYSTEM

Page 119

cmd.Parameters.Add(New SqlParameter("@Hanger_Name", SqlDbType.NVarChar, 200)).Value = Comboaddpro.SelectedItem.ToString cmd.Parameters.Add(New SqlParameter("@Available_Quantity", SqlDbType.Decimal, 18, 2)).Value = c cs.Open() cmd.ExecuteNonQuery() cs.Close() cmd.Parameters.Clear() End Sub Private Sub inhouseproduct_Disposed(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Disposed index.Show() Me.Close() End Sub Private Sub Form8_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load 'Emp_Id cs.Open() cmd.CommandText = "select Distinct(Emp_Id) from emp" dr = cmd.ExecuteReader() While dr.Read() Comboempid.Items.Add(dr("Emp_Id").ToString()) End While dr.Close() cs.Close() 'comborawname cs.Open() cmd.CommandText = "select Distinct(Plastic_Raw_Name) from Available_Raw" dr = cmd.ExecuteReader() While dr.Read() comboraw.Items.Add(dr("Plastic_Raw_Name").ToString()) End While dr.Close() cs.Close() 'Avail_Hook cs.Open() cmd.CommandText = "select Distinct(Hook_Name) from Available_Hook" dr = cmd.ExecuteReader() While dr.Read() combohook.Items.Add(dr("Hook_Name").ToString()) End While dr.Close() cs.Close() 'Avail_Clip cs.Open() cmd.CommandText = "select Distinct(Clip_Name) from Available_Clip" dr = cmd.ExecuteReader() While dr.Read() comboclip.Items.Add(dr("Clip_Name").ToString()) End While dr.Close() cs.Close() 'Select_Hanger_Name cs.Open()

BUSINESS MANAGEMENT SYSTEM

Page 120

cmd.CommandText = "select Distinct(Hanger_Name) from Available" dr = cmd.ExecuteReader() While dr.Read() Comboaddpro.Items.Add(dr("Hanger_Name").ToString()) combocheckavai.Items.Add(dr("Hanger_Name").ToString()) ComboBox1.Items.Add(dr("Hanger_Name").ToString()) End While dr.Close() cs.Close() 'Select_Machine_Name from inhouse cs.Open() cmd.CommandText = "select Distinct(Emp_Id) from inhouse" dr = cmd.ExecuteReader() While dr.Read() comboupemp.Items.Add(dr("Emp_Id").ToString()) comboshowmachine.Items.Add(dr("Emp_Id").ToString()) End While dr.Close() cs.Close() 'Select_Hanger_Name from inhouse cs.Open() cmd.CommandText = "select Distinct(Hanger_Name) from inhouse" dr = cmd.ExecuteReader() While dr.Read() Comboupproname.Items.Add(dr("Hanger_Name").ToString()) End While dr.Close() cs.Close() 'Select_Ship from inhouse cs.Open() cmd.CommandText = "select Distinct(Ship) from inhouse" dr = cmd.ExecuteReader() While dr.Read() Comboupships.Items.Add(dr("Ship").ToString()) End While dr.Close() cs.Close() Tip1.SetToolTip(txtnewproname, "Enter New Product Name") Tip1.SetToolTip(Button4, "Save New Product") Tip1.SetToolTip(Button1, "View All Product Name") Tip1.SetToolTip(ComboBox1, "Select Product Name") Tip1.SetToolTip(TextBox1, "Update Product Name") Tip1.SetToolTip(Button5, "Save Updated Product Name") End Sub Private Sub bttnsave_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bttnsave.Click If Comboempid.SelectedItem = "SELECT" Then MsgBox("Enter Machine Name") ElseIf Comboaddpro.SelectedItem = "SELECT" Then MsgBox("Select Product Name") ElseIf txtqty.Text = "" Then MsgBox("Enter Product Quantity") ElseIf txtwt.Text = "" Then MsgBox("Enter Weight Of Single in Gram Product") ElseIf Comboship.SelectedItem = "SELECT" Then MsgBox("Select Ships")

BUSINESS MANAGEMENT SYSTEM

Page 121

calculate_gramage() calculate_raws() validate_hook() validate_clip() addinhouseproduct() clearall() loadcombo() End If End Sub Sub validate_clip() If comboclip.Text = "SELECT" Then comboclip.Text = "----" txtclipqty.Text = 0.0 Else cs.Open() cmd.CommandText = "select Available_Quantity from available_Clip where Clip_Name= '" & comboclip.SelectedItem.ToString & "'" dr = cmd.ExecuteReader() While dr.Read() y = dr("Available_Quantity").ToString() End While dr.Close() cs.Close() x = y - z Dim qss As String = "update available_Clip set Available_Quantity=@Available_Quantity where Clip_Name=@Clip_Name" cmd = New SqlCommand(qss, cs) cmd.Parameters.Add(New SqlParameter("@Clip_Name", SqlDbType.NVarChar, 200)).Value = comboclip.SelectedItem.ToString cmd.Parameters.Add(New SqlParameter("@Available_Quantity", SqlDbType.Decimal, 18, 2)).Value = x cs.Open() cmd.ExecuteNonQuery() cs.Close() cmd.Parameters.Clear() End If End Sub cs.Open() cmd.CommandText = "select Available_Quantity from available_Hook where Hook_Name= '" & combohook.SelectedItem.ToString & "'" dr = cmd.ExecuteReader() While dr.Read() y = dr("Available_Quantity").ToString() End While dr.Close() cs.Close() x = y - z Dim qss As String = "update available_Hook set Available_Quantity=@Available_Quantity where Hook_Name=@Hook_Name" cmd = New SqlCommand(qss, cs) cmd.Parameters.Add(New SqlParameter("@Hook_Name", SqlDbType.NVarChar, 200)).Value = combohook.SelectedItem.ToString cmd.Parameters.Add(New SqlParameter("@Available_Quantity", SqlDbType.Decimal, 18, 2)).Value = x cs.Open() cmd.ExecuteNonQuery() cs.Close()

Else

BUSINESS MANAGEMENT SYSTEM

Page 122

cmd.Parameters.Clear() End Sub Sub save_Useraw() Dim qs As String = "insert into useraw values(@Raw_Name,@Raw_Use_Kgs,@Raw_Use_Pcs,@Use_Date,@Employee_Name,@Produc t_Name,@Quantity,@Ships)" Dim cmd As New SqlCommand(qs, cs) cmd = New SqlCommand(qs, cs) cmd.Parameters.Add(New SqlParameter("@Raw_Name", SqlDbType.NVarChar, 200)).Value = comboraw.SelectedItem.ToString cmd.Parameters.Add(New SqlParameter("@Raw_Use_Kgs", SqlDbType.Decimal, 18, 2)).Value = txtfindbal.Text cmd.Parameters.Add(New SqlParameter("@Raw_Use_Pcs", SqlDbType.Decimal, 18, 2)).Value = txtqty.Text cmd.Parameters.Add(New SqlParameter("@Use_Date", SqlDbType.SmallDateTime)).Value = dateofproduct.Text cmd.Parameters.Add(New SqlParameter("@Product_Name", SqlDbType.NVarChar, 200)).Value = Comboaddpro.Text cmd.Parameters.Add(New SqlParameter("@Quantity", SqlDbType.Decimal, 18, 2)).Value = txtqty.Text cmd.Parameters.Add(New SqlParameter("@Ships", SqlDbType.NVarChar, 200)).Value = Comboship.Text cs.Open() cmd.ExecuteNonQuery() cs.Close() End Sub Sub calculate_gramage() txtfindbal.Text = Format(((Convert.ToDouble(txtqty.Text) * Convert.ToDouble(txtwt.Text))) / 1000, "#.00") End Sub Sub calculate_raws() cs.Open() cmd.CommandText = "select Available_Quantity from available_raw where Plastic_Raw_Name= '" & comboraw.SelectedItem.ToString & "'" dr = cmd.ExecuteReader() While dr.Read() y = dr("Available_Quantity").ToString() End While dr.Close() cs.Close() x = y - z Dim qss As String = "update available_raw set Available_Quantity=@Available_Quantity where Plastic_Raw_Name=@Plastic_Raw_Name" cmd = New SqlCommand(qss, cs) cmd.Parameters.Add(New SqlParameter("@Plastic_Raw_Name", SqlDbType.NVarChar, 200)).Value = comboraw.SelectedItem.ToString cmd.Parameters.Add(New SqlParameter("@Available_Quantity", SqlDbType.Decimal, 18, 2)).Value = x cs.Open() cmd.ExecuteNonQuery() cs.Close() cmd.Parameters.Clear() End Sub Private Sub bttnsearch_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bttnsearch.Click bttndel.Enabled = False

BUSINESS MANAGEMENT SYSTEM

Page 123

Comboupships.ResetText() Comboupships.Text = "SELECT" If comboupemp.Text = "SELECT" Then MsgBox("Select Employee Id ") ElseIf Comboupproname.Text = "SELECT" Then MsgBox("Select Product Name ") Else cs.Open() Dim qs As String = "Select * from inhouse where Emp_Id=@Emp_Id and Date_Of_Production=@Date_Of_Production and Hanger_Name=@Hanger_Name and Ship=@Ship" Dim cmd As New SqlCommand(qs, cs) cmd.Parameters.Add(New SqlParameter("@Emp_Id", SqlDbType.NChar, 100)).Value = comboupemp.SelectedItem.ToString cmd.Parameters.Add(New SqlParameter("@Date_Of_Production", SqlDbType.SmallDateTime)).Value = dateup.Text cmd.Parameters.Add(New SqlParameter("@Hanger_Name", SqlDbType.NChar, 100)).Value = Comboupproname.SelectedItem.ToString cmd.Parameters.Add(New SqlParameter("@Ship", SqlDbType.NChar, 100)).Value = Comboupships.SelectedItem.ToString dr = cmd.ExecuteReader() dr.Read() If dr.HasRows Then txtdelhangerqty.Text = dr("Hanger_Qty").ToString() txtdelpla.Text = dr("Plastic_Raw_Name").ToString() txtdelplaqty.Text = dr("Plastic_Raw_Qty_Kgs").ToString() txtdelhook.Text = dr("Hook_Name").ToString() txtdelhookqty.Text = dr("Hook_Qty").ToString() txtdelclip.Text = dr("Clip_Name").ToString() txtdelclipqty.Text = dr("Clip_Qty").ToString() bttndel.Enabled = True ElseIf dr.Read = False Then MsgBox("Please Select Proper Date or Product Name") End If dr.Close() cs.Close() cmd.Parameters.Clear() Dim da As New SqlDataAdapter("select * From inhouse Where Emp_Id ='" & comboupemp.SelectedItem & "'And Date_Of_Production='" & dateup.Text & "' and Hanger_Name='" & Comboupproname.SelectedItem & "'", cs) Dim ds As New DataSet Dim cmb As New SqlCommandBuilder(da) gridupemp.Refresh() da.Fill(ds, "inhouse") gridupemp.DataSource = ds.Tables("inhouse") End If End Sub Dim s As String s = Comboupproname.SelectedItem.ToString cs.Open() cmd.CommandText = "select Available_Quantity from available where Product_Name= '" & Comboupproname.SelectedItem.ToString & "'" dr = cmd.ExecuteReader() While dr.Read() b = dr("Available_Quantity").ToString() End While dr.Close() cs.Close()

BUSINESS MANAGEMENT SYSTEM

Page 124

cs.Open() cmd.CommandText = "select Quantity from inhouse where Employee_Name= '" & comboupemp.SelectedItem.ToString & "' and Product_Name= '" & Comboupproname.SelectedItem.ToString & "'" dr = cmd.ExecuteReader() While dr.Read() e = dr("Quantity").ToString() End While dr.Close() cs.Close() Dim qss As String = "update available set Product_Name=@s,Available_Quantity=@c where Product_Name=@s " cmd = New SqlCommand(qss, cs) cmd.Parameters.Add(New SqlParameter("@s", SqlDbType.NVarChar, 200)).Value = s cmd.Parameters.Add(New SqlParameter("@c", SqlDbType.Decimal, 18, 2)).Value = c cs.Open() cmd.ExecuteNonQuery() cs.Close() cmd.Parameters.Clear() End Sub cs.Open() cmd.CommandText = "select Available_Quantity from available where Hanger_Name= '" & Comboupproname.SelectedItem.ToString & "'" dr = cmd.ExecuteReader() While dr.Read() b = dr("Available_Quantity").ToString() End While dr.Close() cs.Close() c = b - a Dim qss As String = "update available set Available_Quantity=@Available_Quantity where Hanger_Name=@Hanger_Name" cmd = New SqlCommand(qss, cs) cmd.Parameters.Add(New SqlParameter("@Hanger_Name", SqlDbType.NVarChar, 200)).Value = Comboupproname.SelectedItem.ToString cmd.Parameters.Add(New SqlParameter("@Available_Quantity", SqlDbType.Decimal, 18, 2)).Value = c cs.Open() cmd.ExecuteNonQuery() cs.Close() cmd.Parameters.Clear() End Sub Sub inhouseupdate() Dim ups As String ups = "update inhouse set Employee_Name=@Employee_Name,Date_Of_Product=@Date_Of_Product,Product_Name= @Product_Name,Quantity=@Quantity,Ships=@Ships where Employee_Name=@Employee_Name and Product_Name=@Product_Name and Date_Of_Product=@Date_Of_Product" cmd = New SqlCommand(ups, cs) cmd.Parameters.Add(New SqlParameter("@Employee_Name", SqlDbType.NVarChar, 200)).Value = comboupemp.SelectedItem.ToString

BUSINESS MANAGEMENT SYSTEM

Page 125

cmd.Parameters.Add(New SqlParameter("@Date_Of_Product", SqlDbType.SmallDateTime)).Value = dateup.Text cmd.Parameters.Add(New SqlParameter("@Product_Name", SqlDbType.NVarChar, 200)).Value = Comboupproname.SelectedItem.ToString cmd.Parameters.Add(New SqlParameter("@Ships ", SqlDbType.NVarChar, 200)).Value = Comboupships.SelectedItem.ToString cs.Open() cmd.ExecuteNonQuery() MsgBox("Employee In-House Details is updated successfully") cs.Close() cmd.Parameters.Clear() Dim da As New SqlDataAdapter("select * From inhouse Where Employee_Name ='" & comboupemp.SelectedItem & "' And Date_Of_Product='" & dateup.Text & "' and Product_Name='" & Comboupproname.SelectedItem & "'", cs) Dim ds As New DataSet Dim cmb As New SqlCommandBuilder(da) gridupemp.Refresh() da.Fill(ds, "inhouse") gridupemp.DataSource = ds.Tables("inhouse") End Sub Sub inhouse_del() Dim ups As String ups = "delete from inhouse where (Emp_Id = @Emp_Id and Date_Of_Production=@Date_Of_Production and Hanger_Name=@Hanger_Name and Ship=@Ship )" cmd = New SqlCommand(ups, cs) cmd.Parameters.Add(New SqlParameter("@Emp_Id", SqlDbType.NVarChar, 200)).Value = comboupemp.SelectedItem.ToString cmd.Parameters.Add(New SqlParameter("@Date_Of_Production", SqlDbType.SmallDateTime)).Value = dateup.Text cmd.Parameters.Add(New SqlParameter("@Hanger_Name", SqlDbType.NVarChar, 200)).Value = Comboupproname.SelectedItem.ToString cmd.Parameters.Add(New SqlParameter("@Ship", SqlDbType.NVarChar, 200)).Value = Comboupships.SelectedItem.ToString cs.Open() cmd.ExecuteNonQuery() dr = cmd.ExecuteReader() dr.Close() MsgBox("Employee InHouse Detail Are Remove successfully") cs.Close() cmd.Parameters.Clear() End Sub Private Sub bttndel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bttndel.Click inhouse_del() del_available() add_plastic_raw() add_hook() add_clip() clearall() gridupemp.Columns.Clear() loadcombo() End Sub cs.Open()

BUSINESS MANAGEMENT SYSTEM

Page 126

cmd.CommandText = "select Available_Quantity from available_raw where Plastic_Raw_Name= '" & txtdelpla.Text.ToString & "'" dr = cmd.ExecuteReader() While dr.Read() y = dr("Available_Quantity").ToString() End While dr.Close() cs.Close() Dim qss As String = "update available_raw set Available_Quantity=@Available_Quantity where Plastic_Raw_Name=@Plastic_Raw_Name" cmd = New SqlCommand(qss, cs) cmd.Parameters.Add(New SqlParameter("@Plastic_Raw_Name", SqlDbType.NVarChar, 200)).Value = txtdelpla.Text.ToString cmd.Parameters.Add(New SqlParameter("@Available_Quantity", SqlDbType.Decimal, 18, 2)).Value = x cs.Open() cmd.ExecuteNonQuery() cs.Close() cmd.Parameters.Clear() End Sub Sub add_hook() If txtdelhook.Text = "----" Then Else cs.Open() cmd.CommandText = "select Available_Quantity from available_Hook where Hook_Name= '" & txtdelhook.Text.ToString & "'" dr = cmd.ExecuteReader() While dr.Read() y = dr("Available_Quantity").ToString() End While dr.Close() cs.Close() Dim qss As String = "update available_Hook set Available_Quantity=@Available_Quantity where Hook_Name=@Hook_Name" cmd = New SqlCommand(qss, cs) cmd.Parameters.Add(New SqlParameter("@Hook_Name", SqlDbType.NVarChar, 200)).Value = txtdelhook.Text.ToString cmd.Parameters.Add(New SqlParameter("@Available_Quantity", SqlDbType.Decimal, 18, 2)).Value = x cs.Open() cmd.ExecuteNonQuery() cs.Close() cmd.Parameters.Clear() End If End Sub Sub add_clip() If txtdelclip.Text = "----" Then Else cs.Open() cmd.CommandText = "select Available_Quantity from available_Clip where Clip_Name= '" & txtdelclip.Text.ToString & "'" dr = cmd.ExecuteReader() While dr.Read() y = dr("Available_Quantity").ToString() End While dr.Close() cs.Close()

BUSINESS MANAGEMENT SYSTEM

Page 127

Dim qss As String = "update available_Clip set Available_Quantity=@Available_Quantity where Clip_Name=@Clip_Name" cmd = New SqlCommand(qss, cs) cmd.Parameters.Add(New SqlParameter("@Clip_Name", SqlDbType.NVarChar, 200)).Value = txtdelclip.Text.ToString cmd.Parameters.Add(New SqlParameter("@Available_Quantity", SqlDbType.Decimal, 18, 2)).Value = x cs.Open() cmd.ExecuteNonQuery() cs.Close() cmd.Parameters.Clear() End If End Sub Private Sub bttnperemp_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bttnperemp.Click If comboshowmachine.Text = "SELECT" Then MsgBox("Please Select Machine Name Then Proceed") Else Dim da As New SqlDataAdapter("Select Hanger_Name, sum(Hanger_Qty)As Total_Quantity from inhouse where Emp_Id='" & comboshowmachine.SelectedItem.ToString & "'" & "AND Date_Of_Production" & " Between '" & dateproreprt1.Text & "' AND '" & dateproreport2.Text & "' Group By Hanger_Name", cs) Dim ds As New DataSet Dim cmb As New SqlCommandBuilder(da) gridproreport.Refresh() da.Fill(ds, "inhouse") gridproreport.DataSource = ds.Tables("inhouse") Dim daa As New SqlDataAdapter("Select Hanger_Name,Hanger_Qty,Date_Of_Production,Ship from inhouse where Emp_Id='" & comboshowmachine.SelectedItem.ToString & "'" & "AND Date_Of_Production" & " Between '" & dateproreprt1.Text & "' AND '" & dateproreport2.Text & "' Order By Date_Of_Production DESC", cs) Dim dss As New DataSet Dim cmbb As New SqlCommandBuilder(da) gridreport2.Refresh() daa.Fill(dss, "inhouse") gridreport2.DataSource = dss.Tables("inhouse") End If End Sub Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click Dim da As New SqlDataAdapter("Select Hanger_Name,Sum(Hanger_Qty)As Total_Quantity from inhouse where Date_Of_Production " & " Between '" & datereport3.Text & "' AND '" & datereport4.Text & "'" & "Group by Hanger_Name", cs) Dim ds As New DataSet Dim cmb As New SqlCommandBuilder(da) gridempreport.Refresh() da.Fill(ds, "inhouse") gridempreport.DataSource = ds.Tables("inhouse") End Sub Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click If txtnewproname.Text = "" Then MsgBox("Enter Appropriate Product Name")

BUSINESS MANAGEMENT SYSTEM

Page 128

Dim qs As String = "insert into available values(@Hanger_Name,@Available_Quantity)" Dim cmd As New SqlCommand(qs, cs) cmd = New SqlCommand(qs, cs) cmd.Parameters.Add(New SqlParameter("@Hanger_Name", SqlDbType.NVarChar, 200)).Value = txtnewproname.Text cmd.Parameters.Add(New SqlParameter("@Available_Quantity", SqlDbType.NVarChar, 200)).Value = 0.0 cs.Open() cmd.ExecuteNonQuery() MsgBox("New Product are added successfully") cs.Close() cmd.Parameters.Clear() Dim da As New SqlDataAdapter("select Hanger_Name From available where Hanger_Name='" & txtnewproname.Text & "'", cs) Dim ds As New DataSet Dim cmb As New SqlCommandBuilder(da) gridviewproductname.Refresh() da.Fill(ds, "available") gridviewproductname.DataSource = ds.Tables("available") txtnewproname.Text = "" txtnewproname.Focus() loadcombo() End If End Sub Sub clearall() txtnewproname.Text = "" ComboBox1.ResetText() ComboBox1.Text = "SELECT" TextBox1.Text = "" Button5.Enabled = False Button3.Enabled = False Comboempid.ResetText() Comboempid.Text = "SELECT" Comboaddpro.ResetText() Comboaddpro.Text = "SELCET" txtqty.Text = "" txtcavity.Text = "" dateofproduct.ResetText() Comboship.ResetText() combohook.Text = "SELECT" txthookqty.Text = "" txtclipqty.Text = 0 'Remove_Inhouse comboupemp.ResetText() comboupemp.Text = "SELECT" dateup.ResetText() Comboupproname.ResetText() dateproreprt1.ResetText() DateTimePicker1.ResetText() End Sub Private Sub TabControl1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TabControl1.SelectedIndexChanged clearall() loadcombo()

Else

BUSINESS MANAGEMENT SYSTEM

Page 129

gridupemp.Columns.Clear() gridemp.Columns.Clear() dateup.ResetText() DataGridView1.Columns.Clear() gridviewproductname.Columns.Clear() End Sub Sub loadcombo() 'Load Hanger Name Comboaddpro.Items.Clear() combocheckavai.Items.Clear() ComboBox1.Items.Clear() cs.Open() cmd.CommandText = "select Distinct(Hanger_Name) from Available" dr = cmd.ExecuteReader() While dr.Read() Comboaddpro.Items.Add(dr("Hanger_Name").ToString()) combocheckavai.Items.Add(dr("Hanger_Name").ToString()) ComboBox1.Items.Add(dr("Hanger_Name").ToString()) End While dr.Close() cs.Close() 'Select_Machine_Name from inhouse comboupemp.Items.Clear() comboshowmachine.Items.Clear() cs.Open() cmd.CommandText = "select Distinct(Emp_Id) from inhouse" dr = cmd.ExecuteReader() While dr.Read() comboupemp.Items.Add(dr("Emp_Id").ToString()) comboshowmachine.Items.Add(dr("Emp_Id").ToString()) End While dr.Close() cs.Close() Comboupproname.Items.Clear() cs.Open() cmd.CommandText = "select Distinct(Hanger_Name) from inhouse" dr = cmd.ExecuteReader() While dr.Read() Comboupproname.Items.Add(dr("Hanger_Name").ToString()) End While dr.Close() cs.Close() 'Select_Ship from inhouse Comboupships.Items.Clear() cs.Open() cmd.CommandText = "select Distinct(Ship) from inhouse" dr = cmd.ExecuteReader() While dr.Read() Comboupships.Items.Add(dr("Ship").ToString()) End While dr.Close() cs.Close() End Sub Private Sub bttnshowallemp_sal_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bttnshowallemp_sal.Click

BUSINESS MANAGEMENT SYSTEM

Page 130

Dim da As New SqlDataAdapter("select * From inhouse Order By Date_Of_Production DESC", cs) Dim ds As New DataSet Dim cmb As New SqlCommandBuilder(da) gridemp.Refresh() da.Fill(ds, "inhouse") gridemp.DataSource = ds.Tables("inhouse") End Sub Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim da As New SqlDataAdapter("select Hanger_Name From available Order By Hanger_Name", cs) Dim ds As New DataSet Dim cmb As New SqlCommandBuilder(da) gridviewproductname.Refresh() da.Fill(ds, "available") gridviewproductname.DataSource = ds.Tables("available") End Sub Private Sub LinkLabel2_LinkClicked(ByVal sender As System.Object, ByVal e As System.Windows.Forms.LinkLabelLinkClickedEventArgs) Handles LinkLabel2.LinkClicked index.Show() Me.Close() End Sub Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click Dim da As New SqlDataAdapter("select Hanger_Name,Available_Quantity From available ", cs) Dim ds As New DataSet Dim cmb As New SqlCommandBuilder(da) datagridviewavi.Refresh() da.Fill(ds, "available") datagridviewavi.DataSource = ds.Tables("available") End Sub Private Sub combocheckavai_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles combocheckavai.SelectedIndexChanged Dim da As New SqlDataAdapter("select Hanger_Name,Available_Quantity From available Where Hanger_Name='" & combocheckavai.SelectedItem & "'Order By Hanger_Name", cs) Dim ds As New DataSet Dim cmb As New SqlCommandBuilder(da) datagridcheckav.Refresh() da.Fill(ds, "available") datagridcheckav.DataSource = ds.Tables("available") End Sub Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged cs.Open() Dim qs As String = "Select Hanger_Name from available where Hanger_Name=@Hanger_Name " Dim cmd As New SqlCommand(qs, cs) cmd.Parameters.Add(New SqlParameter("@Hanger_Name", SqlDbType.NChar, 100)).Value = ComboBox1.SelectedItem.ToString

BUSINESS MANAGEMENT SYSTEM

Page 131

dr = cmd.ExecuteReader() dr.Read() If dr.HasRows Then TextBox1.Text = dr("Hanger_Name").ToString() End If dr.Close() cs.Close() Dim da As New SqlDataAdapter("select Hanger_Name,Available_Quantity From available Where Hanger_Name='" & ComboBox1.SelectedItem & "'Order By Hanger_Name", cs) Dim ds As New DataSet Dim cmb As New SqlCommandBuilder(da) DataGridView1.Refresh() da.Fill(ds, "available") DataGridView1.DataSource = ds.Tables("available") Button5.Enabled = True Button3.Enabled = True End Sub Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click If TextBox1.Text = "" Then MsgBox("Please Enter Updated Product Name") Else Dim ups As String ups = "update available set Product_Name=@Product_Name where Product_Name=@Pro" cmd = New SqlCommand(ups, cs) cmd.Parameters.Add(New SqlParameter("@Pro", SqlDbType.NVarChar, 200)).Value = ComboBox1.SelectedItem.ToString cmd.Parameters.Add(New SqlParameter("@Product_Name", SqlDbType.NVarChar, 200)).Value = TextBox1.Text cs.Open() cmd.ExecuteNonQuery() MsgBox("Product Name is updated successfully") cs.Close() cmd.Parameters.Clear() upinhousepro() Dim da As New SqlDataAdapter("select Product_Name,Available_Quantity From available Where Product_Name='" & TextBox1.Text & "'", cs) Dim ds As New DataSet Dim cmb As New SqlCommandBuilder(da) DataGridView1.Refresh() da.Fill(ds, "available") DataGridView1.DataSource = ds.Tables("available") Button5.Enabled = False Button3.Enabled = False clearall() loadcombo() End If End Sub Sub upinhousepro() Dim ups As String ups = "update inhouse set Product_Name=@Product_Name where Product_Name=@Pro" cmd = New SqlCommand(ups, cs)

BUSINESS MANAGEMENT SYSTEM

Page 132

cmd.Parameters.Add(New SqlParameter("@Pro", SqlDbType.NVarChar, 200)).Value = ComboBox1.SelectedItem.ToString cmd.Parameters.Add(New SqlParameter("@Product_Name", SqlDbType.NVarChar, 200)).Value = TextBox1.Text cs.Open() cmd.ExecuteNonQuery() cs.Close() cmd.Parameters.Clear() End Sub Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click Dim ups As String ups = "delete from available where (Hanger_Name = @Hanger_Name )" cmd = New SqlCommand(ups, cs) cmd.Parameters.Add(New SqlParameter("@Hanger_Name", SqlDbType.NVarChar, 200)).Value = ComboBox1.SelectedItem.ToString cs.Open() cmd.ExecuteNonQuery() dr = cmd.ExecuteReader() dr.Close() MsgBox("Product Are Remove successfully") cs.Close() cmd.Parameters.Clear() Button5.Enabled = False clearall() loadcombo() DataGridView1.Columns.Clear() End Sub Private Sub LinkLabel1_LinkClicked(ByVal sender As System.Object, ByVal e As System.Windows.Forms.LinkLabelLinkClickedEventArgs) Handles LinkLabel1.LinkClicked Application.Exit() End Sub

SCREEN LAYOUT OF ADD PRODUCT FOR SALE FORM :

BUSINESS MANAGEMENT SYSTEM

Page 133

CODE FOR ADD PRODUCT FOR SALE FORM :

Imports System.Data.SqlClient Public Class products_Report Dim cs As New SqlConnection() Dim cmd As SqlCommand Dim dr As SqlDataReader Dim b As Boolean 'adding new Product Public Sub Insertnewproduct() Dim qs As String = "insert into products values(@Product_Name,@Rate,@Per)" cmd = New SqlCommand(qs, cs) cmd.Parameters.Add(New SqlParameter("@Product_Name", SqlDbType.NVarChar, 100)).Value = comboaddreport.SelectedItem.ToString cmd.Parameters.Add(New SqlParameter("@Rate", SqlDbType.Decimal, 11, 2)).Value = addrate.Text

BUSINESS MANAGEMENT SYSTEM

Page 134

cmd.Parameters.Add(New SqlParameter("@Per", SqlDbType.NVarChar, 100)).Value = addqty.Text cs.Open() cmd.ExecuteNonQuery() MsgBox("Product is added successfully") cs.Close() cmd.Parameters.Clear() End Sub 'Deleting Exting Product Public Sub DeleteanyProduct() Dim qs As String = "delete from products where Product_Name = @Product_Name" Dim cmd As New SqlCommand(qs, cs) cmd.Parameters.Add(New SqlParameter("@Product_Name", SqlDbType.NVarChar, 100)).Value = ComboBox2.SelectedItem.ToString() cs.Open() cmd.ExecuteNonQuery() dr = cmd.ExecuteReader() dr.Close() MsgBox("Product is Deleted successfully") cs.Close() cmd.Parameters.Clear() End Sub 'Updatind Existing Products Public Sub upProductdetail() Dim ups As String ups = "update products set Rate=@Rate,Per=@Per where Product_Name=@Product_Name" cmd = New SqlCommand(ups, cs) cmd.Parameters.Add(New SqlParameter("@Rate", SqlDbType.Decimal, 11, 2)).Value = updaterate.Text cmd.Parameters.Add(New SqlParameter("@Per", SqlDbType.NVarChar, 100)).Value = updateqty.Text cmd.Parameters.Add(New SqlParameter("@Product_Name", SqlDbType.NVarChar, 100)).Value = ComboBox3.SelectedItem.ToString cs.Open() cmd.ExecuteNonQuery() MsgBox("Product is updated successfully") cs.Close() cmd.Parameters.Clear() End Sub 'loading new Productnames Public Sub loadnewProduct() ComboBox1.Text = "select" ComboBox1.Items.Clear() ComboBox2.Text = "select" ComboBox2.Items.Clear() ComboBox3.Text = "select" ComboBox3.Items.Clear() cs.Open() cmd.CommandText = "select Product_Name from products order by Product_Name" dr = cmd.ExecuteReader() While dr.Read() ComboBox1.Items.Add(dr("Product_Name").ToString()) ComboBox2.Items.Add(dr("Product_Name").ToString()) ComboBox3.Items.Add(dr("Product_Name").ToString())

BUSINESS MANAGEMENT SYSTEM

Page 135

End While dr.Close() cs.Close() End Sub 'clearing all fields Public Sub clearalltexts() rateshow.Text = "" qtyshow.Text = "" comboaddreport.ResetText() comboaddreport.Text = "SELECT" addrate.Text = "" addqty.Text = "" updaterate.Text = "" updateqty.Text = "" End Sub Private Sub products_Report_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Tip1.SetToolTip(ComboBox1, "Select Product Name") Tip1.SetToolTip(rateshow, "Enter Rate Of Product") Tip1.SetToolTip(Button2, "Show All Product Details") Tip1.SetToolTip(comboaddreport, "Select Product Name") Tip1.SetToolTip(addrate, "Enter Rate Of Product") Tip1.SetToolTip(addbtn, "Add Product Details") Tip1.SetToolTip(ComboBox2, "Select Product Name") Tip1.SetToolTip(deletebtn, "Remove Product") cs.Open() cmd.CommandText = "select Product_Name from products order by Product_Name" dr = cmd.ExecuteReader() While dr.Read() ComboBox1.Items.Add(dr("Product_Name").ToString()) ComboBox2.Items.Add(dr("Product_Name").ToString()) ComboBox3.Items.Add(dr("Product_Name").ToString()) End While dr.Close() cs.Close() 'comboaddreport cs.Open() cmd.CommandText = "select Hanger_Name from available order by Hanger_Name" dr = cmd.ExecuteReader() While dr.Read() comboaddreport.Items.Add(dr("Hanger_Name").ToString()) End While dr.Close() cs.Close() End Sub Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged cs.Open() cmd.CommandText = "select Rate,Per from products where Product_Name=@Product_Name" cmd.Parameters.Add(New SqlParameter("@Product_Name", SqlDbType.NVarChar, 100)).Value = ComboBox1.SelectedItem.ToString dr = cmd.ExecuteReader()

BUSINESS MANAGEMENT SYSTEM

Page 136

dr.Read() If dr.HasRows Then rateshow.Text = dr("Rate").ToString() qtyshow.Text = dr("Per").ToString() End If dr.Close() cs.Close() cmd.Parameters.Clear() End Sub Private Sub ComboBox3_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox3.SelectedIndexChanged cs.Open() cmd.CommandText = "select Rate,Per from products where Product_Name=@Product_Name" cmd.Parameters.Add(New SqlParameter("@Product_Name", SqlDbType.NVarChar, 100)).Value = ComboBox3.SelectedItem.ToString dr = cmd.ExecuteReader() dr.Read() If dr.HasRows Then updaterate.Text = dr("Rate").ToString() updateqty.Text = dr("Per").ToString() End If dr.Close() cs.Close() cmd.Parameters.Clear() updategridview4() End Sub Private Sub addbtn_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles addbtn.Click If comboaddreport.Text = "SELECT" Then MsgBox("Please Fill Product Name") ElseIf addrate.Text = "" Then MsgBox("Please Fill Rate") ElseIf addqty.Text = "" Then MsgBox("Please Fill Per") Else Insertnewproduct() addmsg.Text = "Product is Added Successfully." cs.Open() Dim ds As New DataSet("tab") Dim da As New SqlDataAdapter("select * from products where Product_Name=@Product_Name", cs) da.SelectCommand.Parameters.Add(New SqlParameter("@Product_Name", SqlDbType.NVarChar, 100)).Value = comboaddreport.SelectedItem.ToString da.Fill(ds, "tab") DataGridView2.DataSource = ds DataGridView2.DataMember = "tab" cs.Close() da.SelectCommand.Parameters.Clear() loadnewProduct() clearalltexts() billformat.ComboBox1.Items.Clear() billformat.ComboBox2.Items.Clear() billformat.ComboBox3.Items.Clear() billformat.ComboBox4.Items.Clear() billformat.ComboBox5.Items.Clear()

BUSINESS MANAGEMENT SYSTEM

Page 137

)) billformat.ComboBox2.Items.Add(dr("Product_Name").ToString()) billformat.ComboBox3.Items.Add(dr("Product_Name").ToString()) billformat.ComboBox4.Items.Add(dr("Product_Name").ToString()) billformat.ComboBox5.Items.Add(dr("Product_Name").ToString()) billformat.ComboBox6.Items.Add(dr("Product_Name").ToString()) billformat.ComboBox7.Items.Add(dr("Product_Name").ToString()) End While dr.Close() cs.Close() End If DataGridView1.Columns.Clear() DataGridView4.Columns.Clear() End Sub

billformat.ComboBox6.Items.Clear() billformat.ComboBox7.Items.Clear() cs.Open() cmd.CommandText = "select Product_Name from products" dr = cmd.ExecuteReader() While dr.Read() billformat.ComboBox1.Items.Add(dr("Product_Name").ToString(

Private Sub deletebtn_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles deletebtn.Click If ComboBox2.Text = "SELECT" Then MsgBox("Plese select Product name") Else DeleteanyProduct() lblmsg.Text = "Product is Deleted Successfully for confirmation Check Show Details Tab." loadnewProduct() clearalltexts() billformat.ComboBox1.Items.Clear() billformat.ComboBox2.Items.Clear() billformat.ComboBox3.Items.Clear() billformat.ComboBox4.Items.Clear() billformat.ComboBox5.Items.Clear() billformat.ComboBox6.Items.Clear() billformat.ComboBox7.Items.Clear() cs.Open() cmd.CommandText = "select Product_Name from products" dr = cmd.ExecuteReader() While dr.Read() billformat.ComboBox1.Items.Add(dr("Product_Name").ToString( )) billformat.ComboBox2.Items.Add(dr("Product_Name").ToString()) billformat.ComboBox3.Items.Add(dr("Product_Name").ToString()) billformat.ComboBox4.Items.Add(dr("Product_Name").ToString()) billformat.ComboBox5.Items.Add(dr("Product_Name").ToString()) billformat.ComboBox6.Items.Add(dr("Product_Name").ToString()) billformat.ComboBox7.Items.Add(dr("Product_Name").ToString()) End While dr.Close() cs.Close() End If DataGridView1.Columns.Clear() DataGridView2.Columns.Clear() DataGridView4.Columns.Clear() End Sub

BUSINESS MANAGEMENT SYSTEM

Page 138

Private Sub updatebtn_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles updatebtn.Click If ComboBox3.Text = "SELECT" Then MsgBox("Please select Product name") ElseIf updaterate.Text = "" Then MsgBox("Please Fill Rate") ElseIf updateqty.Text = "" Then MsgBox("Please Fill Per") Else upProductdetail() updatemsg.Text = "Product is Updated Successfully." updategridview4() loadnewProduct() clearalltexts() billformat.ComboBox1.Items.Clear() billformat.ComboBox2.Items.Clear() billformat.ComboBox3.Items.Clear() billformat.ComboBox4.Items.Clear() billformat.ComboBox5.Items.Clear() billformat.ComboBox6.Items.Clear() billformat.ComboBox7.Items.Clear() cs.Open() cmd.CommandText = "select Product_Name from products" dr = cmd.ExecuteReader() While dr.Read() billformat.ComboBox1.Items.Add(dr("Product_Name").ToString( )) billformat.ComboBox2.Items.Add(dr("Product_Name").ToString()) billformat.ComboBox3.Items.Add(dr("Product_Name").ToString()) billformat.ComboBox4.Items.Add(dr("Product_Name").ToString()) billformat.ComboBox5.Items.Add(dr("Product_Name").ToString()) billformat.ComboBox6.Items.Add(dr("Product_Name").ToString()) billformat.ComboBox7.Items.Add(dr("Product_Name").ToString()) End While dr.Close() cs.Close() End If DataGridView1.Columns.Clear() DataGridView2.Columns.Clear() End Sub Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click cs.Open() Dim ds As New DataSet("tab") Dim da As New SqlDataAdapter("select * from products order by Product_Name", cs) da.Fill(ds, "tab") DataGridView1.DataSource = ds DataGridView1.DataMember = "tab" cs.Close() DataGridView2.Columns.Clear() DataGridView4.Columns.Clear() End Sub 'Update Grid View Public Sub updategridview4() cs.Open() Dim ds As New DataSet("tab")

BUSINESS MANAGEMENT SYSTEM

Page 139

Dim da As New SqlDataAdapter("select * from products where Product_Name=@Product_Name", cs) da.SelectCommand.Parameters.Add(New SqlParameter("@Product_Name", SqlDbType.NVarChar, 100)).Value = ComboBox3.SelectedItem.ToString da.Fill(ds, "tab") DataGridView4.DataSource = ds DataGridView4.DataMember = "tab" cs.Close() da.SelectCommand.Parameters.Clear() End Sub Private Sub ProductReport_FormClosing(ByVal sender As System.Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles MyBase.FormClosing Me.Dispose() End Sub Private Sub addprodname_KeyDown_1(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles addrate.KeyDown, addqty.KeyDown If e.KeyValue = Keys.Back Then b = True End If End Sub Private Sub ComboBox2_KeyDown(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles ComboBox2.KeyDown If e.KeyValue = Keys.Enter Then deletebtn_Click(Nothing, Nothing) End If End Sub Private Sub TabControl1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TabControl1.SelectedIndexChanged Clearall() addmsg.Text = "" lblmsg.Text = "" updatemsg.Text = "" End Sub Sub Clearall() comboaddreport.ResetText() comboaddreport.Text = "SELECT" addrate.Text = "" addqty.Text = "" ComboBox1.ResetText() ComboBox1.Text = "SELECT" rateshow.Text = "" qtyshow.Text = "" ComboBox2.ResetText() ComboBox2.Text = "SELECT" ComboBox3.ResetText() ComboBox3.Text = "SELECT" updaterate.Text = "" updateqty.Text = "" DataGridView4.Columns.Clear() End Sub

BUSINESS MANAGEMENT SYSTEM

Page 140

Private Sub comboaddreport_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles comboaddreport.SelectedIndexChanged cs.Open() cmd.CommandText = "select Rate,Per from products where Product_Name=@Product_Name" cmd.Parameters.Add(New SqlParameter("@Product_Name", SqlDbType.NVarChar, 100)).Value = comboaddreport.SelectedItem.ToString dr = cmd.ExecuteReader() dr.Read() If dr.HasRows Then addrate.Text = dr("Rate").ToString() addqty.Text = dr("Per").ToString() End If dr.Close() cs.Close() cmd.Parameters.Clear() End Sub End Class

SCREEN LAYOUT OF ADD NEW CLIENT FORM :

BUSINESS MANAGEMENT SYSTEM

Page 141

CODE FOR ADD NEW CLIENT FORM :

Imports System.Data.SqlClient Public Class clientsreport Dim cs As New SqlConnection() Dim cmd As SqlCommand Dim dr As SqlDataReader Dim b As Boolean 'adding new client Public Sub Insertnewclient() Dim qs As String = "insert into clientsreport values(@Cust_Id,@Client_Name,@Address,@Contact_No,@CST_No,@TIN_No)" cmd = New SqlCommand(qs, cs) cmd.Parameters.Add(New SqlParameter("@Cust_Id", SqlDbType.VarChar, 50)).Value = txtclinentid.Text cmd.Parameters.Add(New SqlParameter("@Client_Name", SqlDbType.VarChar, 50)).Value = txtaddcntnm.Text cmd.Parameters.Add(New SqlParameter("@Address", SqlDbType.VarChar, 100)).Value = rtxtaddclntadd.Text cmd.Parameters.Add(New SqlParameter("@Contact_No", SqlDbType.VarChar, 100)).Value = txtaddclntcontact.Text cmd.Parameters.Add(New SqlParameter("@CST_No", SqlDbType.VarChar, 100)).Value = txtcst.Text

BUSINESS MANAGEMENT SYSTEM

Page 142

cmd.Parameters.Add(New SqlParameter("@TIN_No", SqlDbType.VarChar, 100)).Value = txttin.Text cs.Open() cmd.ExecuteNonQuery() MsgBox("client details are added successfully") cs.Close() cmd.Parameters.Clear() End Sub Sub conatct_Dire() Dim qs As String = "insert into Contact_Directory (Name,Address,Contact_No) values(@Name,@Address,@Contact_No)" Dim cmd As New SqlCommand(qs, cs) cmd = New SqlCommand(qs, cs) cmd.Parameters.Add(New SqlParameter("@Name", SqlDbType.VarChar, 200)).Value = txtaddcntnm.Text cmd.Parameters.Add(New SqlParameter("@Address", SqlDbType.VarChar, 200)).Value = rtxtaddclntadd.Text cmd.Parameters.Add(New SqlParameter("@Contact_No", SqlDbType.VarChar, 200)).Value = txtaddclntcontact.Text cs.Open() cmd.ExecuteNonQuery() cs.Close() 'cmd.Parameters.Clear() End Sub Public Sub loadnewclient() cust_Id() ComboBox1.Text = "Select" ComboBox1.Items.Clear() ComboBox2.Text = "Select" ComboBox2.Items.Clear() ComboBox3.Text = "Select" ComboBox3.Items.Clear() cs.Open() cmd.CommandText = "select Cust_Id from clientsreport" dr = cmd.ExecuteReader() While dr.Read() ComboBox1.Items.Add(dr("Cust_Id").ToString()) ComboBox2.Items.Add(dr("Cust_Id").ToString()) ComboBox3.Items.Add(dr("Cust_Id").ToString()) End While dr.Close() cs.Close() End Sub 'deleting existing client Public Sub Deleteanyclient() Dim qs As String = "delete from clientsreport where Cust_Id = @deleteclnt" Dim cmd As New SqlCommand(qs, cs) cmd.Parameters.Add(New SqlParameter("@deleteclnt", SqlDbType.VarChar, 100)).Value = ComboBox2.SelectedItem.ToString() cs.Open() cmd.ExecuteNonQuery() dr = cmd.ExecuteReader() dr.Close() MsgBox("client details are deleted successfully") cs.Close()

BUSINESS MANAGEMENT SYSTEM

Page 143

cmd.Parameters.Clear() End Sub 'Updating client details Public Sub upclientdetail() Dim ups As String ups = "update clientsreport set Client_Name=@Client_Name,Address=@Address,Contact_No=@Contact_No,CST_No=@CS T_No,TIN_No=@TIN_No where Cust_Id=@Cust_Id" cmd = New SqlCommand(ups, cs) cmd.Parameters.Add(New SqlParameter("@Client_Name", SqlDbType.VarChar, 100)).Value = txtupcli.Text cmd.Parameters.Add(New SqlParameter("@Address", SqlDbType.VarChar, 100)).Value = newadd.Text cmd.Parameters.Add(New SqlParameter("@Contact_No", SqlDbType.VarChar, 100)).Value = newcontact.Text cmd.Parameters.Add(New SqlParameter("@Cust_Id", SqlDbType.VarChar, 100)).Value = ComboBox3.SelectedItem.ToString() cmd.Parameters.Add(New SqlParameter("@CST_No", SqlDbType.VarChar, 100)).Value = txtupcst.Text cmd.Parameters.Add(New SqlParameter("@TIN_No", SqlDbType.VarChar, 100)).Value = txtuptin.Text cs.Open() cmd.ExecuteNonQuery() MsgBox("Client details are updated successfully") cs.Close() cmd.Parameters.Clear() End Sub 'clearing all textboxes Public Sub clearalltexts() rtxtadd.Text = "" txtcontact.Text = "" txtaddcntnm.Text = "" rtxtaddclntadd.Text = "" txtaddclntcontact.Text = "" newadd.Text = "" newcontact.Text = "" txtcst.Text = "" txttin.Text = "" DataGridView1.Columns.Clear() txtshcli.Text = "" txtupcli.Text = "" DataGridView4.Columns.Clear() ComboBox1.ResetText() ComboBox1.Text = "SELECT" ComboBox3.ResetText() ComboBox3.Text = "SELECT" ComboBox2.ResetText() ComboBox2.Text = "SELECT" End Sub Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click cs.Open() Dim ds As New DataSet("tab") Dim da As New SqlDataAdapter("select * from clientsreport", cs) da.Fill(ds, "tab") DataGridView1.DataSource = ds DataGridView1.DataMember = "tab" cs.Close()

BUSINESS MANAGEMENT SYSTEM

Page 144

DataGridView2.Columns.Clear() DataGridView4.Columns.Clear() End Sub Private Sub clientsreport_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Tip1.SetToolTip(ComboBox1, "Select Client Id") Tip1.SetToolTip(Button2, "Show All Clients Details") Tip1.SetToolTip(txtaddcntnm, "Enter Client Name") Tip1.SetToolTip(txtclinentid, "Auto Generate Client Id") Tip1.SetToolTip(rtxtaddclntadd, "Enter Address") Tip1.SetToolTip(txtaddclntcontact, "Enter Contact No") Tip1.SetToolTip(txtcst, "Enter CST No.") Tip1.SetToolTip(txttin, "Enter TIN No.") Dim i As Integer cs.Open() cmd.CommandText = "select Cust_Id from clientsreport where Cust_Id like 'Cust%'" dr = cmd.ExecuteReader() If dr.HasRows = False Then txtclinentid.Text = "Cust1" Else While dr.Read() End While txtclinentid.Text = "Cust" & i End If dr.Close() cs.Close() cs.Open() cmd.CommandText = "select Cust_Id from clientsreport" dr = cmd.ExecuteReader() While dr.Read() ComboBox1.Items.Add(dr("Cust_Id").ToString()) ComboBox2.Items.Add(dr("Cust_Id").ToString()) ComboBox3.Items.Add(dr("Cust_Id").ToString()) End While dr.Close() cs.Close() End Sub Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged cs.Open() cmd.CommandText = "select Client_Name,Address,Contact_No from clientsreport where Cust_Id=@Cust_Id" cmd.Parameters.Add(New SqlParameter("@Cust_Id", SqlDbType.VarChar, 100)).Value = ComboBox1.SelectedItem.ToString dr = cmd.ExecuteReader() dr.Read() If dr.HasRows Then txtshcli.Text = dr("Client_Name").ToString() rtxtadd.Text = dr("Address").ToString() txtcontact.Text = dr("Contact_No").ToString() End If dr.Close() cs.Close() cmd.Parameters.Clear() End Sub

BUSINESS MANAGEMENT SYSTEM

Page 145

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click If txtaddcntnm.Text = "" Then MsgBox("Please Fill Clients Name") ElseIf rtxtaddclntadd.Text = "" Then MsgBox("Plese Fill Clients Address") Else billformat.namecombo.Items.Clear() Insertnewclient() loadnewclient() cs.Open() Dim ds As New DataSet("tab") Dim da As New SqlDataAdapter("select * from clientsreport where Client_Name=@clientname", cs) da.SelectCommand.Parameters.Add(New SqlParameter("@clientname", SqlDbType.VarChar, 100)).Value = txtaddcntnm.Text da.Fill(ds, "tab") DataGridView2.DataSource = ds DataGridView2.DataMember = "tab" cs.Close() da.SelectCommand.Parameters.Clear() loadnewclient() clearalltexts() billformat.namecombo.Items.Clear() cs.Open() cmd.CommandText = "select Client_Name from clientsreport" dr = cmd.ExecuteReader() While dr.Read() billformat.namecombo.Items.Add(dr("Client_Name").ToString() ) End While dr.Close() cs.Close() End If DataGridView1.Columns.Clear() DataGridView4.Columns.Clear() End Sub Sub cust_Id() Dim i As Integer cs.Open() cmd.CommandText = "select Cust_Id from clientsreport where Cust_Id like 'Cust%'" dr = cmd.ExecuteReader() If dr.HasRows = False Then txtclinentid.Text = "Cust1" Else While dr.Read() End While txtclinentid.Text = "Cust" & i End If dr.Close() cs.Close() End Sub Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click If ComboBox2.SelectedItem = "" Then MsgBox("Plese select Client name") Else

BUSINESS MANAGEMENT SYSTEM

Page 146

Deleteanyclient() deletemsg.Text = "Client is Deleted Successfully for confirmation Check Show Details Tab." loadnewclient() clearalltexts() billformat.namecombo.Items.Clear() cs.Open() cmd.CommandText = "select Client_Name from clientsreport" dr = cmd.ExecuteReader() While dr.Read() billformat.namecombo.Items.Add(dr("Client_Name").ToString() ) End While dr.Close() cs.Close() End If DataGridView1.Columns.Clear() DataGridView2.Columns.Clear() DataGridView4.Columns.Clear() End Sub Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click If ComboBox3.SelectedItem = "" Then MsgBox("Please select Client name") ElseIf newadd.Text = "" Then MsgBox("Please Fill Address") ElseIf newcontact.Text = "" Then MsgBox("Please Fill Contact number") Else upclientdetail() updategridview4() loadnewclient() clearalltexts() billformat.namecombo.Items.Clear() cs.Open() cmd.CommandText = "select Client_Name from clientsreport" dr = cmd.ExecuteReader() While dr.Read() billformat.namecombo.Items.Add(dr("Client_Name").ToString() ) End While dr.Close() cs.Close() End If DataGridView1.Columns.Clear() DataGridView2.Columns.Clear() End Sub Private Sub ComboBox3_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox3.SelectedIndexChanged cs.Open() cmd.CommandText = "select Client_Name,Address,Contact_No,CST_No,TIN_No from clientsreport where Cust_Id=@Cust_Id" cmd.Parameters.Add(New SqlParameter("@Cust_Id", SqlDbType.VarChar, 100)).Value = ComboBox3.Text.ToString dr = cmd.ExecuteReader() dr.Read() If dr.HasRows Then

BUSINESS MANAGEMENT SYSTEM

Page 147

txtupcli.Text = dr("Client_Name").ToString() newadd.Text = dr("Address").ToString() newcontact.Text = dr("Contact_No").ToString() txtupcst.Text = dr("CST_No").ToString() txtuptin.Text = dr("TIN_No").ToString() End If dr.Close() cs.Close() cmd.Parameters.Clear() updategridview4() End Sub Public Sub updategridview4() cs.Open() Dim ds As New DataSet("tab") Dim da As New SqlDataAdapter("select * from clientsreport where Cust_Id=@Cust_Id", cs) da.SelectCommand.Parameters.Add(New SqlParameter("@Cust_Id", SqlDbType.VarChar, 100)).Value = ComboBox3.SelectedItem.ToString() da.Fill(ds, "tab") DataGridView4.DataSource = ds DataGridView4.DataMember = "tab" cs.Close() da.SelectCommand.Parameters.Clear() End Sub Private Sub clientsreport_FormClosing(ByVal sender As System.Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles MyBase.FormClosing Me.Dispose() End Sub Private Sub txtaddcntnm_KeyDown(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles txtaddcntnm.KeyDown, txtaddclntcontact.KeyDown, rtxtaddclntadd.KeyDown End If End Sub Private Sub ComboBox2_KeyDown(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles ComboBox2.KeyDown If e.KeyValue = Keys.Enter Then Button6_Click(Nothing, Nothing) End If End Sub Private Sub ComboBox3_KeyDown(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles ComboBox3.KeyDown, newcontact.KeyDown, newadd.KeyDown If e.KeyValue = Keys.Back Then b = True End If End Sub Private Sub TabControl1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TabControl1.SelectedIndexChanged clearalltexts() deletemsg.Text = "" DataGridView2.Columns.Clear() End Sub

BUSINESS MANAGEMENT SYSTEM

Page 148

SCREEN LAYOUT OF ORDER FORM :

BUSINESS MANAGEMENT SYSTEM

Page 149

CODE FOR ORDER FORM :

Imports System.Data.SqlClient

BUSINESS MANAGEMENT SYSTEM

Page 150

Public Class Order Dim cs As New SqlConnection() Dim cmd As SqlCommand Dim dr As SqlDataReader Dim b As Boolean Private Sub Order_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load dateodr.ResetText() datedel.ResetText() 'Add Custid cs.Open() Dim qs As String = "select Distinct(Cust_Id) from clientsreport order by Cust_Id" Dim cmd As New SqlCommand(qs, cs) dr = cmd.ExecuteReader() While dr.Read() Combocustid.Items.Add(dr("Cust_Id").ToString()) End While dr.Close() cs.Close() 'Add Hanger Name cs.Open() Dim qss As String = "select Distinct(Hanger_Name) from Available order by Hanger_Name" Dim cmdd As New SqlCommand(qss, cs) dr = cmdd.ExecuteReader() While dr.Read() Comboproname1.Items.Add(dr("Hanger_Name").ToString()) Comboproname2.Items.Add(dr("Hanger_Name").ToString()) Comboproname3.Items.Add(dr("Hanger_Name").ToString()) Comboproname4.Items.Add(dr("Hanger_Name").ToString()) Comboproname5.Items.Add(dr("Hanger_Name").ToString()) Comboup1.Items.Add(dr("Hanger_Name").ToString()) Comboup2.Items.Add(dr("Hanger_Name").ToString()) Comboup3.Items.Add(dr("Hanger_Name").ToString()) Comboup4.Items.Add(dr("Hanger_Name").ToString()) Comboup5.Items.Add(dr("Hanger_Name").ToString()) End While dr.Close() cs.Close() 'Order Id Dim i As Integer cs.Open() Dim sq As String = "select order_No from order_status where order_No like '%'" Dim cmg As New SqlCommand(sq, cs) dr = cmg.ExecuteReader() If dr.HasRows = False Then txtodrno.Text = "1" Else While dr.Read() End While i = i + 1 End If dr.Close() cs.Close()

BUSINESS MANAGEMENT SYSTEM

Page 151

'Remove Order Combodel cs.Open() Dim qsss As String = "select Distinct(Order_No) from orders order by Order_No" Dim cmddd As New SqlCommand(qsss, cs) dr = cmddd.ExecuteReader() While dr.Read() Comboup.Items.Add(dr("Order_No").ToString()) Comboshwod.Items.Add(dr("Order_No").ToString()) End While dr.Close() cs.Close() End Sub Private Sub Combocustid_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Combocustid.SelectedIndexChanged cs.Open() Dim qs As String = "Select Client_name from clientsreport where Cust_Id=@Cust_Id" Dim cmd As New SqlCommand(qs, cs) cmd.Parameters.Add(New SqlParameter("@Cust_Id", SqlDbType.NChar, 100)).Value = Combocustid.SelectedItem.ToString dr = cmd.ExecuteReader() dr.Read() If dr.HasRows Then txtclientname.Text = dr("Client_name").ToString() End If dr.Close() cs.Close() cmd.Parameters.Clear() End Sub Private Sub Comboproname_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Comboproname1.SelectedIndexChanged txtavailqty1.Enabled = True txtrqqty1.Enabled = True txtbalqty1.Enabled = True Comboproname2.Enabled = True cs.Open() Dim qs As String = "Select Available_Quantity from available where Hanger_Name=@Hanger_Name" Dim cmd As New SqlCommand(qs, cs) cmd.Parameters.Add(New SqlParameter("@Hanger_Name", SqlDbType.NChar, 100)).Value = Comboproname1.SelectedItem.ToString dr = cmd.ExecuteReader() dr.Read() If dr.HasRows Then txtavailqty1.Text = dr("Available_Quantity").ToString() End If dr.Close() cs.Close() cmd.Parameters.Clear() End Sub Private Sub Comboproname2_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Comboproname2.SelectedIndexChanged

BUSINESS MANAGEMENT SYSTEM

Page 152

txtavailqty2.Enabled = True txtrqqty2.Enabled = True txtbalqty2.Enabled = True Comboproname3.Enabled = True cs.Open() Dim qs As String = "Select Available_Quantity from available where Hanger_Name=@Hanger_Name" Dim cmd As New SqlCommand(qs, cs) cmd.Parameters.Add(New SqlParameter("@Hanger_Name", SqlDbType.NChar, 100)).Value = Comboproname2.SelectedItem.ToString dr = cmd.ExecuteReader() dr.Read() If dr.HasRows Then txtavailqty2.Text = dr("Available_Quantity").ToString() End If dr.Close() cs.Close() cmd.Parameters.Clear() End Sub Private Sub Comboproname3_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Comboproname3.SelectedIndexChanged txtavailqty3.Enabled = True txtrqqty3.Enabled = True txtbalqty3.Enabled = True Comboproname4.Enabled = True cs.Open() Dim qs As String = "Select Available_Quantity from available where Hanger_Name=@Hanger_Name" Dim cmd As New SqlCommand(qs, cs) cmd.Parameters.Add(New SqlParameter("@Hanger_Name", SqlDbType.NChar, 100)).Value = Comboproname3.SelectedItem.ToString dr = cmd.ExecuteReader() dr.Read() If dr.HasRows Then End If dr.Close() cs.Close() cmd.Parameters.Clear() End Sub Private Sub Comboproname4_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Comboproname4.SelectedIndexChanged txtavailqty4.Enabled = True txtrqqty4.Enabled = True txtbalqty4.Enabled = True Comboproname5.Enabled = True cs.Open() Dim qs As String = "Select Available_Quantity from available where Hanger_Name=@Hanger_Name" Dim cmd As New SqlCommand(qs, cs) cmd.Parameters.Add(New SqlParameter("@Hanger_Name", SqlDbType.NChar, 100)).Value = Comboproname4.SelectedItem.ToString dr = cmd.ExecuteReader() dr.Read()

BUSINESS MANAGEMENT SYSTEM

Page 153

If dr.HasRows Then End If dr.Close() cs.Close() cmd.Parameters.Clear() End Sub Private Sub Comboproname5_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Comboproname5.SelectedIndexChanged txtavailqty5.Enabled = True txtrqqty5.Enabled = True txtbalqty5.Enabled = True cs.Open() Dim qs As String = "Select Available_Quantity from available where Hanger_Name=@Hanger_Name" Dim cmd As New SqlCommand(qs, cs) cmd.Parameters.Add(New SqlParameter("@Hanger_Name", SqlDbType.NChar, 100)).Value = Comboproname5.SelectedItem.ToString dr = cmd.ExecuteReader() dr.Read() If dr.HasRows Then txtavailqty5.Text = dr("Available_Quantity").ToString() End If dr.Close() cs.Close() cmd.Parameters.Clear() End Sub Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click If Combocustid.Text = "SELECT" Then MsgBox("Please Select Customer Id ") ElseIf Comboproname1.Text = "SELECT" Then MsgBox("Select Hanger Name ") Else Insert() order_status() MsgBox("Data Store Succesfully") cs.Open() Dim ds As New DataSet("tab") Dim da As New SqlDataAdapter("select * From orders where order_No=@order_No", cs) da.SelectCommand.Parameters.Add(New SqlParameter("@order_No", SqlDbType.VarChar, 200)).Value = txtodrno.Text da.Fill(ds, "tab") gridadd.DataSource = ds gridadd.DataMember = "tab" cs.Close() clrall() order_no() loadcombo() End If End Sub Sub clrall() Combocustid.ResetText() Combocustid.Text = "SELECT" txtclientname.Clear()

BUSINESS MANAGEMENT SYSTEM

Page 154

'txtodrsta dateodr.ResetText() datedel.ResetText() Comboproname1.ResetText() Comboproname2.ResetText() Comboproname3.ResetText() Comboproname4.ResetText() Comboproname4.Enabled = False Comboproname5.Enabled = False txtrqqty2.Clear() txtbalqty5.Clear() txtrqqty1.Enabled = False txtrqqty2.Enabled = False txtrqqty3.Enabled = False txtrqqty4.Enabled = False txtrqqty5.Enabled = False Comboup.ResetText() Comboup.Text = "SELECT" txtupcli.Clear() txtupclname.Clear() Comboup3.Visible = False Comboup4.Visible = False Comboup5.Visible = False Comboup5.ResetText() Comboup1.Text = "SELECT" Comboup2.Text = "SELECT" Comboup3.Text = "SELECT" Label3.Visible = False Button1.Visible = False End Sub Sub loadcombo() Comboup.Items.Clear() Comboshwod.Items.Clear() cs.Open() Dim qsss As String = "select Distinct(Order_No) from orders order by Order_No" Dim cmddd As New SqlCommand(qsss, cs) dr = cmddd.ExecuteReader() While dr.Read() Comboup.Items.Add(dr("Order_No").ToString()) Comboshwod.Items.Add(dr("Order_No").ToString()) End While dr.Close() cs.Close() txtodrno.Clear() Dim i As Integer cs.Open() Dim sq As String = "select order_No from order_status where order_No like '%'" Dim cmg As New SqlCommand(sq, cs) dr = cmg.ExecuteReader() If dr.HasRows = False Then txtodrno.Text = "1" Else While dr.Read() i = i + 1 End While i = i + 1

BUSINESS MANAGEMENT SYSTEM

Page 155

End If dr.Close() cs.Close() End Sub Sub order_no() 'Order Id Dim i As Integer cs.Open() Dim sq As String = "select order_No from order_status where order_No like '%'" Dim cmg As New SqlCommand(sq, cs) dr = cmg.ExecuteReader() If dr.HasRows = False Then txtodrno.Text = "1" Else While dr.Read() i = i + 1 End While i = i + 1 txtodrno.Text = i End If dr.Close() cs.Close() End Sub Sub Insert() Dim qs As String If Comboproname1.Text <> "SELECT" Then qs = "insert into orders values(@order_No,@Cust_Id,@Client_Name,@Hanger_Name,@Quantity,@order_Date,@ order_Status,@Delivery_Date)" cmd = New SqlCommand(qs, cs) cmd.Parameters.Add(New SqlParameter("@order_No", SqlDbType.NVarChar, 20)).Value = txtodrno.Text cmd.Parameters.Add(New SqlParameter("@Cust_Id", SqlDbType.NVarChar, 20)).Value = Combocustid.SelectedItem.ToString cmd.Parameters.Add(New SqlParameter("@Client_Name", SqlDbType.NVarChar, 200)).Value = txtclientname.Text cmd.Parameters.Add(New SqlParameter("@Hanger_Name", SqlDbType.NVarChar, 200)).Value = Comboproname1.SelectedItem.ToString cmd.Parameters.Add(New SqlParameter("@Quantity", SqlDbType.Decimal, 18, 2)).Value = txtrqqty1.Text cmd.Parameters.Add(New SqlParameter("@order_Date", SqlDbType.SmallDateTime)).Value = dateodr.Text cmd.Parameters.Add(New SqlParameter("@order_Status", SqlDbType.NVarChar, 200)).Value = txtodrsta.Text cmd.Parameters.Add(New SqlParameter("@Delivery_Date", SqlDbType.SmallDateTime)).Value = datedel.Text cs.Open() cmd.ExecuteNonQuery() cs.Close() cmd.Parameters.Clear() End If If Comboproname2.Text <> "SELECT" Then qs = "insert into orders values(@Order_No,@Cust_Id,@Client_Name,@Hanger_Name,@Quantity,@Order_Date,@ Order_Status,@Delivery_Date)" cmd = New SqlCommand(qs, cs)

BUSINESS MANAGEMENT SYSTEM

Page 156

cmd.Parameters.Add(New SqlParameter("@Order_No", SqlDbType.NVarChar, 20)).Value = txtodrno.Text cmd.Parameters.Add(New SqlParameter("@Cust_Id", SqlDbType.NVarChar, 20)).Value = Combocustid.SelectedItem.ToString cmd.Parameters.Add(New SqlParameter("@Client_Name", SqlDbType.NVarChar, 200)).Value = txtclientname.Text cmd.Parameters.Add(New SqlParameter("@Hanger_Name", SqlDbType.NVarChar, 200)).Value = Comboproname2.SelectedItem.ToString cmd.Parameters.Add(New SqlParameter("@Quantity", SqlDbType.Decimal, 18, 2)).Value = txtrqqty2.Text cmd.Parameters.Add(New SqlParameter("@Order_Date", SqlDbType.SmallDateTime)).Value = dateodr.Text cmd.Parameters.Add(New SqlParameter("@Order_Status", SqlDbType.NVarChar, 200)).Value = txtodrsta.Text cmd.Parameters.Add(New SqlParameter("@Delivery_Date", SqlDbType.SmallDateTime)).Value = datedel.Text cs.Open() cmd.ExecuteNonQuery() cs.Close() cmd.Parameters.Clear() End If If Comboproname3.Text <> "SELECT" Then qs = "insert into orders values(@Order_No,@Cust_Id,@Client_Name,@Hanger_Name,@Quantity,@Order_Date,@ Order_Status,@Delivery_Date)" cmd = New SqlCommand(qs, cs) cmd.Parameters.Add(New SqlParameter("@Order_No", SqlDbType.NVarChar, 20)).Value = txtodrno.Text cmd.Parameters.Add(New SqlParameter("@Cust_Id", SqlDbType.NVarChar, 20)).Value = Combocustid.SelectedItem.ToString cmd.Parameters.Add(New SqlParameter("@Client_Name", SqlDbType.NVarChar, 200)).Value = txtclientname.Text cmd.Parameters.Add(New SqlParameter("@Hanger_Name", SqlDbType.NVarChar, 200)).Value = Comboproname3.SelectedItem.ToString cmd.Parameters.Add(New SqlParameter("@Quantity", SqlDbType.Decimal, 18, 2)).Value = txtrqqty3.Text cmd.Parameters.Add(New SqlParameter("@Order_Date", SqlDbType.SmallDateTime)).Value = dateodr.Text cmd.Parameters.Add(New SqlParameter("@Order_Status", SqlDbType.NVarChar, 200)).Value = txtodrsta.Text cmd.Parameters.Add(New SqlParameter("@Delivery_Date", SqlDbType.SmallDateTime)).Value = datedel.Text cs.Open() cmd.ExecuteNonQuery() cs.Close() cmd.Parameters.Clear() End If If Comboproname4.Text <> "SELECT" Then qs = "insert into orders values(@Order_No,@Cust_Id,@Client_Name,@Hanger_Name,@Quantity,@Order_Date,@ Order_Status,@Delivery_Date)" cmd = New SqlCommand(qs, cs) cmd.Parameters.Add(New SqlParameter("@Order_No", SqlDbType.NVarChar, 20)).Value = txtodrno.Text cmd.Parameters.Add(New SqlParameter("@Cust_Id", SqlDbType.NVarChar, 20)).Value = Combocustid.SelectedItem.ToString cmd.Parameters.Add(New SqlParameter("@Client_Name", SqlDbType.NVarChar, 200)).Value = txtclientname.Text

BUSINESS MANAGEMENT SYSTEM

Page 157

cmd.Parameters.Add(New SqlParameter("@Hanger_Name", SqlDbType.NVarChar, 200)).Value = Comboproname4.SelectedItem.ToString cmd.Parameters.Add(New SqlParameter("@Quantity", SqlDbType.Decimal, 18, 2)).Value = txtrqqty4.Text cmd.Parameters.Add(New SqlParameter("@Order_Date", SqlDbType.SmallDateTime)).Value = dateodr.Text cmd.Parameters.Add(New SqlParameter("@Order_Status", SqlDbType.NVarChar, 200)).Value = txtodrsta.Text cmd.Parameters.Add(New SqlParameter("@Delivery_Date", SqlDbType.SmallDateTime)).Value = datedel.Text cs.Open() cmd.ExecuteNonQuery() cs.Close() cmd.Parameters.Clear() End If If Comboproname5.Text <> "SELECT" Then qs = "insert into orders values(@Order_No,@Cust_Id,@Client_Name,@Hanger_Name,@Quantity,@Order_Date,@ Order_Status,@Delivery_Date)" cmd = New SqlCommand(qs, cs) cmd.Parameters.Add(New SqlParameter("@Order_No", SqlDbType.NVarChar, 20)).Value = txtodrno.Text cmd.Parameters.Add(New SqlParameter("@Cust_Id", SqlDbType.NVarChar, 20)).Value = Combocustid.SelectedItem.ToString cmd.Parameters.Add(New SqlParameter("@Client_Name", SqlDbType.NVarChar, 200)).Value = txtclientname.Text cmd.Parameters.Add(New SqlParameter("@Hanger_Name", SqlDbType.NVarChar, 200)).Value = Comboproname5.SelectedItem.ToString cmd.Parameters.Add(New SqlParameter("@Quantity", SqlDbType.Decimal, 18, 2)).Value = txtrqqty5.Text cmd.Parameters.Add(New SqlParameter("@Order_Date", SqlDbType.SmallDateTime)).Value = dateodr.Text cmd.Parameters.Add(New SqlParameter("@Order_Status", SqlDbType.NVarChar, 200)).Value = txtodrsta.Text cmd.Parameters.Add(New SqlParameter("@Delivery_Date", SqlDbType.SmallDateTime)).Value = datedel.Text cs.Open() cmd.ExecuteNonQuery() cs.Close() cmd.Parameters.Clear() End If End Sub 'order_status Sub order_status() Dim qs As String qs = "insert into order_status values(@order_No,@order_Status)" cmd = New SqlCommand(qs, cs) cmd.Parameters.Add(New SqlParameter("@order_No", SqlDbType.NVarChar, 20)).Value = txtodrno.Text cmd.Parameters.Add(New SqlParameter("@order_Status", SqlDbType.NVarChar, 200)).Value = txtodrsta.Text cs.Open() cmd.ExecuteNonQuery() cs.Close() cmd.Parameters.Clear() End Sub Sub del_OrderStatus() Dim ups As String

BUSINESS MANAGEMENT SYSTEM

Page 158

ups = "delete from order_status where order_No = @order_No" cmd = New SqlCommand(ups, cs) cmd.Parameters.Add(New SqlParameter("@order_No", SqlDbType.NVarChar, 200)).Value = Comboup.SelectedItem.ToString cs.Open() cmd.ExecuteNonQuery() dr = cmd.ExecuteReader() dr.Close() cs.Close() cmd.Parameters.Clear() End Sub Private Sub Comboup_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Comboup.SelectedIndexChanged If Comboup.Text = "SELECT" Then Label25.Visible = False Label10.Visible = False Label24.Visible = False Label3.Visible = False txtavai1.Visible = False Comboup1.ResetText() Comboup1.Text = "SELECT" txtre1.Clear() Comboup1.Visible = False Comboup2.Visible = False Comboup3.Visible = False Else upcust() Button1.Visible = True Label25.Visible = True Label10.Visible = True Label24.Visible = True Label3.Visible = True Comboup1.ResetText() Comboup1.Text = "SELECT" txtre1.Clear() cs.Open() Dim qs As String = "Select Hanger_Name,Quantity from orders where order_No=@order_No" Dim cmd As New SqlCommand(qs, cs) cmd.Parameters.Add(New SqlParameter("@order_No", SqlDbType.NChar, 100)).Value = Comboup.SelectedItem.ToString dr = cmd.ExecuteReader() Do While dr.Read() If dr.HasRows Then Comboup1.Visible = True txtre1.Visible = True Comboup1.Text = dr("Hanger_Name").ToString() txtre1.Text = dr("Quantity").ToString() End If Do While dr.Read() If dr.HasRows Then Comboup2.Visible = True txtre2.Visible = True Comboup2.Text = dr("Hanger_Name").ToString() txtre2.Text = dr("Quantity").ToString() End If Do While dr.Read() If dr.HasRows Then Comboup5.Visible = True

BUSINESS MANAGEMENT SYSTEM

Page 159

Com boup5.Text = dr("Hanger_Name").ToString() txtre5.Text = dr("Quantity").ToString() End If Loop Loop Loop dr.NextResult() Loop dr.Close() cs.Close() cmd.Parameters.Clear() End If End Sub Private Sub ComboBox4_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Comboup1.SelectedIndexChanged If Comboup1.Text = "SELECT" Then txtre1.Text = 0 End If End Sub Sub upcust() cs.Open() Dim qs As String = "Select Cust_Id,Client_Name,order_Status,order_date,Delivery_Date from orders where order_No=@order_No" Dim cmd As New SqlCommand(qs, cs) cmd.Parameters.Add(New SqlParameter("@order_No", SqlDbType.NChar, 100)).Value = Comboup.SelectedItem.ToString dr = cmd.ExecuteReader() Do While dr.Read() If dr.HasRows Then txtupcli.Text = dr("Cust_Id").ToString() txtupclname.Text = dr("Client_Name").ToString() txtupodrst.Text = dr("order_Status").ToString() Dateup.Text = dr("order_date").ToString() dateupdel.Text = dr("Delivery_Date").ToString() End If Loop dr.Close() cs.Close() cmd.Parameters.Clear() End Sub Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click If Comboup1.Text <> "SELECT" Then txtavai1.Visible = True txtbal1.Visible = True cs.Open() Dim qs As String = "Select Available_Quantity from available where Hanger_Name=@Hanger_Name" Dim cmd As New SqlCommand(qs, cs) cmd.Parameters.Add(New SqlParameter("@Hanger_Name", SqlDbType.NChar, 100)).Value = Comboup1.SelectedItem.ToString dr = cmd.ExecuteReader() dr.Read() If dr.HasRows Then txtavai1.Text = dr("Available_Quantity").ToString()

BUSINESS MANAGEMENT SYSTEM

Page 160

End If dr.Close() cs.Close() cmd.Parameters.Clear() End If If Comboup2.Text <> "SELECT" Then txtavai2.Visible = True txtbal2.Visible = True cs.Open() Dim qs As String = "Select Available_Quantity from available where Hanger_Name=@Hanger_Name" Dim cmd As New SqlCommand(qs, cs) cmd.Parameters.Add(New SqlParameter("@Hanger_Name", SqlDbType.NChar, 100)).Value = Comboup2.SelectedItem.ToString dr = cmd.ExecuteReader() dr.Read() If dr.HasRows Then txtavai2.Text = dr("Available_Quantity").ToString() End If dr.Close() cs.Close() cmd.Parameters.Clear() End If If Comboup3.Text <> "SELECT" Then txtavai3.Visible = True txtbal3.Visible = True cs.Open() Dim qs As String = "Select Available_Quantity from available where Hanger_Name=@Hanger_Name" Dim cmd As New SqlCommand(qs, cs) cmd.Parameters.Add(New SqlParameter("@Hanger_Name", SqlDbType.NChar, 100)).Value = Comboup3.SelectedItem.ToString dr = cmd.ExecuteReader() dr.Read() If dr.HasRows Then txtavai3.Text = dr("Available_Quantity").ToString() End If dr.Close() cs.Close() cmd.Parameters.Clear() End If If Comboup4.Text <> "SELECT" Then txtavai4.Visible = True txtbal4.Visible = True cs.Open() Dim qs As String = "Select Available_Quantity from available where Hanger_Name=@Hanger_Name" Dim cmd As New SqlCommand(qs, cs) cmd.Parameters.Add(New SqlParameter("@Hanger_Name", SqlDbType.NChar, 100)).Value = Comboup4.SelectedItem.ToString dr = cmd.ExecuteReader() dr.Read() If dr.HasRows Then txtavai4.Text = dr("Available_Quantity").ToString() End If dr.Close() cs.Close() cmd.Parameters.Clear()

BUSINESS MANAGEMENT SYSTEM

Page 161

End If If Comboup5.Text <> "SELECT" Then txtavai5.Visible = True txtbal5.Visible = True cs.Open() Dim qs As String = "Select Available_Quantity from available where Hanger_Name=@Hanger_Name" Dim cmd As New SqlCommand(qs, cs) cmd.Parameters.Add(New SqlParameter("@Hanger_Name", SqlDbType.NChar, 100)).Value = Comboup5.SelectedItem.ToString dr = cmd.ExecuteReader() dr.Read() If dr.HasRows Then txtavai5.Text = dr("Available_Quantity").ToString() End If dr.Close() cs.Close() cmd.Parameters.Clear() End If End Sub Sub update_orders() If Comboup1.Text <> "SELECT" Then Dim qs As String qs = "insert into orders values(@order_No,@Cust_Id,@Client_Name,@Hanger_Name,@Quantity,@order_Date,@ order_Status,@Delivery_Date)" cmd = New SqlCommand(qs, cs) cmd.Parameters.Add(New SqlParameter("@order_No", SqlDbType.NVarChar, 20)).Value = Comboup.SelectedItem.ToString cmd.Parameters.Add(New SqlParameter("@Cust_Id", SqlDbType.NVarChar, 20)).Value = txtupcli.Text cmd.Parameters.Add(New SqlParameter("@Client_Name", SqlDbType.NVarChar, 200)).Value = txtupclname.Text cmd.Parameters.Add(New SqlParameter("@Hanger_Name", SqlDbType.NVarChar, 200)).Value = Comboup1.SelectedItem.ToString cmd.Parameters.Add(New SqlParameter("@Quantity", SqlDbType.Decimal, 18, 2)).Value = txtre1.Text cmd.Parameters.Add(New SqlParameter("@order_Date", SqlDbType.SmallDateTime)).Value = Dateup.Text cmd.Parameters.Add(New SqlParameter("@order_Status", SqlDbType.NVarChar, 200)).Value = txtupodrst.Text cmd.Parameters.Add(New SqlParameter("@Delivery_Date", SqlDbType.SmallDateTime)).Value = dateupdel.Text cs.Open() cmd.ExecuteNonQuery() cs.Close() cmd.Parameters.Clear() End If If Comboup2.Text <> "SELECT" Then Dim qs As String qs = "insert into orders values(@order_No,@Cust_Id,@Client_Name,@Hanger_Name,@Quantity,@order_Date,@ order_Status,@Delivery_Date)" cmd = New SqlCommand(qs, cs) cmd.Parameters.Add(New SqlParameter("@order_No", SqlDbType.NVarChar, 20)).Value = Comboup.SelectedItem.ToString cmd.Parameters.Add(New SqlParameter("@Cust_Id", SqlDbType.NVarChar, 20)).Value = txtupcli.Text

BUSINESS MANAGEMENT SYSTEM

Page 162

cmd.Parameters.Add(New SqlParameter("@Client_Name", SqlDbType.NVarChar, 200)).Value = txtupclname.Text cmd.Parameters.Add(New SqlParameter("@Hanger_Name", SqlDbType.NVarChar, 200)).Value = Comboup2.SelectedItem.ToString cmd.Parameters.Add(New SqlParameter("@Quantity", SqlDbType.Decimal, 18, 2)).Value = txtre2.Text cmd.Parameters.Add(New SqlParameter("@order_Date", SqlDbType.SmallDateTime)).Value = Dateup.Text cmd.Parameters.Add(New SqlParameter("@order_Status", SqlDbType.NVarChar, 200)).Value = txtupodrst.Text cmd.Parameters.Add(New SqlParameter("@Delivery_Date", SqlDbType.SmallDateTime)).Value = dateupdel.Text cs.Open() cmd.ExecuteNonQuery() cs.Close() cmd.Parameters.Clear() End If If Comboup3.Text <> "SELECT" Then Dim qs As String qs = "insert into orders values(@order_No,@Cust_Id,@Client_Name,@Hanger_Name,@Quantity,@order_Date,@ order_Status,@Delivery_Date)" cmd = New SqlCommand(qs, cs) cmd.Parameters.Add(New SqlParameter("@order_No", SqlDbType.NVarChar, 20)).Value = Comboup.SelectedItem.ToString cmd.Parameters.Add(New SqlParameter("@Cust_Id", SqlDbType.NVarChar, 20)).Value = txtupcli.Text cmd.Parameters.Add(New SqlParameter("@Client_Name", SqlDbType.NVarChar, 200)).Value = txtupclname.Text cmd.Parameters.Add(New SqlParameter("@Hanger_Name", SqlDbType.NVarChar, 200)).Value = Comboup3.SelectedItem.ToString cmd.Parameters.Add(New SqlParameter("@Quantity", SqlDbType.Decimal, 18, 2)).Value = txtre3.Text cmd.Parameters.Add(New SqlParameter("@order_Date", SqlDbType.SmallDateTime)).Value = Dateup.Text cmd.Parameters.Add(New SqlParameter("@order_Status", SqlDbType.NVarChar, 200)).Value = txtupodrst.Text cmd.Parameters.Add(New SqlParameter("@Delivery_Date", SqlDbType.SmallDateTime)).Value = dateupdel.Text cs.Open() cmd.ExecuteNonQuery() cs.Close() cmd.Parameters.Clear() End If If Comboup4.Text <> "SELECT" Then Dim qs As String qs = "insert into orders values(@order_No,@Cust_Id,@Client_Name,@Hanger_Name,@Quantity,@order_Date,@ order_Status,@Delivery_Date)" cmd = New SqlCommand(qs, cs) cmd.Parameters.Add(New SqlParameter("@order_No", SqlDbType.NVarChar, 20)).Value = Comboup.SelectedItem.ToString cmd.Parameters.Add(New SqlParameter("@Cust_Id", SqlDbType.NVarChar, 20)).Value = txtupcli.Text cmd.Parameters.Add(New SqlParameter("@Client_Name", SqlDbType.NVarChar, 200)).Value = txtupclname.Text cmd.Parameters.Add(New SqlParameter("@Hanger_Name", SqlDbType.NVarChar, 200)).Value = Comboup4.SelectedItem.ToString

BUSINESS MANAGEMENT SYSTEM

Page 163

cmd.Parameters.Add(New SqlParameter("@Quantity", SqlDbType.Decimal, 18, 2)).Value = txtre4.Text cmd.Parameters.Add(New SqlParameter("@order_Date", SqlDbType.SmallDateTime)).Value = Dateup.Text cmd.Parameters.Add(New SqlParameter("@order_Status", SqlDbType.NVarChar, 200)).Value = txtupodrst.Text cmd.Parameters.Add(New SqlParameter("@Delivery_Date", SqlDbType.SmallDateTime)).Value = dateupdel.Text cs.Open() cmd.ExecuteNonQuery() cs.Close() cmd.Parameters.Clear() End If If Comboup5.Text <> "SELECT" Then Dim qs As String qs = "insert into orders values(@order_No,@Cust_Id,@Client_Name,@Hanger_Name,@Quantity,@order_Date,@ order_Status,@Delivery_Date)" cmd = New SqlCommand(qs, cs) cmd.Parameters.Add(New SqlParameter("@order_No", SqlDbType.NVarChar, 20)).Value = Comboup.SelectedItem.ToString cmd.Parameters.Add(New SqlParameter("@Cust_Id", SqlDbType.NVarChar, 20)).Value = txtupcli.Text cmd.Parameters.Add(New SqlParameter("@Client_Name", SqlDbType.NVarChar, 200)).Value = txtupclname.Text cmd.Parameters.Add(New SqlParameter("@Hanger_Name", SqlDbType.NVarChar, 200)).Value = Comboup5.SelectedItem.ToString cmd.Parameters.Add(New SqlParameter("@Quantity", SqlDbType.Decimal, 18, 2)).Value = txtre5.Text cmd.Parameters.Add(New SqlParameter("@order_Date", SqlDbType.SmallDateTime)).Value = Dateup.Text cmd.Parameters.Add(New SqlParameter("@order_Status", SqlDbType.NVarChar, 200)).Value = txtupodrst.Text cmd.Parameters.Add(New SqlParameter("@Delivery_Date", SqlDbType.SmallDateTime)).Value = dateupdel.Text cs.Open() cmd.ExecuteNonQuery() cs.Close() cmd.Parameters.Clear() End If End Sub Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click If Comboup.Text = "SELECT" Then MsgBox("Please Select Order Number") Else del_Order() del_OrderStatus() clrall() loadcombo() gridup.Columns.Clear() End If End Sub Sub del_Order() Dim ups As String ups = "delete from orders where order_No = @order_No" cmd = New SqlCommand(ups, cs)

BUSINESS MANAGEMENT SYSTEM

Page 164

cmd.Parameters.Add(New SqlParameter("@order_No", SqlDbType.NVarChar, 200)).Value = Comboup.SelectedItem.ToString cs.Open() cmd.ExecuteNonQuery() dr = cmd.ExecuteReader() dr.Close() cs.Close() cmd.Parameters.Clear() End Sub Private Sub TabControl1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TabControl1.SelectedIndexChanged clrall() gridadd.Columns.Clear() gridup.Columns.Clear() gridshw1.Columns.Clear() gridshw2.Columns.Clear() End Sub Private Sub Comboshwod_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Comboshwod.SelectedIndexChanged cs.Open() Dim qs As String = "Select order_Status from orders where order_No=@order_No" Dim cmd As New SqlCommand(qs, cs) cmd.Parameters.Add(New SqlParameter("@order_No", SqlDbType.NChar, 100)).Value = Comboshwod.SelectedItem.ToString dr = cmd.ExecuteReader() Do While dr.Read() If dr.HasRows Then ComboBox1.Text = dr("order_Status").ToString() End If Loop dr.Close() cs.Close() cmd.Parameters.Clear() End Sub Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click If Comboshwod.Text = "SELECT" Then MsgBox("Please Select Order No") Else Dim ups As String ups = "update orders set Order_Status=@Order_Status where order_No=@order_No" cmd = New SqlCommand(ups, cs) cmd.Parameters.Add(New SqlParameter("@order_No", SqlDbType.NVarChar, 20)).Value = Comboshwod.SelectedItem.ToString cmd.Parameters.Add(New SqlParameter("@Order_Status", SqlDbType.NVarChar, 200)).Value = ComboBox1.SelectedItem.ToString cs.Open() cmd.ExecuteNonQuery() MsgBox("Detail is updated successfully") cs.Close() cmd.Parameters.Clear() show_Grid1() show_Grid2()

BUSINESS MANAGEMENT SYSTEM

Page 165

Comboshwod.ResetText() Comboshwod.Text = "SELECT" ComboBox1.ResetText() ComboBox1.Text = "SELECT" End If End Sub Sub show_Grid1() cs.Open() Dim ds As New DataSet("tab") Dim da As New SqlDataAdapter("select Distinct(Order_No),Order_Status From orders where order_No=@order_No", cs) da.SelectCommand.Parameters.Add(New SqlParameter("@order_No", SqlDbType.VarChar, 200)).Value = Comboshwod.SelectedItem.ToString da.Fill(ds, "tab") gridshw1.DataSource = ds gridshw1.DataMember = "tab" cs.Close() End Sub Sub show_Grid2() cs.Open() Dim ds As New DataSet("tab") Dim da As New SqlDataAdapter("select * From orders where order_No=@order_No", cs) da.SelectCommand.Parameters.Add(New SqlParameter("@order_No", SqlDbType.VarChar, 200)).Value = Comboshwod.SelectedItem.ToString da.Fill(ds, "tab") gridshw2.DataSource = ds gridshw2.DataMember = "tab" cs.Close() End Sub Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click Dim da As New SqlDataAdapter("select Distinct(Order_No),Order_Status From orders where order_Status like 'Pending%' ", cs) Dim ds As New DataSet Dim cmb As New SqlCommandBuilder(da) gridshw1.Refresh() da.Fill(ds, "orders") gridshw1.DataSource = ds.Tables("orders") show_Pend_orders() End Sub Sub show_Pend_orders() Dim da As New SqlDataAdapter("select * From orders where order_Status like 'Pending%' ", cs) Dim ds As New DataSet Dim cmb As New SqlCommandBuilder(da) gridshw2.Refresh() da.Fill(ds, "orders") gridshw2.DataSource = ds.Tables("orders") End Sub Private Sub Button6_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click Dim da As New SqlDataAdapter("select Distinct(Order_No),Order_Status From orders where order_Status like 'Complete%' ", cs)

BUSINESS MANAGEMENT SYSTEM

Page 166

Dim ds As New DataSet Dim cmb As New SqlCommandBuilder(da) gridshw1.Refresh() da.Fill(ds, "orders") gridshw1.DataSource = ds.Tables("orders") show_Comp_orders() End Sub Private Sub LinkLabel2_LinkClicked(ByVal sender As System.Object, ByVal e As System.Windows.Forms.LinkLabelLinkClickedEventArgs) Handles LinkLabel2.LinkClicked index.Show() Me.Close() End Sub Private Sub LinkLabel1_LinkClicked(ByVal sender As System.Object, ByVal e As System.Windows.Forms.LinkLabelLinkClickedEventArgs) Handles LinkLabel1.LinkClicked Application.Exit() End Sub End Class

SCREEN LAYOUT OF BILL FORM :

BUSINESS MANAGEMENT SYSTEM Page 167

CODE FOR BILL FORM :

Imports System

BUSINESS MANAGEMENT SYSTEM

Page 168

Imports System.Data.SqlClient Imports System.IO.IOException Imports System.Runtime.InteropServices Imports System.Drawing Public Class billformat Inherits System.Windows.Forms.Form Dim cs As New SqlConnection() Dim cmd As SqlCommand Dim dr As SqlDataReader Dim b As Boolean Dim totamt As Integer = 0 Private Declare Function RemoveMenu Lib "user32" (ByVal hMenu As IntPtr, ByVal nPosition As Integer, ByVal wFlags As Long) As IntPtr Private Declare Function GetSystemMenu Lib "user32" (ByVal hWnd As IntPtr, ByVal bRevert As Boolean) As IntPtr Private Declare Function GetMenuItemCount Lib "user32" (ByVal hMenu As IntPtr) As Integer Private Declare Function DrawMenuBar Lib "user32" (ByVal hwnd As IntPtr) As Boolean Public Sub DisableCloseButton(ByVal hwnd As IntPtr) Dim hMenu As IntPtr Dim menuItemCount As Integer hMenu = GetSystemMenu(hwnd, False) menuItemCount = GetMenuItemCount(hMenu) Call RemoveMenu(hMenu, menuItemCount - 1, MF_DISABLED Or MF_BYPOSITION) Call RemoveMenu(hMenu, menuItemCount - 2, MF_DISABLED Or MF_BYPOSITION) Call DrawMenuBar(hwnd) End Sub 'code to save final bill with all data in finalbill table Public Sub finalbillsave() Dim addstr As String = txtadd.Text Try If Label20.Text = "VAT" Then Dim qs As String = "insert into finalbill values(@Invoice_No,@Challan_No,@Order_No,@VC_NO,@Client_Name,@Address,@Part y_CST_No,@Party_TIN_No,@Invoice_date,@Challan_date,@Order_date,@Total,@Cart eg,@VAT_Percentage,@CST_Percentage,@TAX,@Grand_Total,@Type_Of_Hanger,@Deliv ery_At,@Sold_Under_Form_No,@Despatch_Through,@RR_Or_LR,@Despatch_Date)" cmd = New SqlCommand(qs, cs) cmd.Parameters.Add(New SqlParameter("@Invoice_No", SqlDbType.NVarChar, 200)) cmd.Parameters.Add(New SqlParameter("@Challan_No", SqlDbType.NVarChar, 200)) cmd.Parameters.Add(New SqlParameter("@Order_No", SqlDbType.NVarChar, 200)) cmd.Parameters.Add(New SqlParameter("@VC_NO", SqlDbType.NVarChar, 200)) cmd.Parameters.Add(New SqlParameter("@Client_Name", SqlDbType.NVarChar, 200)) cmd.Parameters.Add(New SqlParameter("@Address", SqlDbType.NVarChar, 200)) cmd.Parameters.Add(New SqlParameter("@Party_CST_No", SqlDbType.NVarChar, 200)) cmd.Parameters.Add(New SqlParameter("@Party_TIN_No", SqlDbType.NVarChar, 200))

BUSINESS MANAGEMENT SYSTEM

Page 169

cmd.Parameters.Add(New SqlDbType.SmallDateTime)) cmd.Parameters.Add(New SqlDbType.SmallDateTime)) cmd.Parameters.Add(New SqlDbType.SmallDateTime)) cmd.Parameters.Add(New SqlDbType.Decimal, 18, 2)) cmd.Parameters.Add(New SqlDbType.Decimal, 18, 2)) cmd.Parameters.Add(New SqlDbType.Decimal, 18, 2)) cmd.Parameters.Add(New SqlDbType.Decimal, 18, 2)) cmd.Parameters.Add(New SqlDbType.Decimal, 18, 2)) cmd.Parameters.Add(New SqlDbType.Decimal, 18, 2)) cmd.Parameters.Add(New SqlDbType.NVarChar, 200)) cmd.Parameters.Add(New SqlDbType.NVarChar, 200)) cmd.Parameters.Add(New SqlDbType.SmallDateTime)) cmd.Parameters.Add(New SqlDbType.NVarChar, 200)) cmd.Parameters.Add(New SqlDbType.NVarChar, 200)) cmd.Parameters.Add(New SqlDbType.NVarChar, 200))

SqlParameter("@Invoice_date", SqlParameter("@Challan_date", SqlParameter("@Order_date", SqlParameter("@Total", SqlParameter("@Carteg", SqlParameter("@VAT_Percentage", SqlParameter("@CST_Percentage", SqlParameter("@TAX", SqlParameter("@Grand_Total", SqlParameter("@Despatch_Through", SqlParameter("@RR_Or_LR", SqlParameter("@Despatch_Date", SqlParameter("@Delivery_At", SqlParameter("@Type_Of_Hanger", SqlParameter("@Sold_Under_Form_No",

'taxvalue cmd.Parameters("@Invoice_No").Value = txtinvno.Text.ToString cmd.Parameters("@Challan_No").Value = txtchlnno.Text.ToString cmd.Parameters("@Order_No").Value = txtordrno.Text.ToString cmd.Parameters("@VC_NO").Value = txtvcno.Text.ToString cmd.Parameters("@Client_Name").Value = namecombo.SelectedItem.ToString cmd.Parameters("@Address").Value = txtadd.Text.ToString cmd.Parameters("@Party_CST_No").Value = txtpartycst.Text cmd.Parameters("@Party_TIN_No").Value = txtpartytin.Text cmd.Parameters("@Invoice_date").Value = invdate.Value cmd.Parameters("@Challan_date").Value = chlndate.Value cmd.Parameters("@Order_date").Value = ordrdate.Value cmd.Parameters("@Total").Value = txttotal.Text.ToString cmd.Parameters("@Carteg").Value = txtcarteg.Text.ToString cmd.Parameters("@VAT_Percentage").Value = txtcst.Text cmd.Parameters("@CST_Percentage").Value = 0.0 cmd.Parameters("@TAX").Value = taxvalue.Text.ToString cmd.Parameters("@Grand_Total").Value = txtgtotal.Text.ToString cmd.Parameters("@Despatch_Through").Value = txtdesthr.Text.ToString cmd.Parameters("@RR_Or_LR").Value = txtlr.Text.ToString cmd.Parameters("@Despatch_Date").Value = despatchdate.Value cmd.Parameters("@Delivery_At").Value = txtdelivery.Text.ToString cmd.Parameters("@Type_Of_Hanger").Value = combotype.SelectedItem.ToString

BUSINESS MANAGEMENT SYSTEM

Page 170

cmd.Parameters("@Sold_Under_Form_No").Value = txtsold.Text.ToString cs.Open() cmd.ExecuteNonQuery() MsgBox("Data is successfully saved") cs.Close() cmd.Parameters.Clear() ElseIf Label20.Text = "CST" Then Dim qs As String = "insert into finalbill values(@Invoice_No,@Challan_No,@Order_No,@VC_NO,@Client_Name,@Address,@Part y_CST_No,@Party_TIN_No,@Invoice_date,@Challan_date,@Order_date,@Total,@Cart eg,@VAT_Percentage,@CST_Percentage,@TAX,@Grand_Total, @Type_Of_Hanger,@Delivery_At,@Sold_Under_Form_No,@Despatch_Through,@RR_Or_L R,@Despatch_Date)" cmd = New SqlCommand(qs, cs) cmd.Parameters.Add(New SqlParameter("@Invoice_No", SqlDbType.NVarChar, 200)) cmd.Parameters.Add(New SqlParameter("@Challan_No", SqlDbType.NVarChar, 200)) cmd.Parameters.Add(New SqlParameter("@Order_No", SqlDbType.NVarChar, 200)) cmd.Parameters.Add(New SqlParameter("@VC_NO", SqlDbType.NVarChar, 200)) cmd.Parameters.Add(New SqlParameter("@Client_Name", SqlDbType.NVarChar, 200)) cmd.Parameters.Add(New SqlParameter("@Address", SqlDbType.NVarChar, 200)) cmd.Parameters.Add(New SqlParameter("@Party_CST_No", SqlDbType.NVarChar, 200)) cmd.Parameters.Add(New SqlParameter("@Party_TIN_No", SqlDbType.NVarChar, 200)) cmd.Parameters.Add(New SqlParameter("@Invoice_date", SqlDbType.SmallDateTime)) cmd.Parameters.Add(New SqlParameter("@Challan_date", SqlDbType.SmallDateTime)) cmd.Parameters.Add(New SqlParameter("@Order_date", SqlDbType.SmallDateTime)) cmd.Parameters.Add(New SqlParameter("@Total", SqlDbType.Decimal, 18, 2)) cmd.Parameters.Add(New SqlParameter("@Carteg", SqlDbType.Decimal, 18, 2)) cmd.Parameters.Add(New SqlParameter("@VAT_Percentage", SqlDbType.Decimal, 18, 2)) cmd.Parameters.Add(New SqlParameter("@CST_Percentage", SqlDbType.Decimal, 18, 2)) cmd.Parameters.Add(New SqlParameter("@TAX", SqlDbType.Decimal, 18, 2)) cmd.Parameters.Add(New SqlParameter("@Grand_Total", SqlDbType.Decimal, 18, 2)) cmd.Parameters.Add(New SqlParameter("@Despatch_Through", SqlDbType.NVarChar, 200)) cmd.Parameters.Add(New SqlParameter("@RR_Or_LR", SqlDbType.NVarChar, 200)) cmd.Parameters.Add(New SqlParameter("@Despatch_Date", SqlDbType.SmallDateTime)) cmd.Parameters.Add(New SqlParameter("@Delivery_At", SqlDbType.NVarChar, 200)) cmd.Parameters.Add(New SqlParameter("@Type_Of_Hanger", SqlDbType.NVarChar, 200))

BUSINESS MANAGEMENT SYSTEM

Page 171

cmd.Parameters.Add(New SqlParameter("@Sold_Under_Form_No", SqlDbType.NVarChar, 200)) cmd.Parameters("@Invoice_No").Value = txtinvno.Text.ToString cmd.Parameters("@Challan_No").Value = txtchlnno.Text.ToString cmd.Parameters("@Order_No").Value = txtordrno.Text.ToString cmd.Parameters("@VC_NO").Value = txtvcno.Text.ToString cmd.Parameters("@Client_Name").Value = namecombo.SelectedItem.ToString.ToString cmd.Parameters("@Address").Value = txtadd.Text.ToString cmd.Parameters("@Party_CST_No").Value = txtpartycst.Text.ToString cmd.Parameters("@Party_TIN_No").Value = txtpartytin.Text.ToString cmd.Parameters("@Invoice_date").Value = invdate.Value cmd.Parameters("@Challan_date").Value = chlndate.Value cmd.Parameters("@Order_date").Value = ordrdate.Value cmd.Parameters("@Total").Value = txttotal.Text.ToString cmd.Parameters("@Carteg").Value = txtcarteg.Text.ToString cmd.Parameters("@VAT_Percentage").Value = 0.0 cmd.Parameters("@CST_Percentage").Value = txtcst.Text.ToString cmd.Parameters("@TAX").Value = taxvalue.Text.ToString cmd.Parameters("@Grand_Total").Value = txtgtotal.Text.ToString cmd.Parameters("@Despatch_Through").Value = txtdesthr.Text.ToString cmd.Parameters("@RR_Or_LR").Value = txtlr.Text.ToString cmd.Parameters("@Despatch_Date").Value = despatchdate.Value cmd.Parameters("@Delivery_At").Value = txtdelivery.Text.ToString cmd.Parameters("@Type_Of_Hanger").Value = combotype.SelectedItem.ToString cmd.Parameters("@Sold_Under_Form_No").Value = txtsold.Text.ToString cs.Open() cmd.ExecuteNonQuery() MsgBox("Data is successfully saved") cs.Close() cmd.Parameters.Clear() ElseIf vatcheck.Checked = False Then MsgBox("Data is successfully saved") End If Catch ex As Exception MsgBox(ex.Message) End Try savebtn.Enabled = False End Sub 'code to increment invoice no Public Sub increaseinvoiceno() cs.Open() cmd.CommandText = "select Invoice_No from finalbill" dr = cmd.ExecuteReader() If dr.HasRows = False Then txtinvno.Text = "1" Else

BUSINESS MANAGEMENT SYSTEM

Page 172

Dim i As Integer While dr.Read() i = i + 1 End While txtinvno.Text = Convert.ToInt64(i + 1) End If dr.Close() cs.Close() End Sub 'code to clear all the fields Public Sub clearallfields() namecombo.Text = "none" txtadd.Text = "" txtpartycst.Text = "" txtpartytin.Text = "" txtdesthr.Text = "" txtlr.Text = "" txtchlnno.Text = "" txtordrno.Text = "" txtvcno.Text = "" txtdelivery.Text = "" txtsold.Text = "" combotype.Text = "SELECT" ComboBox1.Text = "none" ComboBox2.Text = "none" ComboBox2.Enabled = False ComboBox3.Text = "none" ComboBox3.Enabled = False ComboBox4.Text = "none" ComboBox4.Enabled = False ComboBox5.Text = "none" ComboBox5.Enabled = False qty3.Enabled = False qty4.Text = "1" qty4.Enabled = False qty5.Text = "1" qty5.Enabled = False qty6.Text = "1" qty6.Enabled = False qty7.Text = "1" qty7.Enabled = False rate1.Text = "0" rate1.Enabled = False rate2.Text = "0" rate2.Enabled = False txtamt2.Text = "0" txtamt3.Text = "0" txtamt4.Text = "0" txtamt5.Text = "0" taxvalue.Text = "0.00" lblamtword.Text = "" increaseinvoiceno() CheckBox2.Checked = False+ qty6.Enabled = False qty7.Text = "1" qty7.Enabled = False rate1.Text = "0" rate1.Enabled = False rate2.Text = "0" ComboBox5.Text = "none"

BUSINESS MANAGEMENT SYSTEM

Page 173

ComboBox5.Enabled = False qty3.Enabled = False qty4.Text = "1" qty4.Enabled = False End Sub 'code to process amount Public Sub processamount() 'changes Dim strrate As String = InvoiceBill.rate1.Text + rate1.Text + Environment.NewLine InvoiceBill.rate1.Text = strrate Dim strper As String = InvoiceBill.per1.Text + per1.Text + Environment.NewLine InvoiceBill.per1.Text = strper totamt = totamt + Convert.ToDouble(txtamt1.Text) txttotal.Text = totamt.ToString End Sub Private Sub billformat_Disposed(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Disposed index.Show() Me.Close() End Sub Private Sub Form10_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Panel1.Width = Me.Width - 12 invdate.Value = Today.Date.ToString chlndate.Value = Today.Date.ToString ordrdate.Value = Today.Date.ToString despatchdate.Value = Today.Date.ToString 'code for loading products in combobox starts here ComboBox1.Items.Clear() ComboBox2.Items.Clear() ComboBox3.Items.Clear() ComboBox4.Items.Clear() ComboBox5.Items.Clear() ComboBox6.Items.Clear() ComboBox7.Items.Clear() cs.Open() cmd.CommandText = "select Product_Name from products" dr = cmd.ExecuteReader() While dr.Read() ComboBox1.Items.Add(dr("Product_Name").ToString()) ComboBox2.Items.Add(dr("Product_Name").ToString()) ComboBox3.Items.Add(dr("Product_Name").ToString()) ComboBox4.Items.Add(dr("Product_Name").ToString()) ComboBox5.Items.Add(dr("Product_Name").ToString()) ComboBox6.Items.Add(dr("Product_Name").ToString()) ComboBox7.Items.Add(dr("Product_Name").ToString()) End While cs.Close() namecombo.Items.Clear() cs.Open() cmd.CommandText = "select Client_Name from clientsreport" dr = cmd.ExecuteReader() While dr.Read() namecombo.Items.Add(dr("Client_Name").ToString())

BUSINESS MANAGEMENT SYSTEM

Page 174

End While cs.Close() 'code for loading products in combobox ends here Dim datestring = System.DateTime.Today.Day.ToString + "/" + System.DateTime.Today.Month.ToString + "/" + System.DateTime.Today.Year.ToString cs.Open() cmd.CommandText = "select Invoice_No from finalbill" dr = cmd.ExecuteReader() Dim i As Integer If dr.HasRows = False Then txtinvno.Text = "1" txtchlnno.Text = "1" txtordrno.Text = "1" txtvcno.Text = "1" Else While dr.Read() txtinvno.Text = Convert.ToString(Convert.ToInt32(dr(0)) + 1) txtchlnno.Text = Convert.ToString(Convert.ToInt32(dr(0)) + 1) txtordrno.Text = Convert.ToString(Convert.ToInt32(dr(0)) + 1) txtvcno.Text = Convert.ToString(Convert.ToInt32(dr(0)) + 1) i = i + 1 End While txtinvno.Text = Convert.ToInt64(i + 1) End If dr.Close() cs.Close() End Sub Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged cs.Open() cmd.CommandText = "select Rate,Per from products where Product_Name=@Product_Name" cmd.Parameters.Add(New SqlParameter("@Product_Name", SqlDbType.NVarChar, 200)).Value = ComboBox1.SelectedItem.ToString() dr = cmd.ExecuteReader() dr.Read() If dr.HasRows Then rate1.Text = dr("Rate").ToString() per1.Text = dr("Per").ToString() End If dr.Close() cs.Close() cmd.Parameters.Clear() qty1.Text = "1" txtamt1.Text = Format(Convert.ToDouble(Convert.ToDecimal(qty1.Text) * Convert.ToDecimal(rate1.Text)), "#.00") If ComboBox1.SelectedItem.ToString <> "" Then ComboBox2.Enabled = True qty1.Enabled = True mtr1.Enabled = True rate1.Enabled = True per1.Enabled = True sr1.Text = "1" End If End Sub

BUSINESS MANAGEMENT SYSTEM

Page 175

Private Sub txtqty_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles qty1.TextChanged, rate1.TextChanged If qty1.Text = "" Then txtamt1.Text = "0" ElseIf rate1.Text = "" Then txtamt1.Text = "0" Else txtamt1.Text = Format(Convert.ToDouble((Convert.ToDecimal(rate1.Text) * Convert.ToDecimal(qty1.Text))), "#0.00") End If End Sub Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles gtotalbtn.Click calculategtotalvalid() End Sub 'code to convert number amount into words Public Sub superbillfeed() InvoiceBill.lblname.Text = namecombo.SelectedItem.ToString InvoiceBill.lbladdress.Text = txtadd.Text InvoiceBill.lblpartytin.Text = txtpartytin.Text InvoiceBill.lblpartycst.Text = txtpartycst.Text InvoiceBill.lbltotal.Text = txttotal.Text InvoiceBill.lblloading.Text = Format(Convert.ToDouble(txtcarteg.Text), "#0.00") InvoiceBill.lbldesth.Text = txtdesthr.Text InvoiceBill.lblrrlr.Text = txtlr.Text InvoiceBill.lbldesdate.Text = despatchdate.Text InvoiceBill.lbltype.Text = combotype.SelectedItem.ToString InvoiceBill.lbldelivery.Text = txtdelivery.Text InvoiceBill.lblsoldunder.Text = txtsold.Text If Label20.Text = "VAT" And vatcheck.Checked = True Then InvoiceBill.lblvat.Text = Format(Convert.ToDouble(taxvalue.Text), "#.00") InvoiceBill.vatpercn.Text = txtcst.Text '+ "%" Else InvoiceBill.lblvat.Text = "-" End If If Label20.Text = "CST" And vatcheck.Checked = True Then InvoiceBill.lblcst.Text = Format(Convert.ToDouble(taxvalue.Text), "#.00") InvoiceBill.cstpercn.Text = txtcst.Text '+ "%" Else InvoiceBill.lblcst.Text = "-" End If InvoiceBill.lblgtotal.Text = Format(Convert.ToDouble(txtgtotal.Text), "#.00") InvoiceBill.lblinvno.Text = txtinvno.Text InvoiceBill.lblchlnno.Text = txtchlnno.Text InvoiceBill.lblordrno.Text = txtordrno.Text InvoiceBill.lblvcno.Text = txtvcno.Text InvoiceBill.invdate.Text = invdate.Value.Day.ToString + "/" + invdate.Value.Month.ToString + "/" + invdate.Value.Year.ToString If txtchlnno.Text = "" Then InvoiceBill.chlndate.Text = "-" Else

BUSINESS MANAGEMENT SYSTEM

Page 176

InvoiceBill.chlndate.Text = chlndate.Value.Day.ToString + "/" + chlndate.Value.Month.ToString + "/" + chlndate.Value.Year.ToString End If If txtordrno.Text = "" Then InvoiceBill.ordrdate.Text = "-" Else InvoiceBill.ordrdate.Text = ordrdate.Value.Day.ToString + "/" + ordrdate.Value.Month.ToString + "/" + ordrdate.Value.Year.ToString End If InvoiceBill.lblamtwordsbl.Text = lblamtword.Text End Sub Public Sub calculategtotalvalid() totalamount() If txtamt1.Text = "0" Then MsgBox("You have not Added any Product yet") ElseIf txttotal.Text = "0" Then MsgBox("Please Calculate ") ElseIf txtcarteg.Text = "" Then MsgBox("Please Fill Carteg/Loading amount") ElseIf ComboBox11.Text = "Select" And vatcheck.Checked = True Then MsgBox("Please Select Tax Type") ElseIf txtcst.Text = "" Or txtcst.Text = "0" Then MsgBox("Please Fill VAT/CST Percentage") Else Dim carteg As Double = txtcarteg.Text 'Dim cst As Integer = Convert.ToInt32(txtcst.Text) Dim cst As Double = ((Convert.ToDouble((txttotal.Text)) * Convert.ToDouble(txtcst.Text)) / 100) taxvalue.Text = cst.ToString txtgtotal.Text = Math.Round(Convert.ToDouble(Convert.ToDouble(txttotal.Text) + carteg + cst)) 'code to convert number to words Dim numwords As New Num2Words lblamtword.Text = "" lblamtword.Text = numwords.NUMMM(txtgtotal.Text) lblamtword.Text = lblamtword.Text + " Only" End If End Sub Private Sub txtname_KeyPress(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles per1.KeyPress, per9.KeyPress, per8.KeyPress, per7.KeyPress, per6.KeyPress, per5.KeyPress, per4.KeyPress, per3.KeyPress, per2.KeyPress, per10.KeyPress If (Char.IsLetter(e.KeyChar) = True) Then e.Handled = False Else If e.KeyChar.ToString() = "." Then End If e.Handled = True If b = True Then e.Handled = False b = False End If End If End Sub Private Sub txtname_KeyDown(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles rate9.KeyDown, rate8.KeyDown,

BUSINESS MANAGEMENT SYSTEM

Page 177

rate7.KeyDown, rate6.KeyDown, rate5.KeyDown, rate4.KeyDown, rate3.KeyDown, rate2.KeyDown, rate1.KeyDown, qty9.KeyDown, qty8.KeyDown, qty7.KeyDown, qty6.KeyDown, qty5.KeyDown, qty4.KeyDown, qty3.KeyDown, qty2.KeyDown, qty1.KeyDown, rate10.KeyDown, qty10.KeyDown If e.KeyValue = Keys.Back Then b = True End If If e.KeyValue = Keys.Space Then b = True End If End Sub Private Sub txtadd_KeyPress(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) If (Char.IsLetter(e.KeyChar) Or Char.IsSymbol(e.KeyChar) Or Char.IsDigit(e.KeyChar) Or (e.KeyChar.ToString() = ".") Or (e.KeyChar.ToString() = "-") = True) Then e.Handled = False Else If e.KeyChar.ToString() = "," Then e.Handled = False b = False End If End If End Sub Private Sub txtqty_KeyPress(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles qty1.KeyPress, rate1.KeyPress, txtcst.KeyPress, txtcarteg.KeyPress, txtamt1.KeyPress, rate9.KeyPress, rate8.KeyPress, rate7.KeyPress, rate6.KeyPress, rate5.KeyPress, rate4.KeyPress, rate3.KeyPress, rate2.KeyPress, qty9.KeyPress, qty8.KeyPress, qty7.KeyPress, qty6.KeyPress, qty5.KeyPress, qty4.KeyPress, qty3.KeyPress, qty2.KeyPress, txtinvno.KeyPress, rate10.KeyPress, qty10.KeyPress If Char.IsDigit(e.KeyChar) = True Or e.KeyChar.ToString() = "." Then e.Handled = False Else e.Handled = True If b = True Then e.Handled = False b = False End If End If End Sub Private Sub txtqty_KeyDown(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles per1.KeyDown, txtcst.KeyDown, txtcarteg.KeyDown, txtamt1.KeyDown, txtordrno.KeyDown, txtinvno.KeyDown, txtchlnno.KeyDown, per9.KeyDown, per8.KeyDown, per7.KeyDown, per6.KeyDown, per5.KeyDown, per4.KeyDown, per3.KeyDown, per2.KeyDown, per10.KeyDown If e.KeyValue = Keys.Back Then b = True End If End Sub Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click clientsreport.Show() End Sub

BUSINESS MANAGEMENT SYSTEM

Page 178

Private Sub ComboBox2_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox2.SelectedIndexChanged cs.Open() cmd.CommandText = "select Rate,Per from products where Product_Name=@Product_Name" cmd.Parameters.Add(New SqlParameter("@Product_Name", SqlDbType.NVarChar, 200)).Value = ComboBox2.SelectedItem.ToString() dr = cmd.ExecuteReader() dr.Read() If dr.HasRows Then rate2.Text = dr("Rate").ToString per2.Text = dr("Per").ToString() End If dr.Close() cs.Close() cmd.Parameters.Clear() qty2.Text = "1" If ComboBox2.SelectedItem.ToString <> "" Then ComboBox3.Enabled = True qty2.Enabled = True mtr2.Enabled = True rate2.Enabled = True per2.Enabled = True sr2.Text = "2" End If End Sub Private Sub ComboBox3_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox3.SelectedIndexChanged cs.Open() cmd.CommandText = "select Rate,Per from products where Product_Name=@Product_Name" cmd.Parameters.Add(New SqlParameter("@Product_Name", SqlDbType.NVarChar, 200)).Value = ComboBox3.SelectedItem.ToString() dr = cmd.ExecuteReader() dr.Read() If dr.HasRows Then rate3.Text = dr("Rate").ToString() per3.Text = dr("Per").ToString() End If dr.Close() cs.Close() cmd.Parameters.Clear() qty3.Text = "1" If ComboBox3.SelectedItem.ToString <> "" Then ComboBox4.Enabled = True qty3.Enabled = True mtr3.Enabled = True rate3.Enabled = True per3.Enabled = True sr3.Text = "3" End If End Sub Private Sub ComboBox4_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox4.SelectedIndexChanged cs.Open()

BUSINESS MANAGEMENT SYSTEM

Page 179

cmd.CommandText = "select Rate,Per from products where Product_Name=@Product_Name" cmd.Parameters.Add(New SqlParameter("@Product_Name", SqlDbType.NVarChar, 200)).Value = ComboBox4.SelectedItem.ToString() dr = cmd.ExecuteReader() dr.Read() If dr.HasRows Then rate4.Text = dr("Rate").ToString() per4.Text = dr("Per").ToString() End If dr.Close() cs.Close() cmd.Parameters.Clear() qty4.Text = "1" txtamt4.Text = Format(Convert.ToDouble(Convert.ToDouble(qty4.Text) * Convert.ToDouble(rate4.Text)), "#.00") If ComboBox4.SelectedItem.ToString <> "" Then ComboBox5.Enabled = True qty4.Enabled = True mtr4.Enabled = True rate4.Enabled = True per4.Enabled = True sr4.Text = "4" End If End Sub Private Sub ComboBox5_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox5.SelectedIndexChanged cs.Open() cmd.CommandText = "select Rate,Per from products where Product_Name=@Product_Name" cmd.Parameters.Add(New SqlParameter("@Product_Name", SqlDbType.NVarChar, 200)).Value = ComboBox5.SelectedItem.ToString() dr = cmd.ExecuteReader() dr.Read() If dr.HasRows Then rate5.Text = dr("Rate").ToString() per5.Text = dr("Per").ToString() End If dr.Close() cs.Close() cmd.Parameters.Clear() qty5.Text = "1" txtamt5.Text = Format(Convert.ToDouble(Convert.ToDouble(qty5.Text) * Convert.ToDouble(rate5.Text)), "#.00") If ComboBox5.SelectedItem.ToString <> "" Then ComboBox6.Enabled = True qty5.Enabled = True mtr5.Enabled = True rate5.Enabled = True per5.Enabled = True sr5.Text = "5" End If End Sub Private Sub ComboBox6_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox6.SelectedIndexChanged

BUSINESS MANAGEMENT SYSTEM

Page 180

cs.Open() cmd.CommandText = "select Rate,Per from products where Product_Name=@Product_Name" cmd.Parameters.Add(New SqlParameter("@Product_Name", SqlDbType.NVarChar, 200)).Value = ComboBox6.SelectedItem.ToString() dr = cmd.ExecuteReader() dr.Read() If dr.HasRows Then rate6.Text = dr("Rate").ToString() per6.Text = dr("Per").ToString() End If dr.Close() cs.Close() cmd.Parameters.Clear() qty6.Text = "1" txtamt6.Text = Format(Convert.ToDouble(Convert.ToInt32(qty6.Text) * Convert.ToDouble(rate6.Text)), "#.00") If ComboBox6.SelectedItem.ToString <> "" Then ComboBox7.Enabled = True qty6.Enabled = True mtr6.Enabled = True rate6.Enabled = True per6.Enabled = True sr6.Text = "6" End If End Sub Private Sub ComboBox7_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox7.SelectedIndexChanged cs.Open() cmd.CommandText = "select Rate,Per from products where Product_Name=@Product_Name" cmd.Parameters.Add(New SqlParameter("@Product_Name", SqlDbType.NVarChar, 200)).Value = ComboBox7.SelectedItem.ToString() dr = cmd.ExecuteReader() dr.Read() If dr.HasRows Then rate7.Text = dr("Rate").ToString() per7.Text = dr("Per").ToString() End If dr.Close() cs.Close() cmd.Parameters.Clear() qty7.Text = "1" txtamt7.Text = Format(Convert.ToString(Convert.ToDouble(qty7.Text) * Convert.ToDouble(rate7.Text)), "#.00") If ComboBox7.SelectedItem.ToString <> "" Then qty7.Enabled = True mtr7.Enabled = True rate7.Enabled = True per7.Enabled = True sr7.Text = "7" End If End Sub Private Sub qty2_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles qty2.TextChanged, rate2.TextChanged If qty2.Text = "" Then

BUSINESS MANAGEMENT SYSTEM

Page 181

txtamt2.Text = "0" ElseIf rate2.Text = "" Then txtamt2.Text = "0" Else txtamt2.Text = Format(Convert.ToDouble(Convert.ToDouble(rate2.Text) * Convert.ToDouble(qty2.Text)), "#0.00") End If End Sub Private Sub qty5_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles qty5.TextChanged, rate5.TextChanged If qty5.Text = "" Then txtamt5.Text = "0" ElseIf rate5.Text = "" Then txtamt5.Text = "0" Else txtamt5.Text = Format(Convert.ToDouble(Convert.ToDouble(rate5.Text) * Convert.ToDouble(qty5.Text)), "#0.00") End If End Sub Public Sub Dim t1 Dim t2 Dim t3 Dim t4 Dim t5 Dim t6 Dim t7 End Sub totalamount() As Double = Convert.ToDouble(txtamt1.Text) As Double = Convert.ToDouble(txtamt2.Text) As Double = Convert.ToDouble(txtamt3.Text) As Double = Convert.ToDouble(txtamt4.Text) As Double = Convert.ToDouble(txtamt5.Text) As Double = Convert.ToDouble(txtamt6.Text) As Double = Convert.ToDouble(txtamt7.Text)

Public Sub validatefields() If namecombo.SelectedItem = "" Then MsgBox("Please Fill Client name") ElseIf txtadd.Text = "" Then MsgBox("Please Fill Clients Address") ElseIf txtamt1.Text = "0" Then MsgBox("You have not Added any Product yet") ElseIf txttotal.Text = "0" And txtgtotal.Text = "0" Then MsgBox("Calculate Grand Total") ElseIf combotype.Text = "SELECT" Then MsgBox("Please Select Hanger Type") ElseIf txtgtotal.Text = "" Or txtgtotal.Text = "0" Then MsgBox("Calculate Grand Total") ElseIf txtgtotal.Text <> "" Then calculategtotalvalid() insertalldata() End If End Sub Public Sub insertalldata() Dim invsqldate As String = invdate.Value.Year.ToString() + "/" + invdate.Value.Year.ToString() + "/" + invdate.Value.Year.ToString() Dim qs As String If sr1.Text <> "" Then qs = "insert into productwisebill values(@Invoice_No,@Challan_No,@Order_No,@VC_NO,@Product_Name,@Quantity,@Ra te,@Per,@Amount,@Client_Name,@Invoice_date)"

BUSINESS MANAGEMENT SYSTEM

Page 182

cmd = New SqlCommand(qs, cs) cmd.Parameters.Add(New SqlParameter("@Invoice_No", SqlDbType.NVarChar, 200)).Value = txtinvno.Text cmd.Parameters.Add(New SqlParameter("@Challan_No", SqlDbType.NVarChar, 200)).Value = txtchlnno.Text cmd.Parameters.Add(New SqlParameter("@Order_No", SqlDbType.NVarChar, 200)).Value = txtordrno.Text cmd.Parameters.Add(New SqlParameter("@VC_NO", SqlDbType.NVarChar, 200)).Value = txtvcno.Text cmd.Parameters.Add(New SqlParameter("@Product_Name", SqlDbType.NVarChar, 200)).Value = ComboBox1.SelectedItem.ToString cmd.Parameters.Add(New SqlParameter("@Quantity", SqlDbType.Decimal, 18, 2)).Value = qty1.Text cmd.Parameters.Add(New SqlParameter("@Rate", SqlDbType.Decimal, 18, 2)).Value = rate1.Text cmd.Parameters.Add(New SqlParameter("@Per", SqlDbType.NVarChar, 200)).Value = per1.Text cmd.Parameters.Add(New SqlParameter("@Amount", SqlDbType.Decimal, 18, 2)).Value = txtamt1.Text cmd.Parameters.Add(New SqlParameter("@Client_Name", SqlDbType.NVarChar, 200)).Value = namecombo.SelectedItem.ToString cmd.Parameters.Add(New SqlParameter("@Invoice_Date", SqlDbType.SmallDateTime)).Value = invdate.Text cs.Open() cmd.ExecuteNonQuery() cs.Close() cmd.Parameters.Clear() InvoiceBill.sr1.Text = sr1.Text InvoiceBill.prod1.Text = ComboBox1.SelectedItem.ToString InvoiceBill.qty1.Text = qty1.Text + Environment.NewLine + " " + mtr1.Text InvoiceBill.rate1.Text = rate1.Text InvoiceBill.per1.Text = per1.Text InvoiceBill.amount1.Text = txtamt1.Text remove_stock1() End If If sr2.Text <> "" Then qs = "insert into productwisebill values(@Invoice_No,@Challan_No,@Order_No,@VC_NO,@Product_Name,@Quantity,@Ra te,@Per,@Amount,@Client_Name,@Invoice_date)" cmd = New SqlCommand(qs, cs) cmd.Parameters.Add(New SqlParameter("@Invoice_No", SqlDbType.NVarChar, 200)).Value = txtinvno.Text cmd.Parameters.Add(New SqlParameter("@Challan_No", SqlDbType.NVarChar, 200)).Value = txtchlnno.Text cmd.Parameters.Add(New SqlParameter("@Order_No", SqlDbType.NVarChar, 200)).Value = txtordrno.Text cmd.Parameters.Add(New SqlParameter("@VC_NO", SqlDbType.NVarChar, 200)).Value = txtvcno.Text cmd.Parameters.Add(New SqlParameter("@Product_Name", SqlDbType.NVarChar, 200)).Value = ComboBox2.SelectedItem.ToString cmd.Parameters.Add(New SqlParameter("@Quantity", SqlDbType.BigInt)).Value = qty2.Text cmd.Parameters.Add(New SqlParameter("@Rate", SqlDbType.Decimal, 18, 2)).Value = rate2.Text cmd.Parameters.Add(New SqlParameter("@Per", SqlDbType.NVarChar, 200)).Value = per2.Text cmd.Parameters.Add(New SqlParameter("@Amount", SqlDbType.Decimal, 18, 2)).Value = txtamt2.Text

BUSINESS MANAGEMENT SYSTEM

Page 183

cmd.Parameters.Add(New SqlParameter("@Client_Name", SqlDbType.NVarChar, 200)).Value = namecombo.SelectedItem.ToString cmd.Parameters.Add(New SqlParameter("@Invoice_date", SqlDbType.SmallDateTime)).Value = invdate.Text cs.Open() cmd.ExecuteNonQuery() cs.Close() cmd.Parameters.Clear() InvoiceBill.sr2.Text = sr2.Text InvoiceBill.prod2.Text = ComboBox2.SelectedItem.ToString InvoiceBill.qty2.Text = qty2.Text + Environment.NewLine + " " + mtr2.Text InvoiceBill.rate2.Text = rate2.Text InvoiceBill.per2.Text = per2.Text InvoiceBill.amount2.Text = txtamt2.Text remove_stock2() End If If sr3.Text <> "" Then qs = "insert into productwisebill values(@Invoice_No,@Challan_No,@Order_No,@VC_NO,@Product_Name,@Quantity,@Ra te,@Per,@Amount,@Client_Name,@Invoice_date)" cmd = New SqlCommand(qs, cs) cmd.Parameters.Add(New SqlParameter("@Invoice_No", SqlDbType.NVarChar, 200)).Value = txtinvno.Text cmd.Parameters.Add(New SqlParameter("@Challan_No", SqlDbType.NVarChar, 200)).Value = txtchlnno.Text cmd.Parameters.Add(New SqlParameter("@Order_No", SqlDbType.NVarChar, 200)).Value = txtordrno.Text cmd.Parameters.Add(New SqlParameter("@VC_NO", SqlDbType.NVarChar, 200)).Value = txtvcno.Text cmd.Parameters.Add(New SqlParameter("@Product_Name", SqlDbType.NVarChar, 200)).Value = ComboBox3.SelectedItem.ToString cmd.Parameters.Add(New SqlParameter("@Quantity", SqlDbType.BigInt)).Value = qty3.Text cmd.Parameters.Add(New SqlParameter("@Rate", SqlDbType.Decimal, 18, 2)).Value = rate3.Text cmd.Parameters.Add(New SqlParameter("@Per", SqlDbType.NVarChar, 200)).Value = per3.Text cmd.Parameters.Add(New SqlParameter("@Amount", SqlDbType.Decimal, 18, 2)).Value = txtamt3.Text cmd.Parameters.Add(New SqlParameter("@Client_Name", SqlDbType.NVarChar, 200)).Value = namecombo.SelectedItem.ToString cmd.Parameters.Add(New SqlParameter("@Invoice_date", SqlDbType.SmallDateTime)).Value = invdate.Text cs.Open() cmd.ExecuteNonQuery() cs.Close() cmd.Parameters.Clear() InvoiceBill.sr3.Text = sr3.Text InvoiceBill.prod3.Text = ComboBox3.SelectedItem.ToString InvoiceBill.qty3.Text = qty3.Text + Environment.NewLine + " " + mtr3.Text InvoiceBill.rate3.Text = rate3.Text InvoiceBill.per3.Text = per3.Text InvoiceBill.amount3.Text = txtamt3.Text remove_stock3() End If If sr4.Text <> "" Then

BUSINESS MANAGEMENT SYSTEM

Page 184

qs = "insert into productwisebill values(@Invoice_No,@Challan_No,@Order_No,@VC_NO,@Product_Name,@Quantity,@Ra te,@Per,@Amount,@Client_Name,@Invoice_date)" cmd = New SqlCommand(qs, cs) cmd.Parameters.Add(New SqlParameter("@Invoice_No", SqlDbType.NVarChar, 200)).Value = txtinvno.Text cmd.Parameters.Add(New SqlParameter("@Challan_No", SqlDbType.NVarChar, 200)).Value = txtchlnno.Text cmd.Parameters.Add(New SqlParameter("@Order_No", SqlDbType.NVarChar, 200)).Value = txtordrno.Text cmd.Parameters.Add(New SqlParameter("@VC_NO", SqlDbType.NVarChar, 200)).Value = txtvcno.Text cmd.Parameters.Add(New SqlParameter("@Product_Name", SqlDbType.NVarChar, 200)).Value = ComboBox4.SelectedItem.ToString cmd.Parameters.Add(New SqlParameter("@Quantity", SqlDbType.BigInt)).Value = qty4.Text cmd.Parameters.Add(New SqlParameter("@Rate", SqlDbType.Decimal, 18, 2)).Value = rate4.Text cmd.Parameters.Add(New SqlParameter("@Per", SqlDbType.NVarChar, 200)).Value = per4.Text cmd.Parameters.Add(New SqlParameter("@Amount", SqlDbType.Decimal, 18, 2)).Value = txtamt4.Text cmd.Parameters.Add(New SqlParameter("@Client_Name", SqlDbType.NVarChar, 200)).Value = namecombo.SelectedItem.ToString cmd.Parameters.Add(New SqlParameter("@Invoice_date", SqlDbType.SmallDateTime)).Value = invdate.Text cs.Open() cmd.ExecuteNonQuery() cs.Close() cmd.Parameters.Clear() InvoiceBill.sr4.Text = sr4.Text InvoiceBill.prod4.Text = ComboBox4.SelectedItem.ToString InvoiceBill.qty4.Text = qty4.Text + Environment.NewLine + " " + mtr4.Text InvoiceBill.rate4.Text = rate4.Text InvoiceBill.per4.Text = per4.Text InvoiceBill.amount4.Text = txtamt4.Text remove_stock4() End If If sr5.Text <> "" Then qs = "insert into productwisebill values(@Invoice_No,@Challan_No,@Order_No,@VC_NO,@Product_Name,@Quantity,@Ra te,@Per,@Amount,@Client_Name,@Invoice_date)" cmd = New SqlCommand(qs, cs) cmd.Parameters.Add(New SqlParameter("@Invoice_No", SqlDbType.NVarChar, 200)).Value = txtinvno.Text cmd.Parameters.Add(New SqlParameter("@Challan_No", SqlDbType.NVarChar, 200)).Value = txtchlnno.Text cmd.Parameters.Add(New SqlParameter("@Order_No", SqlDbType.NVarChar, 200)).Value = txtordrno.Text cmd.Parameters.Add(New SqlParameter("@VC_NO", SqlDbType.NVarChar, 200)).Value = txtvcno.Text cmd.Parameters.Add(New SqlParameter("@Product_Name", SqlDbType.NVarChar, 200)).Value = ComboBox5.SelectedItem.ToString cmd.Parameters.Add(New SqlParameter("@Quantity", SqlDbType.BigInt)).Value = qty5.Text cmd.Parameters.Add(New SqlParameter("@Rate", SqlDbType.Decimal, 18, 2)).Value = rate5.Text cmd.Parameters.Add(New SqlParameter("@Per", SqlDbType.NVarChar, 200)).Value = per5.Text

BUSINESS MANAGEMENT SYSTEM

Page 185

cmd.Parameters.Add(New SqlParameter("@Amount", SqlDbType.Decimal, 18, 2)).Value = txtamt5.Text cmd.Parameters.Add(New SqlParameter("@Client_Name", SqlDbType.NVarChar, 200)).Value = namecombo.SelectedItem.ToString cmd.Parameters.Add(New SqlParameter("@Invoice_date", SqlDbType.SmallDateTime)).Value = invdate.Text cs.Open() cmd.ExecuteNonQuery() cs.Close() cmd.Parameters.Clear() InvoiceBill.sr5.Text = sr5.Text InvoiceBill.prod5.Text = ComboBox5.SelectedItem.ToString InvoiceBill.qty5.Text = qty5.Text + Environment.NewLine + " " + mtr5.Text InvoiceBill.rate5.Text = rate5.Text InvoiceBill.per5.Text = per5.Text InvoiceBill.amount5.Text = txtamt5.Text remove_stock5() End If If sr6.Text <> "" Then qs = "insert into productwisebill values(@Invoice_No,@Challan_No,@Order_No,@VC_NO,@Product_Name,@Quantity,@Ra te,@Per,@Amount,@Client_Name,@Invoice_date)" cmd = New SqlCommand(qs, cs) cmd.Parameters.Add(New SqlParameter("@Invoice_No", SqlDbType.NVarChar, 200)).Value = txtinvno.Text cmd.Parameters.Add(New SqlParameter("@Challan_No", SqlDbType.NVarChar, 200)).Value = txtchlnno.Text cmd.Parameters.Add(New SqlParameter("@Order_No", SqlDbType.NVarChar, 200)).Value = txtordrno.Text cmd.Parameters.Add(New SqlParameter("@VC_NO", SqlDbType.NVarChar, 200)).Value = txtvcno.Text cmd.Parameters.Add(New SqlParameter("@Product_Name", SqlDbType.NVarChar, 200)).Value = ComboBox6.SelectedItem.ToString cmd.Parameters.Add(New SqlParameter("@Quantity", SqlDbType.BigInt)).Value = qty6.Text cmd.Parameters.Add(New SqlParameter("@Rate", SqlDbType.Decimal, 18, 2)).Value = rate6.Text cmd.Parameters.Add(New SqlParameter("@Per", SqlDbType.NVarChar, 200)).Value = per6.Text cmd.Parameters.Add(New SqlParameter("@Amount", SqlDbType.Decimal, 18, 2)).Value = txtamt6.Text cmd.Parameters.Add(New SqlParameter("@Client_Name", SqlDbType.NVarChar, 200)).Value = namecombo.SelectedItem.ToString cmd.Parameters.Add(New SqlParameter("@Invoice_date", SqlDbType.SmallDateTime)).Value = invdate.Text cs.Open() cmd.ExecuteNonQuery() cs.Close() cmd.Parameters.Clear() InvoiceBill.sr6.Text = sr6.Text InvoiceBill.prod6.Text = ComboBox6.SelectedItem.ToString InvoiceBill.qty6.Text = qty6.Text + Environment.NewLine + " " + mtr6.Text InvoiceBill.rate6.Text = rate6.Text InvoiceBill.per6.Text = per6.Text InvoiceBill.amount6.Text = txtamt6.Text remove_stock6() End If Sub remove_stock1()

BUSINESS MANAGEMENT SYSTEM

Page 186

Dim x, y, z As Decimal ) cs.Open() cmd.CommandText = "select Available_Quantity from available where Hanger_Name= '" & ComboBox1.SelectedItem.ToString & "'" dr = cmd.ExecuteReader() While dr.Read() y = dr("Available_Quantity").ToString() End While dr.Close() cs.Close() x = y - z Dim qss As String = "update available set Available_Quantity=@Available_Quantity where Hanger_Name=@Hanger_Name " cmd = New SqlCommand(qss, cs) cmd.Parameters.Add(New SqlParameter("@Hanger_Name", SqlDbType.NVarChar, 200)).Value = ComboBox1.SelectedItem.ToString cmd.Parameters.Add(New SqlParameter("@Available_Quantity", SqlDbType.Decimal, 18, 2)).Value = x cs.Open() cmd.ExecuteNonQuery() cs.Close() cmd.Parameters.Clear() End Sub Sub remove_stock2() x = 0 cs.Open() cmd.CommandText = "select Available_Quantity from available where Hanger_Name= '" & ComboBox2.SelectedItem.ToString & "'" dr = cmd.ExecuteReader() While dr.Read() y = dr("Available_Quantity").ToString() End While dr.Close() cs.Close() x = y - z Dim qss As String = "update available set Available_Quantity=@Available_Quantity where Hanger_Name=@Hanger_Name " cmd = New SqlCommand(qss, cs) cmd.Parameters.Add(New SqlParameter("@Hanger_Name", SqlDbType.NVarChar, 200)).Value = ComboBox2.SelectedItem.ToString cmd.Parameters.Add(New SqlParameter("@Available_Quantity", SqlDbType.Decimal, 18, 2)).Value = x cs.Open() cmd.ExecuteNonQuery() cs.Close() cmd.Parameters.Clear() End Sub Sub remove_stock3() Dim x, y, z As Decimal z = Val(qty3.Text) cs.Open() cmd.CommandText = "select Available_Quantity from available where Hanger_Name= '" & ComboBox3.SelectedItem.ToString & "'" dr = cmd.ExecuteReader() While dr.Read() y = dr("Available_Quantity").ToString() End While

BUSINESS MANAGEMENT SYSTEM

Page 187

dr.Close() cs.Close() x = y - z Dim qss As String = "update available set Available_Quantity=@Available_Quantity where Hanger_Name=@Hanger_Name" cmd = New SqlCommand(qss, cs) cmd.Parameters.Add(New SqlParameter("@Hanger_Name", SqlDbType.NVarChar, 200)).Value = ComboBox3.SelectedItem.ToString cmd.Parameters.Add(New SqlParameter("@Available_Quantity", SqlDbType.Decimal, 18, 2)).Value = x cs.Open() cmd.ExecuteNonQuery() cs.Close() cmd.Parameters.Clear() End Sub Sub remove_stock4() Dim x, y, z As Decimal z = Val(qty4.Text) cs.Open() cmd.CommandText = "select Available_Quantity from available where Hanger_Name= '" & ComboBox4.SelectedItem.ToString & "'" dr = cmd.ExecuteReader() While dr.Read() y = dr("Available_Quantity").ToString() End While dr.Close() cs.Close() x = y - z Dim qss As String = "update available set Available_Quantity=@Available_Quantity where Hanger_Name=@Hanger_Name " cmd = New SqlCommand(qss, cs) cmd.Parameters.Add(New SqlParameter("@Hanger_Name", SqlDbType.NVarChar, 200)).Value = ComboBox4.SelectedItem.ToString cmd.Parameters.Add(New SqlParameter("@Available_Quantity", SqlDbType.Decimal, 18, 2)).Value = x cs.Open() cmd.ExecuteNonQuery() cs.Close() cmd.Parameters.Clear() End Sub Sub remove_stock5() Dim x, y, z As Decimal z = Val(qty5.Text) cs.Open() cmd.CommandText = "select Available_Quantity from available where Hanger_Name= '" & ComboBox5.SelectedItem.ToString & "'" dr = cmd.ExecuteReader() While dr.Read() y = dr("Available_Quantity").ToString() End While dr.Close() cs.Close() Dim qss As String = "update available set Available_Quantity=@Available_Quantity where Hanger_Name=@Hanger_Name " cmd = New SqlCommand(qss, cs) cmd.Parameters.Add(New SqlParameter("@Hanger_Name", SqlDbType.NVarChar, 200)).Value = ComboBox5.SelectedItem.ToString cmd.Parameters.Add(New SqlParameter("@Available_Quantity", SqlDbType.Decimal, 18, 2)).Value = x

BUSINESS MANAGEMENT SYSTEM

Page 188

cs.Open() cmd.ExecuteNonQuery() cs.Close() cmd.Parameters.Clear() End Sub Sub remove_stock6() Dim x, y, z As Decimal z = Val(qty2.Text) cs.Open() cmd.CommandText = "select Available_Quantity from available where Hanger_Name= '" & ComboBox6.SelectedItem.ToString & "'" dr = cmd.ExecuteReader() While dr.Read() y = dr("Available_Quantity").ToString() End While dr.Close() cs.Close() x = y - z Dim qss As String = "update available set Available_Quantity=@Available_Quantity where Hanger_Name=@Hanger_Name " cmd = New SqlCommand(qss, cs) cmd.Parameters.Add(New SqlParameter("@Hanger_Name", SqlDbType.NVarChar, 200)).Value = ComboBox6.SelectedItem.ToString cmd.Parameters.Add(New SqlParameter("@Available_Quantity", SqlDbType.Decimal, 18, 2)).Value = x cs.Open() cmd.ExecuteNonQuery() cs.Close() cmd.Parameters.Clear() End Sub Private Sub savebtn_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles savebtn.Click validatefields() End Sub Private Sub namecombo_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles namecombo.SelectedIndexChanged cs.Open() cmd.CommandText = "select Address,CST_No,TIN_No from clientsreport where Client_Name=@Client_Name" cmd.Parameters.Add(New SqlParameter("@Client_Name", SqlDbType.NVarChar, 200)).Value = namecombo.SelectedItem.ToString dr = cmd.ExecuteReader() dr.Read() If dr.HasRows Then txtadd.Text = dr("Address").ToString() txtpartycst.Text = dr("CST_No").ToString() txtpartytin.Text = dr("TIN_No").ToString() End If dr.Close() cs.Close() cmd.Parameters.Clear() End Sub Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click products_Report.Show()

BUSINESS MANAGEMENT SYSTEM

Page 189

End Sub Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click View_Sells.Show() View_Sells.LinkLabel2.Visible = False End Sub Private Sub LinkLabel1_LinkClicked(ByVal sender As System.Object, ByVal e As System.Windows.Forms.LinkLabelLinkClickedEventArgs) Handles LinkLabel1.LinkClicked Application.Exit() End Sub Private Sub ComboBox12_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) If ComboBox11.SelectedItem.ToString = "VAT" Then Label20.Text = "VAT" ElseIf ComboBox11.SelectedItem.ToString = "CST" Then Label20.Text = "CST" End If End Sub Private Sub vatcheck_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles vatcheck.CheckedChanged If vatcheck.Checked = True Then ComboBox11.Enabled = True txtcst.Text = "4" txtcst.Enabled = True Else ComboBox11.Enabled = False txtcst.Text = "0.0" txtcst.Enabled = False End If End Sub Private Sub LinkLabel2_LinkClicked(ByVal sender As System.Object, ByVal e As System.Windows.Forms.LinkLabelLinkClickedEventArgs) Handles LinkLabel2.LinkClicked index.Show() Me.Close() End Sub Private Sub CheckBox1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox1.CheckedChanged If CheckBox1.Checked = True Then txtdesthr.Visible = True txtlr.Visible = True despatchdate.Visible = True ElseIf CheckBox1.Checked = False Then txtdesthr.Visible = False txtlr.Visible = False despatchdate.Visible = False Else End If End Sub Private Sub Button3_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Application.Exit() End Sub

BUSINESS MANAGEMENT SYSTEM

Page 190

Private Sub vatcheck_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles vatcheck.CheckedChanged If vatcheck.Checked = True Then ComboBox11.Enabled = True txtcst.Text = "4" txtcst.Enabled = True Else ComboBox11.Enabled = False txtcst.Text = "0.0" txtcst.Enabled = False End If End Sub Private Sub LinkLabel2_LinkClicked(ByVal sender As System.Object, ByVal e As System.Windows.Forms.LinkLabelLinkClickedEventArgs) Handles LinkLabel2.LinkClicked index.Show() Me.Close() End Sub Private Sub CheckBox2_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox2.CheckedChanged If CheckBox2.Checked = True Then txtinvno.ReadOnly = False txtinvno.BackColor = Color.White Else txtinvno.ReadOnly = True txtinvno.BackColor = Color.LemonChiffon End If End Sub End Class

BUSINESS MANAGEMENT SYSTEM

Page 191

SCREEN LAYOUT OF VIEW PREVIOUS BILL FORM :

BUSINESS MANAGEMENT SYSTEM

Page 192

CODE FOR VIEW PREVIOUS BILL FORM :

Imports System.Data.SqlClient Public Class View_Sells Dim cs As New SqlConnection() Dim cmd As SqlCommand Dim dr As SqlDataReader Private Sub View_Sells_Disposed(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Disposed index.Show() Me.Close() End Sub Private Sub companyperformance_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load date1.ResetText() date2.ResetText() Tip1.SetToolTip(Comboclientname, "Select Client Name") Tip1.SetToolTip(Comboclientname2, "Select Client Name") Tip1.SetToolTip(date1, "Select From Date") Tip1.SetToolTip(date2, "Select To Date") Tip1.SetToolTip(Button1, "Search Client Details Date Wise") Tip1.SetToolTip(Combopro1, "Select Product Name") Tip1.SetToolTip(Combopro2, "Select Product Name") Tip1.SetToolTip(datesell1, "Select From Date") Tip1.SetToolTip(datesell2, "Select To Date") 'Comboclientname cs.Open() cmd.CommandText = "select Client_Name from clientsreport" dr = cmd.ExecuteReader() While dr.Read() Comboclientname.Items.Add(dr("Client_Name").ToString()) Comboclientname2.Items.Add(dr("Client_Name").ToString()) End While cs.Close() 'Combopro1 cs.Open() cmd.CommandText = "select Distinct(Product_Name) from productwisebill" dr = cmd.ExecuteReader() While dr.Read() Combopro1.Items.Add(dr("Product_Name").ToString()) Combopro2.Items.Add(dr("Product_Name").ToString()) End While cs.Close() 'comboviewinvoice cs.Open() cmd.CommandText = "select Distinct(Invoice_No) from finalbill" dr = cmd.ExecuteReader() While dr.Read() comboviewinvoice.Items.Add(dr("Invoice_No").ToString()) End While cs.Close() End Sub

BUSINESS MANAGEMENT SYSTEM

Page 193

Private Sub Comboclientname_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Comboclientname.SelectedIndexChanged Dim da As New SqlDataAdapter("Select Invoice_No,Invoice_Date,Total,TAX,Grand_Total from finalbill where Client_Name='" & Comboclientname.SelectedItem.ToString & "'", cs) Dim ds As New DataSet Dim cmb As New SqlCommandBuilder(da) grid1.Refresh() da.Fill(ds, "finalbill") grid1.DataSource = ds.Tables("finalbill") total_client() End Sub Sub total_client() Dim da As New SqlDataAdapter("Select Distinct(Client_Name),sum(Total)As Total,Sum(TAX)As TAX, Sum(Grand_Total)As Grand_Total from finalbill where Client_Name='" & Comboclientname.SelectedItem.ToString & "' Group By Client_Name", cs) Dim ds As New DataSet Dim cmb As New SqlCommandBuilder(da) grid2.Refresh() da.Fill(ds, "finalbill") grid2.DataSource = ds.Tables("finalbill") End Sub Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click If Comboclientname2.Text = "SELECT" Then MsgBox("Please Select Client Name") Else Dim da As New SqlDataAdapter("Select Invoice_No,Invoice_Date,Total,TAX,Grand_Total from finalbill where Client_Name='" & Comboclientname2.SelectedItem.ToString & "'" & "AND Invoice_Date" & " Between '" & date1.Text & "' AND '" & date2.Text & "' Order By Invoice_Date", cs) Dim ds As New DataSet Dim cmb As New SqlCommandBuilder(da) grid4.Refresh() da.Fill(ds, "finalbill") grid4.DataSource = ds.Tables("finalbill") Total_Client_Datewise() End If End Sub Sub Total_Client_Datewise() Dim da As New SqlDataAdapter("Select Client_Name, Sum(Total)As Total,Sum(TAX)As TAX,Sum(Grand_Total)As Grand_Total from finalbill where Client_Name='" & Comboclientname2.SelectedItem.ToString & "'" & "AND Invoice_Date" & " Between '" & date1.Text & "' AND '" & date2.Text & "' Group By Client_Name ", cs) Dim ds As New DataSet Dim cmb As New SqlCommandBuilder(da) grid3.Refresh() da.Fill(ds, "finalbill") grid3.DataSource = ds.Tables("finalbill") End Sub Private Sub Combopro1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Combopro1.SelectedIndexChanged

BUSINESS MANAGEMENT SYSTEM

Page 194

Dim da As New SqlDataAdapter("Select Product_Name, Sum(Quantity)As Quantity,Sum(Amount)As Total_Amount from productwisebill where Product_Name='" & Combopro1.SelectedItem.ToString & "' Group By Product_Name ", cs) Dim ds As New DataSet Dim cmb As New SqlCommandBuilder(da) gridpro1.Refresh() da.Fill(ds, "productwisebill") gridpro1.DataSource = ds.Tables("productwisebill") productwise() End Sub Sub productwise() Dim da As New SqlDataAdapter("Select Invoice_No,Sum(Quantity)As Quantity,Sum(Amount)As Total_Amount from productwisebill where Product_Name='" & Combopro1.SelectedItem.ToString & "' Group By Invoice_No", cs) Dim ds As New DataSet Dim cmb As New SqlCommandBuilder(da) gridpro2.Refresh() da.Fill(ds, "productwisebill") gridpro2.DataSource = ds.Tables("productwisebill") End Sub Private Sub BttnViewallBill_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BttnViewallBill.Click Dim da As New SqlDataAdapter("Select * from finalbill Order By Invoice_No ", cs) Dim ds As New DataSet Dim cmb As New SqlCommandBuilder(da) gridview1.Refresh() da.Fill(ds, "finalbill") gridview1.DataSource = ds.Tables("finalbill") view_All_Price() End Sub Sub view_All_Price() Dim da As New SqlDataAdapter("Select Distinct(Client_Name)As Client_Name,Sum(Total)As Total,sum(TAX)As TAX,Sum(Grand_total)As Grand_Total from finalbill Group By Client_Name ", cs) Dim ds As New DataSet Dim cmb As New SqlCommandBuilder(da) gridview2.Refresh() da.Fill(ds, "finalbill") gridview2.DataSource = ds.Tables("finalbill") End Sub Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click Dim da As New SqlDataAdapter("Select Distinct(Client_Name)As Client_Name,Sum(Total)As Total, Sum(TAX)As TAX,Sum(Grand_total)As Grand_Total from finalbill where Invoice_Date" & " Between '" & dateviewda1.Text & "' AND '" & dateviewda2.Text & "'Group By Client_Name", cs) Dim ds As New DataSet Dim cmb As New SqlCommandBuilder(da) datagridviewda1.Refresh() da.Fill(ds, "finalbill") datagridviewda1.DataSource = ds.Tables("finalbill") viewallbilldatewise() End Sub

BUSINESS MANAGEMENT SYSTEM

Page 195

Sub viewallbilldatewise() Dim da As New SqlDataAdapter("Select * from finalbill where Invoice_Date" & " Between '" & dateviewda1.Text & "' AND '" & dateviewda2.Text & "'Order By Invoice_No", cs) Dim ds As New DataSet Dim cmb As New SqlCommandBuilder(da) datagridviewda2.Refresh() da.Fill(ds, "finalbill") datagridviewda2.DataSource = ds.Tables("finalbill") End Sub Sub clear_all() Comboclientname.ResetText() Comboclientname.Text = "SELECT" Comboclientname2.ResetText() Comboclientname2.Text = "SELECT" date1.ResetText() date2.ResetText() grid2.Columns.Clear() grid1.Columns.Clear() grid3.Columns.Clear() grid4.Columns.Clear() Combopro1.ResetText() Combopro1.Text = "SELECT" Combopro2.ResetText() Combopro2.Text = "SELECT" datesell1.ResetText() gridview2.Columns.Clear() gridview1.Columns.Clear() dateviewda1.ResetText() dateviewda2.ResetText() datagridviewda1.Columns.Clear() comboviewinvoice.ResetText() End Sub Private Sub TabControl1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TabControl1.SelectedIndexChanged clear_all() End Sub Private Sub comboviewinvoice_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles comboviewinvoice.SelectedIndexChanged Dim da As New SqlDataAdapter("Select Invoice_No,Challan_No,Order_No,VC_No,Client_Name,Address,Total,TAX,Grand_ CST_Percentage)As [CST_%],Despatch_Through,RR_Or_LR,Despatch_Date from finalbill where Invoice_No='" & comboviewinvoice.SelectedItem.ToString & "'", cs) Dim ds As New DataSet Dim cmb As New SqlCommandBuilder(da) datagridin1.Refresh() da.Fill(ds, "finalbill") datagridin1.DataSource = ds.Tables("finalbill") total_invoicewise() End Sub Sub total_invoicewise() Dim da As New SqlDataAdapter("Select Product_Name,Quantity,Amount from Productwisebill where Invoice_No='" & comboviewinvoice.SelectedItem.ToString & "'", cs)

BUSINESS MANAGEMENT SYSTEM

Page 196

Dim ds As New DataSet Dim cmb As New SqlCommandBuilder(da) datagridin2.Refresh() da.Fill(ds, "Productwisebill") datagridin2.DataSource = ds.Tables("Productwisebill") End Sub Private Sub LinkLabel2_LinkClicked(ByVal sender As System.Object, ByVal e As System.Windows.Forms.LinkLabelLinkClickedEventArgs) Handles LinkLabel2.LinkClicked index.Show() Me.Close() End Sub Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click If Combopro2.Text = "SELECT" Then MsgBox("Please Select Product Name") Else Dim da As New SqlDataAdapter("Select Product_Name, Sum(Quantity)As Quantity,Sum(Amount)As Total_Amount from productwisebill where Product_Name='" & Combopro2.SelectedItem.ToString & "' and & datesell1.Text & "' AND '" & datesell2.Text & "' Group By Product_Name", cs) Dim ds As New DataSet Dim cmb As New SqlCommandBuilder(da) gridpro3.Refresh() da.Fill(ds, "productwisebill") gridpro3.DataSource = ds.Tables("productwisebill") viewprodatewise() End If End Sub Sub viewprodatewise() Dim da As New SqlDataAdapter("Select Invoice_No,Sum(Quantity)As Quantity,Sum(Amount)As Total_Amount from productwisebill where Product_Name='" & Combopro2.SelectedItem.ToString & "' and Invoice_Date " & " Between '" & datesell1.Text & "' AND '" & datesell2.Text & "' Group By Invoice_No ", cs) Dim ds As New DataSet Dim cmb As New SqlCommandBuilder(da) gridpro4.Refresh() da.Fill(ds, "productwisebill") gridpro4.DataSource = ds.Tables("productwisebill") End Sub Private Sub LinkLabel1_LinkClicked(ByVal sender As System.Object, ByVal e As System.Windows.Forms.LinkLabelLinkClickedEventArgs) Handles LinkLabel1.LinkClicked Application.Exit() End Sub End Class

SCREEN LAYOUT OF ADD DELETED BILL DATA FORM :

BUSINESS MANAGEMENT SYSTEM Page 197

CODE FOR ADD DELETED BILL DATA FORM :

BUSINESS MANAGEMENT SYSTEM Page 198

Imports System.Data.SqlClient Public Class add_billdata Dim cs As New SqlConnection() Dim cmd As SqlCommand Dim dr As SqlDataReader Dim gg As String Dim bool As Boolean Private Sub add_billdata_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load 'combohanger cs.Open() cmd.CommandText = "select Distinct(Hanger_Name) from inhouse" dr = cmd.ExecuteReader() While dr.Read() combohanger.Items.Add(dr("Hanger_Name").ToString()) End While dr.Close() cs.Close() 'comboraw cs.Open() cmd.CommandText = "select Distinct(Plastic_Raw_Name) from inhouse" dr = cmd.ExecuteReader() While dr.Read() comboraw.Items.Add(dr("Plastic_Raw_Name").ToString()) End While dr.Close() cs.Close() 'combohook cs.Open() cmd.CommandText = "select Distinct(Hook_Name) from inhouse" dr = cmd.ExecuteReader() While dr.Read() combohook.Items.Add(dr("Hook_Name").ToString()) End While dr.Close() cs.Close() 'comboclip cs.Open() cmd.CommandText = "select Distinct(Clip_Name) from inhouse" dr = cmd.ExecuteReader() While dr.Read() comboclip.Items.Add(dr("Clip_Name").ToString()) End While dr.Close() cs.Close() End Sub Private Sub combohanger_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles combohanger.SelectedIndexChanged cs.Open() Dim qs As String = "Select * from inhouse where Hanger_Name=@Hanger_Name " Dim cmd As New SqlCommand(qs, cs) cmd.Parameters.Add(New SqlParameter("@Hanger_Name", SqlDbType.NChar, 100)).Value = combohanger.SelectedItem.ToString

BUSINESS MANAGEMENT SYSTEM

Page 199

dr = cmd.ExecuteReader() dr.Read() If dr.HasRows Then txtwt.Text = dr("Wt_Of_One_Hanger").ToString() comboraw.Text = dr("Plastic_Raw_Name").ToString() combohook.Text = dr("Hook_Name").ToString() comboclip.Text = dr("Clip_Name").ToString() ElseIf dr.Read = False Then MsgBox("Please Select Proper Date or Product Name") End If dr.Close() cs.Close() cmd.Parameters.Clear() End Sub Private Sub bttnsave_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bttnsave.Click add_Available() Calculate_Gramage() add_Plastic_Raw() add_Hook() add_Clip() clr_all() End Sub Sub clr_all() combohanger.ResetText() combohanger.Text = "SELECT" txtqty.Text = "" txtwt.Text = "" comboraw.ResetText() comboraw.Text = "SELECT" combohook.ResetText() combohook.Text = "SELECT" txthookqty.Text = "" End Sub Sub add_Clip() If comboclip.Text = "SELECT" Or comboclip.Text = "----" Then comboclip.Text = "----" txtclipqty.Text = 0.0 Else Dim x, y, z As Decimal x = 0 y = 0 z = 0 z = Val(txtclipqty.Text) cs.Open() cmd.CommandText = "select Available_Quantity from available_Clip where Clip_Name= '" & comboclip.SelectedItem.ToString & "'" dr = cmd.ExecuteReader() While dr.Read() y = dr("Available_Quantity").ToString() End While dr.Close() cs.Close() Dim qss As String = "update available_Clip set Available_Quantity=@Available_Quantity where Clip_Name=@Clip_Name" cmd = New SqlCommand(qss, cs) cmd.Parameters.Add(New SqlParameter("@Clip_Name", SqlDbType.NVarChar, 200)).Value = comboclip.SelectedItem.ToString

BUSINESS MANAGEMENT SYSTEM

Page 200

cmd.Parameters.Add(New SqlParameter("@Available_Quantity", SqlDbType.Decimal, 18, 2)).Value = x cs.Open() cmd.ExecuteNonQuery() cs.Close() cmd.Parameters.Clear() End If End Sub Sub add_Hook() If combohook.Text = "SELECT" Or combohook.Text = "----" Then combohook.Text = "----" txthookqty.Text = 0.0 Else Dim x, y, z As Decimal cs.Open() cmd.CommandText = "select Available_Quantity from available_Hook where Hook_Name= '" & combohook.SelectedItem.ToString & "'" dr = cmd.ExecuteReader() While dr.Read() y = dr("Available_Quantity").ToString() End While dr.Close() cs.Close() x = y + z Dim qss As String = "update available_Hook set Available_Quantity=@Available_Quantity where Hook_Name=@Hook_Name" cmd = New SqlCommand(qss, cs) cmd.Parameters.Add(New SqlParameter("@Hook_Name", SqlDbType.NVarChar, 200)).Value = combohook.SelectedItem.ToString cmd.Parameters.Add(New SqlParameter("@Available_Quantity", SqlDbType.Decimal, 18, 2)).Value = x cs.Open() cmd.ExecuteNonQuery() cs.Close() cmd.Parameters.Clear() End If End Sub Sub Calculate_Gramage() txtfinal.Text = Format(((Convert.ToDouble(txtqty.Text) * Convert.ToDouble(txtwt.Text))) / 1000, "#.00") End Sub Sub add_Plastic_Raw() Dim x, y, z As Decimal x = 0 cs.Open() cmd.CommandText = "select Available_Quantity from available_raw where Plastic_Raw_Name= '" & comboraw.SelectedItem.ToString & "'" dr = cmd.ExecuteReader() While dr.Read() y = dr("Available_Quantity").ToString() End While dr.Close() cs.Close() x = y + z Dim qss As String = "update available_raw set Available_Quantity=@Available_Quantity where Plastic_Raw_Name=@Plastic_Raw_Name" cmd = New SqlCommand(qss, cs)

BUSINESS MANAGEMENT SYSTEM

Page 201

cmd.Parameters.Add(New SqlParameter("@Plastic_Raw_Name", SqlDbType.NVarChar, 200)).Value = comboraw.SelectedItem.ToString cmd.Parameters.Add(New SqlParameter("@Available_Quantity", SqlDbType.Decimal, 18, 2)).Value = x cs.Open() cmd.ExecuteNonQuery() cs.Close() cmd.Parameters.Clear() End Sub Sub add_Available() If combohanger.Text = "SELECT" Then MsgBox("Please Select Hanger Name") ElseIf txtqty.Text = "" Then MsgBox("Enter Hanger Quantiy") ElseIf txtwt.Text = "" Then MsgBox("Enter Weight Of One Hanger") ElseIf comboraw.Text = "SELECT" Then MsgBox("PLease Select Plastic Raw Name") Else Dim a, b, c As Decimal a = 0 b = 0 c = 0 cs.Open() cmd.CommandText = "select Available_Quantity from available where Hanger_Name= '" & combohanger.SelectedItem.ToString & "'" dr = cmd.ExecuteReader() While dr.Read() b = dr("Available_Quantity").ToString() End While dr.Close() cs.Close() c = a + b Dim qss As String = "update available set Available_Quantity=@Available_Quantity where Hanger_Name=@Hanger_Name " cmd = New SqlCommand(qss, cs) cmd.Parameters.Add(New SqlParameter("@Hanger_Name", SqlDbType.NVarChar, 200)).Value = combohanger.SelectedItem.ToString cmd.Parameters.Add(New SqlParameter("@Available_Quantity", SqlDbType.Decimal, 18, 2)).Value = c cs.Open() cmd.ExecuteNonQuery() cs.Close() cmd.Parameters.Clear() End If End Sub Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click index.Show() Me.Close() End Sub Private Sub txtclipqty_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles txtclipqty.KeyDown If e.KeyValue = Keys.Back Then bool = True End If

BUSINESS MANAGEMENT SYSTEM

Page 202

End Sub Private Sub txtclipqty_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles txtclipqty.KeyPress If Char.IsDigit(e.KeyChar) = True Then e.Handled = False Else : e.Handled = True If e.KeyChar.ToString() = "." Then e.Handled = False End If If bool = True Then e.Handled = False bool = False End If End If End Sub End Class Private Sub txtclipqty_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles txtclipqty.KeyDown If e.KeyValue = Keys.Back Then bool = True End If End Sub

BUSINESS MANAGEMENT SYSTEM

Page 203

SCREEN LAYOUT OF BILL REPORT FORM :

CODE FOR BILL REPORT FORM :

BUSINESS MANAGEMENT SYSTEM Page 204

Imports CrystalDecisions.CrystalReports.Engine Imports CrystalDecisions.Shared Imports System.Data.SqlClient Public Class AllBillRpt Private Sub AllBillRpt_Disposed(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Disposed index.Show() Me.Close() End Sub Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim cryRpt As New Bi cryRpt.Load(" ") Dim Dim Dim Dim crParameterFieldDefinitions As ParameterFieldDefinitions crParameterFieldDefinition As ParameterFieldDefinition crParameterValues As New ParameterValues paramRangeValue As New ParameterRangeValue()

paramRangeValue.StartValue = DateTimePicker1.Text paramRangeValue.EndValue = DateTimePicker2.Text crParameterFieldDefinitions = cryRpt.DataDefinition.ParameterFields crParameterFieldDefinition = crParameterFieldDefinitions.Item("Invoice_Date") crParameterValues = crParameterFieldDefinition.CurrentValues crParameterValues.Clear() End Sub Private Sub AllBillRpt_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load DateTimePicker1.ResetText() DateTimePicker2.ResetText() End Sub End Class

SCREEN LAYOUT OF E-MAIL SENDER FORM :

BUSINESS MANAGEMENT SYSTEM

Page 205

CHALLENGES IN THIS PROJECT

BUSINESS MANAGEMENT SYSTEM

Page 206

In the project of Business Management System establishment, the basic problems are the Deleted Bill Stock and Searching Previous bill Productwise. 2.1 Deleted Bill Stock The initial problem is the problem of features extraction. Generally any bill remove then that bill related stock are automatically store in stock table but in that project one bill contain many items of hanger and that manufacturing require three types of raw material if bill is deleted and that deleted bill stock retrieve and that stock related raw material stock updated are very difficult stock. Thats why i m do different idea. deleted bill stock are manually adding in stock by administrator. 2.2 Searching Previous bill Productwise. The second problem is to View previous bill productwis are not view in Descending order because in that query using group by Product_name statement thats why result is not display in descending order.

PROJECT CONCLUSION
BUSINESS MANAGEMENT SYSTEM Page 207

All the eight different modules have been implemented to store and retrieve of company data. and retrieve this data whenever company required for future planning and represent the data in efficient manner to the company. Finally print the invoice bill from collect the information of different modules and give accurate result and this invoice module is giving result with 99% accuracy.

A Business Management System comprise a Modules of value added activities, performed by their relevent roles or collaborators, to purposefully achieve the common business goal. These process are critical to any company they may generate revenue and often represent a significant proportion of costs. As a managerial approach, Business Management System considers process to be stratgic assets of an company that must be understood, managed, and improved to deliver value added product and service to the clients.

BUSINESS MANAGEMENT SYSTEM

Page 208

BIBLIOGRAPHY
1) Steven Holzner, 2005, Visual Basic .NET Black Book, Paraglyph Inc.,US
2) James R Groff, 2002, SQL The Complete Reference, McGraw-

Hill, US
3) Yashavant Kanetkar, 2006, Vb.Net Skills, Bpd Edition, India

4) Stephen Chapman, 2007, Crystal Reports, McGraw-Hill Edition, US

5) IDEMI Government Institute, 2010, Vb.Net, IDEMI Rights,India 6)

www.codeproject.com Andrew Troelsen,Vb.Net, Available from : Url: http://www.codeproject.com/KB/cpp/autocomplete_combobo x.aspx (accessed 2010). www.youtube.com P.M. David Cameron , Vb.Net, Available from : Url: http://www.youtube.com/watch?v=nCvJf83ocsE (accessed 2010).

7)

BUSINESS MANAGEMENT SYSTEM

Page 209