CONTOH HASIL BAHASAN PEMROGRAMAN

a. Munu Utama
Munu Utama
Private Sub cmdExit_Click()
Dim Kel As Long
Kel = MsgBox("Yakin Mau Keluar...!", vbYesNo + vbInformation, "Confirm Exit")
If Kel = vbYes Then
End
End If
End Sub
Private Sub MDIForm_Load()
Connect_to_Server
End Sub

Private Sub mnBahan_Click()
FrmBahan.Show
End Sub
Private Sub mnDesa_Click()
FrmDesa.Show
End Sub

Private Sub mnIzin_Click()
FrmIzin.Show
End Sub

Private Sub mnKabupaten_Click()
FrmKabupaten.Show
End Sub

Private Sub mnKEcamatan_Click()
FrmKecamatan.Show
End Sub

Private Sub mnPropinsi_Click()
FrmPropinsi.Show
End Sub

Private Sub mnReport_Click()
frmReport.Show
End Sub

Private Sub mnTambang_Click()
FrmTambang.Show
End Sub
Private Sub repKecamatan_Click()
End Sub
Private Sub Timer1_Timer()
StatusBar1.Panels(1) = Format(Date, "dd mmmm yyyy")
StatusBar1.Panels(2) = Format(Time, "hh:mm:ss")
StatusBar1.Panels(3) = "-"
StatusBar1.Panels(4).Text = "-"
End Sub
Private Sub xStatus_Change()
End Sub



b. Data Propinsi

Dim Rs As ADODB.Recordset
Private Sub cmdBaru_Click()
On Error Resume Next
Clear_Textbox Me

Me.cmdBaru.Enabled = False
Me.cmdSimpan.Enabled = True
Me.cmdBatal.Enabled = True
Me.cmdEdit.Enabled = False
Me.cmdHapus.Enabled = False
status = False

End Sub

Private Sub cmdBatal_Click()
Me.cmdBaru.Enabled = True
Me.cmdSimpan.Enabled = False
Me.cmdBatal.Enabled = False
Me.cmdEdit.Enabled = False
Me.cmdHapus.Enabled = False
RefreshList
End Sub
Private Sub cmdEdit_Click()
on_object Me
status = True
Me.cmdSimpan.Enabled = True
Me.cmdBatal.Enabled = True
Me.cmdEdit.Enabled = False
Me.cmdHapus.Enabled = False
End Sub
Private Sub cmdHapus_Click()
'On Error Resume Next
Me.cmdBaru.Enabled = True
Me.cmdSimpan.Enabled = False
Me.cmdBatal.Enabled = False
Me.cmdEdit.Enabled = False
Me.cmdHapus.Enabled = False
Del = MsgBox("Benar Data Ini Mau Di Hapus ? .......", vbYesNo + vbCritical, "Delete")
If Del = vbYes Then
Set Rs = New ADODB.Recordset
xSQL = "delete from TPropinsi where Propinsi= '" & Me.xKode.Text & "'"
Rs.Open xSQL, Mydb, adOpenDynamic, adLockOptimistic
End If
RefreshList
End Sub
Private Sub cmdKeluar_Click()
FrmMenuUtama.xStatus.Text = ""
FrmMenuUtama.xStatus.Text = "MENU UTAMA"
Unload Me
End Sub
Private Sub cmdSimpan_Click()
Me.cmdBaru.Enabled = True
Me.cmdSimpan.Enabled = False
Me.cmdBatal.Enabled = False
Me.cmdEdit.Enabled = False
Me.cmdHapus.Enabled = False
If status = False Then
KosongkanSimpanData
setFieldRecord 1, "Propinsi", Me.xPropinsi.Text, "C"

SimpanRecord Mydb, "TPropinsi", False
End If
If status = True Then
setValidasi 1, "Propinsi", Me.xKode.Text
setFieldRecord 1, "Propinsi", Me.xPropinsi.Text, "C"
SimpanRecord Mydb, "TPropinsi", True
End If
RefreshList
End Sub

Private Sub Form_Activate()
FrmMenuUtama.xStatus.Text = "FORM INPUT, EDIT DAN HAPUS DATA Propinsi"
End Sub

Private Sub Form_Load()
Tengah Me
On Error Resume Next
Me.cmdSimpan.Enabled = False
Me.cmdBatal.Enabled = False
Me.cmdEdit.Enabled = False
Me.cmdHapus.Enabled = False
isi_FieldKriteria Me.xMelalui, "TPropinsi"
RefreshList
End Sub
Private Sub Ms_dblClick()
Clear_Textbox Me
Me.cmdBatal.Enabled = True
Me.cmdSimpan.Enabled = False
Me.cmdEdit.Enabled = True
Me.cmdHapus.Enabled = True
xKode.Text = getItemList(Me.ms, 1)
TampilList
ms.SetFocus
End Sub
Private Sub ms_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Ms_dblClick
End If
End Sub
Private Sub TampilList()
On Error Resume Next
Dim rs1 As ADODB.Recordset
Dim query As String
query = "Select * from TPropinsi where Propinsi= '" & Me.xKode.Text & "'"
Set rs1 = New ADODB.Recordset
rs1.Open query, Mydb, adOpenDynamic, adLockOptimistic
If Not rs1.EOF Then
rs1.MoveFirst
With rs1
Me.xPropinsi.Text = !Propinsi
End With
End If
End Sub
Public Sub RefreshList()
On Error Resume Next
xSQL = "Select * From TPropinsi Order By Propinsi"
TampilData xSQL, ms, Mydb, 1
Me.ms.ColumnHeaders.Item(2).Width = 2000
End Sub
Public Sub FindList(str As String)
On Error Resume Next
xSQL = "Select * From TPropinsi where " & Me.xMelalui.Text & " Like '%" & str & "%' Order By Propinsi"
TampilData xSQL, ms, Mydb, 1
Me.ms.ColumnHeaders.Item(2).Width = 2000
End Sub
Private Sub xMelalui_Click()
xKata.Locked = False
End Sub
Private Sub xKata_Change()
FindList Me.xKata.Text
End Sub
Private Sub xPropinsi_Change()

End Sub



c. Data Kabupaten
Dim Rs As ADODB.Recordset
Private Sub cmdBaru_Click()
On Error Resume Next
Clear_Textbox Me

Me.cmdBaru.Enabled = False
Me.cmdSimpan.Enabled = True
Me.cmdBatal.Enabled = True
Me.cmdEdit.Enabled = False
Me.cmdHapus.Enabled = False
status = False

End Sub

Private Sub cmdBatal_Click()
Me.cmdBaru.Enabled = True
Me.cmdSimpan.Enabled = False
Me.cmdBatal.Enabled = False
Me.cmdEdit.Enabled = False
Me.cmdHapus.Enabled = False
RefreshList
End Sub
Private Sub cmdEdit_Click()
on_object Me
status = True
Me.cmdSimpan.Enabled = True
Me.cmdBatal.Enabled = True
Me.cmdEdit.Enabled = False
Me.cmdHapus.Enabled = False
End Sub
Private Sub cmdHapus_Click()
'On Error Resume Next
Me.cmdBaru.Enabled = True
Me.cmdSimpan.Enabled = False
Me.cmdBatal.Enabled = False
Me.cmdEdit.Enabled = False
Me.cmdHapus.Enabled = False
Del = MsgBox("Benar Data Ini Mau Di Hapus ? .......", vbYesNo + vbCritical, "Delete")
If Del = vbYes Then
Set Rs = New ADODB.Recordset
xSQL = "delete from TKabupaten where KodeKabupaten = '" & Me.xKode.Text & "'"
Rs.Open xSQL, Mydb, adOpenDynamic, adLockOptimistic
End If
RefreshList
End Sub
Private Sub cmdKeluar_Click()
FrmMenuUtama.xStatus.Text = ""
FrmMenuUtama.xStatus.Text = "MENU UTAMA"
Unload Me
End Sub
Private Sub cmdSimpan_Click()
Me.cmdBaru.Enabled = True
Me.cmdSimpan.Enabled = False
Me.cmdBatal.Enabled = False
Me.cmdEdit.Enabled = False
Me.cmdHapus.Enabled = False
If status = False Then
KosongkanSimpanData
setFieldRecord 1, "KodeKabupaten", Me.xKodeKabupaten.Text, "C"
setFieldRecord 2, "NamaKabupaten", Me.xNamaKabupaten.Text, "C"
setFieldRecord 3, "Propinsi", Me.xPropinsi.Text, "C"

SimpanRecord Mydb, "TKabupaten", False
End If
If status = True Then
setValidasi 1, "KodeKabupaten", Me.xKode.Text
setFieldRecord 1, "KodeKabupaten", Me.xKodeKabupaten.Text, "C"
setFieldRecord 2, "NamaKabupaten", Me.xNamaKabupaten.Text, "C"
setFieldRecord 3, "Propinsi", Me.xPropinsi.Text, "C"

SimpanRecord Mydb, "TKabupaten", True
End If
RefreshList
End Sub

Private Sub Form_Activate()
FrmMenuUtama.xStatus.Text = "FORM INPUT, EDIT DAN HAPUS DATA Kabupaten"
End Sub

Private Sub Form_Load()
Tengah Me
On Error Resume Next
Me.cmdSimpan.Enabled = False
Me.cmdBatal.Enabled = False
Me.cmdEdit.Enabled = False
Me.cmdHapus.Enabled = False
IsiKombo "Select Propinsi From TPropinsi", Me.xPropinsi
isi_FieldKriteria Me.xMelalui, "TKabupaten"

RefreshList

End Sub
Private Sub Ms_dblClick()
Clear_Textbox Me
Me.cmdBatal.Enabled = True
Me.cmdSimpan.Enabled = False
Me.cmdEdit.Enabled = True
Me.cmdHapus.Enabled = True
xKode.Text = getItemList(Me.ms, 1)
TampilList
ms.SetFocus
End Sub

Private Sub ms_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Ms_dblClick
End If
End Sub


Private Sub TampilList()
On Error Resume Next
Dim rs1 As ADODB.Recordset
Dim query As String
query = "Select * from TKabupaten where KodeKabupaten = '" & Me.xKode.Text & "'"
Set rs1 = New ADODB.Recordset
rs1.Open query, Mydb, adOpenDynamic, adLockOptimistic
If Not rs1.EOF Then
rs1.MoveFirst
With rs1
Me.xPropinsi.Text = !Propinsi
Me.xKodeKabupaten.Text = !KodeKabupaten
Me.xNamaKabupaten.Text = !NamaKabupaten
End With
End If
End Sub
Public Sub RefreshList()
On Error Resume Next
xSQL = "Select * From TKabupaten Order By KodeKabupaten"
TampilData xSQL, ms, Mydb, 1
Me.ms.ColumnHeaders.Item(2).Width = 2000
End Sub
Public Sub FindList(str As String)
On Error Resume Next
xSQL = "Select * From TKabupaten where " & Me.xMelalui.Text & " Like '%" & str & "%' Order By KodeKabupaten"
TampilData xSQL, ms, Mydb, 1
Me.ms.ColumnHeaders.Item(2).Width = 2000
End Sub
Private Sub xMelalui_Click()
xKata.Locked = False
End Sub
Private Sub xKata_Change()
FindList Me.xKata.Text
End Sub

Private Sub xNamaKabupaten_Change()

End Sub

d. Data Kecamatan
Dim Rs As ADODB.Recordset
Private Sub cmdBaru_Click()
On Error Resume Next
Clear_Textbox Me
Me.cmdBaru.Enabled = False
Me.cmdSimpan.Enabled = True
Me.cmdBatal.Enabled = True
Me.cmdEdit.Enabled = False
Me.cmdHapus.Enabled = False
status = False
End Sub
Private Sub cmdBatal_Click()
Me.cmdBaru.Enabled = True
Me.cmdSimpan.Enabled = False
Me.cmdBatal.Enabled = False
Me.cmdEdit.Enabled = False
Me.cmdHapus.Enabled = False
RefreshList
End Sub
Private Sub cmdEdit_Click()
on_object Me
status = True
Me.cmdSimpan.Enabled = True
Me.cmdBatal.Enabled = True
Me.cmdEdit.Enabled = False
Me.cmdHapus.Enabled = False
End Sub
Private Sub cmdHapus_Click()
'On Error Resume Next
Me.cmdBaru.Enabled = True
Me.cmdSimpan.Enabled = False
Me.cmdBatal.Enabled = False
Me.cmdEdit.Enabled = False
Me.cmdHapus.Enabled = False
Del = MsgBox("Benar Data Ini Mau Di Hapus ? .......", vbYesNo + vbCritical, "Delete")
If Del = vbYes Then
Set Rs = New ADODB.Recordset
xSQL = "delete from TKecamatan where KodeKecamatan = '" & Me.xKode.Text & "'"
Rs.Open xSQL, Mydb, adOpenDynamic, adLockOptimistic
End If
RefreshList
End Sub
Private Sub cmdKeluar_Click()
FrmMenuUtama.xStatus.Text = ""
FrmMenuUtama.xStatus.Text = "MENU UTAMA"
Unload Me
End Sub
Private Sub cmdSimpan_Click()
Me.cmdBaru.Enabled = True
Me.cmdSimpan.Enabled = False
Me.cmdBatal.Enabled = False
Me.cmdEdit.Enabled = False
Me.cmdHapus.Enabled = False
If status = False Then
KosongkanSimpanData
setFieldRecord 1, "KodeKecamatan", Me.xKodeKecamatan.Text, "C"
setFieldRecord 2, "NamaKecamatan", Me.xNamaKecamatan.Text, "C"
setFieldRecord 3, "KodeKabupaten", Me.xKodeKabupaten.Text, "C"
SimpanRecord Mydb, "TKecamatan", False
End If
If status = True Then
setValidasi 1, "KodeKecamatan", Me.xKode.Text
setFieldRecord 1, "KodeKecamatan", Me.xKodeKecamatan.Text, "C"
setFieldRecord 2, "NamaKecamatan", Me.xNamaKecamatan.Text, "C"
setFieldRecord 3, "KodeKabupaten", Me.xKodeKabupaten.Text, "C"
SimpanRecord Mydb, "TKecamatan", True
End If
RefreshList
End Sub

Private Sub Form_Activate()
FrmMenuUtama.xStatus.Text = "FORM INPUT, EDIT DAN HAPUS DATA KECAMATAN"
End Sub

Private Sub Form_Load()
Tengah Me
On Error Resume Next
Me.cmdSimpan.Enabled = False
Me.cmdBatal.Enabled = False
Me.cmdEdit.Enabled = False
Me.cmdHapus.Enabled = False
IsiKombo "Select KodeKabupaten From TKabupaten", Me.xKodeKabupaten
isi_FieldKriteria Me.xMelalui, "TKecamatan"

RefreshList

End Sub

Private Sub Ms_dblClick()
Clear_Textbox Me
Me.cmdBatal.Enabled = True
Me.cmdSimpan.Enabled = False
Me.cmdEdit.Enabled = True
Me.cmdHapus.Enabled = True
xKode.Text = getItemList(Me.ms, 1)
TampilList
ms.SetFocus
End Sub

Private Sub ms_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Ms_dblClick
End If
End Sub

Private Sub TampilList()
On Error Resume Next
Dim rs1 As ADODB.Recordset
Dim query As String
query = "Select * from TKecamatan where KodeKecamatan = '" & Me.xKode.Text & "'"
Set rs1 = New ADODB.Recordset
rs1.Open query, Mydb, adOpenDynamic, adLockOptimistic
If Not rs1.EOF Then
rs1.MoveFirst
With rs1
Me.xKodeKabupaten.Text = !KodeKabupaten
Me.xKodeKecamatan.Text = !KodeKecamatan
Me.xNamaKecamatan.Text = !NamaKecamatan
End With
End If
End Sub
Public Sub RefreshList()
On Error Resume Next
xSQL = "Select * From TKecamatan Order By KodeKecamatan"
TampilData xSQL, ms, Mydb, 1
Me.ms.ColumnHeaders.Item(2).Width = 2000
End Sub
Public Sub FindList(str As String)
On Error Resume Next
xSQL = "Select * From TKecamatan where " & Me.xMelalui.Text & " Like '%" & str & "%' Order By KodeKecamatan"
TampilData xSQL, ms, Mydb, 1
Me.ms.ColumnHeaders.Item(2).Width = 2000
End Sub
Private Sub xMelalui_Click()
xKata.Locked = False
End Sub
Private Sub xKata_Change()
FindList Me.xKata.Text
End Sub

Private Sub xNamaKecamatan_Change()

End Sub


e. Data Desa
Dim Rs As ADODB.Recordset
Private Sub cmdBaru_Click()
On Error Resume Next
Clear_Textbox Me

Me.cmdBaru.Enabled = False
Me.cmdSimpan.Enabled = True
Me.cmdBatal.Enabled = True
Me.cmdEdit.Enabled = False
Me.cmdHapus.Enabled = False
status = False

End Sub

Private Sub cmdBatal_Click()
Me.cmdBaru.Enabled = True
Me.cmdSimpan.Enabled = False
Me.cmdBatal.Enabled = False
Me.cmdEdit.Enabled = False
Me.cmdHapus.Enabled = False
RefreshList
End Sub
Private Sub cmdEdit_Click()
on_object Me
status = True
Me.cmdSimpan.Enabled = True
Me.cmdBatal.Enabled = True
Me.cmdEdit.Enabled = False
Me.cmdHapus.Enabled = False
End Sub
Private Sub cmdHapus_Click()
'On Error Resume Next
Me.cmdBaru.Enabled = True
Me.cmdSimpan.Enabled = False
Me.cmdBatal.Enabled = False
Me.cmdEdit.Enabled = False
Me.cmdHapus.Enabled = False
Del = MsgBox("Benar Data Ini Mau Di Hapus ? .......", vbYesNo + vbCritical, "Delete")
If Del = vbYes Then
Set Rs = New ADODB.Recordset
xSQL = "delete from TDesa where KodeDesa = '" & Me.xKode.Text & "'"
Rs.Open xSQL, Mydb, adOpenDynamic, adLockOptimistic
End If
RefreshList
End Sub
Private Sub cmdKeluar_Click()
FrmMenuUtama.xStatus.Text = ""
FrmMenuUtama.xStatus.Text = "MENU UTAMA"
Unload Me
End Sub
Private Sub cmdSimpan_Click()
Me.cmdBaru.Enabled = True
Me.cmdSimpan.Enabled = False
Me.cmdBatal.Enabled = False
Me.cmdEdit.Enabled = False
Me.cmdHapus.Enabled = False
If status = False Then
KosongkanSimpanData
setFieldRecord 1, "KodeDesa", Me.xKodeDesa.Text, "C"
setFieldRecord 2, "NamaDesa", Me.xNamaDesa.Text, "C"
setFieldRecord 3, "KodeKecamatan", Me.xKodeKecamatan.Text, "C"
SimpanRecord Mydb, "TDesa", False
End If
If status = True Then
setValidasi 1, "KodeDesa", Me.xKode.Text
setFieldRecord 1, "KodeDesa", Me.xKodeDesa.Text, "C"
setFieldRecord 2, "NamaDesa", Me.xNamaDesa.Text, "C"
setFieldRecord 3, "KodeKecamatan", Me.xKodeKecamatan.Text, "C"
SimpanRecord Mydb, "TDesa", True
End If
RefreshList
End Sub
Private Sub Form_Activate()
FrmMenuUtama.xStatus.Text = "FORM INPUT, EDIT DAN HAPUS DATA Desa"
End Sub
Private Sub Form_Load()
Tengah Me
On Error Resume Next
Me.cmdSimpan.Enabled = False
Me.cmdBatal.Enabled = False
Me.cmdEdit.Enabled = False
Me.cmdHapus.Enabled = False
isi_FieldKriteria Me.xMelalui, "TDesa"
IsiKombo "Select KodeKecamatan From TKecamatan", Me.xKodeKecamatan
RefreshList
End Sub
Private Sub Ms_dblClick()
Clear_Textbox Me
Me.cmdBatal.Enabled = True
Me.cmdSimpan.Enabled = False
Me.cmdEdit.Enabled = True
Me.cmdHapus.Enabled = True
xKode.Text = getItemList(Me.ms, 1)
TampilList
ms.SetFocus
End Sub

Private Sub ms_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Ms_dblClick
End If
End Sub

Private Sub TampilList()
On Error Resume Next
Dim rs1 As ADODB.Recordset
Dim query As String
query = "Select * from TDesa where KodeDesa = '" & Me.xKode.Text & "'"
Set rs1 = New ADODB.Recordset
rs1.Open query, Mydb, adOpenDynamic, adLockOptimistic
If Not rs1.EOF Then
rs1.MoveFirst
With rs1
Me.xKodeDesa.Text = !KodeDesa
Me.xNamaDesa.Text = !NamaDesa
Me.xKodeKecamatan.Text = !KodeKecamatan
End With
End If
End Sub
Public Sub RefreshList()
On Error Resume Next
xSQL = "Select * From TDesa Order By KodeDesa"
TampilData xSQL, ms, Mydb, 1
Me.ms.ColumnHeaders.Item(2).Width = 2000
End Sub
Public Sub FindList(str As String)
On Error Resume Next
xSQL = "Select * From TDesa where " & Me.xMelalui.Text & " Like '%" & str & "%' Order By KodeDesa"
TampilData xSQL, ms, Mydb, 1
Me.ms.ColumnHeaders.Item(2).Width = 2000
End Sub

Private Sub xKodeDesa_Change()

End Sub

Private Sub xMelalui_Click()
xKata.Locked = False
End Sub
Private Sub xKata_Change()
FindList Me.xKata.Text
End Sub





f. Data Pemberian Izin

Dim Rs As ADODB.Recordset
Private Sub cmdBaru_Click()
On Error Resume Next
Clear_Textbox Me
Me.cmdBaru.Enabled = False
Me.cmdSimpan.Enabled = True
Me.cmdBatal.Enabled = True
Me.cmdEdit.Enabled = False
Me.cmdHapus.Enabled = False
status = False
End Sub
Private Sub cmdBatal_Click()
Me.cmdBaru.Enabled = True
Me.cmdSimpan.Enabled = False
Me.cmdBatal.Enabled = False
Me.cmdEdit.Enabled = False
Me.cmdHapus.Enabled = False
RefreshList
End Sub
Private Sub cmdEdit_Click()
on_object Me
status = True
Me.cmdSimpan.Enabled = True
Me.cmdBatal.Enabled = True
Me.cmdEdit.Enabled = False
Me.cmdHapus.Enabled = False
End Sub
Private Sub cmdHapus_Click()
'On Error Resume Next
Me.cmdBaru.Enabled = True
Me.cmdSimpan.Enabled = False
Me.cmdBatal.Enabled = False
Me.cmdEdit.Enabled = False
Me.cmdHapus.Enabled = False
Del = MsgBox("Benar Data Ini Mau Di Hapus ? .......", vbYesNo + vbCritical, "Delete")
If Del = vbYes Then
Set Rs = New ADODB.Recordset
xSQL = "delete from TIzin where KodeIzin = '" & Me.xKode.Text & "'"
Rs.Open xSQL, Mydb, adOpenDynamic, adLockOptimistic
End If
RefreshList
End Sub
Private Sub cmdKeluar_Click()
FrmMenuUtama.xStatus.Text = ""
FrmMenuUtama.xStatus.Text = "MENU UTAMA"
Unload Me
End Sub
Private Sub cmdSimpan_Click()
Me.cmdBaru.Enabled = True
Me.cmdSimpan.Enabled = False
Me.cmdBatal.Enabled = False
Me.cmdEdit.Enabled = False
Me.cmdHapus.Enabled = False
If status = False Then
KosongkanSimpanData
setFieldRecord 1, "KodeIzin", Me.xKodeIzin.Text, "C"
setFieldRecord 2, "Koordinat", Me.xKoordinat.Text, "C"
setFieldRecord 3, "Propinsi", Me.xPropinsi.Text, "C"
setFieldRecord 4, "Kabupaten", Me.xKabupaten.Text, "C"
setFieldRecord 5, "Desa", Me.xDesa.Text, "C"
setFieldRecord 6, "Luas", Me.xLuas.Text, "C"
setFieldRecord 7, "Kecamatan", Me.xKecamatan.Text, "C"
setFieldRecord 8, "Bahan", Me.xBahan.Text, "C"
setFieldRecord 9, "Perusahaan", Me.xPerusahaan.Text, "C"


SimpanRecord Mydb, "TIzin", False
End If
If status = True Then
setValidasi 1, "KodeIzin", Me.xKode.Text
setFieldRecord 1, "KodeIzin", Me.xKodeIzin.Text, "C"
setFieldRecord 2, "Koordinat", Me.xKoordinat.Text, "C"
setFieldRecord 3, "Propinsi", Me.xPropinsi.Text, "C"
setFieldRecord 4, "Kabupaten", Me.xKabupaten.Text, "C"
setFieldRecord 5, "Desa", Me.xDesa.Text, "C"
setFieldRecord 6, "Luas", Me.xLuas.Text, "C"
setFieldRecord 7, "Kecamatan", Me.xKecamatan.Text, "C"
setFieldRecord 8, "Bahan", Me.xBahan.Text, "C"
setFieldRecord 9, "Perusahaan", Me.xPerusahaan.Text, "C"

SimpanRecord Mydb, "TIzin", True
End If
RefreshList
End Sub

Private Sub Form_Activate()
FrmMenuUtama.xStatus.Text = "FORM INPUT, EDIT DAN HAPUS DATA Izin"
End Sub

Private Sub Form_Load()
Tengah Me
On Error Resume Next
Me.cmdSimpan.Enabled = False
Me.cmdBatal.Enabled = False
Me.cmdEdit.Enabled = False
Me.cmdHapus.Enabled = False
isi_FieldKriteria Me.xMelalui, "TIzin"
IsiKombo "Select Propinsi From TPropinsi", Me.xPropinsi
IsiKombo "Select NamaKabupaten From TKabupaten", Me.xKabupaten
IsiKombo "Select NamaKecamatan From TKecamatan", Me.xKecamatan
IsiKombo "Select NamaDesa From TDesa", Me.xDesa
IsiKombo "Select NamaBahan From TBahan", Me.xBahan
RefreshList

End Sub

Private Sub Ms_dblClick()
Clear_Textbox Me
Me.cmdBatal.Enabled = True
Me.cmdSimpan.Enabled = False
Me.cmdEdit.Enabled = True
Me.cmdHapus.Enabled = True
xKode.Text = getItemList(Me.ms, 1)
TampilList
ms.SetFocus
End Sub

Private Sub ms_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Ms_dblClick
End If
End Sub

Private Sub TampilList()
On Error Resume Next
Dim rs1 As ADODB.Recordset
Dim query As String
query = "Select * from TIzin where KodeIzin = '" & Me.xKode.Text & "'"
Set rs1 = New ADODB.Recordset
rs1.Open query, Mydb, adOpenDynamic, adLockOptimistic
If Not rs1.EOF Then
rs1.MoveFirst
With rs1
Me.xKodeIzin.Text = !KodeIzin
Me.xKoordinat.Text = !Koordinat
Me.xPropinsi.Text = !Propinsi
Me.xDesa.Text = !Desa
Me.xKabupaten.Text = !Kabupaten
Me.xLuas.Text = !Luas
Me.xKecamatan.Text = !Kecamatan
Me.xPerusahaan.Text = !Perusahaan
Me.xBahan.Text = !Bahan
End With
End If
End Sub
Public Sub RefreshList()
On Error Resume Next
xSQL = "Select * From TIzin Order By KodeIzin"
TampilData xSQL, ms, Mydb, 1
Me.ms.ColumnHeaders.Item(2).Width = 2000
End Sub
Public Sub FindList(str As String)
On Error Resume Next
xSQL = "Select * From TIzin where " & Me.xMelalui.Text & " Like '%" & str & "%' Order By KodeIzin"
TampilData xSQL, ms, Mydb, 1
Me.ms.ColumnHeaders.Item(2).Width = 2000
End Sub
Private Sub xMelalui_Click()
xKata.Locked = False
End Sub
Private Sub xKata_Change()
FindList Me.xKata.Text
End Sub
Private Sub xPerusahaan_Change()
End Sub

Categories: CONTOH HASIL BAHASAN PEMROGRAMAN

ANALISA DAN PERANCANGAN SISTEM

ANALISA DAN PERANCANGAN SISTEM


4.1 Analisa Sistem Yang Sedang Berjalan
Analisa sistem merupakan penguraian daripada sistem yang utuh kedalam bagian-bagian komponenya dengan maksud untuk mengidentifikasi dan mengevaluasi masalah-masalah yang terjadi
Untuk mendapatkan kinerja yang baik dari suatu pekerjaan, dapat diperoleh melalui sistem kinerja yang terkordinir dengan baik. Untuk mencapai hal tersebut diperlukan perbaikan terhadap sistem yang lama dengan membuat suatu rancangan sistem yang baru dapat memberikan hal yang baik daripada sistem yang lama.
Berdasarkan hasil pengamatan lansung pada Dinas Pertambangan dan Energi Tapanuli Utara, proses pengolahan data yang dilakukan pada Dinas Pertambangan dan Energi Tapanuli Utara adalah sebagai berikut:
1. Masih menggunakan cara manual dalam mengolah data Perolehan Izin Pertambangan, sehingga memungkinkan terjadinya kekeliruan.
2. Masih menggunakan cara manual dalam mengolah data dari potensi bahan tambang.

4.1.1 Prosedur Pengolahan Data
Sistem yang sedang berjalan pada kantor Dinas Pertambangan dan Energi Tapanuli Utara, khususnya proses mendapatkan data secara cepat, tepat dan efisien masih dilakukan secara manual, sehingga untuk mendapatkan informasi data-data tentang pemetaan daerah pertambangan masih mengalami kesulitan. Sistem pertimbangan pemetaan daerah pertambangan masih dilakukan secaraa manual, sehingga sistem informasi yang akan dihasilkan kurang efisien, sehingga masih memerlukan sistem yang lebih lanjut untuk menghasilkan informasi yang cepat, tepat dan akurat.

4.1.2 Aliran Informasi (Flow of Document)
Aliran sistem informasi bertujuan untuk mengetahui bagaimana proses berjalannya sistem yang ada dan untuk mengetahui masalah-masalah yang ada pada sistem tersebut. Pada sistem yang lama masih terdapat kekurangan maka dapat disempurnakan dengan sistem yang baru. Untuk lebih jelasnya mengenai aliran sistem informasi yang sedang berjalan pada Dinas Pertambangan dan Energi Tapanuli Utara.
Tujuan dari aliran sistem informasi adalah untuk menggambarkan proses dari dokumen-dokumen yang ada dalam sistem. Sistem yang digunakan sekarang menuntut diadakannya pengembangan terhadap sistem yang lama.
Untuk lebih jelasnya mengenai aliran sistem informasinya yang sedang berjalan pada kantor Dinas Pertambangan dan Energi Tapanuli Utara. Dapat dilihat pada gambar aliran sistem informasi yang sedang berjalan berikut ini:


Bidang Pertambangan Umum Kepala Dinas Pemerintah




Gambar 4.1 Aliran data sistem informasi Permohonan Izin Pemetaan Penambangan Daerah


Keterangan Gambar 4.1
a. Bidang pertambangan umum mengajukan dan menyerahkan surat permohonan izin pemetaan daerah penambangan kepada kepala dinas.
b. Kemudian kepala dinas mengirimkan surat permohonan tersebut tapi sebelumnya telah melakukan pertimbangan permohonan tersebut.
c. Bidang pertambangan umum menyediakan atau membuat data lokisi pemetaan daerah penambangan.
d. Data lokasi pemetaan daerah penambangan diserahkan kepada kepala dinas.
e. Lalu kepala dinas menginput data lokasi pemetaan daerah penambangan tersebut seperti, luas, nama daerah (desa), kecamatan, kabupaten, propinsi, jenis bahan galian (bahan tambang), koordinatnya.
f. Kemudian kepala dinas menyerahkan data lokasi pemetaan daerah penambangan kepada pemerintah.
g. Pemerintah mengirimkan surat balasan berupa izin permohonan pemetaan daerah penambangn kepada kepala dinas.
h. Surat balasan yang dikirimkan oleh pemerintah kepada dinas diserahkan kepada bidang pertambangan umum.
i. Kemudian kepala dinas memberikan izin penambangan kepada bidang pertambangan umum.
j. Kepala dinas membuat pengarsipan atas penerimaan surat izin tersebut.


4.1.3. Formulir Input Dan Output Sistem Yang Sedang Berjalan
DAFTAR IZIN PERTMBANGAN KABUPATEN TAPANULI UTARA
KEPUTUSAN BUPATI TAPANULI UTARA NOMOR :XXXX TAHUN XXXX TENTANG PEMBERIAN IZIN KUASA PERTAMBANGAN EKSPLOITASI
Tabel 4.1 Input /output yang sedang berjalan
koordinat Nama perusahaan Propinsi kabupaten kecamatan desa Bahan galian Kode wilayah luas
xxx



xxxx xxxxx



xxxxx xxxx



xxxxx xxxx



xxxx xxxx



xxxxxx xx



xx xxxx



xxxx xxxx



xxxx xx



xx

Sumber: Dinas Pertambangan Dan Energi Tapanuli Utara

POTENSI BAHAN TAMBANG DI KABUPATEN TAPANULI UTARA
Tabel 4.2:Potensi Bahan Tambang


Sumber: Dinas Pertambangan Dan Energi Tapanuli Utara
4.1.4. Analisa Kelemahan Formulir Input/Output
Untuk memperoleh data pemetaan daerah penambangan pada kantor Dinas Pertambangan dan Energi Tapanuli Utara harus membuka satu persatu file-file yang ada di komputer secara manual dan memakan waktu yang lama. Dari hasil penelitian yang dilakukan maka kelemahan sistem yang sedang berjalan sebagai berikut:
a. Informasi data yang sudah mendapat permohonan izin pemetaan daerah penambangan sangat terbatas dan untuk mengetahui data daerah penambangn yang sudah mendapat perizinan lama diperoleh.
b. Dengan memiliki yang sedang berjalan sekarang ini, harus memiliki tenaga kerja yang banyak.
c. Dalam memberikan data sering terjadi kesalahan.
d. Informasi yang sewaktu-waktu ingin dibutuhkan tidak dapat di layani dengan cepat.

4.2. Perancangan Sistem yang Diusulkan
Merupakan suatu yang sangat penting setelah tahap pendefinisian kebutuhan-kebutuhan fungsional. Pada perancangan sistem ini digambarkan bagaimana suatu sistem dibentuk dan persiapan untuk rancang bangun.
Alat bantu yang digunakan pada perancangan sistem ini yaitu menggunakan bagan alir dokumen atau termasuk dalam salah satu bagian dari System Flowchart , yang merupakan salah satu dari tool dari pengembangan secara terstruktur.

4.2.1. Ulasan Sistem Baru
Sistem yang akan dirancang ini merupakan perubahan dari sistem dokumentasi nilai yang sedang berjalan. Dalam pengoperasiannya sistem ini menggunakan komputer sebagai alat bantu dan didukung oleh program aplikasi yang dibuat dari Visual Basic, untuk menginputkan data-data yang diperlukan, seperti : Data Propinsi, Data Kabupaten, Data Perusahaan

4.2.2. Desain Global
4.2.2.1. Data Flow Diagram (DFD)
Untuk mempermudah perancangan sistem, maka pada bagian ini penulis mencoba untuk merancang diagram alir yang dibutuhkan, yaitu sebagai berikut :
Data Flow Diagram Konteks

Gambar 4.2. DFD Level Konteks

Data Flow Diagram Level Nol

Gambar 4.3 : DFD Level 0




4.2.3. Design Terperinci
4.2.3.1. Perancangan Dialog
1. Menu Utama




Gambar 4.4: Rancangan Menu Utama

2. Sub Menu File





Gambar 4.5 : Rancangan Sub Menu File

3. Sub Menu Laporan





Gambar 4.6: Rancangan Sub Menu Laporan

4.2.3.2. Perancangan Input
1. Input Data Kecamatan


Gambar 4.7 : Racangan Input Data Kecamatan
4 . Input Data Desa

Gambar 4.8 : Racangan Input Data Desa
2. Input Data Bahan Tambang

Gambar 4.9 : Racangan Input Data Bahan Tambang
3. Input Data Pemberian Izin

4.2.3.3. Perancangan Output
1. Laporan Data Kecamatan

PEMERINTAHAN KABUPATEN TAPANULI UTARA
DINAS PERTAMBANGAN DAN ENERGI TAPANULI UTARA

LAPORAN DATA KECAMATAN
Tabel 4.3: Laporan Data Kecamatan

KABUPATEN Kode Kecamatan Nama
Kecamatan
Xxxxxx


xxxxxxx Xxxxxx


xxxxxxx Xxxxxx


Xxxxxxx
Medan, dd/mm/yyyy
(________________)

2. Laporan Data Desa
PEMERINTAHAN KABUPATEN TAPANULI UTARA
DINAS PERTAMBAGAN DAN ENERGI TAPANULI UTARA
LAPORAN DATA DESA
Tabel 4.4Laporan Data Desa
No. Kecamatan Kode Desa Nama Desa
Xxxxx

xxxxx Xxxxx

xxxxx Xxxxx

xxxxx Xxxxx

xxxxx

Medan, dd/mm/yyyy

(_______________)
3. Laporan Data Bahan Tambang
PEMERINTAHAN KABUPATEN TAPANULI UTARA
DINAS PERTAMBANGAN DAN ENERGI TAPANULI UTARA
LAPORAN DATA BAHAN TAMBANG
Tabel 4.5 Tabel Laporan Data Tambang
No Kode Bahan Nama Bahan
xxxxx


xxxxx xxxxx


xxxxx xxxxx


xxxxx
Medan, dd/mm/yyyy

(_______________)

4. Laporan Data Izin Pertambangan
PEMERINTAHAN KABUPATEN TAPANULI UTARA
DINAS PERTAMBANGAN DAN ENERGI TAPANULI UTARA
LAPORAN DATA IZIN PERTAMBANGAN
Tabel 4.6:Laporan Data Izin Pertambangan
No Kode
Izin Koor
dinat Peru
Sahan Propinsi Kabupaten Kecama
tan Desa Luas
xx


xxx xxx


xxxx xxxx


xxxx xxxx


xxxx xxxxx


xxxxx xxxxx


xxxxx xxxxx


xxxxx xx


xx xx


xx

Medan, dd/mm/yyyy

(_______________)
4.2.3.4. Perancangan Database
Tujuan mendesain Basis Data (Database) adalah mengidentifikasi file – file yang akan diperlukan oleh system informasi. Untuk memudahkan rancangan sistem yang dilakukan, maka penulis membuat rancangan database yang terdiri dari tabel – tabel yang disertai gambar relasi yang menunjukkan hubungan antar tabel.
1. Database (Basis Data)
Database merupakan himpunan kelompok data / arsip yang saling berhubungan yang diorganisasikan sedemikian rupa agar kelak dapat dimanfaatkan kembali dengan cepat dan mudah. Adapun database yang penulis buat dalam perancangan ini adalah sebagai berikut :
Tabel 4.9. Propinsi
Field Name Type Size Indexed Description
Propinsi Varchar 30 Yes Nama Propinsi

Tabel 4.10. Kabupaten
Field Name Type Size Indexed Description
Propinsi
KodeKabupaten
NamaKabupaten Varchar
Varchar
Varchar 30
10
40 Yes
Yes
- Nama Propinsi
Kode Kabupaten
Nama Kabupaten

Tabel 4.11 Kecamatan
Field Name Type Size Indexed Description
KodeKabupaten
KodeKecamatan
NamaKecamatan Varchar
Varchar
Varchar 10
10
30 Yes
Yes
- Kode Kabupaten
Kode Kecamatan
Nama Kecamatan

Tabel 4.12. Desa
Field Name Type Size Indexed Description
KodeDesa
KodeKecamatan
NamaDesa Varchar
Varchar
Varchar 5
5
30 Yes
Yes
- Kode Desa
Kode Kecamatan
Nama Desa
Tabel 4.13. BahanTambang
Field Name Type Size Indexed Description
KodeBahan
NamaBahan Varchar
Varchar 2
30 Yes
- Kode Bahan
Nama Bahan Tambang

Tabel 4.14. Izin
Field Name Type Size Indexed Description
KodeIzin
Koordinat
Perusahaan
Propinsi
KodeKabupaten
KodeKecamatan
KodeDesa
BahaGalian
Luas Varchar
Varchar
Varchar
Varchar
Varchar
Varchar
Varchar
Varchar
Varchar 5
50
50
50
10
10
10
50
10 Yes
-
-
Yes
Yes
Yes
Yes
-
- Kode Izin
Koordinat
Nama Perusahaan
Propinsi
Kode Kabupaten
Kode Kecamatan
Kode Desa
Bahan Galian
Luas Galian


4.2.3.5. Normalisasi
Tabel 4. 15 Normalisasi

Koordinat Perusa
haan Propinsi Kabupaten Kecamatan Desa Bahan
Galian Luas
10 o qbiz Sumut Pahae Palipi Onan Marmer 10M

3. Bentuk Normal Pertama
Kode
Bahan Nama Bahan
B001 Batu Gamping
B002 Belerang
B003 MIKA
B004 TRANS

Kode
Kecamatan Nama Kecamatan
KC01 Pagaran
KC02 Tarutung
KC03 Pahae Julu

Kode
Desa Kode
Kecamatan Nama
Desa
DS01 KC01 Lumban Ina-Ina
DS02 KC02 Siandorandor
DS03 KC03 Pahae Jae Julu


1. Bentuk Tidak Normal
Tabel 4. 17 Bentuk Tidak Normalisasi
Koorninat Perusa
haan Propinsi Kabupaten Kecamatan Desa Bahan
Galian Luas
10 o qbiz Sumut Pahae Palipi Onan Marmer 10M
2. Bentuk Normal Kedua

PROPINSI
SUMUT
SUMUT
SUMUT

3. Bentuk Normal Kedua

Propinsi Kode
Kabupaten Nama
Kabupaten
Sumut B001 Tapanuli Uatara
Sumut B002 Tarutung

Kabupaten Kode
Kecamatan Nama Kecamatan
B001 KC01 Palipi
B002 KC02 Tarutung

Kode
Desa Kode
Kecamatan Nama
Desa
DS01 KC01 Onan
DS02 KC02 Siandorandor
DS03 KC03 Pahae Jae Julu




Relasi Antar Tabel


Gambar.4.13: Relasi Antar Tabel








1. Flowchart menu utama

























2. Flowchart Menu File





3. Flowchart Form data Propinsi



4. Flowchart Form data Kabupaten



5. Flowchart Form data Kecamatan


6. Flowchart Form Desa



7. Flowchart Form Bahan



8. Flowchart Form Pemberian Izin


9. Flowchart form Report / laporan

Categories: ANALISA DAN PERANCANGAN SISTEM

TINJAUAN UMUM PERUSAHAAN

TINJAUAN UMUM PERUSAHAAN


2.1 Tinjauan Umum Perusaahaan
Dalam penulisan Tugas Akhir ini penulis juga mengadakan studi lokasi pada Dinas Pertambangan dan Energi Tapanuli Utara juga mengadakan wawancara dengan kepala Dinas dan Pegawai-pegawai serta staf, baik mengenai sejarah perusahaan, struktural dan Fungsional bagian-bagian yang ada juga berbagai kelengkapan data lainnya.

2.1.1 Sejarah Berdirinya Dinas Pertambangan dan Energi Tapanuli Utara
Dinas Pertambangan dan Energi Tapanuli Utara berdiri setalah ada Peraturan Pemerintah(PP) tahun 2008. Semula Dinas Pertambangan dan energi bergabung dengan Dinas Perindustrian dan Perdagangan. Kemudian kedua kantor dinas ini berpisah setelah adanya Peraturan Pemerintah yang baru tersebut.
Ruang lingkup kerja Dinas Pertambangan dan Energi Tapanuli Utara adalah untuk pemberdayaan Sumber Daya Alam dalam bentuk sumber daya mineral yang ada di daerah ini (Tapanuli Utara) harus betul-betul dimanfaatkan sesuai dengan prinsip-prinsip konservasi agar mampu memberikan manfaat secara optimal bagi masyarakat dengan tetap memelihara kelestarian lingkungan. Dalam menjalankan tugasnya Dinas Pertambangan dan Energi mempunyai misi sebagai iklim Usaha Pertambangan dan Energi yang kondusif dan profesional dengan kaidah-kaidah hukum dan etika bisnis yang berlaku memalui pengelolaan yang efisien serta berorientasi meningkatkan nilai tambah.
Juga mencakup visi sebagai berikut:
1) Menyusun kebijakan investasi di bidang pertambangan dan energi yang kondusif dan memberikan pelayanan secara professional
2) Memelihara dan meningkatkan kontribusi sektor pertambangan dan energi bagi penerimaan negara dan daerah yang tetap mempertimbangkan prinsip konservasi
3) Meningkatkan penyediaan dan pemanfaatan sumber daya mineral, batu bara dan energi yang berkelanjutan sebagai bahan baku industri daerah dan dalam negeri.
4) Meningkatkan pengembangan dan pengusahaan pertambangan dan energi yang berwawasan lingkungan, kesehatan dan keselamtan kerja serta konservasi
5) Meningkatkan praktek kegiatan usaha pertambangan yang baik dan kemitrausahaan antara usaha pertambangan besar dan kecil serta meningkatkan pengembangan masyarakat.

2.2 Struktur Organisasi Dinas Pertambangan dan Energi Tapanuli Utara
Secara umum organisasi juga dapat disimpulkan sebagai berikut:
1. Adanya sekelompok orang dalam suatu usaha.
2. Adanya maksud dan tujuan untuk saling bekejasama.
3. Adanya hubungan pekerjaan dalam ruang lingkup suatu pekerjaan.
Struktur organisasi mengandung spesilaisasi pekerjaan, standarisasi, koordinaasi, sentralisasi, atau desentralisasi dalam pembuatan keputusan dan satuan kerja. Manajer perlu menggambarkan bagan organisasi (organization chart) untuk menunjukkan strukutur organisasi. Satuan-satuan organisasi yang terpisah biasanya digambarkan dalam kotak jaringan, dimana hubungan satu dengan yang lainnya menunjukkan rantai perintah dari jalur komunikasi formal.
Struktur organisasi juga bertujuan agar anggota yang ada didalamnya dapat bekerjasama dengan baik, pembuatan struktur organisasi biasanya dipengaruhi oleh sifat dan jenis kegiatan usaha, ukuran dan faktor-faktor lain yang mempengaruhi kondisi perussahaan tersebut. Struktur organisasi juga dikembangkan sesiau perkembangan kegiatan perusahaan ataupun instansi pemerintah serta tujuan pengawasan yang lebih efek.
Dinas Pertambangan dan Energi Tapanuli Utara mempunyai strukutur organisasi yang juga berfungsi sebagai informasi bagi pihak luar yang ingin bekerjasama dengan Dinas Pertambangan dan Energi Tapanuli Utara yang tujuan utamanya adalah keakuratan susunan dan wewenang dan tanggung jawab para pegawai-pegawai dan staf Dinas Pertambangan dan Energi Tapanuli Utara sehingga pihak yang ingin bekerjasama dapat memberikan kepercayaan terhadap proyek pertambangan yang ingin dikerjakan bersama. Dinas Pertambangan dan Energi memilih struktur organisasi berbentuk garis susunan fungsi dari atasan kebawahan sesuai dengan fungsi dan wewenang yang tujuannya mempermudah pimpinan untuk mengambil keputusan demi kemajuan Dinas Pertambangan dan Energi Tapanuli Utara dan setiap bagian-bagian dapat memberikan usulan-usulan yang tujuannya untuk pengembangan dan kemajuan bersama. Untuk lebih jelasnya dapat dilihat pada gambar 2.1



Gambar 2.1: struktur Organisasi Sumber: Dinas Pertambangan Dan Energi Tapanuli Utara

2..3 Uraian Tugas, Wewenang dan Tanggung Jawab
Dalam susunan strukutur terdapat susunan tugas, wewenang dan tenggung jawab setiap bagian yang ada. Adapun struktur organisasi Dinas Pertambangan dan Energi Tapanuli Utara . Tugas, tanggung jawab dan wewenang tersebut adalah sebagai berikut:
A. Kepala Dinas
Tugas, Tanggung Jawab dan Wewenangnya adalah sebagai berikut:
(1) Kepala Dinas mempunyai tugas membantu Bupati dalam melaksanakan tugas otonomi dan tugas pembantuan dibidang Pertambangan dan Energi,
(2) Untuk menyelenggarakan tugas sebagaimana tersebut pada ayat (1) Pasal ini Kepala Dinas menyelenggrakan fungsi,
a) Penyiapan konsep kebijakan Daerah, ketentuan dan pelaksanaan kewenagan daerah serta pelaksanaan tugas di bidang Pertambangan dan Energi,
b) Pelaksanaan dan pengendalian pembangunan jangka menengah dan tahunan dibidang Pengembangan Pertambangan Umum, Geologi dan Sumber Daya Mineral, Ketenagalistrikan, Migas, Panas bumi dan Pengembangan Energi,
c) Penyelenggaraan koordinasi dan kerjasama dengan instasni/pihak terkait dalam peningkatan usaha dibidang pertambangan dan energi dan sumber daya mineral,
d) Pelaksanaan tugas lain yang diberikan oleh Bupati dan Sekretaris Daerah sesuai dengan tugas dan funsinya,
e) Pemberian masukan yang perlu kepada Buapati dan Sekretaris Daerah sesuai dengan tugas dan funsinya,
f) Pelaporan dan tanggung jawab atas pelaksanaan tugas dan fungsinya kepada Buapati melalui Sekretaris Daerah.
(3) Untuk melaksankan tugas dan fungsi sebagaimana dimaksud ayat (1) dan (2) Pasal ini Kepala Dinas dibantu oleh :
a) Sekretaris ,
b) Bidang Pertambangan Umum
c) Bidang Geologi dan Sumber Daya Mineral
d) Bidang Kelistrikan, Migas dan Panas Bumi
e) Bidang Promosi dan Investasi Pengusahaan Pertambangan.
B. Sekretaris
1) Sekretaris mempunyai tugas membantu Kepala Dinas dibidang Umum dan Kepegawaian, Keuangan, Program;
2) Untuk melaksanakan tugas sebagaimana dimaksud pada ayat (1) pasal ini, sekretaris menyelenggarakan fungsi:
a) Penyelenggaraan urusan umum, pengelolaan keuangan, pemberdayaan pegawai, pemberdayaan organisasi dan penyiapan produk-produk hokum,
b) Perencanaan kebutuhan internal dan kebutuhan administratif Dinas, serta peningkatan pengelolaan dan pengendalian pelaksanaanya,
c) Perencanaan, pengelolaan dan pengurusan pertanggung-jawaban keuangan Dinas,
d) Perencanaan, pengelolaan dan peningkatan pendayagunaan kepegawaian,
e) Perencanaan, pelaksanaan,pengkordinasian dan pengendalian rencana pembangunan jangka menengah dan tahunan Dinas,
f) Pelaksanaan tugas lain yang diberikan Kepala Dinas sesuai dengan bidang tugas dan fungsinya,
g) Pemberian masukan yang perlu kepada Kepala Dinas sesuai dengan bidang tugas dan fungsinya,
h) Pelaporan dan pertanggungjawaban atas pelaksanan tugas dan fungsinya kepada Kepala Dinas dengan bidang tugas dan fingsinya.
3) Untuk melaksanakan tugas dan fungsi sebagaimana dimaksud pada ayat (1) dan ayat (1) pasal ini, Sekretaris dibantu oleh :
a) Kepala Subbag Umum dan Kepegawaian
b) Kepala Subbag dan Keuangan
c) Kepala Subbag Program


(1). Kepala Sub Bagian Umum dan Kepegawaian, mempunyai tugas:
a) Melaksanakan urusan tata usaha, ppengelolaan inventaris, penegakan disiplin, pembinaan kesejahteraan, administrasi umum dan kepegawaian serta perjalanan Dinas,
b) Melaksanakan tugas lain yang diberikan Sekretaris sesuai dengan bidang tugasnya,
c) Memberikan masukan yang perlu kepada Sekretaris sesuai dengan bidang tugasnya,
d) Melaporkan dan mempertanggung-jawabkan tugasnya kepada Sekretaris.
(2). Kepala Sub Bagian Keuangan, mempunyai tugas:
a) Melaksanakan penysunan rencana belanja dinas dan menyelenggrakan administrasi keuangan serta membuat laporan keuangan,
b) Melaksankan tugas lain yang diberikan oleh sekretaris sesuai dengan bidang tugasnya,
c) Memberikan saran yang perlu kepada Sekretaris sesuai dengan bidang tugasnya,
d) Melaporkan dan mempertanggung-jawabkan pelaksanaan tugasnya kepada sekretaris.
(3). Kepala Sub Bagian Program, mempunyai tugas:
a) Mengkoordinasikan penyusunan dan pengendalian pembangunan jangka menengah dan tahunan Dinas,
b) Melaksankan tugas lain yang diberikan Sekretaris sesuai dengan Bidang tugas dan fungsinya,
c) Membreikan saran yang perlu kepada Sekretaris sesuai dengan tugasnya,
d) Memberikan laporan pertanggung-jawaban atas pelaksanaan tugas dan fungsinya kepada Sekretaris.
C. Bidang Pertambangan Umum
1) Kepala Bidang Pertambangan Umum mempunyai tugas membantu Kepala Dinas dalam bimbingan dan pengembangan pertambangan umum pengawasan pertambangan umum dan konservasi bahan galian,
2) Untuk melaksanakan tugas sebagaimana dimaksud pada ayat (1) pasal ini, Kepala Bidang pertambangan Umum menyelenggrakan fungsi,
a) Penyusunan, pengkoordinasian, pengendalian, bimbingan dan pengembangan, pengawasanpertanmbangan umum serta konservasi bahan galian,
b) Pelaksanaan tugas lain yang diberikan oleh Kepala Dinas sesuai dengan bidang tugas dan fungsinya,
c) Pemberian masukan yang perlu kepada Kepala Dinas sesuai bidang tugas dan fungsinya,
d) Pelaporan dan pertanggung-jawaban atas pelaksanaan tugas dan fungsi Kepala Dinas.
3) Untuk melaksankan tugas dan fungsi sebagaimana dimaksud pada ayat (1) dan ayat (2) pasal ini, kepala Bidang Pertambangan Umum dibantu oleh:
a. Kepala Seksi Pengawasan dan Konservasi Daya Mineral
b. Kepala Seksi pembinaan dan Pengendalian Pertamabangan.
(1). Kepala Seksi Pengawasan dan Konservasi Daya Mineral, mempunyai tugas:
a) Melakukan pemetaan zonasi pertambangan, pengawasan adminstratif, teknis, potensi bahan galian, pengujian peta lokasi, pengawasan pelaksanaan konservasi bahan galian, keselamatan dan kesehatan kerja, sert alingkungan hidup dibidang pertambangan umum,
b) Mengumpulkan, mengolah dan menyajikan bahan/data untuk penysunan rencana jangka menengah dan tahunan pengembangan dan peningkatan konservasi bahan galian, pengawasan pertambangan umum,
c) Melaksanakan sosialisasi, evaluasi, pembinaan dan pengendalian konservasi bahan galian, pengawasan pertambangan umum,
d) Melaksanakan konservasi bahan galian, pengawasan meliputi administratif, teknis, keselamatan dan kesehatan kerja serta lingkungan hidup dibidang pertambangan umum,
e) Melaksanakan tugas lain yang diberikan oleh Kepala Bidang Pertambangan Umum, sesuai dengan bidang tugasnya,
f) Memberikan masukan yang perlu kepada Kepala Bidang Pertambangan Umum, sesuai dengan bidang tugasnya,
g) Melaporkan dan mempertanggung-jawabkan pelaksanaan tugasnya kepada Kepala Bidang Pertambangan Umum.
(2). Kepala Seksi Pembinaan dan Pengendalian Pertambangan, mempunyai tugas:
a) Melaksanakan pengusahaan, penyelenggaraan pembinaan dan pengendalian pertambangan umum,
b) Mengumpulkan, mengolah dan menyajikan bahan/data untuk penyempurnaan dan penysunan rencana jangka menengah dan tahunan pengembangan dan peningktan pembinaan pertambangan umum,
c) Melaksanakan sosialisasi, evaluasi, pembinaan dan pengendalian, pengawasan pertambangan umum,
d) Melaksanakan pembinaan, pengawasan bahan galian meliputi kulitas maupun kuantitas dibidang pertbangan umum,
e) Melaksanakan tugas lain yang diberikan oleh Kepala Bidang Pertamabangan Umum, sesuai dengan bidang tugasnya,
f) Memberikan masukan yang perlu kepada Kepala Bidang Pertambangan Umum, sesuai dengan tugasnya,
g) Melaporkan dan mempertanggung-jawabkan pelaksanaan tugasnya kepada Kepala Bidang Pertamabangan Umum.
D. Bidang Geologi dan Sumber Daya Mineral
(1). Kepala Bidang Geologi dan Sumber Daya Mineral mempunyai tugas membantu Kepala Dinas dalam Bimbingan dan pengemabangan geologi umum dan Vulkanologi, Sumber Daya Mineral, geologi tata lingkungan dan hidrologi.
(2). Untuk melaksanakan tugas sebagaimana dimaksud pada ayat (1) pasal ini, Kepala Bidang Geologi dan Sumber Daya Mineral menyelenggarakan fungsi:
a) Pemantuan dan pengembangan geologi umum dan vulkanologi, Sumber Daya Mineral, pengelolaan aor bawah tanah, geologi tata lingkungan, zona bahaya tanah longsor dan hidrogeologi,
b) Pelaksanaan, pengkoordinasian dan pengendalian, pemantuan, survey penelitian dan pemetaan geologi umum dan vulkanologi, Sumber Daya Mineral,geologi tata lingkungan dan hidrogeologi, pengelolaan air bawah tanah, zona bahaya longsor,
c) Pelaksanaan tugas lain yang diberikan oleh Kepala Dinas sesuai dengan bidang tugas dan fungsinya,
d) Pemberian masukan yang perlu kepada Kepala Dinas sesuai dengan tugas dan Fungsinya,
e) Pelaporan dan pertanggung-jawaban atas pelaksanaan tugas dan fungsi kepada Kepala Dinas.
(3). Untuk melaksanakan tugas dan fungsi sebagaimana dimaksud pada ayat (1) dan ayat (2) pasal ini, kepala Bidang Geologi dan Sumber Daya Mineral dibantu oleh :
a) Kepala Seksi Eksplorasi Sumber Daya Mineral dan Hidrogeologi
b) Kepala Seksi Mitigasi dan Bencana Lingkungan Geologi
(1). Kepala Seksi Eksplorasi Sumber Daya Mineral dan Hidrogeologi, mempunyai tugas :
a) Melaksanakan pengumpulan/inventarisasi, penyelidikan, pemetaan dan evaluasi hidrogeologi, geolistik, potensi air bawah tanah, cekungan aiar bawah tanah, pengolahan dan pemanfaatan bahan/data sumber daya mineral, pengelolaan aiar bawah tanah,
b) Mengumpulkan, mengolah, menyajikan bahan/data untuk penyempurnaan dan peyusunan rencana jangka menengah dan tahunan pengembangan, peningkatan Sumber Daya Mineral dan Hidrogeologi,
c) Menyelenggarakan sosialisasi, evaluasi, pembinaan dan pengendalian, pengumpulan, pengolahan dan pemanfaatan bahan /data Sumber Daya Mineral, pengendalian penelitian dan fasilitas penelitian hidrogeologi,
d) Melaksanakan inventarisasi, penyelidikan/ekplorasi Sumber Daya Mineral dan energi, survey potensi air bawah tanah, daerah resapan air bawah tanah,
e) Melaksanakan tugas lain yang diberikan oleh Kepala Bidang Geologi dan Sumber Daya Mineral, sesuai dengan bidang tugasnya,
f) Memberikan masukan yang perlu kepada Kepala Bidang Geologi dan Sumber Daya Mineral, sesuai dengan bidang tugasnya,
g) Melaporkan dan mempertanggung-jawabkan pelaksanaan tugasnya kepada Kepala Bidang Geologi dan Sumber Daya Mineral.
(2). Kepala Seksi Mitigasi dan Bencana Lingkungan Geologi, mempunyai tugas:
a) Melaksanakan pemetaan geologi umum serta pemantauan dan pengamatan gunung berapi, inventarisasi, penyelidikan, pemetaan, mitigasi bencana alam geologi dan geologi lingkungan,
b) Mengumpulkan, mengolah dan menyajikan bahan/data untuk penyempurnaan dan penyusunan rencana jangka menengah dan tahunan pengembangan dan peningkatan geologi umum dan vulkanologi, geologi tata lingkungan,
c) Menyelenggrakan sosialisasi, evaluasi, pembinaan dan pengendalian atas pemetaan, pemantauan, pengamatan, pelaporan dan fasilitas kegiatan geologi umum dan vulkanologi, aktifitas bahaya gunung api, penerapan geologi tata lingkungan,
d) Melaksankan penagmatan, pemantauan, penyelidikan/survey dan pemetaan geologi umu, vulaknologi, aktifitas bahaya gunung api, geowisata, invntarisasi zona rawan gerakan tanah longsor, gemap bumi, geologi teknik, pemantauan lokasi tanah longsor, geologi tata lingkungan,
e) Melaksankan tugas lain yang diberikan oleh Kepala Bidang Geologi dan Sumber Daya Mineral, sesuai dengan bidang tugasnya,
f) Melaporkan dan mempertanggungjawabkan pelaksanaan tugasnya kepada Kepala Bidang Geologi dan Sumber Daya Mineral.


E. Bidang Kelistrikan, Migas dan Panas Bumi
1). Kepala Bidang Kelistrikan, Migas dan Panas Bumi mempunyai tugas membantu Kepala Dinas dalam bimbingan dan pengembangan, pengawasan dan pelayanan ketenagalistrikan, minyak dan gas bumi, Panas Bumi, konservasi energi serta pemantauan kualitas, distribusi dan harga bahan bakar minyak.
2). Untuk melaksankan tugas sebagaimana dimaksud pada ayat (1) pasal ini, Kepala Bidang Kelistrikan, Migas dan panas Bumi menyelenggarakan Fungsi:
a. Pemantauan dan pengembangan serta pengawasan pelayanan ketenagalistrikan, minyak dan gas bumi, Panas Bumi, konservasi energi serta pemantauan kualitas, distribusi dan harga bahan bakar minyak,
b. Pelaksanaan, pengkoordinasian dan pengendalian, pengembangan, pengawasan pelayanan ketenagalistrikan, minyak dan gas bumi, Panas Bumi, konservasi energi serta pemantauan kualitas, distribusi dan harga bahan bakar minyak,
c. Pelaksanaan tugas lain yang diberikan oleh Kepala Dinas sesuai dengan bidang tugas dan funsinya,
d. Pemberian masukan yang perlu kepada Kepala Dinas sesuai bidang tugas dan fungsinya,
e. Pelaporan dan pertanggung-jawaban atas pelaksanaan tugas dan fungsi kepala Dinas.
4) Untuk melaksankan tugas dan fungsi sebagaimana dimaksud pada ayat (1) dan ayat (2) pasal ini, Kepala Bidang Kelistrikan, Migas dan Panas Bumi dibantu oleh,
a. Kepala Seksi Pengembangan Ketenagalistrikan dan Energi Baru
b. Kepala Seksi panas Bumi dan Pengendalian Distribusi Migas
(1). Kepala Seksi Pengembangan Ketenagalistrikan dan Energi Baru, mempunyai Tugas:
a) Melaksanakan pengembangan, usaha ketenagalistrikan dan sumber energi lainnya,
b) Mengumpulkan, mengolah dan menyajikan bahan/data untuk penyempurnaan dan penysunan rencana jangka menengah dan tahunan pengemabangan dan peningkatan listrik dan energy,
c) Melaksankan sosialisasi, evaluasi, pembinaan dan pengendalian, penyelidikan dan pengembangan ketenagalistrikan dan sumber energi lainnya,
d) Melaksanakan penyelidikan/eksplorasi dan pengembangan ketenagalistrikan dan sumber energi lainnya,
e) Melaksankan tugas lain yang diberikan oleh Kepala Bidang Kelistrikan, Migas dan Panas Bumi, sesuai dengan bidang tugasnya,
f) Memberikan masukan yang perlu kepada Kepala Bidang Kelistrikan, Migas dan Panas Bumi, sesuai dengan tugasnya,
g) Melaporkan dan mempertanggung-jawabkan pelaksanaan tugasnya kepada Kepala Bidang Kelistrikan, Migas dan Panas Bumi.
(2). Kepala Seksi Panas Bumi dan Pengendalian Distribusi Migas, mempunyai tugas :
a) Melaksanakan pengumpulan/inventarisasi, penyelidikan, pemetaan dan evaluasi potensi air panas bumi, pengolahan dan pemanfaatan bahan/data panas bumi, pengendalian distribusi minyak dan gas bumi,
b) Mengumpulkan, mengolah dan menyajikan bahan/data untuk penyempurnaan dan penyusupan rencana jangka menengah dan tahunan pengemabangan dan peningkatan kebutuhan minyak dan gas bumi,
c) Melaksanakan sosialisasi, evaluasi, pembinaan dan pengendalian, pengumpulan, pengolahan dan pemanfaatan bahan/data potensi panas bumi, pengendalian distribusi minyak dan gas bumi,
d) Melaksanakan tugas lain yang diberikan oleh Kepala Bidang Kelistrikan, Migas dan Panas Bumi, sesuai dengan bidang tugasnya,
e) Memberikan masukan yang perlu kepeda Kepala Bidang Kelistrikan, Migas dan Panas Bumi, sesuai dengan bidang tugasnya,
f) Melaporkan dan mempertanggung-jawabkan pelaksanaan tugasnya kepada kepala Bidang Kelistrikan, Migas dan Panas Bumi.
F. Bidang Promosi dan Investasi Pengusahaan Pertambangan
(1). Kepala Bidang Promosi dan Investasi Pengusahaan Pertambangan mempunyai tugas membantu Kepala Dinas dalam melaksanakan bimbingan promosi dan pengembangan investasi, pengusahaan pertambangan dan sumber daya mineral
(2). Untuk melaksanakan tugas sebagaimana dimaksud ayat (1) pasal ini, Kepala Bidang Promosi dan Investasi Pengusahaan Pertambangan menyelenggarakan fungsi:
a) Pelaksanaan penyusunan persiapan bahan promosi dan pengkoordinasian serta penyampaian informasi peluang investasi pertambangan dan sumber daya mineral,
b) Pelaksanaan tugas lain yang diberikan oleh Kepala Dinas sesuai dengan bidang tugas dan fungsinya,
c) Pemberian masukan yang perlu kepada Kepala Dinas sesuai dengan tugas dan fungsinya,
d) Pelaporan dan pertanggung-jawaban atas pelaksanaan tugas dan fungsi kepada Kepala Dinas,
(3). Untuk melaksanakan tugas dan fungsi sebagaimana dimaksud pada ayat (1) dan ayat (2) pasal ini, kepala Bidang Geologi dan Sumber Daya Mineral dibantu oleh:
a. Kepala Seksi Promosi
b. Kepala Seksi Investasi Pengusahaan Pertambangan.
(1). Kepala Seksi Promosi, mempunyai tugas:
a. Melaksanakan penyusunan dan penyiapan bahan informasi potensi dibidang pertambangan, energi dan sumber daya mineral,
b. Melaksanakan kegiatan pameran dalam rangka promosi;
c. Melaksanakan tugas lain yang diberikan oleh Kepala Bidang Promosi dan Investasi Pengusahaan Pertambangan;
Memberikan masukan yang perlu kepada Kepala Bidang Promosi dan Investasi Pengusahaan Pertambangan, sesuai dengan bidang tugasnya,
d. Melaporkan dan mempertanggung-jawabkan pelaksanaan tugasnya kepada Kepala Bidang Promosi dan Investasi Pengusahaan Pertambangan.
(2). Kepala seksi Investasi Pengusahaan Pertambangan, mempunyai tugas:
a. Melaksanakan penyusunan penyiapan informasi investasi pertambangan, energi dan sumber daya mineral,
b. Melaksanakan tugas lain yang diberikan oleh Kepala Bidang Promosi dan Investasi Pengusahaan Pertambangan, sesuai dengan bidang tugasnya,
c. Memberikan masukan uang perlu kepada Kepala Bidang Promosi dan investasi Pengusahaan Pertambangan, sesuai dengan bidang tugasnya,
d. Melaporkan dan mempertanggung-jawabkan tugasnya kepada Kepala Bidang Promosi dan Investasi Pengusahaan Pertambangan.

Categories: TINJAUAN UMUM PERUSAHAAN

Latar Belakang Pemilihan Judul

Latar Belakang Pemilihan Judul

Suatu prestasi yang membanggakan bila mengingat pada masa lalu jika untuk melakukan pendataan saja sebuah perusahaan ataupun instansi pemerintah membutuhkan waktu berbulan-bulan, dan data tersebut bisa saja tidak akurat dan tidak sesuai lagi dalam masa yang akan datang, apalagi saat ini begitu banyaknya perusahaan maupun instasni pemerintah yang sangat membutuhkan informasi baik bagi perusahaanya maupun informasi tersebut ditujukan kepada pihak luar yang membutuhkan. Untuk itu sebuah perusahaan ataupun instansi pemerintah harus memanfaatkan kemajuan teknologi dalam kegiatan usahanya. Karena sebuah data dalam sebuah perusahaan ataupun instansi pemerintah yang diolah secara manual tidak dapat dijamin ketelitian dan kebenarannya, oleh karena itu manajemen komputer sebagai alat dan sistem pengolahan data mempunyai keistimewaan yaitu sanggup mengolah data dengan kecepatan yang luar biasa, mempunyai tingkat ketelitian yang tinggi atau dapat dipercaya. Dari keterangan di atas tentunya dapat disimpulkan bahwa sebuah perusahaan ataupun instansi pemerintah begitu sangat membutuhkan komputer dalam setiap pekerjaan apalagi yang menyangkut tentang pendataan, kepegawaian ataupun laporaan kerja lapangan.
Dinas Pertambangan dan Energi Tapanuli Utara dalam pengolahan data kepegawaian serta data untuk potensi pemetaan daerah penambangan sumber daya alam di Tapanuli Utara masih melakukan secara manual. Untuk memperoleh data yang dipercaya atau untuk melaporkan aktifitas yang dilakukan, maka diperlukan adanya suatu manajemen kepegawaian yang baik, maka penulis bermaksud mengembangkan data sistem informasi untuk potensi pemetaan daerah penambangan Sumber Daya Alam dengan menggunakan menejemen komputer.
Dengan alasan-alasan di atas, penulis tertarik mengajukan sebuah sistem, yang merupakan salah satu cara sebagai usaha masukan bagi pihak instansi pemerintah yang bertujuan untuk menyediakan informasi yang berguna khususnya dibidang pengolahan data potensi pemetaan daerah penambangan Sumber Daya Alam di Kabupaten Tapanuli Utara.
Dari uraian di atas, penulis malakukan sebuah riset pada Dinas Pertambangan Dan Energi Tapanuli Utara dengan memberi judul “Sistem Informasi Pertimbangan Potensi Pemetaan Daerah Penambangan Sumber Daya Alam di Tapanuli Utara Pada Dinas Pertambangan dan Energi”

1.2 Perumusan Masalah
Dalam pembuatan laporan mengenai pekerjaan proyek lapangan daerah penambangan, kemungkinan besar terjadi kehilangan data serta kesulitan dalam penemuan serta pembuatan data. Berdasarkan penjelasan di atas maka dapat dirumuskan yang akan diuraikan yaitu:
1. Bagaimana cara untuk dapat menemukan data lokasi daerah penambangan yang dilakukan oleh Dinas Pertambangan dan Energi Tapanuli Utara.
2. Bagaimana potensi alam yang ada dari lokasi daerah penambangan.
3. Bagaimana menata serta membuat pemetaan daerah penambangan.
4. Bagaimana memperoleh izin dari pemerintah demi pelaksanaan proyek penambangan tersebut sesuia dengan yang telah ditentukan.
5. Bagaimana tata adminstrasi perolehan izin tersebut.

1.3 Batasan Masalah
Mengingat begitu banyaknya masalah yang timbul dalam sebuah pekerjaan, maka dalam hal ini penulis akan memberikan batasan-batasan masalah yang sangat jelas agar dapat mempermudah penulis dalam menyusun penelitian data tersebut. Adapun batasan masalah yang penulis kemukakan adalah:
1. Pencatatan data Potensi bahan Tambang di Kabupaten Tapanuli Utara.
2. Pencatatan daftar izin pertambangan Kabupaten Tapanuli Utara
3. Pembuatan Sistem Informasi Pertimbangan Potensi Pemetaan Daerah Penambangan Sumber Daya Alam di Tapanuli Utara Pada Dinas Pertambangan Dan Energi .
4. Laporan dibuat dengan menggunakan pemrograman Visual Basic 6.0 serta menggunakan Crystal Report 8.5 untuk menampilkan lapora











1.4 Tujuan Penelitian
Adapun tujuan penulisan tugas akhir ini adalah sebagai berikut:
1. Mengetahui gambaran dari sistem yang dijalankan atau dipergunakan Dinas Pertambangan dan Energi Tapanuli Utara dalam pengolahan data dan menjadikannya sebagai acuan dalam penulisan laporan tersebut.
2. Merancang sistem Informasi pertimbangan potensi pemetaan daerah penambangan Sumber Daya Alam.
3. Sebagai salah saru syarat kelulusan dalam penyelesaian Program Studi Diploma III (D3) khususnya jurusan Manajemen Informatika Komputer pada STMIK Budidarma

1.5 Metode Penelitian
Adapun metode penelitian yang penulis ambil dalam penulisan Tugas Akhir ini yaitu:
1. Penelitian Lapangan (Field Research)
Yaitu mengumpulkan data yang diperlukan secara langsung ke Dinas Pertambangan dan Energi Tapanuli Utara. Dalam penelitian lapangan ini digunkaan beberapa teknik antara lain:
a. Wawancara (Interview)
Yaitu dengan mengadakan tanya jawab kepada pihak-pihak yang berhubungan dengan permasalahan yang akan dibahas pada Dinas Pertambangan dan Energi Tapanuli Utara. Wawancara juga memiliki arti lain yaitu percakapan yang diarahkan pada pemecahan suatu masalah dengan menghadapkan dua orang atau lebih secara fisik, sehingga data-data yang diperoleh dapat dipercaya dan dapat dipertanggungjawabkan. Wawancara dilakukan langsung dengan Kepala Dinas dan Pegawai-pegawai serta staf yang terkait dengan masalah tersebut.
b. Pengamatan (Observasi)
Observasi adalah mengadakan penelitian secara langsung ke objek yang berkaitan atau berhubungan dengan pengolahan data daerah penambangan pada Dinas Pertambangan dan Energi Tapanuli Utara dan mempelajari pendataan yang dilakukan secara manual dan untuk mengetahui sejauh mana pendatan secara manual tersebut membantu pekerjaan tersebut.
2. Penelitian Kepustakaan
Yaitu suatu penelitian yang dilakukan terhadap kepustakaan untuk mendapatkan landasan yang bersifat teori dengan mempelajari dan mencatat literatur dari catatan selema mengikuti perkuliahan di STMIK Budidarma Medan, serta buku-buku referensi yang berhubungan dengan penulisan Tugas Akhir ini.
Penelitian kepustakaan yang penulis ambil merupakan data-data teori sebelum penulis membuat suatu pengolahan data, hal ini memberikan pengetahuan yang lebih baik bagi penulis dan sangat mempermudah penulis dalam penulisan Tugas Akhir ini.
1.6 Sistematika Penulisan
Dalam Tugas Akhir ini penulis membuat suatu sistematika penulisan agar Tugas Akhir ini dapat dipahami dengan mudah.
Adapun penulisan Tugas Akhir ini dapat diuraikan menjadi beberpa bab seperti yang dijelaskan sebagai berikut:
BAB I : PENDAHULUAN
Bab ini menguraikan tentang Latar Belakang Pemilihan Judul, Perumusan Masalah, Ruang Lingkup Masalah, Tujuan Penelitian dan Sistematika penulisan.
BAB II : TINJAUAN UMUM PERUSAHAAN
Bab ini penulis akan menguraiakan sejarah berdirinya Dinas Pertambangan dan Energi Tapanuli Utara, Struktur Organisasi, Uraian Tugas, Wewenang dan Tanggung Jawab.
BAB III : LANDASAN TEORI
Bab ini membahas Tentang Pengolahan Data, Komputerisasi, Sistem, Informasi, Sistem Informasi, Analisa Sistem, Perancangan Sistem, Database, Konsep Dasar Bahasa Pemrograman.


BAB IV : ANALISA DAN PERANCANGAN SISTEM
Bab ini berisi tentang Analisa Sistem Yang Sedang Berjalan,Perancangan Sistem Yang Diusulkan, Rancangan Logika Program.
BAB V : KESIMPULAN DAN SARAN
Pada bab ini membahas tentang Kesimpulan dan Saran penulis tentang Tugas Akhir ini sebagai akhir dari penulisan.

Categories: Latar Belakang Pemilihan Judul

LANDASAN TEORI

LANDASAN TEORI

3.1 Sistem
3.1.1 Pengertian Sistem
Kata sistem berasal dari bahasa Yunani yang artinya “Kesatuan”, suatu kesatuan yang saling bergantung dan saling bekerja sama untuk mencapai suatu tujuan usaha tertentu.
Beberapa ahli berpendapat mengenai sistem diantaranya adalah :
a. Menurut Ir. Fathansyah, (“Sistem Basis Data”, hal 9, 2002,) “Sistem adalah sebuah tatanan yang terdiri atas sejumlah komponen fungsional yang saling berhubungan dan secara bersama-sama bertujuan untuk memenuhi suatu proses/pekerjaan tertentu”.
b. Menurut Enslopedia Administrasi, “Sistem merupakan suatu rangakaian prosedur yang merupakan suatu kebutuhan untuk melaksanakan suatu fungsi“.
Sehingga dapat disimpulkan bahwa sistem adalah sekumpulan elemen yang saling terkait atau terpadu untuk mencapai tujuan tertentu.
Suatu sistem mempunyai karakteristik atau sifat-sifat tertentu yaitu :
1. Komponen-komponen Sistem (Components)
Suatu sistem terdiri dari sejumlah komponen yang saling berinteraksi, yang artinya saling bekerja sama membentuk satu kesatuan. Komponen-komponen sistem tersebut dapat berupa suatu sub sistem.


2. Batas Sistem (Boundary)
Ruang lingkup sistem merupakan daerah yang membatasi antara sistem dengan sistem yang lain atau sistem dengan lingkungan luarnya. Batasan sistem dipandang sebagai satu kesatuan yang tidak dapat dipisah-pisahkan.
3. Lingkungan Luar Sistem (Environments)
Lingkungan luar dari suatu sistem adalah apapun diluar batas dari sistem yang mempengaruhi operasi sistem. Lingkungan luar sistem dapat bersifat menguntungkan dan dapat juga bersifat merugikan sistem tersebut. Lingkungan luar yang menguntungkan merupakan energi dari sistem yang harus dijaga dan dipelihara. Sedang lingkungan luar yang merugikan harus ditahan dan dikendalikan, kalau tidak maka akan mengganggu kelangsungan hidup dari sistem.
4. Penghubung Sistem (Interface)
Penghubung merupakan media penghubung antara satu sub sistem dengan sub sistem yang lainnya. Melalui penghubung ini memungkinkan sumber-sumber daya mengalir dari satu sub sistem yang lainnya. Keluaran (Output) dari satu sub sistem akan menjadi masukan (Input) untuk sub sistem yang lainnya dengan melalui penghubung.
5. Masukan Sistem (Input)
Masukan adalah energi yang dimasukkan kedalam sistem yang dapat berupa masukan perawatan atau pemeliharaan (maintenance input) dan sinyal (signal input).


6. Keluaran Sistem (Output)
Keluaran adalah hasil dari energi yang diolah dan diklasifikasikan menjadi keluaran yang berguna dan sisa pembuangan. Keluaran dapat merupakan masukan untuk subsistem yang lain atau kepada supra sistem.
7. Pengolahan Sistem (Process)
Suatu sistem dapat mempunyai suatu proses akan mengubah masukan menjadi keluaran. Contoh sistem akuntansi. Sistem ini akan mengolah data transaksi menjadi laporan-laporan yang dibutuhkan oleh pihak manajemen.
8. Sasaran Sistem (Objective)
Suatu sistem pasti mempunyai tujuan (goal) atau sasaran (objective). Sasaran dari sistem sangat menentukan sekali masukan yang dibutuhkan sistem dan keluaran yang akan dihasilkan sistem.

3.1.2 Karakteristik Sistem
Komponen-komponen atau sub sistem merupakan salah satu unsur dari karakteristik sistem. Menurut (Yogianto,”Pengenalan Komputer”, hal 684, 1980) karakteristik dari suatu sistem dapat diterangkan sebagai berikut:
a. Komponen Sistem
Komponen-komponen sistem atau elemen-elemen sistem dapat berupa suatu sub sistem atau bagian-bagian dari sitem. Suatu sistem dapat mempunyai suatu sistem yang lebih besar yang disebut dengan subsistem.
b. Batas Sistem
Merupakan daerah yang membatasi antara suatu sistem dengan sistem yang lainnya atau dengan lingkungan luarnya.
c. Lingkungan Luar Sistem
Yaitu suatu sistem yang terdapat diluar batas dari sistem yang mempengaruhi operasi sistem. Lingkungan luar sistem ada yang menguntungkan dan merupakan energi bagi sistem dan ada juga yang merugikan.
d. Masukan
Yaitu elemen yang dimasukkan kedalam sistem, yang dapat berupa masukan perawatan (maintenance input) dan masukan sinyal (signal input). Maintenance input adalah elemen yang dimasukkan supaya sistem tersebut dapat beroperasi. Signal input adalah elemen yang diproses untuk didapatkan keluaran.
e. Keluaran Sistem
Yaitu hasil dari elemen yang diolah yang diklasifikasikan menjadi keluaran yang berguna dan sisa pembuangan. Keluaran dapat merupakan masukan untuk subsistem yang lain atau kepala subsistem.
f. Pengolahan Sistem
Suatu sistem dapat mempunyai suatu bagian atau sistem itu sendiri sebagai pengolahnya. Pengolah akan merubah masukan menjadi keluaran.
g. Sasaran Sistem
Suatu sistem mempunyai tujuan (goal) atau sasaran (objektive) jika tidak maka operasi sistem tidak akan ada gunanya suatu sistem dikatakan berhasil bila mengenai sasaran atau tujuan.






3.1.3 System Development Life Cycle (SDLC)
SDLC adalah menyusun/membuat sistem yang baru untuk menggantikan sistem yang lama secara keseluruhan/memperbaharui sistem yang telah ada.
Proses pengembangan sistem mempunyai beberapa tahapan mulai dari sistem itu direncanakan sampai dengan sistem tersebut diterapkan, dioperasikan dan di pelihara. Adapun tahapan-tahapan tersebut adalah sebagai berikut:
a. Perencanaan Sistem (system planning)
1. Permintaan study sistem
2. Pengamatan awal
3. Study kelayakan
b. Analisa Sistem ( system analysis)
1. Mendefinisikan masalah
2. Memahami sistem yang ada
3. Menentukan kebutuhan pemakai
4. Membuat penyelesaian usulan
c. Desain sistem (system design)
1. Desain input (Input Design)
2. Desain output (Output Design)
3. Desain file (File Design)
d. Implementasi sistem (system Implementation)
1. Membangun sistem
2. Pembuatan program dan operasi –operasi
e. Perawatan (Maintenence)

3.2 Informasi
Informasi sangatlah penting dalam kehidupan kita, karena tanpa informasi akan sulit bagi kita untuk hidup. Informasi yang baik akan mudah diterima dan sebaliknya informasi yang jelek akan menyulitkan untuk dimengerti oleh sipenerima.

3.2.1 Pengertian Informasi
Suatu informasi mempunyai pungsi utama yaitu untuk menambah pengetahuan atau untuk mengurangi ketidakpastian pemakaian informasi untuk lebih memahami apa itu informasi, dikutip beberapa pendapat tentang informasi antara lain:
a. Menurut Budi Sotedjo Dharma Oetomo, S.Kom, MM, (“Perencanaan dan Pembangunan Sistem Informasi”, Hal 168, 2002), mengatakan bahwa:
“ Informasi adalah hasil pemrosesan data yang diperoleh dari setiap elemen system tersebut menjadi bentuk yang mudah dipahami dan merupakan pengetahuan yang relevan yang dibutuhkan oleh setiap orang”.
b. Menurut Ir. Fathansyah, (“Sistem Basis Data”, hal 9, 2002,) mengemukakan bahwa :
“ Informasi adalah data telah diolah menjadi suatu bentuk yang sangat penting bagi sipenerima dan mempunyai nilai yang nyata atau dapat dirasakan dalam keputusan-keputusan yang sekarang atau keputusan-keputusan yang akan datang”.





3.3. Sistem Informasi
3.3.1 Pengertian Sistem Informasi
Sistem informasi adalah suatu sistem didalam organisasi yang mempertemukan kebutuhan pengolahan transaksi harian, mendukung operasi, bersifat manajerial dan kegiatan strategi dari suatu organisasi dan menyediakan pihak luar tertentu dengan laporan-laporan yang diperlukan.

3.3.2 Jenis-Jenis Sistem Informasi
Berdasarkan Departemen perusahaan sistem dibagi atas beberapa jenis :
a. Sistem Informasi Akuntansi
Yaitu kumpulan sumber daya yang dirancang untuk mentransformasikan data keuangan menjadi informasi.
b. Sistem Informasi Keuangan
Yaitu sistem untuk mendukung manajer keuangan dalam pengambilan keputusan yang menyangkut persoalan keuangan perusahaan dan pengalokasian serta pengendalian sumber daya keuangan dalam perusahaan. Misalnya : ringkasan arus kas, informasi pembayaran.
c. Sistem Informasi Manufaktur
Merupakan sistem yang digunakan untuk mendukung fungsi produksi yang mencakup seluruh kegiatan yang terkait dengan perencanaan dan pengendalian proses untuk memproduksi barang atau jasa. Misalnya : data bahan baku, profil vendor baru dan jadwal produksi.


d. Sistem Informasi Pemasaran
Merupakan sistem informasi yang menyediakan informasi yang dipakai oleh fungsi pemasaran yang mendukung keputusan yang berkaitan dengan pemasaran. Misalnya : berupa ringkasan penjualan.
e. Sistem Informasi Sumber Daya Manusia
Yaitu sistem informasi yang menyediakan informasi yang dipakai oleh fungsi personalia. Misalnya : berisi informasi gaji, ringkasan pajak dan tunjangan-tunjangan hingga kinerja perusahaan.

3.4 Analisa Sistem
3.4.1 Pengertian Analisa Sistem
Analisa sistem adalah penguraian dari suatu sistem informasi yang utuh ke dalam bagian-bagian komponenya dengan maksud untuk mengidentifikasi dan mengevaluasi permasalahan-permasalahan, hambatan-hambatan yang terjadi dan kebutuhan-kebutuhan yang diharapkan sehingga dapat diusulkan perbaikan-perbaikannya.

3.5 Perancangan Sistem
Perancangan sistem yaitu bagian daripada analisa sistem, dimana perancangan sistem merupakan langkah ke empat. Sasaran dari perancangan sistem adalah menentukan langkah-langkah operasi dalam proses pengolahan data, menentukan prosedur untuk mendukung operasi sistem.
Menurut Sri Widiatun (“Sistem informasi manajemen“, PT. Pustaka Binaman Resindo (1992).) Tujuan dari perancangan sistem adalah menghasilkan gambaran entity yang nantinya akan dibuat, proses dari yang telah disetujui dan dikembangkan dengan kombinasi institusi dan diagram-diagram bantu yang nantinya akan menjelaskan desain dari sistem tersebut, sehingga akan dapat gambaran secara menyeluruh dari konsep pemahaman sistem.
Perancangan sistem dapat dibagi kedalam dua bagian yaitu :
1. Desain sistem secara umum (General System Design)
Desain sistem secara umum disebut juga dengan desain konseptual atau desain logika.
2. Desain sistem terinci (Detailed System Design)
Desain sistem terinci disebut juga dengan desain sistem secara fisik atau desain internal.

3.6 Alat Bantu Perancangan Sistem
Untuk dapat melakukan langkah-langkah pengembangan sistem sesuai dengan metodologi pengembangan sistem yang terstruktur maka dibutuhkan alat dan teknik untuk melaksanakannya. Alat-alat yang digunakan dalam suatu perancangan sistem umumnya berupa suatu gambaran dalam penelitian.
a. Data Flow Diagram (DFD)
Data flow diagram adalah salah satu tool yang paling penting bagi seorang analis sistem untuk membuat gambaran sistem secara logika. Gambaran ini tidak tergantung pada perangkat keras, perangkat lunak, struktur data dan organisasi file.
Penggunaan DFD sebagai modelling tools dipopulerkan oleh Tom De Marco (1978) dan Gane & Sarson (1979) dengan menggunakan pendekatan metoda analisis sistem tersruktur (structured system analysis method).
Adapun keuntungan dari penggunaaan data flow diagram adalah untuk memudahkan user (pemakai) untuk mengerti tentang sistem yang akan dikerjakan. DFD dapat juga digunakan untuk mempresentasikan suatu sistem yang otomatis maupaun manual dengan melalui gambar yang berbentuk jaringan grafik. Proses data flow diagram dapat berupa program, dapat juga berupa transformasi data secara manual. Penyimpan data merupakan file, elemen dan database atau bagian dari record. Penyimpanan dapat berupa disk, magnetic drum type, magnetic tape dan lain sebagainya. Adapun komponen-komponennya adalah sebagai berikut :
1. External Entity
Entity luar digambarkan dengan simbol persegi biasa. Entity luar merupakan sumber atau tujuan dari aliran data atau ke sistem. Entity luar merupakan lingkungan luar sistem, jadi sistem tidak tahu menahu mengenai apa yang terjadi di entity luar. Entity luar di gambarkan dengan simbol persegi biasa yaitu sebagai berikut :


Gambar 3.1. External Entity
Sumber : Mahyur Tavri, Analisa dan Perancangan Sistem Pengolahan Data

2. Aliran Data
Menggambarkan aliran data dari suatu proses ke proses lainnya. Adapun simbol aliran data bentuk garisnya boleh bebas yaitu sebagai berikut :

Gambar 3.2. Aliran Data
Sumber : Mahyur Tavri, Analisa dan Perancangan Sistem Pengolahan Data





3. Proses
Proses atau fungsi yang mentransformasikan data secara umum digambarkan dengan lingkaran, seperti gambaran berikut :


Gambar 3.3. Proses
Sumber : Mahyur Tavri, Analisa dan Perancangan Sistem Pengolahan Data

4. Data Store atau tempat penyimpanan data
Merupakan komponen yang berfungsi untuk menyimpan data atau file. Simbol dari data store digambarkan sebagai berikut :

Gambar 3.4. Data Store
Sumber : Mahyur Tavri, Analisa dan Perancangan Sistem Pengolahan Data


b. Sistem Bagan Alir Program
Sistem flowchart merupakan alat yang banyak digunakan untuk menggambarkan sistem secara fisikal. Simbol-simbol yang digunakan dalam sistem flowchart dapat dilihat pada tabel dibawah ini :
Table 3.1 Simbol-simbol yang digunakan dalam flowchart.

No Simbol Maksud Kegunaan
1.
Kegiatan Manual Menunjukkan pekerjaan manual.
2.
Proses Menunjukkan proses dari operasi program komputer.
3.
Dokumen Menunjukkan dokumen input atau output baik untuk proses manual mekanik atau komputer.
4.
Kartu Plong Menunjukkan input atau output menggunakan kartu plong.
5.
Pita Magnetic Menunjukkan input atau output menngunakan pita magnetic.
6.
Hardisk Menunjukkan input atau output menggunakan hardisk.
7.
Disket Menunjukkan input atau output menggunakan disket.
8.
Display Menunjukkan output yang ditampilkan ke monitor.
9.
Penghubung Menunjukkan penjelasan dari penghubung ke halaman yang masih sama atau ke halaman lain
10.
Garis Data Menunjukkan arus dari proses.
11.
Pita Kertas
Berlubang Menunjukkan input atau output menggunakan pita kertas berlubang.

Sumber : Mahyur Tavri, Analisa dan Perancangan Sistem Pengolahan Data

3.7 Database
Database adalah kumpulan dari item data yang saling berhubungan satu dengan yang lainnya yang diorganisasikan berdasarkan sebuah skema atau struktur tertentu, tersimpan di hardware komputer dan dengan software untuk melakukan manipulasi untuk kegunaan tertentu.
Data adalah nilai yang turut merepresentasikan deskripsi dari suatu objek atau kejadian, hasil dari data adalah informasi.
Mengapa database sangat diperlukan dalam penggunaan komputer, berikut adalah beberapa alasan mengapa database sangat diperlukan :
a. Salah satu komponen penting dalam sistem informasi, karena merupakan dasar dalam menyediakan informasi.
b. Menentukan kualitas informasi : akurat, tepat waktu, relevan. Informasi dapat dikatakan bernilai bila manfaatnya lebih efektif dibandingkan dengan biaya mendapatkannya.
c. Mengurangi duplikasi data
d. Hubungan data dapat ditingkatkan
e. Mengurangi pemborosan tempat simpanan luar


Suatu database terdiri dari file, record, field data dan characters, berikut adalah jenjang data dari suatu database :













Gambar 3.5 Jenjang data dari database
Sumber : www.IlmuKomputer.com

Pengertian dari jenjang data dari database tersebut untuk setiap itemnya adalah sebagai berikut :
1. Characters
Merupakan bagian terkecil, dapat berupa karakter numeric, huruf ataupun karakter-karakter khusus (special characters) yang membentuk suatu item data/field.
2. Field
Merepresentasikan suatu atribut dari record yang menunjukan suatu item data/field, seperti misalnya nama, alamat, dan lain sebagainya. Kumpulan dari field membentuk suatu record.
a. Field Name : harus diberi nama untuk membedakan field yang satu dengan yang lain.
b. Field Representation : tipe field (karakter, teks, tanggal, angka, dsb), lebar field (ruang maksimum yang dapat diisi dengan karakter-karakter data).
c. Field Value : isi dari field untuk masing-masing record.
3. Record
kumpulan dari field membentuk suatu record. Record menggambarkan suatu unit data individu yang tertentu. Kumpulan dari record membentuk suatu file. Misalnya file personalia, tiap-tiap record dapat mewakili data tiap-tiap karyawan.
4. File
File terdiri dari record-record yang menggambarkan satu kesatuan data yang sejenis. Misalnya file mata pelajaran berisi data tentang semua mata pelajaran yang ada.
5. Database
Kumpulan dari file/tabel yang membentuk suatu database.

3.8 Perancangan Sistem Database
Menurut Ir Fathansyah, (“Sistem Basis Data”, Informatika Bandung (1999),) tujuan utama perancangan sistem database yaitu memiliki kemampuan menyimpan seluruh data yang berguna dalam database. Untuk tahap desain database secara umum, yang perlu dilakukan oleh analisis adalah mengidentifikasi terlebih dahulu file-file yang diperlukan oleh sistem informasi.





3.8.1 Model Database
Pada dasarnya kekuatan dan kelemahan dari model ini mencerminkan perbedaan filosofi manajemen database. Beberapa kriteria dalam mengevaluasi model data :
a. Sederhana (Simplycity)
Sebuah kesederhanaan sedikit mungkin jumlah tiga struktur, kaidah dan atribut.
b. Pemodelan yang mendekati kenyataan (Modelling Direction) sebuah model sebaiknya mendekati konsep yang nyata di dunia.
c. Kemampuan menyimpan gambar (Picturebility).
d. Terminologi tidak bertentangan.
Sebuah model seharusnya menggunakan terminologi yang tidak bertentangan dengan terminologi yang lainnya.
Model database yang dikenal ada tiga yaitu :
1. Model Relation.
Dikembangkan berdasarkan konsep matematika dari hubungan dan kumpulan entity atau beberapa objek dari kumpulan atribut.
2. Model Hirarki.
Sering dikenal dengan Binary Tree (pohon biner atau Binary Relationship), merupakan jenis struktur tree yang terbaik dimana data akar (root) mempunyai beberapa cabang.
3. Jaringan atau Network.
Suatu model dimana objek dapat dihubungkan dengan beberapa objek lain yang lebih tinggi atau lebih rendah.
3.8.2 Langkah-Langkah Perancangan Database
Dalam perancangan database perlu diperhatikan langkah-langkah sebagai berikut :
a. Menentukan kebutuhan input dari sistem baru.
Input yang akan dirancang dapat ditentukan dari Data Flow Diagram (DFD) sistem baru yang telah dibuat.
b. Menentukan parameter data input
Setelah input-input yang akan dirancang telah dapat ditentukan maka parameter dari input selanjutnya juga dapat ditentukan. Parameter ini meliputi:
1. Bentuk dari input dan dokumen dasar.
2. Sumber input .
3. Volume input.
4. Periode input.

3.9 Pemetaan
Pemetaan dapat didefenisikan sebagai suatu proses yang mencakup pengumpulan, pengolahan dan visualisasi dari data spasial (keruangan). Data spasial umumnya didefenisikan sebagai data keruangan yang terkait dengan Bumi (termasuk darat dan laut) serta objek, fenomena dan proses yang berada, terjadi atau berlangsung di atasnya. Produk suatu proses pemetaan adalah suatu informasi spasial yang dapat divisualisasikan dalam bentuk atlas (kertas maupun elektronis), peta (kertas maupun digital), basis data digital maupun Sistem Informasi Geografis (SIG)
Dalam konteks pemabngunan daerah, informasi spasial yang berkualitas, dalam artian yang benar, komplit dan uptudate, akan sangat bermanfaat bagi pemerintah daerah dalam mendukung proses perencanaan, pelaksanaan, pengembangan dan pengendalian pembangunan di wilayah pemerintahannya. Disamping itu keberadaan informasi spasial tersebut juga akan meningkatkan kualitas pelayanan pemerintah daerah kepada masyarakat dalam banyak sektor pelayanan, seperti sektor pertanahan, pemukiman, perkebunan dan pertanian, perikanan dan kelautan, kehutanan, transportasi dan bahan bahkan sektor mitigasi bencana kebumian.
Tanpa adanya informasi spasiaal yang berkualitas tinggi tersebut maka penataan ruang yang amburadul, eksploitasi sumber daya alam (SDA) yang terkesan rakus dan tanpa arah, perusakan dan pencemaran lingkungan yang kurang terpantau, serta kedatangan bencana alam (seperti banjir dan longsor) dan bencana sosial (seperti pertentangan antar etnik dan kerusuhan sosial) yang tidak trasnpirasi secara baik, adalah fenomena-fenomena yang akan sangat mungkin terjadi. Tanpa adanya informasi spasial yang berkualitas tersebut, sistem pengambilan keputusan pembangunan yang dimiliki pemerintah daerah akan menjadi kurang optimal dan akan mudah bermuara pada keputusan-keputusan yang tidak realistis dan tidak efektif.
Dalam konteks pemetaan, ada lima program strategis yang perlu diselesaikan secara cepat, menyeluruh dan periodik. Yaitu sebagai berikut:
a. Program strategis yang pertama adalah pemetaan rupabumi (tofografi) seluruh wilayah daratan sert apemetaan rupa dasar laut (bthymetri). Dengan adanya informasi spasial rupabumi yang lengkap dan detil tersebut, maka proses perencanaan, pelaksanaan dan pengawasan pembangunan akan sangat terbantu. Dalam hal ini pemantapan penataan ruang yang berwawasanlingkungan dan berkelnajutan akan dapat dilaksankan secara lebih sistematik dan terprogram.
b. Program strategis yang kedua adalah pemetaan potensi sumber daya alam (SDA) hayati dan non-hayati yang ada di seluruh wilayah darat dan laut, seperti sumber –sumber daya air, tambang dan mineral, energi, vegetasi, ikan dan pasir laut. Dengan adanya informasi spasial yang lengkap dan detil dari potensi SDA ini, maka pemanfaatan, konservasi dan rehabilitasi SDA akan dapat dilaksankan secara optimal dan berkelanjutan
c. Program strategis yang ketiga adalah pemetaan dinamika lingkungan di seluruh wilayah darat dan lauat, baik lingkungan biotik maupun abiotik. Dinamika lingkungan yang perlu dipetakan dalam hal ini antara lain menyangkut tutupan lahan (land converage), tata guna lahan (land use), tingkat resapan dan erosibilitas tanah, sert a perkembangan kawasan pemukiman dan industri. Dengan adanya informasi spasial yang lengkap dan detil dari dinamika lingkungan ini, maka penataan, pemanfaatan dan konservasi lingkungan dapat dilaksankan secara efektif dan efisien.
d. Program strategis yang keempat adalah pemetaan potensi dan karakteristik bencana alam yang mungkin terjadi di seluruh wilayah darat dan laut. Dengan adanya informaasi spasial yang lengkap dan berkualitas tersebut, kedatangan bencana alam (seperti banjir, gempa bumi, longsor, letusan gunung api dan tsunami) dapat diantisipaasi sedini mungkin, sehingga proses pencagahan (seandainya memungkinkan) dan proses penangannya dapat dipersiaapkan dengan lebih baik.
e. Program strategis yang kelima adalah pemetaan dinamika kependudukan (demografis). Secara spasial pemetaan ini sebaiknya dilaksanakan dengan unit terkecil desa/kelurahan. Untuk setiap unit, parameter kependudukan yang sebaiknya dipetakan adalah menyangkut komposisi dan distribusi dari etnik (suku), pekerjaan dan mata pencaharian, usia, tingkat pendidikan dan jenis kelamin, serta agama/kepercayaan dari penduduk yang berdomisili dalam desa/kelurahan yang bersangkutan.

3.10 Konsep Dasar Bahasa Pemrograman Visual Basic 6.0
Visual Basic adalah program penghasil aplikasi yang bekerja pada sistem operasi windows.

3.10.1 Sejarah
Sejarah visual basic diawali dari pengembangan bahasa BASIC (Beginners All Purpose Symbolic Instruction Code) di Dartmount College, Amerika Serikat pada awal tahun 1960. Sejak semula Basic dirancang untuk mudah dipelajari. Pada awal tahun 1975 muncul komputer pribadi (Personal Computer/PC) pertama, bermerek MITS Altair. Namun karena hanya memiliki RAM 4 KB, satu-satunya bahasa yang digunakan untuk pemrograman adalah Assembly, bahasa ini sangat sulit untuk dipahami karena perintahnya mendekati bahasa mesin.
Tentu hal ini sangat menghambat perkembangan komputer pribadi. Bill Gate dan Paul Allen melihat potensi yang sangat besar pada komputer pribadi di masa depan. Keduanya menciptakan BASIC untuk Altair. Ternyata sambutan masyarakat sangat baik dan akhirnya keduanya mendirikan perusahaan sendiri yang bergerak dibidang software yang bernama Microsoft.
Pada tahun 1982 IBM / PC diperkenalkan kepada masyarakat, microsoft pu membuat sistem operasi MS-DOS untuk komputer ini. Dimana didalamnya disertakan pula bahasa basic yang dikenal sebagai Quick Basic (QBASIC). Zaman pun berganti, pada tahun 1990 era DOS berlalu dan digantikan era windows.
Dari perkembangan ini akhirnya microsoft membuat basic versi windows, bahasa pemrograman basic ini dikenal dengan nama Visual Basic. Versi terakhirnya adalah Visual Basic 6.0 for windows 98.

3.10.2 Struktur dan Format
Dalam membuat program, aspek utama yang harus diketahui oleh pemrogram adalah struktur program. Program akan berjalan baik, jika mempunyai struktur program yang benar. Begitu pola membuat program dengan Visual Basic. Pemrogram harus mengetahui struktur program yang berlaku pada Visual Basic.
Agar dapat merancang sebuah program dengan baik dan terarah, sebaiknya harus mengenal terlebih dahulu struktur program dalam Visul Basic. Secara umum struktur program Visual Basic terdiri dari dua bagian, yaitu bagian deklarasi program dan bagian pernyataan program.



a. Bagian Deklarasi Program
Bagian ini merupakan peletakan semua deklarasi data yang akan digunakan. Secara umum kata cadangan yang merupakan bagian dari deklarasi adalah : Dim, Private, Const dan Type.
b. Deklarasi Dim atau Dimension
Dim atau Dimension adalah cadangan yang sering dipakai untuk mendeklarasikan variable yang akan digunakan dalam Visual Basic. Pendeklarasian dengan pernyataan Dim berlaku pada pemrograman modul, program dan sub-program.
c. Deklarasi Public
Public merupakan pernyataan yang menggantikan pernyataan global dalam Visual Basic. Pernyataan public menyatakan bahwa semua variabel yang di deklarasikan oleh pernyataan berlaku secara umum. Public merupakan pernyataan level modul, artinya pernyataan ini pada dasarnya di deklarasikan pada sebuah modul.
d. Deklarasi Private
Private menyatakan bahwa semua variabel yang di deklarasikan oleh pernyataan berlaku secara khusus (Private). Pernyataan Private merupakan pernyataan level sub-program, artinya pernyataan pada dasarnya di deklarasikan pada sebuah sub-program.
e. Deklarasi Static
Static sering digunakan untuk variabel nilai agar tepat atau tidak berubah selama program dijalankan. Pernyataan static merupakan pernyataan level sub-program, artinya pernyataan yang pada dasarnya dideklarasikan pada bagian sub-program.
f. Deklarasi Const atau Constanta
Const atau Constanta sering dipakai pada bagian deklarasi unuk memberikan harga pada suatu variabel. Const merupakan pernyataan level modul, artinya pernyataan yang pada dasarnya dideklarasikan pada modul. Dalam prakteknya pernyataan Const sering dipadu dengan pernyataan public atau private.
g. Deklarasi Type
Type dipakai pada bagian deklarasi untuk mendefinisikan type data terdefinisi. Dimana type data ini dapat mengandung satu atau lebih dari satu type data. Type merupakan pernyataan level modul, artinya pernyataan yang pada dasarnya dideklarasikan pada modul. Dalam prakteknya pernyataan type sering dipadu dengan pernyataan public atau private.
h. Bagian Pernyataan Program
Program pada bagian ini ditulis pada jendela kode, jendela modul maupun jendela sub-program. Program pada bagian ini dapat memuat pemrograman pengendali (event driven programming) yang merupakan salah satu kelebihan pada Visual Basic.


3.10.3 Lingkungan Kerja
Integrated Development Integration (IDE) merupakan bidang atau lingkungan kerja dari Visual Basic. Visual Basic mempunyai beberapa komponen yang sangat mendukung dalam mendesain suatu program. Adapun komponen tersebut yaitu :
a. Menu utama
Menu utama merupakan tampilan utama dari Visual Basic 6.0 untuk membuka/memulai masuk ke lembar kerja. Berikut adalah gambar menu utama.

Gamabr 3.6. Menu utama
Sumber : Kusumo Ario Suryo, Visual Basic 6.0, 2000

b. Baris Menu
Menu merupakan kumpulan perintah-perintah yang dikelompokkan dalam kriteria operasi yang dihasilkan. Visual Basic 6.0 menyediakan tiga belas menu, keterangan masing-masing terdapat pada tabel berikut :
Tabel 3.2 : Baris Menu

Nama Keterangan
File Kelompok perintah yang berfungsi untuk pengaturan suatu file, seperti New, Save, Open dan sebagainya.
Edit Kelompok perintah untuk pengeditan, baik pengeditan objek, komponen maupun kode pada Code Editor. Contohnya Cut, Paste, Align.
View Perintah-perintah untuk mengaktifkan bagian-bagian dari integrated development Environment VB6.
Project Berfungsi untuk manajemen project serta pendukungnya.
Format Kelompok perintah untuk melakukan proses format.
Debug Untuk pengaturan dalam pencarian kesalahan.
Run Berfungsi untuk menangani proses kompilasi program seperti Run, Build, Step Over, Debug dan seterusnya.
Query Kumpulan perintah untuk mengakses data yang diperlukan pada aplikasi database. Menu ini adalah menu baru pada versi 6.0
Diagram Menyediakan perintah untuk pengaturan diagram. Diagram yang merupakan menu baru pada versi 6.0 ini sangat menolong dalam proses perancangan.
Tools Sebagai penyedia perlengkapan tambahan yang diperlukan dalam penyusunan program.
Add-Ins Untuk pengaturan program tambahan pada VB6.
Window Pengaturan window yang sedang terbuka.
Help Menyediakan informasi untuk menolong pemakai dalam menggunakan VB6.

Sumber : Mahyur Tavri, Analisa dan Perancangan Sistem Pengolahan Data

c. Form
Form adalah suatu objek yang dipakai sebagai tempat bekerja program aplikasi. Didalam form terdapat garis titik-titik yang disebut grid yang membantu pemakai dalam pengaturan tata letak objek dalam form.

Gambar 3.7 Form
Sumber : Kusumo Ario Suryo, Visual Basic 6.0, 2000


d. Windows Form Layout
Windows Form Layout adalah jendela yang menggambarkan posisi dari form yang ditampilkan pada layar monitor.

Gambar 3.8 Windows Form Layout
Sumber : Kusumo Ario Suryo, Visual Basic 6.0, 2000

e. Toolbar
Kehadiran tombol-tombol speed pada toolbar akan sangat membantu dalam mempercepat akses perintah (yang bias jadi tersembunyi di dalam tingkat-tingkat hirarki). Sebab tombol speed berfungsi sama dengan perintah yang tersedia (dan tersembunyi) di dalam menu.
Tabel 3.3 : Toolbar

Tombo Nama Fungsi

Add Standar EXE Project Untuk membuat sebuah project baru jenis standar

Add Form Untuk menambah ke form yang sedang terbuka

Menu Editor Untuk menampilkan menu editor yang berfungsi sebagai pembuat menu

Open Project Untuk membuka sebuah project yang pernah disusun

Save Project Untuk menyimpan project yang sedang terbuka

Cut Untuk memotong obyek terpilih yaitu memindahkan obyek tersebut dari asalnya ke container windows

Copy Untuk membuat salinan obyek terpilih untuk disimpan di container windows.

Paste Untuk membuat salinan objek yang disimpan di container windows dan dipasang di lokasi baru

Find Untuk menemukan objeck tertentu

Undo Untuk menggagalkan perintah-perintah terurut dari belakang yang pernah dilakukan

Redo Untuk mengulangi perintah terurut dari belakang yang pernah dilakukan

tStar Untuk menjalankan program yang sedang terbuka dan aktif

Break Untuk menghentikan sementara program yang sedang berjalan

End Untuk menghentikan sementara program dan berpindah ke mode perancangan

Project Explorer Untuk mengaktifkan Windows Project Explorer yang menampung project berikut bagian-bagiannya

Properties Windows Untuk mengaktifkan Properties Windows yaitu pengatur properti obyek.

Form layout Windows Untuk mengaktifkan Form Layout Windows yaitu mengatur tata letak form dilayar komputer.

Object Browser Untuk mengaktifkan Object Browser yang mampu mengorganisir object yang dipakai dalam project

Toolbox Untuk mengaktifkan Toolbox yang menyediakan berbagai kontrol

Sumber : Mahyur Tavri, Analisa dan Perancangan Sistem Pengolahan Data

f. Window Properti
Window Properti ini digunakan untuk menentukan setting suatu objek. Suatu objek biasanya mempunyai beberapa properti yang dapat diatur langsung dari jendela propertis atau lewat jendela program.


Gambar 3.9 Window Properti
Sumber : Kusumo Ario Suryo, Visual Basic 6.0, 2000


g. Toolbox
Toolbox adalah tempat penyimpanan kontrol yang akan kita gunakan pada program yang dipasangkan pada form. VB 6 menyediakan 21 kontrol, masing-masing dapat dilihat pada tabel berikut :
Tabel 3. 4 : ToolBox

Tombol Nama Fungsi

Pointer Ini bukan kontrol melainkan petunjuk kontrol sehingga kita bisa memindah letak atau mengubah ukuran kontrol yang terpasang pada form

Picture Box Untuk menampilkan gambar statis maupun gambar aktif dari sumber luar dirinya

Label Kontrol yang digunakan yang bisa menampilkan teks yang bisa diubah oleh pemakai

Text Box Untuk membuat area teks dimana teksnya bisa diubah oleh pemakai

Frame Untuk mengelompokkan beberapa kontrol. Kontrol ini harus dipasang lebih dahulu sebelum kontrol yang dilingkupinya

Command Button Untuk membuat sebuah tombol pelaksana perintah

Check Box Untuk membuat kotak cek yang mudah pemakaiannya. Bisa digunakan untuk pemilihan dua keadaan (benar atau salah, misalnya) dari banyak pilihan sekaligus.

Option Button Unuk pemilihan dua keadaan dari banyak pilihan, namun hanya satu pilihan saja yang bisa diaktifkan

Combo Box Untuk menghasilkan kontrol yang merupakan kombinasi dari list box dsan tex box, sehingga pemakai bisa memasukkan pilihan melalui daftar atau menuliskannya.

List Box Digunakan untuk menampilkan daftar pilihan yang bisa digulung

Hscroll Bar Untuk penggulungan dengan langkah lebar dengan indikasi posisi pemilihan dalam posisi harizontal

Vscroll Bar Untuk penggulungan dengan langkah lebar dengan indikasi posisi pemilihan dalam posisi Vertical

Timer Untuk penghitung waktu event dalam interval yang ditentukan

DriveList Box Untuk menampilkan disk drive yang dimiliki komputer

DirList Box Untuk menampilkan direktori dan path

FileList Box Untuk menampilkan daftar sebuah file

Shape Untuk memasang sebuah kontrol yang mampu menghasilkan sarana agar pemakai bisa menggambar berbagai bentuk seperti oval, lingkaran dan lain-lain.

Line Untuk menggambar berbagai garis dengan berbagai variasinya

Image Untuk menampilkan gambar hidup bitmap, icon, ataupun metafile pada form. Kontrol Picture Box menyediakan lebih banyak fasilitas dibanding
kontrol

Data Menyediakan sarana akses data dalam suatu database

Ole Untuk menghasilkan proses link dan embed object antar aplikasi.

Sumber : Mahyur Tavri, Analisa dan Perancangan Sistem Pengolahan Data

h. Project Explorer
Project adalah sekumpulan modul.

Gambar 3.10 Project Explorer
Sumber : Kusumo Ario Suryo, Visual Basic 6.0, 2000
i. Code Window
Code Window adalah jendela yang berisi kode-kode program yang merupakan instruksi-instruksi program untuk aplikasi Visual Basic.






Gambar 3.11 Code Window
Sumber : Kusumo Ario Suryo, Visual Basic 6.0, 2000
Untuk mengaktifkan Window Code ada beberapa cara :
1. Klik tombol View Code pada Window Project
2. Dari menu View klik perintah Code
Pada Window Code ini terdapat dua buah fasilitas utama yaitu pemilih object dan prosedur. Hasil pemilihan akan membawa kursor ke lokasi penulisan kode program sesuai pemilihan kita.

Categories: Enslopedia Administrasi