Motivation

Business Process Management
INTRODUCTION & MOTIVATION
INTRODUCTION & MOTIVATION

Page | 1
The product details are entered in the database at the time of new product creation. The new product entry must be done by system administrator. A unique ID is given against each product. The system is used to carry out various transactions in the business process. Once the customer places an order after getting the authentication the amount payable is deducted from the deposit, the stock quantity is set and updated automatically. In case if there is no stock, then an error message indicating that order cannot be placed is displayed and the stock quantity remains unchanged. In a Product inventory if the user comes to purchase a Product, first the valid Customer no. and Product no. needs to be checked according to the name entered and after getting an authentication the order is placed and the transaction is done. If the customer returns the taken product then the amount is updated in the database and the money is returned to the customer and updated accordingly. Hence this system will provide more security and discipline will be maintained in both Product and Account.
Page | 2

This chapter deals with the basic concepts of the project, the method and technology used therein, and the various other background details of the project. It also emphasizes on the factors that have encouraged us to build this project. Background Details. Objectives. Merits. Limitations.
BACKGROUND DETAILS.
Every successful project was once a thought in mans mind As the saying goes thousands of years ago man faced the problem of traveling from one place to another, and knowing new boundaries. Thus he discovered the wheel and his happiness knew no bounds. That was the beginning of mechanics and today the mechanics seems to be the tryst of destiny. Gone are the days when people required animals and human beings to pass on messages and to communicate amongst one another. As technology and computers has evolved since decades, they have outsourced their capabilities to almost every possible dimension that we can think of. Projects are more interesting, useful & active if they are live projects. The project (software), which is going to be developed by us, is too a live project, which can be implemented in various fields of education. Our project is based on a working construction project which is named as BUSINESS PROCESS MANAGEMENT. The software is based on transaction with supplier, customer, product, product details and details of purchase and sales process.
Page | 3
OBJECTIVES
The various objectives that we aim our project to achieve are listed as:
To display detailed information of the product, supplier, customer, purchase, sales & bills process to the user. To reduce the stress of members involved in the process from purchase and sales processing to billing process.
To eliminate the cost of third party software. To reduce man power requirements. To reduce the complexity of the software by making the software interactive and easy to use.
Page | 4
OVERVIEW OF PROJECT
OVERVIEW OF PROJECT
Page | 5
Business Process Management This project BUSINESS PROCESS MANAGEMENT which contains the module to manage the construction business. This application will help the client to manage his Product details, customer details, supplier details, purchase and sales details etc. This system consists of Business process management, which has been designed using Visual Basic .NET (front-end) and SQL Server 2000 (backend). The Business process includes products details such as product cost and other details. The employee details are also stored in the system. The Business process will store product cost details such as product description, quantity, rate and total. The business process will also store the products purchase and sales transaction and will also maintain the stock and will also generate weekly, monthly, quarterly and yearly reports accordingly. Before accessing system user needs to enter their valid Id and password and after getting the authentication they can access it. In Case of any incorrect details an error message is generated accordingly. The system has an authentication number for verification purpose for each module, which provides an enhanced security.
ABSTRACT
It is to be designed using VB.Net and SQL Server 2000. This System consists of BUSINESS PROCESS Management. Page | 6
It stores Product details and Employee details in it including personal details.
An error message is displayed for incorrect details. It provides enhanced security by giving a unique pin number for authentication purpose.
This system is used for Product, Purchase, Sales and Order transactions. It enables the centralized authorities to modify, delete, or enter new data as when
required. For future enhancement, it has the ability to read data from barcode using barcode reading system.
EXISTING
Page | 7
& PROPOSED SYSTEM
EXISTING AND PROPOSED SYSTEM

EXISTING SYSTEM : In the present scenario, the existing system has many drawbacks which make it inefficient to carry on with. The existing system is an Excel sheet which consists of the entire data in the tabular format. There are around 45 attributes in the table which consists of information about different areas of the system like information about Product, Suppliers, Customer, Employees and many others. Now the inefficiency of the system can be stated in terms as follows:
Page | 8
Business Process Management Whenever a new project is created, all the attributes have to be added in the Excel sheet which becomes very time consuming. Secondly for the report generation, the required data needs to be converted into a word document which requires copying and pasting of the data every time from the Excel sheet into word pad and then the printouts are removed. For every small information the excel sheet has to be referred, every small information needs to be searched which makes the job tedious. The existing system is not attractive. The data is not sorted based on any unique key, which makes it difficult to access the data. Above all the most important reason for implementation in VB.Net is to make it user friendly by having a windows interface capability. PROPOSED SYSTEM : The main aim of the project is to develop a user friendly GUI , which would provide the required information just by clicking of buttons, to make it completely menu driven which would reduce the time factor involved ,and would increase the efficiency and flexibility of the system. Information regarding different attributes like Products, Suppliers, Employees, Customer and other information like overview of the project can be easily monitored through the menu driven approach of the various forms. Various functions like add, update, delete etc would be accomplished just by mere clicking of buttons.
NEED OF THE APPLICATION

The need to develop this project arises because the existing system has less features as compared to the proposed system. The administrator has to maintain the records of all the Transaction carried out with their client. It looks after all the transactions being carried out at the users office.
Page | 9
Business Process Management Presently, records of product are done manually through muster. It causes inconvenience during calculation of purchase and sales. It is time consuming and the records have to be checked every time. Hence it requires a lot of manpower and paperwork. For the suppliers and the customer, the information is also stored in musters and when in a need to view the details and to perform any transaction all the records have to be searched from the scratch The existing system has less security such as the database can be easily modified or deleted by an unauthorized user that may cause inconvenience during carrying out any transactions. So the system having a centralized authority is needed to be developed.
Page | 10
PROJECT DEVELOPMET CYCLE
List of Processes
Requirement analysis is a software engineering task that bridges the between system level requirement engineering and software design. Requirement engineering activities result in the specification of softwares operational characteristics, indicate softwares interface with other system elements, and establish constraints that software must meet.
Page | 11
Business Process Management Requirements analysis allows the software engineer to refine the software allocation and build models of data, functional and behavioral domains that will be treated by the software.
Process Model Used

Software Engineering Process Model Used for the Project To solve actual problem, a software engineering must incorporate a development strategy which include the process, methods and tools layers and genetic phases This strategy is called as Process Model or Software Engineering Paradigm
A Process Model is based on following 3 things:

The nature of the project and application to be developed. The methods and the tools used. The controls and deliverables which are required. There are many Process Models which can be followed depending upon Project
Page | 12
Business Process Management Such as: Waterfall Model Prototype Model Spiral Model etc. Component Based Model However the Process Model which we selected for our project is Waterfall Model. We selected this model because it is most popular model & suits exactly to our project and schedule.
Diagram for Waterfall Model:
Page | 13
Page | 14
PROJECT DEVELOPMENT CYCLE

1. PRELIMINARY INVESTIGATION
The preliminary investigation step was performed and following findings were reported: FEASIBILITY STUDY: There are three types of feasibility that we have taken into consideration. i. TECHNICAL FEASIBILITY In technical feasibility we determine whether the project can be developed with the current equipment, existing software technology and available personnel. As per our study we found that the project is technically feasible. Our system can be developed by many existing software like VB, ORACLE, ACCESS. Also the labs are in position to employ new machines to support the software. ii. ECONOMIC FEASIBILITY In economic feasibility we determine that whether there are sufficient benefits in creating the system, the cost of development is acceptable. According to our investigation we found that the labs are in the position to bear the cost of creating a new system so as to get the benefits of the system. iii. OPERATIONAL FEASIBILITY: FEASIBILITY
Operational feasibility part determines whether the system will be used if it is developed and implemented. According to our investigation we found that requirements of lab automation are very high. Also our system will be developed, taking user friendliness into consideration.
Page | 15
Business Process Management REQUEST APPROVAL: APPROVAL

After performing the preliminary investigation that is verifying the project request and feasibility study the college has decided to implement the project.
2.
DETERMINATION OF SYSTEM REQUIREMENT:

a. Record Review: Review
We went through the various records maintained in the company for searching through various information pertaining to the employees. Through this study we were able to create database for the system .Also by knowing an employee requirements we were able to create forms and layouts. From the main form we were able to determine the details that should be taken.
b. Onsite Observation:
Onsite observation is the process of recognizing and noting people, objects and occurrences to obtain information. In this step we interacted with the staff that will be using the software. The major objective was to get as close as possible to the real system environment.
3. DESIGN OF THE SYTEM:

Design refers to the technical specifications that will be applied in implementing the project. The main objective of this step is to determine and develop the system that will meet the requirement identified during the analysis phase .In the system design we will concentrate on the data to be input , calculating storing and creating the master files to meet the requirements of the proposed output.
4. DEVELOPMENT OF THE SOFTWARE (CODING):

As programmer we shall be using the VISUAL BASIC .Net, Microsoft SQL Server 2000 and ACCESS. With the help of the software we shall be creating new software implementing employees demands.
5.
SYSTEM TESTING:
Page | 16

Once the programs are written , procedures are prepared , organizational changes are implemented ,data collected and hardware installed , the new system shall be ready to be tested .During the testing, desired system performance as stated and required by the users in general will be compared with the actual performance.
6. MAINTENANCE:
In maintenance, we the students who have created the project shall check and put new equipment into use. Master files, database and other relevant information will be made available.
Advantages of Computerized System

The main difference between the previous and computerized system is that all the records will be made in the computer with complete normalization. The main advantage of this system is that there is no need of keeping paper records, which saves space and money.
Page | 17
Business Process Management Another main advantage is that it consumes less Time for Searching, Updating, Inserting and Deleting. Information about a company is readily available at any time. The company can obtain various reports at any time. Records are easily fetched.
Page | 18
DESIGNING OF PROJECT
Page | 19
DATA FLOW DIAGRAM
Page | 20
DATA FLOW DIAGRAM

Level 0 (Context Level DFD)
Report
Galaxy Database
Passed to 0 Business Process Management Generates
Level 1 DFD
User Enters 1.0 Login Information Uses 2.0 Main Menu
Generates 3.0 Report
Page | 21
Level 2 of 1.0 Process: Login Information

User Provides Enters Compares Galaxy Database
1.1 User Name
Click Login
1.2 Password Verification Access to Main S/W
Level 2 of 2.0 Process: Main Menu Information

2.1 Product Details Sends 2.4 Supplier Details
2.2 Stock Details
Galaxy Database
2.5 New User Entry
2.3 Custome r Details
Updates 2.6 Change Password
Page | 22

Level 3 of 2.1 Process: Product Detail
2.1.2 User Display Fills 2.1.1 Products Details Database Include 2.1.3 Add Produc t Provides Provides Sends 2.1.4 Edit Product Galaxy Database View Product Includes
Level 3 of 2.2 Process: Supplier Detail
User Enters 2.2.1 Supplier Transaction Add
2.2.2 Supplier Detail Includes
Galaxy Database
2.2.3 Provides Supplier Info Page | 23 Transmit
Level 3 of 2.3 Process: Customer Details

User Enters 2.3.1 Customer Transaction Galaxy Database Add 2.3.2 Customer Detail
Provides
2.3.3 Sends Customer Info
Includes
Level 3 of 2.4 Process: Purchase Details

User Enters 2.4.1 Purchase Transaction Galaxy Database Add 2.4.2 Purchase Detail Provides
Enters
2.4.3 Purchase Bill Includes
Page | 24
Level 3 of 2.5 Process: Sales Detail

User Enters 2.4.1 Sales Transaction Galaxy Database Add 2.4.2 Sales Detail Provides
Enters
2.4.3 Customer Bill Includes
Level 2 of 2.5 Process: New User Entry

User Provides Enters Compares Galaxy Database
2.5.1 User Name
Click Login
2.5.2 Password Verification Creates New User
Page | 25
Level 2 of 2.6 Process: Change Password

User Provides Enters Compares Updates Galaxy Database
2.6.1 User Name
Click Login
2.6.2 Old Password
Replaces
2.6.3 New password
Level 4 of 2.1.2 Process: View Product

Provides Galaxy Database
User Enters 2.1.2.1 View Product
Adds Process 2.1.2.2 Search Display
2.1.2.3 Product Detail
Page | 26
Level 2 of 3.0 Process : Report

User Select 3.1 Product Name 3.2 Purchase Date Galaxy Database
Provides
Generates
3.4 Bill Date
Sends
3.3 1st Bill
Add
Transfer
Calls
3.5 2nd Bill
Prints Print Include
Page | 27
WORK BREAKDOWN STRUCTURE
Page | 28
WORK BREAKDOWN STRUCTURE
Page | 29
ENTITY RELATIONSHIP DIAGRAM
Page | 30
ENTITY RELATIONSHIP DIAGRAM
Page | 31
PROJECT TIME & TASK DISTRIBUTION
Page | 32
TIMELINE CHART
October W1 1) Gathering Initial Requirement s. Meet Internal Guide Identify needs & Constraints Determine Goals & Scope Establish specification. 2) Feasibility Phase Technical(S/w & H/W) Feasibility Economic Feasibility Application(co de) Feasibility Operational Feasibility 3) Requirement Determinati on Phase Determine inputs Determine outputs Process Control Synopsis W2 W3 W4
November W1 W2 W3 W4
December W1 W2 W3 W4
Page | 33
January 4) Design Customer interface Algorithmic Design for encryption. Algorithmic Design for color image compression using wavelet 5) Development Developing interfaces Developing color image compression using wavelet modules 7) Testing Phase Testing connectivity 8) Implementation Phase 9) Evaluation Phase W1 W2 W3 W4
February W
1
March W3 W4 W1 W2 W3 W4
W2
Page | 34
SCREEN SHOTS
Page | 35
SCREEN SHOTS
LOGIN FORM
Page | 36
MAIN MDI FORM
Page | 37
NEW CUSTOMER
Page | 38
EDIT CUSTOMER
Page | 39
CUSTOMER SEARCH
Page | 40
NEW SUPPLIER
Page | 41
SUPPLIER SEARCH
Page | 42
PURCHASE DETAIL
Page | 43
SALES DETAIL
Page | 44
NEW PRODUCT
Page | 45
PRODUCT SEARCH
Page | 46
STOCK SEARCH
Page | 47
NEW BILL
Page | 48
BILL SEARCH BY BILL NO
Page | 49
BILL SEARCH BY BILL DATE
Page | 50
CHANGE PASSWORD
Page | 51
EDIT SUPPLIER
Page | 52
DESCRIPTION OF THE PROCESSING FORMS
Page | 53
PROJECT THEORY
Designer ideas, however innovative remain a fantasy until put on a piece of a paper and implemented. Planning in advance is very necessary to decide about each statement and element of the job in anticipation of what should be done. Now moving on to the actual details of the software, it consists of various forms for performing different specific purposes in the transaction with supplier, details of stock, details of product, and details of purchase and sales process. The function performed by each of the forms is much more related with other forms. Apart from the forms, we have Microsoft SQL Server 2000 database used to hold the records of each of the transaction with supplier and customer, details of product, details of stock, details of sales and purchase process. The various forms are enumerated as below:
LOGIN FORM This form asks the user to enter the user name and password. It is basically for providing authorized access to various users. The two categories of users are Users and Administrator. We can also add various different types of users.
MDI FORM
Page | 54
This is the main form of the application. It is the parent form which contains various other child forms or windows. This form contains menu bar and toolbar with several options. At the bottom of the form a status bar is present displaying the Username, Login time & Date. NEW CUSTOMER FORM This form provides us to have a new customer entry. This form mainly consist an authentication for making a new customer entry into the system so as to keep in record the transactions done. CUSTOMER SEARCH FORM This form provides search option for searching the required customer so as get the details. CUSTOMER EDIT FORM This form provides editing option so as to update, delete or modify the existing details of the customer.
NEW SUPPLIER FORM
Page | 55
This form provides us to have a new supplier entry. This form mainly consist an authentication for making a new supplier entry into the system so as to keep in record the transactions done. SUPPLIER SEARCH FORM This form provides search option for searching the required supplier so as get the details. SUPPLIER EDIT FORM This form provides editing option so as to update, delete or modify the existing details of the supplier.
CHANGING THE PASSWORD This form allows us to change our own password as if it has been known to another person who can easily access the application. So, these forms allow us to change the password of our own. Even it has the restriction that if an application is logged in by a staff then he doesnt have rights to change the password of the administrator.
NEW PRODUCT ENTRY FORM
Page | 56
This form allows the user to entry a record of the new product along with the basic rates, quantity etc. This is been saved in the product table which will be transact by all other tables which are related to each other. PRODUCT SEARCH FORM This form allows the user to proceed with the searching of the product according to its name which has been saved previously such as its name, date, amount etc. PURCHASE FORM This form allows the user to enter the purchase details. The data is saved in the purchase table and accordingly updated in stock.
SALES FORM
.
This form allows the user to enter the sales details of the product sold to the
respective customer.. The data is saved in the sales table and accordingly updated in stock.
NEW BILL FORM
Page | 57
Through this form the user gets a bill in a predefined format in which the user enters the details of the transaction done with the customer and prints the bill and gives it to the customer. BILL SEARCH FORM There are two ways in which a user can search the bills from the system. First way is by giving the Bill No and searching accordingly. Second way is by giving the date on which the bill was issued to the customer. STOCK SEARCH FORM In this form the user can search the stock detail such as total stock available, cost of the product etc. The user can view the details weekly, monthly, quarterly and even yearly.
Page | 58
CODES OF THE FORMS
LOGIN FORM
Page | 59

Imports System.Data Imports System.Data.SqlClient Imports System.Data.SqlClient.SqlCommand Public Class frmlogin Dim connstring As String = "Data Source=localhost;Initial Catalog= new galaxy1;Integrated Security=True " 'Dim connstring As String = "Data Source=SATAM;Initial Catalog=new galaxy1;User ID=sa" Dim conn As New SqlConnection Dim da As SqlDataAdapter Dim cmdInsert As SqlCommand Private Sub btnlogin_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnlogin.Click Try Dim temp As DataSet = New DataSet() conn = New SqlConnection(connstring) da = New SqlDataAdapter("select * from login where loginid='" & txtlogin.Text & "'and passwrd='" & txtpwd.Text & "'", conn) If da.Fill(temp, "login") Then 'frmmain.Show() frmgalaxy.Show() Me.Hide() Else MsgBox("Invalid Username or Password") End If Catch ex As Exception MsgBox(ex.Message) End Try End Sub Private Sub btnclear_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnclear.Click txtlogin.Text = "" txtpwd.Text = "" End Sub Private Sub btnexit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnexit.Click Me.Dispose() End Sub Private Sub frmlogin_Activated(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Activated txtlogin.Focus() End Sub Private Sub frmlogin_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load txtlogin.Focus() End Sub End Class
MAIN MDI FORM

Page | 60
Public Class frmmain Private Sub NewCustomerToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NewCustomerToolStripMenuItem.Click frmcust.Show() End Sub Private Sub NewProductToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NewProductToolStripMenuItem.Click frmNewProduct.Show() End Sub Private Sub NewSupplierToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NewSupplierToolStripMenuItem.Click frmnewsupp.Show() End Sub Private Sub ByNameToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ByNameToolStripMenuItem.Click frmcustsearch.Show() End Sub Private Sub frmmain_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load 'Me.MdiParent = Me 'frmgalaxy.ShowDialog() 'frmlogin.Dispose() End Sub Private Sub ByNameToolStripMenuItem1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ByNameToolStripMenuItem1.Click frmsuppsearch.Show() End Sub Private Sub ByBillNoToolStripMenuItem_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ByBillNoToolStripMenuItem.Click frmbillsearchno.ShowDialog() End Sub Private Sub StockCheckToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles StockCheckToolStripMenuItem.Click frmstockchk.Show() End Sub Private Sub NewBillToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NewBillToolStripMenuItem.Click frmnewbill.Show() End Sub Private Sub CustomerToolStripMenuItem_MouseHover(ByVal sender As Object, ByVal e As System.EventArgs) Handles CustomerToolStripMenuItem.MouseHover
Page | 61

CustomerToolStripMenuItem.ShowDropDown() End Sub Private Sub ProductToolStripMenuItem_MouseHover(ByVal sender As Object, ByVal e As System.EventArgs) Handles ProductToolStripMenuItem.MouseHover ProductToolStripMenuItem.ShowDropDown() End Sub Private Sub SupplierToolStripMenuItem_MouseHover(ByVal sender As Object, ByVal e As System.EventArgs) Handles SupplierToolStripMenuItem.MouseHover SupplierToolStripMenuItem.ShowDropDown() End Sub Private Sub BillToolStripMenuItem_MouseHover(ByVal sender As Object, ByVal e As System.EventArgs) Handles BillToolStripMenuItem.MouseHover BillToolStripMenuItem.ShowDropDown() End Sub Private Sub ExitToolStripMenuItem2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ExitToolStripMenuItem2.Click Application.Exit() End Sub Private Sub PurchaseToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PurchaseToolStripMenuItem.Click frmpurchase.Show() End Sub Private Sub frmmain_FormClosing(ByVal sender As System.Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles MyBase.FormClosing Application.Exit() End Sub Private Sub ChangePasswordToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ChangePasswordToolStripMenuItem.Click frmchngpasswd.ShowDialog() End Sub Private Sub ByDateToolStripMenuItem_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles ByDateToolStripMenuItem.Click billsearchdate.Show() End Sub
Private Sub notepad_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles notepad.Click Shell("notepad.exe") End Sub Private Sub addnewuser_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles addnewuser.Click
Page | 62

End Sub Private Sub addrbook_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles addrbook.Click 'Shell("addressbook.exe") End Sub Private Sub calculator_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles calculator.Click 'Shell("calculator.exe.") End Sub Private Sub Calendar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Calendar.Click ' Shell("calendar.exe") End Sub Private Sub clock_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles clock.Click ' Shell("clock.exe") End Sub Private Sub computer_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles computer.Click 'Shell("winexp.exe") End Sub Private Sub EditToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles EditToolStripMenuItem.Click Edit_Customer.Show() End Sub Private Sub EditToolStripMenuItem1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles EditToolStripMenuItem1.Click frmeditsupp.Show() End Sub
Private Sub ProductSearchToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ProductSearchToolStripMenuItem.Click prodsearch.Show() End Sub Private Sub SalesToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SalesToolStripMenuItem.Click frmsales.Show() End Sub
Page | 63

Private Sub BillReportToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BillReportToolStripMenuItem.Click frmBillReport.Show() End Sub Private Sub StockReportToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles StockReportToolStripMenuItem.Click frmstockreport.Show() End Sub End Class
NEW CUSTOMER
Page | 64

Imports System.Data Imports System.Data.SqlClient Imports System.Data.SqlClient.SqlCommand Public Class frmcust Dim connstring As String = "Data Source=localhost;Initial Catalog= new galaxy1;Integrated Security=True " Dim conn As New SqlConnection Dim da As SqlDataAdapter Dim cmdInsert As SqlCommand Dim cmdupdate As SqlCommand Private Sub btnexit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnexit.Click Me.Close() End Sub Private Sub btnsave_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnsave.Click 'Dim conphno As VariantType 'conphno = Val(txtcustid.Text) Dim blnFlag As Boolean = False If txtcustname.Text = "" Then txtcustname.Focus() blnFlag = False ElseIf txtcustaddr.Text = "" Then txtcustaddr.Focus() blnFlag = False ElseIf txtcustphno.Text = "" Then txtcustphno.Focus() blnFlag = False Else blnFlag = True End If If blnFlag Then Try cmdInsert = New SqlCommand() conn = New SqlConnection(connstring) cmdInsert.Connection = conn cmdInsert.CommandText = "INSERT INTO customer (custname,custphno,custaddr,custemailid) VALUES ('" & txtcustname.Text & "','" & txtcustphno.Text & "', '" & txtcustaddr.Text & "','" & txtcustemailid.Text & "')" conn.Open() cmdInsert.ExecuteNonQuery() conn.Close()
MsgBox("Records Entered Successfully")
Page | 65

btnsave.Enabled = False Catch ex As Exception MessageBox.Show(ex.ToString()) End Try Else MessageBox.Show("Please Check the Input") End If End Sub Private Sub btnclear_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnclear.Click txtcustname.Text = "" txtcustaddr.Text = "" txtcustphno.Text = "" txtcustemailid.Text = "" btnsave.Enabled = True End Sub Private Sub frmcust_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load txtcustname.Focus() End Sub End Class
Page | 66
SEARCH CUSTOMER
Imports System.Data Imports System.Data.SqlClient Public Class frmcustsearch Dim connstring As String = "Data Source=localhost;Initial Catalog= new galaxy1;Integrated Security=True " Dim conn As SqlConnection Dim da As SqlDataAdapter Private Sub Customer_Search_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load 'TODO: This line of code loads data into the 'New_galaxy1DataSet.customer' table. You can move, or remove it, as needed. Try Me.CustomerTableAdapter.Fill(Me.New_galaxy1DataSet.customer) Catch ex As Exception 'MessageBox.Show(ex.ToString()) End Try End Sub Private Sub btnexit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnexit.Click Me.Close() End Sub Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged Dim temp As DataSet = New DataSet() conn = New SqlConnection(connstring) Dim str As String str = TextBox1.Text da = New SqlDataAdapter("select * from customer where custname like'" + str + "%'", conn) da.Fill(temp, "customer") DataGridView1.DataSource = temp.Tables("customer") End Sub Private Sub btnreload_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnreload.Click Me.CustomerTableAdapter.Fill(Me.New_galaxy1DataSet.customer) Dim temp As DataSet = New DataSet() conn = New SqlConnection(connstring) da = New SqlDataAdapter("select * from customer", conn) da.Fill(temp, "customer") DataGridView1.DataSource = temp.Tables("customer") End Sub End Class
Page | 67
EDIT CUSTOMER
Imports System.Data Imports System.Data.SqlClient Public Class Edit_Customer Dim conn As SqlConnection Public connstring As String = "Data Source=localhost;Initial Catalog= new galaxy1;Integrated Security=True " Public ds As DataSet Public da As New SqlDataAdapter Dim mydataview As DataView 'adding new concept of bindingsource Dim mybindingsource As BindingSource Private Sub Edit_Customer_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load conn = New SqlConnection(connstring) ds = New DataSet() da.SelectCommand = New SqlCommand("select * from customer", conn) Dim mycommand As SqlCommandBuilder = New SqlCommandBuilder(da) da.Fill(ds, "customer") 'binding source object creation mybindingsource = New BindingSource() mybindingsource.DataMember = "customer" mybindingsource.DataSource = ds 'Binding the form fields to the mydataset object txtcustname.DataBindings.Add("text", ds.Tables("customer"), "custname") txtcustphno.DataBindings.Add("text", ds.Tables("customer"), "custphno") txtcustemailid.DataBindings.Add("text", ds.Tables("customer"), "custemailid") txtcustaddr.DataBindings.Add("text", ds.Tables("customer"), "custaddr") custedit_datagrid.DataSource = ds custedit_datagrid.DataMember = "customer" End Sub Sub cleartext() txtcustname.Text = "" txtcustaddr.Text = "" txtcustemailid.Text = "" txtcustphno.Text = "" End Sub Sub disabletext() txtcustname.Enabled = False txtcustaddr.Enabled = False txtcustemailid.Enabled = False txtcustphno.Enabled = False End Sub Sub enabletext()
Page | 68

txtcustname.Enabled = True txtcustaddr.Enabled = True txtcustemailid.Enabled = True txtcustphno.Enabled = True End Sub Private Sub btndel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btndel.Click Dim currentposition As Integer = Me.BindingContext("custedit_datagrid").Position Try If MsgBox("Are you sure", MsgBoxStyle.YesNo, "Delete Customer detail") = MsgBoxResult.Yes Then ds.Tables("customer").Rows(currentposition).Delete() da.Update(ds, "customer") End If Catch ex As Exception MsgBox(ex.ToString) End Try End Sub Private Sub btnupdate_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnupdate.Click If Not btnupdate.Text = "Save" Then btnupdate.Text = "Save" Else Dim currentposition As Integer = Me.BindingContext(ds.Tables("customer")).Position ds.Tables("customer").Rows(currentposition).BeginEdit() ds.Tables("customer").Rows(currentposition).Item("custname") = txtcustname.Text ds.Tables("customer").Rows(currentposition).Item("custaddr") = txtcustaddr.Text ds.Tables("customer").Rows(currentposition).Item("custphno") = txtcustphno.Text ds.Tables("customer").Rows(currentposition).Item("custemailid") = txtcustemailid.Text ds.Tables("customer").Rows(currentposition).EndEdit() Dim mycommand As SqlCommandBuilder = New SqlCommandBuilder(da) da.Update(ds, "customer") ds.Clear() da.Fill(ds, "customer") btnupdate.Text = "Update" btndel.Enabled = True btnclear.Enabled = True ' disabletext() End If End Sub
Page | 69

Private Sub btnexit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnexit.Click Me.Dispose() End Sub
Private Sub custedit_datagrid_CellMouseClick(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewCellMouseEventArgs) Handles custedit_datagrid.CellMouseClick Me.txtcustname.Text = custedit_datagrid.CurrentRow.Cells("custname").Value Me.txtcustaddr.Text = custedit_datagrid.CurrentRow.Cells("custaddr").Value Me.txtcustphno.Text = custedit_datagrid.CurrentRow.Cells("custphno").Value Me.txtcustemailid.Text = custedit_datagrid.CurrentRow.Cells("custemailid").Value End Sub
Private Sub txtcustedit_TextChanged_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtcustedit.TextChanged Dim temp As DataSet = New DataSet() conn = New SqlConnection(connstring) Dim str As String str = txtcustedit.Text da = New SqlDataAdapter("select * from customer where custname like'" + str + "%'", conn) da.Fill(temp, "customer") custedit_datagrid.DataSource = temp.Tables("customer") custedit_datagrid.DataSource = temp custedit_datagrid.DataMember = "customer" End Sub End Class
Page | 70
NEW SUPPLIER
Imports System.Data Imports System.Data.SqlClient Imports System.Data.SqlClient.SqlCommand Public Class frmnewsupp Dim connstring As String = "Data Source=localhost;Initial Catalog= new galaxy1;Integrated Security=True " Dim conn As New SqlConnection Dim da As SqlDataAdapter Dim cmdInsert As SqlCommand Private Sub btnsuppexit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnsuppexit.Click Me.Close() End Sub Private Sub btnsuppsave_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnsuppsave.Click Dim blnFlag As Boolean = False If txtsuppname.Text = "" Then txtsuppname.Focus() blnFlag = False ElseIf txtsuppaddr.Text = "" Then txtsuppaddr.Focus() blnFlag = False ElseIf txtsuppphno.Text = "" Then txtsuppphno.Focus() blnFlag = False Else blnFlag = True End If If blnFlag Then Try cmdInsert = New SqlCommand() conn = New SqlConnection(connstring) cmdInsert.Connection = conn cmdInsert.CommandText = "INSERT INTO supplier (suppname,suppphno,suppaddr,suppemailid) VALUES ('" & txtsuppname.Text & "','" & txtsuppphno.Text & "', '" & txtsuppaddr.Text & "','" & txtsuppemailid.Text & "')" conn.Open() cmdInsert.ExecuteNonQuery() conn.Close() MsgBox("Records Entered Successfully") btnsuppsave.Enabled = False Catch ex As Exception MessageBox.Show(ex.ToString()) End Try Else MessageBox.Show("Please Check the Input") End If End Sub
Page | 71
Private Sub btnclear_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnclear.Click txtsuppname.Text = "" txtsuppaddr.Text = "" txtsuppphno.Text = "" txtsuppemailid.Text = "" btnsuppsave.Enabled = True End Sub Private Sub frmnewsupp_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load txtsuppname.Focus() End Sub End Class
Page | 72
SUPPLIER SEARCH
Imports System.Data Imports System.Data.SqlClient Public Class frmsuppsearch Dim connstring As String = "Data Source=localhost;Initial Catalog= new galaxy1;Integrated Security=True " Dim conn As SqlConnection Dim da As SqlDataAdapter Private Sub frmsuppsearch_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load 'TODO: This line of code loads data into the 'New_galaxy1DataSet.supplier' table. You can move, or remove it, as needed. Me.SupplierTableAdapter.Fill(Me.New_galaxy1DataSet.supplier) End Sub Private Sub btnexit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnexit.Click Me.Close() End Sub Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged Dim str As String str = TextBox1.Text Dim temp As DataSet = New DataSet() conn = New SqlConnection(connstring) da = New SqlDataAdapter("select * from supplier where suppname like'" + str + "%'", conn) da.Fill(temp, "supplier") DataGridView1.DataSource = temp.Tables("supplier") End Sub Private Sub DataGridView1_CellContentClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles DataGridView1.CellContentClick 'frmeditcust.Show() 'Edit_Customer() Edit_Customer.Show() End Sub Private Sub btnrestore_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnrestore.Click Me.SupplierTableAdapter.Fill(Me.New_galaxy1DataSet.supplier) Dim temp As DataSet = New DataSet() conn = New SqlConnection(connstring) da = New SqlDataAdapter("select * from supplier", conn) da.Fill(temp, "supplier") DataGridView1.DataSource = temp.Tables("supplier")
Page | 73

End Sub End Class
EDIT SUPPLIER
Imports System.Data Imports System.Data.SqlClient Public Class frmeditsupp Dim conn As SqlConnection 'Dim connection2 As OleDbConnection Public connstring As String = "Data Source=localhost;Initial Catalog= new galaxy1;Integrated Security=True " Public ds As DataSet Public da As New SqlDataAdapter Dim mydataview As DataView 'adding new concept of bindingsource Dim mybindingsource As BindingSource Private Sub btnexit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnexit.Click Me.Dispose() End Sub Private Sub frmeditsupp_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load conn = New SqlConnection(connstring) ds = New DataSet() da.SelectCommand = New SqlCommand("select * from supplier", conn) Dim mycommand As SqlCommandBuilder = New SqlCommandBuilder(da) da.Fill(ds, "supplier") 'binding source object creation mybindingsource = New BindingSource() mybindingsource.DataMember = "supplier" mybindingsource.DataSource = ds 'Binding the form fields to the mydataset object txtsuppname.DataBindings.Add("text", ds.Tables("supplier"), "suppname") txtsuppphno.DataBindings.Add("text", ds.Tables("supplier"), "suppphno") txtsuppemailid.DataBindings.Add("text", ds.Tables("supplier"), "suppemailid") txtsuppaddr.DataBindings.Add("text", ds.Tables("supplier"), "suppaddr") custedit_datagrid.DataSource = ds custedit_datagrid.DataMember = "supplier" End Sub
Page | 74

Private Sub txtsuppedit_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtsuppedit.TextChanged Dim temp As DataSet = New DataSet() conn = New SqlConnection(connstring) Dim str As String str = txtsuppedit.Text da = New SqlDataAdapter("select * from supplier where suppname like'" + str + "%'", conn) da.Fill(temp, "supplier") custedit_datagrid.DataSource = temp.Tables("supplier") End Sub Private Sub btnupdate_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnupdate.Click If Not btnupdate.Text = "Save" Then btnupdate.Text = "Save" ' btnupdate.Enabled = False 'btnupdate.Enabled = False Else Dim currentposition As Integer = Me.BindingContext(ds.Tables("supplier")).Position ds.Tables("supplier").Rows(currentposition).BeginEdit() ds.Tables("supplier").Rows(currentposition).Item("suppname") = txtsuppname.Text ds.Tables("supplier").Rows(currentposition).Item("suppaddr") = txtsuppaddr.Text ds.Tables("supplier").Rows(currentposition).Item("suppphno") = txtsuppphno.Text ds.Tables("supplier").Rows(currentposition).Item("suppemailid") = txtsuppemailid.Text ds.Tables("supplier").Rows(currentposition).EndEdit() Dim mycommand As SqlCommandBuilder = New SqlCommandBuilder(da) da.Update(ds, "supplier") ds.Clear() da.Fill(ds, "supplier") btnupdate.Text = "Update" btndel.Enabled = True btnclear.Enabled = True ' disabletext() End If End Sub Private Sub btndel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btndel.Click Try If MsgBox("Are you sure", MsgBoxStyle.YesNo, "Delete supplier detail") = MsgBoxResult.Yes Then ds.Tables("supplier").Rows(Me.BindingContext(ds.Tables("supplier")).Po sition).Delete()
Page | 75

da.Update(ds, "supplier") End If Catch ex As Exception MsgBox(ex.ToString) End Try End Sub Private Sub custedit_datagrid_CellMouseClick(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewCellMouseEventArgs) Handles custedit_datagrid.CellMouseClick Me.txtsuppname.Text = custedit_datagrid.CurrentRow.Cells("suppname").Value Me.txtsuppaddr.Text = custedit_datagrid.CurrentRow.Cells("suppaddr").Value Me.txtsuppphno.Text = custedit_datagrid.CurrentRow.Cells("suppphno").Value Me.txtsuppemailid.Text = custedit_datagrid.CurrentRow.Cells("suppemailid").Value End Sub End Class
Page | 76
NEW PRODUCT
Imports System.Data Imports System.Data.SqlClient Imports System.Data.SqlClient.SqlCommand Public Class frmNewProduct Dim connstring As String = "Data Source=localhost;Initial Catalog= new galaxy1;Integrated Security=True " Dim conn As New SqlConnection(connstring) Dim da As SqlDataAdapter Dim cmdInsert, cmdInsert1, cmdinsert2 As SqlCommand Dim cmdupdate As SqlCommand Dim total As Decimal Private Sub btnexit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnexit.Click Me.Close() End Sub Private Sub btnok_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnok.Click Dim blnFlag As Boolean = False If txtprodname.Text = "" Then txtprodname.Focus() blnFlag = False ElseIf txtproddesc.Text = "" Then txtproddesc.Focus() blnFlag = False ElseIf txtprodrate.Text = "" Then txtprodrate.Focus() blnFlag = False ElseIf txtprodqty.Text = "" Then txtprodrate.Focus() blnFlag = False ElseIf txtrecvddate.Text = "" Then txtrecvddate.Focus() blnFlag = False ElseIf txttot.Text = "" Then txttot.Focus() blnFlag = False Else blnFlag = True End If If blnFlag Then
Page | 77

Try cmdInsert = New SqlCommand() cmdInsert1 = New SqlCommand() conn = New SqlConnection(connstring) cmdInsert.Connection = conn cmdInsert.CommandText = "INSERT INTO product(prodname,proddesc,prodcost,prod_qty,recvd_date,TOTAL,suppname) VALUES ('" & txtprodname.Text & "','" & txtproddesc.Text & "', '" & txtprodrate.Text & "','" & txtprodqty.Text & "','" & txtrecvddate.Text & "','" & Val(total) & "','" & cmbsuppname.Text & "') select pid = scope_identity()" conn.Open() Dim da1 As SqlDataAdapter da1 = New SqlDataAdapter(cmdInsert) Dim temp As New DataSet() da1.Fill(temp) Dim abc As String = temp.Tables(0).Rows(0)(0).ToString() Dim id As Integer id = Val(abc) cmdinsert2 = New SqlCommand() cmdinsert2.Connection = conn cmdinsert2.CommandText = " INSERT INTO stock( prod_id, prodname, stck_total_qty, rate, recvddate, prodtotal,supp_name) SELECT " & id & ", p.prodname, p.prod_qty, p.prodcost, p.recvd_date, p.TOTAL,p.suppname FROM product p where p.pid = " & id cmdinsert2.ExecuteNonQuery() conn.Close() MessageBox.Show("Data has been successfully added") conn.Close() 'MsgBox("Records Entered Successfully") Catch ex As Exception MessageBox.Show(ex.ToString()) End Try Else MessageBox.Show("Please Check the Input") End If End Sub Private Sub txtprodqty_Leave1(ByVal sender As Object, ByVal e As System.EventArgs) Handles txtprodqty.Leave Dim tot As Decimal tot = Val(txtprodrate.Text) * Val(txtprodqty.Text) total = Val(tot) txttot.Text = tot.ToString() End Sub End Class
Page | 78
Private Sub frmNewProduct_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load txtprodname.Focus() txtrecvddate.Text = FormatDateTime(Now, DateFormat.ShortDate) Dim dr As SqlDataReader Dim mycommand As SqlCommand conn.Open() mycommand = New SqlCommand("select * from supplier", conn) dr = mycommand.ExecuteReader() While dr.Read() cmbsuppname.Items.Add(dr("suppname").ToString()) End While End Sub
Private Sub btnclear_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnclear.Click txtprodname.Text = "" txtproddesc.Text = "" txtprodrate.Text = "" txtprodqty.Text = "" txttot.Text = "" cmbsuppname.Text = "" 'DateTimePicker1.Text = "" End Sub
PRODUCT SEARCH
Page | 79
Imports System.Data Imports System.Data.SqlClient Public Class prodsearch Dim conn As SqlConnection 'Dim connection2 As OleDbConnection Public connstring As String = "Data Source=localhost;Initial Catalog= new galaxy1;Integrated Security=True " Public ds As DataSet Public da As New SqlDataAdapter Dim mydataview As DataView 'adding new concept of bindingsource Dim mybindingsource As BindingSource Private Sub prodsearch_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load conn = New SqlConnection(connstring) ds = New DataSet() da.SelectCommand = New SqlCommand("select * from product", conn) Dim mycommand As SqlCommandBuilder = New SqlCommandBuilder(da) da.Fill(ds, "product") 'binding source object creation mybindingsource = New BindingSource() mybindingsource.DataMember = "product" mybindingsource.DataSource = ds proddatagridview.DataSource = ds proddatagridview.DataMember = "product" End Sub Private Sub TextBox2_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox2.TextChanged Dim temp As DataSet = New DataSet() conn = New SqlConnection(connstring) Dim str As String str = TextBox2.Text da = New SqlDataAdapter("select * from product where prodname like'" + str + "%'", conn) da.Fill(temp, "product") proddatagridview.DataSource = temp.Tables("product") End Sub Private Sub btnexit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnexit.Click Me.Dispose() End Sub End Class
PURCHASE DETAILS
Page | 80
Imports System.Data Imports System.Data.SqlClient Imports System.Data.SqlClient.SqlCommand Public Class frmpurchase Dim connstring As String = "Data Source=localhost;Initial Catalog= new galaxy1;Integrated Security=True " Dim conn As New SqlConnection(connstring) Dim da As SqlDataAdapter Dim cmdInsert, cmdinsert1 As SqlCommand Dim total As Decimal Dim qty As Decimal Dim pname As String Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnexit.Click Me.Dispose() End Sub Private Sub btnsave_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnsave.Click qty = Val(txtprodqty.Text) pname = cmbprodname.Text Dim blnFlag As Boolean = False If cmbprodname.Text = "" Then cmbprodname.Focus() blnFlag = False ElseIf cmbsuppname.Text = "" Then cmbsuppname.Focus() blnFlag = False ElseIf txtpurdate.Text = "" Then txtpurdate.Focus() blnFlag = False ElseIf txtprodqty.Text = "" Then txtprodqty.Focus() blnFlag = False ElseIf txtprodcost.Text = "" Then txtprodcost.Focus() blnFlag = False ElseIf txtprodtot.Text = "" Then txtprodtot.Focus() blnFlag = False Else blnFlag = True End If If blnFlag Then Try cmdInsert = New SqlCommand() conn = New SqlConnection(connstring) cmdInsert.Connection = conn
Page | 81

cmdInsert.CommandText = "INSERT INTO purchase (prod_name,supp_name,qty,pur_date,prod_cost,pur_tot_amt) VALUES ('" & cmbprodname.Text & "','" & cmbsuppname.Text & "', '" & txtprodqty.Text & "','" & txtpurdate.Text & "','" & txtprodcost.Text & "','" & txtprodtot.Text & "') select purid = scope_identity()" conn.Open() Dim da1 As SqlDataAdapter da1 = New SqlDataAdapter(cmdInsert) Dim temp As New DataSet() da1.Fill(temp) Dim abc As String = temp.Tables(0).Rows(0)(0).ToString() Dim id As Integer id = Val(abc) cmdinsert1 = New SqlCommand() cmdinsert1.Connection = conn cmdinsert1.CommandText = " update stock set stck_total_qty = stck_total_qty + " & qty & " where prodname = '" & pname & "'" 'MessageBox.Show("data entered") cmdinsert1.ExecuteNonQuery() MessageBox.Show("Update") conn.Close() MsgBox("Records Entered Successfully with update") btnsave.Enabled = False Catch ex As Exception MessageBox.Show(ex.ToString()) End Try Else MessageBox.Show("Please Check the Input") End If btnsave.Enabled = True End Sub Private Sub btnclear_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnclear.Click cmbprodname.Text = "" cmbsuppname.Text = "" txtprodqty.Text = "" txtprodcost.Text = "" txtprodtot.Text = "" btnsave.Enabled = True End Sub
Page | 82

Private Sub frmpurchase_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load cmbprodname.Focus() txtpurdate.Text = FormatDateTime(Now, DateFormat.ShortDate) Dim dr As SqlDataReader Dim mycommand As SqlCommand conn.Open() mycommand = New SqlCommand("select * from product", conn) dr = mycommand.ExecuteReader() While dr.Read() cmbprodname.Items.Add(dr("prodname").ToString()) End While conn.Close() Dim dr1 As SqlDataReader Dim mycommand1 As SqlCommand conn.Open() mycommand1 = New SqlCommand("select * from supplier", conn) dr1 = mycommand1.ExecuteReader() While dr1.Read() cmbsuppname.Items.Add(dr1("suppname").ToString()) End While End Sub Private Sub txtprodcost_Leave(ByVal sender As Object, ByVal e As System.EventArgs) Handles txtprodcost.Leave Dim tot As Decimal tot = Val(txtprodcost.Text) * Val(txtprodqty.Text) total = Val(tot) txtprodtot.Text = tot.ToString() End Sub End Class
SALES DETAILS
Page | 83

Imports System.Data Imports System.Data.SqlClient Imports System.Data.SqlClient.SqlCommand Imports System.Data.SqlClient.SqlDataReader Public Class frmsales Dim connstring As String = "Data Source=localhost;Initial Catalog= new galaxy1;Integrated Security=True " 'Dim connstring As String = "Data Source=SATAM;Initial Catalog=new galaxy1;User ID=sa" Dim conn As New SqlConnection(connstring) Dim da As SqlDataAdapter Dim cmdInsert, cmdinsert1 As SqlCommand Dim total As Decimal Dim qty As Decimal Dim pname As String Private Sub btnsave_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnsave.Click qty = Val(txtprodqty.Text) Dim blnFlag As Boolean = False If cmbproductname.Text = "" Then cmbproductname.Focus() blnFlag = False ElseIf cmbcustname.Text = "" Then cmbcustname.Focus() blnFlag = False ElseIf txtsaledate.Text = "" Then txtsaledate.Focus() blnFlag = False ElseIf txtprodqty.Text = "" Then txtprodqty.Focus() blnFlag = False ElseIf txtprodcost.Text = "" Then txtprodcost.Focus() blnFlag = False ElseIf txtprodtot.Text = "" Then txtprodtot.Focus() blnFlag = False Else blnFlag = True End If If blnFlag Then Try cmdInsert = New SqlCommand() conn = New SqlConnection(connstring) cmdInsert.Connection = conn
Page | 84

cmdInsert.CommandText = "INSERT INTO sales (prodname, custname, qty, dlvry_date, prod_cost, sales_total) VALUES ('" & cmbproductname.Text & "','" & cmbcustname.Text & "', " & Val(txtprodqty.Text) & ",'" & txtsaledate.Text & "','" & txtprodcost.Text & "','" & txtprodtot.Text & "' ); select salesid = scope_identity()" conn.Open() Dim da1 As SqlDataAdapter da1 = New SqlDataAdapter(cmdInsert) Dim temp As New DataSet() da1.Fill(temp) Dim abc As String = temp.Tables(0).Rows(0)(0).ToString() Dim id As Integer id = Val(abc) cmdinsert1 = New SqlCommand() cmdinsert1.Connection = conn cmdinsert1.CommandText = " update stock set stck_in_hand = stck_in_hand - " & Val(txtprodqty.Text) & " where prodname = '" & cmbproductname.Text & "'" cmdinsert1.ExecuteNonQuery() MessageBox.Show("Update") conn.Close() MsgBox("Records Entered Successfully with update") btnsave.Enabled = False Catch ex As Exception MessageBox.Show(ex.ToString()) End Try Else MessageBox.Show("Please Check the Input") End If btnsave.Enabled = True End Sub Private Sub btnclear_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnclear.Click cmbproductname.Text = "" cmbcustname.Text = "" txtprodqty.Text = "" txtprodcost.Text = "" txtprodtot.Text = "" btnsave.Enabled = True End Sub
Private Sub frmsales_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load cmbproductname.Focus()
Page | 85

txtsaledate.Text = FormatDateTime(Now, DateFormat.ShortDate) Dim dr As SqlDataReader Dim mycommand As SqlCommand conn.Open() mycommand = New SqlCommand("select * from product", conn) dr = mycommand.ExecuteReader() While dr.Read() cmbproductname.Items.Add(dr("prodname").ToString()) End While conn.Close() Dim dr1 As SqlDataReader Dim mycommand1 As SqlCommand conn.Open() mycommand1 = New SqlCommand("select * from customer", conn) dr1 = mycommand1.ExecuteReader() While dr1.Read() cmbcustname.Items.Add(dr1("custname").ToString()) End While End Sub
Private Sub txtprodcost_Leave(ByVal sender As Object, ByVal e As System.EventArgs) Handles txtprodcost.Leave Dim tot As Decimal tot = Val(txtprodcost.Text) * Val(txtprodqty.Text) total = Val(tot) txtprodtot.Text = tot.ToString() End Sub End Class
NEW BILL
Imports System.Data Imports System.Data.SqlClient Imports System.Data.SqlClient.SqlCommand
Page | 86

Public Class frmnewbill Dim connstring As String = "Data Source=localhost;Initial Catalog= new galaxy1;Integrated Security=True " Dim conn As New SqlConnection Dim da As SqlDataAdapter Dim cmdInsert As SqlCommand Dim cmdupdate As SqlCommand Private Sub btnexit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnexit.Click Me.Dispose() End Sub Private Sub btnprint_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnprint.Click CrystalReportViewer1.PrintReport() End Sub Private Sub btnsave_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnsave.Click Dim x As ListViewItem Dim Prod, Rate, Qty, Total As String x = ListView1.Items.Add(cboProductName.Text) x.SubItems.Add(txtRate.Text) x.SubItems.Add(txtQuantity.Text) x.SubItems.Add(txtTotal.Text) For Each x In ListView1.Items cmdInsert = New SqlCommand() conn = New SqlConnection(connstring) cmdInsert.Connection = conn Prod = x.ToString() Rate = x.SubItems.Item(1).ToString() Qty = x.SubItems.Item(2).ToString() Total = x.SubItems.Item(3).ToString() cmdInsert.CommandText = "INSERT INTO TempBill VALUES ('" & Prod & "','" & Val(Rate) & "', '" & Val(Qty) & "','" & Val(Total) & "')" conn.Open() cmdInsert.ExecuteNonQuery() conn.Close() MsgBox("Records Entered Successfully") x.ListView.Show() Next CrystalReportViewer1_Load(sender, e) End Sub Private Sub CrystalReportViewer1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CrystalReportViewer1.Load Dim cmd As New SqlCommand()
Page | 87

Dim conn As New SqlConnection("Data Source=localhost;Initial Catalog=new galaxy1;Integrated Security=True") Dim temp As New DataSet() Dim rpt As New Bill() cmd.CommandText = "Select * from TempBill" cmd.Connection = conn Dim da As New SqlDataAdapter(cmd) da.Fill(temp, "Tempbill") rpt.SetDataSource(temp) CrystalReportViewer1.ReportSource = rpt End Sub Private Sub frmnewbill_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load cboProductName.Focus() 'txtsaledate.Text = FormatDateTime(Now, DateFormat.ShortDate) Dim dr As SqlDataReader Dim mycommand As SqlCommand conn = New SqlConnection(connstring) conn.Open() mycommand = New SqlCommand("select * from product", conn) dr = mycommand.ExecuteReader() While dr.Read() cboProductName.Items.Add(dr("prodname").ToString()) End While conn.Close() End Sub Private Sub txtQuantity_Leave(ByVal sender As Object, ByVal e As System.EventArgs) Handles txtQuantity.Leave Dim tot As Decimal Dim total As Decimal tot = Val(txtRate.Text) * Val(txtQuantity.Text) total = Val(tot) txtTotal.Text = tot.ToString() End Sub End Class
BILL SEARCH BY BILL NO

Page | 88
Imports System.Data Imports System.Data.SqlClient Public Class frmbillsearchno Dim connstring As String = "Data Source=localhost;Initial Catalog= new galaxy1;Integrated Security=True " Dim conn As SqlConnection Dim da As SqlDataAdapter 'Dim num As Integer = ComboBox1.SelectedItem Private Sub frmbillsearch_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load 'TODO: This line of code loads data into the 'New_galaxy1DataSet.bill' table. You can move, or remove it, as needed. Me.BillTableAdapter.Fill(Me.New_galaxy1DataSet.bill) 'TODO: This line of code loads data into the 'New_galaxy1DataSet.supplier' table. You can move, or remove it, as needed. End Sub Private Sub txtbillnosearch_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtbillnosearch.TextChanged Dim temp As DataSet = New DataSet() conn = New SqlConnection(connstring) da = New SqlDataAdapter("select * from bill where bill_no like'%" & txtbillnosearch.Text & "%'", conn) da.Fill(temp, "bill") DataGridView1.DataSource = temp.Tables("bill") End Sub Private Sub btnrestore_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnrestore.Click Me.BillTableAdapter.Fill(Me.New_galaxy1DataSet.bill) Dim temp As DataSet = New DataSet() conn = New SqlConnection(connstring) da = New SqlDataAdapter("select * from bill", conn) da.Fill(temp, "bill") DataGridView1.DataSource = temp.Tables("bill") End Sub Private Sub btn_exit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_exit.Click Me.Dispose() End Sub End Class
BY BILL DATE
Imports System.Data Imports System.Data.SqlClient
BILL SEARCH
Page | 89

Public Class billsearchdate Dim connstring As String = "Data Source=localhost;Initial Catalog= new galaxy1;Integrated Security=True " Dim conn As SqlConnection Dim da As SqlDataAdapter Private Sub billsearchdate_Activated(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Activated DateTimePicker1.Focus() End Sub Private Sub billsearchdate_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load 'TODO: This line of code loads data into the 'New_galaxy1DataSet.bill' table. You can move, or remove it, as needed. Me.BillTableAdapter.Fill(Me.New_galaxy1DataSet.bill) End Sub Private Sub btnexit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnexit.Click Me.Dispose() End Sub Private Sub DateTimePicker1_ValueChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DateTimePicker1.ValueChanged Dim str As String str = DateTimePicker1.Text Dim temp As DataSet = New DataSet() conn = New SqlConnection(connstring) da = New SqlDataAdapter("select * from bill where bill_date like'" + str + "%'", conn) da.Fill(temp, "bill") DataGridView1.DataSource = temp.Tables("bill") End Sub Private Sub btnrestore_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnrestore.Click Me.BillTableAdapter.Fill(Me.New_galaxy1DataSet.bill) Dim temp As DataSet = New DataSet() conn = New SqlConnection(connstring) da = New SqlDataAdapter("select * from bill", conn) da.Fill(temp, "bill") DataGridView1.DataSource = temp.Tables("bill") End Sub End Class
STOCK REPORT
Imports System.Data.SqlClient Public Class frmstockreport Dim rpt As New stockReport() Dim cmd, cmd1, cmd2 As New SqlCommand()
Page | 90

Dim conn As New SqlConnection("Data Source=localhost;Initial Catalog=new galaxy1;Integrated Security=True") Dim temp, temp1, temp2 As New DataSet() Private Sub frmstockreport_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load cmd.CommandText = "Select * from stock " cmd.Connection = conn Dim da1 As New SqlDataAdapter(cmd) da1.Fill(temp, "stock") rpt.SetDataSource(temp) CrystalReportViewer1.ReportSource = rpt End Sub Private Sub btnshowrpt_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnshowrpt.Click Dim str As String Dim str1 As String str = DateTimePicker1.Value.ToString str1 = DateTimePicker2.Value.ToString cmd1.CommandText = "select * from stock where recvddate between'" + str + "' and '" + str1 + "'" cmd1.Connection = conn Dim da As New SqlDataAdapter(cmd1) da.Fill(temp1, "stock") rpt.SetDataSource(temp1) CrystalReportViewer1.ReportSource = rpt End Sub Private Sub btnreload_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnreload.Click cmd2.CommandText = "Select * from stock " cmd2.Connection = conn Dim da2 As New SqlDataAdapter(cmd2) da2.Fill(temp2, "stock") rpt.SetDataSource(temp2) CrystalReportViewer1.ReportSource = rpt End Sub Private Sub btnexit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnexit.Click Me.Dispose() End Sub End Class
BILL REPORT
Imports System.Data.SqlClient Public Class frmBillReport Dim cmd, cmd1 As New SqlCommand()
Page | 91

Dim conn As New SqlConnection("Data Source=localhost;Initial Catalog=new galaxy1;Integrated Security=True") Dim temp, temp1 As New DataSet() Dim rpt As New BillReport() Private Sub frmBillReport_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load 'Dim cmd As New SqlCommand() 'Dim conn As New SqlConnection("Data Source=localhost;Initial Catalog=new galaxy1;Integrated Security=True") 'Dim temp As New DataSet() cmd.CommandText = "Select * from bill" cmd.Connection = conn Dim da As New SqlDataAdapter(cmd) da.Fill(temp, "bill") rpt.SetDataSource(temp) CrystalReportViewer1.ReportSource = rpt End Sub Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click cmd1.CommandText = "Select * from bill where bill_date = '" & DateTimePicker1.Text & "'" cmd1.Connection = conn Dim da1 As New SqlDataAdapter(cmd1) da1.Fill(temp, "bill") rpt.SetDataSource(temp1) CrystalReportViewer1.ReportSource = rpt 'MessageBox.Show(DateTimePicker1.Value & " End Sub End Class " & DateTimePicker1.Text)
Page | 92
IMPLEMENTATIO N TOOLS
IMPLEMENTATION TOOLS
Page | 93
FRONT-END: Visual Basic .NET

Visual Basic .NET provides the easiest, most productive language and tool for rapidly building Windows and Web applications . Visual Basic .NET comes with enhanced visual designers, increased application performance, and a powerful integrated development environment (IDE). It also supports creation of applications for wireless, Internet-enabled hand-held devices. The following are the features of Visual Basic .NET with .NET Framework 1.0 and Visual Basic .NET 2003 with .NET Framework 1.1
Powerful Windows-based Applications

Visual Basic .NET comes with features such as a powerful new forms designer, an in-place menu editor, and automatic control anchoring and docking. Visual Basic .NET delivers new productivity features for building more robust applications easily and quickly. With an improved integrated development environment (IDE) and a significantly reduced startup time, Visual Basic .NET offers fast, automatic formatting of code as you type, improved IntelliSense, an enhanced object browser and XML designer, and much more.
Simplified Deployment
With Visual Basic .NET we can build applications more rapidly and deploy and maintain them with efficiency. Visual Basic .NET 2003 and .NET Framework 1.1 makes "DLL Hell" a thing of the past. Side-by-side versioning enables multiple versions of the same component to live safely on the same machine so that applications can use a specific version of a component.
XCOPY-deployment and Web auto-download of Windows-based applications combine the simplicity of Web page deployment and maintenance with the power of rich, responsive Windows-based applications.
Page | 94
Business Process Management Powerful, Flexible, Simplified Data Access You can tackle any data access scenario easily with ADO.NET and ADO data access. The flexibility of ADO.NET enables data binding to any database, as well as classes, collections, and arrays, and provides true XML representation of data. Seamless access to ADO enables simple data access for connected data binding scenarios. Using ADO.NET, Visual Basic .NET can gain high-speed access to MS SQL Server, Oracle, DB2, Microsoft Access, and more.
Improved Coding
You can code faster and more effectively. A multitude of enhancements to the code editor, including enhanced IntelliSense, smart listing of code for greater readability and a background compiler for real-time notification of syntax errors transforms into a rapid application development (RAD) coding machine.
Direct Access to the Platform

Visual Basic developers can have full access to the capabilities available in .NET Framework 1.1. Developers can easily program system services including the event log, performance counters and file system. The new Windows Service project template enables to build real Microsoft Windows NT Services. Programming against Windows Services and creating new Windows Services is not available in Visual Basic .NET Standard, it requires Visual Studio 2003 Professional, or higher.
Full Object-Oriented Constructs

You can create reusable, enterprise-class code using full object-oriented constructs. Language features include full implementation inheritance, encapsulation, and polymorphism. Structured exception handling provides a global error handler and eliminates spaghetti code.
BACK-END: MICROSOFT SQL Server 2000:

Page | 95
Business Process Management Microsoft SQL Server 2000 is a full-featured relational database management system (RDBMS) that offers a variety of administrative tools to ease the burdens of database development, maintenance and administration. In this article, we'll cover six of the more frequently used tools: Enterprise Manager, Query Analyzer, SQL Profiler, Service Manager, Data Transformation Services and Books Online. Let's take a brief look at each:
Enterprise Manager
It is the main administrative console for SQL Server installations. It provides you with a graphical "birds-eye" view of all of the SQL Server installations on your network. You can perform high-level administrative functions that affect one or more servers, schedule common maintenance tasks or create and modify the structure of individual databases.
Query Analyzer
It offers a quick and dirty method for performing queries against any of your SQL Server databases. It's a great way to quickly pull information out of a database in response to a user request, test queries before implementing them in other applications, create/modify stored procedures and execute administrative tasks.
SQL Profiler
It provides a window into the inner workings of your database. You can monitor many different event types and observe database performance in real time. SQL Profiler allows you to capture and replay system "traces" that log various activities. It's a great tool for optimizing databases with performance issues or troubleshooting particular problems.
Service Manager
Page | 96
Business Process Management It is used to control the MSSQLServer (the main SQL Server process), MSDTC (Microsoft Distributed Transaction Coordinator) and SQLServerAgent processes. An icon for this service normally resides in the system tray of machines running SQL Server. You can use Service Manager to start, stop or pause any one of these services.
Data Transformation Services (DTS)

It provides an extremely flexible method for importing and exporting data between a Microsoft SQL Server installation and a large variety of other formats. The most commonly used DTS application is the "Import and Export Data" wizard found in the SQL Server program group.
Books Online
It is an often overlooked resource provided with SQL Server that contains answers to a variety of administrative, development and installation issues. It's a great resource to consult before turning to the Internet or technical support.
Page | 97
SYSTEM REQUIREMENT S
SYSTEM REQUIRMENTS
Page | 98
H/W Requirements:
1. 2GB HDD. 2. 64 MB RAM (Min.)

3.
Processor Type P-IV or above.
4. Printer. 5. Lan (Local Area Network)

S/W Requirements:
1. 2. 3.
OS: Windows XP or Windows Vista. Visual Studio 2005 MS SQL Server.
Page | 99
DATA DICTIONARY
Page | 100
DATA DICTIONARY
Table name: Product Description: It stores the information about various products. It contains information
about the product details, such as name, description, quantity, Amount, total cost etc
Sr No. 1 2 3 4 5 6 7 8 Data name pid prod name Proddesc prod cost prod_qty recvd_date total suppname Data type int Varchar(50) Varchar(100) decimal int Description Contains the id of various products Contains the names of the products Contains the unit rate of the product Contains the location of the project Contains the quantity of product purchased Date Time Contains the date of purchasing the project Decimal(18,2) Contains the total cost of the product Varchar(50) Contains the supplier name
Table name: Login Description: It stores the information about various users of the software. It contains
information about the identity of the users, such as user name, password and role of the user.
Sr. No.
1 2 3
Data name
loginid password role
Data type
Description
varchar(30) Contains the names of various users varchar(20) Contains the password of a user Varchar(20) Contains whether a Admin or not
Page | 101
Table name: Purchase Description: It stores the information about various purchase transaction. It
contains information about the purchase details, selling price date etc.
Sr No. 1 2 3 4 5 6 7 8 9 10 Data name purid prod_id prod_name supp_name Qty Pur_date pur_tot_amt prod_cost stck_id supp_id Data type Int Description Contains the id of various purchase done Int Contains the id of the corresponding product purchased Varchar(50) Contains the name of the product Varchar(50) Contains the name of the supplier Int Contains the quantity of the product purchased Date Time Contains the date of purchasing the project Decimal(18,2) Contains the total amount of product purchased Decimal(18,2) Contains the unit cost of a product Int Contains the stock id to maintain the stock Int Contains the supplier id of the supplier associated with purchase
Page | 102
Table name: Sales Description: It stores the information about various sales transactions done
with different customers. It has details like salesid, cost quantity etc.
Sr No. 1 2 3 4 5 6 7 8 9 10 Data name salesid prod_id prod_name custname qty dlvry_date sales_total prod_cost stck_id cust_id Data type Int Int Description Contains the id of various sales done Contains the id of the corresponding product sold Varchar(50) Contains the name of the product Varchar(50) Contains the name of the customer Int Contains the quantity of the product sold Date Time Contains the date of selling the product Decimal(18,2) Contains the total amount of product sold Decimal(18,2) Contains the unit cost of a product Int Contains the stock id to maintain the stock Int Contains the customer id of the customer associated with purchase
Table name: Supplier Details Description: It stores the information about various suppliers. It contains information
about the supplier name, address, contact, email id and id.
Sr. No.
1 2 3 4 5
Data name
supp id suppname suppaddr suppphno suppemailid
Data type
Int Varchar(50) Varchar(50) Varchar Varchar(50)
Description
Contains the id of various suppliers Contains the names of the supplier Contains the address of suppliers Contains the contact of suppliers Contains the email id of suppliers
Page | 103
Table name: Customer Details Description: It stores the information about various customers. It contains
information about the customer name, address, contact, email id and id.
Sr. No. Data name Data type Description

1 2 3 4 5 cust id custname custaddr custphno custemailid Int Varchar(50) Varchar(50) Varchar Varchar(50) Contains the id of various customers Contains the names of the customers Contains the address of customers Contains the contact of customers Contains the email id of customers
Table name: Stock Description: It stores the information about stock of products.
Sr No. 1 2 3 4 5 6 7 8 9 10 Data name stckid prod_id prod_name supp_name stck_in_hand recvddate prodtotal rate stck_total_qty pur_id Data type Int Int Description Contains the id of stock Contains the id of the corresponding product in the stock Varchar(50) Contains the name of the product Varchar(50) Contains the name of the supplier Int Contains the quantity of the product in hand Date Time Contains the date of selling & buying the product Decimal(18,2) Contains the total amount of product sold Decimal(18,2) Contains the unit cost of a product Int Contains the qty of total products to maintain the stock Int Contains the purchase id
Page | 104
FUTURE ENHANCEMEN T
Page | 105
FUTURE ENHANCEMENTS
This chapter gives some of the enhancement features that can be applied to the project to make it even better, and also to remove some of the limitations that were stated earlier. It enlists the features of the project which could not be covered by us, but can surely be added to and incorporated in the project to make it more effective and useful. The project is made so that after many years to come, the database format of the project can be easily changed. Apart from using the existing database that is developed for the project the admission coordinator will be given the rights to make new databases as per the need. Following features can be added & some of the already existing features can be improved or changed accordingly to further improve the project: 1. Our project has got such flexibility that the one who is using the software can easily make the modifications if required in the future. 2. The database of the project can be extended to have more entries & more tables if required in the future. 3. As the project is fully automated & menu driven, it would require less energy and manpower to maintain large database in such situations. 4. Can be programmed to have more transparency and be used over networks. 5. Various other admission related utilities can be easily incorporated. 6. The project can be further enhanced to read information from the barcode using barcode reader.
Page | 106
CONCLUSION
Page | 107
CONCLUSION
The project Construction management has been completed the project will be implemented at server side. This project Business Process Management which contains the module to manage the various processes of a business. This application will help the client to manage his Product details, customer details, supplier details, purchase and sales transaction details etc. The initial analysis phase started with the study of the existing system, while in the later part, the envisioned project design was decided and the model to be forward for software development was decided to be incremental model. In the designing phase time-line chart was designed to illustrate the schedule, the ER diagram for the overview of the design, the DFDs showing the process interaction and data description table to be used for the designing database. In the second phase, form designing and coding work was performed, the alpha testing was carried out at server site and the beta testing was carried out at the client site. In the implementation, the flexibility has been maintained keeping in mind future enhancements and upgrades.
Page | 108
BIBLIOGRAPHY
Page | 109
BIBLIOGRAPHY
The following list shows the various websites and books that are referred in the duration of the project, and the material used in the making of this report.
BOOKS 1. Steven Holzner, Visual Basic .NET Programming BLACK BOOK (2005)
2.
Roger Pressman, Software Engineering, 5th Edition (2005).
3. Gary Cornell And Jonathan Morrison, Programming VB.NET A Guide for Experienced Programmer.
WEBSITES 1) 2) 3) 4) 5) www.vbdotnetheaven.com www.geocities.com www.itknowledge.com www.codeguru.com www.planet-source-code.com
Page | 110
Page | 111

Motivation

Uploaded by

Copyright:

Available Formats

Motivation

Uploaded by

Document Information

Original Title

Copyright

Available Formats

Share this document

Share or Embed Document

Sharing Options

Did you find this document useful?

Is this content inappropriate?

Copyright:

Available Formats

Motivation

Uploaded by

Copyright:

Available Formats

Business Process Management

INTRODUCTION & MOTIVATION

INTRODUCTION & MOTIVATION

Business Process Management

Business Process Management

Business Process Management

Business Process Management

Business Process Management

It stores Product details and Employee details in it including personal details.

Business Process Management

& PROPOSED SYSTEM

EXISTING AND PROPOSED SYSTEM

NEED OF THE APPLICATION

Business Process Management

PROJECT DEVELOPMET CYCLE

Process Model Used

A Process Model is based on following 3 things:

Diagram for Waterfall Model:

Business Process Management

Business Process Management

PROJECT DEVELOPMENT CYCLE

Business Process Management REQUEST APPROVAL: APPROVAL

DETERMINATION OF SYSTEM REQUIREMENT:

3. DESIGN OF THE SYTEM:

4. DEVELOPMENT OF THE SOFTWARE (CODING):

Business Process Management

Advantages of Computerized System

Business Process Management

Business Process Management

DATA FLOW DIAGRAM

Business Process Management

DATA FLOW DIAGRAM

Passed to 0 Business Process Management Generates

Generates 3.0 Report

Business Process Management

Level 2 of 1.0 Process: Login Information

1.1 User Name

1.2 Password Verification Access to Main S/W

Level 2 of 2.0 Process: Main Menu Information

2.2 Stock Details

2.5 New User Entry

2.3 Custome r Details

Updates 2.6 Change Password

Business Process Management

Level 3 of 2.2 Process: Supplier Detail

User Enters 2.2.1 Supplier Transaction Add

2.2.2 Supplier Detail Includes

2.2.3 Provides Supplier Info Page | 23 Transmit

Business Process Management

Level 3 of 2.3 Process: Customer Details

2.3.3 Sends Customer Info

Level 3 of 2.4 Process: Purchase Details

2.4.3 Purchase Bill Includes

Business Process Management

Level 3 of 2.5 Process: Sales Detail

2.4.3 Customer Bill Includes

Level 2 of 2.5 Process: New User Entry

2.5.1 User Name

2.5.2 Password Verification Creates New User