tutorial-membuat-blog-gratis-di-wordpress-com-baru

Jadwal Ujian Akhir Semester Politeknik 17 Agustus 1945

kelas pagi

kelas sore

STUDI KASUS RENTAL VCD

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

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

RC.GroupSelectionFormula = “{SISWA.AWAL}>=Date(” & Mid(Trim(DAWAL.Value), 7, 4) & “,” & Mid(Trim(DAWAL.Value), 4, 2) & “,” & Mid(Trim(DAWAL.Value), 1, 2) & “) and {SISWA.AWAL}<=Date(” & Mid(Trim(DAKHIR.Value), 7, 4) & “,” & Mid(Trim(DAKHIR.Value), 4, 2) & “,” & Mid(Trim(DAKHIR.Value), 1, 2) & “)”

Dim jlh, jlhontime, jlhontime1, jlhper, jlhper1, jlhtelat, jlhtelat1 As Integer
Private Sub cmbid_Click()
If Trim(cmbid.Text) <> “” Then
   cmdcetak.Enabled = True
   cmdcetak.SetFocus
End If
End Sub

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

Dim Mydb As ADODB.Connection Dim TBiodata As New ADODB.Recordset Private Sub Command1_Click() CR.WindowState = crptMaximized CR.SelectionFormula = “{registeri.no_pin_peg} = ‘” & Me.xnama.Text & “‘” CR.Action = 1 End Sub Private Sub Command2_Click() Unload Me End Sub Private Sub Form_Load() Set Mydb = New ADODB.Connection Set registeri = New ADODB.Recordset Mydb.Open “Provider=Microsoft.Jet.OLEDB.4.0;Data Source=” & App.Path & “\dataku.mdb;Persist Security Info=False” Perintah = “Select * from registeri Order By no_pin_peg” registeri.Open Perintah, Mydb, adOpenDynamic, adLockOptimistic If Not registeri.EOF Then With registeri .MoveFirst While Not .EOF Me.xnama.AddItem registeri!no_pin_peg .MoveNext Wend End With End If End Sub

Berhubung Ujian Nasional SMK dan SLTP seluruh kota Tebing Tinggi di percayakan Poltek Tugu sebagai kordinator team pemantau Ujian Nasional mulai tgl 20 s/d 23, untuk itu seluruh dosen poltek dilibatkan untuk memantau ke lapangan. Dan untuk adek-adek kami mahasiswa supaya maklum dan mohon dukungan kerjasama dan dosen nantinya akan memberikan tugas-tugas sebagai pengganti kuliah seperti biasanya, terimakasih……

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.

 

Banyak orang berpendapat bahwa yang paling menentukan masa depan adalah ketika tamat SMA, dalam hal ini terlepas dari segi cultur dan religi..

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