• Join over 1.2 million students every month
  • Accelerate your learning by 29%
  • Unlimited access from just £6.99 per month
Page
  1. 1
    1
  2. 2
    2
  3. 3
    3
  4. 4
    4
  5. 5
    5
  6. 6
    6
  7. 7
    7
  8. 8
    8
  9. 9
    9
  10. 10
    10
  11. 11
    11
  12. 12
    12
  13. 13
    13
  14. 14
    14
  15. 15
    15
  16. 16
    16
  17. 17
    17
  18. 18
    18
  19. 19
    19
  20. 20
    20
  21. 21
    21
  22. 22
    22
  23. 23
    23
  24. 24
    24
  25. 25
    25
  26. 26
    26
  27. 27
    27
  28. 28
    28
  29. 29
    29

Computing Module 3 Writeup

Extracts from this document...

Introduction

Defining data requirements: Examiner (ExaminerNumber, Forename, Surname, Address, Postcode, SubjectReferenceCode) Centre (CentreNumber, NumberOfCandidatesEntered, ExaminerNumber, SubjectReferenceCode) Subject (SubjectReferenceCode, SubjectName, Payment) Examiner Table: Field Name Data Type ExaminerNumber Number Forename Text Surname Text Address Text Postcode Text TaxDeductionFlag Yes/No SubjectReferenceCode Number Centre Table: Field Name Data Type CentreNumber Number NumberOfCandidatesEntered Number ExaminerNumber Number SubjectReferenceCode Number Subject Table: Field Name Data Type SubjectReferenceCode Number SubjectName Text Payment Currency Data Entry Form For A Centre: Data Entry Form For An Examiner: Implementation Of Tables In A Database: Centre Table: As you can see, the fields CentreNumber and SubjectReferenceCode have been made joint primary keys. This is so that a centre can enter candidates for more than one subject. For example, if CentreNumber was the primary key on its own, then we could only enter candidates from the centre for one subject because if the CentreNumber was repeated, it would not be unique and therefore fall foul of the uniqueness check. Therefore, with both fields, CentreNumber and SubjectReferenceCode being made joint primary keys, we can enter candidates for more than one subject from a particular centre, because the CentreNumber and SubjectReferenceCode combination will be unique, so it will pass the uniqueness validation rule. Validation Rules: Field Validation Check Validation Rule CentreNumber (Primary Key) Range Check Between 10000 and 79999 Input Mask 00000 ( must have 5 digits) Presence Check Required = Yes Uniqueness Check It is the Primary Key SubjectReferenceCode Presence Check Required = Yes Input Mask Options from drop-down box (20094, 28181, 64773) by using the following Row Source code in Lookup: Select Subject.SubjectReferenceCode From Subject; ExaminerNumber Presence Check Required = Yes Input Mask 000000 (must have 6 digits) ...read more.

Middle

The value 0 means that they will have 22% tax deducted from their gross pay. To edit records, the user would select a record and press EDIT. This would open up the Add Examiner form, but the selected details would already be in the relevant fields, making editing easier. Once the user has edited the record, they only have to press ADD and the record is amended in the database. To delete records, the user would select a record and press DELETE. This would cause a message box to appear asking for conformation of the delete. Once confirmed, the record is deleted from the database. Report 1: For my system, I will be printing out the relevant details for each examiner separately. This is why I have included a drop down box, so that the user can select the specific examiner they want the details for. Once the print button is pressed, the data currently being displayed is sent to the printer to be printed. The hardcopy for this report for Examiner Number: 357862 Natasha Foster is shown below. 357862 Natasha Foster Centre No. No. Of Scripts 46310 39 65456 65 75548 53 79995 47 Private Sub cmbExaminer_Click() Dim ExaminerNo As String DisplayExaminerName If (cmbExaminer.ListIndex = 0) Then datCentre.RecordSource = "Select CentreNumber, NumberOfCandidatesEntered From Centre Order By CentreNumber ASC" Else ExaminerNo = cmbExaminer.Text datCentre.RecordSource = "Select CentreNumber, NumberOfCandidatesEntered From Centre Where ExaminerNumber = " & ExaminerNo & " Order By CentreNumber ASC" End If datCentre.CommandType = adCmdText datCentre.Refresh End Sub Public Sub LoadExaminers() cmbExaminer.Clear cmbExaminer.AddItem ("All Examiners") datExaminer.Recordset.MoveFirst While datExaminer.Recordset.EOF = False cmbExaminer.AddItem (datExaminer.Recordset("ExaminerNumber")) datExaminer.Recordset.MoveNext Wend cmbExaminer.ListIndex = 0 End Sub Private Sub Form_Load() ...read more.

Conclusion

Unload Me End Sub Private Sub Form_Load() datExaminer.Refresh datCentre.Refresh datSubject.Refresh Dim SubjectCode As Long Dim ExaminerNo As Long Dim TaxDeductedFlag As Boolean Dim CanEnt As Long Dim PayMade As Double Dim EngCandidates As Long Dim EngPaymentMade As Double Dim CompCandidates As Long Dim CompPaymentMade As Double Dim EcoCandidates As Long Dim EcoPaymentMade As Double Dim TotalCandidates As Long Dim TotalPaymentMade As Double datExaminer.Recordset.MoveFirst While (datExaminer.Recordset.EOF = False) SubjectCode = datExaminer.Recordset("SubjectReferenceCode") ExaminerNo = datExaminer.Recordset("ExaminerNumber") TaxDeductedFlag = datExaminer.Recordset("TaxDeductionFlag") Call CalcTotals(SubjectCode, ExaminerNo, TaxDeductedFlag, CanEnt, PayMade) If (SubjectCode = 20094) Then EngCandidates = EngCandidates + CanEnt EngPaymentMade = EngPaymentMade + PayMade End If If (SubjectCode = 28181) Then CompCandidates = CompCandidates + CanEnt CompPaymentMade = CompPaymentMade + PayMade End If If (SubjectCode = 64773) Then EcoCandidates = EcoCandidates + CanEnt EcoPaymentMade = EcoPaymentMade + PayMade End If datExaminer.Recordset.MoveNext Wend lblCanEng.Caption = EngCandidates lblPayEng.Caption = Format(EngPaymentMade, "�#,##0.00") lblCanComp.Caption = CompCandidates lblPayComp.Caption = Format(CompPaymentMade, "�#,##0.00") blCanEco.Caption = EcoCandidates lblPayEco.Caption = Format(EcoPaymentMade, "�#,##0.00") lblTotalCan.Caption = EngCandidates + CompCandidates + EcoCandidates lblTotalPay.Caption = Format(EngPaymentMade + CompPaymentMade + EcoPaymentMade, "�#,##0.00") End Sub Public Sub CalcTotals(ByVal SubjectCode As Long, ByVal ExaminerNo As Long, ByVal TaxDeductedFlag As Boolean, ByRef CandidatesEntered As Long, ByRef PaymentMade As Double) Dim ScriptRate As Double Dim TaxDeducted As Double datCentre.RecordSource = "Select Sum(NumberOfCandidatesEntered) From Centre Where SubjectReferenceCode = " & SubjectCode & " AND ExaminerNumber = " & ExaminerNo datCentre.Refresh CandidatesEntered = datCentre.Recordset(0) PaymentMade = 0 ScriptRate = GetScriptRate(SubjectCode) PaymentMade = (CandidatesEntered * ScriptRate) + 95 TaxDeducted = 0 If (TaxDeductedFlag = False) Then TaxDeducted = (PaymentMade / 100) * 22 End If PaymentMade = PaymentMade - TaxDeducted End Sub Public Function GetScriptRate(SubjectCode As Long) As Double datSubject.RecordSource = "SELECT Payment FROM Subject WHERE SubjectReferenceCode = " & SubjectCode datSubject.Refresh GetScriptRate = datSubject.Recordset("Payment") End Function Jeeva Thavarajah 1163 Page 28 UKAB ...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. Business blue print document for the implementation of SAP R/3 (4.6B) payroll at Mastek ...

    You can also control the financial system of third-party providers. The System calculates the gross and net pay, which comprises the individual payments and deductions that are calculated during a payroll period, and are received by an employee. These payments and deductions are included in the calculation of the remuneration using different wage types.

  2. 140 Computing A-Level Revision Questions

    State five methods of accessing data from a table in memory. 82. What is a modem and why is it necessary in communications? 83. A multiplexer is commonly used in communications. Explain what it is used for and briefly describe two methods of implementation.

  1. GCSE I.T Security Case Study - Riverside Leisure Centre

    When surveying the site I noticed that there was only one entrance to the complex. This narrows down the ways that intruders can enter the building and also is more cost effective as they don't have to have security equipment anywhere else, as there are no other entrances.

  2. Database Coursework – George Youngs Coaches.

    of time and allow them to see more of the database at any one time, when in the higher resolution. * A recent graphics card - An 8Mb or more card will give the user optimum quality on their monitor.

  1. AQA Computing CPT3 June 08 Peter's Petrol Pumps

    Button Nozzle is enabled Timer is disabled End If CONSOLE OPERATION Event: Clicking Zero Petrol Dispensed Button On Pump, Number of Litres and Amount to Pay are set to 0 On Console, Number of Litres and Amount to Pay are set to 0 Pump = Ready for Use On Pump,

  2. ICT Sample Work Welcome Centre Requirements

    After creating the quotation, he will then save it onto his computer. He will sometimes do the same for invoices. The problem with this is that the same information is being entered up to three times; once in the diary, secondly on the quotation, and thirdly onto an invoice.

  1. AQA Computing CPT3

    Resource: http://en.wikipedia.org/wiki/ActionScript (29/04/08) Designing Phase This section will consist of the designing phase, this will include making a definition of data storage requirements (a data dictionary), a user interface design for console and petrol pumps, algorithms for the operation of the pump, console, the simulation of the seven segment LCD display, and production of daily totals.

  2. Smart Card System

    For example, if a customer decides to change the frequent flyer program associated with the card, the card issuer can make this change, without having to issue a new card. * Flexible - The Object-Oriented methodology of the Java Card technology provides flexibility in programming smart cards.

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