• Join over 1.2 million students every month
  • Accelerate your learning by 29%
  • Unlimited access from just £6.99 per month

Spare Parts Database Project

Extracts from this document...

Introduction

SECTION 1 ANALYSIS 1.1 INTRODUCTION The company that I have chosen to computerize deals with motor vehicles spare parts and belongs to Mr. Wong. The Wong Spare Parts and Car Selling Agency was founded in year 2000. It is situated in the south of the island, more precisely, at Mahebourg. Infact it is specialized in almost all spare parts of different types of vehicles, especially buses, lorries and cars, which come from Japan and South Africa. Mr. Wong was facing many problems since five years, as he was operating an old fashion business. He had to do everything manually, that is, he has to record individually all the stock and place it in a file, which took him hours to do. When he received his goods, he had to update all the new stock. Moreover he had to record all his income and expenses himself. At the end of the month, he had to search for every ledger to make the monthly reports. Sometimes, he also faced problems with the security of files and other important documents. Furthermore he had to spend hours in searching for a specific account or consignment. Mr. Wong has to note down stock details in files and books. When a client orders a product, Mr. Wong must go back to the store to see whether the product is still available or not. And in the meantime, other clients who are in a hurry leave the store to go elsewhere. Whenever goods are received, he has to search for the specific documents for updating. Sometimes some documents are misplaced and it becomes very difficult to retrace them. He has a lot to do such as to count all the spare parts, stock one by one and make necessary records in his book. Mr. Wong wanted such a system in which he can record all stock available and stock sold. ...read more.

Middle

Add all records except 'Home Tel Number' and click on 'Save' A message box must appear saying 'Missing Home Tel Number' OK 12 Click on 'Add' command button. Add all records except 'Mobile Tel Number' and click on 'Save' A message box must appear saying 'Missing Mobile Tel Number' OK 13 Click on 'Add' command button. Add all records except 'ID Card Number' and click on 'Save' A message box must appear saying 'Missing ID Card Number' OK Module: Item File TEST NO. TEST EXPECTED RESULT REMARKS 1 Click on 'Add' command button. Must be able to add a record. OK 2 Click on 'Save' command button A message box must appear saying 'Record has been saved' OK 3 Click on 'Find' combo box. Must be able to find a record. OK 4 Click on 'Find' combo box. Find a record and click on 'Edit' command button, edit the record and click on 'Save' A message box must appear saying 'Record has been saved' OK 5 Click on 'Find' combo box. Find a record and click on 'Delete' command button. Must be able to delete a record. OK 6 Click on 'Back to Main Menu' command button. Main Menu must appear on the screen. OK 7 Click on 'Add' command button. Add all records except 'Item code' and click on 'Save' A message box must appear saying 'Missing Item Code' OK 8 Click on 'Add' command button. Add all records except 'Make' and click on 'Save' A message box must appear saying 'Missing Make' OK 9 Click on 'Add' command button. Add all records except 'Model' and click on 'Save' A message box must appear saying 'Missing Model'. OK 10 Click on 'Add' command button. Add all records except 'Colour' and click on 'Save' A message box must appear saying 'Missing Colour' OK 11 Click on 'Add' command button. Add all records except 'Price' and click on 'Save' A message box must appear saying 'Missing Price' OK 12 Click on 'Add' command button. ...read more.

Conclusion

' Find the record that matches the control. Dim rs As Object Set rs = Me.Recordset.Clone rs.FindFirst "[Customer Code] = '" & Me![Combo27] & "'" If Not rs.EOF Then Me.Bookmark = rs.Bookmark End Sub Transaction File Option Compare Database Private Sub Add_record_Click() On Error GoTo Err_Add_record_Click DoCmd.GoToRecord , , acNewRec Com1.SetFocus Add_record.Enabled = False Save_record.Enabled = True Exit_Add_record_Click: Exit Sub Err_Add_record_Click: MsgBox Err.Description Resume Exit_Add_record_Click End Sub Private Sub Detail_Click() End Sub Private Sub Save_Record_Click() On Error GoTo Err_Save_Record_Click Com1.SetFocus If Com1.Text = "" Then MsgBox "Missing Transaction Code" Else Com2.SetFocus If Com2.Text = "" Then MsgBox "Missing customer Code" Else Com3.SetFocus If Com3.Text = "" Then MsgBox "Missing Item Code" Else Com4.SetFocus If Com4.Text = "" Or Com4.Text = 0 Then MsgBox "Missing Quantity" Else Com5.SetFocus If Com5.Text = "" Or Com5.Text = 0 Then MsgBox "Missing Price" Else Add_record.Enabled = True Save_record.Enabled = False DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70 MsgBox "Record has been saved" End If End If End If End If End If Exit_Save_Record_Click: Exit Sub Err_Save_Record_Click: MsgBox Err.Description Resume Exit_Save_Record_Click End Sub Private Sub Delete_record_Click() On Error GoTo Err_Delete_record_Click DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70 DoCmd.DoMenuItem acFormBar, acEditMenu, 6, , acMenuVer70 MsgBox "Record has been deleted" Exit_Delete_record_Click: Exit Sub Err_Delete_record_Click: MsgBox Err.Description Resume Exit_Delete_record_Click End Sub Private Sub Print_Record_Click() On Error GoTo Err_Print_Record_Click DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70 DoCmd.PrintOut acSelection Exit_Print_Record_Click: Exit Sub Err_Print_Record_Click: MsgBox Err.Description Resume Exit_Print_Record_Click End Sub Private Sub Back_to_main_menu_Click() On Error GoTo Err_Back_to_main_menu_Click Dim stDocName As String Dim stLinkCriteria As String stDocName = "main menu" DoCmd.OpenForm stDocName, , , stLinkCriteria Exit_Back_to_main_menu_Click: Exit Sub Err_Back_to_main_menu_Click: MsgBox Err.Description Resume Exit_Back_to_main_menu_Click End Sub Private Sub Combo16_AfterUpdate() ' Find the record that matches the control. Dim rs As Object Set rs = Me.Recordset.Clone rs.FindFirst "[Transaction code] = '" & Me![Combo16] & "'" If Not rs.EOF Then Me.Bookmark = rs.Bookmark End Sub Private Sub Transaction_report_Click() On Error GoTo Err_Transaction_report_Click Dim stDocName As String stDocName = "Transaction Report" DoCmd.OpenReport stDocName, acPreview Exit_Transaction_report_Click: Exit Sub Err_Transaction_report_Click: MsgBox Err.Description Resume Exit_Transaction_report_Click End Sub ?? ?? ?? ?? Wong Spare parts 1 ...read more.

The above preview is unformatted text

This student written piece of work is one of many that can be found in our AS and A Level Computer Science section.

Found what you're looking for?

  • Start learning 29% faster today
  • 150,000+ documents available
  • Just £6.99 a month

Not the one? Search for your essay title...
  • Join over 1.2 million students every month
  • Accelerate your learning by 29%
  • Unlimited access from just £6.99 per month

See related essaysSee related essays

Related AS and A Level Computer Science essays

  1. Marked by a teacher

    The systems development life cycle (SDLC) is a conceptual model used in project management ...

    3 star(s)

    They generally will combine the visual aspects of a static prototype with a certain degree of interactive functionality. This might mean navigation, or the use of real web controls, or even mock data processing. As a platform for demonstrating a system, these are the richest, most useful types of prototype, although the slowest to create.

  2. Computing Project

    out * The system must be able to work out how much money the rental shop has made. Design 1. Overall system design This system will work by the user logging into the system to have access to it. The log in process will consist of a username and a

  1. Business blue print document for the implementation of SAP R/3 (4.6B) payroll at Mastek ...

    Further reports can be generated using Ad Hoc Query in conjunction with an SAP Payroll Infotype. However bulk of MSI requirements for legal reporting etc shall be met by ADP as the net payroll processing will be in their domain.

  2. Identify the constituent parts of a total computer system.

    In this case software may be specially written for the customer. This is called bespoke software and the customer should end up with an application that exactly matches his or her needs. However software development costs are high so this is an expensive option.

  1. Review of the article "Supply Chain Analysis at Volkswagen of America".

    In the first scenario, they assumed that all vehicles had to go through processing centers, which was a current case and then to DC's. The maximum number of DC's was set to six.

  2. System I designed in order to produce a promotion package for her newly formed ...

    QAMAR NAFISA F 19/07/85 WALSALL 12 MANN HARBAJAN M 11/04/65 GLASGOW 13 GINOLA DAVID M 03/05/68 TOTTENHAM 14 DEL PIERO ALESSANDRO M 10/11/75 ROME 15 BATISTUTA GABRIEL M 02/04/69 ROME 16 KLINSMANN JURGEN M 25/12/67 MUNICH 17 REBROV SERGEI M 12/12/75 WALSALL 18 ARMSTRONG CHRIS M 03/04/71 TOTTENHAM 19 CAMPBELL

  1. Explain the component parts of a computer system - Include both hardware, software and ...

    Local Area Network (LAN) - A local area network is a number of computers connected to each other by a cable in a single location. Local area networks are often used in businesses to allow communication and information sharing between staff and also different departments.

  2. Infernowear is a new company run by a self-employed creative designer aiming to producing ...

    These test carried out below will check that all operations work properly every time with out fail, if there are any problems I will fix them, and state how, and redo the test to prove that it now works. I will first test the system starting at the login screen

  • Over 160,000 pieces
    of student written work
  • Annotated by
    experienced teachers
  • Ideas and feedback to
    improve your own work