[DBMS-ORACLE] LATIHAN LESSON 1 DAN 2

LATIHAN LESSON 1

1. Tampilkan SELURUH data dari masing-masing table pada database human resource.
2. Tampilkan field LOCATION_ID, STREET_ADDRESS, dan POSTAL_CODE dari table LOCATIONS.
3. Tampilkan field HIRE_DATE dari table EMPLOYEES tanpa ada data yang sama.
4. Tampilkan field FIRST_NAME dengan alias Nama Depan, LAST_NAME dengan alias Nama Akhir, HIRE_DATE dengan alias Tanggal Awal Kerja , SALARY dengan alias Gaji, dan (SALARY*12) dengan alias Gaji per Tahun dari table EMPLOYEES.
5. Tampilkan field department_id dan department_name dari table departments dengan fungsi concatenation dan quotation sehingga hasilnya adalah sebagai berikut DEPARTMENTS NO : 10, IT'S DEPARTMENT NAME IS : ADMINISTRATION.

LATIHAN LESSON 2

1. Ambil first_name digabung dengan last_name, digabung dengan ", the email address is :", digabung dengan email dan berikan alias "Name and Email".
2. Ambil first_name digabung dengan last_name dengan alias "Surename", hire_date, job_id, salary, 12 kali salary ditambah satu kali salary dengan alias "Total Annual Income", dan 30% dari "Total Annual Income" dengan alias "Income Tax".
3. Ambil street_address digabung dengan postal_code digabung dengan city digabung dengan state_province dimana semua penggabungan menggunakan ", " sebagai pemisah.
4. Ambil first_name digabung dengan last_name dengan alias "Surename", hire_date, manager_id dimana manager_id = 114.
5. Ambil location_id, street_address, postal_code, city, state_province dimana nama kota = Tokyo.
6. Ambil job_id, job_title, min_salary, max_salary dimana gaji minimum lebih besar dari 5000.
7. Ambil first_name digabung dengan last_name, hire_date, dan salary dimana hire_date ada di antara 01 Januari 1998 sampai dengan 31 Desember 2000.
8. Ambil street_address, postal_code dimana id lokasi adalah 1100, 1900, dan 2000.
9. Ambil street_address, postal_code, city, state_province dimana nama kota memiliki huruf o sebagai huruf ke dua.
10. Ambil first_name digabung dengan last_name dengan separator spasi dan berikan alias "Full Name", hire_date, commision_pct dimana tanggal penerimaan kerja lebih/sama dengan tanggal 1 January 1999 dan komisi untuk pegawai ini lebih dari 0.
11. Ambil location_id, street_address, postal_code, city dimana alamat mengandung huruf 'o' atau kota mengandung huruf 'e'.
12. Ambil countr, country_name dimana countr bukan 'CH', 'CN', dan 'KW'.
13. Ambil employee_id, start_date digabung dengan ' until ' dan digabung dengan end_date dimana job_id mengandung kata 'man' atau 'clerk' dan department_id adalah 80 atau 60.
14. Ambil first_name digabung dengan last_name dengan separator spasi dan berikan alias "Full Name", hire_date, salary*12 dengan alias 'Annual Salary', department_id dimana hire_date lebih besar/sama dengan '01-JAN-1999' dan department_id antara 80 sampai 160 kemudian urutkan menaik berdasarkan Full Name dan Annual Salary.
15. Ambil first_name digabung dengan last_name dengan separator spasi dan berikan alias "Full Name", hire_date, salary*12 dengan alias 'Annual Salary', [sebuah kolom bebas] dimana [kondisi bebas 1] dan [kondisi bebas 2] kemudian urutkan menurun berdasarkan [kolom bebas yang ditentukan].

[VB.NET] MENENTUKAN NILAI AKHIR

Desain User Interface :











Source code :

Public Class Form1

    Dim absen, tugas, quiz, uts, uas, nilaiAkhir As Double

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        StartPosition = FormStartPosition.CenterScreen
        MinimizeBox = False
        MaximizeBox = False
        txtNilaiAkhir.Enabled = False
    End Sub

    Private Sub txtKodeMK_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles txtKodeMK.KeyPress
        If e.KeyChar = Chr(13) Then
            txtNamaMK.Focus()
        End If
    End Sub

    Private Sub txtNamaMK_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles txtNamaMK.KeyPress
        If e.KeyChar = Chr(13) Then
            txtAbsen.Focus()
        End If
    End Sub

    Private Sub txtAbsen_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles txtAbsen.KeyPress
        If e.KeyChar = Chr(13) Then
            txtTugas.Focus()
        End If
    End Sub

    Private Sub txtTugas_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles txtTugas.KeyPress
        If e.KeyChar = Chr(13) Then
            txtQuiz.Focus()
        End If
    End Sub

    Private Sub txtQuiz_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles txtQuiz.KeyPress
        If e.KeyChar = Chr(13) Then
            txtUTS.Focus()
        End If
    End Sub

    Private Sub txtUTS_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles txtUTS.KeyPress
        If e.KeyChar = Chr(13) Then
            txtUAS.Focus()
        End If
    End Sub

    Private Sub txtUAS_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles txtUAS.KeyPress
        If e.KeyChar = Chr(13) Then
            absen = Val(txtAbsen.Text)
            tugas = Val(txtTugas.Text)
            quiz = Val(txtQuiz.Text)
            uts = Val(txtUTS.Text)
            uas = Val(txtUAS.Text)

            nilaiAkhir = (0.1 * absen) + (0.1 * tugas) + (0.1 * quiz) + (0.3 * uts) + (0.4 * uas)
            txtNilaiAkhir.Text = nilaiAkhir

            btnUlangi.Focus()
        End If
    End Sub

    Private Sub btnUlangi_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnUlangi.Click
        txtKodeMK.Clear()
        txtNamaMK.Clear()
        txtAbsen.Clear()
        txtTugas.Clear()
        txtQuiz.Clear()
        txtUTS.Clear()
        txtUAS.Clear()
        txtNilaiAkhir.Clear()
        txtKodeMK.Focus()
    End Sub

    Private Sub btnKeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnKeluar.Click
        Dim konfirmasi As String

        konfirmasi = MsgBox("Anda yakin keluar dari aplikasi?", MsgBoxStyle.Question + MsgBoxStyle.OkCancel, "Konfirmasi")

        If konfirmasi = vbOK Then
            Close()
        End If
    End Sub
End Class

Hasil :