Ms. Acces : Tutorial Membuat Database dan Tabel Karyawan Bagian II + 6 Soal Query

Assalamualaikum semuanya~ pada kesempatan kali ini saya akan meneruskan penjelasan dari pembahasan sebelumnya mengenai Ms.Acces Database , untuk itu langsung saja kita simak soal beserta jawabannya sebagai berikut :

1). Tampilkan Nip, Nama, Nama_jabatan, Total tunjangan yang total tunjangan nya dibawah 700.000

Masukkan Sricpt nya :

SELECT
Tb_Karyawan.Nip,
Tb_Karyawan.Nama_lengkap,
Tb_Jabatan.Nama_jabatan,
Tb_Jabatan.Gaji_pokok,
(Tb_Pekerjaan.Tunjangan_kinerja+Tb_Jabatan.Tunjangan_jabtan) AS Total_tunjangan

FROM
Tb_Karyawan,
Tb_Jabatan,
Tb_Pekerjaan,
Tb_Divisi

WHERE
(Tb_Pekerjaan.Tunjangan_kinerja+Tb_Jabatan.Tunjangan_jabtan) < 700000
AND Tb_Karyawan.Nip = Tb_Pekerjaan.Nip
AND Tb_Pekerjaan.Kd_jabatan = Tb_Jabatan.Kd_jabatan
AND Tb_Pekerjaan.Kd_divisi = Tb_Divisi.Kd_divisi

Kemudian "Run"

2). Tampilkan Nip, Nama lengkap, Jabatan, Nama divisi, Umur, Total gaji, Pajak, Gaji bersih yang gender nya laki - laki dan penempatan kerjanya diluar sukabumi (Keterangan pajak  = 5% dari total gaji) dan gaji bersih = Total gaji - Pajak).

Masukkan Sricpt nya :

SELECT

Tb_Karyawan.Nip, 

Tb_Karyawan.Nama_lengkap, 

Tb_Jabatan.Nama_jabatan, 

Tb_Divisi.Nama_divisi, 

round(DateDiff("d",Tgl_lahir,now())/365,1) AS Umur, 

(Tb_Jabatan.Gaji_pokok+Tb_Pekerjaan.Tunjangan_kinerja+Tb_Jabatan.Tunjangan_jabtan) AS Total_Gaji, 

((Tb_Jabatan.Gaji_pokok+Tb_Pekerjaan.Tunjangan_kinerja+Tb_Jabatan.Tunjangan_jabtan)*0.5) AS Pajak, 

((Tb_jabatan.Gaji_pokok+Tb_Pekerjaan.Tunjangan_kinerja+Tb_Jabatan.Tunjangan_jabtan)-((Tb_Jabatan.Gaji_pokok+Tb_Pekerjaan.Tunjangan_kinerja+Tb_Jabatan.Tunjangan_jabtan)*0.5)) AS Gaji_Bersih

FROM

Tb_Karyawan, 

Tb_Jabatan, 

Tb_Pekerjaan, 

Tb_Divisi

WHERE

Tb_Karyawan.NIP = Tb_Pekerjaan.Nip 

AND Tb_Pekerjaan.Kd_jabatan = Tb_Jabatan.Kd_jabatan

AND Tb_Pekerjaan.Kd_divisi= Tb_Divisi.Kd_divisi 

AND Gender= "Laki-laki" 

AND Kota_penempatan<>"Sukabumi"

Kemudian "Run"

3). Tampilkan Nip, Nama lengkap, Jabatan, Nama divisi dan bonus umur nya di atas 25 tahun dan kerjanya 2 tahun atau lebih dari 2 tahun (Bonus adalah 25% dari total gaji dikali 7)

Masukkan Sricpt nya :

SELECT

Tb_Karyawan.Nip,

Tb_Karyawan.Nama_lengkap,

Tb_Jabatan.Nama_jabatan,

Tb_Divisi.Nama_divisi, (((Tb_Pekerjaan.Tunjangan_kinerja+Tb_Jabatan.Gaji_pokok+Tb_Jabatan.Tunjangan_jabtan)*7)*0.25) as Bonus

FROM

Tb_Karyawan,

Tb_Pekerjaan,

Tb_Jabatan,

Tb_Divisi

WHERE

Tb_Karyawan.Nip=Tb_Pekerjaan.Nip and 

Tb_Jabatan.Kd_Jabatan=Tb_Pekerjaan.Kd_Jabatan and 

Tb_Pekerjaan.Kd_Divisi=Tb_Divisi.Kd_Divisi and round (DateDiff("d",tgl_masuk,now())/365,0)>=2;

Kemudian "Run"

4). Tampilkan rata - rata umur, nama jabatan untuk setiap jabatan.

Masukkan Sricpt nya :

SELECT

Tb_Jabatan.Nama_jabatan, round (DateDiff("d",Tgl_lahir,Now())/365,0) AS  "Umur rata-rata"

FROM

Tb_Karyawan,

Tb_Pekerjaan,

Tb_Jabatan

WHERE

Tb_Karyawan.Nip = Tb_Pekerjaan.Nip AND

Tb_Jabatan.Kd_Jabatan = Tb_Pekerjaan.KD_Jabatan

Kemudian "Run"

5). Tampilkan nama lengkap, total gaji, infak (5% * total gaji) yang mempunyai jabatan manager.

Masukkan Sricpt nya :

SELECT

Tb_Karyawan.Nama_lengkap, 

(Tb_Jabatan.Gaji_pokok + Tb_Pekerjaan.Tunjangan_kinerja + Tb_Jabatan.Tunjangan_jabtan) AS Total_Gaji, ((Tb_Jabatan.Gaji_pokok + Tb_Pekerjaan.Tunjangan_kinerja + Tb_Jabatan.Tunjangan_jabtan)*0.5) AS Infak

FROM

Tb_Karyawan, 

Tb_Jabatan,

Tb_Pekerjaan, 

Tb_Divisi

WHERE

Tb_Karyawan.Nip =Tb_Pekerjaan.Nip AND

Tb_Pekerjaan.Kd_jabatan = Tb_Jabatan.Kd_jabatan AND

Tb_Pekerjaan.Kd_divisi= Tb_Divisi.Kd_divisi AND

Nama_jabatan="Manager"

Kemudian "Run"

6). Tampilkan Nama lengkap, nama jabatan, pendidikan terakhir, tunjangan pendidikan (2000.000), total gaji (gaji pokok + tunjangan jabatan + tunjangan kinerja + tunjangan pendidikan) yang pendidikan akhirnya adalah S1.

Masukkan Sricpt nya :

SELECT

Tb_Karyawan.Nama_lengkap, 

Tb_Jabatan.Nama_jabatan, 

Tb_Karyawan.Pendidikan_Terakhir, 

(2000000) AS Tunjangan_Pendidikan, (Tb_Jabatan.Gaji_pokok + Tb_Pekerjaan.Tunjangan_kinerja + Tb_Jabatan.Tunjangan_jabtan+2000000) AS Total_Gaji

FROM

Tb_Karyawan, 

Tb_Jabatan, 

Tb_Pekerjaan, 

Tb_Divisi

WHERE

Tb_Karyawan.Nip = Tb_Pekerjaan.Nip AND

Tb_Pekerjaan.Kd_jabatan = Tb_Jabatan.Kd_jabatan AND

Tb_Pekerjaan.Kd_divisi= Tb_Divisi.Kd_divisi AND

Pendidikan_Terakhir = "S1 Teknik Mesin"

Kemudian "Run"

~ Selesai ~

~ Maaf bila ada kekurangan ~