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

ANALISA DAN PERANCANGAN SISTEM

ANALISA DAN PERANCANGAN SISTEM : 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.

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.

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:

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:

• Informasi data yang sudah mendapat permohonan izin pemetaan daerah penambangan sangat terbatas dan untuk mengetahui data daerah penambangn yang sudah mendapat perizinan lama diperoleh.
• Dengan memiliki yang sedang berjalan sekarang ini, harus memiliki tenaga kerja yang banyak.
• Dalam memberikan data sering terjadi kesalahan.
• Informasi yang sewaktu-waktu ingin dibutuhkan tidak dapat di layani dengan cepat.

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.

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

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”

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.

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

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

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.

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.

Pengertian Sistem

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 :

• 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”.
• 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.

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.

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)

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.

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:

• 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”.
•  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”.

Sistem Informasi

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.

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.

Analisa Sistem

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.

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.

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 :

2. Aliran Data

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

3. Proses

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

4. Data Store atau tempat penyimpanan data

Merupakan komponen yang berfungsi untuk menyimpan data atau file. Simbol dari data store digambarkan sebagai berikut :

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 :

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 :

• Salah satu komponen penting dalam sistem informasi, karena merupakan dasar dalam menyediakan informasi.
• Menentukan kualitas informasi : akurat, tepat waktu, relevan. Informasi dapat dikatakan bernilai bila manfaatnya lebih efektif dibandingkan dengan biaya mendapatkannya.
• Mengurangi duplikasi data
• Hubungan data dapat ditingkatkan
• Mengurangi pemborosan tempat simpanan luar

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

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.

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.

Kesimpulan dan Saran Proposal

KESIMPULAN DAN SARAN - Kesimpulan : Riset (penelitian) yang telah penulis lakukan pada kantor Dinas Pertambangan dan Energi Tapanuli Utara menghasilkan suatu kesimpulan yang dapat berfungsi sebagai bahan masukan bagi instansi pemerintah tersebut. Adapun kesimpulan yang dapat diambil penulis sebagai berikut:

1. Dengan menggunakan computer dapat menyajikan informasi pada kantor Dinas Pertambangan dan Energi Tapanuli Utara, akan membuat pekerjaan lebih efeketif dan efisien, baik dalam segi waktu maupun dalam ketelitiannya. Sehingga pada saat memberikan laporan pada atasan dapat diberikan sesuai dengan yang diiginkan.
2. Adapun hasil dari system yang dibuat adalah untuk mengetahui data pemetaan daerah penambangan.
3. Sistem informasi pemetaan pada kantor Dinas Pertambangan dan Energi Tapanuli Utara yang dibuat oleh penulis dapat mengatasi kelemahan yang ada pada instansi tersebut.

Saran

Adapun saran yang di berikan oleh penulis sebagai berikut:

1. Perlunya kantor Dinas / Instansi pemerintah ini menggunkan komputerisasi untuk pengolahan data pada tiap bidang lain mengingat perkembangan teknologi yang semakin pesat.
2. Perlu diadakan pelatihan kepada tiap pegawai kantor Dinas Pertambangan dan Energi Tapanuli Utara untuk memahami penggunaan computer sebagai alat kerja dan untk meningkatkan Sumber Daya Manusia.
3. Sistem yang telah dirancang dapat dikembangkan kembali untuk mendapatkan hasil informasi yang lebih baik dan sesuai dengan perkembangan teknologi, contoh mengembangkan system dengan Berbasis Web atau dengan membuat system Multi User.

Defenisi Etika dan Kepribadian

Etika Dan Kepribadian : Etika kepribadian menganggap keberhasilan lebih merupakan suatau fungsi kepribadian, citra masyarakat, sikap dan perilaku, keterampilan dan teknik,yang melicinkan proses interaksi manusia. Pada dasarnya mengambil dua jalan : 1 teknik menjalin hubungan manusia dan masyarakat, dan 2 sikap mental positif.

Beberapa bagian lain dari pendekatan kepribadian jelas manipulatif,seringkali menipu,mendoring orang menggunakan teknik-teknik tertentu.untuk membuat orang lain menyukai mereka, atau berpura-pura tertarik akan hobi orang lain untuk mendapatkan apa yang diinginkan dari orang lain untuk mendapatkan apa yang diinginkan dari orang tersebut.

“Penampilan kekuasaan”atau masuk mengintimidasikan jalan mereka dalam kehidupan.beberapa literatur mengatakan bahwa karakter merupakan bahan keberhasilan ; tetapi tidak meyadarinya bahwa ia merupakan hal yang mendasar dan sebagai katalisator. Acuan etika karakter kadang hanya di bibir saja, penggerak dasarnya adalah teknik mempengaruhi Yang cepat, strategi kekuasaan, keterampilan berkomunikasi, dan sikap positif.

Etika karakter mengajarkan bahwa terdapat prinsip-prinsip dasar kehidupan yang efektif, dan bahwa orang hanya dapat mengalami keberhasilan yang sejati dan kebahagiaan yang abadi jika mereka belajar dan mengintegrasikan prinsip-prinsip tersabut kedalam dasar mereka.etika karakter sebagai dasar dari kepribadian maka hal-hal seperti integritas, kerendahanhati, kesetiaan,pembatasan diri, keberanian, keadilan, kesabaran, kerajinan, kesederhanaan, kesopanan, dan hokum utama (berbuatlah kepada orang lain seperti apa yang kami kehendaki mereka perbuat kepadamu).

Elemen2 dari etika kepribadian bukan tidak menguntungkan, bahkan sering kali malah esensial untuk mencapai keberhasilan.tetapi semua ini merupakan cirri sekunder bukan yang primer. Benar2 tidak ada artiny betapun hebat kepandaian bicara kita atau bahkan betapa baik tujuannya jika hanya ada sedikit atau tidak ada kepercayaan sama sekali,maka tidak akan ada dasar untuk keberhasilan yang permanen.

Hanya keberhasilan yang mendasar yang dapat memberi hidup pada suatu teknik.seperti menanam, bila di kerjakan tergesa-gesa sebanyak mungkin menjelang panen lupa menanam padi pada musim sebelumnya, bermain sepanjang musim panas dan mengharapkan hasil tuaian yang bagus?pertanian merupakan system yang bekerja berdasarkan hukum alam. Harga harus di bayar dan proses harus diikuti.anda slalu menuai apa yang anda tabur, tidak ada jalan pintas.

Dalam jangka pendek, dalam system artificial seperti sekolah, Anda mungkin dapat lulus juka mampu belajar memanipulasi peraturan buatan manusia untuk memainkan permainan.dalam interaksi antar manusia yang singkat saja dan sekali saja anda dapat menggunakan etika kepribadian untuk lulus dan membuat kesan yang baik melalui pesona dan keahlian serta berpura-pura tertarik pada hobi orang lain. Anda dapat menggunakan teknik yang mudah dan cepat yang mungkin berhasil dalam situasai jangka pendek. Akan tetapi cirri sekunder saja tidak mempunyai manfaat permanan dalam hubungan jangka panjang.akhirnya, jika tidak ada integritas yang mendalam dan kekuatan karakter yang mendasar, tantangan hidup malah akan menyebabkan motif2 yang sebenarnya muncul ke permukaan dan kegagalan sebagai ganti keberhasilan jangka pendek tersebut.

Pada akhirnya siapa kita apa adanya berkomunikasi jauh lebih efektif di bandingkan cara apapun yang kita kerjakan atau katakan. Kita semua mengetahuinya. Ada orang yang kita percayai sepenuhnya karena kita mengetahui karakter mereka. Mereka memiliki teknik hubungan manusia atau tidak, kita tetap percaya pada mereka dan kita bekerja dengan berhasil bersama mereka.siapa orang itu sebenarnya, bukan sosok pura-pura yang ia perankan.

Etika Dan Karakteristiknya…..:

Banyak literatur selama 50 tahun terakhir pada saat tulisan ini di buat (sekitar tahun 1940-1990 an,Steven R.Covey menemukan bahwa literatur itu diisi dengan kesadaran akan

* Citra social

* Teknik dan perbaikan cepat (Quick Fix).

Dengan plester sosial dan aspirin yang mengobati masalah takut dan kadang bahkan tampak menyembuhkannya untuk sementara waktu,namun itu akan menimbulkan masalah kronis yang mendasarinya tanpa tersentuh untuk membusuk dan muncul kembali ke permukaan berkali-kali.

Dalam kontras yang tajam,hampir semua literatur dalam 150 tahun yang pertama sesudah kemerdekaan AS,apa yang disebut Etika Karakter disebut sebagai dasar dari keberhasilan.Hal-hal Seperti :

 Integritas

 Kerendahan Hati

 Kerajinan

 Penguasaan diri

 Keberanian

 Keadilan

 Kesabaran

 Kerajinan

 Kesopanan

 Dan Hukum uatama (berbuatlah kepada orang lain seperti yang kamu kehendaki supaya orang berbuat kepadamu), dan Autobiografi Benjamin Franklin mewakili literatur ini.

Sangat menarik bukan ? ini adalah sebuah kisah tentang usaha satu orang untuk mengintegrasikan prinsip-prinsip ini kedalam karakter dasar mereka.

Akan tetapi,tak lama setelah perang dunia I,pandangan dasar tentang keberhasilan berubah dari Etika kepribadia, dimana keberhasilan menjadi lebih merupakan fungsi kepribadian, citra masyarakat, sikap dan perilaku, keterampilan dan teknik, yang melicinkan proses interaksi manusia.

Etika kepribadian ini pada dasarnya mengambil dua jalan yaitu :

1. Teknik hubungan manusia dan masyarakat

2. Sikap Mental Positif (SMP)

Memang kadang filosofi ini dieksperesikan di dalam pepatah yang mendatangkan ilham dan kadang absah seperti :

 Senyum menghasilkan lebih banyak teman daripada kerutan pada dahi.

 Apapun yang dapat di pahim dan di yakini oleh benak manusia,maka itu pasti dapat dicapai.

Lain dari pendekatan kepribadian jelas manipulatif, bahkan menipu,mendorong orang menggunakan teknik-teknik untuk membuat orang lain menyukai mereka atau berpura-pura tertarik akan hobi orang lain untuk mendapatkan apa yang diinginkan dari orang tersebut atau hendak menggunakan “penampilan kekuasaan “atau untuk menjalanin kehidupan mereka dengan intimidasi.

Bukan mengakui sebagai hal yang mendasar dan sebagai katalisator. Acuan pada etika karakter kebanyakan hanya dibibir saja;padahal penggerak dasrnya adalah teknik mempengaruhi yang cepat, strategi kekuasaan, keterampilan berkomunikasi dan sikap positif.

ETIKA, WATAK, KEPRIBADIAN DAN PRINSIP-PRINSIP ABADI.

Etika watak mengerjakan bahwa kehidupan efektif berdasarkan prinsip-prinsip yang benr, kesuksesan sejati, serta kebahagiaan yang langgeng,hanya bisa di peroleh apabila prinsip-prinsip tersebut di jadikan bagian dari watak kita. Sedangkan ETIKA KEPRIBADIAN mengerjakan bahwa sukses adalah sekedar fungsi dari citra atau popularitas kita dimasyarakat. PRINSIP-PRINSIP ABADI. WATAK, pada dasrnya terdiri dari sejumlah kebiasaan-kebiasaan.

Kebiasaan hidup efektif yang di maksud di sini adalah kebiasaan yang di dasarkan pada prinsip-prinsip kebenaran abadi, yaitu antar lain HUKUM PANEN ; kita akan memanen apa yang kita tanam.”tanamlah pikiran, panenlah perbuatan:tanamlah perbuatan, panenlah kebiasaan :tanamlah kebisaan, panenlah watak:tanamlah watak,maka anda akan memanen nasib anda sendiri.’’ Kebiasaan merupakan factor yang besar pengaruh nya dalam hidup kita.Dengan sifatnya yang menetap dan polanya yang kerap tidak di sadari,kebiasaan dapat mengungkapkan bagaimana sesungguhnya watak kita serta menentukan efektif tidaknya hidup kita.

I. 5 Etika kesopanan dalam bekerja.

Seorang karyawan sekalipun memiliki jabatan strategis tak semestinya berbuat sesuka hati selama berada di ruang kantor. Mereka pun tetap harus menjaga etika kesopanan yang di tetapkan oleh perusahaannya.

Seperti Kutip Careerbuilder,ada beberapa etika kesopanan yang harus di perhatikan oleh para karyawan selama berada di lingkungan kantor,seperti : Tetap menghargai bos.

Selama berada di kantor Anda harus bias menghormati pimpinan, termasuk juga menghargai karyawan lain yang memiliki level jabatan jauh berada di bawah anda.

Apabila anda sudah menjadi tangan kanan pimpinan,bukan berarti anda bisa sesuka hati memperlakuakn karyawan lain yang level jabatannya jauh berada di bawah. Tetaplah bertutur kata yang baik dengan semua orang,bahkan dengan bos anda sekalipun.

Dengarkan dan perhatikan perintah dari bos.

Anda harus benar-benar memperhatikan setiap perintah yang di berikan pemimpinan.terlebih lagi jika dia sedang menugaskan sesuatu hal yang penting. Jangan buat pimpinan anda kecewa dan memberikan penilan buruk terhadap kinerja anda selama di kantor.

Komunikasi yang baik dengan seluruh karyawan.

Anda tetap harus menjaga komunikasi yang baik kepada seluruh karyawan. Tujuannya tak lain untuk menghindari kesalapahaman dalam penyampaian pesan kepada orang lain.saling membantu satu sama lain.

Setelah menduduki jabatan yang strategis dan menjadi tangan kanan pimpinan anda,bukan berarti lantas lepas tangan bila rekan kerja anda sedang mengalami kesusahaan.cobalah membantu mereka sesuai kemampuan.Mereka tentu saja tidak akan melupakan kebaikan anda dan mereka pun pasti akan membalas kebaikan bila suatu saat anda mendapatkan musibah.

II. Membangun Semangat Tim.

Membentuk tim yang solid adalah tugas bagi setiap pimpinan. Konon kinerja yang maksimal juga di pengaruhi dengan dengan kehadiran sebuah tim yang solid.

Untuk memiliki sebuah tim yang solid, sejumlah cara bisa anda peraktekkan, bahkan sekalipun anda menjabat sebagai karyawan, anda bisa mengusulkan berbagai ide kreatif ini kepada pimpinan.Untuk membangun kembali semangat tim,berikut berbagai cara kreatif yang bisa anda praktekkan :

Menyediakan ruang rekreaksi.

Hiburan merupakan salah satu cara tepat untuk mengobarkan kembali semangat kerja yang hampir padam. Caranya,kumpulkan semua karyawan di sebuah ruangan rapat besar di hari jumat, kemudian belilah minuman ringan dan makanan kecil,sediakan alat musik dan mikrofon. Ajaklah para karyawan untuk nge-band dan bernyayi.

Bila tidak memungkinkan,anda bisa mengganti acara ini dengan berkaraoke bersama. Sebagai atasan anda bisa menjadi orang pertama yang menyumbangkan suara, berikutnya anda bisa mendaulat karyawan lain untuk bergiliran memegang mikrofon.Sementara yang lain mengambil alih sebagai penari latar.

Latihan yoga dan konfrensi karyawan.

Perusahaan cokelat Vosget-Haut-chocolate yang memilik 100 karyawan dan perusahannya bernilai 132 Miliar, menyediakan ruang yoga dan latihan yoga selama seminggu sekali.perusahaan ini juga mengadakan konfrensi tahunan. Mereka yang sukses diminta berbicara di mimbar selama 10 menit untuk mengungkapkan apa yang mereka inspirasi bagi karyawan lainnya.

Kegiatan yoga sendiri sangat bermanfaat bagi karyawan.pasalnya kegiatan ini memberikan karyawan waktu untuk rehat dari pekerjaannya sehingga membuat pikiran dan tubuh kembali bugar. Sementara acara konferensi, selain mengilhami karyawan lain, anda juga bisa melihat potensi dari masing-masing karyawan.

Nonton Bareng

Bisa jadi menonton adalah hobi anda,tetapi siapa sih yang tidak suka menonton film dan di bayari ? tentunya tak ada satu orang pun karyawan yang bisa menolak ajakan bos. Membangun semangat tim kali ini, anda menonton film pilihan mereka. Anda bisa membelikan mereka sebuah tiket gratis dan makanan ringan. Lakukan kegiatan ini pada sore atau malam hari, sehingga hari kerja tetap produktif (berbagai sumber).

III. Menyiasati Rasa Malas Dalam Bekerja.

Setiap orang pasti pernah mengalami rasa malas untuk bekerja.Tentunya banyak alas an yang melatar belakanginnya.mari,cari penyebab dan bagaimana cara mengatasinya.

Suatu waktu,pasti anda pernah merasa malas untuk bangkit dari tempat tidur dan bekerja.Bayangan akan pekerjaan yang menumpuk atau atasan yang senang memarah-marahi,membuat anda tak sanggup menghadapi kenyataan bahwa and harus bekerja pagi itu. Jika mudah begini,bisa dipastikan sampai di kantor,anda hanya akan bermalas-malasan atau sulit untuk berkonsentrasi.

Konsultan karier Carrie Silver Stock mengatakan bahwa jika and merasa malas setiap kali bekerja, berarti ada yang salah dalam kehidupan kerja atau karier anda. Tentu saja, ini bukan berarti riwayat kerja anda akan kiamat. Yang harus anda lakukan,menganalisis dan mencari solusi dari penyebab rasa malas anda.

Lakukan me-time.

Memang,saat kerjaan menumpuk,sulit rasanya untuk memberikan waktu bagi diri tres sendiri.namun,carrie justru meyarankan agar anda sebisa mungkin mencari waktu untuk melakukan me time atau waktu untuk diri sendiri.

“Sebelum mencari penyebab rasa malas,anda harus bisa meluangkan waktu untuk diri sendiri dulu.intinya,hilangkan dulu rasa stres tersebut baru anda bisa mencari tahu akar masalahnya,”tegas carrie.

Setelah meluangkan waktu,carrie menyarankan untuk menulis sepuluh hal yang membuat anda bahagia.setiap minggunya,daftar tersebut harus bertambah,minimal tiga poin.Nah,dari jadwal tersebut,anda bisa melakukan tiga hal yang membuat anda bahagia,misalnya menonton film baru di bioskop,jalan-jalan,atau melakukan perawatan tubuh.

Jika melakukannya,anda akan merasakan betapa nikmatnya hidup anda.Lakukan hal tersebut meski waktu anda hanya sebentar.bahkan jika anda hanya punya waktu itu untuk sekadar bersantai di bangku sambil menarik napas dalam-dalam.

Ciptakan energi

Jika pekerjaan anda membuat anda merasa sangat lelah,ciptakan energi yang bisa membuat anda bersemangat.sulit ? tenang saja.anda bisa melakukannya lewat hal-hal yang sederhana,seperti sarapan pagi.

Sarapan pagi tidak hanya membuat tubuh anda lebih berenergi,tetapi juga membuat kondisi fisik anda tak mudah lelah.lakukan olahraga kecil.jika anda tak sempat ke gym,cukup lakukan gerakan ringan seperti stretching sambil menarik napas dalam-dalam,atau jalan selama 10-15 menit.

Minum air putih yang banyak.banyak penelitian membuktikan bahwa dengan minum bayak air putih akan menghindari anda dari dehidrasi dan kelelahan.cari tahu,kapankah waktu yang terbaik untuk anda untuk bekerja ? apakah pagi atau malam hari ?nah,kerjakan pekerjaan tersebut di waktu terbaik anda.

Analisis penyebab.

Sekarang saatnya anda menganalisa mengapa energi dan otak anda tak mau bekerja saat berada di kantor. Apakah karena sebelumnya anda sudah bekerja terlalu banyak? Apakah lingkungan kerjanya yang membuat stres, atau karena anda yang emosional ? Jika sulit menganilisis penyebab kemalasan anda saat bekerja, carrie memberi tip unik untuk mengenali penyababnya.

Caranya,dengan menilai seberapa besar nilai pada beberapa kategori.dari skala 1 sampai 10, sebagai nilai pada tingkat lingkungan kerja anda (apakah menyenangkan atau tidak), coworkers (apakah bisa di ajak perilaku anda harus di batasi atau adaperilaku rekan kerja yang mengganggu), organisasi (apakah ada system yang baik, apakah sistemnya berjalan baik), manajemen waktu (apakah anda kesulitan melakukan manajemen waktu), dan partisipasi tim (apakah kerja sama tim kurang memuaskan).

Dengan membuat skala atau nilai dari masing-masing katagori ini,anda bisa melihat kategori mana yang nilainya paling kecil,dan mungkin itulah masalah yang membuat anda malas untuk bekerja.

Cari yang positif

Setelah membuat penilaian pada hal-hal yang mungkin menjadi sumber masalah anda,kini saatnya membuat daftar hal-hal yang menyenangkan dari pekerjaan atau lingkungan kerja anda.tulis juga hal-hal yang bisa membuat anda semangat dalam melakukan suatu pekerjaan.

Nah, sekarang lihat lagi, seberapa seringkah anda menggunakan kebaikan atau kesenangan tersebut untuk memotivasi diri anda untuk semangat bekerja? Sekarang,gunakan menyelesaikan setiap pekerjaan.

Buat Prioritas.

Setiap malam,buatlah tiga prioritas yang harus anda kerjakan atau selesaikan esok harinya. Pastikan anda mengerjakan tiga hal ini walau ada tugas tambahan atau tugas baru dari atasan. Dengan membuat daftar pekerjaan yang singkat dan sederhana,kondisi yang bisa memicu stres bisa anda hindari.

Utamakan Diri sendiri

Apakah teman,keluarga,atau rekan kerja anda sering meminta pertolongan pada anda ?apakah anda termasuk orang yang sering di andalkan ?menjadi orang yang selalu di butuhkan memang menyenangkan.

Namun,hal tersebut tidak berarti bahwa anda harus mengorbankan diri sendiri demi membantu mereka.karena itulah,pikiran terlebih dahulu baik dan buruknya bagi anda ,jika ada orang lain yang meminta bantuan.

Siapkan rencana aksi

Jika Anda sudah bisa menganalisa segala masalah dan bertekad untuk mengatasinya, segera buat rencana aksi Anda. Rencana tersebut harus berisikan hal-hal yang bisa memberi keseimbangan antara waktu kerja dan waktu pribadi Anda, meberikan Anda waktu me-time yang cukup, dan memberikan apresiasi dan penghargaan pada diri Anda sendiri.

Memang, tak mudah untuk menghilangkan rasa stres di tempat kerja. Namun jika mencoba langkah-langkah di atas, setidaknya Anda bisa menumbuhkan semangat dan energi positif saat bekerja.

IV. Meniadi Orang Penting di Tempat Kerja

Tak peduli apakah Anda hanya karyawan biasa, Anda bisa menjadikan diri Anda sebagai karyawan yang selalu diingat, dinanti, dan dipuji oleh atasan dan rekan kerja lainnya.

Berapa banyak karyawan yang ada di perusahaan tempat Anda bekerja? Tentu Anda tidak mengingat wajah atau nama dari mereka semua. Tentu yang Anda ingat hanya beberapa karyawan yang prestasinya menonjol, mereka yang supel dan mudah bersosialisasi, atau yang penampilannya menarik bagi Anda.

Pertanyaannya, mengapa ada karyawan yang begitu lekat di benak karyawan lainnya sedangkan ada yang tidak?

"Semuanya adalah persoalan menciptakan brand atau imej bagi diri sendiri, yang tentunya berbeda dengan karyawan yang lain," jawab konsultan karier Martin Lindstrom, seperti dikutip dari aol. com.

Menurut Martin, dengan persaingan kerja yang semakin ketat, jika Anda tak memiliki imej yang berbeda dengan orang lain, maka Anda hanya akan diingat sebagai karyawan "pada umunya". Dengan membuat imej bagi diri sendiri, berarti Anda sudah membuat strategi jitu untuk bertahan hidup sekaligus menjadi orang yang "terlihat" di tempat kerja.

Lalu bagaimana caranya membuat imej bagi diri sendiri? Martin memberi beberapa panduan untuk dicoba. Berikut tipnya:

Temukan karakter Anda (dan yang tidak sesuai dengan Anda)

Cari tahu, apakah yang membedakan Anda dengan rekan kerja yang lain? Apakah Anda orang yang selalu tepat waktu, penuh tanggung jawab, dan berdedikasi? Apakah Anda tipe karyawan yang selalu santai dalam bekerja, namun selalu bisa menghasilkan karya yang baik?

Salah satu cara yang bisa dilakukan untuk menciptakan atau memberitahukan orang lain "siapa diri Anda" ialah dengan melakukan sebuah "tugas kecil" setiap harinya yang berhubungan dengan pekerjaan Anda.

Martin memberi contoh, jika Anda seorang kasir di supermarket, mungkin Anda bisa memerhatikan perilaku konsumen, misalnya, apakah konsumen perempuan lebih senang membeli air mineral atau soft drink. Penemuan ini bisa jadi berguna bagi manajemen atau supervisor, dan Anda akan selangkah lebih maju dibandingkan rekan yang lain.

Dikenal karena satu hal

Saat Anda menyebut satu merek terkenal, Anda pasti langsung mengasosiasikan merek tersebut dengan satu sifat tertentu. Misalnya saja menyebut Google, maka yang teringat adalah mesin pencari, Volvo alias mobil yang aman, atau cowboy yang erat dengan Amerika.

Sekarang pikirkan apa yang ada di benak orang lain saat mengingat Anda. Apakah seorang pendengar yang baik, mentor yang baik, orang yang lucu, atau orang yang sangat cepat menyelesaikan pekerjaan.

Jika Anda belum menemukan karakter tersebut, maka ciptakan dan berlakulah seperti imej tersebut. Usahakan imej tersebut terdiri dari satu kata saja karena akan memudahkan orang lain mengingatnya. Lagi pula, dengan begitu banyak informasi yang masuk ke otak, hal yang sifatnya terlalu panjang dan detail akan susah dihafalkan.

Komunikasikan imej Anda

Jika Anda suda.h menemukan karakter atau imej yang ingin Anda kembangkan, mulailah mengomunikasikannya, salah satunya lewat jalur on-line. Misalnya Anda ingin dikenal sebagai orang yang lucu, maka Anda bisa membuat cerita lucu di blog Anda.

Mengapa lewat jalur on-line, karena internet adalah media terampuh yang saat ini ada. Jika ingin lebih efektif, coba buat cerita lucu dari sudut pandang yang berbeda, provokatif, atau mengejutkan, yang bisa menimbulkan banyak respons dari orang lain. Dengan begitu, imej atau karakter Anda akan lebih menonjol.

Ciptakan tampilan khas

Jika perilaku Anda sudah menunjukkan karakter atau imej Anda, maka perkuatlah dengan tampilan luar Anda. Jika Anda ingin dikenal sebagai orang pintar yang cool, maka gaya seperti Presiden Amerika Serikat Barack Obama bisa Anda tiru. Atau jika Anda ingin dikenal sebagai orang yang serius tapi santai, maka tampilan atau dandanan kasual, namun trendi bisa Anda coba.

Tetaplah bergaya yang sesuai dengan imej atau karakter yang ingin Anda bentuk di tempat kerja. Jika Anda konsisten dengan gaya tersebut, bisa jadi Anda akan menjadi selebriti kantor atau setidaknya gaya Anda akan selalu diperhatikan oleh karyawan lainnya.

Buat tanda diri yang menarik

Tanda diri bisa berarti kartu nama atau tanda yang biasa ditinggalkan saat mengirim e-mail. Jika Anda membuat kartu nama sendiri cobalah sertakan logo atau simbol yang menarik. Buatlah logo yang mengombinasikan dua hal yang bertentangan, misalnya monyet terbang seperti yang ada di Wizard of Oz. Tentunya monyet tak bisa terbang bukan? Tapi hal yang bertentangan ini justru akan mudah diingat orang.

Tanda lainnya bisa Anda berikan pada setiap akllar pesan dalam e¬mail Anda. Tanda tersebut bisa kata-kata singkat, simbol, atau apa pun yang menarik, unik, dan tidak terlupakan. Ingatlah, bahwa tanda-tanda atau karakter yang Anda ciptakan ini bisa membantu Anda untuk lebih mudah dikenal dan diingat orang.

Tetap Berpikir Positif Saat Bekeria

KONDISI tempat kita bekerja, tidak semuanya seperti yang kita bayangkan bahkan cenderung ada yang buruk. Lantas bagaimana bertahan untuk tetap berpikir dan bertindak positif di dalam lingkungan seperti itu ?

Ahli komunikasi Sarita Maybin, yang sering mengisi seminar tentang cara berpikir positif, mengaku sering sekali ditanya oleh pesertanya tentang bagaimana bertahan untuk tetap berpikir positif di tengah lingkungan kerja yang negatif. Bagi Sarita, ini adalah pertanyaan penting.

“Saya tahu ini sering terjadi. Karenanya, saya menyiapkan jawaban yang sebut sebagai 3P,’’ j elas Sarita, seperti dikutip dari Rumus 3 P

didapat Sarita berdasarkan studi yang dilakukan oleh Dr Martin Seligman, yang mencoba merumuskan hal-hal apa saja yang membuat orang tetap berpikir positif di tengah lingkungan yang nedatif walaupun berada di lingkungan yang positif.

P yang pertama, menurut Sarita, kita harus bertanya pada diri sendiri, apakah perlakuan negatif yang kita terima bersifat "personal" atau pribadi. Sering kali saat atasan memarahi kita atau rekan kerja yang cemberut walaupun kita tersenyum padanya, sebenarnya respons tersebut tidak sepenuhnya ditujukan pada kita.

"Mungkin saja ia memang sedang memiliki hari yang buruk. Jadi kita tidak perlu selalu berpikir negatif dan menganggap bahwa mereka tidak suka dengan kita. Lagi pula sebenarnya seseorang tak selalu memikirkan orang lain sebegitu sering seperti yang kita duga," ungkap Sarita.

Selanjutnya, apakah perlakuan tersebut bersifat "permanen"? Cobalah perhatikan apakah sifat negatif yang kita terima sifatnya permanen? Apakah rekan kerja selalu cemberut terhadap kita semenjak kita mengenalnya? Apakah hanya anda yang di cemberuti atau orang lain juga diperlakukan hal yang sama. Dari analisis ini, kita bisa memilih jalan pikiran yang positif agar hidup lebih menyenangkan.

Terakhir, jangan terlalu mengingat hal kecil yang sebenarnya tidak terlalu berpengaruh terhadap gambaran keseluruhan (big picture) kita terhadap seseorang. Tidak ada orang yang sempurna, jadi jangan langsung berpikir negatif setiap kali menemukan cela seseorang.

Menghambat pikiran negatif

Tak hanya berpikir dan bersikap positif terhadap perilaku seseorang, kita juga harus berlaku hal yang sama terhadap situasi yang buruk atau negatif. Jika kondisi tersebut menyerang kita, siapkan rencana lain untuk menghindari pikiran negatif.

Sarita mencontohkan soal kondisi perusahaan tempatnya bekerja yang terkena resesi dan hampir bangkrut. Dibanding mengeluh atau merasa depresi, ia langsung bertindak cepat dengan mencoba bekerja paruh waktu di sebuah perusahaan kosmetik.

Meski ada rekan kerja yang mengejeknya, Sarita tak peduli. la merasa melakukan putusan dan untuk mencegah rasa putus asa dan perasaan negatif yang mungkin muncul dengan keadaan perusahaan tempatnya bekerja yang makin memburuk.

“Dengan memiliki rencana lain, kita akan merasa memiliki pilihan. Jika Anda perhatikan, orang-orang yang berpikir negatif adalah mereka yang merasa tidak punya pilihan dan tidak tahu mau kemana. Mereka merasa stuck disitu," tegas Sarita.

Jadi, setiap ada kondisi buruk menimpa kita, segera cari pengalaman baru yang bisa menimbulkan pikiran dan perasaan positif.

Cari kehidupan lain

Tak ada yang salah dengan orang yang mencintai pekerjaannya. Mencintai pekerjaan justru akan membuat kerja kita menghasilkan sesuatu yang luar biasa. Namun, jangan sampai pekerjaan merenggut semua sisi keidupan kita. Berikan waktu dengan kegiatan lain seperti melakukan hobi, berkumpul dengan keluarga atau teman-teman, atau kegiatan lain di luar pekerjaan.

“Penelitian sudah mebuktikan bahwa seseorang yang memiliki kehidupan yang seimbang antara karier dan keluarga atau hobi, akan lebih memiliki pikiran yang positif karena saat satu sisi kehidupan mereka tidak berjalan dengan baik, ia bisa menemukan keseimbangan lainnya, rasa percaya diri, harga diri, dan kesenangan dari sisi kehidupannya yang lain," jelas Sarita panjang lebar.

Jangan biarkan urusan pekerjaan menguasai hidup kita. Karena akan sangat menyedihkan j ika di setiap saat dan setiap waktu, pikiran kita selalu tertuju pada pekerjaan.

“Jadi setiap ada hal negatif di tempat kerja atau di mana pun juga, timbulkan perasaan positif tersebut agar Anda tidak menjadi orang yang mudah putus asa,’’ tegas Sarita.

Perhatikan Gaya Berialan Anda

Sadarkah anda bahwa gaya berjalan Anda bisa menjadi petunjuk apakah Anda cukup kompeten atau tidak dalam menjalankan sebuah pekerjaan ?

Banyak hal di dalam diri kita yang bisa dipakai untuk menjadi petunjuk, seperti apakah sifat, kepribadian, atau kompetensi kita dalam dunia kerja. Anda mungkin pernah mendengar kalimat "you are what you wearing" untuk menggambarkan diri seseorang tanpa harus mendengarnya berbicara. Begitu juga dengan cara berjalan seseorang.

Cara berjalan seseorang diyakini bisa menjadi petunjuk tentang bagaimanakah seseorang melakukan pekerjaannya. Meski tentu saja tidak 100 persen valid, tapi setidaknya cara tersebut bisa dijadikan sedikit gambaran untuk sebuah awal menilai seseorang. Berikut bagaimana cara membaca gaya berjalan, seperti dikutip dari Lemondrop.