This section provides a quick preview of questions from the document. It may not display every question or the complete wording of each one. For the full content, including diagrams, tables and other information, view the original PDF above.
Q1— Section header —
1.1.1Public staffno as integer Public surname as string Public drate as decimal Public ihour as integer Get Return drate End Get Set(ByVal value as decimal\
1.2Public Function calsalary(\ as decimal Dim salary as decimal salary = rate * hour Return salary End Function (3\
1.3ublic Function calPayee(\ as decimal Dim tax As Decimal tax = calsalary(\ ipercent / 100 Return tax End Function (4\
1.4Public Function calnet(\as decimal Dim netsalary As Decimal netsalary = calsalary(\ calPayee(\ Return netsalary End Function End Class (4\
1.5.1Private Sub Button1_Click(\ Handles Button1.Click Dim objsalary As New salary objsalary.hour = txthour.Text objsalary.percent = ntax.Value objsalary.staffnr = txtstaffn.Text objsalary.surname = txtsurname.Text
1.5.3
1.5.4lblsalary.Text = FormatCurrency(objsalary.calsalary\ lblpayee.Text = FormatCurrency(objsalary.calPayee\ (3\
1.5.525
Q2— Section header —
2.1.1Private connection As New OleDb.OleDbConnection Private command As OleDb.OleDbCommand Private strSalesRepCode As String = "" Private strSQL As String = "" Private Sub GetSalesReps(\ 'Fetch the Sales Reps from the SalesRep Table
2.1.2strSQL = "SELECT SalesRepCode, FirstName, Surname FROM SalesReps" bsSalesReps = New BindingSource bsSalesReps.DataSource = dtSalesReps lblSalesRepCode.DataBindings.Add("Text", bsSalesReps, "SalesRepCode"\
2.2.1Private Sub GetSales(\ command = New OleDb.OleDbCommand Dim dtSales As New DataTable connection.ConnectionString = ConnectionPath connection.Open(\ command.Connection = connection strSalesRepCode = Convert.ToString(bsSalesReps.Current("SalesRepCode"\
2.2.2strSQL = "SELECT ProductCode, InvoiceNo, Quantity, Price, " & _ "Quantity * Price as TotalPrice " & _ "FROM Sales " & _ "WHERE SalesRepCode = @SalesRepCode" (4\
2.2.3'Calculate the Total Sales strSQL = "SELECT SUM(Quantity * Price\ "FROM Sales " & _ "WHERE SalesRepCode = @SalesRepCode" command.CommandText = strSQL (5\
2.2.4Dim decTotalSales As Decimal = Convert.ToDecimal(command.ExecuteScalar(\ lblTotalSales.Text = decTotalSales.ToString("C"\ connection.Close(\ (2\ e\
2.3Korrekte afvoer (1\ [25]25
Q3— Section header —
3.1.1<html> <head> <title>Online Order</title> <link rel="stylesheet" href="style1.css" type="text/css"> </head> <body> (2\
3.1.2<body> <div id="container"> (1\
3.1.3<div id="header"> <img src="pizza.jpg" width="250" height="100" </div> (3\
3.1.4<div id="nav"> <a href="home.html">Home</a> | <a href="order.html">Order</a> |<a href="specials.html">Special</a> | <a href="contactus.html">Contact Us</a> | <a href="galary.html">Galary</a> </div> (2\
3.1.5<div id="content"> <table border="0" <tr> (2\ (a\ <tr> <td>Contact:</td><td><input type="text" name="cont"></td> </tr>. <td>Surname::</td><td><input type="text" name="sur"></td>
3.1.3<div id="footer"> <p>Insert Examination Number</p> </div> </div> </body> </html> (1\ [27]27
Q4— Section header —
4.1<script type="text/javascript"> EXAMINATION NUMBER (2\
4.2.1function computer(\ (1\
4.2.2var surname = document.getElementById("surn"\.value; var address = document.getElementById("add"\.value; var contact = document.getElementById("cont"\.value; var size = document.getElementById ("pizza"\
4.2.3if(surname ==""\ alert("Please enter surname"\; document.getElementById("surn"\.focus(\; if(address ==""\ alert("Please enter Adrdress"\; document.getElementById("add"\.focus(\; if(contact ==""\ alert("Please enter contact"\;