O vice-almirante Stockdale, um pesquisador sênior do Instituto Hoover para a Guerra, Revolução e Paz, esteve na ativa da marinha regular americana por trinta e sete anos. Como um piloto de c…Descrição completa
NFR for SRS document
PDMS 12.1 SP.2 System Requirements FOR MS WINDOWS
NFR for SRS document
Stock Counting and Stock Opname - Metode Manajemen Pelayanan Bidang Kesehatan
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 sal es details. The company return form can be used to show the detail s 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 Pentium IV Processor o o Intel Motherboard RAM (256 MB) o o HARD DISK (20GB) SOFTWARE REQUIREMENTS Rational Rose o o Microsoft VB 6.0 o MS-Access MODULES Authentication o o Stock entry o Sales Details o Order Details o 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 it’s 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. 6) NON FUNCTIONALITY SECURITY It is a source project because it contains user id and password. 7) MAINTAINABILITY Authorized user only can access it, thus it is easily maintainable. 8) AVAILABILITY It is available for all type of companies (i.e.) large scale or small scale. 9) FLEXIBILITY It is a user friendly project. More modules can be easily added, thus it is quite flexible.
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
