Abstrak Tujuan pembuatan Aplikasi ini adalah untuk mempermudah dalam publikasi informasi database jalan yang merupakan Kewenangan pada Dinas Bina Marga dan Sumber Daya Air Kabupaten Sumedang. Metode penelitian yang dilakukan yaitu dengan melakukan library research. Sedangkan metode sistem yang dilakukan adalah metode waterfall model melalui pendekatan terstruktur. Hasil yang dicapai berdasarkan perancangan dan pembuatan yaitu menganalisis permasalahan yang terjadi sehingga kebutuhan perancangan dapat terpenuhi. Kemudian dituangkan dalam bentuk Diagram Konteks, Data Flow Diagram, dan Diagram rinci. Setelah itu dibuatkan tabel-tabel sebagai database, Rancangan masukan dan keluaran sebagai interfase database. Simpulan yang dapat diambil bahwa Aplikasi memenuhi kebutuhan yang diinginkan.
Kata Kunci : Aplikasi, Pengolahan Data, Jalan.
i
yang dirancang dapat
BAB III HASIL DAN PEMBAHASAN
3.1
Hasil Temuan
3.1.1
Analisis Profile Dinas BMSDA merupakan Pecahan dari Dinas Pekerjaan Umum
Kabupaten Sumedang dibentuk bedasarkan Peraturan Daerah Kabupaten Sumedang Nomor 9 Tahun 2014 tentang Pembentukan, Organisasi Perangkat Daerah Kabupaten Sumedang. Dinas BMSDA Kabupaten Sumedang terdiri dari Sekretariat, Bidang Jalan, Bidang Jembatan serta Bidang Sumber Daya Air dengan jumlah pegawai sebanyak 489 Orang, terdiri dari 229 orang PNS dan 260 orang Non PNS. Selain itu dalam melaksanakan tugas pokok dan fungsinya Dinas BMSDA Kabupaten Sumedang dibantu oleh 9 (sembilan) UPTD Pemeliharaan Jalan, Jembatan dan Irigasi yang tersebar di beberapa wilayah Kecamatan Kabupaten Sumedang serta UPTD Peralatan dan UPTD Laboratorium Pemeriksaan Bahan dan Pekerjaan. Adapun visi dari Dinas Bina Marga dan Sumber Daya Air Kabupaten Sumedang
Tahun 2014-2018 yaitu “Terwujudnya Pengelolaan Infrastruktur
Bidang Jalan, Jembatan Serta Sumber Daya Air Yang Baik Pada Tahun 2018”. Untuk penanganan infrastruktur Jalan, Dinas Bina Marga dan Sumber Daya Air memiliki kewenangan membangun, memelihara dan meningkatkan Jalan, khususnya Jalan Kabupaten di Wilayah Kabupaten Sumedang.
19
20
Adapun susunan Organisasi Dinas Bina Marga dan Sumber Daya Air Kabupaten Sumedang adalah sebagai berikut : a. Kepala Dinas; b. Sekretariat, membawahkan : 1. Sub Bagian Program; 2. Sub Bagian Umum, Aset dan Kepegawaian; 3. Sub Bagian Keuangan. c. Bidang Jalan, membawahkan: 1. Seksi Perencanaan Teknis Jalan; 2. Seksi Pelaksanaan dan Pengawasan Jalan. d. Bidang Jembatan membawahkan : 1. Seksi Perencanaan Teknis Jembatan; 2. Seksi Pelaksanaan dan Pengawasan Jembatan. e. Bidang Sumber Daya Air, membawahkan : 1. Seksi Perencanaan Teknis Sumber Daya Air; 2. Seksi Pelaksanaan dan Pengawasan Sumber Daya Air. f. Unit Pelaksana Teknis Dinas. g. Kelompok Jabatan Fungsional.
STRUKTUR ORGANISASI DINAS BINA MARGA DAN SUMBER DAYA AIR KABUPATEN SUMEDANG
Gambar 3.1 Struktur Organisasi Dinas Bina Marga dan Sumber Daya Air Sumedang
21
22
3.1.2
Analisis sistem yang sedang berjalan Setelah dilakukan penelitian pada Dinas Bina Marga dan Sumber Daya Air
Sumedang dalam proses pengelolaan data kewenangan jalan menggunakan software Microsoft Excel. Dari system yang digunakan didapatkan temuan beberapa masalah dan dijelaskan sub bab selanjutnya. Dari analisis system tersebut, dirasa kurang efektif dan efesien dalam segi pembuatan laporan. Data yang dihasilkan rentan rusak dan duplikasi data. Berikut Flowchart system yang sedang berjalan:
Gambar 3.2 Flowchart system yang berjalan
3.1.3 Analisis Kebutuhan User 1. Diagram Konteks
Gambar 3.3 Diagram Konteks
23
2. Diagram Rinci
Gambar 3.4 Diagram Rinci
24
3.
Entity Diagram Relationship (ERD)
Gambar 3.5 Entity Diagram Relationship (ERD)
25
4. State Transition Diagram (STD)
Gambar 3.6 State Transition Diagram (STD)
26
27
3.1.4
Permasalahan yang dihadapi Masalah yang ada didalam system pengelolaan data kewenangan jalan di
Dinas Bina Marga dan Sumber Daya Air Kabupaten Sumedang diantaranya adalah sebagai berikut: 1.
System yang menggunakan Microsoft Excel dan banyak ditemukan masalah diantaranya adalah: a.
Ketika file Excel dibuka di versi Microsoft Office versi terbaru, maka terjadi perbedaan desain dan layout dari aplikasinya.
b.
Data pernah hilang dikarenakan rentan terkena virus.
c.
Tidak adanya pembatasan hak akses yang digunakan terhadap file tersebut.
2.
Lamanya penyajian laporan dari unit/bidang jalan.
3.1.5
Usulan sistem baru/perbaikan sistem
a.
Penggunaan Tool System Adapun usulan system baru yaitu system menggunakan aplikasi tertentu,
pada hal ini system menggunakan aplikasi yang di develop dengan menggunakan Visual Studio 2012 dengan basis VB.net. Kemudian menggunakan database. Dengan adanya aplikasi tersendiri yang khusus digunakan untuk pengelolaan data kewenangan jalan tersebut diharapkan beberapa masalah yang ada bisa terselesaikan. Dengan tool Visual Basic 2012 ini diharapkan lebih integrate dengan Sistem operasi Windows yang digunakan dilingkungan Dinas Bina Marga dan Sumber Daya Air Sumedang, serta penggunaan database agar
28
data bisa dikelola dalam satu lingkungan kerja saja, keefektifan yang diharapkan dengan adanya system yang baru ini. b.
Procedure penggunaan system Sistem yang dibuat diberlakukan hal akses yaitu untuk pengguna dan
admin, pengguna hanya bisa mengakses informasi yang ada disistem tersebut, sedangkan admin bisa melakukan pengelolaan data yang ada disistem. Hal ini dimaksudkan agar pengelolaan bisa lebih aman lagi dengan adanya pembatasan hak akses karena tidak semua orang bisa mengelola data yang diperlukan.
3.1.6
Perancangan Jaringan Lama (Flowchart) System yang lama tidak menggunakan teknologi jaringan karena
menggunaan aplikasi Microsoft Excel yang bersifat stan alone disetiap PC pengguna, pada perancangan jaringan lama ini hanya dijelaskan bagaimana aliran data. Aliran data tersebut sama dengan flowchart system yang ada. Berikut ini adalah perancangan jaringan lama yang berupa flowchart:
Gambar 3.7 Flowchart Jaringan Lama
29
3.2
Pembahasan
3.2.1
Perancangan data
a.
Perancangan Tabel Berikut ini perancangan data dalam bentuk database dan memuat tabel-
tabel berikut: 1. Tabel User Tabel 3.1 User No 1 2 3 4
Nama Field Id nama username password
Tipe Data Int Varchar Varchar Varchar
Ukuran 11 300 300 300
Keterangan Kunci
MD5
2. Tabel Data Jalan Tabel 3.2 Data Jalan No 1 2 3 4 5 6 7 8 9 10 11 12
Nama Field tahun no_ruas nama_ruas jenis_pekerasan lokasi panjang lebar Baik sedang rusak_ringan rusak_berat photo
Tipe Data Int Int Varchar Varchar Varchar Float Float Float Float Float Float Varchar
Ukuran 4 4 300 300 300
100
Keterangan kunci
30
3. Tabel Dokumentasi Tabel 3.3 Dokumentasi No 1 2 3 4 5
Nama Field No_ruas
Tipe Data int
nama_ruas lokasi poto1 poto2
Varchar Varchar Longblob Longblob
Ukuran 4 300 300
Keterangan
4. Tabel Profile Tabel 3.4 Profile No 1
Nama Field
Tipe Data Int
Profile Visi Susunan_oragnisasi Struktur_organisasi Kepala_dinas
Text Text Text Text Text
id
2 3 4 5 6
Ukuran Keterangan 10 Kunci . auto increment
b. Kamus data 1. Input -
Form login = username+password
-
Form data jalan = tahun+no_ruas+nama_ruas+lokasi+jenis_ pekerasan+ panjang+lebar+baik+sedang+rusak_sedang+rusak_ berat+photo
-
Form dokumentasi = no_ruas+nama_ruas+poto1+poto2
-
Form admin = id+nama+username+password
31
2. Output -
Laporan data jalan = tahun+@no_ruas+nama_ruas+lokasi+jenis_ pekerasan+panjang+lebar+baik+sedang+rusak_sedang+rusak_ berat+ photo
-
3.2.2
Laporan data dokumentasi = no_ruas+nama_ruas+poto1+poto2
Perancangan arsitektur Perancangan arsitektur disini dapat dijelaskan dengan alur data yang ada
masih menggunakan alur data yang dulu hanya saja proses pengembangan jaringan dan hak akses ke system dibatasi. Dalam hal ini hanya admin yang bisa mengelola data, selain itu pengguna lain hanya bisa melihat informasi yang tersedia didalam system. Secara sederhana alur data dapat digambar sebagai berikut:
Gambar 3.8 Alur Data
32
3.2.3
Perancangan Antarmuka
a.
Tata Letak Halaman Form Utama
Gambar 3.9 Perancangan Menu Utama Halaman form utama merupakan halam pertama ketika aplikasi dijalankan. Halaman ini memuat form login untuk masuk ke bagian admin aplikasi ini. Kemudian terdapat menu yang berupa tabulasi dibagian atas yang memuat informasi dan data bagi pengguna selain admin. b.
Tata Letak Tab Profile (User) Tab Menu profile terdapat tabulasi lagi untuk menunjukan beberapa menu
yang mengakses informasi mengenai profile Dinas Bina Marga dan Sumber Daya Air Sumedang.
33
-
Profile – Profile
Gambar 3.10 Tab Profile – Profile Halaman ini merupakan bagian menu untuk melihat informasi profile dari Dinas Bina Marga dan sumber Daya Air Sumedang. Yang ditunjukan oleh tab profile di bagian tab utama bagian atas, serta tab profile dibagian bawah. -
Profile – Visi
Gambar 3.11 Tab Menu Profile-Visi
34
Merupakan halaman profile bagian visi, memuat informasi tentang visi dari Dinas Bina Marga dan Sumber Daya Air Sumedang. -
Profile – Susunan Organisasi
Gambar 3.12 Tab Menu Profile-Susunan Organisasi Merupakan halaman profile bagian susunan organisasi, memuat informasi tentang susunan organisasi dari Dinas Bina Marga dan Sumber Daya Air Sumedang. -
Profile – Struktur Organisasi
Gambar 3.13 Tab Menu Profile-Struktur Organisasi
35
Merupakan halaman profile bagian struktur organisasi, memuat informasi tentang struktur organisasi dari Dinas Bina Marga dan Sumber Daya Air Sumedang. c.
Tata Letak Tab Data Jalan (User)
Gambar 3.14 Tab Menu Data Jalan Tab menu ini memuat informasi data jalan, terdapat menu export dan cari data. Karena menu ini terdapat dibagian user, maka hanya terdapat informasi data jalan saja tidak ada proses pengelolaan data. d.
Tata Letak Tab Dokumentasi (User)
Gambar 3.15 Tab Menu Dokumentasi
36
Halaman ini merupakan tab menu dokumentasi bagian user. Halaman ini memuat data dokumentasi jalan yang mempunyai relasi dengan data jalan. e.
Tata Letak Form Admin
Gambar 3.16 Tab Menu Home Form Admin Halaman ini merupakan form 2, form yang merupakan bagian utama halaman admin, halaman ini terdiri dari 5 tab menu dibagian atas dan menu logout. f.
Tata Letak Tab Profile (Admin)
Gambar 3.17 Tab Menu Profile Form Admin Halaman ini merupakan tab menu bagian profile di form admin, memuat form untuk pengelolaan data profile.
37
g.
Tata Letak Tab Data Jalan (Admin)
Gambar 3.18 Tab Menu Data Jalan Form Admin Halaman ini merupakan tab menu data jalan form admin, memuat form pengelolaan data jalan dan juga list data jalan yang ada di database. h.
Tata Letak Tab Dokumentasi (Admin)
Gambar 3.19 Tab Menu Dokumentasi Form Admin Halaman ini merupakan tab menu dokumentasi form admin, memuat data dokumentasi jalan dan pengelolaannya.
38
i.
Tata Letak Form Dokumentasi (Form 3)
Gambar 3.20 Form Dokumentasi Form 3 Halaman ini merupakan form dokumentasi (form 3), yaitu form untuk input data dokumentasi jalan. Form ini akan muncul sesuai data jalan yang ada di tab menu dala jalan admin menunjukan bahwa jalan tertentu mempunyai dokumentasi. Dan datanya akan masuk ke tabel dokumentasi. j.
Tata Letak Tab Admin (Admin)
Gambar 3.21 Tab Menu Admin Form Admin Halaman ini merupakan tab menu admin form admin, halaman ini untuk pengelolaan data admin.
39
3.2.4
Perancangan jaringan Jaringan yang di gunakan dalam Aplikasi DBJK-DBMSDA Sumedang
adalah menggunakan topologi bus. Topologi bus tersusun rapih seperti antrian dan menggunakan satu kabel coaxial dan setiap komputer terhubung ke kabel menggunakan konektor BNC, dan kedua ujung dari coaxial harus di akhiri dengan terminator.
Gambar 3.22 Topologi Jaringan Bus (Sumber : www.gustriphenomg3.blogspot.com)
3.2.5
Perancangan algoritma Perancangan algoritma ini terdiri dari prosedur dan algortima dari proses
yang ada didalam aplikasi ini. Dibagi menjadi dua bagian yaitu bagian proses
40
yang dilakukan oleh pengguna aplikasi dan juga proses yang dilakukan oleh admin. 3.2.5.1 Proses pengguna Proses prosedur dan algoritma pengguna terdiri dari: 1.
Buka aplilkasi ( menu utama ) Begin Buka aplikasi If buka aplikasi=true || database=connect then Tampil menu utama (form pennguna) Else Msgbox -> no connection to database aplikasi close Endif End
2.
Lihat profile Begin Klik tab menu profile If data != 0 then Data tampil Else Tidak ada data Endif End
41
3.
Lihat data jalan Begin Klik tab menu data jalan If data != 0 then Data tampil Else Tidak ada data Endif end
4.
Export data jalan Begin klik tombol export if export berhasil then file di export else eror endif end
5.
Lihat dokumentasi Begin Klik tab menu dokumentasi If data != 0 then Data tampil
42
Else Tidak ada data Endif end
6.
Print dokumentasi Begin Klik print If data = 0 then File data eror Else Print menu tampil Data berhasil di print End if End
3.2.5.2 Proses admin 1.
Buka aplikasi ( form menu utama ) Begin Buka aplikasi If buka aplikasi=true || database=connect then Tampil menu utama(form admin) Else Msgbox -> no connection to database
43
aplikasi close Endif End
2.
Login Begin Masukan username dan password Klik login Begin Cari = select from user where username=useraname and password=password If cari!=0 then Menu utama form 2 tampil Msgbox berhasil login Else Menu utama form 1 tampil Endif End End
3.
Kelola profile
-
Tampil profile Begin Tampil= select * from profile
44
If data != 0 then Profile tampil Else Msgbox tidak ada data Endif End -
Update data Begin If tombol = update then Update data(database -> table updated) Else Return tampil data Endif End
4.
Kelola data jalan
-
Tampil data jalan Begin Data = select * from data jalan If database connect=true || data !=0 then Data tampil Else Data kosong Endif
45
End -
Simpan data jalan Begin Isi data jalan If klik tombol simpan then Simpan data jalan Else if batal then Form kosong Endif Endif End
-
Update data jalan Begin Pilih data If pilih data != 0 then Proses update Database(record data jalan update) Else Cancel Endif
-
Hapus data jalan Begin Pilih data If pilih data != 0 then
46
Hapus data Database (record data jalan hapus) Else Cancel Endif End -
Cari data jalan Begin Masukan nama ruas If nama ruas ketemu then Data tampil Else Msgbox Tidak ada data Endif End
-
Export/print data jalan Begin Do export If export =true then Data di export Pdf or exel Else Error Endif End
47
5.
Kelola data dokumentasi
-
Tampil data dokumentasi Begin Data = select * from data dokumentasi If database connect=true || data !=0 then Data tampil Else Data kosong Endif End
-
Hapus data dokumentasi Begin Pilih data If pilih data != 0 then Hapus data Database (record data dokumentasi hapus) Else Cancel Endif End
-
Cari data dokumentasi Begin Masukan nama ruas or no ruas If nama ruas ketemu then
48
Data tampil Else Msgbox Tidak ada data Endif End -
Export/print data dokumentasi Begin Do export If export =true then Data di export Pdf or exel Else Error Endif End
-
Update/simpan data dokumentasi Begin Pilih data If pilih data != 0 then Form dokumentasi ( form 3) open + data Proses update dan simpan Else error endif End Begin
49
ifForm 2 data jalan ( photo=ADA then Form dokumentasi (form3) open Browse data poto If simpan then Database(table dokumentasi inserted) Else cancel form close Endif Endif End
6.
Kelola data admin
-
Tampil data admin Begin Data = select * from data user If database connect=true || data !=0 then Data tampil Else Data kosong Endif End
-
Simpan data admin Begin Isi data admin If klik tombol simpan then
50
Simpan data admin Else if batal then Form kosong Endif Endif End -
Update data admin Begin Pilih data If pilih data != 0 then Proses update Database(record data user update) Else Cancel endif end
-
Hapus data admin Begin Pilih data If pilih data != 0 then Hapus data Database (record data user hapus) Else Cancel
51
Endif End -
Cari data admin Begin Masukan id ornama admin If nama admin ketemu then Data tampil Else Msgbox Tidak ada data Endif End
7.
Logout Begin Klik tombol logout If logout=true then App.close Else Logout gagal Endif End
52
3.3 Pembuatan Kode & Testing 3.3.1
Kode a. Modul koneksi Imports System.Data Imports MySql.Data.MySqlClient Imports MySql.Data Imports MySql.Data.MySqlClient.MySqlConnection ModuleModule1
Public konek AsString = "SERVER = localhost;USERID = root; PASSWORD = ;DATABASE = binamarga; Convert Zero Datetime = True; Allow Zero Datetime = True;" Public sqlConnection AsNewMySqlConnection Public sqlCommand AsNewMySqlCommand Public sqlAdapter AsNewMySqlDataAdapter Public konfirmasi AsNewMsgBoxResult Public sqlReader AsMySqlDataReader
PublicSubbukaDB() If sqlConnection.State = ConnectionState.Closed Then sqlConnection.ConnectionString = konek sqlConnection.Open()
53
' MsgBox("sukses") EndIf EndSub
PublicSubTutupDB() With sqlConnection .Dispose() .Close()
EndWith EndSub Private con AsMySqlConnection = Nothing PublicFunctionok() AsMySqlConnection Dim constring AsString constring = ";server=localhost"&";user=root"&";password="&";database=binamar ga" Try con = NewMySqlConnection(constring) con.Open() Catch ex AsException MessageBox.Show(ex.Message, "Koneksi error", MessageBoxButtons.OK, MessageBoxIcon.Error) EndTry
54
Return con EndFunction EndModule
b. Sub umum -
Import library dan package Imports Microsoft.Office.Interop Imports System.IO Imports MySql.Data.MySqlClient Imports MySql.Data Imports MySql.Data.MySqlClient.MySqlConnection Imports System.Drawing.Bitmap
-
Sub bersih Subbersih()
TextBox1.Text = "" TextBox2.Text = "" TextBox3.Text = "" ComboBox1.Text = "" TextBox4.Text = "" TextBox5.Text = "" TextBox6.Text = "" TextBox7.Text = "" TextBox8.Text = ""
55
TextBox9.Text = "" TextBox10.Text = "" ComboBox2.Text = "" TextBox1.Focus() Button1.Enabled = True Button2.Enabled = False Button3.Enabled = False Button2.BackColor = Color.Gray Button3.BackColor = Color.Gray EndSub -
Sub tampil data jalan Subtampil() Try bukaDB() Dim mDA AsNewMySqlDataAdapter("SELECT * FROM data_jalan", konek) DimdtAsNewDataTable mDA.Fill(dt) DataGridView1.DataSource = dt Catch ex AsException MsgBox(ex.Message) EndTry EndSub
56
-
Sub tampil data jalan form 2 Subtampildata() Try bukaDB() Dim mDA AsNewMySqlDataAdapter("SELECT * FROM data_jalan ORDER BY no_ruas ASC", konek) DimdtAsNewDataTable mDA.Fill(dt) DataGridView1.DataSource = dt
DataGridView1.Refresh() With DataGridView1 .ColumnHeadersDefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter .Columns(0).Width = 100 .Columns(0).HeaderText = "TAHUN" .Columns(1).Width = 100 .Columns(1).HeaderText = "NOMOR RUAS" .Columns(2).Width = 400 .Columns(2).HeaderText = "NAMA RUAS JALAN" .Columns(3).Width = 200 .Columns(3).HeaderText = "JENIS PEKERASAN" .Columns(4).Width = 300 .Columns(4).HeaderText = "LOKASI"
57
.Columns(5).Width = 100 .Columns(5).HeaderText = "PANJANG" .Columns(6).Width = 100 .Columns(6).HeaderText = "LEBAR" .Columns(7).Width = 100 .Columns(7).HeaderText = "KONDISI BAIK" .Columns(8).Width = 100 .Columns(8).HeaderText = "KONDISI SEDANG" .Columns(9).Width = 100 .Columns(9).HeaderText = "RUSAK RINGAN" .Columns(10).Width = 100 .Columns(10).HeaderText = " RUSAK BERAT " .Columns(11).Width = 200 .Columns(11).HeaderText = "PHOTO" EndWith
Catch ex AsException MsgBox(ex.Message) EndTry EndSub -
Sub tampil data dokumentasi form 2 Subtampildokumentasi() Try bukaDB()
58
Dim mDA AsNewMySqlDataAdapter("SELECT nama_ruas, lokasi FROM dokumentasi", konek) DimdtAsNewDataTable mDA.Fill(dt) DataGridView2.DataSource = dt DataGridView2.Refresh() mDA.Dispose() Catch ex AsException MsgBox(ex.Message, " BINAMARGA SUMEDANG ") EndTry EndSub
c. Form 1 -
Login PrivateSub Button1_Click(sender AsObject, e AsEventArgs) Handles Button1.Click bukaDB() Dim paswd AsString Dim usrId AsString
Dim a AsNewMySqlDataAdapter("select * from user where Username='"& TextBox1.Text &"' and Password='"& TextBox2.Text &"'", konek) DimdtAsNewDataTable
59
a.Fill(dt)
If dt.Rows.Count = NothingThen MsgBox("Maaf, Data belum terdaftar. Silahkan hubungi Administrator", MsgBoxStyle.Information, "validasi")
Else Dim dr AsDataRow ForEach dr In dt.Rows paswd = dr("password") usrId = dr("username")
Next dr If TextBox2.Text = paswd Then Form2.Show() Me.Hide() Else MsgBox("Maaf, password yang anda masukan belum benar", MsgBoxStyle.Information, "validasi")
EndIf EndIf
EndSub
60
Subtampilprofile() Try Dim sql AsString = "select * from profile " Dim cmd AsNewMySqlCommand(sql, Module1.ok) Dim rd AsMySqlDataReader
rd = cmd.ExecuteReader
rd.Read()
If rd.HasRows Then
TextBox3.Text = rd.Item("profile") TextBox4.Text = rd.Item("visi") TextBox5.Text = rd.Item("susunan_organisasi") EndIf
Catch ex AsException MsgBox(ex.Message) EndTry EndSub -
Tampil data jalan Sub tampil()
61
-
Tampil data dokumentasi Try bukaDB() Dim mDA AsNewMySqlDataAdapter("SELECT nama_ruas, lokasi FROM dokumentasi ORDER BY no_ruas ASC", konek) DimdtAsNewDataTable mDA.Fill(dt) DataGridView2.DataSource = dt Form1.DataGridView2.DataSource = dt Form1.DataGridView2.Refresh() DataGridView2.Refresh()
DataGridView2.Refresh() With DataGridView2 .ColumnHeadersDefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter .Columns(0).Width = 200 .Columns(0).HeaderText = "NAMA RUAS" .Columns(1).Width = 200 .Columns(1).HeaderText = "LOKASI"
EndWith WithForm1.DataGridView2
62
.ColumnHeadersDefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter .Columns(0).Width = 100 .Columns(0).HeaderText = "NAMA RUAS" .Columns(1).Width = 200 .Columns(1).HeaderText = "LOKASI"
EndWith Catch ex AsException MsgBox(ex.Message, " BINAMARGA SUMEDANG ") EndTry -
Cari data jalan Try bukaDB() Dim md AsNewMySqlDataAdapter(" select * from data_jalan where no_ruas like '%"& TextBox6.Text &"' or nama_ruas like '%"& TextBox6.Text &"' or tahun like '%"& TextBox6.Text &"' or lokasi like '%"& TextBox6.Text &"'", konek) DimdtAsNewDataTable md.Fill(dt) DataGridView1.DataSource = dt DataGridView1.Refresh() Catch ex AsException
63
EndTry -
Cari data dokumentasi Try bukaDB() Dim md AsNewMySqlDataAdapter(" select * from dokumentasi where lokasi like '%"& TextBox7.Text &"' or nama_ruas like '%"& TextBox7.Text &"'", konek) DimdtAsNewDataTable md.Fill(dt) DataGridView2.DataSource = dt DataGridView2.Refresh() Catch ex AsException
EndTry
-
Export excel data jalan PublicSubExportkeExcel(ByVal tabeldata AsDataGridView) Dim rowsTotal, colsTotal AsShort DimI, j, iC AsShort
System.Windows.Forms.Cursor.Current = System.Windows.Forms.Cursors.WaitCursor Dim xlApp AsNew Excel.Application
64
Try
xlApp.Visible = True xlApp.UserControl = True Dim oldCI As System.Globalization.CultureInfo = _ System.Threading.Thread.CurrentThread.CurrentCulture System.Threading.Thread.CurrentThread.CurrentCulture = _ NewSystem.Globalization.CultureInfo("en-US") Dim excelBook As Excel.Workbook = xlApp.Workbooks.Add System.Threading.Thread.CurrentThread.CurrentCulture = oldCI
Dim excelWorksheet As Excel.Worksheet = CType(excelBook.Worksheets(1), Excel.Worksheet)
Dim iX AsInteger Dim iY AsInteger
Dim TheRg As Excel.Range
xlApp.Visible = True rowsTotal = tabeldata.RowCount - 0 colsTotal = tabeldata.Columns.Count - 1
65
For iX = 0 To tabeldata.Rows.Count - 2
Next
For iY = 0 To tabeldata.Columns.Count - 2
Next With excelWorksheet .Cells.Select() .Cells.Delete() ForiC = 0 To colsTotal .Cells(1, iC + 1).Value = tabeldata.Columns(iC).HeaderText Next For I = 0 To rowsTotal - 1 For j = 0 To colsTotal - 0 .Cells(I + 2, j + 1).value = tabeldata.Rows(I).Cells(j).Value Next j Next I .Rows("1:1").Font.FontStyle = "Bold" .Rows("1:1").Font.Size = 11
TheRg = .Rows("2:"& tabeldata.RowCount.ToString)
66
.Cells.Columns.AutoFit() .Cells.Select() .Cells.EntireColumn.AutoFit() .Cells(1, 1).Select() EndWith Catch ex AsException MsgBox("Export Excel Error "& ex.Message) Finally
System.Windows.Forms.Cursor.Current = System.Windows.Forms.Cursors.Default xlApp = Nothing
EndTry
EndSub
-
Export dokumentasi PrintPreviewDialog1.Document = PrintDocument1 'PrintPreviewDialog associate with PrintDocument. PrintPreviewDialog1.ShowDialog() 'open the print preview
67
PrivateSub PrintDocument1_PrintPage(ByVal sender As System.Object, ByVal e As System.Drawing.Printing.PrintPageEventArgs) Handles PrintDocument1.PrintPage e.Graphics.DrawString(Label10.Text, Label6.Font, Brushes.Black, 300, 50) e.Graphics.DrawString(Label6.Text, Label6.Font, Brushes.Black, 100, 100) e.Graphics.DrawString(Label7.Text, Label7.Font, Brushes.Black, 250, 100) e.Graphics.DrawString(Label8.Text, Label8.Font, Brushes.Black, 100, 130) e.Graphics.DrawString(Label9.Text, Label9.Font, Brushes.Black, 250, 130) e.Graphics.DrawString(Label11.Text, Label9.Font, Brushes.Black, 150, 200) e.Graphics.DrawString(Label12.Text, Label9.Font, Brushes.Black, 600, 200) e.Graphics.DrawImage(PictureBox2.BackgroundImage, height:=300, width:=300, x:=50, y:=250) e.Graphics.DrawImage(PictureBox3.BackgroundImage, height:=300, width:=300, x:=500, y:=250)
e.Graphics.PageUnit = GraphicsUnit.Inch
68
EndSub
d. Form 2 -
Logout Me.Close() Form1.Show()
-
Tampil data profile Try Dim sql AsString = "select * from profile " Dim cmd AsNewMySqlCommand(sql, Module1.ok) Dim rd AsMySqlDataReader
rd = cmd.ExecuteReader
rd.Read()
If rd.HasRows Then
TextBox13.Text = rd.Item("profile") TextBox14.Text = rd.Item("visi") TextBox15.Text = rd.Item("susunan_organisasi") TextBox16.Text = rd.Item("kepala_Dinas") EndIf
69
Catch ex AsException MsgBox(ex.Message) EndTry Dim sql2 AsString = "select * from profile where id=@id" Dim cmd2 AsNewMySqlCommand(sql2, Module1.ok) Dim rd2 AsMySqlDataReader Try cmd2.Parameters.Add("@id", MySqlDbType.VarChar).Value = 1 rd2 = cmd2.ExecuteReader If rd2.Read Then Ifrd2("struktur_organisasi") IsNotDBNull.Value Then DimimageByte() AsByte = Nothing imageByte = CType(rd2("struktur_organisasi"), Byte()) Dim ms AsNewMemoryStream(imageByte) Dim bmap AsNewBitmap(ms) PictureBox5.BackgroundImage = CType(bmap, Image) PictureBox5.BackgroundImageLayout = ImageLayout.Stretch EndIf
70
EndIf Catch ex AsException MessageBox.Show(ex.Message, "Error display gambar", MessageBoxButtons.OK, MessageBoxIcon.Error)
EndTry -
Update data profile Dim sql AsString = "update profile set profile=@profile, visi=@visi, susunan_organisasi=@susunan, struktur_organisasi=@struktur, kepala_Dinas=@kepala where id='1'" Dim cmd AsMySqlCommand Try bukaDB() insert_gambar() cmd = NewMySqlCommand(sql, Module1.ok) cmd.Parameters.Add("@profile", MySqlDbType.VarChar).Value = TextBox13.Text cmd.Parameters.Add("@visi", MySqlDbType.VarChar).Value = TextBox14.Text cmd.Parameters.Add("@susunan", MySqlDbType.VarChar).Value = TextBox15.Text
71
cmd.Parameters.Add("@kepala", MySqlDbType.VarChar).Value = TextBox16.Text cmd.Parameters.Add("@struktur", MySqlDbType.Blob).Value = rawData
cmd.ExecuteNonQuery() MessageBox.Show("data berhasil diupdate", "Simpan sukses", MessageBoxButtons.OK, MessageBoxIcon.Information)
Catch ex AsException MessageBox.Show(ex.Message, "Error simpan") Finally sql = Nothing cmd = Nothing EndTry
-
Tampil data jalan Sub tampildata()
-
Simpan data jalan Try If TextBox1.Text = ""Or TextBox2.Text = ""Or TextBox2.Text = ""Or TextBox3.Text = ""Or TextBox4.Text = ""Or TextBox5.Text
72
= ""Or TextBox6.Text = ""Or TextBox7.Text = ""Or TextBox8.Text = ""Or TextBox9.Text = ""Or TextBox10.Text = ""Or ComboBox1.Text = ""Or ComboBox2.Text = ""Then MsgBox("data belum lengkap!", vbInformation, " BINAMARGA SUMEDANG ") TextBox1.Focus() Else
bukaDB() Dim query AsNewMySqlDataAdapter(" INSERT INTO data_jalan VALUES('"& TextBox1.Text &"','"& TextBox2.Text &"','"& TextBox3.Text &"','"& ComboBox1.Text &"','"& TextBox4.Text &"','"& TextBox5.Text &"','"& TextBox6.Text &"','"& TextBox7.Text &"','"& TextBox8.Text &"','"& TextBox9.Text &"','"& TextBox10.Text &"','"& ComboBox2.Text &"')", konek) DimdtAsNewDataTable query.Fill(dt) DataGridView1.Refresh() Dim a AsInteger a = MsgBox("apakah anda ingin mengisi data lagi?", vbQuestion + vbYesNo, " BINAMARGA SUMEDANG ") If a = vbYes Then Try tampildata()
73
bersih() TextBox1.Focus() Catch ex AsException
EndTry
EndIf tampildata() bersih()
EndIf Catch ex AsException
EndTry -
Ubah data jalan Dim pesan AsInteger
pesan = MsgBox("Apakah anda yakin ingin mengupdate data ?", vbQuestion + vbYesNo, " BINAMARGA SUMEDANG ") If pesan = vbYes Then Try bukaDB() Dim query AsNewMySqlDataAdapter("UPDATE data_jalan set tahun='"& TextBox1.Text &"',no_ruas='"& TextBox2.Text &"',
74
nama_ruas='"& TextBox3.Text &"', jenis_pekerasan='"& ComboBox1.Text &"', lokasi='"& TextBox4.Text &"', panjang='"& TextBox5.Text &"', lebar='"& TextBox6.Text &"', baik='"& TextBox7.Text &"', sedang='"& TextBox8.Text &"', rusak_ringan='"& TextBox9.Text &"', rusak_berat='"& TextBox10.Text &"', photo='"& ComboBox2.Text &"' WHERE no_ruas ='"& TextBox2.Text &"'", konek) DimdtAsNewDataTable query.Fill(dt) DataGridView1.Refresh() tampildata() bersih() MsgBox("Data Berhasil diupdate", vbInformation, " BINAMARGA SUMEDANG ") Catch ex AsException MsgBox(ex.Message, " BINAMARGA SUMEDANG ") EndTry EndIf
-
Hapus data jalan Dim pesan AsInteger
pesan = MsgBox("Apakah anda yakin ingin menghapus data ?", vbQuestion + vbYesNo, " BINAMARGA SUMEDANG ")
75
If pesan = vbYes Then Try bukaDB() Dim query AsNewMySqlDataAdapter("DELETE FROM data_jalan WHERE no_ruas ='"& TextBox2.Text &"'", konek) DimdtAsNewDataTable query.Fill(dt) Dim query2 AsNewMySqlDataAdapter("DELETE FROM dokumentasi WHERE no_ruas ='"& TextBox2.Text &"'", konek) Dim dt2 AsNewDataTable query2.Fill(dt2) DataGridView1.Refresh() DataGridView2.Refresh() tampildata() tampildokumentasi() bersih() MsgBox("Data Berhasil Dihapus", vbInformation, "") Catch ex AsException MsgBox(ex.Message, " BINAMARGA SUMEDANG ") EndTry EndIf -
Cari data jalan Try bukaDB()
76
Dim md AsNewMySqlDataAdapter(" select * from data_jalan where no_ruas like '%"& TextBox11.Text &"' or nama_ruas like '%"& TextBox11.Text &"' or tahun like '%"& TextBox11.Text &"' or lokasi like '%"& TextBox11.Text &"'", konek) DimdtAsNewDataTable md.Fill(dt) DataGridView1.DataSource = dt DataGridView1.Refresh() Catch ex AsException
EndTry
-
Export data jalan Tampil laporan di form 4
-
Tampil data dokumentasi Try bukaDB() Dim mDA AsNewMySqlDataAdapter("SELECT nama_ruas, lokasi FROM dokumentasi ORDER BY no_ruas ASC", konek) DimdtAsNewDataTable mDA.Fill(dt) DataGridView2.DataSource = dt Form1.DataGridView2.DataSource = dt Form1.DataGridView2.Refresh()
77
DataGridView2.Refresh() DataGridView2.Refresh() With DataGridView2 .ColumnHeadersDefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter .Columns(0).Width = 200 .Columns(0).HeaderText = "NAMA RUAS" .Columns(1).Width = 200 .Columns(1).HeaderText = "LOKASI"
EndWith WithForm1.DataGridView2 .ColumnHeadersDefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter .Columns(0).Width = 100 .Columns(0).HeaderText = "NAMA RUAS" .Columns(1).Width = 200 .Columns(1).HeaderText = "LOKASI"
EndWith Catch ex AsException MsgBox(ex.Message, " BINAMARGA SUMEDANG ")
78
EndTry
-
Hapus data dokumentasi Dim pesan AsInteger
pesan = MsgBox("Apakah anda yakin ingin menghapus data ?", vbQuestion + vbYesNo, " BINAMARGA SUMEDANG ") If pesan = vbYes Then Try bukaDB() Dim query AsNewMySqlDataAdapter("DELETE FROM dokumentasi WHERE nama_ruas ='"& DataGridView2.CurrentRow.Cells(0).Value &"'", konek) DimdtAsNewDataTable query.Fill(dt) Dim query2 AsNewMySqlDataAdapter("update data_jalan set photo='TIDAK ADA' where nama_ruas ='"& DataGridView2.CurrentRow.Cells(0).Value &"'", konek) Dim dt2 AsNewDataTable query2.Fill(dt2)
MsgBox("Data Berhasil Dihapus", vbInformation, "") DataGridView2.Refresh() tampildokumentasi()
79
DataGridView1.Refresh() tampildata() PictureBox1.BackgroundImage = Nothing PictureBox2.BackgroundImage = Nothing Catch ex AsException MsgBox(ex.Message, " BINAMARGA SUMEDANG ") EndTry EndIf
-
Cari data dokumentasi Try bukaDB() Dim md AsNewMySqlDataAdapter(" select * from dokumentasi where lokasi like '%"& TextBox7.Text &"' or nama_ruas like '%"& TextBox7.Text &"'", konek) DimdtAsNewDataTable md.Fill(dt) DataGridView2.DataSource = dt DataGridView2.Refresh() Catch ex AsException
EndTry
-
Export data dokumentasi
80
PrintPreviewDialog1.Document = PrintDocument1 'PrintPreviewDialog associate with PrintDocument.
PrintPreviewDialog1.ShowDialog() 'open the print preview
PrivateSub PrintDocument1_PrintPage(ByVal sender As System.Object, ByVal e As System.Drawing.Printing.PrintPageEventArgs) Handles PrintDocument1.PrintPage e.Graphics.DrawString(Label26.Text, Label23.Font, Brushes.Black, 300, 50) e.Graphics.DrawString(Label23.Text, Label23.Font, Brushes.Black, 100, 100) e.Graphics.DrawString(Label21.Text, Label21.Font, Brushes.Black, 250, 100) e.Graphics.DrawString(Label24.Text, Label24.Font, Brushes.Black, 100, 130) e.Graphics.DrawString(Label25.Text, Label25.Font, Brushes.Black, 250, 130) e.Graphics.DrawString(Label27.Text, Label25.Font, Brushes.Black, 150, 200) e.Graphics.DrawString(Label28.Text, Label25.Font, Brushes.Black, 650, 200)
81
e.Graphics.DrawImage(PictureBox1.BackgroundImage, height:=300, width:=300, x:=50, y:=250) e.Graphics.DrawImage(PictureBox2.BackgroundImage, height:=300, width:=300, x:=500, y:=250)
e.Graphics.PageUnit = GraphicsUnit.Inch EndSub
-
Tampil data user Try bukaDB() Dim mDA AsNewMySqlDataAdapter("SELECT nama, username FROM user ORDER BY id ASC", konek) DimdtAsNewDataTable mDA.Fill(dt) DataGridView3.DataSource = dt
DataGridView3.Refresh() With DataGridView3 .ColumnHeadersDefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter .Columns(0).Width = 200 .Columns(0).HeaderText = "NAMA PENGGUNA" .Columns(1).Width = 200
82
.Columns(1).HeaderText = "USERNAME"
EndWith Button12.Visible = True Button14.Visible = False
Catch ex AsException MsgBox(ex.Message) EndTry -
Tampil Data user Ke Textbox Try Dim sql AsString = "select * from user where nama='"&DataGridView3.CurrentRow.Cells(0).Value &"' " Dim cmd AsNewMySqlCommand(sql, Module1.ok) Dim rd AsMySqlDataReader
rd = cmd.ExecuteReader
rd.Read()
If rd.HasRows Then TextBox21.Text = rd.Item("id") TextBox17.Text = rd.Item("nama") TextBox18.Text = rd.Item("username")
83
TextBox19.Text = "" TextBox19.Focus() Button14.Visible = True Button12.Visible = False EndIf
Catch ex AsException MsgBox(ex.Message) EndTry
-
Simpan/update data user Try bukaDB() Dim query AsNewMySqlDataAdapter("UPDATE user set nama='"& TextBox17.Text &"', username='"& TextBox18.Text &"', password='"& TextBox19.Text &"' WHERE id ='"& TextBox21.Text &"'", konek) DimdtAsNewDataTable query.Fill(dt) DataGridView3.Refresh() tampiladmin()
84
MsgBox("Data Berhasil diupdate", vbInformation, " BINAMARGA SUMEDANG ")
Callbersihadmin() Catch ex AsException
EndTry
-
Hapus data user Dim pesan AsInteger
pesan = MsgBox("Apakah anda yakin ingin menghapus data ?", vbQuestion + vbYesNo, " BINAMARGA SUMEDANG ") If pesan = vbYes Then Try bukaDB() Dim query AsNewMySqlDataAdapter("DELETE FROM user WHERE id ='"& TextBox21.Text &"'", konek) DimdtAsNewDataTable query.Fill(dt) MsgBox("Data Berhasil Dihapus", vbInformation, "") DataGridView3.Refresh() Calltampiladmin() Callbersihadmin()
85
Catch ex AsException MsgBox(ex.Message, " BINAMARGA SUMEDANG ") EndTry EndIf
e. Form 3 -
Browse data poto Try Dim dlgfile AsOpenFileDialog PictureBox1.Image = Nothing dlgfile = NewOpenFileDialog dlgfile.Filter = "JPEG images(*.jgp,*.jpeg)|*.jpg;*.jpeg |GIF images (*.gif)|*.gif | Bitmaps (*.bmp)|*.bmp" dlgfile.FilterIndex = 1 PictureBox1.Visible = True If dlgfile.ShowDialog = Windows.Forms.DialogResult.OK Then strImageName = dlgfile.FileName PictureBox1.SizeMode = PictureBoxSizeMode.StretchImage PictureBox1.Image = Image.FromFile(strImageName) EndIf Catch ex AsException MessageBox.Show(ex.Message, "Error tampilkaan gambar", MessageBoxButtons.OK, MessageBoxIcon.Error)
86
EndTry -
Simpan data poto Dim sql AsString = "insert into dokumentasi(no_ruas,nama_ruas,lokasi,poto1,poto2) values(@no,@nama,@lokasi,@gambar,@gambar2)" Dim cmd AsMySqlCommand Try bukaDB() insert_gambar() cmd = NewMySqlCommand(sql, Module1.ok) cmd.Parameters.Add("@no", MySqlDbType.VarChar).Value = TextBox3.Text cmd.Parameters.Add("@nama", MySqlDbType.VarChar).Value = TextBox1.Text cmd.Parameters.Add("@lokasi", MySqlDbType.VarChar).Value = TextBox2.Text cmd.Parameters.Add("@gambar", MySqlDbType.Blob).Value = rawData cmd.Parameters.Add("@gambar2", MySqlDbType.Blob).Value = rawData2 cmd.ExecuteNonQuery() MessageBox.Show("Gambar berhasil disimpan", "Simpan sukses", MessageBoxButtons.OK, MessageBoxIcon.Information) Form2.tampildokumentasi()
87
PictureBox1.Image = Nothing PictureBox2.Image = Nothing
Me.Hide()
Catch ex AsException MessageBox.Show(ex.Message, "Error simpan") Finally sql = Nothing cmd = Nothing
EndTry -
Batal Me.Close() Form2.ComboBox2.Text = "TIDAK ADA"
f. form 4 Export Data Public Class Form4 Private Sub Form4_Load(sender As Object, e As EventArgs) Handles MyBase.Load
88
'TODO: This line of code loads data into the 'DataSet1.DataTable1' table. You can move, or remove it, as needed. Me.DataTable1TableAdapter.Fill(Me.DataSet1.DataTable1)
Me.ReportViewer1.RefreshReport() End Sub
Private Sub Button1_Click(sender As Object, e As EventArgs) Me.Close()
End Sub
End Class
89
3.3.2 Testing Berikut hasil testing yang dilakukan setelah aplikasi dibangun, sesuai dengan rancangan dan kebutuhan yang ada. Tabel 3.5 Hasil testing No
Nama Uji
Cara Pengujian
Hasil yang diharapkan
Hasil Pengujian
1
2
3
4
5
Aplikasi berjalan dan muncul form 1 dan menu utama
Sesuai yang diharapkan
1.
Aplikasi
2.
Form 1 1. Tab Utama
dijalankan
Muncul tab utama
- Textbox username
- Diklik
- Textbox password
- Diklik dan dimasukan data - Diklik dan dimasukan data - Diklik
- Tombol login
2. Tab Profile -
Tab profile
- Diklik
-
Tab visi
- Diklik
-
Tab susunan organisasi
- Diklik
-
Tab struktur organisasi
- Diklik
3. Tab data jalan
- Diklik
-
Textbox cari
- Diisi data
-
Tombol export
- Diklik
Bisa diklik dan dimasukan text Bisa diklik dan dimasukan text Bisa diklik dan melakukan proses login Menampilkan informasi profile Menampilkan informasi profile Menampilkan informasi visi Menampilkan informasi susunan organisasi Menampilkan informasi struktur organisasi Tampil data jalan Dapat diisi data Menampilkan hasil export berbentuk file Ms. Excel
Sesuai yang diharapkan Sesuai yang diharapkan Sesuai yang diharapkan Sesuai yang diharapkan Sesuai yang diharapkan Sesuai yang diharapkan Sesuai yang diharapkan Sesuai yang diharapkan
Sesuai yang diharapkan Sesuai yang diharapkan Sesuai yang diharapkan Sesuai yang diharapkan
90
4. Tab dokumentasi -
Gridview
- Diklik
-
Textbox cari
- Diklik - Diisi data
-
3.
- Diklik
Tombol print/ export
Form 2 1. Tab utama
Menampilkan data dokumentasi Menampilkan data ke textbox sesuai data yang dipilih Dapat diisi text Dapat menampilkan dialog printview sesuai data gambar yang dipilih
Sesuai yang diharapkan
- Diklik
Sesuai yang diharapkan Sesuai yang diharapkan Sesuai yang diharapkan
-
Textbox tahun
- Diisi
-
Textbox no jalan
- Diisi
Dapat diisi
-
- Diisi
Dapat diisi
-
Textbox nama ruas Textbox lokasi
- Diisi
Dapat diisi
-
Textbox panjang
- Diisi
Dapat diisi
-
Textbox lebar
- Diisi
Dapat diisi
-
Textbox baik
- Diisi
Dapat diisi
-
Textbox sedang
- Diisi
Dapat diisi
-
Textbox rusak ringan
- Diisi
Dapat diisi
Tombol logout
2. Tab profile
-
Tombol simpan/ update
3. Tab data jalan
Sesuai yang diharapkan
- Diklik
Menampilkan menu utama Melakukan proses logout Menampilkan form dan informasi profile Menyimpan/ mengupdate data profile Menampilkan form dan data jalan Dapat diisi
-
Sesuai yang diharapkan Sesuai yang diharapkan
- Diklik - Diklik
- Diklik
- Diklik
Sesuai yang diharapkan Sesuai yang diharapkan Sesuai yang diharapkan Sesuai yang diharapkan Sesuai yang diharapkan Sesuai yang diharapkan Sesuai yang diharapkan Sesuai yang diharapkan Sesuai yang diharapkan Sesuai yang diharapkan Sesuai yang diharapkan
91
-
Textbox rusak berat Textbox cari
- Diisi
Dapat diisi
- Diisi
Dapat diisi
- Dipilih
Dapat dipilih
-
Combobox pekerasan Combobox poto
- Dipilih
Dipilih
-
Datagridview
- Diklik
-
Tombol simpan
- Diklik
-
Tombol hapus
- Diklik
-
Tombol update
- Diklik
-
Tombol export
- Diklik
-
Tombol batal
- Diklik
Dapat menampilkan data jalan ke textbox sesuai data yang dipilih Dapat menyimpan data Dapat menghapus data Dapat megupdate data Dapat menapilkan dialog prinview dan pilihan export Dapat membatalkan proses pengisian form Dapat menampilkan informasi dokumentasi Dapat diisi
-
4. Tab dokumentasi
- Diklik
-
Textbox cari
- Diisi
-
Datagridview
- Diklik
-
Tombol print
- Diklik
-
Tombol hapus
- Diklik
5. Tab user/admin
- Diklik
Dapat menampilkan data sesuai data yang dipilih ke textbox Dapat menampilkan printview dialog Dapat menghapus data Dapat menampilkan informasi dan form admin/user
Sesuai yang diharapkan Sesuai yang diharapkan Sesuai yang diharapkan Sesuai yang diharapkan Sesuai yang diharapkan
Sesuai yang diharapkan Sesuai yang diharapkan Sesuai yang diharapkan Sesuai yang diharapkan
Sesuai yang diharapkan
Sesuai yang diharapkan
Sesuai yang diharapkan Sesuai yang diharapkan
Sesuai yang diharapkan Sesuai yang diharapkan Sesuai yang diharapkan
92
-
- Diisi
Dapat diisi
- Diisi
Dapat diisi
- Diisi
Dapat diisi
-
Textbox nama user Textbox username Textbox password Textbox cari
- Diisi
Dapat diisi
-
Datagridview
- Diklik
-
Tombol simpan/update
- Diklik
Dapat menampilkan data sesuai data yang dipilih ke textbox Dapat menyimpan dan mengupdate data admin/user
-
4.
5.
Form 3 1. Tombol browse
Diklik
2. Tombol simpan
Diklik
3. Tombol batal
Diklik
Form 4
Ditampilkan
Menampilkan open dialog Menyimpan data
Sesuai yang diharapkan Sesuai yang diharapkan Sesuai yang diharapkan Sesuai yang diharapkan Sesuai yang diharapkan
Sesuai yang diharapkan
Sesuai yang diharapkan Sesuai yang diharapkan Menyembunyikan Sesuai yang data diharapkan Menampilkan Sesuai yang laporan data jalan diharapkan
93
3.4
Implementasi
Berikut ini hasil inplementasi dari system yang dibangun: a.
Form 1 -
Tab Home
Gambar 3.23 Form 1 Menu Utama
-
Tab Profile 1. Tab Profile – Profile
Gambar 3.24 Form 1 Profile-Profile
94
2.
Tab Profile – Visi
Gambar 3.25 Form 1 Profile-Visi
3.
Tab Profile – Susunan Organisasi
Gambar 3.26 Form 1 Profile-Susunan Organisasi
95
4.
Tab Profile – Struktur Organisasi
Gambar 3.27 Form 1 Profile-Struktur Organisasi
-
Tab Data Jalan
Gambar 3.28 Form 1 Data Jalan
96
-
Tab Dokumentasi
Gambar 3.29 Form 1 Dokumentasi
b. Form 2 -
Tab Home
Gambar 3.30 Form 2 Tab Home
97
-
Tab Profile
Gambar 3.31 Form 2 Tab Profile
-
Tab Data Jalan
Gambar 3.32 Form 2 Tab Data Jalan
98
-
Tab Dokumentasi
Gambar 3.33 Form 2 Tab Dokumentasi
-
Tab Admin
Gambar 3.34 Form 2 Tab Admin
99
c.
Form 3
Gambar 3.35 Form 3
d.
Form 4
Gambar 3.36 Form 4
100
e.
Printview Dokumentasi
Gambar 3.37 Form Printview Dokumentasi
BAB IV SIMPULAN DAN SARAN
4.1
Simpulan Dengan adanya Tugas Akhir ini, disamping sebagai salah satu persyaratan
kuliah yang wajib dilaksanakan, penulis juga merasakan berbagai manfaat dan pengalaman yang berharga diantaranya yaitu : kemampuan kerja, motivasi kerja, inisiatif, kreativitas, hasil kerja yang berkualitas dan kerajinan dalam bekerja, serta produktivitas kerja. Berdasarkan pembahasan sebelumnya, maka penulis dapat mengambil Simpulan dari apa yang didapatkan, diantaranya sebagai berikut: 1.
Aplikasi Pengolahan Data Jalan Kewenangan Pada Dinas Bina Marga dan Sumber Daya Air (DBJK-DBMSDA) Kabupaten Sumedang yang berbasis desktop dapat mengurangi kesulitan yang ada, diantaranya, Tidak memerlukan koneksi internet, lebih aman dari gangguan pencurian data maupun serangan virus, dan biaya pemeliharaan lebih irit. sehingga dapat dilakukan tindakan selanjutnya.
2.
Pada sistem terkomputerisasi terkait dengan proses penyimpanan data, pengolahan dan proses penampilan informasi bisa dilakukan oleh Aplikasi Pengolahan Data Jalan Kewenangan Pada Dinas Bina Marga dan Sumber Daya Air (DBJK-DBMSDA) Kabupaten Sumedang, untuk pengambilan keputusan dalam menentukan kebijakan tentang jalan kewenangan pada Dinas Bina Marga dan Sumber Daya Air Kabupaten Sumedang. 101
102
4.2
Saran Saran atau masukan yang dapat penulis berikan untuk menunjang atau
pengembangan sistem selanjutnya adalah sebagai berikut : 1.
Melakukan
pengembangan
dan
penyempurnaan
sistem,
seperti
peningkatan keamanan dan fasilitas pelayanan. 2.
Perlunya upaya publikasi database Jalan Kewenangan pada dinas BMSDA untuk memperoleh hasil yang lebih maksimal.
DAFTAR PUSTAKA
Adi Nugroho, 2002, Analisis dan perancangan sistem informasi dengan metodologi berorientasi objek, Informatika, Bandung. Al-Bahra bin Ladjamudin, 2005, Analisis dan Desain Sistem Informasi, Graha Ilmu, Yogyakarta. Bambang Hariyanto, 2004, Sistem Manajemen Basis Data, Informatika, Bandung. Brady & Loonam, 2010, Exploring the use of entity-relationship diagramming as a technique to support grounded theory inquiry, Emerald Group Publishing, Bradford. Eko, 2011, Visual Basic 6 Beginner Guide, Mediakom, Jakarta. Hengky W. Pramana, 2006, Aplikasi Inventory Berbasis Access 2003, Elex Media Komputindo, Jakarta. Hoffer, Jeffrey A, 1996, Modern Systems Analysis and Design, 2nd Edition, Addition-Wesley Longman Inc, USA. Jogiyanto H.M, 2005, Sistem Teknologi Informasi, Andi, Yogyakarta Jogiyanto, Hartono, 2006, Analisis & Desain Sistem Informasi : Pendekatan Terstruktur Teori dan Praktek Aplikasi Bisnis, Andi Offset, Yogyakarta. Jogiyanto, H.M, 2010, Teori Portofolio dan Analisis Investasi, Edisi Ketujuh, BPFE, Yogyakarta. Junaedi, 2005, Panduan Lengkap Pemrograman HTML, Devisi Percetakan dan Penerbitan PD. Anindaya, Yogyakarta. Kristanto, 2003, Jaringan Komputer, Graha Ilmu, Bandung. Kroenke, 2006, Database Processing : Implementation, Pearson Prentice Hall.
Fundamentals,
Design,
and
Kusrini, 2007, Tuntunan Praktis Membangun Sistem Informasi Akuntansi dengan Visual Basic dan Microsoft SQL Server, Andi, Yogyakarta. Pahlevy, 2010, Rancang Bangun Sistem pendukung Keputusan Menentukan penerima Beasiswa dengan Menggunakan metode Simple Additive Weighting, Tekhnik Informatika, Surabaya. Pressman, Roger S, 2001, Software Engineering : A Practitioner’s Approach, Fifth Edition, The McGraw-Hill Companies.Inc, Singapore. R Stephens and Ronald Plew, 2000, Database Design, 1st ed. Sams Publishing, USA. Roger.S. Pressman Ph.D, 2002, Rekayasa Perangkat Lunak Jilid 1, ANDI dan McGraw-Hill Book Co, Yogyakarta. Silberschatz, A. dkk, 2002, Database System Concepts, 4th Edition,McGraw-Hill, New York.
Suhata, 2005, VB Sebagai Pusat Kendali Peralatan Elektronik, PT Elex Media Komputindo, Jakarta. Sulhan, Moh, 2007, Pengembangan Aplikasi Berbasis Web dengan PHP & ASP, Penerbit Gava Media, Yogyakarta. Wijaya, 2007, Hubungan Adversity Intelligence dengan Intensi berwirausaha. Jurnal Manajemen dan Kewirausahaan (9, 2, 117-127). Diakses pada tanggal 3 November 2012 dari http://puslit2.petra.ac.id/ejurnal /index.php/man/articel/viewFile/16784/167. Yuhefizar, 2010, Step By Step Make Over Joomla, Elex Media Komputindo, Jakarta.
SUMBER LAIN http://aa-udien.blogspot.co.id http://adian susanto.blogspot.com http://bastianwkwk.blogspot.com http://intanstemapal24.blogspot.co.id http://kapanpunbisa.blogspot.co.id http://kbbi.web.id/adaptabel http://khoirulabadi.staff.umm.ac.id http://konsulatlaros.blogspot.com http://perencanaankota.blogspot.com http://sisfo08.blog.com http://wahyudiarbi.blogspot.co.id http://www.academia.edu/9308770/Pengertian_perancangan_menurut_bin_Ladja mudin http://www.c-sharpcorner.com http://www.chayadionsiteaching.wordpress.com http://www.gustriphenomg3.blogspot.com http://www.mufidajidarma.blogspot.com http://www.landasanteori.com http://www.laskarncc.com http://www.scribd.com/doc/160888965/Waterfall#scribd http://www. thismystudydiary.wordpress.com