BAB IV IMPLEMENTASI DAN PENGUJIAN
4.1
Implementasi Tahap implementasi dan pengujian sistem, dilakukan setelah tahap analisis
dan perancangan selesai dilakukan. Pada sub bab ini akan dijelaskan implementasi dari aplikasi sistem dengan menggunakan beberapa fungsi yang penulis buat terdiri dari lingkungan implementasi, pengkodean, dan interface dari aplikasi sistem tersebut.
Untuk Menjalankan program sistem
informasi kepegawaian ini,
menggunakan PHP MySQL dan diperlukan sebuah Server yang akan digunakan sebagai koneksi antara VB.NET dan database tersebut. Server yang digunakan untuk selama pembuatan web ini menggunakan aplikasi “XAMPP” versi 1.7.7 dimana aplikasi tersebut mendukung server Apache v.2.2.21, PHP v.5.3.8 dan MySQL client v.5.0.8-dev sebagai database Server. Untuk memulai program, double click pada icon desktop. Berikut merupakan spesifikasi PC (Personal Computer) yang dibutuhkan pada saat perancangan sistem administrasi ini dibuat dan dioperasikan :
1. Perangkat Keras : a. Tipe Komputer
: Personal Computer (PC)
b. Processor
: Intel(R) Core (TM) i3-2330M CPU E4400 @2.20GHz
c. RAM
: 6GB
d. Hard Disk Drive
: 500 GB
e. Monitor
: Asus 14’’ Resolusi Tampilan 1280x1024
2. Perangkat Lunak : a. Sistem Operasional
: Microsoft Windows 7 Ultimate SP1
b. Server
: Apache Ver.2.2.21 / PHP Ver.5.3.8
c. Database
: MySQL client vers. mysqlnd 5.0.8-dev
e. Program
: Visual Studio 2010 / Visual Basic.NET 78
79
Dibawah ini adalah cara pembuatan database pada MySQL dengan menggunakan PHP, adapun langkah-langkahnya adalah sebagai berikut :
4.2
Implementasi Basis Data Pada sub bab ini akan menjelaskan implementasi basis data dari aplikasi
sistem menggunakan XAMPP beberapa fungsi yang di buat yang terdiri dari ruang lingkup implementasi dari aplikasi sistem tersebut. Aktifkan XAMMP terlebih dahulu sampai tampil gambar seperti gambar berikut :
Gambar 4.1 Tampilan Localhost XAMPP
80
Dibawah ini adalah cara pembuatan database pada MySQL dengan menggunakan PHP, adapun langkah-langkahnya adalah sebagai berikut :
1.
Tampilan Awal Pembuatan Database
Gambar 4.2 Tampilan Awal Pembuatan Database
81
2.
Tampilan Tabel Pada Database kepegawaian
Gambar 4.3 Tampilan Tabel Pada Database kepegawaian
82
3.
Tampilan Tabel pegawai Pada Database kepegawaian
Gambar 4.4 Tampilan Table pegawai Pada Database kepegawaian
CREATE TABLE IF NOT EXISTS `pegawai` ( `kode_pegawai` varchar(20) NOT NULL, `nama_pegawai` varchar(30) NOT NULL, `no_tlp` varchar(15) NOT NULL, `alamat ` varchar(60) NOT NULL, `username` varchar(20) NOT NULL, `password` varchar(30) NOT NULL, `hak_akses` varchar(30) NOT NULL, PRIMARY KEY (`kode_pegawai`) ) ENGINE=InnoDB DEFAULT CHARSET=latin1 AUTO_INCREMENT=0 ;
83
4.
Tampilan Tabel Absen Pada Database kepegawaian
Gambar 4.5 Tampilan Table Absen Pada Database kepegawaian
CREATE TABLE IF NOT EXISTS `anggota` ( `kode_pegawai` varchar(20) NOT NULL, `nama_pegawai` varchar(30) NOT NULL, `tanggal_absen` date DEFAULT '0000-00-00, `keterangan` varchar(30) NOT NULL, PRIMARY KEY (`idanggota`), UNIQUE KEY `tanggal_absen` (`tanggal_absen`), ) ENGINE=MyISAM DEFAULT CHARSET=latin1 AUTO_INCREMENT=5 ;
84
5.
Tampilan Tabel Barang Pada Database kepegawaian
Gambar 4.6 Tampilan Tabel Barang Pada Database kepegawaian
CREATE TABLE IF NOT EXISTS `barang` ( `kode_barang` varchar(20) NOT NULL, `nama_barang` varchar(30) NOT NULL, `harga` int(10) NOT NULL, PRIMARY KEY (`idangsuran`), ) ENGINE=MyISAM DEFAULT CHARSET=latin1 AUTO_INCREMENT=0 ;
85
6.
Tampilan Tabel Gaji Pada Database Kepegawaian
Gambar 4.7 Tampilan Tabel Gaji Pada Database kepegawaian
CREATE TABLE IF NOT EXISTS `gaji` ( `kode_gaji` varchar(20) NOT NULL, `gaji_pokok` int(10) NOT NULL, `uang_makan` int(10) NOT NULL, PRIMARY KEY (`kode_gaji`), ) ENGINE=MyISAM DEFAULT CHARSET=latin1 AUTO_INCREMENT=0 ;;
86
7.
Tampilan Tabel Kinerja Pada Database kepegawaian
Gambar 4.8 Tampilan Tabel kinerja Pada Database kepegawaian
CREATE TABLE IF NOT EXISTS `kinerja` ( `kode_pegawai` varchar(20) NOT NULL, `nama_pegawai` varchar(30) NOT NULL, `periode` date DEFAULT '0000-00-00', `keterangan` varchar(60) NOT NULL, PRIMARY KEY (`periode`), ) ENGINE=MyISAM DEFAULT CHARSET=latin1 AUTO_INCREMENT=0 ;
87
8.
Tampilan Tabel Pelanggan Pada Database kepegawaian
Gambar 4.9 Tampilan Tabel Pelanggan Pada Database kepegawaian
CREATE TABLE IF NOT EXISTS `pelanggan` ( `kode_pelanggan` varchar(20) NOT NULL, `nama_pelanggan` varchar(30) NOT NULL, `tlp_pelanggan` varchar(15) NOT NULL, `alamat` varchar(60) NOT NULL, PRIMARY KEY (`kode_pelanggan`), ) ENGINE=MyISAM DEFAULT CHARSET=latin1 AUTO_INCREMENT=0 ;
88
9.
Tampilan Tabel peminjaman Pada Database kepegawaian
Gambar 4.10 Tampilan Tabel Peminjaman Pada Database kepegawaian
CREATE TABLE IF NOT EXISTS `peminjaman` ( `kode_pinjaman` varchar(20) NOT NULL, `tanggal_pinjaman` date DEFAULT '0000-00-00', `kode_pegawai ` varchar(25) NOT NULL, `nama_pegawai` date DEFAULT '0000-00-00', `jumlah_pinjaman` int(10) NOT NULL, PRIMARY KEY (`kode_pinjaman`), ) ENGINE=MyISAM DEFAULT CHARSET=latin1 AUTO_INCREMENT=0 ;
89
10. Tampilan Tabel pesanan Pada Database kepegawaian
Gambar 4.11 Tampilan Tabel pesanan Pada Database kepegawaian
CREATE TABLE IF NOT EXISTS `pesanan` ( `tanggal_pesan` date DEFAULT '0000-00-00', `nomor_pesanan` varchar(20) NOT NULL, `nama_pelanggan` varchar(30) NOT NULL, `telepon` varchar(15) NOT NULL, `alamat` varchar(60) NOT NULL, `nama_barang` varchar(30) NOT NULL, `harga_satuan` int(10) NOT NULL, `qty` int(5) NOT NULL, PRIMARY KEY (`nomor_pesanan`) ) ENGINE=MyISAM DEFAULT CHARSET=latin1 AUTO_INCREMENT=1 ;
90
4.3
Implementasi Program Berikut adalah implementasi program sesuai dengan rancangan layar yang
telah dirancang sebelumnya, antara lain:
1.
Tampilan Form Master Absen
Gambar 4.14 Tampilan Master Absen Try Dim sqlstr As String Dim ds1 As New OdbcCommand() sqlstr = "INSERT INTO absen(kode_pegawai, nama_pegawai, tanggal_absen, keterangan) " & _ "VALUES ('" & cmbkode.Text & "','" & txtNama.Text & "','" & Format(DateTimePicker1.Value, "yyyy-mm-dd") & "','" & cmbKet.Text & "')" ds1.CommandText = sqlstr ds1.Connection = conn ds1.ExecuteNonQuery() MsgBox("Anda Telah Absen, Terima Kasih", MsgBoxStyle.Information, "Information") hapustextbox() fillcoloumn() Catch ex As Exception MsgBox("Data sudah ada", MsgBoxStyle.Information, "Perhatian") End Try Dim Ctl As Control For Each Ctl In Me.Controls If TypeOf Ctl Is TextBox Then Ctl.Text = "" Next
91
2.
Tampilan Form Master Barang
Gambar 4.15 Tampilan Form Master Barang Try Dim sqlstr As String Dim ds1 As New OdbcCommand() sqlstr = "INSERT INTO barang(kode_barang, nama_barang, harga) " & _ "VALUES ('" & txtkode.Text & "','" & txtnambar.Text & "','" & txtharga.Text & "')" ds1.CommandText = sqlstr ds1.Connection = conn ds1.ExecuteNonQuery() MsgBox("Data sukses disimpan", MsgBoxStyle.Information, "RIO FIBER GLASS") hapustextbox() fillcoloumn() Catch ex As Exception MsgBox(ex.Message) End Try Dim Ctl As Control For Each Ctl In Me.Controls If TypeOf Ctl Is TextBox Then Ctl.Text = "" Next
92
3.
Tampilan Form Master Pegawai
Gambar 4.16 Tampilan Form Master Pegawai Try Dim sqlstr As String Dim ds1 As New OdbcCommand() sqlstr = "INSERT INTO pegawai(kode_pegawai, nama_pegawai, no_tlp, alamat, hak_akses, username, password) " & _ "VALUES ('" & txtkode.Text & "','" & txtNama.Text & "','" & txtNoTlp.Text & "', '" & txtAlamat.Text & "','" & txtHak.Text & "','" & txtusername.Text & "','" & txtPass.Text & "')" ds1.CommandText = sqlstr ds1.Connection = conn ds1.ExecuteNonQuery() MsgBox("Data sukses disimpan", MsgBoxStyle.Information, "RIO FIBER GLASS") hapustextbox() fillcoloumn() Catch ex As Exception MsgBox(ex.Message) End Try Dim Ctl As Control For Each Ctl In Me.Controls If TypeOf Ctl Is TextBox Then Ctl.Text = "" Next
93
4.
Tampilan Form Master Pelanggan
Gambar 4.17 Tampilan Form Master Pelanggan Try Dim sqlstr As String Dim ds3 As New OdbcCommand() sqlstr = "update pelanggan set nama_pelanggan='" & txtNama.Text & "', tlp_pelanggan='" & txtNoTlp.Text & "', alamat_pelanggan='" & txtAlamat.Text & "' where kode_pelanggan = '" & txtkode.Text & "'" ds3.CommandText = sqlstr ds3.Connection = conn ds3.ExecuteNonQuery() fillcoloumn() hapustextbox() Catch ex As Exception MsgBox("Periksa kembali data yang akan diUpdate", MsgBoxStyle.Critical, "Perhatian!!!") End Try
94
5.
Tampilan Form Pemesanan Barang
Gambar 4.18 Tampilan Form Pemesanan Barang Dim i As Integer 'DIGUNAKAN UNTUK MENAMBAH BARANG KE DAFTAR For i = 0 To DataGridView1.RowCount - 1 If DataGridView1.Item(0, i).Value = cmbBrg.Text Then MsgBox("Data sudah ada", vbCritical) Exit Sub End If Next Dim b(9) As Object b(0) = DateTimePicker.MinimumDateTime b(1) = txtnomor.Text b(2) = txtplg.Text b(3) = txt_tlp.Text b(4) = richalamat.Text b(5) = txtnambar.Text b(6) = txtHarsat.Text b(7) = txtqty.Value b(8) = CDbl(CDec(txtHarsat.Text) * txtqty.Value).ToString("##,###,###") DataGridView1.Rows.Add(b) Dim totalh As Decimal = 0 For i = 0 To DataGridView1.RowCount - 1 totalh += DataGridView1.Item(6, i).Value Next txtTotal.Text = totalh.ToString("##,###,###")
95
6.
Tampilan Form Peminjaman uang
Gambar 4.19 Tampilan Peminjaman Uang Try Dim sqlstr As String Dim ds1 As New OdbcCommand() sqlstr = "INSERT INTO peminjaman(kode_pinjaman, tanggal_pinjam, kode_pegawai, nama_pegawai, jumlah_pinjaman) " & _ "VALUES ('" & txtkodepinjam.Text & "','" & Format(DateTimePicker1.Value, "yyyy-mm-dd") & "','" & txtkode.Text & "', '" & txtnama.Text & "','" & txtjumlah.Text & "')" ds1.CommandText = sqlstr ds1.Connection = conn ds1.ExecuteNonQuery() MsgBox("Sukses Menyimpan, Terima Kasih", MsgBoxStyle.Information, "Information") hapustextbox() fillcoloumn() Catch ex As Exception MsgBox("Data sudah ada", MsgBoxStyle.Information, "Perhatian") End Try Dim Ctl As Control For Each Ctl In Me.Controls If TypeOf Ctl Is TextBox Then Ctl.Text = "" Next
96
4.4 Metode Pengujian Metode pengujian dilakukan untuk memastikan apakah system yang akan dipakai sudah sesuai dengan yang diharapkan. Metode yang digunakan untuk pengujian ini adalah black box, yaitu melakukan pengujian degan memfokuskan pada fungsionality system tanpa mengetahui apa sesungguhnya yang terjadi dalam black end system.
4.5
Skenario Pengujian Skenario pengujian dilakukan untuk menentukan langkah-langkah dalam
melakukan pengujian. Pengujian dilakukan dengan menjalankan aplikasi dari perancangan website. Setelah aplikasi dijalankan selanjutnya adalah menguji tomboltombol yang terdapat dalam antar muka aplikasi tersebut apakah sesuai dengan tahap perancangan.
Tabel 4.1
Skenario Pengujian Antar Muka
Uji Coba
Status aplikasi
1.
Link pada semua form
Menguji link menu
2.
form master absen
Menguji absen pegawai
Berada di form selain form yang ingin di tuju Form master absen sudah aktif
No
Skenario pengujian Klik link menu
Hasil yang diharapkan
Hasil Pengujian
Menu Berhasil terhubung membuka dengan form form tujuan yang dituju
Input kode Berhasil pegawai, input data nama, absen tanggal, dan keteranga n lalu klik absen
Berhasil input data ke database
97
3.
Form master barang
Menguji inputan data barang
4.
Form master pegawai
Menguji inputan data pegawai
5.
Form master pelanggan
6.
Form pemesana n barang
7.
Form peminjam an uang
Form barang sudah aktif
Form master pegawai sudah aktif Menguji Form inputan master data pelanggan pelangg sudah an aktif Menguji Form inputan pemesana data n barang pemesan sudah an aktif barang
Menguji inputan data peminja man uang
Form peminjam an uang sudah aktif
Input data barang lalu klik tombol Simpan Input data barang lalu klik tombol simpan Input data pelanggan lalu klik tombol simpan Input data barang lalu klik tombol add lalu simpan dan klik cetak Input data pinjaman lalu klik tombol submit
Data barang tersimpan kedalam database
Data barang tersimpan kedalam database
Data barang tersimpan kedalam database
Data barang tersimpan kedalam database
Data pelanggan tersimpan kedalam database Data pesanan tersimpan kedalam database dan dicetak
Data pelanggan tersimpan kedalam database Data pesanan tersimpan kedalam database dan dicetak
Data pesanan tersimpan ke dalam database
Data pesanan tersimpan ke dalam database
98
4.6
Analisa Hasil Pengujian Berikut adalah analisa yang telah dilakukan berdasarkan hasil pengujian yang
telah dilakukan. Pada saat user(admin atau pegawai) pertama kali membuka form, maka akan menampilkan form menu awal dan users dapat memilih login atau absen. Pada form login pengujian yang dilakukan adalah memasukan data login user, apabila validasi sukses maka akan diarahkan ke menu utama, apabila gagal maka akan ditampilkan pesan error/kesalahan pada form. Pada form master absen, master barang, master pegawai, master pelanggan, pemesanan barang dan peminjaman uang pengujian yang dilakukan adalah dengan memasukkan data pada form kemudian melakukan penyimpanan. Sistem akan melakukan validasi untuk memastikan bahwa field-field yang penting tidak dikosongkan atau tidak ada kesalahan format data. Bila validasi sukses maka data akan tersimpan kedalam database, apabila gagal pada validasi data maka akan muncul pesan error/kesalahan pada form.
