sistem laporan jadwal persidangan menggunakan visual basic 6.0
Oke, ini postingan pertama tentang kuliah saya.. memasuki semester 5
kemarin langsung di adakannya kerja praktek. Dan tempat kp yang saya pilih
adalah di kantor kejaksaan.. setelah kerja praktek, yap! Setiap mahasiswa di
wajibkan membuat laporan kerja praktek dan project.. lalu saya mencoba membuat
“sistem laporan jadwal persidangan pada kejaksaan negeri.... menggunakan visual
basic 6.0”
Project ini berisi 5 form..
1. form menu utama
Form menu utama berisi :
a. file
- login
b. data
- data tersangka
- data penuntutan
c. proses
- data berkas perkara
d. pengingat
- pengingat jadwal persidangan
e. exit
2. form login
Setelah muncul menu utama, lalu agar bisa mengakses data, proses,
pengingat maupun laporan.. anda harus login sesuai username dan password yang
di tentukan.
Setelah login, maka anda bisa mengakses data, proses, laporan dan
pengingat karna komponen tersebut akan aktif otomatis setelah login.
Dan tampilan form data tersangka sebagai berikut:
Form data tersangka memiliki beberapa button, yaitu add, edit, save,
delete, close, print, dan find (pencarian dengan nama). Koneksi database menggunakan adodc.
4. form data penuntutan
Form data penuntutan memiliki beberapa button, yaitu add, edit, save,
delete, close, print, dan find (pencarian dengan nomor perkara). Koneksi
database menggunakan adodc.
5. form berkas perkara
Ini adalah form ini, yang terpenting..
Form data penuntutan memiliki beberapa button, yaitu add, edit, save,
delete, close, print, dan find (pencarian dengan nama). Koneksi database
menggunakan adodc.
Dan di kolom di hentikannya penyidikan dan jadwal persidangan, saya
kasih loncatan 3 hari.. dimana setiap mengisi tanggal di hentikannya penyidikan
maka jadwal persidangan akan otomatis bisa terupdate, meloncat 3 hari setelah
hari di hentikannya penyidikan.. saya tidak tau pasti harinya tdi tentukannya
berapa hari, tapi untuk sementara saya memilih 3 hari.. menggunakan komponen
DTPicker 1 dan DTPiker2
Berikut scrip nya :
Private Sub DTPicker1_CloseUp()
DTPicker2.Day = DTPicker1.Day + 3
End Sub
Private Sub Form_Load()
DTPicker2.Day = DTPicker2.Day + 3
End Sub
6. form pengingat
Form pengingat merupakan aplikasi tambahan saja, dan sangat sederhana..
berupa alarm pengingat, ketika waktu yang telah di tentukan sesuai jadwal
persidangan maka alarm tersebut akan terus berbunyi sebelum user mengklik
button berhenti..
Berikut scrip alarm nya :
Dim alarm As Boolean
Private Sub command1_Click()
If alarm = True Then
Timer2.Enabled = False
Command1.Caption = "aktif"
alarm = False
Else
Command1.Caption = "tidak
aktif"
alarm = True
End If
End Sub
Private Sub command2_Click()
Unload Me
End Sub
Private Sub Form_Load()
alarm = False
End Sub
Private Sub Timer1_Timer()
Label2.Caption = Time
If Text1.Text = Label2.Caption And
alarm = True Then
Timer2.Enabled = True
End If
End Sub
Private Sub Timer2_Timer()
Beep
End Sub
0 comments