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

    He is a complete novice at using computers. He will need introductory training that includes: * Logging in to the network * File Management (files and folders - creating, renaming, moving, copying) * Word Processing (Use of word documents, file management - opening/ saving, formatting) * Spreadsheets (Use of spreadsheets, file management - opening/ saving, formatting, working with multiple worksheets)

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

    99.9 then Timer is disabled Squeeze button is disabled Message box telling user tank is full End If Event: New Price per Litre changed With the Price per Litre Loop from the 1st digit to the last Take the digit and change the LCD digit to this digit PRODUCTION OF

  1. AQA Computing CPT3

    displayPetrol Number 0 - 99.99 21.98 This stores the petrol dispensed total for the current transaction for the customers interface displayPetrol2 Number 0 - 99.99 27.39 This is a duplicate of the displayPetrol variable but for the cashier's console dispensedTotal Number 0 - 100,000 84,290 This displays the total of

  2. Smart Card System

    This last option can be particularly useful if the programmer want to achieve a greater understanding of the byte codes used by the Java interpreter. 5.2.5 Header File Generator Because Java is a new language and must fit in a world dominated by C and C++, included in Java is

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

    to cater to the Indian payroll needs. Payroll Area A payroll area specifies when payroll is to be run; the earliest payroll period for retroactive accounting, and the periods for which payroll is to be run.

  2. Database Coursework – George Youngs Coaches.

    They went into more detail explaining that driver and customer details include the usual things such as names, addresses, telephone numbers and postcode as well as the bus they drive, how long they were driving for that day and how long the job took.

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

    This means that if a database were to be used it would have to be used in conjunction with a spreadsheet package; therefore it seems slightly pointless to use a database, because a comprehensive spreadsheet package could do all the functions to complete this task.

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

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