Tuesday, January 3, 2012

OOAD:-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.

1 comment: