kelas pagi

kelas sore

sebuah database(rental.mbd) terdiri dari 3 tabel yaitu

1. vcd:kode_vcd(primary),judul,harga_sewa,status

2. penyewa:kode_penyewa(primary),nama,alamat,telpon,keterangan

3. peminjam:kode_penyewa,kode_vcd,tgl_sewa,tgl_kembali

3 tabel kemudian direlasikan yakni  kode_vcd(peminjam) dengan kode_vcd(VCD) dan kode_penyewa(peminjam) dengan kode_penyewa(penyewa)

Buat program manipulasi database (tambah,simpan,edit,hapus,refresh,keluar) dengan menggunakan menu editor, lengkapi dengan menu cari, cetak

=====================================================

Private Sub cmdbatal_Click()
Form_Activate
End Sub

Private Sub cmdcetak_Click()
Dim str As String

jlhontime = 0
jlhontime1 = 0
jlhper = 0
jlhper1 = 0
jlhtelat = 0
jlhtelat1 = 0
jlh = 0
 
If OptSeluruh.Value = True Then
   crpcetak.ReportFileName = App.Path & “\lap2.rpt”
   crpcetak.WindowTitle = “Laporan Absensi Pegawai”
   crpcetak.GroupSelectionFormula = “{tabsen.Tanggal}>=Date(” & Mid(Trim(DtAwal.Value), 7, 4) & “,” & Mid(Trim(DtAwal.Value), 4, 2) & “,” & Mid(Trim(DtAwal.Value), 1, 2) & “) and {tabsen.Tanggal}<=Date(” & Mid(Trim(DtAkhir.Value), 7, 4) & “,” & Mid(Trim(DtAkhir.Value), 4, 2) & “,” & Mid(Trim(DtAkhir.Value), 1, 2) & “)”
ElseIf OptPegawai.Value = True Then
  crpcetak.ReportFileName = App.Path & “\lap1.rpt”
  Koneksi
  str = “select * from tabsen where tanggal>=#” & DtAwal.Value & “#” & ” and tanggal<=#” & DtAkhir.Value & “#” & ” and noid=’” & Trim(cmbid.Text) & “‘”
  rsabsen.Open str, dbabsensi, adOpenDynamic, adLockOptimistic
  If Not rsabsen.EOF Then
     Do While Not rsabsen.EOF
        ‘—— menghitung jumlah ontime —————-’
        If Trim(rsabsen!ketmasuk) = “On Time” Then
           jlhontime = jlhontime + 1
        End If
        ‘—— menghitung jumlah telat —————-’
        If Trim(rsabsen!ketmasuk) = “Telat” Then
           jlhtelat = jlhtelat + 1
        End If
        ‘—— menghitung jumlah telat —————-’
        If Trim(rsabsen!ketmasuk) = “Permisi” Then
           jlhper = jlhper + 1
        End If
       
       
        ‘—— menghitung jumlah ontime —————-’
        If Trim(rsabsen!ketkeluar) = “On Time” Then
           jlhontime1 = jlhontime1 + 1
        End If
        ‘—— menghitung jumlah telat —————-’
        If Trim(rsabsen!ketkeluar) = “Lbh Awal” Then
           jlhtelat1 = jlhtelat1 + 1
        End If
        ‘—— menghitung jumlah telat —————-’
        If Trim(rsabsen!ketkeluar) = “Permisi” Then
           jlhper1 = jlhper1 + 1
        End If

        ‘—— jika di akhir keluar dari while ———’
        If rsabsen.EOF Then
           GoTo a
        Else
           rsabsen.MoveNext
        End If
     Loop
  End If
 
a:

crpcetak.GroupSelectionFormula = “{tabsen.Tanggal}>=Date(” & Mid(Trim(DtAwal.Value), 7, 4) & “,” & Mid(Trim(DtAwal.Value), 4, 2) & “,” & Mid(Trim(DtAwal.Value), 1, 2) & “) and {tabsen.Tanggal}<=Date(” & Mid(Trim(DtAkhir.Value), 7, 4) & “,” & Mid(Trim(DtAkhir.Value), 4, 2) & “,” & Mid(Trim(DtAkhir.Value), 1, 2) & “)  and {tabsen.noid}=’” & Trim(cmbid.Text) & “‘”
crpcetak.Formulas(4) = “jlhontime=’” & jlhontime & “‘”
crpcetak.Formulas(5) = “jlhper=’” & jlhper & “‘”
crpcetak.Formulas(6) = “jlhtelat=’” & jlhtelat & “‘”
crpcetak.Formulas(7) = “jlhontime1=’” & jlhontime1 & “‘”
crpcetak.Formulas(8) = “jlhper1=’” & jlhper1 & “‘”
crpcetak.Formulas(9) = “jlhtelat1=’” & jlhtelat1 & “‘”
End If
crpcetak.WindowTitle = “Laporan Absensi Pegawai”
crpcetak.Formulas(3) = “periode=’” & Format(DtAwal.Value, “dd-mm-yyyy”) & “  \  ” & Format(DtAkhir.Value, “dd-mm-yyyy”) & “‘”
crpcetak.WindowState = crptMaximized
crpcetak.Destination = crptToWindow
crpcetak.RetrieveDataFiles
crpcetak.Action = 1
cmdcetak.Enabled = False
End Sub

Private Sub cmdkeluar_Click()
Unload Me
End Sub

Private Sub DtAkhir_CloseUp()
If DtAkhir.Value < DtAwal.Value Then
  MsgBox “Tanggal Akhir Harus Lebih Besar Dari Tanggal Awal”, vbCritical, “Warning “
  DtAkhir.SetFocus
  DtAkhir.Value = Date
  OptSeluruh.Enabled = False
  OptPegawai.Enabled = False
Else
  OptSeluruh.Enabled = True
  OptPegawai.Enabled = True
End If
End Sub
Private Sub DtAwal_CloseUp()
If DtAwal.Value > DtAkhir.Value Then
  MsgBox “Tanggal Awal Harus Lebih Kecil Dari Tanggal Akhir”, vbCritical, “Warning “
  DtAwal.SetFocus
  DtAwal.Value = Date
  OptSeluruh.Enabled = False
  OptPegawai.Enabled = False
Else
  OptSeluruh.Enabled = True
  OptPegawai.Enabled = True
End If
End Sub

Private Sub Form_Activate()
jlhontime = 0
jlhontime1 = 0
jlhper = 0
jlhper1 = 0
jlhtelat = 0
jlhtelat1 = 0
jlh = 0
OptSeluruh.Value = False
OptPegawai.Value = False
OptSeluruh.Enabled = False
OptPegawai.Enabled = False
cmdcetak.Enabled = False
cmbid.Text = “”
cmbid.Enabled = False
DtAwal.SetFocus
DtAwal.Value = Date
DtAkhir.Value = Date
End Sub

Private Sub Form_Load()
Koneksi
rsabsen.Open “select * from tbiodata “, dbabsensi, adOpenDynamic, adLockOptimistic
If Not rsabsen.EOF Then
   rsabsen.MoveFirst
   Do While Not rsabsen.EOF
   cmbid.AddItem rsabsen!noid
   If Not rsabsen.EOF Then
     rsabsen.MoveNext
   Else
     Exit Sub
   End If
   Loop
End If
End Sub

Private Sub OptPegawai_Click()
cmbid.Enabled = True
cmbid.SetFocus
cmdcetak.Enabled = False
End Sub

Private Sub OptSeluruh_Click()
cmbid.Enabled = False
cmbid.Text = “”
If DtAwal.Value <= DtAkhir.Value Then
   cmdcetak.Enabled = True
   cmdcetak.SetFocus
Else
   cmdcetak.Enabled = False
End If
End Sub

Fakultas Hukum Universitas Indonesia (FH UI), kembali menghasilkan seorang doktor baru dalam bidang Ilmu Hukum, setelah Tiarsen Buaton berhasil mempertahankan disertasinya di hadapan  Senat Guru Besar Fakultas Hukum UI di  bawah pimpinan Dekan Fakultas Hukum UI Prof. Dr. Safri Nugraha, S.H., LL.M. Tiarsen Buaton lulus dengan yudisium sangat memuaskan. Acara berlangsung hari Sabtu pagi (21/03) di kampus UI Depok.

Disertasi yang diajukan berjudul “Peradilan Militer Dalam Kekuasaan Kehakiman Di Indonesia: Studi Tentang Kedudukan dan Yurisdiksinya”. Bertindak sebagai promotor Prof. Dr. Satya Arinanto, S.H., M.H. dengan ko-promotor Prof. H. Mardjono Reksodiputro, S.H., M.A. dan Dr. Agus Brotosusilo, S.H., M.A. Para penguji terdiri atas Prof. Dr. Sri Soemantri M, S.H., Prof. Dr.Andi Hamzah, S.H., Prof. Dr. Valerine J. L. Kriekhoff, S.H., M.A. dan  Dr. Jufrina Rizal, S.H., M.A.
Tiarsen mengambil S3 bidang ilmu hukum di UI sejak tahun 2003. Sebelumnya ia menyesaikan Program S2(1997) di Faculty of Law Sheffield University United Kingdom. Sarjana (S1)  diraihnya dari Fakultas Hukum Universitas Gajah Mada (1983), Yogyakarta. Saat ini ia menjabat sebagai kasi dukkum opsmil perang subdit bandukkum.

Sesuai dengan judul diatas, kemana anda setelah tamat SMA?? Kawin, Kuliah atau Kerja??

- Dengan anda kawin apakah bisa menjamin masa depan anda

- Dengan anda kuliah apakah bisa menjamin masa depan anda

- Dengan anda bekerja apakah bisa menjamin masa depan anda