• 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)

    User confusion of prototype and finished system: Users can begin to think that a prototype, intended to be thrown away, is actually a final system that merely needs to be finished or polished. (They are, for example, often unaware of the effort needed to add error-checking and security features which a prototype may not have.)

  2. Marked by a teacher

    The software that manages a database is called a Database Management System (DBMS). The ...

    3 star(s)

    Each table can only have one primary key. For example the 'Book' table has a unique identifier called 'Book ID'; one book can have only one Book ID no matter how many books of the same name remain in the library. If there are two or more book names in the library which has the same name but different authors, two separate Book IDs have to be used.

  1. 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

  2. AS ICT Corsework - Mr Brookes K-Fit Ltd

    and check that they work testing all the buttons one by one. As I went through all the links the one that had problems in loading was the home page because as I tried to open the page it displayed this error message Re-Testing I re-linked the page and retested it and the same message appeared again.

  1. Computing Project

    him statistics easily, draw reports and he is able to see progress easily. I will be producing a prototype that will have limited data but the instructor can try it out and see if this is what he wants. REALISTIC APPRAISAL OF THE FEASIBILITY OF POTENTIAL SOLUTIONS There are many

  2. Basic Database Building

    So in my case the most relevant information that needed charting was the equipment that had been used, this could actually however have been on many things, * Chart on peoples ages * Chart on what membership type people have * Chart on location lived All of these would have

  1. Computing Module 3 Writeup

    Presence Check Required = Yes Validation Of Data Entered In Visual Basic: For entering data to the Add Centre Form, I used the following validation: Private Sub CmdAddCen_Click() If (Validate() = True) Then datCentre.Recordset.Update datCentre.Recordset.AddNew End If End Sub Private Sub CmdCloseCen2_Click()

  2. You have been asked to create a database to handle various account combinations of ...

    Capture the essentials Many models consist of documentation for businesses, such as invoices, orders, receipts. If it only consisted of documents, what would happen if the business changes? Most businesses today are dynamic - meaning that they have to respond to increasing competition and to he changes in the environment around them.

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