Gambar 1 Table Petugas. Gambar 2 Penambahan Komonen Pada Form

Modul Unit Kegiatan Mahasiswa (UKM) PUSDIKOM TAHUN 2009-2010 Menggandakan tanpa seijin yang berwenagan haram hukumnya

A. Pembutan input data petugas 1) Membuat table petugas Buat table dengan nama Tpetugas buat isi table seperti gambar di bawah ini Field name kd_ptgs nama tempat tgl_lahir jklm alamat telepon pass

Data type Text Text Text Date/Time Text Text Text Text

Field size 4 25 15 2 40 12 15

Index Primary key -

2) Membuat form input data petugas

Gambar 1 Table Petugas Dalam pembuatan form ini kita membutuhkan component tambahan da untuk menambah komonen tesebut caranya sangat mudah. Tekan Ctrl + T akan ada tampilan seperti gambar berikut :

Gambar 2 Penambahan Komonen Pada Form Tambahkan komponen-komponen berikut ini: • Microsoft ADO Data Control 6.0 (OLEDB) • Microsoft Masked Edit Control 6.0 • Microsoft Windows Commend Control 6.0 (SP4) Atur properties Komponen-komponen yang digunakan dalam pembuatan form petugas sebagai berikut By : Andi Wijaya


Komponen 1 form Komponen

Name Frm_petugas

Name

7 Label

Tidak dirubah

Komponen

5 commondButton

Name • • • • •

Komponen

6 TextBox

Caption Input Data Petugas

Caption Auto Zize • Kode Petuags • Nama • Tempat/Tgl/Lahir True • Jenis Kelamin • Alamat • Telepon • Pasword

Cmdsimpan Cmdbatal Cmdhapus Cmdkeluar Cmdcari Name Tkd_ptgs Tnm Temp Talmt Ttelp Tpas

Komponen Name ADODC PETUGAS komponen list Komonen maskedbox

Name tgl_lahir

Komponen 4 Frame

Komponen 2 OptionButton

Caption • &SIMPAN • &BATAL • &HAPUS • &KELUAR • &CARI Text -

Caption PETUGAS

name List1 Format dd/mm/yyyy

Mask ##/##/####

Name Frame1 Frame2 Frame3 Frame4

Caption Di kosongkan

Name Op Ol

Caption P L By : Andi Wijaya


3) Atur tampilan form seperti gambar dibawah ini:

Gambar 3 Form Input Data Petugas 4) Pengkodean pada form petugas Private Sub Form_Load() //menkoneksikan form ke data base pembayaran PETUGAS.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\DB\pembayaran.mdb;Persist Security Info=False" PETUGAS.RecordSource = "select * from tpetugas" //menghuubungkan ke table petugas PETUGAS.Refresh Do While Not PETUGAS.Recordset.EOF // lakukan selama table tidak kosong List1.AddItem PETUGAS.Recordset!kd_ptgs //menampilkan isi kode petugas ke list1 PETUGAS.Recordset.MoveNext Loop End Sub Private Sub Form_Activate() PETUGAS.Visible = False // menonaktifkan ADODC petugas tkd_ptgs.SetFocus // fokuskan saat form dijalan kan pada inputan kode petugas ttelp.MaxLength = "12" // inputan telepon max 12 digit tpas.PasswordChar = "*" // merubah inputan memjadi bintang cmdsimpan.Enabled = False // menonaktifkan tombol simpan cmdhapus.Enabled = False // menonaktifkan tombol hapus End Sub Private Sub tkd_ptgs_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then //inputan kode petugas kosong atau bukan angka maka By : Andi Wijaya


If tkd_ptgs = "" Or Not IsNumeric(tkd_ptgs) Then // tampilkan pesan MsgBox "Tidak Boleh", vbInformation, "Informasi" tkd_ptgs = "" // kosongkan inputan Tkd_ptgs tkd_ptgs.SetFocus Else // jika inputan benar tnm.SetFocus // fokuskan ke inputan tnm End If End If End Sub Private Sub tnm_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then If tnm = "" Then // jika inputan tnm kosong MsgBox "Tidak Boleh", vbInformation, "InformASI" tnm.SetFocus Else tnm = StrConv(tnm, vbProperCase) // merubah inputan menjadi huruf besar depannya ttemp.SetFocus End If End If If KeyAscii > 47 And KeyAscii < 58 Then KeyAscii = 0 // kode menonaktifka tombol 0-9 End Sub Private Sub ttemp_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then If ttemp = "" Then MsgBox "Tidak Boleh", vbInformation, "InformASI" ttemp.SetFocus Else ttemp = StrConv(ttemp, vbUpperCase) // merubah inputan menjadi huruf besar semua tgl_lahir.SetFocus End If End If If KeyAscii > 47 And KeyAscii < 58 Then KeyAscii = 0 End Sub Private Sub tgl_lahir_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then // jika inputan tanggal kosng atau bukan format tanggal If tgl_lahir = "" Or Not IsDate(tgl_lahir) Then MsgBox "Format tanggal salah", vbInformation, "Informasi" tgl_lahir.Mask = "" tgl_lahir.Text = "" tgl_lahir.Mask = "##/##/####" tgl_lahir.SetFocus By : Andi Wijaya


Else op.SetFocus End If End If End Sub Private Sub op_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then talmt.SetFocus End If End Sub Private Sub ol_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then talmt.SetFocus End If End Sub Private Sub talmt_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then Dim a As Integer // membuat variable a dengan tipe integer If talmt = "" Then MsgBox "Tidak Boleh", vbInformation, "Informasi" talmt.SetFocus Else // a samadengan pesan Yes atau No berupa pertanyan a = MsgBox("Apakah punya telepon", vbYesNo + vbQuestion, "Pertanyaan") If a = vbYes Then // jika punya telepon talmt = StrConv(talmt, vbProperCase) ttelp.SetFocus // fokuskan ke inputan telepon Else // jika tidak talmt = StrConv(talmt, vbProperCase) tpas.SetFocus // fokuskan ke inputan password End If End If End If End Sub Private Sub ttelp_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then If ttelp = "" Or Not IsNumeric(ttelp) Then MsgBox "Inputan salah", vbInformation, "informasi" ttelp.SetFocus Else tpas.SetFocus End If End If End Sub By : Andi Wijaya


Private Sub tpas_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then If tpas = "" Then MsgBox "Password harus diisi", vbInformation, "informasi" tpas.SetFocus Else cmdsimpan.Enabled = True cmdsimpan.SetFocus End If End If End Sub Private Sub cmdsimpan_Click() // menghubungkan ke tabel dengan kunci kd_ptgs pd tabel dan tkd_ptgs pd form PETUGAS.RecordSource = "select * from Tpetugas where kd_ptgs='" & tkd_ptgs & "'" PETUGAS.Refresh If PETUGAS.Recordset.EOF Then // jika tabel dalam keadaan kosong PETUGAS.Recordset.AddNew // menambah record baru // tambahkan inputan tkd_ptgs pd form ke record kd_ptgs pada tabel PETUGAS.Recordset!kd_ptgs = tkd_ptgs PETUGAS.Recordset!nama = tnm PETUGAS.Recordset!tempat = ttemp PETUGAS.Recordset!tgl_lahir = tgl_lahir If op = True Then // jika option pria di pilih maka PETUGAS.Recordset!jklm = "P" // simpan P Else PETUGAS.Recordset!jklm = "L" // 'jika tidak simpan L End If PETUGAS.Recordset!Alamat = talmt PETUGAS.Recordset!telepon = ttelp PETUGAS.Recordset!pass = tpas PETUGAS.Recordset.Update Else PETUGAS.Recordset.Clone // mengedit isi tabel PETUGAS.Recordset!kd_ptgs = tkd_ptgs PETUGAS.Recordset!nama = tnm PETUGAS.Recordset!tempat = ttemp PETUGAS.Recordset!tgl_lahir = tgl_lahir If op = True Then PETUGAS.Recordset!jklm = "P" Else PETUGAS.Recordset!jklm = "L" End If PETUGAS.Recordset!Alamat = talmt PETUGAS.Recordset!telepon = ttelp PETUGAS.Recordset!pass = tpas PETUGAS.Recordset.Update By : Andi Wijaya


End If Unload Me Load Me Me.Show End Sub Private Sub cmdbatal_Click() Unload Me Load Me Me.Show End Sub Private Sub cmdhapus_Click() Dim andi As Integer andi = MsgBox("Apakah petugas akan di hapus", vbQuestion + vbYesNo, "Konfirmasi") PETUGAS.RecordSource = "select * from Tpetugas where kd_ptgs='" & tkd_ptgs & "'" PETUGAS.Refresh If Not PETUGAS.Recordset.EOF Then If andi = vbYes Then PETUGAS.Recordset.Delete PETUGAS.Recordset.MoveFirst Unload Me Load Me Me.Show Else Unload Me Load Me Me.Show End If End If End Sub Private Sub cmdkeluar_Click() Unload Me End Sub Private Sub cmdcari_Click() PETUGAS.RecordSource = "select * from Tpetugas where kd_ptgs='" & tkd_ptgs & "'" PETUGAS.Refresh If Not PETUGAS.Recordset.EOF Then tnm = PETUGAS.Recordset!nama ttemp = PETUGAS.Recordset!tempat tgl_lahir = Format(PETUGAS.Recordset!tgl_lahir = tgl_lahir, "dd/mm/yyyy") If PETUGAS.Recordset!jklm = "P" Then op = True Else ol = True End If talmt = PETUGAS.Recordset!Alamat By : Andi Wijaya


ttelp = PETUGAS.Recordset!telepon tpas = PETUGAS.Recordset!pass cmdsimpan.Enabled = True cmdhapus.Enabled = True Else MsgBox "Data tidak terdaftar", vbInformation, "Informasi" Unload Me Load Me Me.Show End If End Sub Private Sub List1_Click() PETUGAS.RecordSource = "select * from Tpetugas where kd_ptgs='" & List1 & "'" PETUGAS.Refresh If Not PETUGAS.Recordset.EOF Then tkd_ptgs = PETUGAS.Recordset!kd_ptgs tnm = PETUGAS.Recordset!nama ttemp = PETUGAS.Recordset!tempat tgl_lahir = Format(PETUGAS.Recordset!tgl_lahir = tgl_lahir, "dd/mm/yyyy") If PETUGAS.Recordset!jklm = "P" Then op = True Else ol = True End If talmt = PETUGAS.Recordset!Alamat ttelp = PETUGAS.Recordset!telepon tpas = PETUGAS.Recordset!pass cmdsimpan.Enabled = True cmdhapus.Enabled = True End If End Sub B. Pembuatan input data siswa 1) Membuat table siswa Buat table dengan nama Tsiswa buat isi table seperti gambar di bawah ini Field name nis nama tempat tgl_lahir jklm alamat kelas telepon

Data type Text Text Text Date/Time Text Text Text Text

Field size 4 25 15 2 40 4 12

Index Primary key -

By : Andi Wijaya


Gambar 4 Table Siswa 2) Komponen-komponen yang digunakan dalam pembuatan form inpit data siswa Komponen 1 form Komponen

Name Frm_Siswa

Name

7 Label

Tidak dirubah

Komponen 5 commondButton

Name • • • •

Komponen

6 TextBox

Caption Input Data Siswa

Caption Auto Zize • Nis • Nama • Tempat/Tgl/Lahir True • Jenis Kelamin • Alamat • Kelas • Telepon

Cmdsimpan Cmdbatal Cmdhapus Cmdkeluar Name Tnis Tnm Temp Talmt Ttelp

Komponen Name ADODC SISWA komponen list Komonen maskedbox

Name tgl_lahir

Caption • &SIMPAN • &BATAL • &HAPUS • &KELUAR Text -

Caption SISWA name lissiswa Format dd/mm/yyyy

Mask ##/##/#### By : Andi Wijaya


Komponen 4 Frame

Komponen 2 OptionButton

Name Frame1 Frame2 Frame3 Frame4

Caption Di kosongkan

Name Oput Otri

Caption Putra Putri

3) Atur tampilan form seperti gambar dibawah ini.

Gambar 5 Form Input Data Siswa 4) Pengkodean pada form input data siswa Private Sub Form_Activate() tnis.SetFocus End Sub Private Sub Form_Load() SISWA.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\DB\pembayaran.mdb;Persist Security Info=False" SISWA.RecordSource = "select * from Tsiswa" SISWA.Refresh Do While Not SISWA.Recordset.EOF Lissiswa.AddItem SISWA.Recordset!nis SISWA.Recordset.MoveNext Loop comkls.AddItem "Satu" By : Andi Wijaya


comkls.AddItem "Dua" comkls.AddItem "Tiga" cmdsimpan.Enabled = False cmdhapus.Enabled = False End Sub Sub simpan() With SISWA.Recordset !nis = tnis !nama = tnm !tempat = ttemp !tgl_lahir = tgl_lahir If Oput = True Then !jklm = "Putra" Else !jklm = "Putri" End If !Alamat = talmt !kelas = comkls !telpon = ttelp .Update End With End Sub Sub tampil() With SISWA.Recordset tnis = !nis tnm = !nama ttemp = !tempat tgl_lahir = !tgl_lahir If !jklm = "Putra" Then Oput = True Else Otri = True End If talmt = !Alamat comkls = !kelas ttelp = !telpon End With End Sub Sub kosong() Unload Me Load Me Me.Show End Sub

By : Andi Wijaya


Sub TidakAda() tnm = Empty ttemp = Empty tgl_lahir.Mask = Empty tgl_lahir.Text = Empty tgl_lahir.Mask = "##/##/####" Oput = False Otri = False talmt = Empty comkls = Empty ttelp = Empty tfoto = Empty End Sub Private Sub tnis_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then If tnis = "" Or Not IsNumeric(tnis) Then MsgBox "Tidak Boleh", vbInformation, "Informasi" tnis = "" Else SISWA.RecordSource = "select * from Tsiswa where nis='" & tnis & "'" SISWA.Refresh If Not SISWA.Recordset.EOF Then tampil tgl_lahir = Format(Date, "dd/mm/yyyy") cmdsimpan.Enabled = True cmdsimpan.Caption = "&EDIT" cmdhapus.Enabled = True Else TidakAda cmdsimpan.Enabled = False cmdhapus.Enabled = False cmdsimpan.Caption = "&SIMPAN" End If tnm.Enabled = True tnm.SetFocus End If End If End Sub Private Sub tnm_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then If tnm = "" Or IsNumeric(tnm) Then MsgBox "Tidak Boleh", vbInformation, "Informasi" tnm = "" Else tnm = StrConv(tnm, vbProperCase) ttemp.SetFocus End If By : Andi Wijaya


End If If KeyAscii > 47 And KeyAscii < 58 Then KeyAscii = 0 End Sub Private Sub ttemp_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then If ttemp = "" Or IsNumeric(ttemp) Then MsgBox "Tidak Boleh", vbInformation, "Informasi" ttemp = "" Else ttemp = StrConv(ttemp, vbProperCase) tgl_lahir.SetFocus End If End If If KeyAscii > 47 And KeyAscii < 58 Then KeyAscii = 0 End Sub Private Sub tgl_lahir_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then If tgl_lahir = "" Or Not IsDate(tgl_lahir) Then MsgBox "Tidak Boleh", vbInformation, "Informasi" tgl_lahir.Mask = Empty tgl_lahir.Text = Empty tgl_lahir.Mask = "##/##/####" Else Oput.SetFocus End If End If End Sub Private Sub Oput_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then talmt.SetFocus End If End Sub Private Sub Otri_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then talmt.SetFocus End If End Sub Private Sub talmt_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then If talmt = "" Then MsgBox "Tidak Boleh", vbInformation, "Informasi" Else talmt = StrConv(talmt, vbProperCase) comkls.SetFocus By : Andi Wijaya


End If End If End Sub Private Sub comkls_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then If comkls = "" Or comkls.ListIndex = -1 Then MsgBox "Tidak Boleh, Tekan Panah Bawah Untuk Memilih", vbInformation, "Informasi" comkls = "" Else Dim a As Integer a = MsgBox("Apakah Punya No telpon", vbYesNo + vbQuestion, "Pertanyaan") If a = vbYes Then ttelp.SetFocus Else cmdsimpan.Enabled = True cmdsimpan.SetFocus End If End If End If End Sub Private Sub ttelp_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then If ttelp = "" Or Not IsNumeric(ttelp) Then MsgBox "Tidak Boleh", vbInformation, "Informasi" ttelp = "" Else cmdsimpan.Enabled = True cmdsimpan.SetFocus End If End If End Sub Private Sub cmdsimpan_Click() SISWA.RecordSource = "select * from Tsiswa where nis='" & tnis & "'" SISWA.Refresh If Not SISWA.Recordset.EOF Then SISWA.Recordset.Clone simpan kosong Else SISWA.Recordset.AddNew simpan kosong End If End Sub By : Andi Wijaya


Private Sub cmdbatal_Click() kosong End Sub Private Sub cmdhapus_Click() SISWA.RecordSource = "select * from Tsiswa where nis='" & tnis & "'" SISWA.Refresh If Not SISWA.Recordset.EOF Then SISWA.Recordset.Delete SISWA.Recordset.MoveFirst kosong End If End Sub Private Sub cmdhapus_Click() SISWA.RecordSource = "select * from Tsiswa where nis='" & tnis & "'" SISWA.Refresh If Not SISWA.Recordset.EOF Then SISWA.Recordset.Delete SISWA.Recordset.MoveFirst kosong End If End Sub Private Sub cmdkeluar_Click() Unload Me End Sub 5) 6) Vfdgsg 7)

C. Pembuatan input jenis pembayran D. Pembuatan form transaksi

By : Andi Wijaya

Gambar 1 Table Petugas. Gambar 2 Penambahan Komonen Pada Form

Recommend Documents