KARTU BIMBINGAN TUGAS AKHIR MAHASISWA

KEMENTERIAN PENDIDIKAN NASIONAL

UNIVERSITAS SUMATERA UTARA

FAKULTAS MATEMATIKA DAN ILMU PENGETAHUAN ALAM Jln. Bioteknologi No.1 Kampus USU Padang Bulan Medan-20155 Telp. (061) 8211050, 8214290, Fax. (061) 8214290

KARTU BIMBINGAN TUGAS AKHIR MAHASISWA

Nama Mahasiswa Nomor Induk Mahasiswa Judul Tugas Akhir

: SRI RAHMAH S : 072406057 : Aplikasi Microsoft Visual Basic 6.0 Untuk Sistem Pengolahan Data Personil Jasmani Militer Iskandar Muda Banda Aceh Dosen Pembimbing : Syahril Efendi, S.Si, MIT Tanggal Mulai Bimbingan : Tanggal Selesai Bimbingan :

No

Tanggal Asisten Bimbingan

Pembahasan pada asistensi Mengenai Bab

Paraf Dosen Pembimbing

Keterangan

*Kartu ini harap dikembalikan ke departemen matematika bila bimbingan telah selesai. Diketahui

Disetujui

Ketua departemen

Dosen Pembimbing

Dr. Saib Suwilo, M.Sc

Syahril Efendi S.Si, MIT

NIP: 196401091988031004

NIP: 196711101996021001

Universitas Sumatera Utara

SURAT KETERANGAN Hasil Uji Program Tugas Akhir

Yang bertanda tangan di bawah ini, menerangkan bahwa mahasiswa Tugas Akhir program Diploma III Ilmu Komputer : Nama Mahasiswa

: SRI RAHMAH S

Nomor Induk Mahasiswa

: 072406057

Program Studi

: DIPLOMA III ILMU KOMPUTER

Judul Tugas Akhir

: APLIKASI MICROSOFT VISUAL BASIC 6.0 UNTUK SISTEM PENGOLAHAN DATA PERSONIL JASMANI MILITER ISKANDAR MUDA BANDA ACEH

Telah melaksanakan tes program Tugas Akhir mahasiswa tersebut di atas pada tanggal : Dengan hasil : Sukses/Gagal Demikian diterangkan untuk digunakan melengkapi syarat pendaftaran ujian meja hijau Tugas Akhir Mahasisa bersangkutan di departemen matematika FMIPA USU Medan.

Medan, Mei 2010 Dosen pembimbing Program studi D-3 Ilmu Komputer

(Syahril Efendi, S.Si, MIT) NIP: 196711101996021001


LISTING PROGRAM

Form Login

Private Sub cmd_Login_Click() With ado_login.Recordset If !UserName = txt_name And !Password = txt_password Then 'ngambil user dan pass Pesan = MsgBox("Login Sukses ", 0, "KONFIRMASI") MDIForm1.Show Unload Me txt_name.Text = "" txt_password.Text = "" Else If Trim(!Password) = Trim(txt_password.Text) Then Unload Me 'tutup form login Else Pesan = MsgBox("Maaf "password")

Password

Anda

Salah",

vbOKOnly

+

vbCritical,

txt_name.Text = "" 'clear txt_password.Text = "" txt_name.SetFocus 'set fokus End If End If End With End Sub


Menu Utama

Private Sub mnATLIT_Click() frm_nominatif.Show End Sub

Private Sub mnDAFTARPRAJURIT_Click() frm_daftarpersonil.Show End Sub

Private Sub mnDairit_Click() frm_datadiri.Show End Sub

Private Sub mnDari_Click() frm_caridatadiri.Show End Sub

Private Sub mnDarit_Click() frm_caridaftar.Show End Sub

Private Sub mnDatadiri_Click() frm_cetak.Show End Sub

Private Sub mnKEPELATIHAN_Click() frm_seksikepelatihan.Show End Sub Private Sub mnNominatif_Click() frm_carinominatif.Show End Sub


Private Sub mnPENGENDALIAN_Click() frm_seksipengendalian.Show End Sub

Private Sub mnPIMPINAN_Click() frm_kopim.Show End Sub

Private Sub mnPRASARANA_Click() frm_seksiprasarana.Show End Sub

Private Sub mnTata_Click() frm_seksitatausaha.Show End Sub

Private Sub mnKELUAR_Click() Unload Me End Sub

Form Daftar Prajurit

Private Sub cmd_simpan_Click() With ado_daftarpersonil.Recordset .AddNew !NRP = txt_nrp.Text !NAMA = txt_nama.Text !JENISKELAMIN = txt_jenkel.Text !Agama = txt_agama.Text !PANGKATCORP = txt_pangkat.Text .Update End With


End Sub

Private Sub cmd_hapus_Click() hapus = MsgBox("Anda yakin data akan dihapus???", vbYesNo + vbInformation, "menghapus Record") If hapus = vbYes Then ado_daftarpersonil.Recordset.Delete ado_daftarpersonil.Recordset.MoveFirst End If End Sub

Private Sub cmd_keluar_Click() a = MsgBox("Yakin mau keluar dari form ini?", vbYesNo + vbInformation, "PESAN") If a = vbYes Then Unload Me End If End Sub

Private Sub cmd_kosong_Click() txt_nrp.Text = "" txt_nama.Text = "" txt_jenkel.Text = "" txt_agama.Text = "" txt_pangkat.Text = "" End Sub

Form Data Diri Prajurit

Private Sub cmd_simpan_Click() With ado_datadiri.Recordset .AddNew !NRP = txt_nrp.Text


!NAMA = txt_nama.Text !PANGKATCORP = txt_pangkat.Text !TEMPAT_LAHIR = txt_tempatlahir.Text !TANGGAL_LAHIR = txt_tanggallahir.Text !Agama = txt_agama.Text !STATUS_PERNIKAHAN = txt_statusnikah.Text !STATUS_RUMAH = txt_statusrumah.Text .Update End With End Sub

Private Sub cmd_hapus_Click() hapus = MsgBox("Anda yakin data akan dihapus???", vbYesNo + vbInformation, "menghapus Record") If hapus = vbYes Then ado_datadiri.Recordset.Delete ado_datadiri.Recordset.MoveFirst End If End Sub


Private Sub cmd_kosong_Click() txt_nrp.Text = "" txt_nama.Text = "" txt_pangkat.Text = "" txt_tempatlahir.Text = "" txt_tanggallahir.Text = ""


txt_agama.Text = "" txt_statusnikah.Text = "" txt_statusrumah.Text = "" End Sub

Form Atlit

Private Sub cmd_simpan_Click(Index As Integer) With ado_nominatif.Recordset

.AddNew

!NAMA = txt_nama.Text !PANGKATCORP = txt_pangkat.Text !BAGIAN = txt_bagian.Text !CABANG = txt_cabang.Text !TINGKAT = txt_tingkat.Text .Update

End With End Sub Private Sub cmd_hapus_Click(Index As Integer) hapus = MsgBox("Anda yakin data akan dihapus???", vbYesNo + vbInformation, "menghapus Record") If hapus = vbYes Then ado_nominatif.Recordset.Delete ado_nominatif.Recordset.MoveFirst End If End Sub



Private Sub cmd_kosong_Click() txt_nama.Text = "" txt_pangkat.Text = "" txt_bagian.Text = "" txt_cabang.Text = "" txt_tingkat.Text = "" End Sub

Form

Kelompok Pimpinan

Private Sub cmd_simpan_Click() With ado_kopim.Recordset .AddNew !NAMA = txt_nama.Text !PANGKATCORP = txt_pangkat.Text !JABATAN = txt_jabatan.Text .Update End With End Sub

Private Sub cmd_hapus_Click()


hapus = MsgBox("Anda yakin data akan dihapus???", vbYesNo + vbInformation, "menghapus Record") If hapus = vbYes Then ado_kopim.Recordset.Delete ado_kopim.Recordset.MoveFirst End If End Sub


Private Sub cmd_kosong_Click() txt_nama.Text = "" txt_pangkat.Text = "" txt_jabatan.Text = "" End Sub

Form Seksi Kepelatihan


Private Sub cmd_simpan_Click() With ado_sitih.Recordset .AddNew !NAMA = txt_nama.Text !PANGKATCORP = txt_pangkat.Text !JABATAN = txt_jabatan.Text .Update End With End Sub

Private Sub cmd_hapus_Click() hapus = MsgBox("Anda yakin data akan dihapus???", vbYesNo + vbInformation, "menghapus Record") If hapus = vbYes Then ado_sitih.Recordset.Delete ado_sitih.Recordset.MoveFirst End If End Sub


Private Sub cmd_kosong_Click() txt_nama.Text = "" txt_pangkat.Text = "" txt_jabatan.Text = ""


End Sub

Form Seksi Prasarana

Private Sub cmd_simpan_Click() With ado_prasarana.Recordset .AddNew !NAMA = txt_nama.Text !PANGKATCORP = txt_pangkat.Text !JABATAN = txt_jabatan.Text .Update End With End Sub

Private Sub cmd_hapus_Click() hapus = MsgBox("Anda yakin data akan dihapus???", vbYesNo + vbInformation, "menghapus Record") If hapus = vbYes Then ado_prasarana.Recordset.Delete ado_prasarana.Recordset.MoveFirst End If End Sub




Form Seksi Pengendalian

Private Sub cmd_simpan_Click() With ado_kepelatihan.Recordset .AddNew !NAMA = txt_nama.Text !PANGKATCORP = txt_pangkat.Text !JABATAN = txt_jabatan.Text .Update End With End Sub

Private Sub cmd_hapus_Click() hapus = MsgBox("Anda yakin data akan dihapus???", vbYesNo + vbInformation, "menghapus Record") If hapus = vbYes Then ado_kepelatihan.Recordset.Delete ado_kepelatihan.Recordset.MoveFirst End If End Sub

Private Sub cmd_keluar_Click() a = MsgBox("Yakin mau keluar dari form ini?", vbYesNo + vbInformation, "PESAN") If a = vbYes Then


Unload Me End If End Sub


Form Seksi Tata Usaha

Private Sub cmd_simpan_Click() With ado_tatausaha.Recordset .AddNew !NAMA = txt_nama.Text !PANGKATCORP = txt_pangkat.Text !JABATAN = txt_jabatan.Text .Update End With End Sub

Private Sub cmd_hapus_Click() hapus = MsgBox("Anda yakin data akan dihapus???", vbYesNo + vbInformation, "menghapus Record") If hapus = vbYes Then ado_tatausaha.Recordset.Delete ado_tatausaha.Recordset.MoveFirst End If End Sub




Form Pencarian Daftar Prajurit

Private Sub cmd_cari_Click() Dim mkode As String Dim msyarat As String mkode = txt_nrp.Text msyarat = "NRP = '" & mkode & " ' " ado_daftar.Recordset.Find msyarat If ado_daftar.Recordset.EOF Then Pesan = MsgBox("Data Tidak Ditemukan", vbOKOnly + vbCritical, "Pencarian Gagal") ado_daftar.Recordset.MoveFirst txt_nrp = "" End If End Sub

Private Sub cmd_tutup_Click()


Unload Me End Sub

Form Pencarian Data Diri Prajurit

Private Sub cmd_cari_Click() Dim mkode As String Dim msyarat As String mkode = txt_nrp.Text msyarat = "NRP = '" & mkode & " ' " ado_cardatdir.Recordset.Find msyarat If ado_cardatdir.Recordset.EOF Then Pesan = MsgBox("Data Tidak Ditemukan", vbOKOnly + vbCritical, "Pencarian Gagal") ado_cardatdir.Recordset.MoveFirst txt_nrp = "" End If End Sub

Private Sub cmd_tutup_Click() Unload Me End Sub

Form Cetak Daftar Prajurit

Private Sub cmd_cetak_Click(Index As Integer) DataReport3.Show End Sub


Private Sub cmd_tutup_Click() Unload Me End Sub

Form Keluar Unload me End Sub


KARTU BIMBINGAN TUGAS AKHIR MAHASISWA

Recommend Documents