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

    After the remuneration payroll you can carry out various subsequent activities, for example, you can see to remuneration payment or the creation of various lists, and make evaluations. The Gross Payroll component processes employee master data from SAP Personnel Administration and generates wage types and amounts to be used by

  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. ICT Sample Work Welcome Centre Requirements

    Tony's role includes creating the rota of when his team are working, taking booking details from customers for future conferences and negotiating prices if applicable. Tony is also involved in creating quotations for a conference booking to inform the customer how much it will cost.

  2. AQA Computing CPT3

    amount of fuel being dispensed in the current transaction fuelClock Timer 50 milliseconds incrementing 67.23 This will start the timer that shows how much fuel is going through the petrol pump totalToPay Number 0 - 99.99 85.78 This will store the total price to pay for the current transaction pricePerLitre

  1. Database Coursework – George Youngs Coaches.

    One thing that may be difficult will be setting the reminder alerts. I do not yet know if it is possible to do this sort of thing in an access database without some kind of intense Visual Basic programming. However I will investigate this and try to implement it as best as I can into the final solution.

  2. The United Kingdom Awarding Body (UKAB) has asked me to design a system for ...

    types of validation, such as currency, Boolean, more than, less than, etc. The presentation of the data is more than adequate on a database. Statistical analysis and mathematical functions are impossible to undertake on a database, details would need to imported and exported between a database and a spreadsheet.

  1. This system is designed for the monitoring of post examination re-marks for any test ...

    Data entry checks - outside the range of possible marks. 3. Outputs Hardcopy i. A daily list of any re-marks completed where a mark change has affected the grade. The printout needs to contain the unique number, centre number, candidate number and name, subject, original grade and new grade.

  2. The Value of Data and the Use of Databases

    This is often achieved using data mining techniques. A lot of work is going on to develop sophisticated datamining software which looks for patterns in vast quantities of data. The ability to sift through data to find patterns such as * finding people who are most likely to respond to 'junk mail', * which products (such as bread and milk)

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