LAMPIRAN : LISTING PROGRAM Visual Basic 6.0 Private Sub cmdLogin_Click() If conn.State = 1 Then conn.Close conn.Open " Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\waladi TA\PROJECT TA\LoginDB.mdb;Persist Security Info=False" If RS.State = 1 Then RS.Close RS.Open "select * from login where USER= '" & txtNama.Text & "' And PASSWORD = '" & txtSandi.Text & "'", conn, 3, 3 If Not RS.EOF Then MsgBox "LOGIN BERHASIL" Unload Me MDIForm1.Show Else MsgBox "Data Salah", vbCritical, "L O G I N" txtNama.Text = "" txtSandi.Text = "" txtNama.SetFocus End If End Sub Private Sub korp_Click() korps.Show Unload Me End Sub Private Sub NoPol_Click() frmNomor.Show Unload Me End Sub Private Sub out_Click() End End Sub Private Sub pemerinta_Click() pemerintah.Show Unload Me End Sub Private Sub Plat_Cantik_Click() platno.Show Unload Me End Sub Private Sub SEJARAH_Click() formSejarah.Show Unload Me End Sub
Private Sub Spesifikasi_Teknis_Click() frmSpesifikasiBaru.Show Unload Me End Sub Private Sub Spesifikasi_Teknis_Lama_Click(Index As Integer) frmSpesifikasiLama.Show Unload Me End Sub Private Sub Command1_Click() korps1.Show Unload Me End Sub Private Sub Command2_Click() MDIForm1.Show Unload Me End Sub
Private Sub Warna_Click() frmWarna.Show Unload Me End Sub Private Sub wilayah_Click() frmwilayah.Show Unload Me End Sub Private Sub Command1_Click() frmwilayah.Show Unload Me End Sub Private Sub cmdBatal_Click() Unload Me End Sub Private Sub Command1_Click() MDIForm1.Show Unload Me End Sub Private Sub Command2_Click() frmnomor2.Show Unload Me End Sub Private Sub Command2_Click() frmNomor.Show Unload Me
End Sub Private Sub Command3_Click() MDIForm1.Show Unload Me End Sub Private Sub Command1_Click() MDIForm1.Show Unload Me End Sub Private Sub Command2_Click() frmSpesifikasiLama.Show Unload Me End Sub Private Sub Command1_Click() MDIForm1.Show Unload Me End Sub Private Sub Command2_Click() frmSpesifikasiBaru.Show Unload Me End Sub Private Sub Command1_Click() frmwarna2.Show Unload Me End Sub Private Sub Command1_Click() sumatera.Show Unload Me End Sub Private Sub Command2_Click() Jawa.Show Unload Me End Sub Private Sub Command3_Click() Bali.Show Unload Me End Sub Private Sub Command4_Click() kalimantan.Show Unload Me End Sub Private Sub Command5_Click()
sulawesi.Show Unload Me End Sub Private Sub Command6_Click() papua.Show Unload Me End Sub Private Sub Command8_Click() MDIForm1.Show Unload Me End Sub Private Sub Command1_Click() MDIForm1.Show Unload Me End Sub Private Sub Command1_Click() frmwilayah.Show Unload Me End Sub
'Event Module Public conn As New ADODB.Connection Public RS As New ADODB.Recordset Private Sub Command1_Click() korps2.Show Unload Me End Sub Private Sub Command2_Click() MDIForm1.Show Unload Me End Sub Private Sub Command3_Click() korps.Show Unload Me End Sub
SURAT KETERANGAN Hasil Uji Program Tugas Akhir
Yang bertanda tangan di bawah ini, menerangkan bahwa Mahasiswa Tugas Akhir Program Diploma (D3) Teknik Informatika:
Nama
: WALADI HASAN
NIM
: 112406246
Program Studi
: DIPLOMA (D3) TEKNIK INFORMATIKA
Judul Tugas Akhir
:SISTEM
INFORMASI
PLAT
NOMOR
KENDARAAN
BERMOTOR DI INDONESIA MENGGUNAKAN VISUAL BASIC 6.0
Telah melaksanakan test program Tugas Akhir Mahasiswa tersebut di atas pada tanggal: 08 Januari 2015. Dengan Hasil : Sukses / Gagal
Demikian diterangkan untuk digunakan melengkapi syarat pendaftaran Ujian Meja Hijau Tugas Akhir Mahasiswa bersangkutan di Departemen Matematika FMIPA USU Medan. Medan, 08 Januari 2015 Dosen Pembimbing Program Studi D3 Teknik Informatika
Asima Manurung, S.Si, M.Si NIP. 19730315 199903 2 001
KARTU BIMBINGAN TUGAS AKHIR MAHASISWA Nama Mahasiswa NIM Judul Tugas Akhir
: WALADI HASAN : 112406246 :SISTEM INFORMASI PLAT NOMOR KENDARAAN BERMOTOR DI INDONESIA MENGGUNAKAN VISUAL BASIC 6.0 : Asima Manurung, S.Si, M.Si : September 2014 : Januari 2015
Dosen Pembimbing Tanggal Mulai Bimbingan Tanggal Selesai Bimbingan Tanggal Asisten Bimbingan
No.
Pembahasan pada Asistensi Mengenai, pada Bab :
Paraf Dosen Pembimbing
Keterangan
1. 2. 3. 4. 5. 6.
∗
Kartu ini harap dikembalikan ke Departemen Matematika bila bimbingan telah selesai.
Diketahui,
Disetujui,
Ketua Prodi D-3 Teknik Informatika
Pembimbing Utama
Dra. Elly Rosmaini, M.Si
Asima Manurung, S.Si, M.Si
NIP. 19600520 198503 2 002
NIP. 19730315 199903 2 001
