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

    Further, since a prototype is limited in functionality it may not scale well if the prototype is used as the basis of a final deliverable, which may not be noticed if developers are too focused on building a prototype as a model.

  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. AS ICT Corsework - Mr Brookes K-Fit Ltd

    Linked perfectly and loaded up fine Linked perfectly and loaded up fine Linked perfectly and loaded up fine Linked perfectly and loaded up fine Linked perfectly and loaded up fine No Changes Necessary Test Eight - Does The Top.html Work Correctly This is what I am testing: To see weather

  2. Computing Project

    The instructor want something that he can have transaction done on, ideally a database that will do transactions, that include calculate a cost, update availability for next lesson and update the file with student lesson. The instructor would be very grateful if we were to include something that will show

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

  2. Computing Module 3 Writeup

    Unload Me End Sub Private Sub Form_Load() datCentre.Recordset.AddNew End Sub Public Function Validate() As Boolean Validate = True If (txtCentreNo.Text = "") Then MsgBox ("Centre number has to be entered") Validate = False Exit Function End If If txtCentreNo.Text < 10000 Then MsgBox ("Centre number must be between 10000 and 79999")

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

  2. Computing project - testing my library system

    Test fining Test Data : Mcode: 1003 Bcode: FL02 Expected Result : Display calculated fine. Print fine receipt. Display message ?More return transactions? Comments : When member code 1002 was entered, the transaction details were correctly displayed. The book details as well as the amount of fine were correctly displayed.

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