STOCK MAINTENANCE SYSTEM

STOCK MAINTENANCE SYSTEM

STOCK MAINTENANCE SYSTEM

AIM

To develop the stock maintenance project. It can be used to maintain the details about a stock contained by some company.

PROJECT DESCRIPTION

Stock maintenance project mainly used to store the stock details and retrieve the data. Stock entry forms are used to update the databases. The sale form can be used to view the sales details. The company return form can be used to show the details of defective products. Item details can be used to show the current status of the stock. The exit buttons closes the forms of the project.

HARDWARE REQUIREMENTS

v Pentium IV Processor

v Intel Motherboard

v RAM(256 MB)

v HARD DISK(20GB)

SOFTWARE REQUIREMENTS

v Rational Rose

v Microsoft VB 6.0

v MS-Access

MODULES

v Authentication

v Stock entry

v Sales Details

v Order Details

v Item Details

MODULE DESCRIPTION

1. Authentication

Get the username and password validate it accordingly.

2. Stock Entry

Product purchased details are entered through this form. It can be used to enter the item code name, bought cost, company name and no. of items. The data is then stored in the database.

3. Stock Details

In this module its used to store the sales product details and also show the sales details.

4. Order Details

Order details form can be used to generate orders and view previous stored order details.

5. Item Details

Show the current details of the stock details.

NON FUNCTIONALITY

SECURITY

It is a source project because it contains user id and password.

MAINTAINABILITY

Authorized user only can access it, thus it is easily maintainable.

AVAILABILITY

It is available for all type of companies (i.e.) large scale or small scale.

FLEXIBILITY

It is a user friendly project. More modules can be easily added, thus it is quite flexible.

STOCK MAINTANANCE SYSTEM

UseCase Diagram:

Class Diagram:

Sequence Diagram:

Collaboration Diagram:

VB SOURCE CODE

Form1.frm

Private Sub Command1_Click()

If (Text1.Text = "Ramesh" And Text2.Text = "sec") Then

Unload Me

Form11.Show

Else

MsgBox "Wrong Password"

End If

End Sub

Private Sub Command2_Click()

End

End Sub

Form11.frm

Private Sub Command1_Click()

Form111.Show

Form11.Visible = False

End Sub

Private Sub Command2_Click()

Form112.Show

Form11.Visible = False

End Sub

Private Sub Command3_Click()

Form113.Show

Form11.Visible = False

End Sub

Private Sub Command4_Click()

Form2.Show

Form11.Visible = False

End Sub

Private Sub Command5_Click()

Form8.Show

Form2.Visible = False

End Sub

Form111.frm

Private Sub Command1_Click()

MsgBox ("ADD DATA")

Data1.Recordset.MoveLast

Data1.Recordset.AddNew

Data1.Recordset.Fields(0) = Form111.Text1.Text

Data1.Recordset.Fields(1) = Form111.Text2.Text

Data1.Recordset.Fields(2) = Form111.Text3.Text

Data1.Recordset.Fields(3) = Form111.Text4.Text

Data1.Recordset.Fields(4) = Form111.Text5.Text

Data1.Recordset.Update

End Sub

Private Sub Command2_Click()

Data1.Recordset.Delete

Data1.Recordset.MoveNext

MsgBox ("DATA DELETED")

End Sub

Private Sub Command3_Click()

Data1.Refresh

End Sub

Private Sub Command4_Click()

Data1.UpdateRecord

Data1.Recordset.Bookmark = Data1.Recordset.LastModified

MsgBox ("DATA UPDATE")

End Sub

Private Sub Command5_Click()

Form11.Show

Form111.Hide

End Sub

Form112.frm

Private Sub Command1_Click()

MsgBox ("ADD DATA")

Data1.Recordset.AddNew

Data1.Recordset.Fields(0) = Form112.Text1.Text

Data1.Recordset.Fields(1) = Form112.Text2.Text

Data1.Recordset.Fields(2) = Form112.Text3.Text

Data1.Recordset.Fields(3) = Form112.Text4.Text

Data1.Recordset.Fields(4) = Form112.Text5.Text

Data1.Recordset.Update

End Sub

Private Sub Command2_Click()

Form11.Show

Me.Hide

End Sub

Private Sub Command3_Click()

Form112.Text1.Text = ""

Form112.Text2.Text = ""

Form112.Text3.Text = ""

Form112.Text4.Text = ""

Form112.Text5.Text = ""

End Sub

Form113.frm

Private Sub Command2_Click()

Data1.Recordset.Delete

Data1.Recordset.MoveNext

MsgBox ("DATA DELETED")

End Sub

Private Sub Command3_Click()

Data1.Refresh

End Sub

Private Sub Command4_Click()

Data1.UpdateRecord

Data1.Recordset.Bookmark = Data1.Recordset.LastModified

MsgBox ("DATA UPDATED")

End Sub

Private Sub Command5_Click()

Form2.Show

Form1.Text1 = " "

Form1.Text2 = " "

End Sub

Private Sub Command6_Click()

MsgBox ("ADD DATA")

Data1.Recordset.AddNew

Data1.Recordset.Fields(0) = Form113.Text1.Text

Data1.Recordset.Fields(1) = Form113.Text2.Text

Data1.Recordset.Fields(2) = Form113.Text3.Text

Data1.Recordset.Fields(3) = Form113.Text4.Text

Data1.Recordset.Fields(4) = Form113.Text5.Text

Data1.Recordset.Fields(5) = Form113.Text6.Text

Data1.Recordset.Fields(6) = Form113.Text7.Text

Data1.Recordset.Update

End Sub

Form2.frm

Private Sub Command1_Click()

Form21.Show

Form11.Hide

End Sub

Private Sub Command2_Click()

Form22.Show

Form11.Hide

End Sub

Private Sub Command3_Click()

Form11.Show

Form22.Hide

End Sub

Form21.frm

Private Sub Command1_Click()

Data1.Recordset.MoveLast

Data1.Recordset.AddNew

Data1.Recordset.Fields(0) = Text1.Text

Data1.Recordset.Fields(1) = Text2.Text

Data1.Recordset.Fields(2) = Text3.Text

Data1.Recordset.Fields(3) = Text4.Text

Data1.Recordset.Fields(4) = Text5.Text

Data1.Recordset.Update

Data1.Recordset.MoveNext

MsgBox "ordered"

End Sub

Private Sub Command2_Click()

Form2.Show

Form21.Hide

End Sub

Form22.frm

Private Sub Command2_Click()

Form2.Show

Form22.Hide

End Sub

OUTPUT FORM

Login Form : (Form1.frm)

Choice : (Form11.frm)

Items : (Form111.frm)

Ordered Items : (Form112.frm)

Order Items : (Form21.frm)

Ordered Delivery System : (Form2.frm)

Results:

Thus Stock maintenance project was successfully completed.