123
LAMPIRAN
124
Lampiran 1 Peta lokasi penelitian
125
Lampiran 2 Layout Pelabuhan Perikanan Nusantara Kejawanan
m
Sumber: KKP (2009) ghss LEGENDA 1. PORT GATE 2. RUMAH DINAS : a. RUMAH DINAS KEPALA PELABUHAN b. GEDUNG PERTEMUAN NELAYAN c. POS KEAMANAN/SATPAM d. RUMAH DINAS KEPALA SEKSI 3. AREAL RUMAH NELAYAN & KUD 4. KANTOR PPN KEJAWANAN CIREBON 5. INDUSTRI MENENGAH 6. SARANA IBADAH 7. SMALL MARKETS & IPAL 8. AUCTION HALL & PIER 9. SURVEILLANCE POST 10. SMALL INDUSTRIES 11. SARANA WISATA & RUMAH MAKAN 12. PORT POND 13. MID INDUSTRIES 14. FISHERMEN HOUSES 15. WISATA BAHARI 16. SECURITY POST 17. NAVIGATION LIGHTS
a. b. c. d. e. f. g. h. i. j. k. l. m. n. o.
CV. EKA JAYA SENTOSA PD. HORIZON PD. SAMBU PT. PAN PUTRA SAMUDRA EMAN SULAIMAN UD. CERINDO UD. PERIANG PT. BIOTECH SURINDO KOLAM IKAN SEGAR UD. BAROKAH BENGKEL KAPAL TENG HOCK PT. EVADARTA CIREMAI RM. ALAM INDAH MOHAN B. PT. TEGALINDO
126
Lampiran 3 Struktur Data Tabel SIMKA PPN Kejawanan 1) Struktur data tabel user (T_User) No 1 2 3 4 5
Field Name ID_User Nama_User Tgl_Lahir Tmpt_Lahir Tgl_Daftar
Field Type Text Text Date/Time Text Date/Time
Field Size 7 255 255 -
6 7 8 9 10 11 12
Jenis_Kelamin Alamat No_Telepon Pekerjaan Agama Pendidikan Ins_Pendidikan
Text Memo Text Text Text Text Text
255 255 255 255 255 255
13
Status
Text
255
14 15 16 17
Jenis_User Jabatan NIP Status_Peg
Text Text Text Text
255 255 255 255
18
Golongan
Text
255
19
Pangkat
Text
255
20 21 22
Bagian Masa_Kerja Jenis_Nelayan
Text Text Text
255 255 255
23
Nama_Kapal
Text
255
24
Foto
Text
255
Keterangan Kode pengenal pengguna Nama pengguna Tanggal lahir pengguna Tempat lahir pengguna Tanggal pendaftaran pengguna Jenis kelamin pengguna Alamat lengkap pengguna Nomor telepon pengguna Pekerjaan pengguna Agama pengguna Pendidikan pengguna Nama instansi pendidikan pengguna Status pernikahan pengguna Jenis pengguna Jabatan pengguna (bila ada) NIP pengguna (bila ada) Status kepegawaian pengguna (bila ada) Golongan kepegawaian pengguna (bila ada) Pangkat kepegawaian pengguna (bila ada) Bagian kerja pengguna Masa kerja pengguna Jenis nelayan (jika pengguna adalah nelayan) Nama kapal yang dimiliki/tempat pengguna bekerja (bila ada) Foto pengguna
2) Struktur data tabel produk olahan (T_ProdukOlah) No 1 2 3 4 5
Field Name Kode_Produk Nama_Produk Bahan Deskripsi Gambar
Field Type Text Text Text Memo Text
Field Size 255 255 255 255
Keterangan Kode pengenal produk olahan Nama produk olahan Bahan baku pembuat produk Deskripsi produk olahan Gambar produk olahan
127
3) Struktur data tabel account (T_Account) No Field Name 1 No_Urut
Field Type Field Size Number Long Integer
2 3
ID_User Username
Text Text
10 255
4
Password
Text
255
5 6 7
Nama_User Jenis_User Pertanyaan
Text Text Text
255 60 255
8
Jawaban
Text
255
9
Petunjuk
Text
255
Keterangan Nomor urut pendaftaran pengguna SIMKA Kode pengenal pengguna Nama yang digunakan untuk login Kata sandi yang digunakan untuk login Nama pengguna Jenis pengguna Pertanyaan yang akan diajukan seandainya pengguna lupa password-nya Jawaban yang harus diisi oleh pengguna untuk mendapatkan petunjuk password Kata kunci untuk mengingatkan password
4) Struktur data tabel user data (T_UserData) No 1 2 3 4
Field Name ID_User Nama_User Jenis_User Pesan_Masuk
Field Type Text Text Text Memo
Field Size 255 255 255 -
5
Pesan_Keluar
Memo
-
6
Konsep
Memo
-
7
Analisis_Usaha Memo
-
Keterangan Kode pengenal pengguna Nama pengguna Jenis pengguna Pesan yang diterima oleh pengguna Pesan yang dikirimkan oleh pengguna Pesan yang disimpan oleh pengguna dalam bentuk konsep dan siap dikirimkan Hasil analisis usaha yang disimpan oleh pengguna
5) Struktur data tabel industri (T_Industri) No 1 2 3 4 5 6 7
Field Name Kode_Industri Nama_Industri Jenis_Industri Nama_Pemilik Tahun_Berdiri Luas_Area Gambar
Field Type Field Size Keterangan Text 255 Kode pengenal industri Text 255 Nama industri Text 255 Jenis/bidang industri Text 255 Nama pemilik industri Number Long Integer Tahun berdirinya industri Number Long Integer Luas area industri Text 255 Foto perusahan industri
128
6) Struktur data tabel kapal (T_Kapal) No Field Name 1 Kode_Kapal
Field Type Text
Field Size Keterangan 255 Kode pengenal kapal 255 Nama kapal
2
Nama_Kapal
Text
3
Nama_Pemilik
Text
4
Jenis_Kapal
Text
5
No_Izin
Text
6
Tanda_Selar
Text
7
Nakhoda
Text
8
P_Kapal
Number
255 Nakhoda kapal Long Integer Panjang kapal
9
L_Kapal
Number
Long Integer
Lebar kapal
10
D_Kapal
Number
Long Integer
Draft kapal
11
GT
Number
Long Integer
Gross Tonnase kapal
12
NT
Number
Long Integer
Net Tonnase kapal
13
Jml_ABK
Number
Long Integer
14
DPI_Kapal
Text
255
15
Bahan_Kapal
Text
255
16
Navi_Kapal
Text
255
17
Text
255
18
Alat_ Keselamatan Jml_API
Number
Long Integer
19
Jml_Palkah
Number
Long Integer
20
Domisili_Kapal
Text
Jumlah ABK kapal Daerah penangkapan ikan yang ditempuh kapal Bahan pembuat kapal Alat navigasi yang dimiliki kapal Alat keselamatan yang dimiliki kapal Jumlah alat tangkap yang dimiliki kapal Jumlah palkah yang dimiliki kapal Daerah domisili kapal
21
Merk_Mesin
Text
22
Daya_Mesin
Number
23
Pelabuhan
Text
24
Alat_Tangkap
Text
25
Keterangan
Text
26
Gambar
Text
255 Nama pemilik kapal 255 Jenis kapal 255 Nomor izin kapal 255 Tanda selar kapal
255
255 Merk mesin kapal Long Integer Daya mesin kapal 255 Nama pelabuhan yang tertera pada SIPI kapal 255 Nama alat tangkap yang digunakan pada kapal 255 Keterangan tambahan 255 Gambar kapal
129
7) Struktur data tabel sumberdaya ikan (T_SDI) No 1 2 3 4 5 6
Field Name Kode_SDI Nama_SDI Nama_Int Filum Kelas Subkelas
Field Type Text Text Text Text Text Text
7 8 9 10
Ordo Subordo Famili Subfamili
Text Text Text Text
11 12 13 14 15 16 17
Genus Spesies Kategori Harga_Jual Deskripsi Habitat DPI
Text Text Text Number Text Text Text
18
Gambar
Text
Field Size 255 255 255 255 255 255
Keterangan Kode pengenal SDI Nama sumberdaya ikan Nama internasional SDI Filum SDI dalam taksonomi Kelas SDI dalam taksonomi Subkelas SDI dalam taksonomi Ordo SDI dalam taksonomi Subordo SDI dalam taksonomi Famili SDI dalam taksonomi Subfamili SDI dalam taksonomi Genus SDI dalam taksonomi Spesies SDI dalam taksonomi Kategori SDI Harga Jual SDI Deskripsi SDI Habitat SDI Daerah penangkapan ikan untuk SDI terkait Gambar SDI
255 255 255 255 255 255 255 Long Integer 255 255 255 255
8) Struktur data tabel alat tangkap (T_API) Field Name Kode_API Nama_API Nama_Int Klasifikasi Konstruksi Hasil_Tangkapan
Field Type Text Text Text Text Memo Text
7
Kapal_API
Text
255
8
Jml_Nelayan
Text
255
9 10 11 12
Alat_Bantu Umpan Deskripsi MPI
Text Text Memo Memo
255 255 -
13
DO_API
Memo
-
14
Gambar
Text
No 1 2 3 4 5 6
Field Size 255 255 255 255 255
255
Keterangan Kode pengenal alat tangkap Nama alat tangkap Nama internasional API Klasifikasi alat tangkap Konstruksi alat tangkap Hasil tangkapan dari alat tangkap terkait Kapal yang digunakan untuk menangkap ikan Jumlah nelayan yang terlibat dalam penangkapan ikan Alat bantu penangkapan ikan Umpan yang digunakan Deskripsi alat tangkap Metode penangkapan ikan dari alat tangkap terkait Daerah operasional alat tangkap Gambar alat tangkap
130
9) Struktur data tabel TPI (T_TPI) No 1 2 3 4 5
Field Name No_Transaksi Tanggal Bulan Tahun Nama_User
Field Type Text Text Text Text Text
6
Nama_Kapal
Text
255
7
Nama_API
Text
255
8 9
Nama_SDI Jumlah
Text Number
10
Nilai
Currency
-
11
Retribusi
Currency
-
10) No 1 2 3 4 5 6
11)
Field Size 255 255 255 255 255
255 Long Integer
Keterangan Nomor urut transaksi di TPI Tanggal dilakukan transaksi Bulan dilakukan transaksi Tahun dilakukan transaksi Nama pengguna yang melakukan transaksi Nama kapal dari pengguna terkait Nama alat tangkap dari pengguna terkait Nama SDI yang dilelang Jumlah hasil tangkapan yang dilelang dalam satuan kg Jumlah harga hasil tangkapan yang dilelang Nilai retribusi lelang
Struktur data tabel pemasaran (T_Pemasaran) Field Name Kode_Pemasaran
Field Type Text
Field Size
Keterangan
255 Kode pengenal daerah pemasaran Daerah_Pemasaran Text 255 Nama daerah pemasaran Jarak Number Long Integer Jarak daerah pemasaran dari pelabuhan Nama_SDI Text 255 Nama SDI yang dipasarkan Kategori Text 255 Kategori pemasaran Jumlah Number Long Integer Jumlah SDI yang dipasarkan dalam satuan kg Struktur data tabel sarana produksi (T_SaranaProd)
No Field Name Field Type 1 Kode_Transaksi Text 2 Tanggal Date/Time 3 Nama_Kapal Text 4
Nama_Industri
Text
5
Volume
Number
6 7
Harga_Satuan Harga_Total
Number Number
Field Size Keterangan 255 Kode transaksi sarana prod. 255 Tanggal dilakukan transaksi 255 Nama kapal yang melakukan transaksi 255 Nama industri yang menyediakan sarana produksi Long Integer Volume sarana produksi yang dibeli Long Integer Harga satuan sarana prod. Long Integer Harga total yang harus dibayar
131
Lampiran 4 Tampilan login pada SIMKA 1) Tampilan login SIMKA sebagai administrator
2) Berbagai tampilan login SIMKA
(a)
(b)
(c)
Keterangan: (a) Tampilan form login saat menampilkan petunjuk password (b) Tampilan form login saat user berhasil login ke SIMKA (c) Tampilan login SIMKA sebagai pengguna reguler
132
3) Tampilan login SIMKA sebagai tamu
4) Tampilan form registrasi untuk menjadi user SIMKA
133
Lampiran 5 Tampilan submenu-submenu pada menu statistik 1) Tampilan awal menu statistik
2) Tampilan submenu statistik sumberdaya ikan
3) Tampilan submenu statistik kapal perikanan
134
4) Tampilan submenu statistik produk olahan
5) Tampilan submenu statistik kepelabuhanan
135
Lampiran 6 Tampilan submenu-submenu pada menu manajemen data 1) Tampilan awal menu manajemen data
2) Tampilan submenu manajemen data user
3) Tampilan submenu manajemen data alat tangkap
136
4) Tampilan submenu manajemen data industri
5) Tampilan submenu manajemen data produk olahan
6) Tampilan submenu manajemen menu home
137
7) Tampilan submenu manajemen buku tamu
8) Tampilan submenu manajemen menu kepelabuhanan
9) Tampilan submenu manejemen informasi kemitraan
138
Lampiran 7 Contoh source code SIMKA PPN Kejawanan Source Code “SplashScreen”
Public NotInheritable Class SplashScreen Dim opacityRate As Double = 0.0 Dim maximizeRate As Boolean = True Dim minimizeRate As Boolean = False Private Sub SplashScreen1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load Me.Opacity = 0.0 timerSplash.Interval = 60 timerSplash.Enabled = True timerSplash.Start() Version.Text = System.String.Format(Version.Text, My.Application.Info.Version.Major, My.Application.Info.Version.Minor) Copyright.Text = My.Application.Info.Copyright & " By Bayu Adi Sasmita" End Sub Private Sub timerSplash_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles timerSplash.Tick If opacityRate >= 1.0 Then opacityRate = opacityRate + 1.0 If opacityRate >= 20.0 Then opacityRate = 0.99 Me.Opacity = opacityRate End If ElseIf maximizeRate Then opacityRate = opacityRate + 0.025 Me.Opacity = opacityRate If opacityRate >= 1.0 Then maximizeRate = False minimizeRate = True End If ElseIf minimizeRate Then opacityRate = opacityRate - 0.025 If opacityRate < 0 Then opacityRate = 0 End If Me.Opacity = opacityRate If Opacity <= 0.0 Then minimizeRate = False maximizeRate = False End If Else timerSplash.Stop() timerSplash.Enabled = False timerSplash.Dispose() Me.Visible = False F_Utama.Show() End If End Sub End Class
Source Code “F_Login”
Public Class F_Login Dim strimg As String Dim LoginAdmin, LoginUser As Boolean Private Function ValidasiUser() As Boolean If LoginAdmin = True Then If JnsUser = "Administrator" Then Return True Else MessageBox.Show("Maaf, Anda tidak terdaftar sebagai administrator. Silakan login sebagai user lain.", "SIMKA PPN Kejawanan", MessageBoxButtons.OK, MessageBoxIcon.Stop) BtnBatal.PerformClick() Return False End If Else If JnsUser <> "Administrator" Then Return True Else MessageBox.Show("Maaf, Anda saat ini login sebagai user biasa. Silakan login sebagai administrator.", "SIMKA PPN Kejawanan", MessageBoxButtons.OK, MessageBoxIcon.Stop) BtnBatal.PerformClick() Return False End If End If Return True End Function Private Sub ChangeWindowLogin(ByVal Aktif As Boolean)
If Aktif = True Then Panel1.Visible = False gbLogin.Visible = True txtUsername.Focus() lblDeskHome.Size = New Size(414, 109) lblDeskHome.Location = New Point(408, 124) lblDeskHome1.Size = New Size(414, 83) lblDeskHome1.Location = New Point(408, 241) PictureBox4.Size = New Size(378, 261) lblCaraLogin1.Visible = True : lblCaraLogin2.Visible = True : lblCaraLogin3.Visible = True : lblCaraLogin4.Visible = True lblCaraLogin5.Visible = True : lblCaraLogin6.Visible = True : lblCaraLogin7.Visible = True : lblCaraLogin.Visible = True Else Panel1.Visible = True gbLogin.Visible = False txtUsername.Text = "" : txtPassword.Text = "" Label4.Visible = False : lblKeyword.Visible = False lblDeskHome.Size = New Size(837, 50) lblDeskHome.Location = New Point(224, 120) lblDeskHome1.Size = New Size(837, 48) lblDeskHome1.Location = New Point(224, 175) PictureBox4.Size = New Size(203, 115) lblCaraLogin1.Visible = False : lblCaraLogin2.Visible = False : lblCaraLogin3.Visible = False : lblCaraLogin4.Visible = False lblCaraLogin5.Visible = False : lblCaraLogin6.Visible = False : lblCaraLogin7.Visible = False : lblCaraLogin.Visible = False End If End Sub Private Sub btnTamu_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnTamu.Click D_BukuTamu.ShowDialog() D_BukuTamu.gbBukuTamu.Visible = True D_BukuTamu.gbEditBukuTamu.Visible = False End Sub Private Sub btnAdmin_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnAdmin.Click, btnAnggota.Click ChangeWindowLogin(True) PictureBox3.Image = sender.image Label2.Text = "Login " & sender.text If sender.Name = "btnAdmin" Then LoginAdmin = True : LoginUser = False Else LoginUser = True : LoginAdmin = False End If End Sub Private Sub btnReg_Click(sender As System.Object, e As System.EventArgs) Handles btnReg.Click D_CreateAccount.ShowDialog() End Sub Private Sub F_Login_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load SetLanguage(Lang) ChangeBackColor(ColorName) getConnString() MenuEnable(False) With F_Utama .mnuLogin.Enabled = True .mnuLogout.Enabled = False .lblNama.Visible = False : NamaLengkap = Nothing : ID = Nothing .lblJnsUser.Visible = False : JnsUser = Nothing .picFotoUser.Visible = False .lblC_InfUser.Visible = False .lnklblEditAccount.Visible = False End With End Sub Sub CekLogin() Try dt.Clear() GetData(dt, "SELECT * FROM T_Account where Username = '" & txtUsername.Text.Trim() & "'") If dt.Rows.Count > 0 Then ID = dt.Rows(0)("ID_User") Username = dt.Rows(0)("Username") Password = dt.Rows(0)("Password") NamaLengkap = dt.Rows(0)("Nama_User")
139
JnsUser = dt.Rows(0)("Jenis_User") If ValidasiUser() Then If Password = txtPassword.Text.Trim() Then Timer1.Start() lblTunggu.Visible = True : ProgressBar1.Visible = True dt.Clear() lnkPetunjuk.Enabled = False BtnLogin.Enabled = False : BtnBatal.Enabled = False gbPetunjuk.Visible = False Else MessageBox.Show(A6, "SIMKA PPN Kejawanan", MessageBoxButtons.OK, MessageBoxIcon.Error) 'password salah txtPassword.SelectAll() txtPassword.Focus() End If End If Else MessageBox.Show(A5, "SIMKA PPN Kejawanan", MessageBoxButtons.OK, MessageBoxIcon.Stop) 'username tidak terdaftar txtUsername.Focus() txtUsername.SelectAll() txtPassword.Text = "" End If Catch ex As Exception MsgBox(ex.Message, MsgBoxStyle.Exclamation, "SIMKA") End Try End Sub Private Sub btnLogin_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnLogin.Click If txtUsername.Text = "" Then MessageBox.Show(A3, "SIMKA PPN Kejawanan", MessageBoxButtons.OK, MessageBoxIcon.Exclamation) txtUsername.Focus() ElseIf txtPassword.Text = "" Then MessageBox.Show(A4, "SIMKA PPN Kejawanan", MessageBoxButtons.OK, MessageBoxIcon.Exclamation) txtPassword.Focus() Else CekLogin() End If End Sub Private Sub btnCancel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnBatal.Click ChangeWindowLogin(False) gbPetunjuk.Visible = False End Sub Private Sub txtPassword_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles txtPassword.KeyDown, txtUsername.KeyDown Try If e.KeyCode = Keys.Enter Then BtnLogin.PerformClick() ElseIf e.KeyCode = Keys.Escape Then BtnBatal.PerformClick() End If Catch ex As Exception MessageBox.Show("Maaf,terjadi kesalahan sistem, aplikasi terpaksa ditutup. Silakan buka ulang aplikasi Anda", "SIMKA PPN Kejawanan", MessageBoxButtons.OK, MessageBoxIcon.Stop) End Try End Sub Private Sub lnkPetunjuk_LinkClicked(ByVal sender As System.Object, ByVal e As System.Windows.Forms.LinkLabelLinkClickedEventArgs) Handles lnkPetunjuk.LinkClicked Dim dt As New DataTable dt.Clear() GetData(dt, "SELECT * FROM T_Account where Username = '" & txtUsername.Text.Trim() & "'") If dt.Rows.Count > 0 Then JnsUser = dt.Rows(0)("Jenis_User") If ValidasiUser() Then gbPetunjuk.Visible = True lblPertanyaan.Text = "Pertanyaan pilihan : " & dt.Rows(0)("Pertanyaan") End If Else MessageBox.Show(A5, "SIMKA PPN Kejawanan", MessageBoxButtons.OK, MessageBoxIcon.Stop) : txtUsername.Focus() : txtUsername.SelectAll() End If End Sub
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick If ProgressBar1.Value < 100 Then ProgressBar1.Value += 4 ElseIf ProgressBar1.Value = 100 Then Timer1.Stop() Me.Dispose() MenuEnable(True) With F_Utama RegulasiUser() AddHomeItem() .mnuPencarianTerpadu.Enabled = True .mnuLogin.Enabled = False : .mnuLogout.Enabled = True .pnlUtama.Visible = True .lblSelamatDatang.Text = "Selamat Datang, " & NamaLengkap & " !" .lblNama.Visible = True : .lblNama.Text = NamaLengkap & " (" & ID & ")" .lblJnsUser.Visible = True : .lblJnsUser.Text = JnsUser .lblC_InfUser.Visible = True .lnklblEditAccount.Visible = True .picFotoUser.Visible = True Dim dt As New DataTable GetData(dt, "select * from T_User where ID_User= '" & ID & "'") loadImage(dt.Rows(0)("Foto"), .picFotoUser, "UnknownUser") dt.Clear() GetData(dt, " SELECT * FROM T_UserData WHERE Nama_User = '" & NamaLengkap & "'") If dt.Rows.Count > 0 Then If CBool(InStr((dt.Rows(0)("Pesan_Masuk")), "Belum terbaca")) = True Then jmlPesan = (Len(dt.Rows(0)("Pesan_Masuk")) Len(Replace(dt.Rows(0)("Pesan_Masuk"), "Belum terbaca", ""))) / (Len("Belum terbaca")) .lblJmlPesan.Text = "Anda mendapatkan " & jmlPesan & " pesan baru" .ErrorProvider1.SetError(.lblJml Pesan, "Pesan baru : " & jmlPesan) .picPesan.Image = My.Resources.new_message .lnkBukaPesan.Visible = True Else .lblJmlPesan.Text = "Tidak ada pesan baru" .ErrorProvider1.Clear() .picPesan.Image = My.Resources.mail_none .lnkBukaPesan.Visible = False End If End If SetLanguage(Lang) End With End If End Sub Private Sub btnGetHint_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnGetHint.Click Dim kw, fw, lw, lgw As String If Lang = "Indonesia" Then kw = "Kata kunci : " : fw = "Huruf awal : " : lw = "; Huruf akhir : " : lgw = "; Panjang password : " Else kw = "Keyword : " : fw = "First letter : " : lw = "; Last letter : " : lgw = "; Password length : " End If Try Dim dt As New DataTable dt.Clear() GetData(dt, "SELECT * FROM T_Account where Username = '" & txtUsername.Text.Trim() & "'") If LCase(txtJawaban.Text) = LCase(dt.Rows(0)("Jawaban")) Then lblKeyword.Visible = True : lblPetunjuk.Visible = True lblKeyword.Text = kw & dt.Rows(0)("Petunjuk") lblPetunjuk.Text = fw & Strings.Left(dt.Rows(0)("Password"), 1) & _ lw & Strings.Right(dt.Rows(0)("Password"), 1) & _ lgw & Len(dt.Rows(0)("Password")) Else MessageBox.Show(A7, "SIMKA PPN Kejawanan", MessageBoxButtons.OK, MessageBoxIcon.Stop) : txtJawaban.Focus()
140
End If Catch ex As Exception MessageBox.Show("Maaf, terjadi kesalahan pada program. Petunjuk tidak dapat ditampilkan", "SIMKA PPN Kejawanan", MessageBoxButtons.OK, MessageBoxIcon.Stop) End Try End Sub Private Sub txtJawaban_GotFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles txtJawaban.GotFocus txtJawaban.Text = "" End Sub Private Sub txtJawaban_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles txtJawaban.KeyDown If e.KeyCode = Keys.Enter Then btnGetHint.PerformClick() End If End Sub Private Sub txtUsername_KeyPress(sender As Object, e As System.Windows.Forms.KeyPressEventArgs) Handles txtUsername.KeyPress, txtPassword.KeyPress Try Catch ex As Exception MessageBox.Show("Maaf,terjadi kesalahan sistem, aplikasi terpaksa ditutup. Silakan buka ulang aplikasi Anda", "SIMKA PPN Kejawanan", MessageBoxButtons.OK, MessageBoxIcon.Stop) End Try End Sub End Class
Source Code “D_EditHome” Public Class D_EditHome Private Sub OK_Button_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSimpan.Click If Eksekusi(String.Format("update T_Home set Tanggal='{0}', Subject1 ='{1}', Pengumuman1 ='{2}', Subject2 ='{3}', Pengumuman2 ='{4}', Subject3 ='{5}', Pengumuman3 ='{6}', Subject4 ='{7}', Pengumuman4 ='{8}', Subject5 ='{9}', Pengumuman5 ='{10}', Tinggi_Gel ='{11}', Cuaca = '{12}', Suhu = '{13}', Iklan1 ='{14}', Iklan2 ='{15}', Iklan3 ='{16}', Iklan4 ='{17}', Iklan5 ='{18}', Iklan6 ='{19}'", dtpTgl.Text, txtSubject1.Text, txtPengumuman1.Text, txtSubject2.Text, txtPengumuman2.Text, txtSubject3.Text, txtPengumuman3.Text, txtSubject4.Text, txtPengumuman4.Text, txtSubject5.Text, txtPengumuman5.Text, txtTgi_Gel.Text, cbCuaca.Text, txtSuhu.Text, txtIklan1.Text, txtIklan2.Text, txtIklan3.Text, txtIklan4.Text, txtIklan5.Text, txtIklan6.Text)) > 0 Then MessageBox.Show("Data berhasil diubah", "Sukses", MessageBoxButtons.OK, MessageBoxIcon.Information) Me.Dispose() AddHomeItem() Else MessageBox.Show("Record gagal diubah", "Kesalahan", MessageBoxButtons.OK, MessageBoxIcon.Error) End If End Sub Private Sub Cancel_Button_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnBatal.Click Me.DialogResult = System.Windows.Forms.DialogResult.Cancel Me.Close() Me.Dispose() End Sub Private Sub D_UbahHome_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load getConnString() SetLanguage(Lang) ChangeBackColor(ColorName) dt.Clear() GetData(dt, "SELECT * FROM T_Home") If Not IsDBNull(dt.Rows(0)("Tinggi_Gel")) Then txtTgi_Gel.Text = dt.Rows(0)("Tinggi_Gel") If Not IsDBNull(dt.Rows(0)("Subject1")) Then txtSubject1.Text = dt.Rows(0)("Subject1") If Not IsDBNull(dt.Rows(0)("Pengumuman1")) Then
txtPengumuman1.Text = dt.Rows(0)("Pengumuman1") If Not IsDBNull(dt.Rows(0)("Subject2")) Then txtSubject2.Text = dt.Rows(0)("Subject2") If Not IsDBNull(dt.Rows(0)("Pengumuman2")) Then txtPengumuman2.Text = dt.Rows(0)("Pengumuman2") If Not IsDBNull(dt.Rows(0)("Subject3")) Then txtSubject3.Text = dt.Rows(0)("Subject3") If Not IsDBNull(dt.Rows(0)("Pengumuman3")) Then txtPengumuman3.Text = dt.Rows(0)("Pengumuman3") If Not IsDBNull(dt.Rows(0)("Subject4")) Then txtSubject4.Text = dt.Rows(0)("Subject4") If Not IsDBNull(dt.Rows(0)("Pengumuman4")) Then txtPengumuman4.Text = dt.Rows(0)("Pengumuman4") If Not IsDBNull(dt.Rows(0)("Subject5")) Then txtSubject5.Text = dt.Rows(0)("Subject5") If Not IsDBNull(dt.Rows(0)("Pengumuman5")) Then txtPengumuman5.Text = dt.Rows(0)("Pengumuman5") If Not IsDBNull(dt.Rows(0)("Iklan1")) Then txtIklan1.Text = dt.Rows(0)("Iklan1") If Not IsDBNull(dt.Rows(0)("Iklan2")) Then txtIklan2.Text = dt.Rows(0)("Iklan2") If Not IsDBNull(dt.Rows(0)("Iklan3")) Then txtIklan3.Text = dt.Rows(0)("Iklan3") If Not IsDBNull(dt.Rows(0)("Iklan4")) Then txtIklan4.Text = dt.Rows(0)("Iklan4") If Not IsDBNull(dt.Rows(0)("Iklan5")) Then txtIklan5.Text = dt.Rows(0)("Iklan5") If Not IsDBNull(dt.Rows(0)("Iklan6")) Then txtIklan6.Text = dt.Rows(0)("Iklan6") If Not IsDBNull(dt.Rows(0)("Cuaca")) Then cbCuaca.Text = dt.Rows(0)("Cuaca") If Not IsDBNull(dt.Rows(0)("Suhu")) Then txtSuhu.Text = dt.Rows(0)("Suhu") txtHari.Text = Format(Now, "dddd") End Sub Private Sub txtTgi_Gel_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles txtTgi_Gel.KeyPress, txtSuhu.KeyPress e.Handled = NumericOnly(e) End Sub Private Sub txtTgi_Gel_KeyUp(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles txtTgi_Gel.KeyDown, txtIklan6.KeyDown, txtPengumuman1.KeyDown If e.KeyCode = Keys.Enter Then btnSimpan.PerformClick() End If End Sub Private Sub btnExit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnExit.Click Me.Dispose() End Sub End Class
Source code selengkapnya terdapat dalam CD
141
Petunjuk Penginstalan SIMKA PPN Kejawanan 1. Klik “setup.exe” pada CD instalasi program. 2. Ikuti langkah-langkah penginstalan yang tampil sampai selesai. 3. Jika muncul peringatan untuk menginstal .NET Framework 3.5, maka instal terlebih dahulu file “dotNetFx45_Full_setup.exe” yang terdapat pada folder “Support” pada CD instalasi program. 4. Setelah SIMKA selesai diinstal, maka akan muncul shortcut SIMKA pada bagian desktop. 5. Untuk menjalankan SIMKA pertama kali, Anda harus masuk sebagai administrator, klik pilihan user administrator, lalu masukkan username: admin dan password: admin. 6. Setelah menu utama berhasil diakses, maka Anda dapat melakukan manajemen data user, sumberdaya ikan, alat tangkap, kapal dan sebagainya.
