SISTEM PENUNJANG KEPUTUSAN PEMENANG TENDER PROYEK MENGGUNAKAN METODE ANALITYC HIERARCHY PROCESS (AHP) PADA DINAS PEKERJAAN UMUM KABUPATEN ACEH SELATAN
SKRIPSI
Diajukan Untuk Menempuh Ujian Akhir Sarjana Program Strata Satu Jurusan Teknik Informatika
OLEH
TEUKU MIRWAN SAHPUTRA 0814030399
JURUSAN TEKNIK INFORMATIKA FAKULTAS TEKNIK UNIVERSITAS SERAMBI MEKKAH BANDA ACEH, 2011
UNIVERSITAS SERAMBI MEKKAH
FAKULTAS TEKNIK JURUSAN TEKNIK INFORMATIKA Jl. Tgk. Imeum Lueng Bata Telp. (0651) 26160 dan (0651) 22471 Fax. 2271 Banda Aceh
HALAMAN PENGESAHAN SISTEM PENUNJANG KEPUTUSAN PEMENANG TENDER PROYEK MENGGUNAKAN METODE ANALITYC HIERARCHY PROCESS (AHP) PADA DINAS PEKERJAAN UMUM KABUPATEN ACEH SELATAN
OLEH NAMA NIM JURUSAN
: TEUKU MIRWAN SAHPUTRA : 0814030399 : TEKNIK INFORMATIKA
Telah Diseminarkan Pada Tanggal 6 Desember 2011 dan Dinyatakan Telah Memenuhi Persyaratan
Menyetujui; Pembimbing I : Ir. Hj. Elvitriana, M.Eng
( .................................... )
Pembimbing II : M. Fadhli, S.Kom., M.Kom
( .................................... )
Penguji I
: Drs. Agus Wahyuni, ST., M. Pd
( .................................... )
Penguji II
: Dedi Satria, S. Si., M. Sc
( .................................... )
Mengetahui; Dekan Fakultas Teknik Universitas Serambi Mekkah
Ketua Jurusan Teknik Informatika
Ir. Hj. Elvitriana, M.Eng
M. Fadhli. S.Kom., M.Kom i
PERSEMBAHAN DAN MOTTO Rasa puji syukur saya panjatkan kepada Allah SWT atas karunia dan rahmat-Nya saya bisa menyelesaikan tugas akhir ini dengan baik dan semoga akan dapat bermanfaat dikemudian hari bagi orang lain. Selawat dan Salam tak lupa saya kirimkan kepada Nabi Besar Muhammad SAW, karena beliaulah semoga saya senantiasa menjadi orang yang selalu benar dalam melangkah kejalan diridhai oleh Allah. SWT.. Untuk Ayah dan Ibuku, Abang dan Iparku, Adikku serta Ponaanku Cut Raya, Cut Wawa, dan semua keluarga besarku... Terima kasih untuk semuanya sehingga selalu menjadikanku yang terbaik..... Untuk Fidawati, yang telah memberikan waktu dan semangatnya agar aku terus terpacu dalam penyelesaian tugas akhir ini...Tank You Very Much.... Semua kawan, sobat, teman dan relasi .. terima kasih atas persahabatan dan motivasinya. Pihak-pihak kedua dan seterusnya..... Terima kasih.
---------- *-* ---------”Jangan pernah takut tuk berbuat kesalahan, dan segeralah tuk memperbaikinya”. ”Tumbuhkan jati diri dengan melihat seberapa banyak yang kita bisa”. (Novian and Teuku Iwan) “Jadilah sabar dan shalat sebagai penolongmu, sesungguhnya Allah beserta orang-orang yang sabar“.( Q. S. Al Baqarah ayat 153 ) “Satu hal yang membuat kita tidak bisa, yaitu tidak berani untuk mencoba”. (Teuku Iwan) “Sesungguhnya sesudah kesulitan itu ada kemudahan; Maka apabila kamu telah selesai (dari suatu urusan), kerjakanlah dengan sunguh-sungguh (urusan) yang lain”. ( Q. S. Asy Syarh Ayat 6 dan 7 ) “Kemuliaan adalah milik Allah, dan Rasul-Nya, dan orang – orang Mukmin“. (Q. S. Al-Munafiqun [63]: 8)
ii
KATA PENGANTAR
Puji dan syukur penulis panjatkan kehadirat Allah SWT yang telah melimpahkan rahmat dan karunia-Nya, sehingga penulis dapat menyelesaikan penulisan skripsi yang berjudul “Sistem Penunjang Keputusan Pemenang Tender Proyek menggunakan Metode Analityc Hierarchy Proccess (AHP) Pada Dinas Pekerjaan Umum Kabupaten Aceh Selatan”, yang diajukan untuk menempuh Ujian Akhir Sarjana Program Strata Satu Jurusan Teknik Informatika.
Selesainya penulisan skripsi ini, tidak terlepas peran serta dari berbagai pihak. Oleh karena itu, pada kesempatan ini penulis menyampaikan ucapan terima kasih yang sebesar-besarnya kepada: 1. Bapak Dr. Abdul Gani Asyik, M. A., selaku Rektor Universitas Serambi Mekkah. 2. Ibu Ir. Hj. Elvitriana, M. Eng., selaku Dekan Fakultas Teknik sekaligus Pembimbing I, yang begitu tulus dan penuh kesabaran dalam memberikan bimbingan saran, arahan, motivasi kepada penulis dari awal hingga tugas akhir ini selesai. 3. Bapak M. Fadli, S.Kom., M.Kom., selaku Ketua Jurusan Teknik Informatika sekaligus Pembimbing II, yang bersedia meluangkan waktu dalam mengarahkan penulis dengan begitu luar biasa memberikan saran, masukan, hingga tugas akhir ini selesai. 4. Bapak Izhar, S.T., selaku Pembantu Dekan I Bidang Akademik Fakultas Teknik, yang selalu memberikan nasehat, motivasi sejak awal hingga akhir perkuliahan. 5. Bapak Dedi Satria, S.Si., M. Sc., selaku Sekretaris Jurusan Teknik Informatika, yang selalu memberi support kepada penulis selama menyelesaikan studi.
iii
6. Bapak Drs. Agus Wahyuni, ST., M. Pd., yang begitu banyak memberikan petuah-petuah kepada penulis dari perkuliahan hingga tugas akhir ini selesai. 7. Bapak dan Ibu Dosen yang mengajar di Jurusan Teknik Informatika Fakultas Teknik Universitas Serambi Mekkah, terima kasih atas bimbingan dan pelajaran yang telah Bapak dan ibu berikan. 8. Staf Akademik Fakultas Teknik Universitas Serambi Mekkah, terima kasih atas waktunya dan kesempatannya. 9. Untuk Ayah dan Ibuku tercinta, Kakandaku Teuku Zulpardi, Kakak Iparku Desi Kurniawati, Adik-adikku Teuku Suara Anuar, Teuku Jalda Utama, Teuku Sayuti, Cut Sudarianti, Ponaanku Cut Tsuraya, Cut Wawa, serta Abu beserta Bunda, dan seluruh keluarga besarku. Terima kasih untuk semuanya sehingga selalu menjadikanku yang terbaik. 10. Buat Fida yang begitu banyak memberikan motivasi agar aku terus terpacu dalam menyelesaikan tugas akhir ini. Thank’s atas perhatiannya. 11. Buat teman-teman semua yang tidak mungkin penulis sebutkan satu persatu yang selama kuliah dan hari-hari ku selalu bersama dalam suka dan duka terima kasih untuk semuanya. 12. Untuk konsultasivb.com yang selalu memberikanku pencerahan ketika aku berada dalam kesulitan dalam coding Visual Basic. You are The best. Semoga Allah SWT melimpahkan rahmat dan hidayahnya kepada semua pihak yang telah membantu dalam menyelesaikan penulisan skripsi ini. Penulis menyadari bahwa dalam penyusunan skripsi ini masih banyak terdapat kekeliruan dan kekurangan. Untuk itu penulis menyampaikan permohonan maaf sebelumnya serta sangat diharapkan kritik dan saran yang sifatnya membangun untuk penyempurnaan di masa mendatang.
Banda Aceh,
6 Desember 2011 M 10 Muharram 1433 H Penulis
iv
ABSTRAK Sistem penunjang keputusan merupakan suatu sistem yang dapat membantu panitia pada Dinas Pekerjaan Umum Kabupaten Aceh Selatan dalam mengambil keputusan dengan kemampuan analisa pemilihan pemenang tender proyek menggunakan metode Analytic Hierarchy Process (AHP), dimana masing-masing kriteria dalam hal ini faktor-faktor penilaian dan alternatif dibandingkan satu dengan yang lainnya sehingga memberikan output nilai intensitas prioritas yang menghasilkan suatu sistem yang memberikan penilaian terhadap setiap perusahaan. Sistem penunjang keputusan ini membantu melakukan penilaian setiap perusahaan Tender proyek. Dan dengan melakukan perubahan nilai bobot maka hal ini berguna untuk memudahkan pengambil keputusan yang terkait dengan masalah pemilihan pemenang tender proyek, sehingga akan didapatkan perusahaan yang paling layak untuk menjadi pemenang.
Kata kunci: Sistem Penunjang Keputusan (SPK), Tender Proyek, Analytic Hierarchy Process (AHP).
v
DAFTAR ISI Halaman HALAMAN PENGESAHAN ..........................................................................
i
PERSEMBAHAN DAN MOTTO ...................................................................
ii
KATA PENGANTAR ...................................................................................... iii ABSTRAK .........................................................................................................
v
DAFTAR ISI ..................................................................................................... vi DAFTAR GAMBAR ........................................................................................ ix DAFTAR TABEL ............................................................................................ xi BAB I PENDAHULUAN 1.1 Latar Belakang Masalah ....................................................................
1
1.2 Batasan Masalah ...............................................................................
2
1.3 Rumusan Masalah ............................................................................
2
1.4 Tujuan Penelitian .............................................................................
3
1.5 Manfaat Penelitian ...........................................................................
3
BAB II LANDASAN TEORI 2.1 Sistem Penunjang Keputusan (Decision Support System) ................
4
2.2 Tender Proyek ...................................................................................
9
2.3 Metode Analitycal Hierarchy Process (AHP) .................................. 11 BAB III METODE PENELITIAN 3.1 Tinjauan Umum ................................................................................ 20 3.2 Lokasi dan Waktu Penelitian ............................................................. 20 3.3 Peralatan Analisis Data ...................................................................... 21 3.4 Analisis............................................................................................... 21 3.4.1 Analisis Masalah ..................................................................... 21 3.4.2 Hierarchy Pemilihan Pemenang Tender Proyek ..................... 23 3.4.3 Prosedur Sistem Berjalan ........................................................ 30 3.4.4 Prosedur Sistem Usulan .......................................................... 32 vi
3.5 Rancangan Sistem............................................................................... 34 3.5.1 Rancangan Entity Relationship Diagram (ERD) .................... 34 3.5.2 Rancangan Data Flow Diagram (DFD) .................................. 35 3.5.2.1 Konteks Diagram ...................................................... 35 3.5.2.2 Level 1 ...................................................................... 36 3.5.2.3 Level 2 ...................................................................... 37 3.5.3 Rancangan Database ............................................................... 40 3.5.3.1 Struktur Database ..................................................... 40 3.5.3.2 Relasi Database......................................................... 47 3.5.4 Rancangan Menu .................................................................... 48 3.5.5 Rancangan Masukkan (Input) ................................................. 49 3.5.6 Rancangan Keluaran (Output) ................................................ 54 BAB IV HASIL DAN PEMBAHASAN 4.1 Implementasi Perangkat Lunak ......................................................... 55 4.2 Proses Implementasi ........................................................................... 55 4.2.1 Proses Hak Akses Pemakai ..................................................... 56 A. Login dan Ganti User (Pemakai) ..................................... 56 B. Menu Utama .................................................................... 56 C. Kelola Akses Pemakai ..................................................... 58 4.2.2 Proses Input Data .................................................................... 59 A. Data Perusahaan............................................................... 59 B. Data Paket ........................................................................ 59 C. Data Kecamatan ............................................................... 60 D. Data Gampong ................................................................. 61 E. Data Ikut .......................................................................... 61 4.2.3 Proses Evaluasi Dokumen ...................................................... 62 A. Koreksi Aritmatik ............................................................ 62 B. Evaluasi Administrasi ...................................................... 62 C. Evaluasi Teknis ................................................................ 63
vii
D. Evaluasi Harga ................................................................. 64 E. Proses Kualifikasi ............................................................ 65 4.2.4 Utility dan About .................................................................... 66 A. Profil Pengguna ............................................................... 66 B. Informasi .......................................................................... 67 C. Programmer ..................................................................... 67 4.2.5 Laporan Proses Evaluasi dan Pemenang ................................ 68 BAB V PENUTUP 5.1. Kesimpulan ....................................................................................... 72 5.2. Saran .................................................................................................. 72 DAFTAR PUSTAKA ........................................................................................ 73 LAMPIRAN ....................................................................................................... 75
viii
DAFTAR GAMBAR Halaman Gambar 2.1 Fase Proses Pengambilan Keputusan .............................................
8
Gambar 2.2 Dekomposisi Masalah .................................................................... 13 Gambar 3.1 Hirarki Pemilihan Pemenang Tender Proyek ................................. 24 Gambar 3.2 Sistem Berjalan .............................................................................. 31 Gambar 3.3 Sistem Usulan ................................................................................. 33 Gambar 3.4 Entity Relationship Diagram (ERD) .............................................. 34 Gambar 3.5 Diagram Konteks............................................................................ 35 Gambar 3.6 DFD Level 1 ................................................................................... 36 Gambar 3.7 DFD Level 2 Proses 1 .................................................................... 37 Gambar 3.8 DFD Level 2 Proses 2 .................................................................... 38 Gambar 3.9 DFD Level 2 Peoses 3 .................................................................... 38 Gambar 3.10 DFD Level 2 Proses 4 .................................................................. 39 Gambar 3.11 DFD Level 2 Proses 5 .................................................................. 39 Gambar 3.12 Relasi Antar Tabel ........................................................................ 47 Gambar 3.13 Menu Sistem................................................................................. 48 Gambar 3.14 Login ............................................................................................ 49 Gambar 3.15 Input Data Perusahaan .................................................................. 49 Gambar 3.16 Input Data Paket ........................................................................... 50 Gambar 3.17 Input Data Kecamatan .................................................................. 50 Gambar 3.18 Input Data Gampong .................................................................... 50 Gambar 3.19 Proses Evaluasi Koreksi Aritmatik .............................................. 51 Gambar 3.20 Proses Evaluasi Administrasi ....................................................... 51 Gambar 3.21 Proses Evaluasi Teknis ................................................................. 52 Gambar 3.22 Proses Evaluasi Harga .................................................................. 52 Gambar 3.23 Proses Evaluasi Kualifikasi .......................................................... 53 Gambar 3.24 Input Pemakai ............................................................................... 53 Gambar 3.25 Input Ikut ...................................................................................... 54 Gambar 3.26 Laporan Pemenang Tender........................................................... 54
ix
Gambar 4.1 Form Login dan Ganti Pemakai ..................................................... 56 Gambar 4.2 Form Menu Utama ......................................................................... 58 Gambar 4.3 Form Pengguna Aplikasi ................................................................ 58 Gambar 4.4 Form Data Perusahaan ................................................................... 59 Gambar 4.5 Form Data Paket ............................................................................. 60 Gambar 4.6 Form Data Kecamatan .................................................................... 60 Gambar 4.7 Form Data Gampong ...................................................................... 61 Gambar 4.8 Form Ikut ........................................................................................ 61 Gambar 4.9 Form Koreksi Aritmatik ................................................................. 62 Gambar 4.10 Form Evaluasi Administrasi ......................................................... 63 Gambar 4.11 Form Evaluasi Teknis................................................................... 64 Gambar 4.12 Form Evaluasi Harga .................................................................... 65 Gambar 4.13 Form Proses Kualifikasi ............................................................... 66 Gambar 4.14 Profil Pengguna ............................................................................ 66 Gambar 4.15 Informasi Sistem .......................................................................... 67 Gambar 4.16 Programmer .................................................................................. 67 Gambar 4.17 Laporan Koreksi Aritmatik .......................................................... 68 Gambar 4.18 Laporan Administrasi ................................................................... 69 Gambar 4.19 Laporan Teknis ............................................................................. 69 Gambar 4.20 Laporan Harga .............................................................................. 70 Gambar 4.21 Laporan Kualifikasi ...................................................................... 70 Gambar 4.22 Laporan Pemenang Tender Proyek .............................................. 71
x
DAFTAR TABEL Halaman Tabel 2.1 Skala Penilaian Perbandingan Pasangan ............................................ 14 Tabel 2.2 Daftar Indeks Random Konsistensi ................................................... 15 Tabel 2.3 Kriteria Penilaian Sederhana dan Nilai .............................................. 15 Tabel 2.4 Perbandingan Skala Penilaian Antar Elemen Kriteria ....................... 16 Tabel 2.5 Perbandingan Antar Kriteria .............................................................. 16 Tabel 2.6 Matriks Nilai Kriteria ......................................................................... 17 Tabel 2.7 Perhitungan Rasio Konsistensi .......................................................... 18 Tabel 3.1 Matriks Perbandingan Berpasangan................................................... 25 Tabel 3.2 Matriks Nilai Kriteria ......................................................................... 25 Tabel 3.3 Matriks Penjumlahan Setiap Baris ..................................................... 26 Tabel 3.4 Perhitungan Rasio Konsistensi .......................................................... 26 Tabel 3.5 Matriks Perbandingan Berpasangan Kriteria A ................................. 27 Tabel 3.6 Matriks Nilai Kriteria A ..................................................................... 27 Tabel 3.7 Matriks Perbandingan Berpasangan Kriteria T .................................. 28 Tabel 3.8 Matriks Nilai Kriteria T ..................................................................... 28 Tabel 3.9 Matriks Perbandingan Berpasangan Kriteria H ................................. 28 Tabel 3.10 Matriks Nilai Kriteria H .................................................................... 29 Tabel 3.11 Matriks Hasil ..................................................................................... 29 Tabel 3.12 Nilai Perusahaan ............................................................................... 29 Tabel 3.13 Hasil Akhir ........................................................................................ 30 Tabel 3.14 Struktur Tabel Perusahaan ................................................................ 40 Tabel 3.15 Struktur Tabel Paket.......................................................................... 41 Tabel 3.16 Struktur Tabel Gampong ................................................................... 41 Tabel 3.17 Struktur Tabel Kecamatan ................................................................ 41 Tabel 3.18 Struktur Tabel Ikut ............................................................................ 42 Tabel 3.19 Struktur Tabel Evaluasi ..................................................................... 42 Tabel 3.20 Struktur Tabel Koreksi Aritmatik ..................................................... 42
xi
Tabel 3.21 Struktur Tabel Administrasi .............................................................. 43 Tabel 3.22 Struktur Tabel Teknis........................................................................ 44 Tabel 3.23 Struktur Tabel Harga ......................................................................... 44 Tabel 3.24 Struktur Tabel Kualifikasi ................................................................. 45 Tabel 3.25 Struktur Tabel Pemenang .................................................................. 46 Tabel 4.1 Implementasi Perangkat Lunak ........................................................... 57
xii
BAB I PENDAHULUAN
1.1
Latar Belakang Masalah Sistem penunjang keputusan merupakan salah satu produk perangkat
lunak yang dikembangkan secara khusus untuk membantu dalam proses pengambilan keputusan. Sesuai dengan namanya, tujuan dari dipergunakannya sistem ini adalah sebagai “second opinion” atau “information sources” yang dapat dipakai sebagai bahan pertimbangan sebelum memutuskan kebijakan tertentu. Pada sistem penunjang keputusan pemenang tender proyek ini dapat mengatasi kelemahan dan kekurangan dari pelaksanaan tender proyek yang sebelumnya. Dalam proses sistem penunjang keputusan pemenang tender proyek pada Dinas Pekerjaan Umum Kabupaten Aceh Selatan nantinya akan dilakukan dengan menggunakan metode Analytic Hierarchy Process (AHP). Analytic Hierarchy Process selanjutnya disebut AHP, yang merupakan satu metode yang fleksibel yang memungkinkan pribadi-pribadi atau kelompokkelompok untuk membentuk gagasan-gagasan dan membatasi masalah dengan membuat asumsi (dugaan) mereka sendiri dan menghasilkan pemecahan yang diinginkan. Sistem penunjang keputusan pemenang tender proyek dengan metode AHP ini dibuat untuk meningkatkan proses serta kualitas hasil pengambilan keputusan dengan memadukan data dan pengetahuan untuk meningkatkan efektivitas dalam proses pengambilan keputusan. Metode AHP adalah suatu model pengambilan keputusan yang komprehensif dengan memperhitungkan hal-hal yang bersifat kualitatif dan kuantitatif. Metode AHP dapat membantu menyusun suatu prioritas maupun tujuan dari berbagai pilihan dengan menggunakan beberapa kriteria (multi criteria). Metode AHP sering digunakan dalam berbagai pengambilan keputusan. Misalnya dalam pengambilan keputusan pemenang tender proyek. Metode ini meliputi proses penilaian yang dimulai dari nilai yang ditawarkan untuk mengetahui jumlah masing-masing indikator kemudian penjabaran tujuan strategis ke dalam indikator kelayakan. Dari kelayakan indikator yang bersifat kualitatif
1
2
dan kuantitatif kemudian dapat memberikan persentase sebagai hasil kelayakan dalam hal pemenang tender proyek. Data-data yang berhubungan dengan pemenang tender proyek tentu saja sangat diperlukan, untuk memenuhi kebutuhan dalam pemilihan pemenang proyek sangat dibutuhkan suatu sistem. Sistem tersebut harus dapat diandalkan untuk mengolah data menjadi informasi yang bermanfaat dalam pengambilan keputusan baik rutin maupun strategis. Pada Dinas Pekerjaan Umum Kabupaten Aceh Selatan proses pemilihan pemenang tender proyek masih bersifat manual karena belum dilakukan secara komputerisasi sehingga mempengaruhi proses evaluasi penawaran untuk pemilihan pemenang tender proyek. Keadaan ini mendorong sebuah gagasan untuk merancang suatu sistem yang menjadi latar belakang untuk disajikan dalam penelitian ini yang berjudul ”Sistem Penunjang Keputusan Pemenang Tender Proyek Menggunakan Metode Analityc Hierarchy Process (AHP) pada Dinas Pekerjaan Umum Kabupaten Aceh Selatan”.
1.2
Batasan Masalah Batasan masalah dalam penelitian ini adalah sebagai berikut: a. Tempat penelitian dilakukan pada Dinas Pekerjaan Umum Kabupaten Aceh Selatan. b. Teknik analisa pengambilan keputusan dengan menggunakan Metode Analityc Hierarchy Process (AHP). c. Penelitian hanya dikhususkan untuk pemilihan pemenang dalam proses tender proyek pada Dinas Pekerjaan Umum Kabupaten Aceh Selatan. d. Keluaran dari sistem ini berupa informasi pemenang tender proyek.
1.3
Rumusan Masalah Rumusan masalah dari penelitian ini adalah membuat suatu sistem penunjang keputusan pemenang tender proyek pada Dinas Pekerjaan Umum Kabupaten Aceh Selatan yang efektif dan efesien?
3
1.4
Tujuan Penelitian Tujuan dari penelitian ini adalah membangun sistem penunjang keputusan pemenang tender proyek untuk memperoleh hasil suatu informasi dan keputusan terhadap penawaran yang layak ditetapkan sebagai pemenang pada Dinas Pekerjaan Umum Kabupaten Aceh Selatan berbasis komputer secara efektif dan efisien, sehingga dapat membantu kelancaran proses evaluasi dalam pemilihan pemenang tender proyek.
1.5
Manfaat Penelitian Manfaat yang didapatkan dari hasil penelitian ini adalah: 1.
Menjadi bahan masukkan bagi panitia tender proyek pada Dinas Pekerjaan Umum Kabupaten Aceh Selatan.
2.
Bermanfaat dalam pengembangan ilmu, khususnya dalam bidang pengambilan keputusan.
3.
Dapat menjadikan bahan referensi bagi mahasiswa dan lainnya.
BAB II LANDASAN TEORI
2.1 Sistem Penunjang Keputusan (Decision Support System) Sistem Penunjang Keputusan atau Decision Support System disingkat menjadi DSS, secara umum didefinisikan sebagai sebuah sistem yang mampu memberikan kemampuan baik kemampuan pemecahan masalah maupun kemampuan pengkomunikasian untuk masalah semi-terstruktur. Secara khusus, DSS didefinisikan sebagai sebuah sistem yang mendukung kerja seorang manajer maupun sekelompok manajer dalam memecahkan masalah semi-terstruktur dengan cara memberikan informasi ataupun usulan menuju pada keputusan tertentu. DSS ini bisa berbentuk sistem manual maupun sistem terkomputerisasi. Namun pada penelitian ini sistem penunjang keputusan yang pelaksanaannya berbasis pada komputer. Konsep sistem pendukung keputusan (SPK) diperkenalkan pertama kali oleh Michael S. Scoott Morton pada tahun 1970-an dengan istilah Management Decision System (Sprague, 1982). SPK dirancang untuk mendukung seluruh tahap pengambilan keputusan mulai dari mengidentifikasi masalah, memilih data yang relevan, dan menentukan pendekatan yang digunakan dalam proses pengambilan keputusan, sampai mengevaluasi pemilihan alternatif. Menurut Alter (2002). DSS merupakan sistem informasi interaktif yang menyediakan informasi, pemodelan, dan pemanipulasian data. Sistem itu digunakan untuk membantu pengambilan keputusan dalam situasi yang semeterstruktur dan situasi yang tidak terstruktur, dimana tak seorang pun tahu secara pasti bagaimana keputusan seharusnya dibuat. Menurut Herbert A. Simon (1977). Menggunakan konsep keputusan terprogram dan tidak terprogram dengan fase pengambilan keputusan yang merefleksikan terhadap pemikiran Decision Support System (DSS) saat ini. Dapat juga dikatakan sebagai sistem komputer yang mengolah data menjadi informasi untuk mengambil keputusan dari masalah baik yang bersifat terstruktur, semiterstruktur, maupun tidak terstruktur. 4
5
Ada beberapa jenis keputusan berdasarkan sifat dan jenisnya yaitu: 1. Keputusan terprogram yaitu keputusan yang dilakukan secara berulangulang dan bersifat rutin. Prosedur pengambilan keputusan sangatlah jelas. Keputusan tersebut terutama dilakukan pada manajemen tingkat bawah. Misalnya keputusan pemesanan barang dan keputusan penagihan hutang. 2.
Keputusan semi-terstruktur yaitu keputusan yang memiliki dua sifat. Sebagian keputusan bisa ditangani oleh komputer dan yang lain tetap harus dilakukan oleh sipengambil keputusan. Contohnya keputusan jenis ini adalah pengevaluasian kredit, penjadwalan produksi, dan pengendalian persediaan.
3.
Keputusan tak terstruktur yaitu keputusan yang penanganannya rumit kerena tidak terjadi berulang-ulang atau tidak selalu terjadi. Contohnya adalah keputusan untuk pengembangan teknologi baru dan lain-lain.
Tujuan dari DSS adalah (Turban, 2005): •
Membantu manajer dalam mengambil keputusan atas masalah semiterstruktur.
•
Memberikan dukungan atas pertimbangan manajer dan bukannya dimaksudkan untuk menggantikan fungsi manajer.
•
Meningkatkan efektivitas keputusan yang diambil manajer lebih daripada perbaikan efisiensinya.
•
Kecepatan komputasi. Komputer memungkinkan para pengambilan keputusan untuk melakukan banyak komputasi secara cepat dengan biaya yang rendah.
•
Peningkatan produktivitas. Membangun satu kelompok pengambil keputusan.
•
Manajer yang dibantu melingkupi top manajer sampai ke manajer lapangan
6
Karena mencakup masalah yang semi-terstruktur, maka perpaduan antara komputer dan manusia menjadi faktor yang menentukan. Bagian dari masalah yang lebih bersifat terstruktur bisa ditangani dengan baik oleh aplikasi komputer yang dibangun untuk menangani masalah tersebut, sementara bagian masalah yang bersifat tidak terstruktur ditangani oleh manusia pembuat keputusan. Oleh karena itu, DSS disini akan memadukan unsur aplikasi komputer dengan unsur kemanusiaan pengambilan keputusan.
Metode-metode dalam menyelesaikan pemilihan pemenang tender proyek sebagai berikut: Menurut Kusumadewi (2007). Fuzzy Multiple Attribute Decision Making FMADM adalah suatu metode yang digunakan untuk mencari alternatif optimal dari sejumlah alternatif dengan kriteria tertentu. Inti dari FMADM adalah menentukan nilai bobot untuk setiap atribut, kemudian dilanjutkan dengan proses perangkingan yang akan menyeleksi alternatif yang sudah diberikan. Pada dasarnya, ada 3 pendekatan untuk mencari nilai bobot atribut, yaitu pendekatan subyektif, pendekatan obyektif dan pendekatan integrasi antara subyektif & obyektif. Masing-masing pendekatan memiliki kelebihan dan kelemahan. Pada pendekatan subyektif, nilai bobot ditentukan berdasarkan subyektifitas dari para pengambil keputusan, sehingga beberapa faktor dalam proses perangkingan alternatif bisa ditentukan secara bebas. Sedangkan pada pendekatan obyektif, nilai bobot dihitung secara matematis sehingga mengabaikan subyektifitas dari pengambil keputusan. Menurut Kusrini (2007). Pencocokan profil (profile matching) adalah sebuah mekanisme pengambilan keputusan dengan mengasumsikan bahwa terdapat tingkat variabel prediktor yang ideal yang harus dimiliki oleh suatu obyek, bukannya tingkat minimal yang harus dipenuhi atau dilewati. Dalam pencocokan profil, dilakukan identifikasi terhadap suatu kelompok yang baik maupun yang buruk. Model Matematika GAP adalah proses pengambilan keputusan dengan memilih suatu alternatif dengan menghitung jumlah nilai perbedaan beberapa aspek kriteria atau dengan menghitung
7
kecocokan nilai kiriteria. Maksud dari pencocokan kriteria adalah sebuah mekanisme pengambilan keputusan dengan mengasumsikan bahwa terdapat tingkat variabel prediktor yang ideal yang harus dimiliki oleh suatu obyek yang akan dibandingkan. Dalam model GAP, dilakukan identifikasi terhadap obyek yang baik maupun buruk. Menurut Kusrini (2007). AHP merupakan salah satu metode untuk membantu menyusun suatu prioritas dari berbagai pilihan dengan menggunakan beberapa kriteria (multi-kriteria). Karena sifatnya yang multi kriteria, AHP cukup banyak digunakan dalam penyusunan prioritas. AHP merupakan model hirarki fungsional dengan input utamanya adalah persepsi manusia. Dengan adanya hirarki masalah yang kompleks atau tidak terstruktur dipecah dalam sub-sub masalah, lalu menyusunnya menjadi suatu bentuk hirarki. Maka dalam kasus pemilihan pemenang tender proyek dari penelitian ini menggunakan metode AHP, karena memiliki banyak keunggulan dalam menjelaskan proses pengambilan keputusan. Salah satunya adalah dapat digambarkan secara grafis sehingga mudah dipahami oleh semua pihak yang terlibat dalam pengambilan keputusan.
2.1.1 Proses Pengambilan Keputusan Karena DSS berhubungan dengan kegiatan pengambilan keputusan, maka kita perlu mengetahui dengan baik bagaimana proses pengambilan keputusan dilakukan. Proses pengambilan keputusan melibatkan 4 tahapan, yaitu: 1. Studi Kelayakan (Intelligence) Pada langkah ini, sasaran ditentukan dan dilakukan pencarian produser,
pengumpulan
data,
identifikasi
masalah,
identifikasi
kepemilikan masalah, klasifikasi masalah, hingga akhirnya terbentuk sebuah pernyataan masalah. Kepemilikan masalah berkaitan dengan bagian apa yang akan dibangun oleh DSS dan apa tugas dari bagian tersebut sehingga model tersebut bisa relevan dengan kebutuhan si pemilik masalah.
8
2. Perancangan (Design) Pada tahapan ini akan diformulasikan model yang akan digunakan dan kriteria-kriteria yang ditentukan. Setelah itu, dicari alternatif model yang bisa menyelesaikan permasalah tersebut. Langkah selanjutnya adalah memprediksi keluaran yang mungkin. Kemudian, ditentukan variable-variabel model. 3. Pemilihan (Choice) Setelah pada tahapan design ditentukan berbagai alternatif model beserta variabel-variabelnya, pada tahapan ini akan dilakukan pemilihan modelnya, termasuk solusi dari model tersebut, selanjutnya dilakukan analisis sensitivitas, yakni dengan mengganti beberapa variabel. 4. Menelaah (Implementation) Setelah menentukan modelnya, berikutnya adalah mengimplementasikannya dalam aplikasi DSS.
Keempat tahap proses pengambilan keputusan di atas, kita bisa mengidentifikasi secara lebih baik apa saja yang bisa didukung oleh DSS terutama DSS yang berbasis komputer. Proses pengambilan keputusan dapat terlihat pada gambar 2.1.
Gambar 2.1 Fase Proses Pengambilan Keputusan
9
2.1.2 Keuntungan DSS Keuntungan DSS sebagai berikut: 1. Dapat memperluas kemampuan seseorang untuk mengambil keputusan dalam memproses data atau informasi pemakainya. 2. Membantu mengambil keputusan dalam hal penghematan waktu yang dibutuhkan untuk memecahkan suatu masalah, terutama berbagai masalah yang sangat kompleks dan tidak terstruktur. 3. Dapat menghasilkan solusi dengan lebih cepat serta hasilnya dapat diandalkan. 4. Dapat menjadi stimulan bagi pengambil keputusan dalam memahami permasalahannya,
karena
sistem
penunjang
keputusan
mampu
menyajikan berbagai alternatif. 5. Mampu menyediakan bukti tambahan untuk memberikan pembenaran, sehingga dapat memperluas posisi pengambilan keputusan.
2.2
Tender Proyek
2.2.1 Tender Berdasarkan penjelasan Pasal 22 UU No. 5/1999, tender adalah tawaran mengajukan harga untuk memborong suatu pekerjaan, untuk mengadakan barangbarang atau menyediakan jasa. Pengertian tender tersebut mencakup tawaran mengajukan harga untuk: 1.
Memborong atau melaksanakan suatu pekerjaan.
2.
Mangadakan barang dan jasa.
3.
Membeli suatu barang dan jasa.
4.
Menjual suatu barang dan jasa.
2.2.2 Proyek Proyek merupakan suatu rangkaian kegiatan yang berlangsung dalam jangka waktu terbatas, dengan alokasi sumber daya tertentu yang dimaksudkan untuk menghasilkan produk yang kriteria mutunya telah digariskan dengan jelas. Proyek
10
dapat diartikan pula sebagai sederetan aktifitas yang diarahkan pada suatu hasil dimana jangka waktu penyelesaiannya ditentukan. Ada terdapat beberapa alasan tertentu yang menyebabkan bahwa tidak seluruh proyek pengadaan barang dan jasa di instansi pemerintah dapat dilakukan melalui proses tender terbuka, antara lain: setiap pekerjaan yang dianggap perlu dirahasiakan karena menyangkut pertahanan dan keamanan negara. Terhadap proyek pekerjaan seperti ini dapat dilakukan mekanisme “Penunjukan Langsung” (Keputusan Presiden Nomor 54 Tahun 2010). Adapun ciri pokok proyek adalah: 1.
Bertujuan menghasilkan lingkup (scope) tertentu berupa produk akhir atau hasil akhir.
2.
Dalam proses mewujudkan lingkup di atas, ditentukan jumlah biaya, jadwal, serta kriteria mutu.
3.
Bersifat sementara, dalam arti umumnya dibatasi oleh selesainya tugas. Titik awal dan akhir ditentukan dengan jelas.
4.
Nonrutin, tidak berulang-ulang. Macam dan intensitas kegiatan berubah sepanjang proyek berlangsung.
Tahap yang dilakukan dalam proyek yaitu: 1.
Perencanaan (Planning) Dalam tahapan ini garis-garis besar rencana proyek mencakup: recruitment konsultan perencanaan untuk menterjemahkan kebutuhan pemilik. Perbuatan tim of reference (TOR), survey, study kelayakan (Feasibility Studies), pemilihan design, program yang digunakan, budget yang ada serta alat-alat yang dibutuhkan.
2.
Pengadaan/Pelalangan (Tender) Tahapan ini dilaksanakan apabila telah diadakannya perencanaan yang matang oleh konsultan perencanaan terhadap proyek-proyek yang akan dikerjakan.
3.
Pelaksanaan (Construction) Pada tahap ini merupakan tahap pelaksanaan pertimbangan kontruksi fisik yang telah dirancang. Pada tahap ini setelah kontrak
11
ditanda tangani, surat perintah kerja di keluarkan maka pekerjaan pelaksanaan dilakukan. 4.
Pengawasan dan Pengendalian (Controlling) Pengendalian pelaksanaan proyek untuk memastikan proyek yang telah ditetapkan sudah sesuai dengan yang direncanakan.
5.
Evaluasi (Evaluation) Satu tahapan yang menayangkan tindakan proyek berjalan pada yang benar. Evaluasi terhadap pelaksanaan proyek.
2.3
Metode Analityc Hierarchy Process (AHP) Prinsip kerja AHP adalah penyederhanaan suatu persoalan kompleks yang tidak terstruktur, stratejik, dan dinamik menjadi bagian-bagiannya serta menata dalam suatu hirarki (Fitria, dan Fitriana, I., 2008). Kemudian tingkat kepentingan setiap variabel diberi nilai numerik secara subjektif tentang arti penting variabel tersebut secara relatif dibandingkan dengan variabel lain. Dari berbagai pertimbangan tersebut kemudian dilakukan sintesa untuk menetapkan variabel yang memiliki prioritas tinggi dan berperan untuk mempengaruhi hasil pada sistem tersebut. Beberapa keuntungan metode AHP sebagai alat bantu pengambilan keputusan adalah sebagai berikut (Ma’arif dan Tanjung, 2003): a) Kesatuan (unity). AHP membuat permasalahan yang luas dan tidak terstruktur menjadi suatu model yang fleksibel dan mudah dipahami. b) Kompleksitas (complexity), AHP memecahkan permasalahan yang kompleks melalui pendekatan sistem dan pengintegrasian secara deduktif. c) Saling ketergantungan (inter dependence). AHP dapat digunakan pada elemen-elemen sistem yang saling bebas dan tidak memerlukan hubungan linier. d) Struktur hirarki (hierarchy structuring). AHP mewakili pemikiran alamiah yang cenderung mengelompokkan elemen sistem ke level-level
12
yang berbeda dari masing-masing level berisi elemen yang serupa (kriteria dan sub-kriteria). e) Pengukuran (measurement). AHP menyediakan skala pengukuran dan metode untuk mendapatkan prioritas. f) Konsistensi (consistency). AHP mempertimbangkan konsistensi logis dalam penilaian yang digunakan untuk menentukan prioritas. g) Sintesis (synthesis). AHP mengarah pada perkiraan keseluruhan mengenai seberapa diinginkannya masing-masing alternatif. h) Tawar menawar (trade off). AHP mempertimbangkan prioritas relatif faktor-faktor pada sistem sehingga orang mampu memilih altenatif terbaik berdasarkan tujuan mereka. i) Penilaian dan konsensus (judgement and consensus). AHP tidak mengharuskan adanya suatu konsensus, tapi menggabungkan hasil penilaian yang berbeda. j) Pengulangan proses (process repetition). AHP mampu membuat orang menyaring definisi dari suatu permasalahan dan mengembangkan penilaian serta pengertian mereka melalui proses pengulangan.
Penggunaan AHP dalam alat bantu pengambilan keputusan dengan multi kriteria sangat mudah dimengerti dan dipahami dengan efektif. Pendekatan metode AHP pertama sekali dikembangkan oleh Prof. Thomas L. Saaty dari Wharton School of Business, University of Pennsylvania pada tahun 1970. Saat ini, AHP banyak diterapkan pada berbagai bidang yang menghendaki adanya pengambilan keputusan multi-kriteria, perencanaan dan produksi, alokasi sumberdaya, penyusunan matrik input koefisien, penentuan prioritas dari strategistrategi yang dimiliki dalam situasi konflik, pengukuran performance dan lain sebagainya.
2.3.1 Penyusunan Hirarki Persoalan yang diselesaikan, diuraikan menjadi unsur-unsurnya, yaitu kriteria dan alternatif, kemudian disusun menjadi struktur hirarki. Dalam
13
menyusun prioritas, maka masalah penyusunan prioritas harus mampu didekomposisi menjadi tujuan (goal) dari suatu kegiatan, identifikasi pilihan-pilihan (options) dan perumusan kriteria (criteria) untuk memilih prioritas. Pada dekomposisi masalah perlu merumuskan tujuan dari penyusunan prioritas. Hirarki adalah abstraksi struktur suatu sistem yang mempelajari fungsi interaksi antara komponen dan juga dampak-dampaknya pada sistem. Penyusunan
hirarki
atau
struktur
keputusan
dilakukan
untuk
menggambarkan elemen sistem atau alternatif keputusan yang teridentifikasi dapat terlihat pada gambar 2.2.
Gambar 2.2 Dekomposisi Masalah Kriteria evaluasi yang dimaksud dalam penelitian ini adalah kriteria penilaian yang digunakan oleh organisasi/perusahaan dalam menentukan pemilihan pemenang tender proyek seperti Administrasi, Teknis, dan Harga.
14
2.3.2 Prinsip Dasar AHP Dalam menyelesaikan permasalah dengan AHP ada beberapa prinsip yang harus dipahami, diantaranya adalah: 1.
Membuat hirarki Sistem yang kompleks bisa dipahami dengan memecahnya menjadi elemen-elemen
pendukung,
menyusun
elemen
hirarki,
dan
menggabungkannya atau mensistesiskannya. 2.
Penilaian kriteria dan alternatif Kriteria dan alternatif dilakukan dengan perbandingan berpasangan. Menurut Saaty (1988), menggunakan tabel analisis seperti ditunjukkan pada tabel 2.1.
Tabel 2.1 Skala Penilaian Perbandingan Pasangan Intensitas Kepentingan 1
Keterangan
Kedua elemen sama pentingnya Elemen yang satu sedikit lebih penting daripada 3 elemen yang lainnya Elemen yang satu lebih penting daripada elemen 5 lainnya Satu elemen jelas lebih mutlak penting daripada 7 elemen lainnya Nilai-nilai antara dua nilai pertimbangan yang 2, 4, 6, 8 berdekatan Jika aktivitas i mendapat satu angka dibanding Kebalikan dengan aktivitas j, maka j memiliki nilai kebalikannya dibandingkan dengan i Sumber: Kusrini (2007) 2.3.3 Prosedur AHP Pada dasarnya, prosedur atau langkah-langkah dalam metode AHP meliputi: 1.
Mendefinisikan masalah dan menentukan solusi yang diinginkan, lalu menyusun hirarki dari permasalahan yang dihadapi. Penyusunan hirarki
15
adalah dengan menetapkan tujuan yang merupakan sasaran sistem secara keseluruhan pada level teratas. 2.
Memeriksa konsistensi hirarki. Jika nilainya lebih dari 10%, maka penilaian data judgement harus diperbaiki. Namun jika rasio konsistensi (CI/IR) kurang atau sama dengan 0,1, maka hasil perhitungan bisa dinyatakan benar. Daftar Indeks Random Konsistensi (IR) bisa dilihat dalam table 2.2.
Tabel 2.2 Daftar Indeks Random Konsistensi Ukuran Matriks 1,2 3 4 5 6 7 8 9 10 Nilai IR 0,00 0.58 0.90 1.12 1.24 1.32 1.41 1.45 1.49 Ukuran Matriks 11 12 13 14 15 Nilai IR 1.51 1.48 1.56 1.57 1.59 Sumber: Kusrini (2007) 3. Kriteria seleksi yang dimaksud dalam penelitian ini adalah kriteria penilaian dalam menentukan pemenang tender proyek seperti, administrasi, teknis, dan harga. Masing-masing kriteria ini memiliki nilai berupa range nilai yang dipakai seperti tampak pada tabel 2.3.
Tabel 2.3 Kriteria Penilaian Sederhana dan nilai Kriteria Penilaian
Administrasi
Teknis
Harga
Sumber: Kusrini (2007)
• • • • • • • • • • • • • • •
Nilai Kriteria Sangat Cocok Sedikit Lebih Cocok Cocok Kurang Cocok Sangat Tidak Cocok Sangat Cocok Sedikit Lebih Cocok Cocok Kurang Cocok Sangat Tidak Cocok Sangat Cocok Sedikit Lebih Cocok Cocok Kurang Cocok Sangat Tidak Cocok
16
4. Penilaian/pembandingkan elemen Setelah masalah terdekomposisi, langkah selanjutnya adalah melakukan pembandingan antar elemen yaitu kriteria. Perbandingan antar kriteria dimaksudkan untuk menentukan bobot untuk masing-masing kriteria. Dengan kata lain, penilaian ini dimaksudkan untuk melihat seberapa penting suatu pilihan kriteria dilihat dari kriteria yang ada. Tabel berikut merupakan contoh pembobotan dengan memperhatikan perbandingan antar elemen kriteria yang paling sering digunakan karena dinilai lebih logis seperti tampak pada table 2.4. Tabel 2.4 Perbandingan skala penilaian antar elemen kriteria Hasil penilaian A sangat jauh lebih penting dari B A jauh lebih penting dari B A sedikit lebih penting dari B A dan B sama penting A sedikit kurang penting dari B A jauh kurang penting dari B A sangat jauh kurang penting dari B Sumber: Bourgeois (2005)
Kriteria A 1,9 1,6 1,3 1,0 0,7 0,4 0,1
Kriteria B 0,1 0,4 0,7 1,0 1,3 1,6 1,9
Dengan menggunakan penilaian seperti Tabel 2.4, maka perbandingan antar kriteria akan menghasilkan Tabel 2.5. Untuk memudahkan, dalam tabel diasumsikan hanya ada tiga kriteria seperti tampak pada tabel 2.5. Tabel 2.5 Perbandingan antar kriteria Kriteria CR1 CR1 CR11 CR2 CR21 CR3 CR31 Jumlah C1 Sumber: Kusrini (2007)
CR2 CR12 CR22 CR32 C2
CR3 CR13 CR23 CR33 C3
Dari Tabel 2.5 di atas dapat dirangkum sebagai berikut:
CR11 merupakan nilai tingkat perbandingan antar elemen
17
CR21 merupakan hasil perhitungan CR11 dibagi CR12 dan angka lain diperoleh dengan cara yang sama.
C1 merupakan penjumlahan semua nilai pada kolom C1
Dari perhitungan tabel di atas maka dapat diketahui nilai bobot untuk masing-masing kriteria. Untuk kasus tertentu semua indikator mempunyai bobot yang sama. Tetapi pada kasus-kasus dengan tahap seperti di atas, maka tiap indikator mempunyai bobot yang berbeda sesuai dengan kepentingannya masing-masing.
5. Matriks Nilai Kriteria Matriks ini diperoleh dengan rumus sebagai berikut: Nilai baris kolom baru = Nilai baris kolom lama/jumlah masing-masing kolom lama. Hasil perhitungan bisa dilihat seperti tampak pada tabel 2.6. Tabel 2.6 Matriks Nilai Kriteria Kriteria CR1 CR1 CR11 CR2 CR21 CR3 CR31 Sumber: Kusrini (2007)
CR2 CR12 CR22 CR32
CR3 CR13 CR23 CR32
Jumlah Cj1 Cj2 Cj3
Prioritas P1 P2 P3
Dari Tabel 2.6 di atas dapat dirangkum sebagai berikut:
CR11 diperoleh dari nilai kolom CR11 tabel 2.5 dibagi dengan jumlah nilai C1 pada tabel 2.5.
Cj1 merupakan hasil penjumlahan dari baris CR1
P1 diperoleh dari nilai Cj1 dibagi dengan jumlah CR.
6. Sintesis dari prioritas/Sintesis penilaian Sintesis hasil penilaian merupakan tahap akhir dari AHP. Pada dasarnya, sintesis ini merupakan penjumlahan dari bobot yang
18
diperoleh setiap pilihan pada masing-masing kriteria setelah diberi bobot dari kriteria tersebut. Secara umum, nilai suatu pilihan dapat dilihat pada persamaan tabel 2.3.
Hitung Consistency Index (CI) dengan rumus: CI = (λ maks-n)/n di mana
n = Banyaknya elemen
Hitung Rasio Konsistensi/Consistency Ratio (CR) dengan rumus: CR = CI/RC di mana
CR = Consistency Ratio CI = Consistency Index IR = Indeks Random Consistency
Untuk nilai option/pilihan biasanya menggunakan range nilai sesuai persetujuan yang telah disepakati. Bisa menggunakan range nilai 0-9, 0,0 - 0,9 10-100 atau nilai-nilai lainnya. Semakin tinggi nilai suatu pilihan, semakin tinggi prioritasnya/penilaian total, dan sebaliknya. Untuk memudahkan, diasumsikan ada 3 kriteria dengan beberapa pilihan seperti Tabel 2.7. Sebagai contoh nilai prioritas/bobot diperoleh dari nilai pada kolom jumlah dibagi dengan jumlah kriteria tersebut (nilai option untuk sub kriteria) dapat dilihat pada persamaan tabel 2.7.
Tabel 2.7 Perhitungan Rasio Konsistensi Kriteria Jumlah per baris CR1 CR11 CR2 CR21 CR3 CR31 Sumber: Kusrini (2007)
Prioritas CR12 CR22 CR32
Hasil CR13 CR23 CR32
Dari Tabel 2.7 di atas dapat dirangkum sebagai berikut:
19
CR11 diperoleh dari nilai prioritas baris C1 tabel 2.8 dikalikan dengan nilai CR11 pada tabel 2.5 kemudian dijumlahkan dari masing-masing baris kriteria.
CR12 diperoleh dari kolom P1 tabel 2.6
CR13 diperoleh dari penjumlahan CR11 dengan CR12
Selanjut diperoleh nilai-nilai berikut:
Jumlah (jumlah dari nilai-nilai hasil): h
n (jumlah kriteria): n
λ maks (jumlah/n): λ
CI ((λ maks-n)/n): CI
CR (CI/IR(lihat tabel 2.2)): CR
Dalam perhitungan bobot kriteria terdapat pengujian apakah data bobot tersebut dinyatakan valid. Oleh karena CR < 0.1, maka konsistensi dari perhitungan tersebut diterima.
BAB III METODE PENELITIAN
3.1
Tinjauan Umum Sistem informasi yang efektif dan efisien saat ini sangat dibutuhkan
dikalangan instansi pemerintah maupun swasta. Demikian juga yang terjadi pada Dinas Pekerjaan Umum Kabupaten Aceh Selatan sebagai salah satu instansi pemerintah yang melaksanakan pelelangan pekerjaan juga memerlukan sebuah sistem tepat guna agar segala kegiatan dapat berjalan secara efektif dan efisisen. Proses evaluasi pemilihan pemenang tender proyek pada Dinas Pekerjaan Umum Kabupaten Aceh Selatan saat ini dilakukan dengan cara memberikan score nilai pada item-item penilaian tertentu berdasarkan kriteria yang telah ditentukan. Score penilaian diberikan pada masing-masing kriteria kemudian dilakukan penjumlahan score nilai tersebut. Penawaran yang memiliki nilai tertinggi pada setiap divisi dapat diasumsikan untuk penawaran terbaik, begitu pula sebaliknya. Metode penilaian terdiri dari beberapa kriteria yang saling berkaitan, pada penerapannya dapat memecahkan masalah pemilihan pemenang tender proyek, maka dalam hal ini akan merancang suatu sistem dengan pendekatan metode Analytical Hierarchy Process (AHP). AHP ini sendiri tersusun dari beberapa kriteria dan subkriteria yang dapat diambil dari sistem pengolahan nilai sebelumnya. Diharapkan dengan menggunakan metode AHP ini dapat membantu serta memberikan output penilaian yang lebih baik. Dari gambaran umum sistem di atas dapat dirancang suatu sistem penunjang keputusan pemilihan pemenang tender proyek, dimana nantinya pengolahan nilai disusun dengan pendekatan metode AHP. 3.2
Lokasi dan Waktu Penelitian Penelitian ini dilakukan pada Unit Layanan Pengadaan (ULP) Dinas Bina
Marga dan Cipta Karya Provinsi Aceh Kelompok Kerja (Pokja) Aceh Selatan pada Dinas Pekerjaan Umum Kabupaten Aceh Selatan.
20
21
yang beralamat di Jalan Mayjen D. I. Panjaitan No. 19 Tapaktuan mulai tanggal 13 Juni sampai dengan 12 Juli 2011. 3.3
Peralatan Analisis Data Dalam melakukan analisis ini menggunakan metode deskriptif, yaitu dengan
cara mengumpulkan data-data yang akan diolah dan dibuat suatu rumusan sehingga akhirnya sampai pada suatu kesimpulan. Adapun teknik pengumpulan data dalam penelitian ini adalah: 1. Data Primer, data yang dikumpulkan oleh peneliti langsung dari sumbernya, melalui metode: a. Teknik Observasi, langsung mengadakan analisis terhadap objek yang dibutuhkan, yaitu sistem pemenang tender proyek yang ada pada Dinas Pekerjaan Umum Kabupaten Aceh Selatan dengan mengadakan pengamatan dan perencanaan terhadap data dan informasi yang diperlukan. b. Teknik
Wawancara,
yaitu
suatu
cara
penganalisaan
atau
pengumpulan data yang dilakukan dengan cara memberikan pertanyaan langsung kepada petugas yang memiliki hubungan dengan masalah yang akan dianalisa. 2. Data Sekunder, yaitu data yang telah dikumpulkan pihak lain. Data ini diperoleh dengan cara riset kepustakaan, membaca buku-buku yang berhubungan dengan masalah yang dianalisis. 3.4 3.4.1
Analisis Analisis Masalah Sistem penunjang keputusan pemilihan pemenang tender proyek
merupakan sebuah sistem yang dapat mempresentasikan persepsi manusia dalam hal pemilihan pemenang tender proyek ke dalam sebuah aplikasi, sehingga pemilihan pemenang yang selama ini yang masih bersifat manual dapat dilakukan dengan sistem terkomputerisasi. Secara umum Sistem penunjang keputusan pemilihan pemenang tender proyek menggunakan metode AHP akan memberikan informasi sebagai hasil
22
output yaitu informasi pemenang tender proyek. Dari informasi sistem output di atas maka dapat diketahui apa saja yang menjadi masukan dan keluaran sistem serta desain interface sistem. Kebutuhan proses utama dalam sistem penunjang keputusan pemenang tender proyek dengan metode AHP yaitu: a)
Proses Pengelolaan User Proses ini merupakan tahap pengolahan data–data yang menggunakan sistem. Terdapat 2 tingkatan user yang berbeda yaitu admin dan pengguna. Semua user tersebut dapat mengolah data ketika sudah terdaftar di sistem. Terdapat 2 tahap dalam proses pengolahan user yaitu: 1. Proses Pendaftaran Admin. Proses ini merupakan tahap awal agar admin dapat mengelola sistem user. Admin memasukkan data yang nantinya akan mengelola hak pengguna. 2. Proses Pendaftaran Pengguna. Pada proses ini pengguna tidak dapat mengubah data yang telah ditetapkan oleh admin seperti nama, kode pengguna dan password. Untuk hak akses pengguna perubahan dilakukan oleh admin.
b) Proses Autentikasi Pengguna (Login) Proses ini merupakan tahap autentikasi data pengguna ketika masuk ke sistem, proses ini disebut juga proses login. Setelah user masuk ke dalam sistem maka user dapat mengakses menu sesuai dengan hak aksesnya. c) Proses Memasukkan Data Proses ini merupakan tahapan memasukkan data-data yang dibutuhkan dalam proses pemilihan pemenang tender proyek yaitu data perusahaan, data paket, data kecamatan, dan data gampong. d) Proses Evaluasi Pengolahan Nilai dengan metode AHP Proses ini merupakan tahap untuk melakukan evaluasi terhadap dokumen penawaran yang diajukan oleh perusahan, kecuali koreksi aritmatik yang hanya dilakukan perangkingan saja, sedangkan administrasi, teknis, dan harga dilakukan penilaian dengan menceklis pada setiap sub kriteria dari masing-masing kriteria. Jika proses evaluasi pertama selesai akan
23
dilanjutkan ke evaluasi berikutnya untuk penawaran yang dinyatakan lulus, sedangkan yang tidak lulus dinyatakan gagal atau tidak dilanjutkan ke tahap evaluasi berikutnya. Sedangkan untuk evaluasi kualifikasi untuk setiap item yang disyaratkan pada dokumen penawaran diwajibkan untuk lulus dan jika salah satu dari item kualifikasi tidak terpenuhi maka penawaran dianggap gagal/tidak lulus.
3.4.2
Hierarchy Pemilihan Pemenang Tender Proyek Pada proses pemilihan pemenang tender proyek dengan metode AHP
terdapat hirarki sistem yang telah disesuaikan dengan tujuan awal penelitian yaitu pemilihan pemenang tender proyek. Hirarki proses ini sebelumnya telah dijelaskan pada bab Landasan teori hanya secara umum sesuai dengan konsep AHP. Hirarki sistem ini sebenarnya adalah dekomposisi dari masalah pemilihan pemenang tender proyek. Menentukan tujuan (pemilihan pemenang tender proyek), mencari kriteria tepat yang digunakan untuk menyelesaikan tujuan serta dekomposisi dari kriteria yang telah ditentukan. Dekomposisi ini merupakan penjabaran dari kriteria yang telah ditentukan yang menghasilkan identifikasiidentifikasi item dekomposisi masalah dalam pemilihan pemenang tender proyek. Dalam matriks keputusan tujuan ini disebut dengan goal. Sedangkan administrasi, teknis, harga, dan kualifikasi merupakan atribut yang merupakan karakteristik atau kriteria dari keputusan. Tiap kriteria ini memiliki item penilaian dimana setiap elemen item penilaian berhubungan erat dengan kriteria tersebut. Semua item penilaian itu dihubungkan secara langsung dengan kriterianya dan membentuk pohon hirarki yang dapat terlihat pada gambar 3.1.
24
Keterangan: A = Administrasi T = Teknis H = Harga Gambar 3.1 Hirarki Pemilihan Pemenang Tender Proyek Setelah penyusunan hirarki selesai maka langkah selanjutnya adalah melakukan perbandingan antara elemen-elemen dengan memperhatikan pengaruh elemen pada level di atasnya. Pembagian pertama dilakukan untuk elemen-elemen pada level kriteria dengan memperhatikan level di atasnya, yaitu goal atau tujuan utama (Pemilihan Pemenang Tender Proyek). Perbandingan dilakukan dengan skala satu sampai sembilan dan memenuhi aksioma-aksioma AHP. 1. Menentukan prioritas kriteria Langkah yang harus dilakukan dalam menentukan prioritas kriteria adalah sebagai berikut:
25
a) Membuat matriks perbandingan berpasangan Pada tahap ini dilakukan penilaian perbandingan antara satu kriteria dengan kriteria yang lain. Hasil penilaian bisa dilihat dalam Tabel 3.1. Tabel 3.1 Matriks Perbandingan Berpasangan Goal
A
T
H
A T H Jumlah
1 0.5 0.25 1.75
2 1 0.5 3.5
4 2 1 7
Angka 1 pada kolom A baris A menggambarkan tingkat kepentingan yang sama antara A dengan A, sedangkan angka 2 pada kolom T baris A menunjukkan T sedikit lebih penting dibandingkan dengan A. Angka 0.5 pada kolom A baris T merupakan hasil perhitungan 1 / nilai pada kolom T baris A (2). Angka-angka yang lain diperoleh dengan cara yang sama. b) Membuat matriks nilai kriteria Tabel 3.2 Matriks Nilai Kriteria Goal
A
T
H
Jumlah
Prioritas
A T H
(1/1.75) = 0.14 (0.5/1.75) = 0.07 (0.25/1.75) = 0.03
(2/3.5) = 0.57 (1/3.5) = 0.28 (0.5/3.5) = 0.14
(4/7) = 0.57 (2/7) = 0.28 (1/7) = 0.14
1.28 0.63 0.31
0.42 0.21 0.10
Nilai 0.14 pada kolom A baris A diperoleh dari nilai kolom A baris A dibagi jumlah kolom A. Berikutnya dilakukan dengan cara yang sama. Nilai kolom jumlah diperoleh dari penjumlahan pada setiap baris. Untuk jumlah baris pertama nilai 1.28 merupakan hasil penjumlahan dari 0.14 + 0.57 + 0.57. Nilai pada kolom prioritas diperoleh dari nilai pada kolom jumlah dibagi dengan jumlah kriteria, dalam hal ini 3.
26
c) Membuat matriks penjumlahan setiap baris Tabel 3.3 Matriks Penjumlahan Setiap Baris Goal
A
T
H
Jumlah
A T H
(0.42*1) = 0.42 (0.42*0.5) = 0.21 (0.42*0.25) = 0.105
(0.21*2) = 0.42 (0.21*1) = 0.21 (0.21*0.5) = 0.105
(0.10*4) = 0.4 (0.10*2) = 0.2 (0.10*1) = 0.1
1.24 0.62 0.31
Nilai 0.42 pada baris A kolom A diperoleh dari prioritas baris A Tabel 3.2 dikalikan dengan nilai baris A kolom A Tabel 3.1. Berikutnya dilakukan dengan cara yang sama. Kolom jumlah diperoleh dengan menjumlahkan nilai pada masing-masing baris, A + T + H = Jumlah. Baris berikutnya dilakukan dengan cara yang sama. d) Perhitungan rasio konsistensi Tabel 3.4 Perhitungan Rasio Konsistensi
A T H
Jumlah Per baris
Prioritas
Hasil
1.24 0.62 0.31
0.42 0.21 0.10
1.66 0.83 0.41
Kolom jumlah per baris diperoleh dari jumlah Tabel 3.3, sedangkan kolom prioritas diperoleh dari prioritas pada Tabel 3.2. Dari tabel perhitungan rasio konsistensi, diperoleh nilai-nilai sebagai berikut : Jumlah (jumlahan dari nilai-nilai hasil): 1.66 + 0.83 + 0.14 = 2.63 n (jumlah kriteria) : 3 λ maks (jumlah/n) : 2,63 / 3 = 0.88 CI ((λ maks-n)/n) : ((0.88 - 3)/3) = -0.70 CR (CI/IR) : -0.70 / 0.58 = -1.20 Oleh karena CR < 0.1, maka rasio konsistensi dari perhitungan tersebut bisa diterima.
27
2. Menentukan prioritas subkriteria Perhitungan subkriteria dilakukan terhadap sub-sub dari semua kriteria. Dalam hal ini, untuk subkriteria A terdapat 16 perhitungan prioritas subkriteria, T terdapat 6 perhitungan subkriteria, dan H terdapat 3 perhitungan subkriteria. a) Menghitung prioritas subkriteria dari kriteria A Langkah yang dilakukan dalam untuk menghitung prioritas subkriteria dari kriteria A adalah sebagai berikut: o Membuat matriks perbandingan berpasangan Tabel 3.5 Matriks Perbandingan Berpasangan Kriteria A A
SC
SLC
C
KC
STC
SC SLC C KC STC Jumlah
1 0.5 0.34 0.25 0.2 2.29
2 1 0.5 0.34 0.2 4.04
3 2 1 0.5 0.34 6.84
4 3 2 1 0.5 10.5
5 5 3 2 1 16
o Membuat matriks nilai kriteria Perbedaannya adalah adanya tambahan kolom prioritas subkriteria pada tabel ini. Hasilnya ditunjukkan dalam Tabel 3.6. Tabel 3.6 Matriks Nilai Kriteria A A
SC
SLC
C
KC
STC
Jumlah
Prioritas
SC SLC C KC STC
0.44 0.22 0.15 0.11 0.09
0.50 0.25 0.13 0.09 0.05
0.44 0.30 0.15 0.08 0.05
0.38 0.29 0.19 0.10 0.05
0.31 0.31 0.18 0.12 0.06
2.07 1.37 0.8 0.50 0.3
0.41 0.27 0.16 0.1 0.06
Prioritas Subkriteria 1 0.65 0.39 0.24 0.14
Nilai pada kolom prioritas subkriteria diperoleh dari nilai prioritas pada baris tersebut dengan nilai tertinggi pada kolom prioritas yaitu (0.41/0.41=1) dan pada baris berikutnya dilakukan dengan cara yang sama.
28
b) Menghitung prioritas subkriteria dari kriteria T Langkah yang dilakukan dalam untuk menghitung prioritas subkriteria dari kriteria T adalah sebagai berikut: o Membuat matriks perbandingan berpasangan Tabel 3.7 Matriks Perbandingan Berpasangan Kriteria T A
SC
SLC
C
KC
STC
SC SLC C KC STC Jumlah
1 0.5 0.34 0.25 0.2 2.29
2 1 0.5 0.34 0.2 4.04
3 2 1 0.5 0.34 6.84
4 3 2 1 0.5 10.5
5 5 3 2 1 16
o Membuat matriks nilai kriteria Tabel 3.8 Matriks Nilai Kriteria T A
SC
SLC
C
KC
STC
Jumlah
Prioritas
SC SLC C KC STC
0.44 0.22 0.15 0.11 0.09
0.50 0.25 0.13 0.09 0.05
0.44 0.30 0.15 0.08 0.05
0.38 0.29 0.19 0.10 0.05
0.31 0.31 0.18 0.12 0.06
2.07 1.37 0.8 0.50 0.3
0.41 0.27 0.16 0.1 0.06
Prioritas Subkriteria 1 0.65 0.39 0.24 0.14
c) Menghitung prioritas subkriteria dari kriteria H Langkah yang dilakukan dalam untuk menghitung prioritas subkriteria dari kriteria H adalah sebagai berikut: o Membuat matriks perbandingan berpasangan Tabel 3.9 Matriks Perbandingan Berpasangan Kriteria H A SC SLC C KC STC Jumlah
SC 1 0.5 0.34 0.25 0.2 2.29
SLC 2 1 0.5 0.34 0.2 4.04
C 3 2 1 0.5 0.34 6.84
KC 4 3 2 1 0.5 10.5
STC 5 5 3 2 1 16
29
o Membuat matriks nilai kriteria Tabel 3.10 Matriks Nilai Kriteria H A
SC
SLC
C
KC
STC
Jumlah
Prioritas
SC SLC C KC STC
0.44 0.22 0.15 0.11 0.09
0.50 0.25 0.13 0.09 0.05
0.44 0.30 0.15 0.08 0.05
0.38 0.29 0.19 0.10 0.05
0.31 0.31 0.18 0.12 0.06
2.07 1.37 0.8 0.50 0.3
0.41 0.27 0.16 0.1 0.06
Prioritas Subkriteria 1 0.65 0.39 0.24 0.14
3. Menghitung Hasil
Prioritas dari hasil perhitungan kemudian dituangkan dalam matriks hasil yang terlihat dalam Tabel 3.11. Tabel 3.11 Matriks Hasil Administrasi (A) 0.42 Sangat Cocok 1 Sedikit Lebih Cocok 0.65 Cocok 0.39 Kurang Cocok 0.24 Sangat Tidak Cocok 0.14
Teknis (T) 0.21 Sangat Cocok 1 Sedikit Lebih Cocok 0.65 Cocok 0.39 Kurang Cocok 0.24 Sangat Tidak Cocok 0.14
Harga (H) 0.10 Sangat Cocok 1 Sedikit Lebih Cocok 0.65 Cocok 0.39 Kurang Cocok 0.24 Sangat Tidak Cocok 0.14
Seandainya diberikan data nilai dari Perusahaan seperti yang terlihat dalam Tabel 3.12.
Tabel 3.12 Nilai Perusahaan
Perusahaan 1 Perusahaan 2 Perusahaan 3 Perusahaan 4
Administrasi (A) Sangat Cocok Kurang Cocok Sangat Cocok Kurang Cocok
Teknis (T) Cocok Sedikit Lebih Cocok Cocok Sangat Tidak Cocok
Harga (H) Sangat Tidak Cocok Cocok Sangat Cocok Sedikit Lebih Cocok
30
Tabel 3.13 Hasil Akhir
Perusahaan 1 Perusahaan 2 Perusahaan 3 Perusahaan 4
Administrasi (A) 0.42 0.10 0.42 0.10
Teknis (T) 0.08 0.13 0.08 0.02
Harga (H) 0.01 0.03 0.1 0.06
Total 0.51 0.26 0.6 0.18
Nilai 0.42 pada kolom Administrasi baris Perusahaan 1 diperoleh dari nilai Perusahaan 1 untuk Administrasi, yaitu Sangat Cocok dengan prioritas 1 (Tabel 3.11), dikalikan dengan prioritas Administrasi sebesar 0.42 (Tabel 3.11). Kolom total diperoleh dari penjumlahan pada masing-masing barisnya. Nilai total inilah yang dipakai sebagai dasar untuk menentukan perusahaan pemenang tender proyek. Semakin besar nilainya, perusahaan tersebut akan semakin besar kesempatan untuk menjadi pemenang.
3.4.2
Prosedur Sistem Berjalan Sistem penunjang keputusan pemenang tender proyek pada Unit Layanan
Pengadaan (ULP) Dinas Bina Marga dan Cipta Karya Provinsi Aceh Kelompok Kerja (Pokja) Aceh Selatan pada Dinas Pekerjaan Umum Kabupaten Aceh Selatan dimulai dari pengumuman pelelangan yang diumumkan lewat media cetak, dan lain-lain. Pembukaan pendaftaran dilakukan dan perusahaan mendaftarkan perusahaannya
masing-masing
pada
panitia
lelang
selanjutnya
panitia
memberikan dokumen penawaran kepada perusahaan pendaftar. Tahap berikutnya adalah penjelasan (aanwijzing) dan setelah itu perusahaan yang telah mendaftar memasukan dokumen penawaran kepada panitia dan pembukaan dokumen penawaran dilakukan oleh panitia. Proses evaluasi dilakukan oleh panitia kemudian panitia mengusulkan calon pemenang kepada ketua, selanjutnya ketua menetapkan pemenang dan pengumuman pemenang dilakukan oleh panitia serta tembusannya disampaikan kepada Kepala Dinas. Masa sanggah dari peserta yang mengikuti pelelanggan, seterusnya klarifikasi dan negosiasi antara panitia dengan
31
peserta penawaran dan penerbitan SPPBJ oleh panitia. Sistem berjalan dapat terlihat pada gambar 3.2.
Gambar 3.2 Sistem Berjalan
32
3.4.3
Prosedur Sistem Usulan Sistem penunjang keputusan pemenang tender proyek pada Unit Layanan
Pengadaan (ULP) Dinas Bina Marga dan Cipta Karya Provinsi Aceh Kelompok Kerja (Pokja) Aceh Selatan pada Dinas Pekerjaan Umum Kabupaten Aceh Selatan yang diusulkan dimulai dari pengumuman pelelangan yang diumumkan lewat media cetak, dan lain-lain. Pembukaan pendaftaran oleh panitia dan perusahaan mendaftarkan perusahaannya masing-masing kemudian panitia memberikan dokumen penawaran kepada peserta yang telah mendaftarkan perusahaannya. Selanjutnya adalah penjelasan (aanwijzing), setelah itu peserta memasukan dokumen penawaran kepada panitia dan pembukaan dokumen penawaran dilakukan. Panitia mengimput data perusahaan kedalam sistem yang tersimpan dalam database. Ketua melakukan proses evaluasi dokumen penawaran mulai dari koreksi aritmatik, administrasi, teknis, dan harga, dengan memberikan score pada setiap sub kriteria dari masing-masing kriteria dan sistem menampilkan penawaran yang memenuhi syarat/nilai terbanyak akan lulus ke tahap berikutnya. Pada tahap evaluasi kualifikasi dilakukan penentuan ada atau tidak adanya dalam dokumen penawaran yang dimasukkan oleh perusahaan yang merupakan persyaratan yang wajib bagi perusahaan untuk melaksanakan pekerjaan proyek untuk ditetapkan sebagai pemenang atau sebaliknya, kemudian akan tersimpan kembali ke dalam database. Panitia mengumumkan pemenang dan tembusannya disampaikan kepada Kepala Dinas. Masa sanggah dari peserta yang mengikuti pelelanggan, seterusnya klarifikasi dan negosiasi antara panitia dengan peserta penawaran dan penerbitan SPPBJ oleh panitia. Sistem usulan dapat terlihat pada gambar 3.3.
33
Gambar 3.3 Sistem Usulan
34
3.5
Rancangan Sistem Tahapan ini merupakan proses menerjemahkan keperluan atau data hasil
analisis ke dalam bentuk yang mudah dipahami oleh pengguna. Proses desain sistem membagi kebutuhan-kebutuhan menjadi sistem perangkat lunak yang mana hasil penelitian ini adalah software yang dikhususkan untuk sistem penunjang keputusan pemenang tender proyek. Perancangan dan pembuatan sistem ini menggunakan bahasa pemrograman Microsoft Visual Basic 6.0, Microsoft SQL Server 2000, dan Crystal Report 8.5 sehingga Proses tersebut menghasilkan sebuah arsitektur sistem secara keseluruhan.
3.5.1 Rancangan Entity Relationship Diagram (ERD) Entity Relationship Diagram terdiri dari beberapa entitas seperti yang terlihat pada gambar 3.4.
Gambar 3.4 Entity Relationship Diagram (ERD) Keterangan: N – 1 ( Banyak ke Satu ) 1 – 1 ( Satu ke Satu )
35
3.5.2 Rancangan Data Flow Diagram (DFD) Data Flow Diagram (DFD) adalah suatu model logika data atau proses yang dibuat untuk menggambarkan asal data dan tujuan data yang keluar dari system, tempat penyimpanan data, proses apa yang dihasilkan data tersebut, serta interaksi antara data yang tersimpan dan proses yang dikenakan pada data tersebut. Dalam proses pengembangan desain sistem digunakan model berupa metode berarah aliran data dengan menggunakan Data Flow Diagram. Desain ini dimulai dari bentuk yang paling global yaitu diagram konteks, kemudian akan diturunkan sampai bentuk yang paling detail. Aliran data dimulai dari admin memasukan data perusahaan, data paket, data kecamatan, dan data gampong. Selain itu pengguna juga dapat melakukan proses evaluasi penilaian tahap awal hingga tahap akhir untuk masukan pembobotan/data kriteria dari setiap sub kriteria dari dokumen penawaran. Penentuan nilai kriteria dan sub kriteria pembobotan dari proses evaluasi maka selanjutnya output tersebut menjadi penentuan pemenang tender proyek.
3.5.2.1 Konteks Diagram Berikut ini adalah diagram konteks sistem penunjang keputusan pemenang tender proyek dapat terlihat pada gambar 3.5.
Gambar 3.5 Diagram Konteks
36
Diagram konteks adalah diagram yang menggambarkan sistem penunjang keputusan pemenang tender proyek secara keseluruhan dengan entitas-entitas yang terlibat didalamnya.
3.5.2.2 Level 1 Berikut ini adalah Data Flow Diagram level 1 sistem penunjang keputusan pemenang tender proyek yang menceritakan aliran data mulai dari proses memasukkan data, proses evaluasi dokumen penawaran sampai laporan ke dalam sistem penunjang keputusan pemenang tender proyek secara terkomputerisasi. DFD Level 1 dapat terlihat pada gambar 3.6.
Gambar 3.6 DFD Level 1
37
Data Flow Diagram level 1 di atas adalah diagram system usulan yang menceritakan proses pemilihan pemenang tender proyek dari tahap awal hingga akhir sistem.
3.5.2.3 Level 2 Berikut ini adalah Data Flow Diagram level 2 sistem penunjang keputusan pemenang tender proyek yaitu sebagai berikut: a. Level 2 Proses 1 Berikut ini adalah Data Flow Diagram level 2 sistem penunjang keputusan
pemenang
tender proyek
yang
menceritakan
proses
memasukkan data perusahaan ke dalam sistem penunjang keputusan pemenang tender proyek secara terkomputerisasi. DFD Level 2 Proses 1 dapat terlihat pada gambar 3.7.
Gambar 3.7 DFD Level 2 Proses 1
b. Level 2 Proses 2 Berikut ini adalah Data Flow Diagram level 2 Proses 2 sistem penunjang keputusan pemenang tender proyek yang menceritakan proses mamasukkan data paket ke dalam sistem penunjang keputusan pemenang tender proyek secara terkomputerisasi. DFD Level 2 Proses 2 dapat terlihat pada gambar 3.8.
38
Gambar 3.8 DFD Level 2 Proses 2
c. Level 2 Proses 3 Berikut ini adalah Data Flow Diagram level 2 Proses 3 sistem penunjang keputusan pemenang tender proyek yang menceritakan proses mamasukkan data gampong ke dalam sistem penunjang keputusan pemenang tender proyek secara terkomputerisasi. DFD Level 2 Proses 3 dapat terlihat pada gambar 3.9.
Gambar 3.9 DFD Level 2 Proses 3
39
d. Level 2 Proses 4 Berikut ini adalah Data Flow Diagram level 2 Proses 4 sistem penunjang keputusan pemenang tender proyek yang menceritakan proses mamasukkan data kecamatan ke dalam sistem penunjang keputusan pemenang tender proyek secara terkomputerisasi. DFD Level 2 Proses 4 dapat terlihat pada gambar 3.10.
Gambar 3.10 DFD Level 2 Proses 4
e. Level 2 Proses 5 Berikut ini adalah Data Flow Diagram level 2 Proses 5 sistem penunjang keputusan pemenang tender proyek yang menceritakan proses evaluasi dokumen penawaran ke dalam sistem penunjang keputusan pemenang tender proyek secara terkomputerisasi. DFD Level 2 Proses 5 dapat terlihat pada gambar 3.11.
Gambar 3.11 DFD Level 2 Proses 5
40
3.5.3
Rancangan Database Database adalah kumpulan data yang saling terkait yang diorganisasi untuk memenuhi kebutuhan dan struktur sebuah organisasi serta bisa digunakan oleh lebih dari satu orang dan lebih dari satu aplikasi. Rancangan database pada sistem penunjang keputusan pemenang tender proyek ini dibuat dengan menggunakan Microsoft SQL Server 2000 dan arsitektur sistemnya berbasis stand alone.
3.5.3.1 Struktur Database Di dalam rancangan file ini akan dijelaskan tentang variabelvariabel yang digunakan dalam sistem penunjang keputusan pemenang tender proyek. Dalam perencanaan sistem ini terdapat dua belas tabel untuk menyimpan data. Tabelnya sebagai berikut ini:
Tabel 3.14 Struktur Tabel Perusahaan Identifikasi/Nama Deskripsi Isi Jenis Primary Key No 1 2 3 4 5 6 7 8 9
Field Name Kodeph Namaph Alamat Npwp Namapimp Jabatan bidUsaha Telp Bidusaha
: perusahaan : menyimpan data perusahaan : tabel data induk : KodePh Data Type Kode Perusahaan Char Nama Perusahaan Varchar Alamat Varchar No. Wajib Pajak Char Nama Pimpinan Varchar Jabatan Varchar Bidang Usaha Varchar Nomor Telepon Varchar Bidang Usaha Varchar Deskripsi
Size 3 50 50 20 25 15 20 10 15
Keterangan Primary Key -
41
Tabel 3.15 Struktur Tabel Paket Identifikasi/Nama Deskripsi Isi Jenis Primary Key No 1 2 3 4 5 6 7 8
Field Name Kodepaket Namapaket Namakeg Nilhps Subbid Kf Kodekec Kodegp
: paket : menyimpan data paket pekerjaan : tabel data induk : KodePaket Deskripsi Kode Paket Nama Paket Nama Kegiatan Nilai HPS Sub Bidang Kualifikasi Kode Kecamatan Kode Gampong
Data Type Char Varchar Varchar Varchar Varchar Varchar Char Char
Size 5 30 50 23 10 15 3 2
Keterangan Primary Key Foreign Key Foreign Key
Tabel 3.16 Struktur Tabel Gampong Identifikasi/Nama Deskripsi Isi Jenis Primary Key No 1 2 3
Field Name Kodegp Namagp Kodekec
: gampong : menyimpan data gampong : tabel data induk : KodeGp Deskripsi Kode Gampong Nama Gampong Kode Kecamatan
Data Type Char Varchar Char
Size 3 30 3
Keterangan Primary Key Foreign Key
Tabel 3.17 Struktur Tabel Kecamatan Identifikasi/Nama Deskripsi Isi Jenis Primary Key No 1 2
Field Name Kodekec Namakec
: kecamatan : menyimpan data kecamatan : tabel data induk : KodeKec Deskripsi Kode Kecamatan Nama Kecamatan
Data Type Char Varchar
Size 4 30
Keterangan Primary Key -
42
Tabel 3.18 Struktur Tabel Ikut Identifikasi/Nama Deskripsi Isi Jenis Primary Key
: ikut : menyimpan data ikut : tabel data bantu :-
1
Kode_paket
Kode Paket
Data Type Char
2
Kode_ph
Kode Perusahaan
Char
No
Field Name
Deskripsi
Size
Keterangan
5
Foreign Key
3
Foreign Key
Tabel 3.19 Struktur Tabel Evaluasi Identifikasi/Nama Deskripsi Isi Jenis Primary Key No 1 2 3 4 5 6 7
Field Name Kodepaket Kodeph KodeArt Kodeadm Kodeteknis Kodeharga Kodekualifikasi
: evaluasi : menyimpan data evaluasi : tabel data bantu :Deskripsi Kode Paket Kode Perusahaan Kode Aritmatik Kode Administrasi Kode Teknis Kode Harga Kode Kualifikasi
Data Type Char Char Char Char Char Char Char
Size 5 3 2 2 2 2 2
Keterangan Foreign Key Foreign Key Foreign Key Foreign Key Foreign Key Foreign Key Foreign Key
Tabel 3.20 Struktur Tabel Koreksi Aritmatik Identifikasi/Nama Deskripsi Isi Jenis Primary Key No 1 2 3 4 5
Field Name KodeArt Hp Ht Kodeph Kodepaket
: aritmatik : menyimpan data aritmatik : tabel data induk : KodeArt Deskripsi Kode Aritmatik Harga Penawaran Harga Terkoreksi Kode Perusahaan Kode Paket
Data Type Char Varchar Varchar Char Char
Size 2 23 23 3 5
Keterangan Primary Key Foreign Key Foreign Key
43
Tabel 3.21 Struktur Tabel Administrasi Identifikasi/Nama Deskripsi Isi Jenis Primary Key No
Field Name
1 2
Kodeadm Ska1
3
Ska2
4 5
Ska3 Ska4
6
Ska5
7
Ska6
8
Ska7
9
Ska8
10 Ska9 11 Ska10 12 Ska11 13 Ska12 14 Ska13 15 Ska14 16 Ska15 17 Ska16 18 19 20 21 22
Jlhadm Ketadm Aguguradm Kodeph Kodepaket
: administrasi : menyimpan data administrasi : tabel data induk : Kodeadm Deskripsi
Data Type Char Char
Kode Administrasi Lembaga Penjamin Masa Laku Jaminan Char penawaran Nama Peserta Sesuai Char Nilai Jaminan Sesuai Char Angka dan huruf sama dengan jaminan Char penawaran Nama pengguna jasa Char sesuai Jaminan sama dengan paket yang Char dijamin Tujuan jaminan Char sesuai Tujuan surat Char penawaran Angka dan huruf sama dengan surat Char penawaran Masa laku sesuai Char surat penawaran Jangka waktu Char pelaksanaan sesuai Tandatangan Char bertanggal Data kuantitas dan harga dokumen Char pendukung Analisa harga satuan Char dokumen pendukung Dokumen lain yang disyaratkan dokumen Char pendukung Jumlah Bobot Char Keterangan adm char Alasan gugur adm Varchar Kode Perusahaan Char Kode Paket Char
Size
Keterangan
2 5
Primary Key -
5
-
5 5
-
5
-
5
-
5 5
-
5
-
5
-
5
-
5
-
5
-
5
-
5
-
5
-
5 11 200 3 5
Foreign Key Foreign Key
44
Tabel 3.22 Struktur Tabel Teknis Identifikasi/Nama Deskripsi Isi Jenis Primary Key No
Field Name
1 2
Kode_teknis Skt1
3
Skt2
4 5 6
Skt3 Skt4 Skt5
7
Skt6
8 9 10 11 12
Jlhteknis Ketteknis AgugurTeknis Kodeph Kodepaket
: teknis : menyimpan data teknis : tabel data induk : Kodeteknis Data Type Kode Teknis Char Metode Pelaksanaan Char Jangka Waktu Char Pelaksanaan Spesifikasi Teknis Char Personil Inti Char Peralatan Utama Char Dokumen Lain Yang Char Disyaratkan Jumlah teknis Char Keterangan teknis Char Alasan gugur teknis Varchar Kode Perusahaan Char Kode Paket Char Deskripsi
Size
Keterangan
2 5
Primary Key -
5
-
5 5 5
-
5
-
5 11 100 3 5
Foreign Key Foreign Key
Tabel 3.23 Struktur Tabel Harga Identifikasi/Nama Deskripsi Isi Jenis Primary Key No
Field Name
1
Kodeharga
2
Skh1
3
Skh2
4
Skh3
5
Skh4
6 7 8 9 10
Jlhharga Ketharga Agugurharga Kodeph Kodepaket
: harga : menyimpan data harga : tabel data induk : Kodeharga Deskripsi Kode Harga Satuan Harga Timpang Harga Dibawah 80 Persen Harga Diatas 110 Persen Harga Koreksi Aritmatik Jumlah harga Keterangan harga Alasan gugur harga Kode Perusahaan Kode Paket
Data Type Char
Size
Keterangan
2
Primary Key
Char
5
-
Char
5
-
Char
5
-
Char
5
-
Char char Varchar Char Char
5 11 100 3 5
Foreign Key Foreign Key
45
Tabel 3.24 Struktur Tabel Kualifikasi Identifikasi/Nama Deskripsi Isi Jenis Primary Key No
Field Name
1
Kode_kualifikasi
2
Skk1
3
Skk2
4 5 6 7 8 9 10 11
Skk3 Skk4 Skk5 Skk6 Skk7 Skk8 Skk9 Skk10
12 Skk11 13 Skk12 14 Skk13 15 Skk14 16 Skk15 17 Ketkualifikasi 18 AgugurKualifikasi 19 Kodeph 20 Kodepaket
: kualifikasi : menyimpan data kualifikasi : tabel data induk : Kodekualifikasi Deskripsi Kode Kualifikasi Daftar Isian Formulir Kualifikasi Ditandatangani Formulir Isian Kualifikasi IUJK SBU SITU AKTE Surat Pernyataan Npwp SPT PPh/PPn Pengalaman Pekerjaan Fakta Integritas Data Pendukung Rekening Koran Data Pendukung Dukungan Bank Data Pendukung Rekaman Kontrak dan PHO Keterangan kualifikasi Alasan gugur kualifikasi Kode Perusahaan Kode Paket
Data Type Char
Size
Keterangan
2
Primary Key
Varchar
9
-
Varchar
9
-
Varchar Varchar Varchar Varchar Varchar Varchar Varchar Varchar
9 9 9 9 9 9 9 9
-
Varchar
9
-
Varchar
9
-
Varchar
9
-
Varchar
9
-
Varchar
9
-
Varchar
9
-
Varchar Char Char
200 3 5
Foreign Key Foreign Key
46
Tabel 3.25 Struktur Pemenang Identifikasi/Nama Deskripsi Isi Jenis Primary Key No 1 2 3 4 5 6 7 8 9 10
Field Name Kodeph Namaph Kodepaket Namapaket Namakeg Nilaihps Hp Jlhadm Jlhteknis Jlhharga
11 Ketkualifikasi 12 Jlhtotal
: pemenang : menampilkan pemenang : data bantu :Data Type Kode Perusahaan Char Nama Perusahaan Varchar Kode Paket Char Nama Paket Varchar Nama Kegiatan Varchar Nilai HPS Varchar Harga Penawaran Varchar Jumlah Adm Char Jumlah Teknis Char Jumlah Harga Char Keterangan Varchar Kualifikasi Jumlah total Char Deskripsi
Size
Keterangan
3 50 5 50 50 23 23 5 5 5
Foreign Key Foreign Key -
9
-
5
-
47
3.5.3.2 Relasi Database Dengan adanya relasi antar tabel diharapkan dapat mempermudah dalam pembuatan program berdasarkan tabel-tabel yang ada, dimana tabel tersebut saling berkaitan. Relasi antar tabel dapat terlihat pada Gambar 3.12.
Gambar 3.12 Relasi Antar Tabel
48
3.5.4 Rancangan Menu Adapun menu sistem penunjang keputusan pemenang tender proyek dapat terlihat pada gambar 3.13.
Gambar 3.13 Menu Utama
Keterangan : 1. Menu File
: menu yang digunakan sebagai form dasar untuk mengelola data pemakai, ganti user dan keluar dari aplikasi.
2. Menu Input Data
: menu yang digunakan untuk memasukkan data perusahaan,
data
paket,
data
kecamatan,
data
gampong, dan ikut. 3. Menu Proses Evaluasi : menu yang digunakan untuk melakukan proses pemberian score untuk setiap kriteria dokumen penawaran. 4. Menu Laporan
: menu yang digunakan untuk menyajikan laporan.
5. Menu Utility
: menu yang digunakan untuk mengatur instansi pengguna aplikasi.
6. Menu About
: menu yang digunakan untuk menampilkan informasi system dan tentang programmer.
49
3.5.5 Rancangan Masukkan (Input) Tampilan input dirancang dengan menggunakan bahasa pemrograman Microsoft Visual Basic 6.0, adapun rancangan input terdiri dari :
1.
Login
Gambar 3.14 Login Pengguna
2.
Input Data Perusahaan
Gambar 3.15 Input Data Perusahaan
50
3.
Input Data Paket
Gambar 3.16 Input Data Paket
4.
Input Data Kecamatan
Gambar 3.17 Input Data Kecamatan
5.
Input Data Gampong
Gambar 3.18 Input Data Gampong
51
6.
Proses Evaluasi Koreksi Aritmatik
Gambar 3.19 Proses Evaluasi Aritmatik
7.
Proses Evaluasi Administrasi
Gambar 3.20 Proses Evaluasi Administrasi
52
8.
Proses Evaluasi Teknis
Gambar 3.21 Proses Evaluasi Teknis
9.
Evaluasi Harga
Gambar 3.22 Proses Evaluasi Harga
53
10. Proses Evaluasi Kualifikasi
Gambar 3.23 Proses Kualifikasi
11. Input Pemakai
Gambar 3.24 Input Pemakai
54
12. Input Ikut
Gambar 3.25 Input Ikut
3.5.6
Rancangan Keluaran (Output) Tampilan Output dirancang dengan menggunakan Crystal Report 8.0,
adapun rancangan output dari sistem penunjang keputusan pemenang tender proyek dapat dilihat pada gambar berikut:
PEMERINTAH KABUPATEN ACEH SELATAN
DINAS PEKERJAAN UMUM Mayjen D. I. Panjaitan No. 19 Tapaktuan LAPORAN PEMENANG TENDER PROYEK
Kode Paket Nama Peket Nama Kegiatan Nilai HPS Nama Kecamatan Nama Gampong KodePh
Nama Perusahaan
XXXX
XXXXXXXX
XXXX XXXX
XXXXXXXX XXXXXXXX
: XXXXX : XXXXXXXXXXXXXXXXXXXXXXXXXX : XXXXXXXXXXXXXXX : Rp. XXXXXXXXXXX : XXXXXXXXX : XXXXXXXXXXXXXXX Perangkingan Koreksi Aritmatik XXXXX XXXXX XXXXX
Adm
Teknis
Harga
Kualifikasi
XX
XX
XX
XXXXX
Ket Kualifika si XXX
XXXXX
XXX
XXXXX
XXX
XX XX
XX XX
XX XX
Gambar 3.26 Laporan Pemenang Tender
Jumlah Nilai
Ket
XX
XXXX
XX
XXXX
XX
XXXX
BAB IV HASIL DAN PEMBAHASAN
4.1 Implementasi Perangkat Lunak Implementasi merupakan tahap dimana sistem siap dioperasikan pada tahap yang sebenarnya, sehingga akan diketahui apakah sistem yang telah dibuat benar-benar sesuai dengan yang direncanakan. Pada implementasi perangkat lunak ini akan dijelaskan bagaimana program sistem penunjang keputusan pemenang tender proyek menggunakan metode Analytic Hierarchy Process (AHP) ini bekerja, dengan memberikan tampilan form-form yang dibuat dan sesuai dengan analisa kebutuhan proses serta perancangan yang telah dijelaskan sebelumnya. Aplikasi
sistem
penunjang
keputusan
pemenang
tender
proyek
menggunakan AHP ini dalam implementasinya dibatasi pada pembuatan program dengan proses menyimpan, mengubah, mengedit, dan menghapus data yang berupa data pemakai, data perusahaan, data paket, data kecamatan, data gampong, data ikut, proses koreksi aritmatik, proses evaluasi dokumen penawaran administrasi menggunakan metode AHP, proses evaluasi dokumen penawaran teknis teknis menggunakan metode AHP, proses evaluasi dokumen penawaran harga menggunakan metode AHP, proses evaluasi dokumen penawaran kualifikasi, dan laporan koreksi aritmatik, laporan administrasi, laporan teknis, laporan harga, laporan kualifikasi, dan laporan pemenang tender proyek.
4.2 Proses Implementasi Implementasi dari aplikasi sistem penunjang keputusan pemenang tender proyek menggunakan metode AHP terdiri dari beberapa form yang memiliki fungsi tersendiri. Form-form tersebut akan tampil secara berurutan sesuai dengan urutan yang telah terprogram, setelah pemakai melakukan proses login ke dalam sistem.
55
56
4.2.1 Proses Hak Akses Pemakai A. Login dan Ganti User (Pemakai) Proses login merupakan implementasi dari proses autentikasi pemakai ke dalam sistem. Setelah sukses login, pemakai akan mendapatkan menu sesuai dengan hak aksesnya berdasarkan status masing-masing pemakai yaitu administrator, operator dan panitia dengan menu yang berbeda-beda setelah sukses melakukan login. Pada form ini pemakai memasukkan nama dan password untuk dapat mengakses aplikasi ini lebih lanjut. Tombol batal berfungsi untuk membatalkan proses login ke sistem atau untuk menutup form login. Proses menggantikan pemakai juga dilakukan menggunakan form ini. Berikutnya form dapat terlihat pada gambar 4.1.
Gambar 4.1 Form Login dan Ganti Pemakai
B. Menu Utama Proses Menu ini ditampilkan setelah proses login dilakukan oleh pemakai berdasarkan status pemakai. Menu dan sub menu form yang ada dalam sistem penunjang keputusan pemenang tender proyek seperti terlihat didalam Tabel 4.1.
57
Tabel 4.1 Implementasi Perangkat Lunak No. 1.
Menu/Sub Menu File ◊ Pemakai ◊ Ganti User ◊ Keluar
2.
Input Data ◊ Perusahaan ◊ Paket ◊ Kecamatan ◊ Gampong ◊ Ikut
3.
Proses Evaluasi ◊ Koreksi Aritmatik ◊ Administrasi ◊ Teknis ◊ Harga ◊ Kualifikasi
4.
Laporan ◊ Laporan Koreksi Aritmatik ◊ Laporan Administrasi ◊ Laporan Teknis ◊ Laporan Harga ◊ Laporan Kualifikasi ◊ Laporan Pemenang
5.
Utility ◊ Profil Pengguna
6.
About ◊ Informasi ◊ Programmer
Administrator
Operator
Panitia
√
√
√
√
√
√
√ √ √ √ √ √ √ √
√
√ √
√
√
√ √ √
√
√
√
√
√
√
√
√
√
√
√
√
√
√
√
√
√
√
√
√
√
√
√
√
√
√
√
√
√
√
√
√
√
√ √ √
√ √ √
√ √ √
58
Menu sistem penunjang keputusan pemenang tender proyek menggunakan AHP seperti ditunjukkan pada Gambar 4.2.
Gambar 4.2 Form Menu Utama
C. Kelola Akses Pemakai Proses ini merupakan implementasi dari proses pengolahan data pemakai yang digunakan untuk menambah, menghapus, dan mengedit data pemakai. Penambahan data pemakai harus mengisi field yang tersedia yaitu status, kode, nama, dan password. Setelah semua terisi maka tekan tombol ”simpan” untuk menyimpan data pemakai. Form pemakai ini ditunjukkan pada Gambar 4.2.
Gambar 4.3 Form Pengguna Aplikasi
59
4.2.2 Proses Input Data A. Data Perusahaan Proses ini merupakan implementasi dari pengolahan data perusahaan yang digunakan untuk menambah, menghapus, dan mengedit data perusahaan yang mengikuti paket lelang yang dilakukan oleh panitia tender. Form data perusahaan ditunjukkan pada Gambar 4.4.
Gambar 4.4 Form Data Perusahaan
B. Data Paket Proses ini merupakan implementasi dari pengolahan data paket yang digunakan untuk menambah, menghapus, dan mengedit data paket yang akan dilelang. Form data paket ditunjukkan pada Gambar 4.5.
60
Gambar 4.5 Form Data Paket
C. Data Kecamatan Proses ini merupakan implementasi dari pengolahan data kecamatan yang ada dalam Kabupaten Aceh Selatan untuk menambah, menghapus, dan mengedit data kecamatan yang merupakan tempat akan dilaksanakan pengerjaan proyek yang akan dilelang. Form data kecamatan ditunjukkan pada Gambar 4.6.
Gambar 4.6 Form Data Kecamatan
61
D. Data Gampong Proses ini merupakan implementasi dari pengolahan data gampong yang ada dalam Kabupaten Aceh Selatan untuk menambah, menghapus, dan mengedit data gampong yang merupakan tempat akan dilaksanakan pengerjaan proyek yang akan dikerjakan. Form data gampong ditunjukkan pada Gambar 4.7.
Gambar 4.7 Form Data Gampong
E. Proses Ikut Proses ini merupakan implementasi dari proses memasukkan data perusahaan dan data paket yang akan dievaluasi. Panitia dapat menambah dan menghapus data perusahaan dan data paket yang tidak diperlukan dalam proses evaluasi. Kode perusahaan dan kode paket tidak akan ditampilkan pada proses evaluasi jika tidak dimasukkan dalam form ikut. Form ikut ditunjukkan pada Gambar 4.8.
Gambar 4.8 Form Ikut
62
4.2.3 Proses Evaluasi Dokumen A. Koreksi Aritmatik Proses ini merupakan implementasi dari pengolahan harga penawaran yang akan dilakukan koreksi aritmatik. Pada proses koreksi aritmatik ini untuk melakukan perangkingan harga penawaran dan harga yang terkoreksi yang paling rendah dari masing-masing harga yang ditawarkan oleh setiap perusahaan, sistem secara otomatis akan mengurutkan dari harga yang paling rendah. Dari proses ini bisa diasumsikankan harga yang paling rendah berada di atas akan menjadi nomor satu sedangkan pada baris kedua menjadi nomor dua dan seterusnya. Pada proses koreksi aritmatik ini panitia dapat menambah, menghapus, dan mengedit data. Dokumen. Form proses koreksi aritmatik ditunjukkan pada Gambar 4.9.
Gambar 4.9 Form Koreksi Aritmatik
B. Evaluasi Administrasi Proses ini merupakan implementasi dari proses evaluasi dokumen administrasi menggunakan metode analityc hierarcy process (AHP) dengan cara memberikan score untuk setiap sub kriteria dapat dilihat pada Tabel 3.6 berdasarkan dokumen penawaran dari masing-masing perusahaan. Proses input data pertama dimulai dari kode perusahaan yang paling atas berdasarkan hasil
63
perangkingan pada proses koreksi aritmatik seperti yang terlihat pada list data perusahaan pada form administrasi. Pada proses evaluasi ini panitia dapat menambah, menghapus, dan mengedit data yang dievaluasi. Dokumen administrasi yang mendapat jumlah score >= 5,7 dinyatakan lulus dan dokumen administrasi yang mendapat jumlah score <= 5,7 dinyatakan gugur dan tidak dapat melanjutkan ke proses evaluasi teknis. Proses perhitungan jumlah score nilai administrasi dapat dilihat pada tabel Tabel 3.13. Form proses evaluasi administrasi ditunjukkan pada Gambar 4.10.
Gambar 4.10 Form Evaluasi Administrasi
C. Evaluasi Teknis Proses ini merupakan implementasi dari proses evaluasi dokumen teknis menggunakan metode analityc hierarcy prosess (AHP) dengan cara memberikan score untuk setiap sub kriteria dapat dilihat pada Tabel 3.8 berdasarkan dokumen penawaran dari masing-masing perusahaan. Proses input data hanya untuk kode perusahaan yang lulus evaluasi administrasi saja seperti yang terlihat pada list data perusahaan pada form teknis, sedangkan kode perusahaan yang tidak lulus
64
dianggap gugur dan tidak akan evaluasi lagi. Pada proses evaluasi ini panitia dapat menambah, menghapus, dan mengedit data yang dievaluasi. Dokumen teknis yang mendapat jumlah score > = 1 dinyatakan lulus dan dokumen teknis yang mendapat jumlah score <= 1 dinyatakan gugur dan tidak dapat melanjutkan ke proses evaluasi harga. Proses perhitungan jumlah score nilai teknis dapat dilihat pada Tabel 3.13. Form proses evaluasi teknis ditunjukkan pada Gambar 4.11.
Gambar 4.11 Form Evaluasi Teknis
D. Evaluasi Harga Proses ini merupakan implementasi dari proses evaluasi dokumen harga menggunakan metode analityc hierarcy prosess (AHP) dengan cara memberikan score untuk setiap sub kriteria dapat dilihat pada Tabel 3.10 berdasarkan dokumen penawaran dari masing-masing perusahaan. Proses input data hanya untuk kode perusahaan yang lulus evaluasi teknis saja seperti yang terlihat pada list data perusahaan pada form harga, sedangkan kode perusahaan yang tidak lulus dianggap gugur dan tidak akan dievaluasi lagi. Pemberian score untuk sub kriteria harga koreksi aritmatik berdasarkan hasil perangkingan yang terlihat pada list data koreksi aritmatik pada form evaluasi harga. Pada proses evaluasi ini panitia dapat menambah, menghapus, dan mengedit data yang dievaluasi. Dokumen harga yang
65
mendapat jumlah score > = 0,3 dinyatakan lulus dan dokumen harga yang mendapat jumlah score <= 0,3 dinyatakan gugur dan tidak dapat melanjutkan ke proses kualifikasi. Proses perhitungan jumlah score nilai harga dapat dilihat pada Tabel 3.13. Form proses evaluasi harga ditunjukkan pada Gambar 4.12.
Gambar 4.12 Form Evaluasi Harga
E. Proses Kualifikasi Proses ini merupakan implementasi dari proses kualifikasi dengan cara memilih salah satu pilihan yaitu “ada” atau “tidak ada” dari setiap uraian kualifikasi dokumen penawaran dari masing-masing perusahaan yang disyaratkan untuk melaksanakan pekerjaan paket yang dilelang. Proses input data hanya untuk kode perusahaan yang lulus evaluasi harga saja seperti yang terlihat pada list data perusahaan pada form kualifikasi, sedangkan kode perusahaan yang tidak lulus dianggap gugur dan tidak akan dievaluasi lagi. Pada proses ini panitia dapat menambah, menghapus, dan mengedit data yang dievaluasi. Jika dari uraian dokumen kualifikasi ada semua maka dinyatakan lulus dan jika uraian dokumen kualifikasi salah satunya tidak ada maka akan dinyatakan gugur dari proses
66
pelelangan pemenang tender proyek. Form proses kualifikasi ditunjukkan pada Gambar 4.13.
Gambar 4.13 Proses Kualifikasi
4.2.4 Utility dan About A. Profil Pengguna Pada form ini pengguna aplikasi dapat mengedit nama dan alamat instansi sesuai dengan kebutuhan. Form profil pengguna ditunjukkan pada Gambar 4.14.
Gambar 4.14 Profil Pengguna
67
B. Informasi Pada form ini akan ditampilkan informasi tentang sistem penunjang keputusan pemenang terder proyek menggunakan metode analityc hierarchy proses (AHP). Form informasi sistem ditunjukkan pada Gambar 4.15.
Gambar 4.15 Informasi Sistem
C. Programmer Pada form ini akan ditampilkan sekilas tentang programmer yang merancang sistem penunjang keputusan pemenang tender proyek menggunakan metode analityc hierarchy process (AHP) pada Dinas Pekerjaan Umum Kabupaten Aceh Selatan. Form programmer ditunjukkan pada Gambar 4.16.
Gambar 4.16 Programmer
68
4.2.5 Laporan Proses Evaluasi dan Pemenang Berikut ini adalah laporan hasil evaluasi yang dilakukan menggunakan metode analityc hierarchy proses (AHP) dan laporan pemenang tender proyek.
Gambar 4.17 Laporan Koreksi Aritmatik
69
Gambar 4.18 Laporan Administrasi
Gambar 4.19 Laporan Teknis
70
Gambar 4.20 Laporan Harga
Gambar 4.21 Laporan Kualifikasi
71
Gambar 4.22 Laporan Pemenang Tender Proyek
BAB V PENUTUP
5.1 Kesimpulan Dari pembahasan sebelumnya dapat diambil kesimpulan dengan menggunakan
Sistem
Penunjang
Keputusan
Pemenang
Tender
Proyek
menggunakan metode AHP pada Dinas Pekerjaan Umum Kabupaten Aceh Selatan dalam proses pemilihan pemenang tender proyek maka akan terdapat beberapa keuntungan dan dapat mengatasi masalah yang mungkin akan ditimbulkan selama proses pemilihan pemenang tender proyek yaitu: evaluasi penawaran dapat dilakukan dalam waktu yang relatif singkat dan akan memperkecil tingkat kesalahan dalam proses evaluasi, sehingga didapatkan hasil yang akurat dan hasil yang diinginkan juga dapat dilihat setiap waktu dengan cepat kapanpun dibutuhkan dan penyimpanan data terjamin, aman dan tidak memakan
media
penyimpanan
yang
terlalu
besar
serta
sistem
yang
terkomputerisasi sangat efektif dan efesien jika dibandingkan dengan sistem manual yang digunakan selama ini.
5.2 Saran Setelah mengemukakan beberapa kesimpulan dalam skripsi ini yang berkaitan dengan pemilihan pemenang tender proyek, dan agar sistem ini dapat diterapkan secara baik dan benar. Maka penulis memberikan beberapa saran dan masukan sebagai berikut: 1. Memberikan training kepada panitia dalam penggunaan sistem baru. 2. Diperlukan penambahan tool-tool lain untuk melengkapi sistem ini seperti surat-surat yang dibutuhkan dalam proses tender proyek. 3. Sistem ini dapat menjadikan gambaran dalam pengembangan sistem penunjang keputusan pemenang tender proyek menggunakan metode AHP yang berbasis Web untuk dapat digunakan secara luas oleh seluruh instansi yang melaksanakan pelelangan proyek.
72
DAFTAR PUSTAKA
Anonimous, 2010. Peraturan Presiden Republik Indonesia Nomor 54 Tahun 2010 Tentang Pengadaan Barang/Jasa Pemerintah. Jakarta: Penerbit Visimedia. Bourgeois, R. 2005. Analytical Hierarchy Process. An Overview. Bogor: UNCAPSA-UNESCAP. Fitria, dan Fitriana, I. 2008. Sistem Penunjang Keputusan Pemenang Tender Proyek Menggunakan Metode AHP (Analityc Hierarchy Process) pada Dinas Bina Marga Provinsi Lampung. Jurnal Seminar Nasional Sains dan Teknologi-II 2008 Universitas Lampung, 97 – 103. Fitzgerald, J. 1981. Fundamentals of Systems Analysis. New York: John Willey & Sons. edisi kedua. Hermawan, J. 2005. Decision Support System. Yogyakarta: Penerbit ANDI. http://en.wikipedia.org/wiki/Analytic_Hierarchy_Process [10 Maret 2011] Indrajani. 2009. Sistem Basis Data Dalam Paket Five In One. Jakarta: Penerbit PT. Elex Media Komputindo. Kusrini, M. Kom. 2007. Konsep dan Aplikasi Sistem Pendukung Keputusan. Yogyakarta: Penerbit ANDI. Kusumadewi, S. 2007. Diktat Kuliah Kecerdasan Buatan, Jurusan Teknik Informatika, Fakultas Teknologi Industri, Universitas Islam Indonesia. Ma’arif, M. S. & Tanjung H. 2003. Teknik-Teknik Kuantitatif Untuk Manajemen. Jakarta: Grasindo Madcoms. 2004 Seri Panduan Pemrograman Database Visual Basic 6.0 dengan Crystal Report. Yogyakarta: Penerbit ANDI. Novian, A. 2007. 11 Aplikasi Windows dengan Visual Basic Enterprise. Jakarta: Penerbit PT. Elex Media Komputindo. Putra, E., B. 2009. Sistem Pendukung Penilaian Kinerja Karyawan. Yogyakarta: Universitas Islam Indonesia. 1 - 161 Rusmawan, U. 2010. Aplikasi Database Menggunakan VB. 6.0 untuk Tugas Akhir dan Skripsi. Jakarta: Penerbit PT. Elex Media Komputindo.
73
Sprague, R.H. & Watson H.J. 1993. Decision support systems. putting theory into practice. Englewood Clifts, N.J: Prentice Hall Supardi, Y., Ir. 2006. Microsoft Visual Basic 6.0 untuk Segala Tingkat. Jakarta: Penerbit PT. Elex Media Komputindo.
74
DAFTAR BIMBINGAN
NAMA : Teuku Mirwan Sahputra NIM : 0814030399 JUDUL SKRIPSI : Sistem Penunjang Keputusan Pemenang Tender Proyek Menggunakan Metode Analityc Hierarchy Proccess (AHP) pada Dinas Pekerjaan Umum Kabupaten Aceh Selatan. PEMBIMBING I : Ir. Hj. Elvitriana, M.Eng. TANGGAL
URAIAN PERBAIKAN
PARAF
DAFTAR BIMBINGAN
NAMA : Teuku Mirwan Sahputra NIM : 0814030399 JUDUL SKRIPSI : Sistem Penunjang Keputusan Pemenang Tender Proyek Menggunakan Metode Analityc Hierarchy Proccess (AHP) pada Dinas Pekerjaan Umum Kabupaten Aceh Selatan. PEMBIMBING II : M. Fadli, S.Kom., M.Kom. TANGGAL
URAIAN PERBAIKAN
PARAF
BIODATA PENULIS
Nama Tempat/Tgl.Lahir Jenis Kelamin Agama Pekerjaan Alamat Blog Email
: : : : : : : :
Teuku Mirwan Sahputra Kuta Padang, 29 Oktober 1985 Laki-laki Islam Pelajar / Mahasiswa Jl. Tgk. Hasan Krueng Kalee No. 61 Peunayong Banda Aceh www.markiber.blogspot.com
[email protected]
Pendidikan: 1. SD Negeri Buloh Seuma Tahun 1991 s/d Tahun 1997 2. SLTP Negeri 1 Trumon Tahun 1997 s/d Tahun 2000 3. SMA Al Munawarah Bakongan Tahun 2003 s/d Tahun 2006 4. Ilmu Komputer (D-II) LP3KI Banda Aceh Tahun 2006 s/d Tahun 2008 5. Teknik Informatika (S1) Universitas Serambi Mekkah Tahun 2008 s/d Tahun 2011 Organisasi: 1. Persatuan Tarbiyah Islamiah (PERTI) Aceh Tahun 2007 s/d Tahun 2010 2. Himpunan Mahasiswa Pemuda Pelajar Trumon (HMP2T) Tahun 2007 s/d Tahun 2010 3. Pemuda Islam (PI) Aceh Tahun 2007 s/d Tahun 2010 4. Pemuda Aceh Selatan (PAS) Tahun 2008 s/d Tahun 2010 5. Ikatan Pemuda Pelajar Mahasiswa Buloh Seuma (IPPMB) Tahun 2008 s/d Tahun 2010 6. Pemerintah Mahasiswa Fakultas Teknik (PEMAF) Universitas Serambi Mekkah Tahun 2008 s/d 2010 7. Ikatan Kekeluargaan Masyarakat Trumon (IKMT) Tahun 2008 s/d 2012 8. Himpunan Mahasiswa Aceh Selatan (HAMAS) Tahun 2010 s/d 2011 9. Komunitas Pengguna Linux Indonesia Aceh Tahun 2009 s/d Sekarang 10. Forum Persatuan Ketua Pemuda (FPKP) Kecamatan Kuta Alam Kota Banda Aceh 2011 s/d sekarang
Nama : Teuku Mirwan Sahputra Nim : 0814030399
CODING SISTEM PENUNJANG KEPUTUSAN PEMENANG TENDER PROYEK MENGGUNAKAN METODE ANALITYC HIERARCHY PROCESS PADA DINAS PEKERJAAN UMUM KABUPATEN ACEH SELATAN Oleh: Teuku Mirwan Sahputra (0814030399) Mahasiswa Teknik Informatika Universitas Serambi Mekkah Tahun 2011
Spkptp.vbp
SPKPTP.vbp di atas merupakan project dari Sistem Penunjang Keputusan Pemenang Tender Proyek (SPKPTP) menggunakan metode Analityc Hierarchy Process (AHP) pada Dinas Pekerjaan Umum Kabupaten Aceh Selatan. Form-form lainnya beserta coding dari aplikasi SPKPTP dapat dilihat dibawah ini:
Splash.frm
Option Explicit Dim iSplash As Integer Private Sub Form_KeyPress(KeyAscii As Integer) Unload Me End Sub Private Sub Frame1_Click() Unload Me End Sub Private Sub Form_Load() Timer1.Enabled = True End Sub Private Sub Timer1_Timer() On Error Resume Next iSplash = iSplash + 1 spkptp.Value = spkptp.Value + 1000 / 1000 If iSplash > 100 Then Timer1.Enabled = False Screen.MousePointer = vbNormal Me.WindowState = 0 Do
Teknik Informatika Universitas Serambi Mekkah Tahun 2011 Lampiran Coding Sistem Penunjang Keputusan (DSS) Pemenang Tender Proyek Menggunakan Metode Analityc Hierarchy Process (AHP)
- -
Nama : Teuku Mirwan Sahputra Nim : 0814030399 Me.Left = Me.Left + 3000 Me.Move Me.Left, Me.Top DoEvents Loop Until Me.Left > Screen.Width Login.Show Login.SetFocus Unload Me End If End Sub
Login.frm
Dim A As Byte Dim B As Byte Private Sub cmdkeluar_Click() End End Sub Private Sub CmdBatal_Click() End End Sub Private Sub Form_Activate() TxtNamaPmk.SetFocus End Sub Private Sub Form_Load() TxtNamaPmk.MaxLength = 30 TxtPasswordPmk.MaxLength = 15 TxtPasswordPmk.PasswordChar = "*" TxtPasswordPmk.Enabled = False TxtKodePmk.Enabled = False End Sub Private Sub TxtNamaPmk_KeyPress(KeyAscii As Integer) On Error Resume Next KeyAscii = Asc(UCase(Chr(KeyAscii))) If KeyAscii = 27 Then Unload Me If KeyAscii = 13 Then Call Koneksi RSPemakai.Open "Select NamaPmk from Pemakai where NamaPmk ='" & TxtNamaPmk & "'", Conn If RSPemakai.EOF Then A = A + 1 If 1 - A = 0 Then MsgBox "Kesempatan ke " & A & " Salah" & Chr(13) & _ "Nama '" & TxtNamaPmk & "' tidak dikenal"
Teknik Informatika Universitas Serambi Mekkah Tahun 2011 Lampiran Coding Sistem Penunjang Keputusan (DSS) Pemenang Tender Proyek Menggunakan Metode Analityc Hierarchy Process (AHP)
- -
Nama : Teuku Mirwan Sahputra Nim : 0814030399 TxtNamaPmk = "" TxtNamaPmk.SetFocus ElseIf 2 - A = 0 Then MsgBox "Kesempatan ke " & A & " Salah" & Chr(13) & _ "Nama '" & TxtNamaPmk & "' tidak dikenal" TxtNamaPmk = "" TxtNamaPmk.SetFocus ElseIf 3 - A = 0 Then MsgBox "Kesempatan ke " & A & " Salah" & Chr(13) & _ "Nama '" & TxtNamaPmk & "' tidak dikenal" & Chr(13) & _ "Kesempatan habis, Ulangi dari awal" Conn.Close Unload Me End If Else TxtNamaPmk.Enabled = False TxtPasswordPmk.Enabled = True TxtPasswordPmk.SetFocus End If End If End Sub Private Sub TxtPasswordPmk_KeyPress(KeyAscii As Integer) KeyAscii = Asc(UCase(Chr(KeyAscii))) If KeyAscii = 27 Then Unload Me Dim KodePmk As String Dim NamaPmk As String If KeyAscii = 13 Then Call Koneksi RSPemakai.Open "Select * from Pemakai where NamaPmk ='" & TxtNamaPmk & "' and PasswordPmk='" & TxtPasswordPmk & "'", Conn If RSPemakai.EOF Then B = B + 1 If 1 - B = 0 Then MsgBox "Kesempatan ke " & B & " Salah" TxtPasswordPmk = "" TxtPasswordPmk.SetFocus ElseIf 2 - B = 0 Then MsgBox "Kesempatan ke " & B & " Salah" TxtPasswordPmk = "" TxtPasswordPmk.SetFocus ElseIf 3 - B = 0 Then MsgBox "Kesempatan ke " & B & " Salah" Unload Me End If Else TxtKodePmk = RSPemakai!KodePmk TxtStatusPmk.Enabled = False TxtStatusPmk = RSPemakai!StatusPmk Me.Visible = False
Teknik Informatika Universitas Serambi Mekkah Tahun 2011 Lampiran Coding Sistem Penunjang Keputusan (DSS) Pemenang Tender Proyek Menggunakan Metode Analityc Hierarchy Process (AHP)
- -
Nama : Teuku Mirwan Sahputra Nim : 0814030399 Menu.Show Menu.StatusBar1.Panels(2).Text = Login.TxtNamaPmk Menu.StatusBar1.Panels(3).Text = Login.TxtStatusPmk Menu.StatusBar1.Panels(6).Text = Login.TxtKodePmk Menu.StatusBar1.Panels(6).Visible = False If Menu.StatusBar1.Panels(3).Text = "OPERATOR" Then Menu.mnPemakai.Enabled = False Menu.mnInputData.Enabled = True Menu.mnperusahaan.Enabled = True Menu.mnPaket.Enabled = True Menu.mnKecamatan.Enabled = True Menu.mnGampong.Enabled = True Menu.mnProsesEvaluasi.Enabled = False Menu.mnLaporan.Enabled = False Menu.mnIkut.Enabled = False Menu.Toolbar1.Enabled = False ElseIf Menu.StatusBar1.Panels(3).Text = "PANITIA" Then Menu.mnperusahaan.Enabled = False Menu.mnPaket.Enabled = False Menu.mnKecamatan.Enabled = False Menu.mnKecamatan.Enabled = False Menu.mnGampong.Enabled = False Menu.mnPemakai.Enabled = False Menu.mnIkut.Enabled = True Menu.mnLaporan.Enabled = True Menu.Toolbar1.Enabled = True ElseIf Menu.StatusBar1.Panels(3).Text = "ADMINISTRATOR" Then Menu.mnPemakai.Enabled = True Menu.mnProsesEvaluasi.Enabled = True Menu.mnLaporan.Enabled = True Menu.mnIkut.Enabled = True Menu.Toolbar1.Enabled = True Menu.mnperusahaan.Enabled = True Menu.mnPaket.Enabled = True Menu.mnKecamatan.Enabled = True Menu.mnKecamatan.Enabled = True Menu.mnGampong.Enabled = True Menu.Toolbar1.Enabled = True End If End If End If End Sub
Menu.frm
Teknik Informatika Universitas Serambi Mekkah Tahun 2011 Lampiran Coding Sistem Penunjang Keputusan (DSS) Pemenang Tender Proyek Menggunakan Metode Analityc Hierarchy Process (AHP)
- -
Nama : Teuku Mirwan Sahputra Nim : 0814030399 Dim Dim Dim Dim Dim Dim Dim Dim Dim
position, startpos SNHDD As String SourceA, SourceB As String RG As Integer Counter As Integer strTemp, LenTemp, n Kalimat As String pnlX1 As Panel KET1 As String
Private Sub MDIForm_Load() RG = 1 strTemp = Me.Caption n = 1 Set pnlX1 = StatusBar1.Panels(1) Dim Ahari Dim SHari As String Counter = 0 Timer5.Interval = 100 With StatusBar1 .Panels(1).Width = 4000 .Panels(1).Alignment = sbrRight End With Ahari = Array("Minggu", "Senin", "Selasa", "Rabu", "Kamis", "Jumat", "Sabtu") 'Tampilkan nama hari SHari = Ahari(Abs(Weekday(Date) - 1)) 'pada status bar StatusBar1.Panels(2).Text = "Nama" StatusBar1.Panels(3).Text = "Status" StatusBar1.Panels(4).Text = "" & SHari & ", " & Format(Date, "dd/mm/yyyy") 'Tampilan jam StatusBar1.Panels(5).Text = Time 'pada status bar StatusBar1.Panels(6).Text = "Kode" Timer4.Enabled = True End Sub Private Sub mnAdm_Click() Jalan Adm.Show End Sub Private Sub mnart_Click() Jalan Art.Show End Sub Private Sub mnGampong_Click() Jalan Gampong.Show End Sub
Teknik Informatika Universitas Serambi Mekkah Tahun 2011 Lampiran Coding Sistem Penunjang Keputusan (DSS) Pemenang Tender Proyek Menggunakan Metode Analityc Hierarchy Process (AHP)
- -
Nama : Teuku Mirwan Sahputra Nim : 0814030399 Private Sub mnGUser_Click() Menu.StatusBar1.Panels(1).Text = "" Menu.StatusBar1.Panels(3).Text = "" Menu.StatusBar1.Panels(6).Text = "" Menu.mnInputData.Enabled = True Menu.mnFile.Enabled = True Menu.mnProsesEvaluasi.Enabled = True Menu.Visible = False Login.Show Login.TxtNamaPmk = "" Login.TxtPasswordPmk = "" Login.TxtKodePmk = "" Login.TxtStatusPmk = "" Login.TxtNamaPmk.Enabled = True Login.TxtNamaPmk.SetFocus End Sub Private Sub mnHarga_Click() Jalan Harga.Show End Sub Private Sub mnIkut_Click() Jalan Ikut.Show End Sub Private Sub mnInfo_Click() Informasi.Show End Sub Private Sub mnInput_DtPerusahaan_Click() Jalan Perusahaan.Show End Sub Private Sub mnKecamatan_Click() Kecamatan.Show End Sub Private Sub mnKeluar_Click() If MsgBox("Yakin Anda akan keluar dari Aplikasi ini ?", vbQuestion + vbYesNo, "Teuku Iwan") = vbYes Then End End If End Sub Private Sub mnLogOut_Click() Login.Show End Sub Private Sub mnKeluar1_Click() End End Sub
Teknik Informatika Universitas Serambi Mekkah Tahun 2011 Lampiran Coding Sistem Penunjang Keputusan (DSS) Pemenang Tender Proyek Menggunakan Metode Analityc Hierarchy Process (AHP)
- -
Nama : Teuku Mirwan Sahputra Nim : 0814030399
Private Sub mnKualifikasi_Click() Jalan Kualifikasi.Show End Sub Private Sub mnLap_Pemenang_Click() Laporan.Show End Sub Private Sub mnLapAdm_Click() CR.ReportFileName = App.Path & "\Administrasi.rpt" CR.WindowState = crptMaximized CR.RetrieveDataFiles CR.Action = 1 End Sub Private Sub mnLapArt_Click() CR.ReportFileName = App.Path & "\Aritmatik.rpt" CR.WindowState = crptMaximized CR.RetrieveDataFiles CR.Action = 1 End Sub Private Sub mnLapHarga_Click() CR.ReportFileName = App.Path & "\Harga.rpt" CR.WindowState = crptMaximized CR.RetrieveDataFiles CR.Action = 1 End Sub Private Sub mnLapKualifikasi_Click() CR.ReportFileName = App.Path & "\Kualifikasi.rpt" CR.WindowState = crptMaximized CR.RetrieveDataFiles CR.Action = 1 End Sub Private Sub mnLaporan_Click() CR.ReportFileName = App.Path & "\Pemenang.rpt" CR.WindowState = crptMaximized CR.RetrieveDataFiles CR.Action = 1 End Sub Private Sub mnLapTeknis_Click() CR.ReportFileName = App.Path & "\Teknis.rpt" CR.WindowState = crptMaximized CR.RetrieveDataFiles CR.Action = 1 End Sub Private Sub mnPaket_Click() Jalan
Teknik Informatika Universitas Serambi Mekkah Tahun 2011 Lampiran Coding Sistem Penunjang Keputusan (DSS) Pemenang Tender Proyek Menggunakan Metode Analityc Hierarchy Process (AHP)
- -
Nama : Teuku Mirwan Sahputra Nim : 0814030399 Paket.Show End Sub Private Sub mnPemakai_Click() Jalan Pemakai.Show End Sub Private Sub mnPemenang_Click() Jalan Pemenang.Show End Sub Private Sub mnProfil_Pengguna_Click() Profil_P.Show End Sub Private Sub mnProgrammer_Click() Jalan Programmer.Show End Sub Private Sub mnProses_Click() Jalan Seleksi.Show End Sub Private Sub mnTeknis_Click() Jalan Teknis.Show End Sub Private Sub Timer1_Timer() Label1.ForeColor = vbWhite End Sub Private Sub Timer2_Timer() Kalimat = "Sistem Penunjang Keputusan Pemenang Tender Proyek Menggunakan Metode Analytic Hierarchy Procces (AHP) Sebagai Tugas Akhir untuk Memperoleh Gelar Sarjana Teknik (ST) pada Jurusan Teknik Informatika Universitas Serambi Mekkah Banda Aceh" Counter = Counter + 1 DoEvents pnlX1.Text = TulisJalan(Counter, Kalimat, 150) End Sub Private Sub Timer3_Timer() If TxtNama = "" Then Timer8.Enabled = True Timer7.Enabled = False Else Timer7.Enabled = True Timer8.Enabled = False End If
Teknik Informatika Universitas Serambi Mekkah Tahun 2011 Lampiran Coding Sistem Penunjang Keputusan (DSS) Pemenang Tender Proyek Menggunakan Metode Analityc Hierarchy Process (AHP)
- -
Nama : Teuku Mirwan Sahputra Nim : 0814030399 End Sub Private Sub Timer4_Timer() StatusBar1.Panels(5).Text = Time End Sub Private Sub Timer5_Timer() LenTemp = Len(strTemp) Dim Form As String LenTemp = Len(strTemp) Me.Caption = Left(strTemp, n) + "_" n = n + 1 If n > LenTemp Then n = 1 End If End Sub Public Function TulisJalan(Hitung As Integer, strKalimat As String, Panjang As Integer) If Hitung = Len(strKalimat) + Panjang Then Hitung = 0 ElseIf Hitung > Len(strKalimat) Then TulisJalan = strKalimat & Space(Hitung - Len(strKalimat)) Else TulisJalan = Mid(strKalimat, 1, Hitung) End If End Function Private Sub Timer6_Timer() Label1.ForeColor = vbYellow End Sub Private Sub mnPerusahaan_Click() Jalan Perusahaan.Show End Sub Private Sub Proses_Click() Jalan Seleksi.Show End Sub Private Sub Profil_Click() Profil_P.Show End Sub Private Sub Timer7_Timer() position = position + 1 If RG = 1 Then linetxt$ = "By. Teuku Iwan" ElseIf RG = 2 Then linetxt$ = ".:. CopyRight (c) 2011 ElseIf RG = 3 Then linetxt$ = "FOR " & Trim(spkptp)
TesaSoft Corporation .:."
Teknik Informatika Universitas Serambi Mekkah Tahun 2011 Lampiran Coding Sistem Penunjang Keputusan (DSS) Pemenang Tender Proyek Menggunakan Metode Analityc Hierarchy Process (AHP)
- -
Nama : Teuku Mirwan Sahputra Nim : 0814030399 End If startpos = Len(linetxt$) lengh = startpos - position If lengh = 0 Then If RG = 1 Then RG = 2 ElseIf RG = 2 Then RG = 3 ElseIf RG = 3 Then RG = 1 End If position = 0 - startpos End If Text$ = Right(linetxt$, lengh) L1.Caption = Text$ End Sub Private Sub Timer8_Timer() position = position + 1 If RG = 1 Then linetxt$ = "By. Teuku Iwan" Else linetxt$ = "CopyRight (c) 2011 SPKPTP" End If startpos = Len(linetxt$) lengh = startpos - position If lengh = 0 Then If RG = 1 Then RG = 2 Else RG = 1 End If position = 0 - startpos End If Text$ = Right(linetxt$, lengh) L1.Caption = Text$ End Sub Private Sub Toolbar1_ButtonClick(ByVal Button As ComctlLib.Button) Select Case Button.Key Case "mnart" Jalan Art.Show Case "adm" Jalan Adm.Show Case "mnteknis" Jalan Teknis.Show Case "mnharga" Jalan Harga.Show Case "mnKualifikasi" Jalan
Teknik Informatika Universitas Serambi Mekkah Tahun 2011 Lampiran Coding Sistem Penunjang Keputusan (DSS) Pemenang Tender Proyek Menggunakan Metode Analityc Hierarchy Process (AHP)
- -
Nama : Teuku Mirwan Sahputra Nim : 0814030399 Kualifikasi.Show Case "mnP_Instansi" Profil_P.Show Case "mnlap" CR.ReportFileName = App.Path & "\Pemenang.rpt" CR.WindowState = crptMaximized CR.RetrieveDataFiles CR.Action = 1 Case "mnPemenang" Pemenang.Show Case "mnGU" Menu.StatusBar1.Panels(1).Text = "" Menu.StatusBar1.Panels(3).Text = "" Menu.StatusBar1.Panels(6).Text = "" Menu.mnInputData.Enabled = True Menu.mnFile.Enabled = True Menu.mnProsesEvaluasi.Enabled = True Menu.Visible = False Login.Show Login.TxtNamaPmk = "" Login.TxtPasswordPmk = "" Login.TxtKodePmk = "" Login.TxtStatusPmk = "" Login.TxtNamaPmk.Enabled = True Login.TxtNamaPmk.SetFocus Case "ToolHelp" frmHelp.Show Case "mnKeluar" If MsgBox("Yakin Anda akan keluar dari Aplikasi ini ?", vbQuestion + vbYesNo, "Teuku Iwan") = vbYes Then End End If End Select End Sub Sub Jalan() PG.Visible = True For i = 1 To 100 PG.Value = i For j = 1 To 100000 Next j Next i PG.Value = 10 PG.Visible = False End Sub Private Sub L1_Click() L1.FontUnderline = False Programmer.Show End Sub Private Sub Form_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single) L1.FontUnderline = False
Teknik Informatika Universitas Serambi Mekkah Tahun 2011 Lampiran Coding Sistem Penunjang Keputusan (DSS) Pemenang Tender Proyek Menggunakan Metode Analityc Hierarchy Process (AHP)
- -
Nama : Teuku Mirwan Sahputra Nim : 0814030399 End Sub Private Sub Programmer_Click() Programmer.Show End Sub Private Sub Form_Unload(Cancel As Integer) Me.WindowState = 1 End Sub
D_Perusahaan.frm
Dim Dim Dim Dim Dim
Counter As Integer strTemp, LenTemp, n Kalimat As String pnlX1 As Panel KET1 As String
Private Sub CmbBidUsaha_KeyPress(KeyAscii As Integer) KeyAscii = Asc(UCase(Chr(KeyAscii))) If KeyAscii = 13 Then If CmdInput.Enabled = True Then CmdSimpan.SetFocus ElseIf CmdEdit.Enabled = True Then CmdSimpan.SetFocus End If End If End Sub Private Sub CmdBatal_Click() KosongkanText TidakSiapIsi KondisiAwal End Sub Private Sub CmdEdit_Click() If CmdEdit.Caption = "&Edit" Then CmdInput.Enabled = False CmdHapus.Enabled = False CmdTutup.Enabled = False CmdSimpan.Enabled = True CmdBatal.Enabled = True SiapIsi TxtKodePh.SetFocus End If End Sub Private Sub CmdHapus_Click() If CmdHapus.Caption = "&Hapus" Then
Teknik Informatika Universitas Serambi Mekkah Tahun 2011 Lampiran Coding Sistem Penunjang Keputusan (DSS) Pemenang Tender Proyek Menggunakan Metode Analityc Hierarchy Process (AHP)
- -
Nama : Teuku Mirwan Sahputra Nim : 0814030399 CmdTutup.Enabled = False CmdInput.Enabled = False CmdEdit.Enabled = False CmdBatal.Enabled = True SiapIsi TxtKodePh.SetFocus End If End Sub Private Sub CmdInput_Click() If CmdInput.Caption = "&Input" Then CmdEdit.Enabled = False CmdHapus.Enabled = False CmdSimpan.Enabled = True CmdBatal.Enabled = True CmdTutup.Enabled = False KosongkanText SiapIsi TxtKodePh.SetFocus End If End Sub Private Sub CmdSimpan_Click() If TxtKodePh = "" Or TxtNamaPh = "" Or TxtAlamat = "" Or TxtNpwp = "" Or TxtNamaPimp = "" Or TxtJabatan = "" Or TxtNoTelp = "" Or CmbBidUsaha = "" Then MsgBox "Data Belum Lengkap...!" Exit Sub Else Call Koneksi ADO.ConnectionString = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=spkptp" ADO.RecordSource = "Perusahaan ORDER BY KodePh Asc" ADO.Refresh Set DG.DataSource = ADO DG.Refresh
If CmdInput.Enabled = True Then Dim SQLTambah1 As String SQLTambah1 = "Insert Into Perusahaan (KodePh,NamaPh,Alamat,Npwp,NamaPimp,Jabatan,NoTelp,BidUsaha) values " & _ "('" & TxtKodePh & "','" & TxtNamaPh & "','" & TxtAlamat & "','" & TxtNpwp & "','" & TxtNamaPimp & "','" & TxtJabatan & "','" & TxtNoTelp & "','" & CmbBidUsaha & "')" Conn.Execute SQLTambah1 Else Dim SQLEdit As String SQLEdit = "Update Perusahaan Set NamaPh= '" & TxtNamaPh & "', Alamat='" & TxtAlamat & "',Npwp='" & TxtNpwp & "',NamaPimp='" & TxtNamaPimp & "',Jabatan='" & TxtJabatan &
Teknik Informatika Universitas Serambi Mekkah Tahun 2011 Lampiran Coding Sistem Penunjang Keputusan (DSS) Pemenang Tender Proyek Menggunakan Metode Analityc Hierarchy Process (AHP)
- -
Nama : Teuku Mirwan Sahputra Nim : 0814030399 "',NoTelp='" & TxtNoTelp & "',BidUsaha='" & CmbBidUsaha & "' where KodePh='" & TxtKodePh & "'" Conn.Execute SQLEdit End If Form_Activate Jalan KosongkanText KondisiAwal End If End Sub Private Sub CmdTutup_Click() Select Case CmdTutup.Caption Case "&Tutup" Unload Me Case "&Batal" TidakSiapIsi KondisiAwal End Select End Sub Private Sub Form_Activate() Call Koneksi ADO.ConnectionString = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=spkptp" ADO.RecordSource = "Perusahaan ORDER BY KodePh Asc" ADO.Refresh Set DG.DataSource = ADO DG.Refresh End Sub Private Sub Timer1_Timer() If Thanks.Left < -(Thanks.Width + 1) Then Thanks.Left = Picture1.ScaleHeight End If Thanks.Left = Thanks.Left - 6 End Sub Private Sub Form_Load() Call Koneksi TxtKodePh.MaxLength = 3 TxtNamaPh.MaxLength = 100 TxtAlamat.MaxLength = 100 TxtNpwp.MaxLength = 20 TxtNamaPimp.MaxLength = 50 TxtJabatan.MaxLength = 20 TxtNoTelp.MaxLength = 12 CmbBidUsaha.AddItem CmbBidUsaha.AddItem CmbBidUsaha.AddItem CmbBidUsaha.AddItem CmbBidUsaha.AddItem CmbBidUsaha.AddItem
"KONTRUKSI" "BARANG DAN JASA" "LEVERANSIR" "KOPERASI" "KONSULTASI" ""
Teknik Informatika Universitas Serambi Mekkah Tahun 2011 Lampiran Coding Sistem Penunjang Keputusan (DSS) Pemenang Tender Proyek Menggunakan Metode Analityc Hierarchy Process (AHP)
- -
Nama : Teuku Mirwan Sahputra Nim : 0814030399 KondisiAwal strTemp = Me.Caption n = 1 Timer2.Interval = 100 End Sub Public Function TulisJalan(Hitung As Integer, strKalimat As String, Panjang As Integer) If Hitung = Len(strKalimat) + Panjang Then Hitung = 0 ElseIf Hitung > Len(strKalimat) Then TulisJalan = strKalimat & Space(Hitung - Len(strKalimat)) Else TulisJalan = Mid(strKalimat, 1, Hitung) End If End Function Private Sub Timer2_Timer() LenTemp = Len(strTemp) Dim Form As String LenTemp = Len(strTemp) Me.Caption = Left(strTemp, n) + "_" n = n + 1 If n > LenTemp Then n = 1 End If End Sub Private Sub CariData() Call Koneksi RSPerusahaan.Open "Select * From Perusahaan where KodePh='" & TxtKodePh & "'", Conn End Sub Private Sub SiapIsi() TxtKodePh.Enabled = True TxtNamaPh.Enabled = True TxtAlamat.Enabled = True TxtNpwp.Enabled = True TxtNamaPimp.Enabled = True TxtJabatan.Enabled = True TxtNoTelp.Enabled = True CmbBidUsaha.Enabled = True End Sub Private Sub TidakSiapIsi() TxtKodePh.Enabled = False TxtNamaPh.Enabled = False TxtAlamat.Enabled = False TxtNpwp.Enabled = False TxtNamaPimp.Enabled = False TxtJabatan.Enabled = False
Teknik Informatika Universitas Serambi Mekkah Tahun 2011 Lampiran Coding Sistem Penunjang Keputusan (DSS) Pemenang Tender Proyek Menggunakan Metode Analityc Hierarchy Process (AHP)
- -
Nama : Teuku Mirwan Sahputra Nim : 0814030399 TxtNoTelp.Enabled = False CmbBidUsaha.Enabled = False End Sub Private Sub KondisiAwal() TidakSiapIsi CmdInput.Enabled = True CmdEdit.Enabled = True CmdHapus.Enabled = True CmdSimpan.Enabled = False CmdBatal.Enabled = False CmdTutup.Enabled = True End Sub Private Sub TampilkanData() TxtKodePh = RSPerusahaan!KodePh TxtNamaPh = RSPerusahaan!NamaPh TxtAlamat = RSPerusahaan!alamat TxtNpwp = RSPerusahaan!Npwp TxtNamaPimp = RSPerusahaan!NamaPimp TxtJabatan = RSPerusahaan!Jabatan TxtNoTelp = RSPerusahaan!NoTelp CmbBidUsaha = RSPerusahaan!BidUsaha End Sub Private Sub Txtalamat_KeyPress(KeyAscii As Integer) KeyAscii = Asc(UCase(Chr(KeyAscii))) If KeyAscii = 13 Then TxtNpwp.SetFocus End Sub
Private Sub TxtJabatan_KeyPress(KeyAscii As Integer) KeyAscii = Asc(UCase(Chr(KeyAscii))) If KeyAscii = 13 Then TxtNoTelp.SetFocus End Sub Private Sub TxtKodePh_KeyPress(KeyAscii As Integer) KeyAscii = Asc(UCase(Chr(KeyAscii))) If KeyAscii = 13 Then If Len(TxtKodePh) <> 3 Then MsgBox "Kode Harus 3 Digit" TxtKodePh.SetFocus Exit Sub Else TxtNamaPh.SetFocus End If If CmdInput.Enabled = True Then Call CariData If Not RSPerusahaan.EOF Then TampilkanData MsgBox "Kode Perusahaan Sudah Ada" KosongkanText TxtKodePh.SetFocus
Teknik Informatika Universitas Serambi Mekkah Tahun 2011 Lampiran Coding Sistem Penunjang Keputusan (DSS) Pemenang Tender Proyek Menggunakan Metode Analityc Hierarchy Process (AHP)
- -
Nama : Teuku Mirwan Sahputra Nim : 0814030399 Else TxtNamaPh.SetFocus End If End If If CmdEdit.Enabled = True Then Call CariData If Not RSPerusahaan.EOF Then TampilkanData TxtKodePh.Enabled = False TxtNamaPh.SetFocus Else MsgBox "Kode Perusahaan Tidak Ada" TxtKodePh = "" TxtKodePh.SetFocus End If End If
If CmdHapus.Enabled = True Then Call CariData If Not RSPerusahaan.EOF Then TampilkanData Pesan = MsgBox("Yakin akan dihapus", vbYesNo) If Pesan = vbYes Then Dim SQLHapus As String SQLHapus = "Delete From Perusahaan where KodePh= '" & TxtKodePh & "'" Conn.Execute SQLHapus KondisiAwal KosongkanText Jalan Form_Activate Else KondisiAwal CmdHapus.SetFocus End If Else MsgBox "Data Tidak ditemukan" TxtKodePh.SetFocus End If End If End If End Sub Private Sub TxtNamaPh_KeyPress(KeyAscii As Integer) KeyAscii = Asc(UCase(Chr(KeyAscii))) If KeyAscii = 13 Then TxtAlamat.SetFocus End Sub Private Sub KosongkanText() TxtKodePh = "" TxtNamaPh = "" TxtAlamat = ""
Teknik Informatika Universitas Serambi Mekkah Tahun 2011 Lampiran Coding Sistem Penunjang Keputusan (DSS) Pemenang Tender Proyek Menggunakan Metode Analityc Hierarchy Process (AHP)
- -
Nama : Teuku Mirwan Sahputra Nim : 0814030399 TxtNpwp = "" TxtNamaPimp = "" TxtJabatan = "" TxtNoTelp = "" CmbBidUsaha = "" End Sub Private Sub TxtNamaPimp_KeyPress(KeyAscii As Integer) KeyAscii = Asc(UCase(Chr(KeyAscii))) If KeyAscii = 13 Then TxtJabatan.SetFocus End Sub Private Sub TxtNoTelp_KeyPress(KeyAscii As Integer) KeyAscii = Asc(UCase(Chr(KeyAscii))) If KeyAscii = 13 Then CmbBidUsaha.SetFocus End Sub Private Sub TxtNpwp_KeyPress(KeyAscii As Integer) KeyAscii = Asc(UCase(Chr(KeyAscii))) If KeyAscii = 13 Then TxtNamaPimp.SetFocus End Sub Sub Jalan() PG.Visible = True For i = 1 To 100 PG.Value = i For j = 1 To 1000000 Next j Next i PG.Value = 10 PG.Visible = False End Sub
Paket.frm
Dim strTemp, LenTemp, n Dim Kalimat As String Dim KET1 As String Private Sub CmbKodeGp_Click() Call Koneksi RSGampong.Open "Select * from Gampong where KodeGp='" & CmbKodeGp & "'", Conn TxtNamaGp = RSGampong!NamaGp End Sub Private Sub CmbKodeGp_KeyPress(KeyAscii As Integer) CmdSimpan.SetFocus
Teknik Informatika Universitas Serambi Mekkah Tahun 2011 Lampiran Coding Sistem Penunjang Keputusan (DSS) Pemenang Tender Proyek Menggunakan Metode Analityc Hierarchy Process (AHP)
- -
Nama : Teuku Mirwan Sahputra Nim : 0814030399 End Sub Private Sub CmbKodeKec_Click() Call Koneksi RSKecamatan.Open "Select * from Kecamatan where KodeKec='" & CmbKodeKec & "'", Conn TxtNamaKec = RSKecamatan!NamaKec RSGampong.Open "Select * From Gampong where KodeKec= '" & CmbKodeKec & "'", Conn List2.Clear CmbKodeGp.Clear Do While Not RSGampong.EOF List2.AddItem RSGampong!KodeGp & Space(4) & RSGampong!NamaGp CmbKodeGp.AddItem RSGampong!KodeGp RSGampong.MoveNext Loop End Sub Private Sub CmbKodeKec_KeyPress(KeyAscii As Integer) CmbKodeGp.SetFocus End Sub Private Sub CmbSubBid_KeyPress(KeyAscii As Integer) KeyAscii = Asc(UCase(Chr(KeyAscii))) If KeyAscii = 13 Then CmbKodeKec.SetFocus End Sub Private Sub CmbKualifikasi_Click() CmbKodeKec.SetFocus End Sub Private Sub CmbKualifikasi_KeyPress(KeyAscii As Integer) CmbKodeKec.SetFocus End Sub Private Sub CmdBatal_Click() KosongkanText TidakSiapIsi KondisiAwal End Sub Private Sub CmdEdit_Click() If CmdEdit.Caption = "&Edit" Then CmdInput.Enabled = False CmdHapus.Enabled = False CmdTutup.Enabled = False CmdSimpan.Enabled = True CmdBatal.Enabled = True SiapIsi TxtKodePaket.SetFocus End If
Teknik Informatika Universitas Serambi Mekkah Tahun 2011 Lampiran Coding Sistem Penunjang Keputusan (DSS) Pemenang Tender Proyek Menggunakan Metode Analityc Hierarchy Process (AHP)
- -
Nama : Teuku Mirwan Sahputra Nim : 0814030399 End Sub Private Sub CmdHapus_Click() If CmdHapus.Caption = "&Hapus" Then CmdTutup.Enabled = False CmdInput.Enabled = False CmdEdit.Enabled = False CmdBatal.Enabled = True SiapIsi TxtKodePaket.SetFocus End If End Sub Private Sub CmdInput_Click() If CmdInput.Caption = "&Input" Then CmdEdit.Enabled = False CmdHapus.Enabled = False CmdSimpan.Enabled = True CmdBatal.Enabled = True CmdTutup.Enabled = False KosongkanText SiapIsi TxtKodePaket.SetFocus End If End Sub Private Sub CmdSimpan_Click() If TxtKodePaket = "" Or TxtNamaPaket = "" Or TxtNamaKeg = "" Or TxtNilHPS = "" Or TxtSubBid = "" Or CmbKualifikasi = "" Or CmbKodeKec = "" Or CmbKodeGp = "" Then MsgBox "Data Belum Lengkap...!" Exit Sub Else Call Koneksi ADO.ConnectionString = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=spkptp" ADO.RecordSource = "Paket" ADO.Refresh Set DG.DataSource = ADO DG.Refresh If CmdInput.Enabled = True Then Dim SQLTambah As String SQLTambah = "Insert Into Paket (KodePaket,NamaPaket,NamaKeg,NilHPS,SubBid,Kf,KodeKec,KodeGp) values " & _ "('" & TxtKodePaket & "','" & TxtNamaPaket & "','" & TxtNamaKeg & "','" & Format(TxtNilHPS, "Rp, ###,###,###,###,###,###.-") & "','" & TxtSubBid & "','" & CmbKualifikasi & "','" & CmbKodeKec & "','" & CmbKodeGp & "')" Conn.Execute SQLTambah ElseIf CmdEdit.Enabled = True Then
Teknik Informatika Universitas Serambi Mekkah Tahun 2011 Lampiran Coding Sistem Penunjang Keputusan (DSS) Pemenang Tender Proyek Menggunakan Metode Analityc Hierarchy Process (AHP)
- -
Nama : Teuku Mirwan Sahputra Nim : 0814030399 Dim SQLEdit As String SQLEdit = "Update Paket Set NamaPaket = '" & TxtNamaPaket & "',NamaKeg = '" & TxtNamaKeg & "',NilHPS = '" & Format(TxtNilHPS, "Rp, ###,###,###,###,###,###.-") & "',SubBid = '" & TxtSubBid & "',Kf='" & CmbKualifikasi & "',KodeKec = '" & CmbKodeKec & "',KodeGp = '" & CmbKodeGp & "' where KodePaket='" & TxtKodePaket & "'" Conn.Execute SQLEdit End If Form_Activate Jalan KosongkanText KondisiAwal End If End Sub Private Sub CmdTutup_Click() Select Case CmdTutup.Caption Case "&Tutup" Unload Me Case "&Batal" TidakSiapIsi KondisiAwal End Select End Sub Private Sub Form_Activate() Call Koneksi ADO.ConnectionString = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=spkptp" ADO.RecordSource = "Paket ORDER BY KodePaket" ADO.Refresh Set DG.DataSource = ADO DG.Refresh Call Koneksi RSKecamatan.Open "Kecamatan", Conn CmbKodeKec.Clear Do Until RSKecamatan.EOF CmbKodeKec.AddItem RSKecamatan!KodeKec RSKecamatan.MoveNext Loop Call Koneksi RSGampong.Open "Gampong", Conn CmbKodeGp.Clear Do Until RSGampong.EOF CmbKodeGp.AddItem RSGampong!KodeGp RSGampong.MoveNext Loop Call KosongkanText Call Koneksi
Teknik Informatika Universitas Serambi Mekkah Tahun 2011 Lampiran Coding Sistem Penunjang Keputusan (DSS) Pemenang Tender Proyek Menggunakan Metode Analityc Hierarchy Process (AHP)
- -
Nama : Teuku Mirwan Sahputra Nim : 0814030399 RSKecamatan.Open "Kecamatan", Conn List1.Clear Do Until RSKecamatan.EOF List1.AddItem RSKecamatan!KodeKec & Space(4) & RSKecamatan!NamaKec RSKecamatan.MoveNext Loop End Sub Private Sub Form_Load() Call Koneksi TxtKodePaket.Enabled = 5 TxtNamaPaket.MaxLength = 100 TxtNamaKeg.MaxLength = 100 TxtNilHPS.MaxLength = 23 TxtSubBid.MaxLength = 10 CmbKualifikasi.AddItem "KECIL" CmbKualifikasi.AddItem "NON KECIL" KondisiAwal strTemp = Me.Caption n = 1 Timer2.Interval = 100 End Sub Private Sub List1_Click() Call Koneksi RSGampong.Open "Select * From Gampong where KodeKec= '" & Left(List1, 4) & "'", Conn List2.Clear Do While Not RSGampong.EOF List2.AddItem RSGampong!KodeGp & Space(4) & RSGampong!NamaGp RSGampong.MoveNext Loop Call Koneksi RSKecamatan.Open "Select * From Kecamatan where KodeKec= '" & Left(List1, 4) & "'", Conn Do While Not RSKecamatan.EOF CmbKodeKec = RSKecamatan!KodeKec TxtNamaKec = RSKecamatan!NamaKec RSKecamatan.MoveNext Loop End Sub Private Sub CariData() Call Koneksi RSPaket.Open "Select * From Paket where KodePaket='" & TxtKodePaket & "'", Conn End Sub Private Sub SiapIsi()
Teknik Informatika Universitas Serambi Mekkah Tahun 2011 Lampiran Coding Sistem Penunjang Keputusan (DSS) Pemenang Tender Proyek Menggunakan Metode Analityc Hierarchy Process (AHP)
- -
Nama : Teuku Mirwan Sahputra Nim : 0814030399 TxtKodePaket.Enabled = True TxtNamaPaket.Enabled = True TxtNamaKeg.Enabled = True TxtNilHPS.Enabled = True TxtSubBid.Enabled = True CmbKualifikasi.Enabled = True CmbKodeKec.Enabled = True CmbKodeGp.Enabled = True List1.Enabled = True List2.Enabled = True End Sub Private Sub TidakSiapIsi() TxtKodePaket.Enabled = False TxtNamaPaket.Enabled = False TxtNamaKeg.Enabled = False TxtNilHPS.Enabled = False TxtSubBid.Enabled = False CmbKualifikasi.Enabled = False CmbKodeKec.Enabled = False CmbKodeGp.Enabled = False TxtNamaKec.Enabled = False TxtNamaGp.Enabled = False End Sub Private Sub KondisiAwal() TidakSiapIsi CmdInput.Enabled = True CmdEdit.Enabled = True CmdHapus.Enabled = True CmdSimpan.Enabled = False CmdBatal.Enabled = False CmdTutup.Enabled = True List1.Enabled = False List2.Enabled = False End Sub Private Sub TampilkanData() On Error Resume Next TxtKodePaket = RSPaket!KodePaket TxtNamaPaket = RSPaket!NamaPaket TxtNamaKeg = RSPaket!NamaKeg TxtNilHPS = RSPaket!NilHPS TxtSubBid = RSPaket!SubBid CmbKualifikasi = RSPaket!kf CmbKodeKec = RSPaket!KodeKec CmbKodeGp = RSPaket!KodeGp With RSKecamatan RSKecamatan.Open "select * from Kecamatan where KodeKec='" & CmbKodeKec & "'", Conn TxtNamaKec = RSKecamatan!NamaKec End With With RSGampong
Teknik Informatika Universitas Serambi Mekkah Tahun 2011 Lampiran Coding Sistem Penunjang Keputusan (DSS) Pemenang Tender Proyek Menggunakan Metode Analityc Hierarchy Process (AHP)
- -
Nama : Teuku Mirwan Sahputra Nim : 0814030399 RSGampong.Open "select * from Gampong where KodeGp='" & CmbKodeGp & "'", Conn TxtNamaGp = RSGampong!NamaGp End With End Sub Private Sub List2_Click() Call Koneksi RSGampong.Open "Select * From Gampong where KodeGp= '" & Left(List2, 3) & "'", Conn Do While Not RSGampong.EOF CmbKodeGp = RSGampong!KodeGp TxtNamaGp = RSGampong!NamaGp RSGampong.MoveNext Loop End Sub Private Sub TxtKodePaket_KeyPress(KeyAscii As Integer) KeyAscii = Asc(UCase(Chr(KeyAscii))) If KeyAscii = 13 Then If Len(TxtKodePaket) < 5 Then MsgBox "Kode Harus 5 Digit" TxtKodePaket.SetFocus Exit Sub Else TxtNamaPaket.SetFocus End If If CmdInput.Enabled = True Then Call CariData If Not RSPaket.EOF Then TampilkanData MsgBox "Kode Paket Sudah Ada" KosongkanText TxtKodePaket.SetFocus Else TxtNamaPaket.SetFocus End If End If If CmdEdit.Enabled = True Then Call CariData If Not RSPaket.EOF Then TampilkanData TxtKodePaket.Enabled = False TxtNamaPaket.SetFocus Else MsgBox "Kode Paket Tidak Ada" TxtKodePaket = "" TxtKodePaket.SetFocus End If End If If CmdHapus.Enabled = True Then
Teknik Informatika Universitas Serambi Mekkah Tahun 2011 Lampiran Coding Sistem Penunjang Keputusan (DSS) Pemenang Tender Proyek Menggunakan Metode Analityc Hierarchy Process (AHP)
- -
Nama : Teuku Mirwan Sahputra Nim : 0814030399 Call CariData If Not RSPaket.EOF Then TampilkanData Pesan = MsgBox("Yakin akan dihapus", vbYesNo) If Pesan = vbYes Then Dim SQLHapus As String SQLHapus = "Delete From Paket where KodePaket= '" & TxtKodePaket & "'" Conn.Execute SQLHapus KondisiAwal KosongkanText Jalan Form_Activate Else KondisiAwal CmdHapus.SetFocus End If Else MsgBox "Data Tidak ditemukan" TxtKodePaket.SetFocus End If End If End If End Sub Private Sub TxtNamaKeg_KeyPress(KeyAscii As Integer) KeyAscii = Asc(UCase(Chr(KeyAscii))) If KeyAscii = 13 Then TxtNilHPS.SetFocus End If End Sub Private Sub TxtNamaPaket_KeyPress(KeyAscii As Integer) KeyAscii = Asc(UCase(Chr(KeyAscii))) If KeyAscii = 13 Then TxtNamaKeg.SetFocus End Sub Private Sub KosongkanText() TxtKodePaket = "" TxtNamaPaket = "" TxtNamaKeg = "" TxtNilHPS = "" TxtSubBid = "" CmbKualifikasi = "" CmbKodeKec = "" CmbKodeGp = "" TxtNamaKec = "" TxtNamaGp = "" End Sub Private Sub TxtNilHPS_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then TxtSubBid.SetFocus End If
Teknik Informatika Universitas Serambi Mekkah Tahun 2011 Lampiran Coding Sistem Penunjang Keputusan (DSS) Pemenang Tender Proyek Menggunakan Metode Analityc Hierarchy Process (AHP)
- -
Nama : Teuku Mirwan Sahputra Nim : 0814030399 If Not (KeyAscii >= Asc("0") And KeyAscii <= Asc("9") Or KeyAscii = vbKeyBack) Then KeyAscii = 0 End Sub Private Sub TxtSubBid_KeyPress(KeyAscii As Integer) KeyAscii = Asc(UCase(Chr(KeyAscii))) If KeyAscii = 13 Then CmbKualifikasi.SetFocus End Sub Public Function TulisJalan(Hitung As Integer, strKalimat As String, Panjang As Integer) If Hitung = Len(strKalimat) + Panjang Then Hitung = 0 ElseIf Hitung > Len(strKalimat) Then TulisJalan = strKalimat & Space(Hitung - Len(strKalimat)) Else TulisJalan = Mid(strKalimat, 1, Hitung) End If End Function Private Sub Timer2_Timer() LenTemp = Len(strTemp) Dim Form As String LenTemp = Len(strTemp) Me.Caption = Left(strTemp, n) + "_" n = n + 1 If n > LenTemp Then n = 1 End If End Sub Sub Jalan() PG.Visible = True For i = 1 To 100 PG.Value = i For j = 1 To 1000000 Next j Next i PG.Value = 10 PG.Visible = False End Sub
Kecamatan.frm
Private Sub CmdBatal_Click() KosongkanText
Teknik Informatika Universitas Serambi Mekkah Tahun 2011 Lampiran Coding Sistem Penunjang Keputusan (DSS) Pemenang Tender Proyek Menggunakan Metode Analityc Hierarchy Process (AHP)
- -
Nama : Teuku Mirwan Sahputra Nim : 0814030399 TidakSiapIsi KondisiAwal End Sub Private Sub CmdEdit_Click() If CmdEdit.Caption = "&Edit" Then CmdInput.Enabled = False CmdHapus.Enabled = False CmdTutup.Enabled = False CmdSimpan.Enabled = True CmdBatal.Enabled = True SiapIsi TxtKodeKec.SetFocus Else If TxtNamaKec = "" Or TxtNamaKec = "" Then MsgBox "Masih Ada Data Yang Kosong" Else Dim SQLEdit As String SQLEdit = "Update Kecamatan Set NamaKec= '" & TxtNamaKec & "' where KodeKec='" & TxtKodeKec & "'" Conn.Execute SQLEdit Form_Activate Call KondisiAwal End If End If End Sub Private Sub CmdHapus_Click() If CmdHapus.Caption = "&Hapus" Then CmdTutup.Enabled = False CmdInput.Enabled = False CmdEdit.Enabled = False CmdBatal.Enabled = True SiapIsi TxtKodeKec.SetFocus End If End Sub Private Sub CmdInput_Click() If CmdInput.Caption = "&Input" Then CmdEdit.Enabled = False CmdHapus.Enabled = False CmdSimpan.Enabled = True CmdBatal.Enabled = True CmdTutup.Enabled = False SiapIsi KosongkanText TxtKodeKec.SetFocus End If End Sub
Private Sub CmdSimpan_Click() If TxtKodeKec = "" Or TxtNamaKec = "" Then
Teknik Informatika Universitas Serambi Mekkah Tahun 2011 Lampiran Coding Sistem Penunjang Keputusan (DSS) Pemenang Tender Proyek Menggunakan Metode Analityc Hierarchy Process (AHP)
- -
Nama : Teuku Mirwan Sahputra Nim : 0814030399 MsgBox "Data Belum Lengkap...!" Exit Sub Else If CmdInput.Enabled = True Then Dim SQLTambah As String SQLTambah = "Insert Into Kecamatan (KodeKec, NamaKec) values " & _ "('" & TxtKodeKec & "','" & TxtNamaKec & "')" Conn.Execute SQLTambah Else Dim SQLEdit As String SQLEdit = "Update Kecamatan Set NamaKec = '" & TxtNamaKec & "' where KodeKec='" & TxtKodeKec & "'" Conn.Execute SQLEdit End If Form_Activate Jalan KosongkanText KondisiAwal End If End Sub Private Sub CmdTutup_Click() Select Case CmdTutup.Caption Case "&Tutup" Unload Me Case "&Batal" TidakSiapIsi KondisiAwal End Select End Sub Private Sub Form_Activate() Call Koneksi ADO.ConnectionString = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=spkptp" ADO.RecordSource = "Kecamatan ORDER BY KodeKec" ADO.Refresh Set DG.DataSource = ADO DG.Refresh End Sub Private Sub Form_Load() Call Koneksi TxtKodeKec.MaxLength = 4 TxtNamaKec.MaxLength = 50 KondisiAwal End Sub Private Sub CariData() Call Koneksi RSKecamatan.Open "Select * From Kecamatan where KodeKec='" & TxtKodeKec & "'", Conn End Sub
Teknik Informatika Universitas Serambi Mekkah Tahun 2011 Lampiran Coding Sistem Penunjang Keputusan (DSS) Pemenang Tender Proyek Menggunakan Metode Analityc Hierarchy Process (AHP)
- -
Nama : Teuku Mirwan Sahputra Nim : 0814030399
Private Sub SiapIsi() TxtKodeKec.Enabled = True TxtNamaKec.Enabled = True End Sub Private Sub TidakSiapIsi() TxtKodeKec.Enabled = False TxtNamaKec.Enabled = False End Sub Private Sub KondisiAwal() TidakSiapIsi CmdInput.Enabled = True CmdEdit.Enabled = True CmdHapus.Enabled = True CmdSimpan.Enabled = False CmdBatal.Enabled = False CmdTutup.Enabled = True End Sub Private Sub TampilkanData() On Error Resume Next TxtKodeKec = RSKecamatan!KodeKec TxtNamaKec = RSKecamatan!NamaKec End Sub Private Sub TxtKodeKec_KeyPress(KeyAscii As Integer) KeyAscii = Asc(UCase(Chr(KeyAscii))) If KeyAscii = 13 Then If Len(TxtKodeKec) < 3 Then MsgBox "Kode Harus 3 Digit" KosongkanText TxtKodeKec.SetFocus Exit Sub Else TxtNamaKec.SetFocus End If If CmdInput.Enabled = True Then Call CariData If Not RSKecamatan.EOF Then TampilkanData MsgBox "Kode Kecamatan Sudah Ada" KosongkanText TxtKodeKec.SetFocus Else TxtNamaKec.SetFocus End If End If If CmdEdit.Enabled = True Then Call CariData If Not RSKecamatan.EOF Then
Teknik Informatika Universitas Serambi Mekkah Tahun 2011 Lampiran Coding Sistem Penunjang Keputusan (DSS) Pemenang Tender Proyek Menggunakan Metode Analityc Hierarchy Process (AHP)
- -
Nama : Teuku Mirwan Sahputra Nim : 0814030399 TampilkanData TxtKodeKec.Enabled = False TxtNamaKec.SetFocus Else MsgBox "Kode Kecamatan Tidak Ada" TxtKodeKec = "" TxtKodeKec.SetFocus End If End If If CmdHapus.Enabled = True Then Call CariData If Not RSKecamatan.EOF Then TampilkanData Pesan = MsgBox("Yakin akan dihapus", vbYesNo) If Pesan = vbYes Then Dim SQLHapus As String SQLHapus = "Delete From Kecamatan where KodeKec= '" & TxtKodeKec & "'" Conn.Execute SQLHapus KondisiAwal KosongkanText Jalan Form_Activate Else KondisiAwal CmdHapus.SetFocus End If Else MsgBox "Data Tidak ditemukan" TxtKodeKec.SetFocus End If End If End If End Sub Private Sub TxtNamaKec_KeyPress(KeyAscii As Integer) KeyAscii = Asc(UCase(Chr(KeyAscii))) If KeyAscii = 13 Then CmdSimpan.SetFocus End Sub Private Sub KosongkanText() TxtKodeKec = "" TxtNamaKec = "" End Sub Sub Jalan() PG.Visible = True For i = 1 To 100 PG.Value = i For j = 1 To 1000000 Next j Next i PG.Value = 10
Teknik Informatika Universitas Serambi Mekkah Tahun 2011 Lampiran Coding Sistem Penunjang Keputusan (DSS) Pemenang Tender Proyek Menggunakan Metode Analityc Hierarchy Process (AHP)
- -
Nama : Teuku Mirwan Sahputra Nim : 0814030399 PG.Visible = False End Sub
Gampong.frm
Dim nama As String Private Sub CmbKodeKec_Change() Call Koneksi RSKecamatan.Open "Select * from Kecamatan where KodeKec='" & CmbKodeKec & "'", Conn If Not RSKecamatan.EOF Then With RSKecamatan If Not RSKecamatan.EOF Then KodeKec = RSKecamatan!KodeKec TxtNamaKec = RSKecamatan!NamaKec End If End With End If LBJumlah = ADO.Recordset.RecordCount End Sub Private Sub CmbKodeKec_Click() Call Koneksi RSKecamatan.Open "Select * from Kecamatan where KodeKec='" & CmbKodeKec & "'", Conn If Not RSKecamatan.EOF Then KodeKec = RSKecamatan!KodeKec TxtNamaKec = RSKecamatan!NamaKec End If Conn.Close End Sub Private Sub CmbKodeKec_KeyPress(KeyAscii As Integer) Call Koneksi RSKecamatan.Open "Select * from Kecamatan where KodeKec='" & CmbKodeKec & "'", Conn If Not RSKecamatan.EOF Then KodeKec = RSKecamatan!KodeKec TxtNamaKec = RSKecamatan!NamaKec End If Conn.Close KeyAscii = Asc(UCase(Chr(KeyAscii))) If KeyAscii = 13 Then If CmdInput.Enabled = True Then CmdSimpan.SetFocus ElseIf CmdEdit.Enabled = True Then
Teknik Informatika Universitas Serambi Mekkah Tahun 2011 Lampiran Coding Sistem Penunjang Keputusan (DSS) Pemenang Tender Proyek Menggunakan Metode Analityc Hierarchy Process (AHP)
- -
Nama : Teuku Mirwan Sahputra Nim : 0814030399 CmdSimpan.SetFocus End If End If End Sub Private Sub CmdBatal_Click() KosongkanText TidakSiapIsi KondisiAwal End Sub Private Sub CmdEdit_Click() If CmdEdit.Caption = "&Edit" Then CmdInput.Enabled = False CmdHapus.Enabled = False CmdTutup.Enabled = False CmdSimpan.Enabled = True CmdBatal.Enabled = True SiapIsi TxtKodeGp.SetFocus End If End Sub Private Sub CmdHapus_Click() If CmdHapus.Caption = "&Hapus" Then CmdTutup.Enabled = False CmdInput.Enabled = False CmdEdit.Enabled = False CmdBatal.Enabled = True KosongkanText SiapIsi TxtKodeGp.SetFocus End If End Sub Private Sub CmdInput_Click() If CmdInput.Caption = "&Input" Then CmdEdit.Enabled = False CmdHapus.Enabled = False CmdSimpan.Enabled = True CmdBatal.Enabled = True CmdTutup.Enabled = False KosongkanText SiapIsi TxtKodeGp.SetFocus End If End Sub Private Sub CmdSimpan_Click() If TxtKodeGp = "" Or TxtNamaGp = "" Or CmbKodeKec = "" Then MsgBox "Data Belum Lengkap...!" Exit Sub Else
Teknik Informatika Universitas Serambi Mekkah Tahun 2011 Lampiran Coding Sistem Penunjang Keputusan (DSS) Pemenang Tender Proyek Menggunakan Metode Analityc Hierarchy Process (AHP)
- -
Nama : Teuku Mirwan Sahputra Nim : 0814030399 Call Koneksi ADO.ConnectionString = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=spkptp" ADO.RecordSource = "gampong ORDER BY KodeGp Asc" ADO.Refresh Set DG.DataSource = ADO DG.Refresh If CmdInput.Enabled = True Then Dim SQLTambah As String SQLTambah = "Insert Into Gampong (KodeGp,NamaGp,KodeKec) values " & _ "('" & TxtKodeGp & "','" & TxtNamaGp & "','" & CmbKodeKec & "')" Conn.Execute SQLTambah Else Dim SQLEdit As String SQLEdit = "Update Gampong Set NamaGp = '" & TxtNamaGp & "',KodeKec = '" & CmbKodeKec & _ "' where KodeGp='" & TxtKodeGp & "'" Conn.Execute SQLEdit End If Form_Activate Jalan KosongkanText KondisiAwal End If End Sub Private Sub CmdTutup_Click() Select Case CmdTutup.Caption Case "&Tutup" Unload Me Case "&Batal" TidakSiapIsi KondisiAwal End Select End Sub Private Sub Form_Activate() Call Koneksi ADO.ConnectionString = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=spkptp" ADO.RecordSource = "gampong ORDER BY KodeGp" ADO.Refresh Set DG.DataSource = ADO DG.Refresh Call Koneksi RSKecamatan.Open "Kecamatan", Conn CmbKodeKec.Clear Do Until RSKecamatan.EOF CmbKodeKec.AddItem RSKecamatan!KodeKec
Teknik Informatika Universitas Serambi Mekkah Tahun 2011 Lampiran Coding Sistem Penunjang Keputusan (DSS) Pemenang Tender Proyek Menggunakan Metode Analityc Hierarchy Process (AHP)
- -
Nama : Teuku Mirwan Sahputra Nim : 0814030399 RSKecamatan.MoveNext Loop Call KosongkanText Call Koneksi RSKecamatan.Open "Kecamatan", Conn List1.Clear Do Until RSKecamatan.EOF List1.AddItem RSKecamatan!KodeKec & Space(4) & RSKecamatan!NamaKec RSKecamatan.MoveNext Loop End Sub Private Sub Form_Load() Call Koneksi TxtKodeGp.MaxLength = 3 TxtNamaGp.MaxLength = 50 KondisiAwal End Sub Private Sub CariData() Call Koneksi RSGampong.Open "Select * From Gampong where KodeGp='" & TxtKodeGp & "'", Conn End Sub Private Sub SiapIsi() TxtKodeGp.Enabled = True TxtNamaGp.Enabled = True CmbKodeKec.Enabled = True List1.Enabled = True End Sub Private Sub TidakSiapIsi() TxtKodeGp.Enabled = False TxtNamaGp.Enabled = False CmbKodeKec.Enabled = False TxtNamaKec.Enabled = False List1.Enabled = False End Sub Private Sub KondisiAwal() TidakSiapIsi CmdInput.Enabled = True CmdEdit.Enabled = True CmdHapus.Enabled = True CmdSimpan.Enabled = False CmdBatal.Enabled = False CmdTutup.Enabled = True End Sub
Teknik Informatika Universitas Serambi Mekkah Tahun 2011 Lampiran Coding Sistem Penunjang Keputusan (DSS) Pemenang Tender Proyek Menggunakan Metode Analityc Hierarchy Process (AHP)
- -
Nama : Teuku Mirwan Sahputra Nim : 0814030399 Private Sub TampilkanData() On Error Resume Next TxtNamaGp = RSGampong!NamaGp CmbKodeKec = RSGampong!KodeKec End Sub Private Sub List1_Click() Call Koneksi RSKecamatan.Open "Select * From Kecamatan where KodeKec= '" & Left(List1, 4) & "'", Conn Do While Not RSKecamatan.EOF CmbKodeKec = RSKecamatan!KodeKec TxtNamaKec = RSKecamatan!NamaKec RSKecamatan.MoveNext Loop End Sub Private Sub TxtKodeGp_KeyPress(KeyAscii As Integer) KeyAscii = Asc(UCase(Chr(KeyAscii))) If KeyAscii = 13 Then If Len(TxtKodeGp) < 3 Then MsgBox "Kode Harus 3 Digit" TxtKodeGp.SetFocus Exit Sub Else TxtNamaGp.SetFocus End If If CmdInput.Enabled = True Then Call CariData If Not RSGampong.EOF Then TampilkanData MsgBox "Kode Gampong Sudah Ada" KosongkanText TxtKodeGp.SetFocus Else TxtNamaGp.SetFocus End If End If If CmdEdit.Enabled = True Then Call CariData If Not RSGampong.EOF Then TampilkanData TxtNamaGp.SetFocus Else MsgBox "Kode Gampong Tidak Ada" TxtKodeGp = "" TxtKodeGp.SetFocus End If End If If CmdHapus.Enabled = True Then Call CariData
Teknik Informatika Universitas Serambi Mekkah Tahun 2011 Lampiran Coding Sistem Penunjang Keputusan (DSS) Pemenang Tender Proyek Menggunakan Metode Analityc Hierarchy Process (AHP)
- -
Nama : Teuku Mirwan Sahputra Nim : 0814030399 If Not RSGampong.EOF Then TampilkanData Pesan = MsgBox("Yakin akan dihapus", vbYesNo) If Pesan = vbYes Then Dim SQLHapus As String SQLHapus = "Delete From Gampong where KodeGp= '" & TxtKodeGp & "'" Conn.Execute SQLHapus KondisiAwal KosongkanText Jalan Form_Activate Else KondisiAwal CmdHapus.SetFocus End If Else MsgBox "Data Tidak ditemukan" TxtKodeGp.SetFocus End If End If End If End Sub Private Sub TxtNamaGp_KeyPress(KeyAscii As Integer) KeyAscii = Asc(UCase(Chr(KeyAscii))) If KeyAscii = 13 Then CmbKodeKec.SetFocus End Sub Private Sub KosongkanText() TxtKodeGp = "" TxtNamaGp = "" CmbKodeKec = "" TxtNamaKec = "" End Sub Sub Jalan() PG.Visible = True For i = 1 To 100 PG.Value = i For j = 1 To 1000000 Next j Next i PG.Value = 10 PG.Visible = False End Sub
Ikut.frm
Teknik Informatika Universitas Serambi Mekkah Tahun 2011 Lampiran Coding Sistem Penunjang Keputusan (DSS) Pemenang Tender Proyek Menggunakan Metode Analityc Hierarchy Process (AHP)
- -
Nama : Teuku Mirwan Sahputra Nim : 0814030399
Private Sub CmbKodePaket_Click() Call Koneksi RSPaket.Open "Select * from Paket where KodePaket='" & Left(CmbKodePaket, 5) & "'", Conn If RSPaket.EOF Then MsgBox "Kode Paket tidak terdaftar" CmbKodePaket.SetFocus Else TxtNamaPaket = RSPaket!NamaPaket CmbKodePh.SetFocus End If Conn.Close End Sub Private Sub CmbKodePh_Click() Call Koneksi RSPerusahaan.Open "Select * from Perusahaan where KodePh='" & Left(CmbKodePh, 3) & "'", Conn If RSPerusahaan.EOF Then MsgBox "Kode Perusahaan tidak terdaftar" CmbKodePh.SetFocus Else TxtNamaPh = RSPerusahaan!NamaPh CmbKodePh.SetFocus End If Conn.Close Call Koneksi RSIkut.Open "Ikut", Conn If CmdInput.Enabled = True Then Call CariData If Not RSIkut.EOF Then TampilkanData MsgBox "Kode Perusahaan Sudah Ada" CmbKodePh = "" CmbKodePh.SetFocus Else CmdSimpan.SetFocus End If End If Call Koneksi RSIkut.Open "Ikut", Conn If CmdHapus.Enabled = True Then Call CariData If Not RSIkut.EOF Then TampilkanData Pesan = MsgBox("Yakin akan dihapus", vbYesNo) If Pesan = vbYes Then Dim SQLHapus As String
Teknik Informatika Universitas Serambi Mekkah Tahun 2011 Lampiran Coding Sistem Penunjang Keputusan (DSS) Pemenang Tender Proyek Menggunakan Metode Analityc Hierarchy Process (AHP)
- -
Nama : Teuku Mirwan Sahputra Nim : 0814030399 SQLHapus = "Delete From Ikut where KodePh= '" & CmbKodePh & "'" Conn.Execute SQLHapus KondisiAwal Form_Activate Else KondisiAwal CmdHapus.SetFocus End If Else MsgBox "Data Tidak ditemukan" CmbKodePh.SetFocus End If End If End Sub Private Sub CmdBatal_Click() KosongkanText TidakSiapIsi KondisiAwal End Sub Private Sub CmdHapus_Click() If CmdHapus.Caption = "&Hapus" Then CmdTutup.Enabled = False CmdInput.Enabled = False CmdBatal.Enabled = True SiapIsi CmbKodePh.SetFocus End If End Sub Private Sub CmdInput_Click() If CmdInput.Caption = "&Input" Then CmdHapus.Enabled = False CmdSimpan.Enabled = True CmdBatal.Enabled = True CmdTutup.Enabled = False KosongkanText SiapIsi CmbKodePaket.SetFocus End If End Sub Private Sub CmdSimpan_Click() If CmbKodePaket = "" Or CmbKodePh = "" Then MsgBox "Data Belum Lengkap...!" Exit Sub Else Call Koneksi ADO.ConnectionString = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=spkptp" ADO.RecordSource = "Ikut"
Teknik Informatika Universitas Serambi Mekkah Tahun 2011 Lampiran Coding Sistem Penunjang Keputusan (DSS) Pemenang Tender Proyek Menggunakan Metode Analityc Hierarchy Process (AHP)
- -
Nama : Teuku Mirwan Sahputra Nim : 0814030399 ADO.Refresh Set DG.DataSource = ADO DG.Refresh If CmdInput.Enabled = True Then Dim SQLTambah1 As String SQLTambah1 = "Insert Into Ikut (KodePaket,KodePh) values " & _ "('" & CmbKodePaket & "','" & CmbKodePh & "')" Conn.Execute SQLTambah1 End If Form_Activate Jalan KosongkanText KondisiAwal End If End Sub Private Sub CmdTutup_Click() Select Case CmdTutup.Caption Case "&Tutup" Unload Me Case "&Batal" TidakSiapIsi KondisiAwal End Select End Sub Private Sub Form_Activate() Call Koneksi ADO.ConnectionString = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=spkptp" ADO.RecordSource = "Ikut" ADO.Refresh Set DG.DataSource = ADO DG.Refresh
Call Koneksi RSPaket.Open "Paket", Conn CmbKodePaket.Clear Do Until RSPaket.EOF CmbKodePaket.AddItem RSPaket!KodePaket RSPaket.MoveNext Loop Call Koneksi RSPerusahaan.Open "Perusahaan", Conn CmbKodePh.Clear Do Until RSPerusahaan.EOF CmbKodePh.AddItem RSPerusahaan!KodePh RSPerusahaan.MoveNext Loop
Teknik Informatika Universitas Serambi Mekkah Tahun 2011 Lampiran Coding Sistem Penunjang Keputusan (DSS) Pemenang Tender Proyek Menggunakan Metode Analityc Hierarchy Process (AHP)
- -
Nama : Teuku Mirwan Sahputra Nim : 0814030399 Call KosongkanText Call Koneksi RSPerusahaan.Open "Perusahaan", Conn RSPaket.Open "Paket", Conn List1.Clear List2.Clear Do Until RSPerusahaan.EOF List1.AddItem RSPerusahaan!KodePh & Space(4) & RSPerusahaan!NamaPh RSPerusahaan.MoveNext Loop Do Until RSPaket.EOF List2.AddItem RSPaket!KodePaket & Space(4) & RSPaket!NamaPaket RSPaket.MoveNext Loop End Sub Private Sub Form_Load() Call Koneksi KondisiAwal End Sub Private Sub SiapIsi() CmbKodePaket.Enabled = True CmbKodePh.Enabled = True End Sub Private Sub TidakSiapIsi() CmbKodePaket.Enabled = False CmbKodePh.Enabled = False TxtNamaPaket.Enabled = False TxtNamaPh.Enabled = False End Sub Private Sub KondisiAwal() TidakSiapIsi CmdInput.Enabled = True CmdHapus.Enabled = True CmdSimpan.Enabled = False CmdBatal.Enabled = False CmdTutup.Enabled = True End Sub Private Sub TampilkanData() On Error Resume Next CmbKodePaket = RSIkut!KodePaket CmbKodePh = RSIkut!KodePh End Sub Private Sub KosongkanText() CmbKodePaket = "" TxtNamaPaket = "" CmbKodePh = ""
Teknik Informatika Universitas Serambi Mekkah Tahun 2011 Lampiran Coding Sistem Penunjang Keputusan (DSS) Pemenang Tender Proyek Menggunakan Metode Analityc Hierarchy Process (AHP)
- -
Nama : Teuku Mirwan Sahputra Nim : 0814030399 TxtNamaPh = "" End Sub Private Sub CariData() Call Koneksi RSIkut.Open "Select * From Ikut where KodePh='" & CmbKodePh & "'", Conn End Sub Sub Jalan() PG.Visible = True For i = 1 To 100 PG.Value = i For j = 1 To 1000000 Next j Next i PG.Value = 10 PG.Visible = False End Sub
Aritmatik.frm
Private Sub CmbKodePh_Click() Call Koneksi RSIkut.Open "Select * from Ikut where KodePh='" & Left(CmbKodePh, 3) & "'", Conn If RSIkut.EOF Then MsgBox "Kode Perusahaan tidak terdaftar" CmbKodePh.SetFocus Else TxtKodePaket = RSIkut!KodePaket RSPerusahaan.Open "Select * from Perusahaan where KodePh='" & Left(CmbKodePh, 3) & "'", Conn TxtNamaPh = RSPerusahaan!NamaPh RSPaket.Open "Select * from Paket where KodePaket='" & Left(TxtKodePaket, 5) & "'", Conn TxtNamaPaket = RSPaket!NamaPaket TxtNilaiHPS = Format(RSPaket!NilHPS, "Rp, ###,###,###,###,###,###.-") TxtKualifikasi = RSPaket!kf TxtHP.SetFocus End If Conn.Close Call Koneksi RSAritmatik.Open "Aritmatik", Conn If CmdInput.Enabled = True Then
Teknik Informatika Universitas Serambi Mekkah Tahun 2011 Lampiran Coding Sistem Penunjang Keputusan (DSS) Pemenang Tender Proyek Menggunakan Metode Analityc Hierarchy Process (AHP)
- -
Nama : Teuku Mirwan Sahputra Nim : 0814030399 Call PastikanData If Not RSAritmatik.EOF Then TampilkanData MsgBox "Kode Perusahaan Sudah Dimasukkan" CmbKodePh = "" TxtKodePaket = "" TxtNamaPaket = "" TxtHP = "" TxtHT = "" CmbKodePh.SetFocus Else TxtHP.SetFocus End If End If End Sub Private Sub CmbKodePh_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then TxtHP.SetFocus End If End Sub Private Sub CmdBatal_Click() KosongkanText TidakSiapIsi KondisiAwal End Sub Private Sub CmdEdit_Click() If CmdEdit.Caption = "&Edit" Then CmdInput.Enabled = False CmdHapus.Enabled = False CmdTutup.Enabled = False CmdSimpan.Enabled = True CmdBatal.Enabled = True SiapIsi TxtKodeArt.SetFocus End If End Sub Private Sub CmdHapus_Click() If CmdHapus.Caption = "&Hapus" Then CmdTutup.Enabled = False CmdInput.Enabled = False CmdEdit.Enabled = False CmdBatal.Enabled = True SiapIsi TxtKodeArt.SetFocus End If End Sub Private Sub CmdInput_Click() If CmdInput.Caption = "&Input" Then CmdEdit.Enabled = False
Teknik Informatika Universitas Serambi Mekkah Tahun 2011 Lampiran Coding Sistem Penunjang Keputusan (DSS) Pemenang Tender Proyek Menggunakan Metode Analityc Hierarchy Process (AHP)
- -
Nama : Teuku Mirwan Sahputra Nim : 0814030399 CmdHapus.Enabled = False CmdSimpan.Enabled = True CmdBatal.Enabled = True CmdTutup.Enabled = False KosongkanText SiapIsi TxtKodeArt.SetFocus End If End Sub Private Sub CmdSimpan_Click() On Error Resume Next If TxtKodeArt = "" Or CmbKodePh = "" Or TxtKodePaket = "" Or TxtHP = "" Or TxtHT = "" Then MsgBox "Data Belum Lengkap...!" Exit Sub Else Call Koneksi ADO.ConnectionString = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=spkptp" ADO.RecordSource = "Aritmatik ORDER BY HP,HT" ADO.Refresh Set DG.DataSource = ADO DG.Refresh If CmdInput.Enabled = True Then Dim SQLTambah1 As String SQLTambah1 = "Insert Into Aritmatik (KodeArt,KodePh,KodePaket,HP,HT) values " & _ "('" & TxtKodeArt & "','" & Left(CmbKodePh, 3) & "','" & TxtKodePaket & "','" & Format(TxtHP, "Rp, ###,###,###,###,###.-") & "','" & Format(TxtHT, "Rp, ###,###,###,###,###.-") & "')" Conn.Execute (SQLTambah1) Else Dim SQLEdit1 As String SQLEdit1 = "Update Aritmatik Set KodePh = '" & Left(CmbKodePh, 3) & "',KodePaket = '" & TxtKodePaket & "',HP = '" & Format(TxtHP, "Rp, ###,###,###,###,###.-") & "',HT = '" & Format(TxtHT, "Rp, ###,###,###,###,###.-") & "' where KodeArt='" & TxtKodeArt & "'" Conn.Execute (SQLEdit1) End If Form_Activate Art.ADO.Refresh Jalan KosongkanText KondisiAwal End If End Sub Private Sub CmdTutup_Click() Select Case CmdTutup.Caption
Teknik Informatika Universitas Serambi Mekkah Tahun 2011 Lampiran Coding Sistem Penunjang Keputusan (DSS) Pemenang Tender Proyek Menggunakan Metode Analityc Hierarchy Process (AHP)
- -
Nama : Teuku Mirwan Sahputra Nim : 0814030399 Case "&Tutup" Unload Me Case "&Batal" TidakSiapIsi KondisiAwal End Select End Sub Private Sub Command1_Click() Call Rangking End Sub Private Sub Form_Activate() Call Koneksi ADO.ConnectionString = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=spkptp" ADO.RecordSource = "Aritmatik ORDER BY HP,HT" ADO.Refresh Set DG.DataSource = ADO DG.Refresh Call Koneksi RSIkut.Open "Ikut", Conn CmbKodePh.Clear Do Until RSIkut.EOF CmbKodePh.AddItem RSIkut!KodePh RSIkut.MoveNext Loop Call Koneksi RSPerusahaan.Open "Perusahaan", Conn CmbKodePh.Clear Do Until RSPerusahaan.EOF CmbKodePh.AddItem RSPerusahaan!KodePh & Space(3) & RSPerusahaan!NamaPh RSPerusahaan.MoveNext Loop Call Koneksi RSPaket.Open "Paket", Conn Do Until RSPaket.EOF TxtKodePaket = RSPaket!KodePaket & Space(5) & RSPaket!NamaPaket RSPaket.MoveNext Loop Call KosongkanText Call Koneksi RSIkut.Open "Ikut", Conn List2.Clear Do Until RSIkut.EOF List2.AddItem RSIkut!KodePh RSIkut.MoveNext
Teknik Informatika Universitas Serambi Mekkah Tahun 2011 Lampiran Coding Sistem Penunjang Keputusan (DSS) Pemenang Tender Proyek Menggunakan Metode Analityc Hierarchy Process (AHP)
- -
Nama : Teuku Mirwan Sahputra Nim : 0814030399 Loop End Sub Private Sub Form_Load() Call Koneksi TxtKodeArt.MaxLength = 2 TxtHP.MaxLength = 25 TxtHT.MaxLength = 25 KondisiAwal End Sub Private Sub TxtHP_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then TxtHT.SetFocus End If If Not (KeyAscii >= Asc("0") And KeyAscii <= Asc("9") Or KeyAscii = vbKeyBack) Then KeyAscii = 0 End Sub Private Sub TxtHT_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then CmdSimpan.SetFocus End If If Not (KeyAscii >= Asc("0") And KeyAscii <= Asc("9") Or KeyAscii = vbKeyBack) Then KeyAscii = 0 End Sub Private Sub TxtKodeArt_KeyPress(KeyAscii As Integer) KeyAscii = Asc(UCase(Chr(KeyAscii))) If KeyAscii = 13 Then If Len(TxtKodeArt) < 2 Then MsgBox "Kode Harus 2 Digit" TxtKodeArt.SetFocus KosongkanText Exit Sub Else CmbKodePh.SetFocus End If Call Koneksi RSAritmatik.Open "Aritmatik", Conn Call CariData If CmdInput.Enabled = True Then Call TampilkanData TxtNamaPaket = "" TxtNilaiHPS = "" TxtKualifikasi = "" If Not RSAritmatik.EOF Then TampilkanData MsgBox "Kode Aritmatik Sudah Dimasukkan" KosongkanText TxtKodeArt = "" TxtKodeArt.SetFocus
Teknik Informatika Universitas Serambi Mekkah Tahun 2011 Lampiran Coding Sistem Penunjang Keputusan (DSS) Pemenang Tender Proyek Menggunakan Metode Analityc Hierarchy Process (AHP)
- -
Nama : Teuku Mirwan Sahputra Nim : 0814030399 Else CmbKodePh.SetFocus End If End If If CmdEdit.Enabled = True Then Call CariData If Not RSAritmatik.EOF Then TampilkanData TxtKodeArt.Enabled = False CmbKodePh.SetFocus Else MsgBox "Kode Aritmatik Tidak Ada" TxtKodeArt = "" TxtKodeArt.SetFocus End If End If Call Koneksi RSAritmatik.Open "Aritmatik", Conn If CmdHapus.Enabled = True Then Call CariData If Not RSAritmatik.EOF Then TampilkanData Pesan = MsgBox("Yakin akan dihapus", vbYesNo) If Pesan = vbYes Then Dim SQLHapus As String SQLHapus = "Delete From Aritmatik where KodeArt= '" & TxtKodeArt & "'" Conn.Execute SQLHapus KondisiAwal KosongkanText Jalan Form_Activate Else KondisiAwal CmdHapus.SetFocus End If Else MsgBox "Data Tidak ditemukan" KosongkanText TxtKodeArt.SetFocus End If End If End If End Sub Private Sub CariData() Call Koneksi RSAritmatik.Open "Select * From Aritmatik where KodeArt='" & TxtKodeArt & "'", Conn End Sub Private Sub SiapIsi()
Teknik Informatika Universitas Serambi Mekkah Tahun 2011 Lampiran Coding Sistem Penunjang Keputusan (DSS) Pemenang Tender Proyek Menggunakan Metode Analityc Hierarchy Process (AHP)
- -
Nama : Teuku Mirwan Sahputra Nim : 0814030399 TxtKodeArt.Enabled = True CmbKodePh.Enabled = True TxtHP.Enabled = True TxtHT.Enabled = True End Sub Private Sub TidakSiapIsi() TxtKodeArt.Enabled = False CmbKodePh.Enabled = False TxtHP.Enabled = False TxtHT.Enabled = False TxtNamaPaket.Enabled = False TxtKualifikasi.Enabled = False TxtNilaiHPS.Enabled = False End Sub Private Sub KondisiAwal() TidakSiapIsi CmdInput.Enabled = True CmdEdit.Enabled = True CmdHapus.Enabled = True CmdSimpan.Enabled = False CmdBatal.Enabled = False CmdTutup.Enabled = True End Sub Private Sub TampilkanData() On Error Resume Next TxtKodeArt = RSAritmatik!KodeArt CmbKodePh = RSAritmatik!KodePh TxtKodePaket = RSAritmatik!KodePaket TxtHP = RSAritmatik!Hp TxtHT = RSAritmatik!HT RSPaket.Open "Paket", Conn TxtNamaPaket = RSPaket!NamaPaket TxtNilaiHPS = RSPaket!NilHPS TxtKualifikasi = RSPaket!kf RSPerusahaan.Open "Perusahaan", Conn CmbKodePh = RSAritmatik!KodePh & Space(4) & RSPerusahaan!NamaPh End Sub Private Sub KosongkanText() TxtKodeArt = "" CmbKodePh = "" TxtKodePaket = "" TxtHP = "" TxtHT = "" TxtNamaPaket = "" TxtNamaPh = "" TxtNilaiHPS = "" TxtKualifikasi = "" End Sub
Teknik Informatika Universitas Serambi Mekkah Tahun 2011 Lampiran Coding Sistem Penunjang Keputusan (DSS) Pemenang Tender Proyek Menggunakan Metode Analityc Hierarchy Process (AHP)
- -
Nama : Teuku Mirwan Sahputra Nim : 0814030399
Private Sub TxtKodePaket_KeyPress(KeyAscii As Integer) KeyAscii = Asc(UCase(Chr(KeyAscii))) End Sub Private Sub PastikanData() Call Koneksi RSAritmatik.Open "Select * From Aritmatik where KodePh='" & Left(CmbKodePh, 3) & "'", Conn End Sub Sub Jalan() PG.Visible = True For i = 1 To 100 PG.Value = i For j = 1 To 1000000 Next j Next i PG.Value = 10 PG.Visible = False End Sub
Administrasi.frm
Sub Hitung() TxtJlhAdm1.Text = Val(TxtSkA1.Text) + Val(TxtSkA2.Text) + Val(TxtSkA3.Text) + Val(TxtSkA4.Text) + Val(TxtSkA5.Text) + Val(TxtSkA6.Text) + Val(TxtSkA7.Text) + Val(TxtSkA8.Text) + Val(TxtSkA9.Text) + Val(TxtSkA10.Text) + Val(TxtSkA11.Text) + Val(TxtSkA12.Text) + Val(TxtSkA13.Text) + Val(TxtSkA14.Text) + Val(TxtSkA15.Text) + Val(TxtSkA16.Text) End Sub Private Sub CmbKodePh_Click() On Error Resume Next Call Koneksi RSAritmatik.Open "Select * from Aritmatik where KodePh='" & Left(CmbKodePh, 3) & "'", Conn If RSAritmatik.EOF Then MsgBox "Kode Perusahaan tidak terdaftar" CmbKodePh.SetFocus Else TxtKodePaket = RSAritmatik!KodePaket RSPerusahaan.Open "Select * from Perusahaan where KodePh='" & Left(CmbKodePh, 3) & "'", Conn RSPaket.Open "Select * from Paket where KodePaket='" & Left(TxtKodePaket, 5) & "'", Conn TxtNamaPaket = RSPaket!NamaPaket End If
Teknik Informatika Universitas Serambi Mekkah Tahun 2011 Lampiran Coding Sistem Penunjang Keputusan (DSS) Pemenang Tender Proyek Menggunakan Metode Analityc Hierarchy Process (AHP)
- -
Nama : Teuku Mirwan Sahputra Nim : 0814030399 Conn.Close Call Koneksi RSAdministrasi.Open "Administrasi", Conn If CmdInput.Enabled = True Then Call CariData1 If Not RSAdministrasi.EOF Then TampilkanData1 TxtKodePaket = "" MsgBox "Kode Perusahaan Sudah Dimasukkan" CmbKodePh = "" TxtNamaPaket = "" CmbKodePh.SetFocus Else CmbKodePh.SetFocus End If End If Conn.Close End Sub Private Sub CmdBatal_Click() KosongkanText TidakSiapIsi KondisiAwal End Sub Private Sub CmdEdit_Click() If CmdEdit.Caption = "&Edit" Then CmdInput.Enabled = False CmdHapus.Enabled = False CmdTutup.Enabled = False CmdLihatHasil.Enabled = True CmdBatal.Enabled = True SiapIsi TxtEv = "" TxtKodeAdm.SetFocus End If End Sub Private Sub CmdHapus_Click() If CmdHapus.Caption = "&Hapus" Then CmdTutup.Enabled = False CmdInput.Enabled = False CmdEdit.Enabled = False CmdBatal.Enabled = True SiapIsi TxtEv = "" TxtKodeAdm.SetFocus End If End Sub Private Sub CmdInput_Click() If CmdInput.Caption = "&Input" Then CmdEdit.Enabled = False
Teknik Informatika Universitas Serambi Mekkah Tahun 2011 Lampiran Coding Sistem Penunjang Keputusan (DSS) Pemenang Tender Proyek Menggunakan Metode Analityc Hierarchy Process (AHP)
- -
Nama : Teuku Mirwan Sahputra Nim : 0814030399 CmdHapus.Enabled = False CmdLihatHasil.Enabled = True CmdBatal.Enabled = True CmdTutup.Enabled = False KosongkanText SiapIsi TxtEv = "" TxtKodeAdm.SetFocus End If End Sub Private Sub CmdLihatHasil_Click() If CmdLihatHasil.Caption = "&Lihat Hasil Evaluasi" Then Call HasilAdm Call Keterangan_Evaluasi CmdSimpan.Enabled = True End If End Sub Private Sub CmdSimpan_Click() If TxtKodeAdm = "" Or CmbKodePh = "" Or TxtKodePaket = "" Or TxtSkA1 = "" Or TxtSkA2 = "" Or TxtSkA3 = "" Or TxtSkA4 = "" Or TxtSkA5 = "" Or TxtSkA6 = "" Or TxtSkA7 = "" Or TxtSkA8 = "" Or TxtSkA9 = "" Or TxtSkA10 = "" Or TxtSkA11 = "" Or TxtSkA12 = "" Or TxtSkA13 = "" Or TxtSkA14 = "" Or TxtSkA15 = "" Or TxtSkA16 = "" Or TxtJlhAdm = "" Or TxtKetAdm = "" Then MsgBox "Data Belum Lengkap...!" Exit Sub Else Call Koneksi ADO.ConnectionString = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=spkptp" ADO.RecordSource = "Administrasi" ADO.Refresh Set DG.DataSource = ADO DG.Refresh If CmdInput.Enabled = True Then Dim SQLTambah As String SQLTambah = "Insert Into Administrasi (KodeAdm,KodePh,KodePaket,SkA1,SkA2,SkA3,SkA4," & _ "SkA5,SkA6,SkA7,SkA8,SkA9,SkA10,SkA11,SkA12,SkA13,SkA14,SkA15,SkA1 6,JlhAdm,KetAdm,AGugurAdm) values " & _ "('" & TxtKodeAdm & "','" & Left(CmbKodePh, 3) & "','" & TxtKodePaket & "','" & Val(TxtSkA1.Text) & "','" & Val(TxtSkA2.Text) & "'," & _ "'" & Val(TxtSkA3.Text) & "','" & Val(TxtSkA4.Text) & "','" & Val(TxtSkA5.Text) & "','" & Val(TxtSkA6.Text) & "','" & Val(TxtSkA7.Text) & "','" & Val(TxtSkA8.Text) & "'," & _
Teknik Informatika Universitas Serambi Mekkah Tahun 2011 Lampiran Coding Sistem Penunjang Keputusan (DSS) Pemenang Tender Proyek Menggunakan Metode Analityc Hierarchy Process (AHP)
- -
Nama : Teuku Mirwan Sahputra Nim : 0814030399 "'" & Val(TxtSkA9.Text) & "','" & Val(TxtSkA10.Text) & "','" & Val(TxtSkA11.Text) & "','" & Val(TxtSkA12.Text) & "','" & Val(TxtSkA13.Text) & "'," & _ "'" & Val(TxtSkA14.Text) & "','" & Val(TxtSkA15.Text) & "','" & Val(TxtSkA16.Text) & "','" & Format(TxtJlhAdm.Text) & "','" & TxtKetAdm & "','" & TxtAGugurAdm & "')" Conn.Execute (SQLTambah) Else Dim SQLEdit As String SQLEdit = "Update Administrasi Set KodePh = '" & Left(CmbKodePh, 3) & "',KodePaket='" & TxtKodePaket & "',SkA1='" & Val(TxtSkA1.Text) & "',SkA2='" & Val(TxtSkA2.Text) & "'," & _ "SkA3='" & Val(TxtSkA3.Text) & "',SkA4='" & Val(TxtSkA4.Text) & "',SkA5='" & Val(TxtSkA5.Text) & "',SkA6='" & Val(TxtSkA6.Text) & "',SkA7='" & Val(TxtSkA7.Text) & "'," & _ "SkA8='" & Val(TxtSkA8.Text) & "',SkA9='" & Val(TxtSkA9.Text) & "',SkA10='" & Val(TxtSkA10.Text) & "',SkA11='" & Val(TxtSkA11.Text) & "',SkA12='" & Val(TxtSkA12.Text) & "'," & _ "SkA13='" & Val(TxtSkA13.Text) & "',SkA14='" & Val(TxtSkA14.Text) & "',SkA15='" & Val(TxtSkA15.Text) & "',SkA16='" & Val(TxtSkA16.Text) & "',JlhAdm='" & Format(TxtJlhAdm.Text) & "'," & _ "KetAdm='" & TxtKetAdm & "',AGugurAdm='" & TxtAGugurAdm & "' where KodeAdm='" & TxtKodeAdm & "'" Conn.Execute (SQLEdit) End If Form_Activate Jalan KosongkanText KondisiAwal TxtEv = "" End If End Sub Private Sub CmdTutup_Click() Select Case CmdTutup.Caption Case "&Tutup" Unload Me Case "&Batal" TidakSiapIsi KondisiAwal End Select End Sub Private Sub Form_Activate() Call Koneksi ADO.ConnectionString = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=spkptp" ADO.RecordSource = "Administrasi ORDER BY JlhAdm DESC" ADO.Refresh Set DG.DataSource = ADO DG.Refresh
Teknik Informatika Universitas Serambi Mekkah Tahun 2011 Lampiran Coding Sistem Penunjang Keputusan (DSS) Pemenang Tender Proyek Menggunakan Metode Analityc Hierarchy Process (AHP)
- -
Nama : Teuku Mirwan Sahputra Nim : 0814030399
Call Koneksi RSAritmatik.Open "Aritmatik", Conn CmbKodePh.Clear Do Until RSAritmatik.EOF CmbKodePh.AddItem RSAritmatik!KodePh RSAritmatik.MoveNext Loop Call Koneksi RSPerusahaan.Open "Perusahaan", Conn CmbKodePh.Clear Do Until RSPerusahaan.EOF CmbKodePh.AddItem RSPerusahaan!KodePh & Space(3) & RSPerusahaan!NamaPh RSPerusahaan.MoveNext Loop Call Koneksi RSPaket.Open "Paket", Conn Do Until RSPaket.EOF TxtKodePaket = RSPaket!KodePaket & Space(5) & RSPaket!NamaPaket RSPaket.MoveNext Loop Call KosongkanText Call Koneksi RSAritmatik.Open "Select * From Aritmatik KodePh ORDER BY HP, HT", Conn List1.Clear Do Until RSAritmatik.EOF List1.AddItem RSAritmatik!KodePh RSAritmatik.MoveNext Loop End Sub Private Sub Form_Load() Call Koneksi TxtKodeAdm.MaxLength = 2 TxtSkA1.MaxLength = 4 TxtSkA2.MaxLength = 4 TxtSkA3.MaxLength = 4 TxtSkA4.MaxLength = 4 TxtSkA5.MaxLength = 4 TxtSkA6.MaxLength = 4 TxtSkA7.MaxLength = 4 TxtSkA8.MaxLength = 4 TxtSkA9.MaxLength = 4 TxtSkA10.MaxLength = 4 TxtSkA11.MaxLength = 4 TxtSkA12.MaxLength = 4
Teknik Informatika Universitas Serambi Mekkah Tahun 2011 Lampiran Coding Sistem Penunjang Keputusan (DSS) Pemenang Tender Proyek Menggunakan Metode Analityc Hierarchy Process (AHP)
- -
Nama : Teuku Mirwan Sahputra Nim : 0814030399 TxtSkA13.MaxLength = 4 TxtSkA14.MaxLength = 4 TxtSkA15.MaxLength = 4 TxtSkA16.MaxLength = 4 TxtJlhAdm.MaxLength = 5 TxtKetAdm.MaxLength = 11 TxtAGugurAdm.MaxLength = 200 TxtEv = "" KondisiAwal End Sub Private Sub List2_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then If DG.SelText <> Right(List1, 1) Then DG.SelText = Right(List1, 1) ADO.Recordset.Update Call Koneksi RSPaket.Open "Select * from Paket where KodePaket='" & Right(List1, 1) & "'", Conn RSPaket.Requery If Not RSPaket.EOF Then ADO.Recordset!KodePaket = RSPaket!KodePaket ADO.Recordset!NamaPaket = RSPaket!NamaPaket ADO.Recordset.Update DG.SetFocus DG.Col = 2 End If End If End If End Sub
Private Sub Option1_Click() If Option1.Value = True Then TxtSkA1.Text = "0.14" Call Hitung End Sub Private Sub Option10_Click() If Option10.Value = True Then TxtSkA2.Text = "1" Call Hitung End Sub Private Sub Option11_Click() If Option11.Value = True Then TxtSkA3.Text = "0.14" Call Hitung End Sub Private Sub Option12_Click() If Option12.Value = True Then TxtSkA3.Text = "0.24" Call Hitung End Sub Private Sub Option13_Click()
Teknik Informatika Universitas Serambi Mekkah Tahun 2011 Lampiran Coding Sistem Penunjang Keputusan (DSS) Pemenang Tender Proyek Menggunakan Metode Analityc Hierarchy Process (AHP)
- -
Nama : Teuku Mirwan Sahputra Nim : 0814030399 If Option13.Value = True Then TxtSkA3.Text = "0.39" Call Hitung End Sub Private Sub Option14_Click() If Option14.Value = True Then TxtSkA3.Text = "0.65" Call Hitung End Sub Private Sub Option15_Click() If Option15.Value = True Then TxtSkA3.Text = "1" Call Hitung End Sub Private Sub Option16_Click() If Option16.Value = True Then TxtSkA4.Text = "0.14" Call Hitung End Sub Private Sub Option17_Click() If Option17.Value = True Then TxtSkA4.Text = "0.24" Call Hitung End Sub Private Sub Option18_Click() If Option18.Value = True Then TxtSkA4.Text = "0.39" Call Hitung End Sub Private Sub Option19_Click() If Option19.Value = True Then TxtSkA4.Text = "0.65" Call Hitung End Sub Private Sub Option2_Click() If Option2.Value = True Then TxtSkA1.Text = "0.24" Call Hitung End Sub Private Sub Option20_Click() If Option20.Value = True Then TxtSkA4.Text = "1" Call Hitung End Sub Private Sub Option21_Click() If Option21.Value = True Then TxtSkA5.Text = "0.14" Call Hitung End Sub Private Sub Option22_Click() If Option22.Value = True Then TxtSkA5.Text = "0.24" Call Hitung End Sub
Teknik Informatika Universitas Serambi Mekkah Tahun 2011 Lampiran Coding Sistem Penunjang Keputusan (DSS) Pemenang Tender Proyek Menggunakan Metode Analityc Hierarchy Process (AHP)
- -
Nama : Teuku Mirwan Sahputra Nim : 0814030399 Private Sub Option23_Click() If Option23.Value = True Then TxtSkA5.Text = "0.39" Call Hitung End Sub Private Sub Option24_Click() If Option24.Value = True Then TxtSkA5.Text = "0.65" Call Hitung End Sub Private Sub Option25_Click() If Option25.Value = True Then TxtSkA5.Text = "1" Call Hitung End Sub Private Sub Option26_Click() If Option26.Value = True Then TxtSkA6.Text = "0.14" Call Hitung End Sub Private Sub Option27_Click() If Option27.Value = True Then TxtSkA6.Text = "0.24" Call Hitung End Sub Private Sub Option28_Click() If Option28.Value = True Then TxtSkA6.Text = "0.39" Call Hitung End Sub Private Sub Option29_Click() If Option29.Value = True Then TxtSkA6.Text = "0.65" Call Hitung End Sub Private Sub Option3_Click() If Option3.Value = True Then TxtSkA1.Text = "0.39" Call Hitung End Sub Private Sub Option30_Click() If Option30.Value = True Then TxtSkA6.Text = "1" Call Hitung End Sub Private Sub Option31_Click() If Option31.Value = True Then TxtSkA7.Text = "0.14" Call Hitung End Sub Private Sub Option32_Click() If Option32.Value = True Then TxtSkA7.Text = "0.24" Call Hitung End Sub
Teknik Informatika Universitas Serambi Mekkah Tahun 2011 Lampiran Coding Sistem Penunjang Keputusan (DSS) Pemenang Tender Proyek Menggunakan Metode Analityc Hierarchy Process (AHP)
- -
Nama : Teuku Mirwan Sahputra Nim : 0814030399
Private Sub Option33_Click() If Option33.Value = True Then TxtSkA7.Text = "0.39" Call Hitung End Sub Private Sub Option34_Click() If Option34.Value = True Then TxtSkA7.Text = "0.65" Call Hitung End Sub Private Sub Option35_Click() If Option35.Value = True Then TxtSkA7.Text = "1" Call Hitung End Sub Private Sub Option36_Click() If Option36.Value = True Then TxtSkA8.Text = "0.14" Call Hitung End Sub Private Sub Option37_Click() If Option37.Value = True Then TxtSkA8.Text = "0.24" Call Hitung End Sub Private Sub Option38_Click() If Option38.Value = True Then TxtSkA8.Text = "0.39" Call Hitung End Sub Private Sub Option39_Click() If Option39.Value = True Then TxtSkA8.Text = "0.65" Call Hitung End Sub Private Sub Option4_Click() If Option4.Value = True Then TxtSkA1.Text = "0.65" Call Hitung End Sub Private Sub Option40_Click() If Option40.Value = True Then TxtSkA8.Text = "1" Call Hitung End Sub Private Sub Option41_Click() If Option41.Value = True Then TxtSkA9.Text = "0.14" Call Hitung End Sub Private Sub Option42_Click() If Option42.Value = True Then TxtSkA9.Text = "0.24" Call Hitung
Teknik Informatika Universitas Serambi Mekkah Tahun 2011 Lampiran Coding Sistem Penunjang Keputusan (DSS) Pemenang Tender Proyek Menggunakan Metode Analityc Hierarchy Process (AHP)
- -
Nama : Teuku Mirwan Sahputra Nim : 0814030399 End Sub Private Sub Option43_Click() If Option43.Value = True Then TxtSkA9.Text = "0.39" Call Hitung End Sub Private Sub Option44_Click() If Option44.Value = True Then TxtSkA9.Text = "0.65" Call Hitung End Sub Private Sub Option45_Click() If Option45.Value = True Then TxtSkA9.Text = "1" Call Hitung End Sub Private Sub Option46_Click() If Option46.Value = True Then TxtSkA10.Text = "0.14" Call Hitung End Sub Private Sub Option47_Click() If Option47.Value = True Then TxtSkA10.Text = "0.24" Call Hitung End Sub Private Sub Option48_Click() If Option48.Value = True Then TxtSkA10.Text = "0.39" Call Hitung End Sub Private Sub Option49_Click() If Option49.Value = True Then TxtSkA10.Text = "0.65" Call Hitung End Sub Private Sub Option5_Click() If Option5.Value = True Then TxtSkA1.Text = "1" Call Hitung End Sub Private Sub Option50_Click() If Option50.Value = True Then TxtSkA10.Text = "1" Call Hitung End Sub Private Sub Option51_Click() If Option51.Value = True Then TxtSkA11.Text = "0.14" Call Hitung End Sub Private Sub Option52_Click() If Option52.Value = True Then TxtSkA11.Text = "0.24"
Teknik Informatika Universitas Serambi Mekkah Tahun 2011 Lampiran Coding Sistem Penunjang Keputusan (DSS) Pemenang Tender Proyek Menggunakan Metode Analityc Hierarchy Process (AHP)
- -
Nama : Teuku Mirwan Sahputra Nim : 0814030399 Call Hitung End Sub Private Sub Option53_Click() If Option53.Value = True Then TxtSkA11.Text = "0.39" Call Hitung End Sub Private Sub Option54_Click() If Option54.Value = True Then TxtSkA11.Text = "0.65" Call Hitung End Sub Private Sub Option55_Click() If Option55.Value = True Then TxtSkA11.Text = "1" Call Hitung End Sub Private Sub Option56_Click() If Option56.Value = True Then TxtSkA12.Text = "0.14" Call Hitung End Sub Private Sub Option57_Click() If Option57.Value = True Then TxtSkA12.Text = "0.24" Call Hitung End Sub Private Sub Option58_Click() If Option58.Value = True Then TxtSkA12.Text = "0.39" Call Hitung End Sub Private Sub Option59_Click() If Option59.Value = True Then TxtSkA12.Text = "0.65" Call Hitung End Sub Private Sub Option6_Click() If Option6.Value = True Then TxtSkA2.Text = "0.14" Call Hitung End Sub Private Sub Option60_Click() If Option60.Value = True Then TxtSkA12.Text = "1" Call Hitung End Sub Private Sub Option61_Click() If Option61.Value = True Then TxtSkA13.Text = "0.14" Call Hitung End Sub Private Sub Option62_Click()
Teknik Informatika Universitas Serambi Mekkah Tahun 2011 Lampiran Coding Sistem Penunjang Keputusan (DSS) Pemenang Tender Proyek Menggunakan Metode Analityc Hierarchy Process (AHP)
- -
Nama : Teuku Mirwan Sahputra Nim : 0814030399 If Option62.Value = True Then TxtSkA13.Text = "0.24" Call Hitung End Sub Private Sub Option63_Click() If Option63.Value = True Then TxtSkA13.Text = "0.39" Call Hitung End Sub Private Sub Option64_Click() If Option64.Value = True Then TxtSkA13.Text = "0.65" Call Hitung End Sub Private Sub Option65_Click() If Option65.Value = True Then TxtSkA13.Text = "1" Call Hitung End Sub Private Sub Option66_Click() If Option66.Value = True Then TxtSkA14.Text = "0.14" Call Hitung End Sub Private Sub Option67_Click() If Option67.Value = True Then TxtSkA14.Text = "0.24" Call Hitung End Sub Private Sub Option68_Click() If Option68.Value = True Then TxtSkA14.Text = "0.39" Call Hitung End Sub Private Sub Option69_Click() If Option69.Value = True Then TxtSkA14.Text = "0.65" Call Hitung End Sub Private Sub Option7_Click() If Option7.Value = True Then TxtSkA2.Text = "0.24" Call Hitung End Sub Private Sub Option70_Click() If Option70.Value = True Then TxtSkA14.Text = "1" Call Hitung End Sub Private Sub Option71_Click() If Option71.Value = True Then TxtSkA15.Text = "0.14" Call Hitung End Sub
Teknik Informatika Universitas Serambi Mekkah Tahun 2011 Lampiran Coding Sistem Penunjang Keputusan (DSS) Pemenang Tender Proyek Menggunakan Metode Analityc Hierarchy Process (AHP)
- -
Nama : Teuku Mirwan Sahputra Nim : 0814030399 Private Sub Option72_Click() If Option72.Value = True Then TxtSkA15.Text = "0.24" Call Hitung End Sub Private Sub Option73_Click() If Option73.Value = True Then TxtSkA15.Text = "0.39" Call Hitung End Sub Private Sub Option74_Click() If Option74.Value = True Then TxtSkA15.Text = "0.65" Call Hitung End Sub Private Sub Option75_Click() If Option75.Value = True Then TxtSkA15.Text = "1" Call Hitung End Sub Private Sub Option76_Click() If Option76.Value = True Then TxtSkA16.Text = "0.14" Call Hitung End Sub Private Sub Option77_Click() If Option77.Value = True Then TxtSkA16.Text = "0.24" Call Hitung End Sub Private Sub Option78_Click() If Option78.Value = True Then TxtSkA16.Text = "0.39" Call Hitung End Sub Private Sub Option79_Click() If Option79.Value = True Then TxtSkA16.Text = "0.65" Call Hitung End Sub Private Sub Option8_Click() If Option8.Value = True Then TxtSkA2.Text = "0.39" Call Hitung End Sub Private Sub Option80_Click() If Option80.Value = True Then TxtSkA16.Text = "1" Call Hitung End Sub Private Sub Option9_Click() If Option9.Value = True Then TxtSkA2.Text = "0.65" Call Hitung End Sub
Teknik Informatika Universitas Serambi Mekkah Tahun 2011 Lampiran Coding Sistem Penunjang Keputusan (DSS) Pemenang Tender Proyek Menggunakan Metode Analityc Hierarchy Process (AHP)
- -
Nama : Teuku Mirwan Sahputra Nim : 0814030399
Private Sub KondisiAwal() TidakSiapIsi CmdInput.Enabled = True CmdEdit.Enabled = True CmdHapus.Enabled = True CmdSimpan.Enabled = False CmdBatal.Enabled = False CmdTutup.Enabled = True End Sub Private Sub KosongkanText() TxtKodeAdm = "" CmbKodePh = "" TxtKodePaket = "" TxtNamaPaket = "" TxtSkA1 = "" TxtSkA2 = "" TxtSkA3 = "" TxtSkA4 = "" TxtSkA5 = "" TxtSkA6 = "" TxtSkA7 = "" TxtSkA8 = "" TxtSkA9 = "" TxtSkA10 = "" TxtSkA11 = "" TxtSkA12 = "" TxtSkA13 = "" TxtSkA14 = "" TxtSkA15 = "" TxtSkA16 = "" TxtJlhAdm = "" TxtKetAdm = "" TxtAGugurAdm = "" End Sub Private Sub SiapIsi() TxtKodeAdm.Enabled = True CmbKodePh.Enabled = True TxtSkA1.Enabled = True TxtSkA2.Enabled = True TxtSkA3.Enabled = True TxtSkA4.Enabled = True TxtSkA5.Enabled = True TxtSkA6.Enabled = True TxtSkA7.Enabled = True TxtSkA8.Enabled = True TxtSkA9.Enabled = True TxtSkA10.Enabled = True TxtSkA11.Enabled = True TxtSkA12.Enabled = True TxtSkA13.Enabled = True TxtSkA14.Enabled = True
Teknik Informatika Universitas Serambi Mekkah Tahun 2011 Lampiran Coding Sistem Penunjang Keputusan (DSS) Pemenang Tender Proyek Menggunakan Metode Analityc Hierarchy Process (AHP)
- -
Nama : Teuku Mirwan Sahputra Nim : 0814030399 TxtSkA15.Enabled = True TxtSkA16.Enabled = True TxtJlhAdm.Enabled = True TxtKetAdm.Enabled = True TxtAGugurAdm.Enabled = True TxtEv.Enabled = False End Sub Private Sub TidakSiapIsi() TxtKodeAdm.Enabled = False CmbKodePh.Enabled = False TxtSkA1.Enabled = False TxtSkA2.Enabled = False TxtSkA3.Enabled = False TxtSkA4.Enabled = False TxtSkA5.Enabled = False TxtSkA6.Enabled = False TxtSkA7.Enabled = False TxtSkA8.Enabled = False TxtSkA9.Enabled = False TxtSkA10.Enabled = False TxtSkA11.Enabled = False TxtSkA12.Enabled = False TxtSkA13.Enabled = False TxtSkA14.Enabled = False TxtSkA15.Enabled = False TxtSkA16.Enabled = False TxtJlhAdm.Enabled = False TxtKetAdm.Enabled = False TxtAGugurAdm.Enabled = False TxtEv.Enabled = False End Sub Private Sub Timer1_Timer() TxtEv.ForeColor = vbWhite End Sub Private Sub Timer2_Timer() TxtEv.ForeColor = vbYellow End Sub Private Sub Timer3_Timer() Label9.ForeColor = vbBlue End Sub Private Sub Timer4_Timer() Label9.ForeColor = vbRed End Sub Private Sub TxtAGugurAdm_KeyPress(KeyAscii As Integer) KeyAscii = Asc(UCase(Chr(KeyAscii))) If KeyAscii = 13 Then CmdSimpan.SetFocus End Sub
Teknik Informatika Universitas Serambi Mekkah Tahun 2011 Lampiran Coding Sistem Penunjang Keputusan (DSS) Pemenang Tender Proyek Menggunakan Metode Analityc Hierarchy Process (AHP)
- -
Nama : Teuku Mirwan Sahputra Nim : 0814030399 Private Sub TxtEv_KeyPress(KeyAscii As Integer) KeyAscii = Asc(UCase(Chr(KeyAscii))) End Sub
Private Sub TxtKetAdm_Change() If TxtKetAdm.Text = "LULUS" Then TxtEv.Text = "Lanjutkan ke Evaluasi Teknis" ElseIf TxtKetAdm.Text = "TIDAK LULUS" Then TxtEv.Text = "Tidak dapat melanjutkan ke Evaluasi berikutnya" End If End Sub Private Sub TxtKetAdm_KeyPress(KeyAscii As Integer) KeyAscii = Asc(UCase(Chr(KeyAscii))) End Sub Private Sub TxtKodeAdm_KeyPress(KeyAscii As Integer) KeyAscii = Asc(UCase(Chr(KeyAscii))) If KeyAscii = 13 Then If Len(TxtKodeAdm) < 2 Then MsgBox "Kode Harus 2 Digit" TxtKodeAdm.SetFocus Exit Sub Else CmbKodePh.SetFocus End If If CmdInput.Enabled = True Then Call CariData TxtNamaPaket = "" If Not RSAdministrasi.EOF Then TampilkanData MsgBox "Kode Administrasi Sudah Ada" KosongkanText TxtKodeAdm.SetFocus Else CmbKodePh.SetFocus End If End If If CmdEdit.Enabled = True Then Call CariData If Not RSAdministrasi.EOF Then TampilkanData TxtKodeAdm.Enabled = False CmbKodePh.SetFocus Else MsgBox "Kode Administrasi Tidak Ada" TxtKodeAdm = "" TxtKodeAdm.SetFocus End If End If
Teknik Informatika Universitas Serambi Mekkah Tahun 2011 Lampiran Coding Sistem Penunjang Keputusan (DSS) Pemenang Tender Proyek Menggunakan Metode Analityc Hierarchy Process (AHP)
- -
Nama : Teuku Mirwan Sahputra Nim : 0814030399 If CmdHapus.Enabled = True Then Call CariData If Not RSAdministrasi.EOF Then TampilkanData Pesan = MsgBox("Yakin akan dihapus", vbYesNo) If Pesan = vbYes Then Dim SQLHapus As String SQLHapus = "Delete From Administrasi where KodeAdm= '" & TxtKodeAdm & "'" Conn.Execute SQLHapus KondisiAwal KosongkanText Jalan Form_Activate Else KondisiAwal CmdHapus.SetFocus End If Else MsgBox "Data Tidak ditemukan" KosongkanText TxtKodeAdm.SetFocus End If End If End If End Sub Private Sub CariData() Call Koneksi RSAdministrasi.Open "Select * From Administrasi where KodeAdm='" & TxtKodeAdm & "'", Conn End Sub Private Sub TampilkanData() On Error Resume Next CmbKodePh = RSAdministrasi!KodePh TxtKodePaket = RSAdministrasi!KodePaket TxtSkA1.Text = RSAdministrasi!ska1 TxtSkA2.Text = RSAdministrasi!SkA2 TxtSkA3.Text = RSAdministrasi!SkA3 TxtSkA4.Text = RSAdministrasi!SkA4 TxtSkA5.Text = RSAdministrasi!SkA5 TxtSkA6.Text = RSAdministrasi!SkA6 TxtSkA7.Text = RSAdministrasi!SkA7 TxtSkA8.Text = RSAdministrasi!SkA8 TxtSkA9.Text = RSAdministrasi!SkA9 TxtSkA10.Text = RSAdministrasi!SkA10 TxtSkA11.Text = RSAdministrasi!SkA11 TxtSkA12.Text = RSAdministrasi!SkA12 TxtSkA13.Text = RSAdministrasi!SkA13 TxtSkA14.Text = RSAdministrasi!SkA14 TxtSkA15.Text = RSAdministrasi!SkA15 TxtSkA16.Text = RSAdministrasi!SkA16 TxtJlhAdm.Text = RSAdministrasi!JlhAdm
Teknik Informatika Universitas Serambi Mekkah Tahun 2011 Lampiran Coding Sistem Penunjang Keputusan (DSS) Pemenang Tender Proyek Menggunakan Metode Analityc Hierarchy Process (AHP)
- -
Nama : Teuku Mirwan Sahputra Nim : 0814030399 TxtKetAdm = RSAdministrasi!KetAdm TxtAGugurAdm = RSAdministrasi!AGugurAdm RSPaket.Open "Paket", Conn TxtNamaPaket = RSPaket!NamaPaket RSPerusahaan.Open "Perusahaan", Conn CmbKodePh = RSAdministrasi!KodePh & Space(4) & RSPerusahaan!NamaPh End Sub Private Sub Keterangan_Evaluasi() On Error Resume Next If TxtJlhAdm >= "5,7" Then TxtKetAdm = "LULUS" Else TxtKetAdm = "TIDAK LULUS" End If End Sub Private Sub CariData1() Call Koneksi RSAdministrasi.Open "Select * From Administrasi where KodePh='" & Left(CmbKodePh, 3) & "'", Conn End Sub Private Sub TampilkanData1() On Error Resume Next CmbKodePh = RSAdministrasi!KodePh End Sub Private Sub HasilAdm() TxtJlhAdm.Text = Val(TxtJlhAdm1.Text) * "0,42" End Sub Sub Jalan() PG.Visible = True For i = 1 To 100 PG.Value = i For j = 1 To 1000000 Next j Next i PG.Value = 10 PG.Visible = False End Sub
Teknis.frm
Sub Hitung()
Teknik Informatika Universitas Serambi Mekkah Tahun 2011 Lampiran Coding Sistem Penunjang Keputusan (DSS) Pemenang Tender Proyek Menggunakan Metode Analityc Hierarchy Process (AHP)
- -
Nama : Teuku Mirwan Sahputra Nim : 0814030399 TxtJlhTeknis1.Text = Val(TxtSkT1.Text) + Val(TxtSkT2.Text) + Val(TxtSkT3.Text) + Val(TxtSkT4.Text) + Val(TxtSkT5.Text) + Val(TxtSkT6.Text) End Sub Private Sub CmbKodePh_Click() On Error Resume Next Call Koneksi RSAdministrasi.Open "Select * from Administrasi where KodePh='" & Left(CmbKodePh, 3) & "'", Conn If RSAdministrasi.EOF Then MsgBox "Perusahaan ini tidak lulus evaluasi Administrasi" CmbKodePh.SetFocus Else TxtKodePaket = RSAdministrasi!KodePaket RSPerusahaan.Open "Select * from Perusahaan where KodePh='" & Left(CmbKodePh, 3) & "'", Conn RSPaket.Open "Select * from Paket where KodePaket='" & Left(TxtKodePaket, 5) & "'", Conn TxtNamaPaket = RSPaket!NamaPaket End If Conn.Close Call Koneksi RSTeknis.Open "Teknis", Conn If CmdInput.Enabled = True Then Call CariData1 If Not RSTeknis.EOF Then TampilkanData1 MsgBox "Kode Perusahaan Sudah Dimasukkan" CmbKodePh = "" TxtKodePaket = "" TxtNamaPaket = "" CmbKodePh.SetFocus Else CmbKodePh.SetFocus End If End If End Sub Private Sub CmdBatal_Click() KosongkanText TidakSiapIsi KondisiAwal End Sub Private Sub CmdEdit_Click() If CmdEdit.Caption = "&Edit" Then CmdInput.Enabled = False CmdHapus.Enabled = False CmdTutup.Enabled = False CmdLihatHasil.Enabled = True CmdBatal.Enabled = True KosongkanText
Teknik Informatika Universitas Serambi Mekkah Tahun 2011 Lampiran Coding Sistem Penunjang Keputusan (DSS) Pemenang Tender Proyek Menggunakan Metode Analityc Hierarchy Process (AHP)
- -
Nama : Teuku Mirwan Sahputra Nim : 0814030399 SiapIsi TxtEv = "" TxtKodeTeknis.SetFocus End If End Sub Private Sub CmdHapus_Click() If CmdHapus.Caption = "&Hapus" Then CmdTutup.Enabled = False CmdInput.Enabled = False CmdEdit.Enabled = False CmdBatal.Enabled = True SiapIsi TxtEv = "" TxtKodeTeknis.SetFocus End If End Sub Private Sub CmdInput_Click() If CmdInput.Caption = "&Input" Then CmdEdit.Enabled = False CmdHapus.Enabled = False CmdLihatHasil.Enabled = True CmdBatal.Enabled = True CmdTutup.Enabled = False KosongkanText SiapIsi TxtEv = "" TxtKodeTeknis.SetFocus End If End Sub Private Sub CmdLihatHasil_Click() If CmdLihatHasil.Caption = "&Lihat Hasil Evaluasi" Then Call HasilTeknis Call Keterangan_Evaluasi CmdSimpan.Enabled = True End If End Sub Private Sub CmdSimpan_Click() If TxtKodeTeknis = "" Or CmbKodePh = "" Or TxtKodePaket = "" Or TxtSkT1 = "" Or TxtSkT2 = "" Or TxtSkT3 = "" Or TxtSkT4 = "" Or TxtSkT5 = "" Or TxtSkT6 = "" Or TxtJlhTeknis = "" Or TxtKetTeknis = "" Then MsgBox "Data Belum Lengkap...!" Exit Sub Else Call Koneksi ADO.ConnectionString = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=spkptp" ADO.RecordSource = "Teknis" ADO.Refresh
Teknik Informatika Universitas Serambi Mekkah Tahun 2011 Lampiran Coding Sistem Penunjang Keputusan (DSS) Pemenang Tender Proyek Menggunakan Metode Analityc Hierarchy Process (AHP)
- -
Nama : Teuku Mirwan Sahputra Nim : 0814030399 Set DG.DataSource = ADO DG.Refresh If CmdInput.Enabled = True Then Dim SQLTambah As String SQLTambah = "Insert Into Teknis (KodeTeknis,KodePh,KodePaket,SkT1,SkT2,SkT3,SkT4," & _ "SkT5,SkT6,JlhTeknis,KetTeknis,AGugurTeknis) values " & _ "('" & TxtKodeTeknis & "','" & Left(CmbKodePh, 3) & "','" & TxtKodePaket & "','" & Val(TxtSkT1.Text) & "','" & Val(TxtSkT2.Text) & "'," & _ "'" & Val(TxtSkT3.Text) & "','" & Val(TxtSkT4.Text) & "','" & Val(TxtSkT5.Text) & "','" & Val(TxtSkT6.Text) & "'," & _ "'" & Format(TxtJlhTeknis.Text) & "','" & TxtKetTeknis & "','" & TxtAGugurTeknis & "')" Conn.Execute (SQLTambah) Else Dim SQLEdit As String SQLEdit = "Update Teknis Set KodePh = '" & Left(CmbKodePh, 3) & "',KodePaket='" & TxtKodePaket & "',SkT1='" & Val(TxtSkT1.Text) & "',SkT2='" & Val(TxtSkT2.Text) & "'," & _ "SkT3='" & Val(TxtSkT3.Text) & "',SkT4='" & Val(TxtSkT4.Text) & "',SkT5='" & Val(TxtSkT5.Text) & "',SkT6='" & Val(TxtSkT6.Text) & "'," & _ "JlhTeknis='" & Format(TxtJlhTeknis.Text) & "',KetTeknis='" & TxtKetTeknis & "',AGugurTeknis='" & TxtAGugurTeknis & "' where KodeTeknis='" & TxtKodeTeknis & "'" Conn.Execute (SQLEdit) End If Form_Activate Jalan KosongkanText KondisiAwal TxtEv = "" End If End Sub Private Sub CmdTutup_Click() Select Case CmdTutup.Caption Case "&Tutup" Unload Me Case "&Batal" TidakSiapIsi KondisiAwal End Select End Sub Private Sub Form_Activate() Call Koneksi ADO.ConnectionString = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=spkptp"
Teknik Informatika Universitas Serambi Mekkah Tahun 2011 Lampiran Coding Sistem Penunjang Keputusan (DSS) Pemenang Tender Proyek Menggunakan Metode Analityc Hierarchy Process (AHP)
- -
Nama : Teuku Mirwan Sahputra Nim : 0814030399 ADO.RecordSource = "Teknis ORDER BY JlhTeknis DESC" ADO.Refresh Set DG.DataSource = ADO DG.Refresh Call Koneksi RSAdministrasi.Open "Administrasi", Conn CmbKodePh.Clear Do Until RSAdministrasi.EOF CmbKodePh.AddItem RSAdministrasi!KodePh RSAdministrasi.MoveNext Loop Call Koneksi RSPerusahaan.Open "Perusahaan", Conn CmbKodePh.Clear Do Until RSPerusahaan.EOF CmbKodePh.AddItem RSPerusahaan!KodePh & Space(3) & RSPerusahaan!NamaPh RSPerusahaan.MoveNext Loop Call Koneksi RSPaket.Open "Paket", Conn Do Until RSPaket.EOF TxtKodePaket = RSPaket!KodePaket & Space(5) & RSPaket!NamaPaket RSPaket.MoveNext Loop Call KosongkanText Call Koneksi RSAdministrasi.Open "Administrasi", Conn List1.Clear Do Until RSAdministrasi.EOF List1.AddItem RSAdministrasi!KodePh & Space(4) & RSAdministrasi!KetAdm RSAdministrasi.MoveNext Loop End Sub Private Sub Form_Load() Call Koneksi TxtKodeTeknis.MaxLength = 2 TxtSkT1.MaxLength = 4 TxtSkT2.MaxLength = 4 TxtSkT3.MaxLength = 4 TxtSkT4.MaxLength = 4 TxtSkT5.MaxLength = 4 TxtSkT6.MaxLength = 4 TxtJlhTeknis.MaxLength = 6 TxtKetTeknis.MaxLength = 11
Teknik Informatika Universitas Serambi Mekkah Tahun 2011 Lampiran Coding Sistem Penunjang Keputusan (DSS) Pemenang Tender Proyek Menggunakan Metode Analityc Hierarchy Process (AHP)
- -
Nama : Teuku Mirwan Sahputra Nim : 0814030399 TxtAGugurTeknis.MaxLength = 100 TxtEv = "" KondisiAwal End Sub Private Sub Option1_Click() If Option1.Value = True Then TxtSkT1.Text = "0.14" Call Hitung End Sub Private Sub Option10_Click() If Option10.Value = True Then TxtSkT2.Text = "1" Call Hitung End Sub Private Sub Option11_Click() If Option11.Value = True Then TxtSkT3.Text = "0.14" Call Hitung End Sub Private Sub Option12_Click() If Option12.Value = True Then TxtSkT3.Text = "0.24" Call Hitung End Sub Private Sub Option13_Click() If Option13.Value = True Then TxtSkT3.Text = "0.39" Call Hitung End Sub Private Sub Option14_Click() If Option14.Value = True Then TxtSkT3.Text = "0.65" Call Hitung End Sub Private Sub Option15_Click() If Option15.Value = True Then TxtSkT3.Text = "1" Call Hitung End Sub Private Sub Option16_Click() If Option16.Value = True Then TxtSkT4.Text = "0.14" Call Hitung End Sub Private Sub Option17_Click() If Option17.Value = True Then TxtSkT4.Text = "0.24" Call Hitung End Sub Private Sub Option18_Click() If Option18.Value = True Then TxtSkT4.Text = "0.39" Call Hitung End Sub
Teknik Informatika Universitas Serambi Mekkah Tahun 2011 Lampiran Coding Sistem Penunjang Keputusan (DSS) Pemenang Tender Proyek Menggunakan Metode Analityc Hierarchy Process (AHP)
- -
Nama : Teuku Mirwan Sahputra Nim : 0814030399
Private Sub Option19_Click() If Option19.Value = True Then TxtSkT4.Text = "0.65" Call Hitung End Sub Private Sub Option2_Click() If Option2.Value = True Then TxtSkT1.Text = "0.24" Call Hitung End Sub Private Sub Option20_Click() If Option20.Value = True Then TxtSkT4.Text = "1" Call Hitung End Sub Private Sub Option21_Click() If Option21.Value = True Then TxtSkT5.Text = "0.14" Call Hitung End Sub Private Sub Option22_Click() If Option22.Value = True Then TxtSkT5.Text = "0.24" Call Hitung End Sub Private Sub Option23_Click() If Option23.Value = True Then TxtSkT5.Text = "0.39" Call Hitung End Sub Private Sub Option24_Click() If Option24.Value = True Then TxtSkT5.Text = "0.65" Call Hitung End Sub Private Sub Option25_Click() If Option25.Value = True Then TxtSkT5.Text = "1" Call Hitung End Sub Private Sub Option26_Click() If Option26.Value = True Then TxtSkT6.Text = "0.14" Call Hitung End Sub Private Sub Option27_Click() If Option27.Value = True Then TxtSkT6.Text = "0.24" Call Hitung End Sub Private Sub Option28_Click() If Option28.Value = True Then TxtSkT6.Text = "0.39" Call Hitung
Teknik Informatika Universitas Serambi Mekkah Tahun 2011 Lampiran Coding Sistem Penunjang Keputusan (DSS) Pemenang Tender Proyek Menggunakan Metode Analityc Hierarchy Process (AHP)
- -
Nama : Teuku Mirwan Sahputra Nim : 0814030399 End Sub Private Sub Option29_Click() If Option29.Value = True Then TxtSkT6.Text = "0.65" Call Hitung End Sub Private Sub Option3_Click() If Option3.Value = True Then TxtSkT1.Text = "0.39" Call Hitung End Sub Private Sub Option30_Click() If Option30.Value = True Then TxtSkT6.Text = "1" Call Hitung End Sub Private Sub Option4_Click() If Option4.Value = True Then TxtSkT1.Text = "0.65" Call Hitung End Sub Private Sub Option5_Click() If Option5.Value = True Then TxtSkT1.Text = "1" Call Hitung End Sub Private Sub Option6_Click() If Option6.Value = True Then TxtSkT2.Text = "0.14" Call Hitung End Sub Private Sub Option7_Click() If Option7.Value = True Then TxtSkT2.Text = "0.24" Call Hitung End Sub Private Sub Option8_Click() If Option8.Value = True Then TxtSkT2.Text = "0.39" Call Hitung End Sub Private Sub Option9_Click() If Option9.Value = True Then TxtSkT2.Text = "0.65" Call Hitung End Sub Private Sub Timer1_Timer() TxtEv.ForeColor = vbWhite End Sub Private Sub Timer2_Timer() TxtEv.ForeColor = vbYellow End Sub
Teknik Informatika Universitas Serambi Mekkah Tahun 2011 Lampiran Coding Sistem Penunjang Keputusan (DSS) Pemenang Tender Proyek Menggunakan Metode Analityc Hierarchy Process (AHP)
- -
Nama : Teuku Mirwan Sahputra Nim : 0814030399
Private Sub TxtAGugurTeknis_KeyPress(KeyAscii As Integer) KeyAscii = Asc(UCase(Chr(KeyAscii))) If KeyAscii = 13 Then CmdSimpan.SetFocus End Sub Private Sub TxtKetTeknis_Change() If TxtKetTeknis.Text = "LULUS" Then TxtEv.Text = "Lanjutkan ke Evaluasi Harga" ElseIf TxtKetTeknis.Text = "TIDAK LULUS" Then TxtEv.Text = "Tidak dapat melanjutkan ke Evaluasi berikutnya" End If End Sub Private Sub TxtKodeTeknis_KeyPress(KeyAscii As Integer) KeyAscii = Asc(UCase(Chr(KeyAscii))) If KeyAscii = 13 Then If Len(TxtKodeTeknis) < 2 Then MsgBox "Kode Harus 2 Digit" TxtKodeTeknis.SetFocus Exit Sub Else CmbKodePh.SetFocus End If
If CmdInput.Enabled = True Then Call CariData TxtNamaPaket = "" If Not RSTeknis.EOF Then TampilkanData MsgBox "Kode Teknis Sudah Ada" KosongkanText TxtKodeTeknis.SetFocus Else CmbKodePh.SetFocus End If End If If CmdEdit.Enabled = True Then Call CariData If Not RSTeknis.EOF Then TampilkanData TxtKodeTeknis.Enabled = False CmbKodePh.SetFocus Else MsgBox "Kode Teknis Tidak Ada" TxtKodeTeknis = "" TxtKodeTeknis.SetFocus End If End If If CmdHapus.Enabled = True Then
Teknik Informatika Universitas Serambi Mekkah Tahun 2011 Lampiran Coding Sistem Penunjang Keputusan (DSS) Pemenang Tender Proyek Menggunakan Metode Analityc Hierarchy Process (AHP)
- -
Nama : Teuku Mirwan Sahputra Nim : 0814030399 Call CariData If Not RSTeknis.EOF Then TampilkanData Pesan = MsgBox("Yakin akan dihapus", vbYesNo) If Pesan = vbYes Then Dim SQLHapus As String SQLHapus = "Delete From Teknis where KodeTeknis= '" & TxtKodeTeknis & "'" Conn.Execute SQLHapus KondisiAwal KosongkanText Jalan Form_Activate Else KondisiAwal CmdHapus.SetFocus End If Else MsgBox "Data Tidak ditemukan" KosongkanText TxtKodeTeknis.SetFocus End If End If End If End Sub Private Sub TampilkanData() On Error Resume Next CmbKodePh = RSTeknis!KodePh TxtKodePaket = RSTeknis!KodePaket TxtSkT1.Text = RSTeknis!skT1 TxtSkT2.Text = RSTeknis!SkT2 TxtSkT3.Text = RSTeknis!SkT3 TxtSkT4.Text = RSTeknis!SkT4 TxtSkT5.Text = RSTeknis!SkT5 TxtSkT6.Text = RSTeknis!SkT6 TxtJlhTeknis.Text = RSTeknis!JlhTeknis TxtKetTeknis = RSTeknis!KetTeknis TxtAGugurTeknis = RSTeknis!AGugurTeknis RSPaket.Open "Paket", Conn TxtNamaPaket = RSPaket!NamaPaket RSPerusahaan.Open "Perusahaan", Conn CmbKodePh = RSTeknis!KodePh & Space(4) & RSPerusahaan!NamaPh End Sub Private Sub CariData() Call Koneksi RSTeknis.Open "Select * From Teknis where KodeTeknis='" & TxtKodeTeknis & "'", Conn End Sub Private Sub SiapIsi() TxtKodeTeknis.Enabled = True
Teknik Informatika Universitas Serambi Mekkah Tahun 2011 Lampiran Coding Sistem Penunjang Keputusan (DSS) Pemenang Tender Proyek Menggunakan Metode Analityc Hierarchy Process (AHP)
- -
Nama : Teuku Mirwan Sahputra Nim : 0814030399 CmbKodePh.Enabled = True TxtSkT1.Enabled = True TxtSkT2.Enabled = True TxtSkT3.Enabled = True TxtSkT4.Enabled = True TxtSkT5.Enabled = True TxtSkT6.Enabled = True TxtJlhTeknis.Enabled = True TxtKetTeknis.Enabled = True TxtAGugurTeknis.Enabled = True TxtEv.Enabled = False End Sub Private Sub TidakSiapIsi() TxtKodeTeknis.Enabled = False CmbKodePh.Enabled = False TxtSkT1.Enabled = False TxtSkT2.Enabled = False TxtSkT3.Enabled = False TxtSkT4.Enabled = False TxtSkT5.Enabled = False TxtSkT6.Enabled = False TxtJlhTeknis.Enabled = False TxtKetTeknis.Enabled = False TxtAGugurTeknis.Enabled = False TxtEv.Enabled = False End Sub Private Sub KosongkanText() TxtKodeTeknis = "" CmbKodePh = "" TxtKodePaket = "" TxtNamaPaket = "" TxtSkT1 = "" TxtSkT2 = "" TxtSkT3 = "" TxtSkT4 = "" TxtSkT5 = "" TxtSkT6 = "" TxtJlhTeknis = "" TxtKetTeknis = "" TxtAGugurTeknis = "" End Sub Private Sub KondisiAwal() TidakSiapIsi CmdInput.Enabled = True CmdEdit.Enabled = True CmdHapus.Enabled = True CmdSimpan.Enabled = False CmdBatal.Enabled = False CmdTutup.Enabled = True End Sub
Teknik Informatika Universitas Serambi Mekkah Tahun 2011 Lampiran Coding Sistem Penunjang Keputusan (DSS) Pemenang Tender Proyek Menggunakan Metode Analityc Hierarchy Process (AHP)
- -
Nama : Teuku Mirwan Sahputra Nim : 0814030399 Private Sub Keterangan_Evaluasi() On Error Resume Next If TxtJlhTeknis >= 1 Then TxtKetTeknis = "LULUS" Else TxtKetTeknis = "TIDAK LULUS" TxtAGugurTeknis.SetFocus End If End Sub Private Sub CariData1() Call Koneksi RSTeknis.Open "Select * From Teknis where KodePh='" & Left(CmbKodePh, 3) & "'", Conn End Sub Private Sub TampilkanData1() On Error Resume Next CmbKodePh = RSTeknis!KodePh End Sub Private Sub HasilTeknis() TxtJlhTeknis.Text = Val(TxtJlhTeknis1.Text) * "0,21" End Sub Sub Jalan() PG.Visible = True For i = 1 To 100 PG.Value = i For j = 1 To 1000000 Next j Next i PG.Value = 10 PG.Visible = False End Sub
Harga.frm
Sub Hitung() TxtJlhHarga1.Text = Val(TxtSkH1.Text) + Val(TxtSkH2.Text) + Val(TxtSkH3.Text) + Val(TxtSkH4.Text) End Sub Private Sub CmbKodePh_Click() On Error Resume Next Call Koneksi
Teknik Informatika Universitas Serambi Mekkah Tahun 2011 Lampiran Coding Sistem Penunjang Keputusan (DSS) Pemenang Tender Proyek Menggunakan Metode Analityc Hierarchy Process (AHP)
- -
Nama : Teuku Mirwan Sahputra Nim : 0814030399 RSTeknis.Open "Select * from Teknis where KodePh='" & Left(CmbKodePh, 3) & "'", Conn If RSTeknis.EOF Then MsgBox "Kode Perusahaan tidak terdaftar" CmbKodePh.SetFocus Else TxtKodePaket = RSTeknis!KodePaket RSPerusahaan.Open "Select * from Perusahaan where KodePh='" & Left(CmbKodePh, 3) & "'", Conn RSPaket.Open "Select * from Paket where KodePaket='" & Left(TxtKodePaket, 5) & "'", Conn TxtNamaPaket = RSPaket!NamaPaket End If Conn.Close Call Koneksi RSHarga.Open "Harga", Conn If CmdInput.Enabled = True Then Call CariData1 If Not RSHarga.EOF Then TampilkanData1 MsgBox "Kode Perusahaan Sudah Dimasukkan" CmbKodePh = "" TxtKodePaket = "" TxtNamaPaket = "" CmbKodePh.SetFocus Else CmbKodePh.SetFocus End If End If Conn.Close End Sub Private Sub CmdBatal_Click() KosongkanText TidakSiapIsi KondisiAwal End Sub Private Sub CmdEdit_Click() If CmdEdit.Caption = "&Edit" Then CmdInput.Enabled = False CmdHapus.Enabled = False CmdTutup.Enabled = False CmdLihatHasil.Enabled = True CmdBatal.Enabled = True SiapIsi TxtEv = "" TxtKodeHarga.SetFocus End If End Sub Private Sub CmdHapus_Click() If CmdHapus.Caption = "&Hapus" Then
Teknik Informatika Universitas Serambi Mekkah Tahun 2011 Lampiran Coding Sistem Penunjang Keputusan (DSS) Pemenang Tender Proyek Menggunakan Metode Analityc Hierarchy Process (AHP)
- -
Nama : Teuku Mirwan Sahputra Nim : 0814030399 CmdTutup.Enabled = False CmdInput.Enabled = False CmdEdit.Enabled = False CmdBatal.Enabled = True SiapIsi TxtEv = "" TxtKodeHarga.SetFocus End If End Sub Private Sub CmdInput_Click() If CmdInput.Caption = "&Input" Then CmdEdit.Enabled = False CmdHapus.Enabled = False CmdLihatHasil.Enabled = True CmdBatal.Enabled = True CmdTutup.Enabled = False KosongkanText SiapIsi TxtEv = "" TxtKodeHarga.SetFocus End If End Sub
Private Sub CmdLihatHasil_Click() If CmdLihatHasil.Caption = "&Hasil Evaluasi" Then Call HasilHarga Call Evaluasi CmdSimpan.Enabled = True End If End Sub Private Sub CmdSimpan_Click() If TxtKodeHarga = "" Or CmbKodePh = "" Or TxtKodePaket = "" Or TxtSkH1 = "" Or TxtSkH2 = "" Or TxtSkH3 = "" Or TxtSkH4 = "" Or TxtJlhHarga = "" Or TxtKetHarga = "" Then MsgBox "Data Belum Lengkap...!" Exit Sub Else Call Koneksi ADO.ConnectionString = "Provider=MSDASQL.1;Persist Security Info=False;Data Source=spkptp;Initial Catalog=spkptp" ADO.RecordSource = "Harga" ADO.Refresh Set DG.DataSource = ADO DG.Refresh If CmdInput.Enabled = True Then Dim SQLTambah As String SQLTambah = "Insert Into Harga (KodeHarga,KodePh,KodePaket,Skh1,Skh2,Skh3,Skh4,JlhHarga,KetHarga, AGugurHarga) values " & _
Teknik Informatika Universitas Serambi Mekkah Tahun 2011 Lampiran Coding Sistem Penunjang Keputusan (DSS) Pemenang Tender Proyek Menggunakan Metode Analityc Hierarchy Process (AHP)
- -
Nama : Teuku Mirwan Sahputra Nim : 0814030399 "('" & TxtKodeHarga & "','" & Left(CmbKodePh, 3) & "','" & TxtKodePaket & "','" & Val(TxtSkH1.Text) & "','" & Val(TxtSkH2.Text) & "'," & _ "'" & Val(TxtSkH3.Text) & "','" & Val(TxtSkH4.Text) & "','" & Format(TxtJlhHarga.Text) & "','" & TxtKetHarga & "','" & TxtAGugurHarga & "')" Conn.Execute (SQLTambah) Else Dim SQLEdit As String SQLEdit = "Update Harga Set KodePh = '" & Left(CmbKodePh, 3) & "',KodePaket='" & TxtKodePaket & "',SkH1='" & Val(TxtSkH1.Text) & "',SkH2='" & Val(TxtSkH2.Text) & "'," & _ "SkH3='" & Val(TxtSkH3.Text) & "',SkH4='" & Val(TxtSkH4.Text) & "',JlhHarga='" & Format(TxtJlhHarga.Text) & "'," & _ "KetHarga='" & TxtKetHarga & "',AGugurHarga='" & TxtAGugurHarga & "' where KodeHarga='" & TxtKodeHarga & "'" Conn.Execute (SQLEdit) End If Form_Activate Jalan KosongkanText KondisiAwal TxtEv = "" End If End Sub Private Sub CmdTutup_Click() Select Case CmdTutup.Caption Case "&Tutup" Unload Me Case "&Batal" TidakSiapIsi KondisiAwal End Select End Sub Private Sub Form_Activate() Call Koneksi ADO.ConnectionString = "Provider=MSDASQL.1;Persist Security Info=False;Data Source=spkptp;Initial Catalog=spkptp" ADO.RecordSource = "Harga ORDER BY JlhHarga DESC" ADO.Refresh Set DG.DataSource = ADO DG.Refresh Call Koneksi RSTeknis.Open "Teknis", Conn CmbKodePh.Clear Do Until RSTeknis.EOF CmbKodePh.AddItem RSTeknis!KodePh RSTeknis.MoveNext Loop
Teknik Informatika Universitas Serambi Mekkah Tahun 2011 Lampiran Coding Sistem Penunjang Keputusan (DSS) Pemenang Tender Proyek Menggunakan Metode Analityc Hierarchy Process (AHP)
- -
Nama : Teuku Mirwan Sahputra Nim : 0814030399
Call Koneksi RSPerusahaan.Open "Perusahaan", Conn CmbKodePh.Clear Do Until RSPerusahaan.EOF CmbKodePh.AddItem RSPerusahaan!KodePh & Space(3) & RSPerusahaan!NamaPh RSPerusahaan.MoveNext Loop Call Koneksi RSPaket.Open "Paket", Conn Do Until RSPaket.EOF TxtKodePaket = RSPaket!KodePaket & Space(5) & RSPaket!NamaPaket RSPaket.MoveNext Loop Call KosongkanText Call Koneksi RSTeknis.Open "Teknis", Conn List1.Clear Do Until RSTeknis.EOF List1.AddItem RSTeknis!KodePh & Space(4) & RSTeknis!KetTeknis RSTeknis.MoveNext Loop Call Koneksi RSAritmatik.Open "Select * FROM Aritmatik ORDER BY HP,HT", Conn List2.Clear Do Until RSAritmatik.EOF List2.AddItem RSAritmatik!KodePh & Space(4) & RSAritmatik!Hp RSAritmatik.MoveNext Loop End Sub Private Sub Form_Load() Call Koneksi TxtKodeHarga.MaxLength = 2 TxtSkH1.MaxLength = 4 TxtSkH2.MaxLength = 4 TxtSkH3.MaxLength = 4 TxtSkH4.MaxLength = 4 TxtJlhHarga.MaxLength = 8 TxtKetHarga.MaxLength = 11 TxtAGugurHarga.MaxLength = 100 TxtEv = "" KondisiAwal End Sub Private Sub Option1_Click() If Option1.Value = True Then TxtSkH1.Text = "0.14"
Teknik Informatika Universitas Serambi Mekkah Tahun 2011 Lampiran Coding Sistem Penunjang Keputusan (DSS) Pemenang Tender Proyek Menggunakan Metode Analityc Hierarchy Process (AHP)
- -
Nama : Teuku Mirwan Sahputra Nim : 0814030399 Call Hitung End Sub Private Sub Option10_Click() If Option10.Value = True Then TxtSkH2.Text = "1" Call Hitung End Sub Private Sub Option11_Click() If Option11.Value = True Then TxtSkH3.Text = "0.14" Call Hitung End Sub Private Sub Option12_Click() If Option12.Value = True Then TxtSkH3.Text = "0.24" Call Hitung End Sub Private Sub Option13_Click() If Option13.Value = True Then TxtSkH3.Text = "0.39" Call Hitung End Sub Private Sub Option14_Click() If Option14.Value = True Then TxtSkH3.Text = "0.65" Call Hitung End Sub Private Sub Option15_Click() If Option15.Value = True Then TxtSkH3.Text = "1" Call Hitung End Sub Private Sub Option16_Click() If Option16.Value = True Then TxtSkH4.Text = "0.14" Call Hitung End Sub Private Sub Option17_Click() If Option17.Value = True Then TxtSkH4.Text = "0.24" Call Hitung End Sub Private Sub Option18_Click() If Option18.Value = True Then TxtSkH4.Text = "0.39" Call Hitung End Sub Private Sub Option19_Click() If Option19.Value = True Then TxtSkH4.Text = "0.65" Call Hitung End Sub Private Sub Option2_Click()
Teknik Informatika Universitas Serambi Mekkah Tahun 2011 Lampiran Coding Sistem Penunjang Keputusan (DSS) Pemenang Tender Proyek Menggunakan Metode Analityc Hierarchy Process (AHP)
- -
Nama : Teuku Mirwan Sahputra Nim : 0814030399 If Option2.Value = True Then TxtSkH1.Text = "0.24" Call Hitung End Sub Private Sub Option20_Click() If Option20.Value = True Then TxtSkH4.Text = "1" Call Hitung End Sub Private Sub Option3_Click() If Option3.Value = True Then TxtSkH1.Text = "0.39" Call Hitung End Sub Private Sub Option4_Click() If Option4.Value = True Then TxtSkH1.Text = "0.65" Call Hitung End Sub Private Sub Option5_Click() If Option5.Value = True Then TxtSkH1.Text = "1" Call Hitung End Sub Private Sub Option6_Click() If Option6.Value = True Then TxtSkH2.Text = "0.14" Call Hitung End Sub Private Sub Option7_Click() If Option7.Value = True Then TxtSkH2.Text = "0.24" Call Hitung End Sub Private Sub Option8_Click() If Option8.Value = True Then TxtSkH2.Text = "0.39" Call Hitung End Sub Private Sub Option9_Click() If Option9.Value = True Then TxtSkH2.Text = "0.65" Call Hitung End Sub Private Sub TxtAGugurHarga_KeyPress(KeyAscii As Integer) KeyAscii = Asc(UCase(Chr(KeyAscii))) If KeyAscii = 13 Then CmdSimpan.SetFocus End Sub Private Sub TxtKetHarga_Change() If TxtKetHarga.Text = "LULUS" Then TxtEv.Text = "Lanjutkan ke Evaluasi Kualifikasi" ElseIf TxtKetHarga.Text = "TIDAK LULUS" Then TxtEv.Text = "Tidak dapat melanjutkan ke Evaluasi berikutnya"
Teknik Informatika Universitas Serambi Mekkah Tahun 2011 Lampiran Coding Sistem Penunjang Keputusan (DSS) Pemenang Tender Proyek Menggunakan Metode Analityc Hierarchy Process (AHP)
- -
Nama : Teuku Mirwan Sahputra Nim : 0814030399 End If End Sub Private Sub TxtKodeHarga_KeyPress(KeyAscii As Integer) KeyAscii = Asc(UCase(Chr(KeyAscii))) If KeyAscii = 13 Then If Len(TxtKodeHarga) < 2 Then MsgBox "Kode Harus 2 Digit" TxtKodeHarga.SetFocus Exit Sub Else CmbKodePh.SetFocus End If If CmdInput.Enabled = True Then Call CariData If Not RSHarga.EOF Then TampilkanData MsgBox "Kode Harga Sudah Ada" KosongkanText TxtKodeHarga.SetFocus Else CmbKodePh.SetFocus End If End If If CmdEdit.Enabled = True Then Call CariData If Not RSHarga.EOF Then TampilkanData TxtKodeHarga.Enabled = False CmbKodePh.SetFocus Else MsgBox "Kode Harga Tidak Ada" TxtKodeHarga = "" TxtKodeHarga.SetFocus End If End If If CmdHapus.Enabled = True Then Call CariData If Not RSHarga.EOF Then TampilkanData Pesan = MsgBox("Yakin akan dihapus", vbYesNo) If Pesan = vbYes Then Dim SQLHapus As String SQLHapus = "Delete From Harga where KodeHarga= '" & TxtKodeHarga & "'" Conn.Execute SQLHapus KondisiAwal KosongkanText Jalan Form_Activate Else
Teknik Informatika Universitas Serambi Mekkah Tahun 2011 Lampiran Coding Sistem Penunjang Keputusan (DSS) Pemenang Tender Proyek Menggunakan Metode Analityc Hierarchy Process (AHP)
- -
Nama : Teuku Mirwan Sahputra Nim : 0814030399 KondisiAwal CmdHapus.SetFocus End If Else MsgBox "Data Tidak ditemukan" TxtKodeHarga.SetFocus End If End If End If End Sub Private Sub KondisiAwal() TidakSiapIsi CmdInput.Enabled = True CmdEdit.Enabled = True CmdHapus.Enabled = True CmdSimpan.Enabled = False CmdBatal.Enabled = False CmdTutup.Enabled = True End Sub Private Sub KosongkanText() TxtKodeHarga = "" CmbKodePh = "" TxtKodePaket = "" TxtNamaPaket = "" TxtSkH1 = "" TxtSkH2 = "" TxtSkH3 = "" TxtSkH4 = "" TxtJlhHarga = "" TxtKetHarga = "" TxtAGugurHarga = "" End Sub Private Sub SiapIsi() TxtKodeHarga.Enabled = True CmbKodePh.Enabled = True TxtSkH1.Enabled = True TxtSkH2.Enabled = True TxtSkH3.Enabled = True TxtSkH4.Enabled = True TxtJlhHarga.Enabled = True TxtKetHarga.Enabled = True TxtAGugurHarga.Enabled = True TxtEv.Enabled = False End Sub Private Sub TidakSiapIsi() TxtKodeHarga.Enabled = False CmbKodePh.Enabled = False TxtSkH1.Enabled = False TxtSkH2.Enabled = False TxtSkH3.Enabled = False
Teknik Informatika Universitas Serambi Mekkah Tahun 2011 Lampiran Coding Sistem Penunjang Keputusan (DSS) Pemenang Tender Proyek Menggunakan Metode Analityc Hierarchy Process (AHP)
- -
Nama : Teuku Mirwan Sahputra Nim : 0814030399 TxtSkH4.Enabled = False TxtJlhHarga.Enabled = False TxtKetHarga.Enabled = False TxtAGugurHarga.Enabled = False TxtEv.Enabled = False End Sub Private Sub Timer1_Timer() TxtEv.ForeColor = vbWhite End Sub Private Sub Timer2_Timer() TxtEv.ForeColor = vbYellow End Sub Private Sub CariData() Call Koneksi RSHarga.Open "Select * From Harga where KodeHarga='" & TxtKodeHarga & "'", Conn End Sub Private Sub TampilkanData() On Error Resume Next CmbKodePh = RSHarga!KodePh TxtKodePaket = RSHarga!KodePaket TxtSkH1.Text = RSHarga!skh1 TxtSkH2.Text = RSHarga!SkH2 TxtSkH3.Text = RSHarga!SkH3 TxtSkH4.Text = RSHarga!SkH4 TxtJlhHarga.Text = RSHarga!JlhHarga TxtKetHarga = RSHarga!KetHarga TxtAGugurHarga = RSHarga!AGugurHarga RSPaket.Open "Paket", Conn TxtNamaPaket = RSPaket!NamaPaket RSPerusahaan.Open "Perusahaan", Conn CmbKodePh = RSHarga!KodePh & Space(4) & RSPerusahaan!NamaPh End Sub Private Sub CariData1() Call Koneksi RSHarga.Open "Select * From Harga where KodePh='" & Left(CmbKodePh, 3) & "'", Conn End Sub Private Sub TampilkanData1() On Error Resume Next CmbKodePh = RSHarga!KodePh End Sub Private Sub Evaluasi() On Error Resume Next If TxtJlhHarga >= "0,3" Then TxtKetHarga = "LULUS"
Teknik Informatika Universitas Serambi Mekkah Tahun 2011 Lampiran Coding Sistem Penunjang Keputusan (DSS) Pemenang Tender Proyek Menggunakan Metode Analityc Hierarchy Process (AHP)
- -
Nama : Teuku Mirwan Sahputra Nim : 0814030399 Else TxtKetHarga = "TIDAK LULUS" TxtAGugurHarga.SetFocus End If End Sub Private Sub HasilHarga() TxtJlhHarga.Text = Val(TxtJlhHarga1.Text) * "0,10" End Sub Sub Jalan() PG.Visible = True For i = 1 To 100 PG.Value = i For j = 1 To 1000000 Next j Next i PG.Value = 10 PG.Visible = False End Sub
Kualifikasi.frm
Private Sub CmbKodePh_Click() On Error Resume Next Call Koneksi RSHarga.Open "Select * from Harga where KodePh='" & Left(CmbKodePh, 3) & "'", Conn If RSHarga.EOF Then MsgBox "Kode Perusahaan tidak terdaftar" CmbKodePh.SetFocus Else TxtKodePaket = RSHarga!KodePaket RSPerusahaan.Open "Select * from Perusahaan where KodePh='" & Left(CmbKodePh, 3) & "'", Conn RSPaket.Open "Select * from Paket where KodePaket='" & Left(TxtKodePaket, 5) & "'", Conn TxtNamaPaket = RSPaket!NamaPaket End If Conn.Close Call Koneksi RSKualifikasi.Open "Kualifikasi", Conn If CmdInput.Enabled = True Then Call CariData1 If Not RSKualifikasi.EOF Then TampilkanData1
Teknik Informatika Universitas Serambi Mekkah Tahun 2011 Lampiran Coding Sistem Penunjang Keputusan (DSS) Pemenang Tender Proyek Menggunakan Metode Analityc Hierarchy Process (AHP)
- -
Nama : Teuku Mirwan Sahputra Nim : 0814030399 MsgBox "Kode Perusahaan Sudah Dimasukkan" CmbKodePh = "" TxtKodePaket = "" TxtNamaPaket = "" CmbKodePh.SetFocus Else CmbKodePh.SetFocus End If End If Conn.Close End Sub Private Sub CmdBatal_Click() KosongkanText TidakSiapIsi KondisiAwal End Sub Private Sub CmdEdit_Click() If CmdEdit.Caption = "&Edit" Then CmdInput.Enabled = False CmdHapus.Enabled = False CmdTutup.Enabled = False CmdLihatHasil.Enabled = True CmdBatal.Enabled = True SiapIsi TxtEv = "" TxtKodeKualifikasi.SetFocus End If End Sub Private Sub CmdHapus_Click() If CmdHapus.Caption = "&Hapus" Then CmdTutup.Enabled = False CmdInput.Enabled = False CmdEdit.Enabled = False CmdBatal.Enabled = True SiapIsi TxtEv = "" TxtKodeKualifikasi.SetFocus End If End Sub Private Sub CmdInput_Click() If CmdInput.Caption = "&Input" Then CmdEdit.Enabled = False CmdHapus.Enabled = False CmdLihatHasil.Enabled = True CmdBatal.Enabled = True CmdTutup.Enabled = False KosongkanText SiapIsi TxtEv = "" TxtKodeKualifikasi.SetFocus
Teknik Informatika Universitas Serambi Mekkah Tahun 2011 Lampiran Coding Sistem Penunjang Keputusan (DSS) Pemenang Tender Proyek Menggunakan Metode Analityc Hierarchy Process (AHP)
- -
Nama : Teuku Mirwan Sahputra Nim : 0814030399 End If End Sub Private Sub CmdLihatHasil_Click() If CmdLihatHasil.Caption = "&Hasil Evaluasi" Then Call Hasil CmdSimpan.Enabled = True TxtAGugurKualifikasi.Enabled = True End If End Sub Private Sub CmdSimpan_Click() If TxtKodeKualifikasi = "" Or CmbKodePh = "" Or TxtKodePaket Or TxtSkK1 = "" Or TxtSkk2 = "" Or TxtSkk3 = "" Or TxtSkk4 = TxtSkk5 = "" Or TxtSkk6 = "" Or TxtSkk7 = "" Or TxtSkk8 = "" TxtSkk9 = "" Or TxtSkk10 = "" Or TxtSkk11 = "" Or TxtSkk12 = TxtSkk13 = "" Or TxtSkk14 = "" Or TxtSkk15 = "" Or TxtKetKualifikasi = "" Then MsgBox "Data Belum Lengkap...!" Exit Sub Else
= "" "" Or Or "" Or
Call Koneksi ADO.ConnectionString = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=spkptp" ADO.RecordSource = "Kualifikasi" ADO.Refresh Set DG.DataSource = ADO DG.Refresh If CmdInput.Enabled = True Then Dim SQLTambah As String SQLTambah = "Insert Into Kualifikasi (KodeKualifikasi,KodePh,KodePaket,Skk1,SkK2,SkK3,SkK4," & _ "SkK5,SkK6,SkK7,SkK8,SkK9,SkK10,SkK11,SkK12,SkK13,SkK14,SkK15,KetK ualifikasi,AGugurKualifikasi) values " & _ "('" & TxtKodeKualifikasi & "','" & Left(CmbKodePh, 3) & "','" & TxtKodePaket & "','" & (TxtSkK1) & "','" & (TxtSkk2) & "'," & _ "'" & (TxtSkk3) & "','" & (TxtSkk4) & "','" & (TxtSkk5) & "','" & (TxtSkk6) & "','" & (TxtSkk7) & "','" & (TxtSkk8) & "'," & _ "'" & (TxtSkk9) & "','" & (TxtSkk10) & "','" & (TxtSkk11) & "','" & (TxtSkk12) & "','" & (TxtSkk13) & "'," & _ "'" & (TxtSkk14) & "','" & (TxtSkk15) & "','" & TxtKetKualifikasi & "','" & TxtAGugurKualifikasi & "')" Conn.Execute SQLTambah Else Dim SQLEdit As String SQLEdit = "Update Kualifikasi Set KodePh = '" & Left(CmbKodePh, 3) & "',KodePaket='" & TxtKodePaket & "',Skk1='" & (TxtSkK1) & "',Skk2='" & (TxtSkk2) & "'," & _
Teknik Informatika Universitas Serambi Mekkah Tahun 2011 Lampiran Coding Sistem Penunjang Keputusan (DSS) Pemenang Tender Proyek Menggunakan Metode Analityc Hierarchy Process (AHP)
- -
Nama : Teuku Mirwan Sahputra Nim : 0814030399 "Skk3='" & (TxtSkk3) & "',Skk4='" & (TxtSkk4) & "',Skk5='" & (TxtSkk5) & "',Skk6='" & (TxtSkk6) & "',Skk7='" & (TxtSkk7) & "'," & _ "Skk8='" & (TxtSkk8) & "',Skk9='" & (TxtSkk9) & "',Skk10='" & (TxtSkk10) & "',Skk11='" & (TxtSkk11) & "',Skk12='" & (TxtSkk12) & "'," & _ "Skk13='" & (TxtSkk13) & "',Skk14='" & (TxtSkk14) & "',Skk15='" & (TxtSkk15) & "',KetKualifikasi='" & TxtKetKualifikasi & "',AGugurKualifikasi='" & TxtAGugurKualifikasi & " ' where KodeKualifikasi='" & TxtKodeKualifikasi & "'" Conn.Execute SQLEdit End If Form_Activate Jalan KosongkanText KondisiAwal TxtEv = "" End If End Sub Private Sub CmdTutup_Click() Select Case CmdTutup.Caption Case "&Tutup" Unload Me Case "&Batal" TidakSiapIsi KondisiAwal End Select End Sub Private Sub Form_Activate() Call Koneksi ADO.ConnectionString = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=spkptp" ADO.RecordSource = "Kualifikasi ORDER BY KetKualifikasi ASC" ADO.Refresh Set DG.DataSource = ADO DG.Refresh Call Koneksi RSHarga.Open "Harga", Conn CmbKodePh.Clear Do Until RSHarga.EOF CmbKodePh.AddItem RSHarga!KodePh RSHarga.MoveNext Loop Call Koneksi RSPerusahaan.Open "Perusahaan", Conn CmbKodePh.Clear Do Until RSPerusahaan.EOF CmbKodePh.AddItem RSPerusahaan!KodePh & Space(3) & RSPerusahaan!NamaPh RSPerusahaan.MoveNext
Teknik Informatika Universitas Serambi Mekkah Tahun 2011 Lampiran Coding Sistem Penunjang Keputusan (DSS) Pemenang Tender Proyek Menggunakan Metode Analityc Hierarchy Process (AHP)
- -
Nama : Teuku Mirwan Sahputra Nim : 0814030399 Loop Call Koneksi RSPaket.Open "Paket", Conn Do Until RSPaket.EOF TxtKodePaket = RSPaket!KodePaket & Space(5) & RSPaket!NamaPaket RSPaket.MoveNext Loop Call KosongkanText Call Koneksi RSHarga.Open "Harga", Conn List1.Clear Do Until RSHarga.EOF List1.AddItem RSHarga!KodePh & Space(4) & RSHarga!KetHarga RSHarga.MoveNext Loop End Sub Private Sub Form_Load() Call Koneksi TxtKodeKualifikasi.MaxLength = 2 TxtSkK1.MaxLength = 10 TxtSkk2.MaxLength = 10 TxtSkk3.MaxLength = 10 TxtSkk4.MaxLength = 10 TxtSkk5.MaxLength = 10 TxtSkk6.MaxLength = 10 TxtSkk7.MaxLength = 10 TxtSkk8.MaxLength = 10 TxtSkk9.MaxLength = 10 TxtSkk10.MaxLength = 10 TxtSkk11.MaxLength = 10 TxtSkk12.MaxLength = 10 TxtSkk13.MaxLength = 10 TxtSkk14.MaxLength = 10 TxtSkk15.MaxLength = 10 TxtKetKualifikasi.MaxLength = 15 TxtAGugurKualifikasi.MaxLength = 200 TxtEv = "" KondisiAwal End Sub Private Sub Opt1_Click() If Opt1.Value = True Then TxtSkK1.Text = "ADA" End Sub Private Sub Opt10_Click() If Opt10.Value = True Then TxtSkk10.Text = "ADA" End Sub
Teknik Informatika Universitas Serambi Mekkah Tahun 2011 Lampiran Coding Sistem Penunjang Keputusan (DSS) Pemenang Tender Proyek Menggunakan Metode Analityc Hierarchy Process (AHP)
- -
Nama : Teuku Mirwan Sahputra Nim : 0814030399 Private Sub Opt11_Click() If Opt11.Value = True Then TxtSkk11.Text = "ADA" End Sub Private Sub Opt12_Click() If Opt12.Value = True Then TxtSkk12.Text = "ADA" End Sub Private Sub Opt13_Click() If Opt13.Value = True Then TxtSkk13.Text = "ADA" End Sub Private Sub Opt14_Click() If Opt14.Value = True Then TxtSkk14.Text = "ADA" End Sub Private Sub Opt15_Click() If Opt15.Value = True Then TxtSkk15.Text = "ADA" End Sub Private Sub Opt16_Click() If Opt16.Value = True Then TxtSkK1.Text = "TIDAK ADA" End Sub Private Sub Opt17_Click() If Opt17.Value = True Then TxtSkk2.Text = "TIDAK ADA" End Sub Private Sub Opt18_Click() If Opt18.Value = True Then TxtSkk3.Text = "TIDAK ADA" End Sub Private Sub Opt19_Click() If Opt19.Value = True Then TxtSkk4.Text = "TIDAK ADA" End Sub Private Sub Opt2_Click() If Opt2.Value = True Then TxtSkk2.Text = "ADA" End Sub Private Sub Opt20_Click() If Opt20.Value = True Then TxtSkk5.Text = "TIDAK ADA" End Sub Private Sub Opt21_Click() If Opt21.Value = True Then TxtSkk6.Text = "TIDAK ADA" End Sub Private Sub Opt214_Click(Index As Integer) If Opt214.Value = True Then TxtSkk9.Text = "TIDAK ADA" End Sub Private Sub Opt22_Click() If Opt22.Value = True Then TxtSkk7.Text = "TIDAK ADA"
Teknik Informatika Universitas Serambi Mekkah Tahun 2011 Lampiran Coding Sistem Penunjang Keputusan (DSS) Pemenang Tender Proyek Menggunakan Metode Analityc Hierarchy Process (AHP)
- -
Nama : Teuku Mirwan Sahputra Nim : 0814030399 End Sub Private Sub Opt23_Click() If Opt23.Value = True Then TxtSkk8.Text = "TIDAK ADA" End Sub Private Sub Opt24_Click() If Opt24.Value = True Then TxtSkk9.Text = "TIDAK ADA" End Sub Private Sub Opt25_Click() If Opt25.Value = True Then TxtSkk10.Text = "TIDAK ADA" End Sub Private Sub Opt26_Click() If Opt26.Value = True Then TxtSkk11.Text = "TIDAK ADA" End Sub Private Sub Opt27_Click() If Opt27.Value = True Then TxtSkk12.Text = "TIDAK ADA" End Sub Private Sub Opt28_Click() If Opt28.Value = True Then TxtSkk13.Text = "TIDAK ADA" End Sub Private Sub Opt29_Click() If Opt29.Value = True Then TxtSkk14.Text = "TIDAK ADA" End Sub Private Sub Opt3_Click() If Opt3.Value = True Then TxtSkk3.Text = "ADA" End Sub Private Sub Opt30_Click() If Opt30.Value = True Then TxtSkk15.Text = "TIDAK ADA" End Sub Private Sub Opt4_Click() If Opt4.Value = True Then TxtSkk4.Text = "ADA" End Sub Private Sub Opt5_Click() If Opt5.Value = True Then TxtSkk5.Text = "ADA" End Sub Private Sub Opt6_Click() If Opt6.Value = True Then TxtSkk6.Text = "ADA" End Sub Private Sub Opt7_Click() If Opt7.Value = True Then TxtSkk7.Text = "ADA" End Sub
Teknik Informatika Universitas Serambi Mekkah Tahun 2011 Lampiran Coding Sistem Penunjang Keputusan (DSS) Pemenang Tender Proyek Menggunakan Metode Analityc Hierarchy Process (AHP)
- -
Nama : Teuku Mirwan Sahputra Nim : 0814030399 Private Sub Opt8_Click() If Opt8.Value = True Then TxtSkk8.Text = "ADA" End Sub Private Sub Opt9_Click() If Opt9.Value = True Then TxtSkk9.Text = "ADA" End Sub Private Sub TxtKetKualifikasi_Change() If TxtKetKualifikasi.Text = "LULUS" Then TxtEv.Text = "Evaluasi Kualifikasi Lulus" ElseIf TxtKetKualifikasi.Text = "TIDAK LULUS" Then TxtEv.Text = "Belum berhasil memenangkan Paket ini, Mohon coba kembali di Paket selanjutnya" End If End Sub Private Sub TxtKodeKualifikasi_KeyPress(KeyAscii As Integer) KeyAscii = Asc(UCase(Chr(KeyAscii))) If KeyAscii = 13 Then If Len(TxtKodeKualifikasi) < 2 Then MsgBox "Kode Harus 2 Digit" TxtKodeKualifikasi.SetFocus Exit Sub Else CmbKodePh.SetFocus End If If CmdInput.Enabled = True Then Call CariData If Not RSKualifikasi.EOF Then TampilkanData MsgBox "Kode Kualifikasi Sudah Ada" KosongkanText TxtKodeKualifikasi.SetFocus Else CmbKodePh.SetFocus End If End If If CmdEdit.Enabled = True Then Call CariData If Not RSKualifikasi.EOF Then TampilkanData TxtKodeKualifikasi.Enabled = False CmbKodePh.SetFocus Else MsgBox "Kode Kualifikasi Tidak Ada" TxtKodeKualifikasi = "" TxtKodeKualifikasi.SetFocus End If End If If CmdHapus.Enabled = True Then
Teknik Informatika Universitas Serambi Mekkah Tahun 2011 Lampiran Coding Sistem Penunjang Keputusan (DSS) Pemenang Tender Proyek Menggunakan Metode Analityc Hierarchy Process (AHP)
- -
Nama : Teuku Mirwan Sahputra Nim : 0814030399 Call CariData If Not RSKualifikasi.EOF Then TampilkanData Pesan = MsgBox("Yakin akan dihapus", vbYesNo) If Pesan = vbYes Then Dim SQLHapus As String SQLHapus = "Delete From Kualifikasi where KodeKualifikasi= '" & TxtKodeKualifikasi & "'" Conn.Execute SQLHapus KondisiAwal KosongkanText Jalan Form_Activate Else KondisiAwal CmdHapus.SetFocus End If Else MsgBox "Data Tidak ditemukan" KosongkanText TxtKodeKualifikasi.SetFocus End If End If End If End Sub Private Sub KondisiAwal() TidakSiapIsi CmdInput.Enabled = True CmdEdit.Enabled = True CmdHapus.Enabled = True CmdSimpan.Enabled = False CmdBatal.Enabled = False CmdTutup.Enabled = True End Sub Private Sub KosongkanText() TxtKodeKualifikasi = "" CmbKodePh = "" TxtKodePaket = "" TxtNamaPaket = "" TxtSkK1 = "" TxtSkk2 = "" TxtSkk3 = "" TxtSkk4 = "" TxtSkk5 = "" TxtSkk6 = "" TxtSkk7 = "" TxtSkk8 = "" TxtSkk9 = "" TxtSkk10 = "" TxtSkk11 = "" TxtSkk12 = "" TxtSkk13 = ""
Teknik Informatika Universitas Serambi Mekkah Tahun 2011 Lampiran Coding Sistem Penunjang Keputusan (DSS) Pemenang Tender Proyek Menggunakan Metode Analityc Hierarchy Process (AHP)
- -
Nama : Teuku Mirwan Sahputra Nim : 0814030399 TxtSkk14 = "" TxtSkk15 = "" TxtKetKualifikasi = "" TxtAGugurKualifikasi = "" End Sub Private Sub SiapIsi() TxtKodeKualifikasi.Enabled = True CmbKodePh.Enabled = True TxtSkK1.Enabled = True TxtSkk2.Enabled = True TxtSkk3.Enabled = True TxtSkk4.Enabled = True TxtSkk5.Enabled = True TxtSkk6.Enabled = True TxtSkk7.Enabled = True TxtSkk8.Enabled = True TxtSkk9.Enabled = True TxtSkk10.Enabled = True TxtSkk11.Enabled = True TxtSkk12.Enabled = True TxtSkk13.Enabled = True TxtSkk14.Enabled = True TxtSkk15.Enabled = True TxtKetKualifikasi.Enabled = True TxtAGugurKualifikasi.Enabled = True TxtEv.Enabled = False End Sub Private Sub TidakSiapIsi() TxtKodeKualifikasi.Enabled = False CmbKodePh.Enabled = False TxtSkK1.Enabled = False TxtSkk2.Enabled = False TxtSkk3.Enabled = False TxtSkk4.Enabled = False TxtSkk5.Enabled = False TxtSkk6.Enabled = False TxtSkk7.Enabled = False TxtSkk8.Enabled = False TxtSkk9.Enabled = False TxtSkk10.Enabled = False TxtSkk11.Enabled = False TxtSkk12.Enabled = False TxtSkk13.Enabled = False TxtSkk14.Enabled = False TxtSkk15.Enabled = False TxtKetKualifikasi.Enabled = False TxtAGugurKualifikasi.Enabled = False TxtEv.Enabled = False End Sub Private Sub TxtAGugurKualifikasi_KeyPress(KeyAscii As Integer) KeyAscii = Asc(UCase(Chr(KeyAscii)))
Teknik Informatika Universitas Serambi Mekkah Tahun 2011 Lampiran Coding Sistem Penunjang Keputusan (DSS) Pemenang Tender Proyek Menggunakan Metode Analityc Hierarchy Process (AHP)
- -
Nama : Teuku Mirwan Sahputra Nim : 0814030399 End Sub Private Sub TxtEv_KeyPress(KeyAscii As Integer) KeyAscii = Asc(UCase(Chr(KeyAscii))) End Sub Private Sub CariData() Call Koneksi RSKualifikasi.Open "Select * From Kualifikasi where KodeKualifikasi='" & TxtKodeKualifikasi & "'", Conn End Sub Private Sub TampilkanData() On Error Resume Next CmbKodePh = RSKualifikasi!KodePh TxtKodePaket = RSKualifikasi!KodePaket TxtSkK1.Text = RSKualifikasi!skk1 TxtSkk2.Text = RSKualifikasi!Skk2 TxtSkk3.Text = RSKualifikasi!Skk3 TxtSkk4.Text = RSKualifikasi!Skk4 TxtSkk5.Text = RSKualifikasi!Skk5 TxtSkk6.Text = RSKualifikasi!Skk6 TxtSkk7.Text = RSKualifikasi!Skk7 TxtSkk8.Text = RSKualifikasi!Skk8 TxtSkk9.Text = RSKualifikasi!Skk9 TxtSkk10.Text = RSKualifikasi!Skk10 TxtSkk11.Text = RSKualifikasi!Skk11 TxtSkk12.Text = RSKualifikasi!Skk12 TxtSkk13.Text = RSKualifikasi!Skk13 TxtSkk14.Text = RSKualifikasi!Skk14 TxtSkk15.Text = RSKualifikasi!Skk15 TxtKetKualifikasi = RSKualifikasi!KetKualifikasi TxtAGugurKualifikasi = RSKualifikasi!AGugurKualifikasi RSPaket.Open "Paket", Conn TxtNamaPaket = RSPaket!NamaPaket RSPerusahaan.Open "Perusahaan", Conn CmbKodePh = RSKualifikasi!KodePh & Space(4) & RSPerusahaan!NamaPh End Sub Private Sub CariData1() Call Koneksi RSKualifikasi.Open "Select * From Kualifikasi where KodePh='" & Left(CmbKodePh, 3) & "'", Conn End Sub Private Sub TampilkanData1() On Error Resume Next CmbKodePh = RSKualifikasi!KodePh End Sub Public Function Hasil() If TxtSkK1 = "ADA" And TxtSkk2 = "ADA" And TxtSkk3 = "ADA" And TxtSkk4 = "ADA" And TxtSkk5 = "ADA" And TxtSkk6 = "ADA" And
Teknik Informatika Universitas Serambi Mekkah Tahun 2011 Lampiran Coding Sistem Penunjang Keputusan (DSS) Pemenang Tender Proyek Menggunakan Metode Analityc Hierarchy Process (AHP)
- -
Nama : Teuku Mirwan Sahputra Nim : 0814030399 TxtSkk7 = "ADA" And TxtSkk8 = "ADA" And TxtSkk9 = "ADA" And TxtSkk10 = "ADA" And TxtSkk11 = "ADA" And TxtSkk12 = "ADA" And TxtSkk13 = "ADA" And TxtSkk14 = "ADA" And TxtSkk15 = "ADA" Then TxtKetKualifikasi = "LULUS" Else TxtKetKualifikasi = "TIDAK LULUS" End If End Function Sub Jalan() PG.Visible = True For i = 1 To 100 PG.Value = i For j = 1 To 1000000 Next j Next i PG.Value = 10 PG.Visible = False End Sub
Profil_p.frm
Dim rs As New ADODB.Recordset Private Sub CmdEdit_Click() TxtNama.SetFocus End Sub Private Sub CmdSimpan_Click() Me.Command2.Enabled = True Command2_Click strsql = "update profil set alamat='" & TxtAlamat.Text & "'" Conn.Execute strsql, , adCmdText MsgBox " Data Profil sudah dirubah", vbInformation + vbOKOnly, "Informasi" End Sub Private Sub Command1_Click() TxtNama.SetFocus End Sub Private Sub Command2_Click() strsql = "update Profil set nama='" & TxtNama.Text & "'" Conn.Execute strsql, , adCmdText End Sub Private Sub Command3_Click() Menu.Show Unload Me End Sub
Teknik Informatika Universitas Serambi Mekkah Tahun 2011 Lampiran Coding Sistem Penunjang Keputusan (DSS) Pemenang Tender Proyek Menggunakan Metode Analityc Hierarchy Process (AHP)
- -
Nama : Teuku Mirwan Sahputra Nim : 0814030399
Private Sub Form_Load() Call Koneksi Set Profil = New ADODB.Recordset strsql = "select * From Profil" RSProfil.Open strsql, Conn, adOpenDynamic, adLockOptimistic, adCmdText With RSProfil TxtNama.Text = RSProfil!nama TxtAlamat.Text = RSProfil!alamat End With End Sub Private Sub Timer1_Timer() If Thanks.Top < -(Thanks.Height + 90) Then Thanks.Top = Picture1.ScaleHeight End If Thanks.Top = Thanks.Top - 3 End Sub Private Sub Timer2_Timer() LblJam = Time$ End Sub Private Sub Timer3_Timer() TxtNama.ForeColor = vbBlue End Sub Private Sub Timer4_Timer() TxtNama.ForeColor = vbRed End Sub Private Sub Timer5_Timer() TxtAlamat.ForeColor = vbBlack End Sub Private Sub Timer6_Timer() TxtAlamat.ForeColor = vbGreen End Sub Private Sub TxtNama_Change() TxtNama.SelStart = Len(TxtNama.Text) End Sub Private Sub TxtAlamat_Change() TxtAlamat.SelStart = Len(TxtAlamat.Text) End Sub Private Sub TxtNama_KeyPress(KeyAscii As Integer) If (KeyAscii = 13) Then TxtAlamat.SetFocus End If End Sub Private Sub Txtalamat_KeyPress(KeyAscii As Integer) If (KeyAscii = 13) Then CmdSimpan_Click
Teknik Informatika Universitas Serambi Mekkah Tahun 2011 Lampiran Coding Sistem Penunjang Keputusan (DSS) Pemenang Tender Proyek Menggunakan Metode Analityc Hierarchy Process (AHP)
- -
Nama : Teuku Mirwan Sahputra Nim : 0814030399 End If End Sub
Informasi.frm
Private Sub Label9_Click() Menu.Show Unload Me End Sub Private Sub Labelabout_Click() Menu.Show Unload Me End Sub Private Sub Picture1_Click() Menu.Show Unload Me End Sub Private Sub Timer1_Timer() If Labelabout.Top < -(Labelabout.Height + 90) Then Labelabout.Top = Picture1.ScaleHeight End If Labelabout.Top = Labelabout.Top - 3 End Sub
Programmer.frm
Private Sub Form_KeyPress(KeyAscii As Integer) If KeyAscii = 27 Then Unload Me End Sub Private Sub Image1_Click() Unload Me End Sub Private Sub Label1_Click(Index As Integer) Unload Me End Sub Private Sub Label2_Click() Unload Me End Sub Private Sub Label3_Click()
Teknik Informatika Universitas Serambi Mekkah Tahun 2011 Lampiran Coding Sistem Penunjang Keputusan (DSS) Pemenang Tender Proyek Menggunakan Metode Analityc Hierarchy Process (AHP)
- -
Nama : Teuku Mirwan Sahputra Nim : 0814030399 Unload Me End Sub Private Sub Label4_Click() Unload Me End Sub Private Sub Label5_Click() Unload Me End Sub
Module1.bas
Option Public Public Public Public Public Public Public Public Public Public Public Public Public Public Public
Explicit Conn As New ADODB.Connection RSPerusahaan As ADODB.Recordset RSPaket As ADODB.Recordset RSAdministrasi As ADODB.Recordset RSAritmatik As ADODB.Recordset RSTeknis As ADODB.Recordset RSHarga As ADODB.Recordset RSPemakai As ADODB.Recordset RSGampong As ADODB.Recordset RSKecamatan As ADODB.Recordset RSIkut As ADODB.Recordset RSKualifikasi As ADODB.Recordset RSPemenang As ADODB.Recordset RSProfil As ADODB.Recordset strsql As String
Public Sub Koneksi() On Error Resume Next Set Conn = New ADODB.Connection Set RSPerusahaan = New ADODB.Recordset Set RSPaket = New ADODB.Recordset Set RSAdministrasi = New ADODB.Recordset Set RSAritmatik = New ADODB.Recordset Set RSTeknis = New ADODB.Recordset Set RSHarga = New ADODB.Recordset Set RSPemakai = New ADODB.Recordset Set RSGampong = New ADODB.Recordset Set RSKecamatan = New ADODB.Recordset Set RSIkut = New ADODB.Recordset Set RSPemenang = New ADODB.Recordset Set RSKualifikasi = New ADODB.Recordset Set RSProfil = New ADODB.Recordset Conn.CursorLocation = adUseClient Conn.Open "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=spkptp"
Teknik Informatika Universitas Serambi Mekkah Tahun 2011 Lampiran Coding Sistem Penunjang Keputusan (DSS) Pemenang Tender Proyek Menggunakan Metode Analityc Hierarchy Process (AHP)
- -
Nama : Teuku Mirwan Sahputra Nim : 0814030399 End Sub
General.bas
Public position, startpos Public Function TransposeDim(V As Variant) As Variant Dim x As Long, y As Long, Xupper As Long, Yupper As Long Dim tempArray As Variant Xupper = UBound(V, 2) Yupper = UBound(V, 1) ReDim tempArray(Xupper, Yupper) For x = 0 To Yupper For y = 0 To Yupper tempArray(x, y) = V(y, x) Next y Next x TransposeDim = tempArray End Function Public Function TXTselector(textBox As textBox) textBox.SelStart = 0 textBox.SelLength = Len(textBox.Text) textBox.SetFocus End Function
----------------------------------------------------Wassalam Penulis Teuku Mirwan Sahputra (email)
[email protected] ----------------------------------Buloh Seuma Kecamatan Trumon Kabupaten Aceh Selatan ----------------------------------------------------“Tumbuhkan jati diri dengan melihat seberapa banyak yang kita bisa” -----------------------------------------------------
Teknik Informatika Universitas Serambi Mekkah Tahun 2011 Lampiran Coding Sistem Penunjang Keputusan (DSS) Pemenang Tender Proyek Menggunakan Metode Analityc Hierarchy Process (AHP)
- -