VRAAG 2: DATABASEPROGRAMERING Die database WerknemersDB bevat inligting van die werknemers van 'n- en uitvoernamaatskappy - NSC Information Technology - Question 2 - 2020 - Paper 1

Die SQL-kode om werknemers wat 'Ingenieur' in hul pos titel het te vertoon, kan soos volg geskryf word:

SELECT WerknemerID, Van, Naam
FROM tblWerknemers
WHERE PosTitel LIKE '%Ingenieur%';

Hierdie kode vertoon die relevante velde vir werknemers met die stellings van 'Ingenieur' in hul pos titel.

Om 'n lys van unieke posities te vertoon, gebruik die volgende SQL:

SELECT DISTINCT PosTitel
FROM tblWerknemers;

Hierdie kode sal slegs unieke pos titels vertoon, sonder om duplicaat entries weer te gee.

Om rekords met 'UreGewerk' as 99 te verwyder, kan die volgende SQL-kode gebruik word:

DELETE FROM tblLogUre
WHERE UreGewerk = 99;

Hierdie kode verwyder alle rekords van die tblLogUre waar die waarde van UreGewerk 99 is.

Die verlangde SQL-kode om die oortyd te bereken, kan soos volg geskryf word:

SELECT Van, FORMAT(SUM((UreGewerk - 8) * UurlikseLoon * 2), 'CURRENCY') AS OortydBedrag
FROM tblWerknemers E, tblLogUre H
WHERE E.WerknemerID = H.WerknemerID
AND UreGewerk > 8
GROUP BY Van;

Hierdie SQL-kode bereken die oortyd vir elke werknemer wat meer as 8 uur gewerk het.

Hier is die Delphi-kode om werknemers met noodhulp te vertoon:

var
  teller: Integer;
begin
  teller := 0;
  tblWerknemers.First;
  while not tblWerknemers.Eof do
  begin
    if tblWerknemers['NoodHulpOpleiding'] then
    begin
      ShowMessage(tblWerknemers['WerknemerID'] + ' ' + tblWerknemers['Van']);
      teller := teller + 1;
    end;
    tblWerknemers.Next;
  end;
  ShowMessage('Teller: ' + IntToStr(teller));
end;

Hierdie kode sal die WerknemerID en Van van elke werknemer met noodhulp vertoon, en die totale aantal werknemers met noodhulp opleiding sal ook gewys word.

Om 'n nuwe werknemer toe te voeg, kan die volgende Delphi-kode gebruik word:

begin
  tblWerknemers.Insert;
  tblWerknemers['WerknemerID'] := 'EMP986';
  tblWerknemers['Naam'] := 'Robert';
  tblWerknemers['Van'] := 'Laubscher';
  tblWerknemers['UurlikseLoon'] := 195.00;
  tblWerknemers['PosTitel'] := 'Mariene Ingenieur';
  tblWerknemers['NoodHulpOpleiding'] := True;
  tblWerknemers.Post;
end;

Hierdie kode voeg die nuut werknemer se inligting toe aan die tblWerknemers-tabel.

Die Delphi-kode om die ure gewerk op te dateer is as volg:

begin
  tblLogUre.Edit;
  tblLogUre['UreGewerk'] := iUre;
  tblLogUre.Post;
end;

Hierdie kode werk die UreGewerk veld in die tblLogUre tabel op.