BAB IV IMPLEMENTASI DAN PENGUJIAN
4. 1
Instalasi Software
Dalam pembuatan program ini penulis menggunakan Visual Basic. Net dalam menjalankan program aplikasi ini dan menggunakan aplikasi Crystal Report 8 dalam menjalankan aplikasi laporannya. 4. 2
Implementasi
Rancangan-rancangan yang telah dibuat di atas akan menghasilkan suatu implementasi yang bisa dipakai oleh user. Hasil dari implementasi tersebut yaitu : 1. Layar Login Pada implementasi layar login pengguna harus melakukan login terlebih dahulu untuk bisa menggunakan aplikasi pendataan penduduk ini :
Gambar 4.1 Layar Login
66
67
Penggalan list program layar login Sub login() Panel3.Hide() toolStrip1.Enabled = True ToolStripStatusLabel6.Text = rs.Fields("Nama").Value ToolStripStatusLabel7.Text = " | Anda Kami Kenali sebagai : " ToolStripStatusLabel9.Text = rs.Fields("Status").Value End Sub
Keterangan : Sebelum masuk ke dalam aplikasi pengguna terlebih dahulu harus meemasukkan user id dan password id terlebih dahulu. Jika user id dan password benar, maka pengguna dapat melakukan login. Tetapi jika user id dan password tidak benar, maka pengguna tidak dapat melakukan login.
Gambar 4.2 Jika User ID kosong
68
Penggalan list program jika user id kosong Private Sub TxtNameAdmin_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TxtNameAdmin.KeyPress If e.KeyChar = Chr(13) Then If TxtNameAdmin.Text = "" Then Call Popup() Label_MSG.Text = "User Id tidak boleh Kosong!!!" TxtNameAdmin.Enabled = True TxtNameAdmin.Focus() Else TxtNameAdmin.Enabled = False TxtPassAdmin.Enabled = True TxtPassAdmin.Focus() End If End If End Sub
Keterangan : Sebelum masuk ke dalam aplikasi ini, pengguna terlebih dahulu memasukkan user id, jika pengguna tidak memasukkan user id maka aplikasi akan menampilkan jendela peringatan.
Gambar 4.3 Jika Password Kosong
69
Penggalan list program jika password kosong Private Sub TxtPassAdmin_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TxtPassAdmin.KeyPress If e.KeyChar = Chr(13) Then If TxtPassAdmin.Text = "" Then Call Popup() Label_MSG.Text = "Password tidak boleh Kosong !!!" TxtPassAdmin.Enabled = True TxtPassAdmin.Focus() Else TxtPassAdmin.Enabled = False BtnOkAdm.Enabled = True BtnOkAdm.Focus() End If End If End Sub
Keterangan : Sebelum masuk ke dalam aplikasi ini, pengguna terlebih dahulu memasukkan password id, jika pengguna tidak memasukkan password id maka aplikasi akan menampilkan jendela peringatan.
Gambar 4.4 Jika berhasil login
70
Penggalan list program jika berhasil login Private Sub BtnOkAdm_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnOkAdm.Click querystr = (" select * from Admin where UserId='" & TxtNameAdmin.Text & "' and PassId='" & TxtPassAdmin.Text & "' and Status='ADMIN'") rs = mykonek.openrs(querystr) If Not rs.EOF Then Call login() Call Popup() Button1.Focus() Label_MSG.Text = "Selamat Menggunakan Program ini!!!" tbToolStripStyle.Enabled = True Else Call Popup() Button1.Focus() Label_MSG.Text = "Maaf ID Tidak Ditemukan !!!" Call logoff() TxtNameAdmin.Focus() End If End Sub
Keterangan : Jika user id dan password id yang di masukkan benar, maka aplikasi akan menampilkan jendela peringatan dan aplikasi sudah dapat digunakan.
2. Layar Utama Pada implementasi layar utama terdapat menu Data Master, menu Laporan, menu Petunjuk dan menu Keluar.
71
Gambar 4.5 Layar Utama Penggalan list program layar utama Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load PanelBulan.Visible = False PanelLaporan.Visible = False Call logoff() panelMSG.Visible = False Me.IsMdiContainer = True Petunjuk.MdiParent = Me data_penduduk.MdiParent = Me data_penduduk_2.MdiParent = Me ViewLap.MdiParent = Me ToolStripStatusLabel1.Text = Format(TimeString) ToolStripStatusLabel2.Text = Format(DateString) End Sub
Keterangan : Setelah melakukan login, pengguna dapat masuk ke layar utama, yang berisi pilihan menu Data, menu Laporan, menu Petunjuk dan keluar dari aplikasi. 3. Implementasi Layar Menu Data Pada implementasi layar menu data terdapat submenu Pendataan Penduduk dan submenu Lihat Data Penduduk.
72
a. Submenu Pendataan Penduduk
Gambar 4.6 Layar Detail Kepala Keluarga Penggalan list program menu detail kepala keluarga Private Sub konter() Dim urut As String Querynya_1 = "Select * From table_kepala_kel" Rs_1nya = mykonek.openrs(Querynya_1) With Rs_1nya If .RecordCount = 0 Then urut = "KL." & "0001" Else .MoveLast() urut = "KL." & Format(Val(Strings.Right(Rs_1nya("id_kepala").OriginalValue , 4)) + 1, "0000") End If txt1_NoUrut.Text = urut txt_Jml_anggota.Text = "1" End With End Sub
Keterangan : Pada form detail kepala keluarga, pengguna terlebih dahulu harus mengisi form detail kepala keluarga dengan lengkap dan benar. Setelah semuanya terpenuhi pengguna baru bisa mengisi form selanjutnya.
73
Gambar 4.7 Layar Detail Alamat Keluarga Penggalan list program menu detail alamat keluarga
Private Sub konter2() Dim urut2 As String Querynya_1 = "Select * From table_alamat_kel" Rs_1nya = mykonek.openrs(Querynya_1) With Rs_1nya If .RecordCount = 0 Then urut2 = "AL" & "0000001" Else .MoveLast() urut2 = "AL" & Format(Val(Strings.Right(Rs_1nya("id_alamat").OriginalValue , 7)) + 1, "0000000") End If txt_idalamat.Text = urut2 End With End Sub
Keterangan : Pada form detail alamat keluarga, pengguna terlebih dahulu harus mengisi form detail kepala keluarga dengan lengkap dan benar. Setelah semuanya terpenuhi pengguna baru bisa mengisi form detail alamat keluarga.
74
Gambar 4.8 Layar Detail Anggota Keluarga Penggalan list program menu detail anggota keluarga Private Sub konter3() Dim urut3 As String Querynya_1 = "Select * From table_anggota_kel where id_kepala='" & txt2_NoUrut.Text & "'" Rs_1nya = mykonek.openrs(Querynya_1) With Rs_1nya If .RecordCount = 0 Then urut3 = txt2_NoUrut.Text & ".001" Else .MoveLast() urut3 = txt2_NoUrut.Text & "." & Format(Val(Strings.Right(Rs_1nya("id_detail").OriginalValue , 3)) + 1, "000") End If txt3_idanggota.Text = urut3 End With Querynya_1 = "Select * From table_kepala_kel where id_kepala='" & txt2_NoUrut.Text & "'" Rs_1nya = mykonek.openrs(Querynya_1) txt_Jml_anggota.Text = Val(Rs_1nya("jml_anggota").Value) txt_jmlang.Text = Val(txt_Jml_anggota.Text) + 1 End Sub
Keterangan : Pada form detail anggota keluarga, pengguna terlebih dahulu harus mengisi form detail kepala keluarga dan form detail alamat dengan lengkap dan benar. Setelah semuanya terpenuhi pengguna baru bisa mengisi form detail anggota keluarga.
75
b.
Implementasi Submenu Lihat Data Penduduk Pada implementasi layar lihat data penduduk pengguna dapat melihat detail
dari suatu keluarga dengan terlebih dahulu mencari nama kepala keluarga yang akan dilihat detail keluarganya. Dalam menu lihat data penduduk ini pengguna dapat merubah data suatu keluarga, seperti edit kepala keluarga, menambahkan anggota keluarga, menghapus anggota keluarga, edit anggota keluarga, dan edit alamat keluarga, serta terdapat catatan kependudukan jika ada perubahan dalam suatu keluarga. Dalam menu lihat data penduduk juga terdapat perintah untuk mencetak data keluarga.
Gambar 4.9 Layar Lihat Data Penduduk
Penggalan list program lihat data penduduk Sub Cari_Keyword() Call Clear_List() Dim i, x, nom As Integer ListView1.Items.Clear() If ListView1.Items.Count <> 0 Then nom = ListView1.Items.Count Else nom = 0 End If
76
lanjutan list program menu lihat data penduduk querystr2 = "select * from table_kepala_kel where nama LIKE '%" & Trim(txt_cari.Text) & "%' or id_kepala LIKE '%" & Trim(txt_cari.Text) & "%' order by id_kepala ASC" rs = mykonek.openrs(querystr2) i = 0 If Not rs.EOF Then rs.MoveFirst() Do While Not rs.EOF x = Val(counter.Text) counter.Text = Str(Val(counter.Text) + 1) i = i + 1 ListView1.Items.Add(i) ListView1.Items(nom).SubItems.Add(rs.Fields("id_kepala").Value) ListView1.Items(nom).SubItems.Add(rs.Fields("nama").Value) nom = nom + 1 rs.MoveNext() Loop If txt_cari.Text = "" Or nom = "0" Then PanelAuto.Visible = False Else PanelAuto.Visible = True PanelAuto.Width = "471" PanelAuto.Height = "268" End If rs.Close() End If End Sub
Keterangan : Pada form lihat data penduduk, sebelum nya pengguna harus terlebih dahulu memasukkan nama kepala keluarga yang diinginkan.setelah itu aplikasi akan menampilkan beberapa nama kepala keluarga berdasarkan huruf awalnya, kemudian pengguna dapat memilih nama yang di kehendaki.
77
Gambar 4.10 Layar Edit Kepala Keluarga dan Alamat Keluarga
Penggalan list program edit kepala keluarga dan alamat keluarga Sub TampilEdit() Querynya_1 = " select * from table_kepala_kel where id_kepala='" & txt_id.Text & "'" Rs1_nya = mykonek.openrs(Querynya_1) txt1_nama_kepala.Text = Rs1_nya.Fields("nama").Value txt1_namaAyah.Text = Rs1_nya.Fields("nama_bapak").Value txt1_namaIbu.Text = Rs1_nya.Fields("nama_ibu").Value txt1_JK.Text = Rs1_nya.Fields("jenis_kelamin").Value txt1_tempat.Text = Rs1_nya.Fields("tempat_TTL").Value txt1_Gol.Text = Rs1_nya.Fields("gol_darah").Value txt1_Agama.Text = Rs1_nya.Fields("agama").Value txt1_pendidikan.Text = Rs1_nya.Fields("pendidikan").Value txt1_kerja.Text = Rs1_nya.Fields("pekerjaan").Value txt1_NoUrut.Text = txt_id.Text txt1_tgl.Text = "1" txt1_bln.Text = "JANUARI" txt1_th.Text = "1960" txt1_NoUrut.Enabled = False Query1 = " select * from table_alamat_kel where id_kepala='" & txt_id.Text & "'" Rs_2nya = mykonek.openrs(Query1) txt2_alamat.Text = Rs_2nya.Fields("alamat").Value CmbRT.Text = Rs_2nya.Fields("rt").Value CmbRW.Text = Rs_2nya.Fields("rw").Value txt2_kodepos.Text = Rs_2nya.Fields("kodepost").Value txt2_kec.Text = Rs_2nya.Fields("kecamatan").Value txt2_kel.Text = Rs_2nya.Fields("kelurahan").Value txt2_kota.Text = Rs_2nya.Fields("kota").Value txt2_pro.Text = Rs_2nya.Fields("propinsi").Value Call enableEdit() Call enableAlamat() End Sub
78
Keterangan : Pada form ini pengguna dapat merubah dan menghapus data dari kepala keluarga dan alamat keluarga apabila terjadi perubahan.
Gambar 4.11 Layar Pilihan Tambah Anggota Keluarga
Penggalan list program tambah anggota keluarga Sub Save3() querystr = ("select * from table_anggota_kel where id_detail='" & txt_detailID.Text & "'") Rs_1nya = mykonek.openrs(querystr) If txt3_JK.Text = "LAKI-LAKI" Then Status = "L" Else Status = "P" End If If Rs_1nya.EOF Then Query = "insert into table_anggota_kel(id_detail,id_kepala,nama,jenis_kelamin,kewar ganegaraan,tempat_TTL,TTL,gol_darah,agama,status_maried,pendid ikan,pekerjaan,hub_keluarga,nama_ortu) values('" & _
79
Lanjutan Penggalan list program tambah anggota keluarga txt_detailID.Text & "','" & _ txt_id.Text & "','" & _ txt3_nama.Text & "','" & _ Status & "','" & _ txt3_Warga.Text & "','" & _ txt3_tempatTL.Text & "','" & _ txt3_th.Text & "-" & txt3_bln.Text & "-" & txt3_tgl.Text & "','" & _ txt3_gol.Text & "','" & _ txt3_agama.Text & "','" & _ txt3_status.Text & "','" & _ txt3_pendidikan.Text & "','" & _ txt3_kerja.Text & "','" & _ txt3_hub.Text & "','" & _ txt3_namaortu.Text & "')"
Keterangan : Pada form tambah anggota keluarga, pengguna dapat menambahkan anggota keluarga baru di dalam data kartu keluarga.
Gambar 4.12 Layar Edit Anggota Keluarga
80
Penggalan list program Edit Anggota Keluarga Private Sub MSGBtn_Edit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MSGBtn_Edit.Click If MSGBtn_Edit.Text = "Hapus" Then Querynya_1 = "delete from table_kepala_kel where id_kepala='" & txt_id.Text & "'" Rs1_nya = mykonek.openrs(Querynya_1) Querynya_2 = "delete from table_anggota_kel where id_kepala='" & txt_id.Text & "' and id_detail='" & txt_detailID.Text & "'" Rs2_nya = mykonek.openrs(Querynya_2) Query = "delete from table_alamat_kel where id_kepala='" & txt_id.Text & "'" rs3 = mykonek.openrs(Query) Call Awal() Call Loading() ElseIf MSGBtn_Edit.Text = "Edit" Then Label_Statis.Text = "Edit Anggota" Querynya_2 = " select * from table_anggota_kel where id_detail='" & txt_detailID.Text & "'" RsQ1 = mykonek.openrs(Querynya_2) txt3_nama.Text = RsQ1.Fields("nama").Value txt3_JK.Text = RsQ1.Fields("jenis_kelamin").Value txt3_tempatTL.Text = RsQ1.Fields("tempat_TTL").Value txt3_agama.Text = RsQ1.Fields("agama").Value txt3_Warga.Text = RsQ1.Fields("kewarganegaraan").Value txt3_status.Text = RsQ1.Fields("status_maried").Value txt3_gol.Text = RsQ1.Fields("gol_darah").Value txt3_pendidikan.Text = RsQ1.Fields("pendidikan").Value txt3_kerja.Text = RsQ1.Fields("pekerjaan").Value txt3_hub.Text = RsQ1.Fields("hub_keluarga").Value txt3_namaortu.Text = RsQ1.Fields("nama_ortu").Value Panel_Tambah.Visible = True Panel_Tambah.Width = "825" Panel_Tambah.Height = "362" End If PanelMSG2.Visible = False End Sub
Keterangan : Pada form ini, pengguna dapat merubah data dari anggota keluarga yang telah ada, apabila sebelumnya terjadi kesalahan dan perubahan dalam pendataan
81
Gambar 4.13 Layar Silahkan Tentukan Pilihan
Penggalan list program layar silahkan tentukan pilihan Private Sub ListView_DoubleClick(ByVal sender As Object, ByVal e As System.EventArgs) Handles ListView.DoubleClick Try res_Kode = ListView.SelectedItems(0).SubItems(2).Text.ToString Catch ex As Exception MsgBox("Pilih Salah Satu Data!", MsgBoxStyle.Information) End Try txt_detailID.Text = res_Kode LabelMSG2.Text = "Silahkan Tentukan pilihan ..!" MSGBtn_del.Visible = True MSGBtn_Edit.Visible = True MSGBtn_Edit.Text = "Edit" Call Pop_up() End Sub
Keterangan : Pada form ini, pengguna dapat memilih pilihan yang akan diberikan dari aplikasi berupa hapus, edit dan keluar.
82
Gambar 4.14 Layar Cetak Data Keluarga
Penggalan list cetak data keluarga Private Sub PicPrint_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PicPrint.Click PanelPrint.Visible = True PanelPrint.Width = "825" PanelPrint.Height = "512" CrystalReportViewer1.SelectionFormula = "{table_kepala_kel.id_kepala}='" & txt_id.Text & "'" 'CrystalReportViewer1.RefreshReport() CrystalReportViewer1.DisplayGroupTree = False End Sub
Keterangan : Pada form cetak data keluarga, pengguna dapat melihat laporan dari salah satu kepala keluarga dengan lengkap.
83
4. Implementasi Layar Menu Laporan Pada implementasi layar laporan pengguna dapat melihat laporan data penduduk baik laporan data keseluruhan penduduk, laporan data penduduk perbulan, laporan data penduduk per-tahun, laporan data penduduk per-RT, dan laporan data penduduk per-RW.
Gambar 4.15 Layar Laporan Data Penduduk Keseluruhan
Penggalan list program laporan data penduduk keseluruhan Private Sub ViewLap_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load CrystalReportViewer1.DisplayGroupTree = False End Sub
Keterangan : Pada form ini aplikasi akan menampilkan laporan keseluruhan data penduduk yang ada di KELURAHAN PEDURENAN .
84
Gambar 4.16 Layar Pilih Tahun Masuk Data Penduduk
Penggalan list program layar pilih tahun masuk data penduduk Private Sub Cmd_thn_SelectedValueChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles Cmd_thn.SelectedValueChanged Querynya_2 = " select * from table_kepala_kel where tahun_msk='" & Cmd_thn.Text & "'" Rs_2nya = mykonek.openrs(Querynya_2) If Not Rs_2nya.EOF Then Cmd_bln.Enabled = True Btn_bln.Enabled = False Else Cmd_bln.Enabled = False Btn_bln.Enabled = False End If End Sub
Keterangan : Pada form ini, pengguna dapat memilih tahun masuk data penduduk sebelum aplikasi menampilkan laporan data penduduk per-tahun.
85
Gambar 4.17 Layar Laporan Data Penduduk Per-Tahun
Penggalan list program laporan data penduduk per-tahun Sub tahun() CrystalReportViewer1.SelectionFormula = "{table_kepala_kel.tahun_msk}='" & Form1.CmbTh.Text & "'" End Sub Sub tahunbulan() CrystalReportViewer1.DisplayGroupTree = False CrystalReportViewer1.SelectionFormula = "{table_kepala_kel.tahun_msk} => #" & Form1.Cmd_thn.Text & "#" & " and {table_kepala_kel.bulan_msk} => #" & Form1.Cmd_bln.Text & "#" 'CrystalReportViewer1.SelectionFormula = "{table_kepala_kel.tahun_msk}='" & Form1.Cmd_thn.Text & "'" 'CrystalReportViewer1.SelectionFormula = "{table_kepala_kel.bulan_msk}='" & Form1.Cmd_bln.Text & "'" End Sub
Keterangan : Setelah pengguna memasukkan tahun masuk data penduduk, aplikasi akan menampilkan informasi data penduduk per-tahun.
86
Gambar 4.18 Layar Pilih Bulan Masuk Data Penduduk
Penggalan list program layar pilih bulan masuk data penduduk Private Sub Cmd_bln_SelectedValueChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles Cmd_bln.SelectedValueChanged Querynya_2 = " select * from table_kepala_kel where bulan_msk='" & Cmd_bln.Text & "' and tahun_msk='" & Cmd_thn.Text & "'" Rs_2nya = mykonek.openrs(Querynya_2) If Not Rs_2nya.EOF Then Btn_bln.Enabled = True Else Btn_bln.Enabled = False End If End Sub
Keterangan : Pada form ini, pengguna dapat memilih bulan masuk data penduduk sebelum aplikasi menampilkan laporan data penduduk per-bulan.
87
Gambar 4.19 Layar Laporan Data Penduduk Per-Bulan
Penggalan list program laporan data penduduk per-bulan Public Class view_bulan Sub bulan() CrystalReportViewer1.SelectionFormula = "{table_kepala_kel.tahun_msk}='" & Form1.Cmd_thn.Text & "' and {table_kepala_kel.bulan_msk} ='" & Form1.Cmd_bln.Text & "'" End Sub Private Sub view_bulan_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load CrystalReportViewer1.DisplayGroupTree = False End Sub
Keterangan : Setelah pengguna memasukkan bulan masuk data penduduk, aplikasi akan menampilkan informasi data penduduk per-bulan.
88
Gambar 4.20 Layar Pilih RW Penduduk Tinggal
Penggalan list program layar pilih RW penduduk tinggal Private Sub CmbRW2_SelectedValueChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles CmbRW2.SelectedValueChanged Btn_bln.Text = "Cetak RW" Querynya_2 = " select * from table_alamat_kel where rw='" & CmbRW2.Text & "'" Rs_2nya = mykonek.openrs(Querynya_2) If Not Rs_2nya.EOF Then Btn_bln.Enabled = True Else Btn_bln.Enabled = False End If End Sub
Keterangan : Pada form ini, pengguna dapat memilih RW penduduk tinggal sebelum aplikasi menampilkan laporan data penduduk per-RW.
89
Gambar 4.21 Layar Laporan Data Penduduk Per-RW
Penggalan list program laporan data penduduk per-RW Public Class view_RW Private Sub BtnClose_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnClose.Click Me.Close() Me.Dispose() Form1.Panel1.Show() Form1.toolStrip1.Enabled = True Form1.CmbRW2.Text = "" Form1.CmbRT.Text = "" Form1.CmbRW.Text = "" End Sub Sub rw() CrystalReportViewer1.SelectionFormula = "{table_alamat_kel.rw}='" & Form1.CmbRW2.Text & "'" End Sub
Keterangan : Setelah pengguna memilih RW penduduk tinggal, aplikasi akan menampilkan informasi data penduduk per-RW.
90
Gambar 4.22 Layar Pilih RT Penduduk Tinggal
Penggalan list program layar pilih RT penduduk tinggal Private Sub CmbRW2_SelectedValueChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles CmbRW2.SelectedValueChanged Btn_bln.Text = "Cetak RW" Querynya_2 = " select * from table_alamat_kel where rw='" & CmbRW2.Text & "'" Rs_2nya = mykonek.openrs(Querynya_2) If Not Rs_2nya.EOF Then Btn_bln.Enabled = True Else Btn_bln.Enabled = False End If End Sub
Keterangan : Pada form ini, pengguna dapat memilih RT penduduk tinggal sebelum aplikasi menampilkan laporan data penduduk per-RT.
91
Gambar 4.23 Layar Laporan Data Penduduk Per-RT
Penggalan list program laporan data penduduk per-RT
Sub rtntw() CrystalReportViewer1.SelectionFormula = "{table_alamat_kel.rt}='" & Form1.CmbRT.Text & "' and {table_alamat_kel.rw} ='" & Form1.CmbRW.Text & "'" End Sub
Keterangan : Setelah pengguna memilih RT penduduk tinggal, aplikasi akan menampilkan informasi data penduduk per-RT.
4. 3
PENGUJIAN SISTEM Pengujian Sistem yang dilakukan adalah untuk mengetahui bahwa aplikasi
yang telah dibuat dapat berjalan sebagaimana mestinya sesuai dengan yang dirancang. Dan untuk menghindari adanya kesalahan-kesalahan yang mungkin terjadi pada saat aplikasi tersebut dijalankan.
92
-
Metode Pengujian Metode yang dilakukan adalah metode “Black Box Testing” yaitu metode
pengujian yang menekankan pada berhasil tidaknya menjalankan fungsi dari aplikasi yang telah dibuat tanpa memperdulikan code source yang ada.
4.4
Skenario Pengujian
Pengujian
dilakukan
untuk
menentukan
langkah-langkah
dalam
melakukan pengujian. Pengujian dilakukan dengan menjalankan aplikasi sistem penjualan retail tersebut. Setelah aplikasi dijalankan selanjutnya adalah menguji tombol-tombol yang terdapat dalam antar muka aplikasi tersebut apakah sesuai dengan tahap perancangan. Skenario pengujian aplikasi sistem pendataan penduduk dapat dilihat pada tabel 4. 1 Skenario pengujian yang ada pada halaman pengguna menggunakan metode Black Box Testing Tabel 4. 1 Tabel skenario pengujian sistem pendataan
penduduk
KELURAHAN PEDURENAN.
No
1
Antar Muka yang diuji Tamp. Login
Bagian dari antar muka yang diuji Proses Login
2
Halaman utama
Menguji semua link menu yang terdapat pada halaman utama.
Status aplikasi Tampilan Login sudah terbuka Aplikasi belum terbuka secara keseluruhan
Skenario pengujian Input user name dan password lalu klik “login” Masukan user id dan passid pada halaman login
di
93
Lanjutan Tabel 4. 1 Tabel skenario pengujian sistem pendataan penduduk di KELURAHAN PEDURENAN. 3
Menambah, mengedit, mencari, dan menghapus data penduduk dalam sistem
Menguji tomboltombol yang terdapat di dalam antar muka tersebut
Form-form dari data penduduk sedang berjalan
Memasukan datadata sesuai dengan form tersebut
4
Cari dan cetak seluruh laporan dari kegiatan di dalam sistem
Menguji tomboltombol yang terdapat di dalam antar muka tersebut dan link kedalam database masing-masing
Form cetak seluruh laporan dari kegiatan di dalam sistem sedang berjalan
Memasukan datadata sesuai dengan form tersebut
4.5
Hasil Yang Diharapkan
Tabel 4. 2 Tabel Hasil Yang Diharapkan dari sistem pendataan penduduk di KELURAHAN PEDURENAN. No
Antar Muka yang diuji
Bagian dari antar muka yang diuji
Status aplikasi
Skenario pengujian
Hasil yang diharapkan
1
Tamp. Login
Proses Login
Tampilan Login sudah terbuka
Input user name dan password lalu klik “login”
Apabila User dan Password Benar maka akan masuk ke halaman utama,Jika tidak maka akan tetap di menu login.
2
Halaman utama
Link
Aplikasi belum terbuka secara keseluruhan
Masukan user id dan passid pada halaman login
Berhasil login dan halaman utama terbuka.
94
Lanjutan Tabel 4. 2 Tabel Hasil Yang Diharapkan dari sistem pendataan penduduk di KELURAHAN PEDURENAN. 3
Menambah , mengedit, mencari, dan menghapus data penduduk dalam sistem
Menguji tomboltombol yang terdapat di dalam antar muka tersebut
Form-form dari data penduduk sedang berjalan
Memasukan data-data sesuai dengan form tersebut
Tersimpan ke dalam data base dan, tombol berfungsi sebagaimana fungsi masingmasing
4
Cari dan cetak seluruh laporan dari kegiatan di dalam sistem
Menguji tomboltombol yang terdapat di dalam antar muka tersebut dan link kedalam database masing-masing
Form cetak seluruh laporan dari kegiatan di dalam sistem sedang berjalan
Memasukan data-data sesuai dengan form tersebut
Data seluruh laporan kegiatan di dalam sistem akan tercetak
4. 6
Analisis Pengujian
Setelah melakukan pengujian terhadap semua menu sistem pada aplikasi pendataan penduduk ini, maka dapat disimpulkan bahwa : 1. Semua proses dan link berjalan dengan baik sesuai dengan yang dirancang oleh penulis. 2. pengujian telah menunjukkan hasil keluaran (Output) dan proses yang sesuai dengan rancangan aplikasi program ini. 3. Hasil dari pengujian dapat dikatakan bahwa program ini dapat berfungsi dengan baik dan benar, karena telah dibuktikan dari hasil skenario pengujian.
95
4. Dalam pengujian ini penulis menggunakan program visual basicnet dan database yang digunakan Microsoft access 2007. 5. Program aplikasi sistem pendataan penduduk ini dapat digunakan sebagai kontrol dalam melakukan kegiatan pendataan penduduk serta dapat menunjang proses survey penduduk dan laporan seluruh kegiatan pendataan penduduk pada KELURAHAN PEDURENAN CILEDUG.
