BAB IV PERANCANGAN SISTEM INFORMASI AKUNTANSI LAPORAN KEUANGAN NERACA Kebijakan Sistem Informasi Akuntansi Laporan Keuangan Neraca dan

BAB IV PERANCANGAN SISTEM INFORMASI AKUNTANSI LAPORAN KEUANGAN NERACA

4.1 Sistem Informasi Akuntansi yang Diusulkan 4.1.1 Kebijakan Sistem Informasi Akuntansi Laporan Keuangan Neraca dan Pengendalian Intern yang Diusulkan Pada Kelurahan Cibeureum, di Bagian Bendahara ada beberapa kebijakan yang diusulkan berkaitan dengan laporan keuangan neraca, dan secara umum sesuai dengan yang berjalan, dan yang termasuk ke dalam usulan penulis diantaranya adalah sebagai berikut: A. Fungsi terkait memiliki password sendiri untuk mengakses aplikasi yang penulis rancang. B. Kode rekening (kegiatan) sesuai dengan PERMENDAGRI No.13. C. Pada setiap terjadi transaksi aset akan langsung dicatat pada Transaksi Aset, baik itu aset tetap maupun aset lancar. D. Membuat penyusutan khusus pada aset/aktiva karena belum memiliki mekanisme yang jelas, sehingga penulis mengusulkan metode penyusutan pada aset/aktiva yang dimilikinya saja, dan akan dihitung sesuai dengan nilai perolehan pertama kali aset tersebut didapat. E. Pada setiap transaksi akan dicatat di Jurnal Umum, Buku Besar Umum, Neraca Saldo, Jurnal Penyesuaian, Neraca Saldo Setelah Disesuaikan sampai ke pembuatan Laporan Keuangan Neraca. F. Di Kelurahan Cibeureum tidak terdapat transaksi utang/piutang.

116

4.1.2 Fungsi Terkait yang Diusulkan Fungsi yang terkait dalam sistem informasi akuntansi laporan keuangan neraca pada Kelurahan Cibeureum, di bagian Bendahara tidak berbeda jauh dengan yang berjalan, dikarenakan fungsi yang terkait sudah menjadi ketetapan pemerintah.

4.1.3 Formulir/Dokumen yang Diusulkan Formulir atau dokumen dalam sistem informasi akuntansi laporan keuangan neraca pada Kelurahan Cibeureum, di bagian Bendahara juga tidak ada perubahan, dikarenakan semua sudah sesuai dengan Standar Akuntansi Pemerintah (Akuntansi Keuangan Daerah) yang semuanya memiliki dasar dan sesuai dengan Peraturan Perundang-undangan.

4.1.4 Catatan yang Diusulkan Catatan yang diusulkan dalam sistem informasi akuntansi laporan keuangan neraca pada Kelurahan Cibeureum, di bagian Bendahara adalah sebagai berikut: A. Jurnal Umum B. Buku Besar Umum C. Neraca Saldo D. Jurnal Penyesuaian E.

Laporan Keuangan Neraca

117

4.1.5 Kode Rekening yang Diusulkan Kode rekening yang diusulkan semua sesuai dengan Kepmendagri Nomor 29 Tahun 2002. Tabel 4.1 Kode Rekening yang Diusulkan Kode Rekening 1.2.1.01.01 1.2.1.01.02 1.2.1.01.03 1.1.5.02 1.3.7.01.01 1.3.7.01.02 2.1.1.01 2.1.1.03.07.1 3.2.2 4.1.1.01.01 5.2.2.06 5.2.2.07 5.2.2.08 5.2.2.09 5.2.2.15 5.2.2.16

Uraian Pajak Bumi dan Bangunan Bea Perolehan Hak Atas Tanah dan Bangunan PPh Pasal 21 Persediaan ATK Akumulasi Penyusutan Bangunan Akumulasi Penyusutan Peralatan Hutang Honorarium Panitia Tunjangan PPh Diinvestasikan dlm Aset Tetap Pendapatan dari Pemkot Belanja Penyusutan Bangunan Belanja Persediaan ATK Belanja Penyusutan Peralatan Belanja Honorarium Panitia Belanja Perjalanan Dinas Belanja Pemeliharaan

118

4.2 Perancangan Model Sistem yang Diusulkan 4.2.1 Diagram Alur Data (Data Flow Diagram) yang Diusulkan 4.2.1.1 Diagram Konteks yang Diusulkan Diagram konteks usulan dalam perancangan sistem informasi akuntansi laporan keuangan neraca pada Kelurahan Cibeureum adalah sebagai berikut:

LURAH

PENGELOLA BARANG

DPA Otorisasi,SUPB & SUPSP,BI,SPM,LPJ Otorisasi,NPD Otorisasi,SPPJ Otorisasi,Laporan Keuangan Neraca Otorisasi

RKA-SKPD Belanja Jasa Otorisasi,RKA-SKPD Belanja Barang Otorisasi,DPA,SPD,Rancan gan SPM,LPJ,NPD,BMD yg sudah diteliti,SSP,SPPJ,Laporan Keuangan Neraca

KEPALA DAERAH

BMD,SSP

SPP(Barang),BMD yg sudah diteliti,SSP BMD,SSP,SP,BMD yg sudah diteliti,SSP,SKPB

SUPB,SUPSP

SEKRETARIS

RKA-SKPD Belanja Jasa,Rincian Belanja Barang,Proposal Program & Kegiatan Otorisasi,Rancangan SPM,SPPJ

Rancangan RKA-SKPD,RKA-SKPD Belanja Jasa Otorisasi,Proposal Program & Kegiatan,RKA-SKPD Belanja Barang Otorisasi,SPM,SPP UP/GU/TU/LS/ Dok.Lainnya,SPJ Pemasukan,SPJ Pengeluaran,SPPJ Otorisasi

DPRD

Sistem Informasi Akuntansi Laporan Keuangan Neraca

SP,BMD yg sudah diteliti,SSP

PPKD

RKA-SKPD Belanja Jasa Otorisasi,RKA-SKPD Belanja Barang Otorisasi,SPD,SP2D,SPM Rancangan RKASKPD,Proposal Program & Kegiatan,LPJ

SATKER

RKA-SKPD Belanja Otorisasi,Proposal Program & Kegiatan Otorisasi,SP2D Cair Belanja Jasa,LPJ Otorisasi RKA-SKPD Belanja Barang,NPD,Daftar Aktiva,RTT,RTA,RTL,Kwitansi Pengeluaran

SPP(Barang),BMD yg sudah diteliti,SSP

DATA MITRA

RKA-SKPD Belanja Jasa,RKA-SKPD Belanja Barang,DPA Otorisasi,SPM,SPPJ Otorisasi

PPTK

Rincian Belanja Barang,SP2D Cair Belanja Barang,NPD,SPTT,SPTA,SPTL,Daftar Aktiva,Faktur Pembelian,RKASKPD Belanja Barang Otorisasi

SPTT,SPTA,SPTL,Daftar Aktiva,Faktur Pembelian

SP2D,Cek

RTT,RTA,RTL,Daftar Aktiva RKA-SKPD Belanja Jasa Otorisasi,RKASKPD Belanja Barang Otorisasi,BI,SPD,SP2D,SP2D Cair,NPD Otorisasi,Kwitansi Pengeluaran,SPPJ Otorisasi,Laporan Keuangan Neraca Otorisasi

BANK

SP2D Cair DPA,SPP UP/GU/TU/LS/Dok Lainnya,Cek,SP2D Cair Belanja Jasa,SP2D Cair Belanja Barang,NPD Otorisasi,SPJ Pemasukan,SPJ Pengeluaran

BENDAHARA

Gambar 4.1 Diagram Konteks Usulan

119

4.2.1.2 Diagram Alur Data Level 0 yang Diusulkan Diagram arus data level 0 dari pembuatan laporan keuangan neraca usulan adalah sebagai berikut: RKA-SKPD Belanja Jasa

RKA-SKPD Belanja Jasa Program & Kegiatan

RKA-SKPD Belanja Barang Rancangan RKA-SKPD

Program & Kegiatan LPJ

Rincian belanja barang,RKASKPD belanja barang

Rincian belanja barang,RKA-SKPD belanja barang otorisasi

RKA-SKPD Belanja Jasa otorisasi, RKA-SKPD Belanja Barang otorisasi

DPA RKA-SKPD Belanja Jasa Otorisasi, RKA-SKPD Belanja Barang Otorisasi,SPD,SPP UP/GU/TU/LS/Dok Lainnya

DPA

LURAH SPP

SPP SPP UP/GU/TU/LS/Dok Lainnya,Rancangan SPM

2.0 Mengajukan Anggaran

DPA,SPM

SPM

DPA,SPD SPD

SPM

PPTK

RKA-SKPD Belanja Jasa Otorisasi, RKA-SKPD Belanja Barang Otorisasi


SPD

SEKRETARIS

Proposal program dan kegiatan otorisasi,rancangan RKA-SKPD,

1.0 Pembagian Program Kerja

RKA-SKPD Belanja Jasa, RKA-SKPD Belanja Barang

BENDAHARA

SPPJ yg tlh diotorisasi

Rancangan RKA-SKPD,proposal program dan kegiatan,RKA-SKPD belanja jasa otorisasi,RKA-SKPD belanja barang otorisasi

Proposal program dan kegiatan otorisasi,RKA-SKPD Belanja Jasa otorisasi

PPKD

Rancangan RKA-SKPD

LPJ

Data rincian belanja jasa,proposal program dan kegiatan

SATKER

RKA-SKPD Belanja Barang

Rancangan SPM,SPM

LURAH (2)

SPM SPD,Rancangan SPM

SPM,SP2D SPJ Pemasukan SP2D Cair

BENDAHARA (2)

SP2D Cair

SP2D,Cek,SP2D cair belanja jasa,SP2D cair belanja barang SP2D,SP2D Cair

3.0 Mencatat Pemasukan

SP2D

SP2D

SPJ Pemasukan

SPJ Pemasukan, SPJ Pengeluaran, SPPJ

SP2D,Cek,SP2D Cair SP2D,Cek SUPB,SUPSP

BI SP2D Cair Belanja Jasa Proposal Program dan Kegiatan Otorisasi LPJ

PPTK (2)

SP2D Cair belanja barang

SPJ Pemasukan

BANK

SATKER

SP2D Cair belanja jasa

SPD,SUPB,SUPSP, BMD yg sudah diteliti,SPSP

LURAH (3)

BMD yg sudah diteliti,SSP

NPD Otorisasi

PENGELOLA BARANG SPJ Pengeluaran

SUPB,SUPSP,BMD yg sudah diteliti,SSP

4.0 Mengajukan Aset

BMD yg sudah diteliti,SSP,SP

SPJ Pengeluaran

SPJ Pengeluaran

KEPALA DAERAH

BMD yg sudah diteliti,SSP,SP

LPJ, NPD

SPP (Barang),BMD yg sudah diteliti,SSP

NPD Otorisasi, LPJ Otorisasi NPD Otorisasi

LPJ Otorisasi

LPJ

5.0 Melaksanakan Transaksi Belanja

Daftar Aktiva,dan Faktur Pembelian,SPTT, SPTA,SPTL

LPJ

NPD Otorisasi, SP2D Cair Belanja Barang


6.0 Mencatat Pengeluaran


SPTT,SPTA,SPTL, Daftar Aktiva,Faktur Pembelian

DPRD Kwitansi Pengeluaran,Daftar Aktiva,Faktur Pembelian

BENDAHARA Transaksi Kas/ Bank,Aktiva Tetap,Kas Kecil,Perlengkapan, SPPJ yg tlh Jurnal Umum,Buku diotorisasi, Besar,Jurnal Laporan Keuangan Penyesuaian,Nerac Neraca otorisasi a Saldo,Laporan Keuangan Neraca

PPTK (3)

NPD Otorisasi,Daftar Aktiva,dan Faktur Pembelian,SPTT, SPTA, SPTL

LURAH (4)

Daftar aktiva,RTT, RTA,RTL SPPJ,Laporan Keuangan Neraca

DATA MITRA PPKD



7.0 Membuat Laporan Keuangan Neraca SPPJ


Buku Besar Umum

Neraca Saldo

Buku Besar Umum Neraca Saldo

Jurnal Penyesuaian Jurnal Umum

SPPJ

Jurnal Penyesuaian Jurnal Umum

Gambar 4.2 Diagram Alur Data Level 0 Usulan 120

4.2.1.3 Diagram Alur Data Level 1 yang Diusulkan 4.2.1.3.1 Diagram Alur Data Level 1 Proses Nomor 1 Diagram arus data level 1 proses 1 atau proses pembagian program kerja usulan adalah sebagai berikut:

SATKER

Data Rincian Belanja Jasa

1.1 Membuat Rancangan RKASKPD

Rancangan RKA-SKPD

SEKRETARIS

Program dan Kegiatan

Program dan Kegiatan

Rancangan RKA-SKPD

Proposal Program dan Kegiatan

1.7 Membuat Proposal Program dan Kegiatan

Proposal Program dan Kegiatan otorisasi

Rancangan RKA-SKPD

Rancangan RKA-SKPD

Proposal Program dan Kegiatan Rancangan RKA-SKPD

Proposal Program dan Kegiatan otorisasi

RKA-SKPD Belanja Jasa Otorisasi RKA-SKPD Belanja Jasa

PPKD

1.3 Membuat RKASKPD Belanja Jasa


1.5 Membuat RKASKPD Belanja Barang

Rancangan RKA-SKPD

RKA-SKPD Belanja Jasa

Rincian Belanja Barang RKA-SKPD Belanja Barang

1.2 Mengecek Program & Kegiatan Belanja Jasa

RKA-SKPD Belanja Jasa

PPTK

Rincian Belanja Barang


RKA-SKPD Belanja Jasa, RKA-SKPD Belanja Barang Rincian Belanja Barang

RKA-SKPD Belanja Barang Otorisasi


1.6 Otorisasi Dan menerbitkan

1.4 Membuat Rincian Belanja Barang


Rincian Belanja Barang

BENDAHARA

LURAH

RKA-SKPD Belanja Jasa Otorisasi,RKA-SKPD Belanja Barang Otorisasi

Gambar 4.3 Diagram Alur Data Level 1 Proses Nomor 1 Usulan

121

4.2.1.3.2 Diagram Alur Data Level 1 Proses Nomor 2 Diagram arus data level 1 proses 2 atau proses mengajukan anggaran usulan adalah sebagai berikut:


BENDAHARA

2.1 Membuat DPA

DPA

DPA

SPD DPA

SPP

SPP

2.3 Membuat SPP

PPKD

DPA SPD

SPM

SPP UP/GU/TU/LS/Dok.Lainnya

SPD

SPD

SEKRETARIS

2.2 Mengisi SPD

SPD

LURAH

SPP UP/GU/TU/LS/Dok.Lainnya Rancangan SPM

2.4 Mengecek Kelengkapan Dokumen

SPP UP/GU/TU/ LS/Dok Lainnya

2.5 Membuat Rancangan SPM

Rancangan SPM

Rancangan SPM

Rancangan SPM

SPM SPM

SPM

2.6 Membuat dan Menerbitkan SPM


122

4.2.1.3.3 Diagram Alur Data Level 1 Proses Nomor 3 Diagram arus data level 1 proses nomor 3 atau proses mencatat pemasukan usulan adalah sebagai berikut: SATKER

SP2D Cair Belanja Jasa

SPM

PPKD

3.1 Membuat SP2D

SP2D

SP2D

SP2D

BANK

SP2D

SP2D Cair Belanja Jasa, SP2D Cair Belanja Barang

SP2D Cair Belanja Barang

PPTK

BENDAHARA SP2D Cair Belanja Jasa, SP2D Cair Belanja Barang

SP2D

Cek

3.4 Pembagian Dana

3.5 Mengelompokkan transaksi di Kas/Bank

3.2 Mengisi Cek

SP2D, Cek SP2D Cair Belanja Jasa, SP2D Cair Belanja Barang

SP2D Cair

SP2D Cair

3.3 Mencairkan Dana

SP2D Cair

SPJ Pemasukan

3.6 Membuat SPJ Pemasukan

SPJ Pemasukan

SPJ Pemasukan

SEKRETARIS


123

4.2.1.3.4 Diagram Alur Data Level 1 Proses Nomor 4 Diagram arus data level 1 proses nomor 4 atau proses pengajuan aset usulan adalah sebagai berikut:

LURAH

SPD

4.1 Membuat SUPB & SUPSP

SUPB,SUPSP

PENGELOLA BARANG


SUPB,SUPSP

4.6 Membuat SKPB


KEPALA DAERAH



4.2 Mengecek dan Membuat BMD, SSP

BMD yg sudah diteliti,SPSP

4.7 Mengisi BI

4.3 Mengecek Dan Menetapkan status

DPRD

BMD yg sudah diteliti,SPSP SPP (Barang),BMD yg sudah diteliti,SSP BI

BENDAHARA

4.4 Membuat SPP (Barang)



4.5 Membuat SP


124

4.2.1.3.5 Diagram Alur Data Level 1 Proses Nomor 5 Diagram arus data level 1 proses nomor 5 atau proses melakukan transaksi belanja usulan adalah sebagai berikut: SP2D Cair Belanja Jasa Proposal Program dan Kegiatan Otorisasi

SATKER

5.1 Melaksanakan Program dan Kegiatan Belanja Jasa

NPD Otorisasi

PPTK

5.5 Menyiapkan RTT,RTA,RTL

NPD Otorisasi

5.6 Membeli Peralatan/ Perlengkapan

SP2D Cair Belanja Barang SP2D Cair Belanja Jasa Proposal Program dan Kegiatan Otorisasi

LPJ

LPJ LPJ Otorisasi

5.2 Membuat LPJ

RTT,RTA,RTL

5.3 Membuat NPD

SPTT, SPTA, SPTL

DATA MITRA

Daftar Aktiva

RTT,RTA,RTL

Daftar Aktiva

LPJ Otorisasi LPJ

LURAH

5.7 Input Data Pembayaran

NPD

5.8 Input Data Pembelian

NPD Daftar Aktiva,dan Faktur Pembelian

BENDAHARA

NPD Otorisasi NPD Otorisasi

5.4 Mengecek Dan Otorisasi

NPD Otorisasi


125

4.2.1.3.6 Diagram Alur Data Level 1 Proses Nomor 6 Diagram arus data level 1 proses nomor 6 atau proses mencatat pengeluaran usulan adalah sebagai berikut: BENDAHARA SPTT,SPTA,SPTL,Daftar Aktiva,Faktur Pembelian

6.1 Mengelompokkan Transaksi

SPTT,SPTA,SPTL,Daftar Aktiva Lancar,Faktur Pembelian

6.2 Transaksi Aktiva Tetap


6.3 Transaksi Perlengkapan


SEKRETARIS

SPJ Pengeluaran

6.4 Membuat SPJ Pengeluaran


6.5 Transaksi Kas Kecil

SPJ Pengeluaran SPJ Pengeluaran


126

4.2.1.3.7 Diagram Alur Data Level 1 Proses Nomor 7 Diagram arus data level 1 proses nomor 7 atau proses membuat laporan keuangan neraca usulan adalah sebagai berikut: SPPJ

SEKRETARIS

SPJ Pemasukan, SPJ Pengeluaran

7.1 Membuat SPPJ

SPPJ

SPPJ


LURAH

Laporan Keuangan Neraca Otorisasi SPPJ

SPPJ yg tlh diotorisasi Laporan Keuangan neraca

7.2 Verifikasi & Otorisasi


PPKD

Buku Besar Umum

BENDAHARA

Jurnal Umum

7.7 Membuat Laporan Keuangan Neraca

Laporan Keuangan Neraca Otorisasi


Transaksi Kas/ Bank,Aktiva Tetap,Kas Kecil,Perlengkapan

Laporan Keuangan neraca

7.3 Membuat Jurnal Umum

Jurnal Umum

PPTK

Buku Besar Umum

Jurnal Umum

Jurnal Penyesuaian

Jurnal Penyesuaian

Kwitansi Pengeluaran,Daftar Aktiva Lancar,Faktur Pembelian

Neraca Saldo

7.4 Membuat Buku Besar

Buku Besar

7.6 Membuat Neraca Saldo

Buku Besar Jurnal Penyesuaian

Neraca Saldo

7.5 Membuat Jurnal Penyesuaian

Neraca Saldo


127

4.2.2 Kamus Data yang Diusulkan Kamus data yang diusulkan pada sistem informasi akuntansi laporan keuangan neraca adalah sebagai berikut: Tabel 4.2 Kamus Data yang Diusulkan No. Nama Arus Alias Bentuk Data Data 1 Jurnal JU Dokumen Umum cetakan computer 2

Buku Besar Umum

BBU

Dokumen cetakan computer

3

Neraca Saldo

-

Dokumen cetakan computer

4

Jurnal JP Penyesuaian

7


-

Dokumen cetakan computer Dokumen cetakan computer

Arus Data

Penjelasan

Proses 7.3 Catatan yang ke proses 7.4 digunakan untuk menjurnal transaksi. Proses 7.4 Catatan hasil ke proses 7.5 penggolongan dan 7.6 pengakumulasian akun yang sama. Proses 7.6 Laporan hasil ke proses 7.7 dari saldo akhir dari setiap buku besar. Proses 7.5 Laporan yang ke proses 7.4 dibuat pada akhir periode anggaran. Proses 7.7 Laporan yang ke Lurah, isinya Lurah ke menggambarkan Bendahara tentang kondisi keuangan atau aset.

4.2.3 Bagan Alir (Flowchart) Sistem yang Diusulkan Bagan alir sistem usulan pada prosedur pembuatan laporan keuangan neraca pada Kelurahan Cibeureum adalah sebagai berikut:

128

Title SEKRETARIS 24

22 4

45 1

2

SPP-SP UP/LS

RKA-SKPD Yang telah disetujui

26

SPP-RRP UP/LS SPPRingk DPA Db.Rancangan RKA-SKPD

Simpan/ubah Dan Otorisasi

SPPRingk Belanja

3

Db.SPP

SPM

1

Mengecek Rancangan RKA-SKPD

Db.SPJ

SPM

SPPJ

RKA-SKPD

SPM

Db.SPM

2

Cetak Mengecek Dan Otorisasi

Cetak RKA-SKPD

SPPJ Cetak SPM

Db.SPPJ

34

1 RKA-SKPD Otorisasi

1 2

Cetak SPPJ

RKA-SKPD 3

SPM

2 4

5

T 5 2

6 7

SPP-SP UP/LS Otorisasi SPP-RRP UP/LS SPPRingk DPA

1 SPPJ

SPPRingk Belanja

8

2

25

3 4 47

2 23

46


T

Gambar 4.10 Bagan Alir Sistem dari Sistem Informasi Akuntansi Laporan Keuangan Neraca

129

Title

PPKD

2

11

2

1

DPA Otorisasi

RKA-SKPD 2

Membuat SPD Otorisasi 1 SPD 2 1 tidak

Setuju?

RKA-SKPD

3 2 T 12

Otorisasi Dan menerbitkan

3 25

1 RKA-SKPD Yang telah disetujui

T

SPM 2 Mengecek kelengkapan SPM

4

48 Setuju?

3

Tidak

Ya


SPM ditolak

26

Membuat SP2D T

1 SP2D

27

2

28

Gambar 4.11 Bagan Alir Sistem dari Sistem Informasi Akuntansi Laporan Keuangan Neraca Usulan Lanjutan 1

130

Title

LURAH

9

5

12 14 2

1

2

SPD

DPA

RKA-SKPD otorisasi

3

2 T SUPB ditolak

T

21

SUPSP ditolak SUPB,dan SUPSP

Mengecek dan Otorisasi

Db.SUPB,dan SUPSP

SUPB,dan SUPSP 1 Setuju?

Tidak

DPA

20

2 Cetak SUPB,dan SUPSP

32 Ya 1 DPA Otorisasi

10

2

Db.Data Aktiva Tetap

LPJ SUPB

T

SUPSP 11 BI Otorisasi

35

BI

Db.BI

13

NPD

1 LPJ diotorisasi

Cetak BI

2 T 46

Mengecek

Laporan BI

33 Setuju?

Tidak

NPD

1 SPPJ 2 T

3 43

Ya 4

36 NPD Otorisasi

Laporan Keuangan Neraca 37 Verifikasi & otorisasi

Verifikasi & Otorisasi

1 SPPJ yg tlh diotorisasi

Laporan Keuangan Neraca Otorisasi

2 3 4

44

T 47 49 48


131

Title BENDAHARA 30

19

8 28

37

40

42

NPD Otorisasi

SPTT

Daftar Aktiva Lancar

2 BMD yang sudah diteliti

SP2D Cair 5 RKA-SKPD otorisasi

2

10

SP2D

1

Membuat Cek

DPA DPA

SPTL

38

2

Kwitansi

Cek

DPA

Bersama dengan Uang

SSP

Faktur Pembelian

SPTA

Pembagian dana

Db.DPA 29

31

Db.Data Aktiva Tetap

Data Aktiva Tetap Bersama dengan Uang

Cetak DPA

Data Aktiva Tetap

Pengelompokkan Transaksi

Kode Rekening

Jurnal Penyesuaian

Kode Rekening

Jurnal Penyesuaian

20

1 DPA 2 Kas/Bank

Aktiva Tetap

Kas Kecil

Persediaan

9

Db.kode rekening Transaksi Kas/ Bank

Transaksi Aktiva Tetap

Transaksi Kas Kecil

Transaksi Persediaan

Db.Jurnal Penyesuaian

T Cetak Jurnal Penyesuaian

Membuat Jurnal Umum

SPJ Pemasukan, SPJ Pengeluaran

21

SPJ Pemasukan,SPJ Pengeluaran

3 SPD

Db.SPJ

Cetak Jurnal Umum

Db.Jurnal Umum

Jurnal Penyesuaian

Jurnal Umum T

T

45

SPP

Membuat Buku Besar Umum SPP

Db.Buku Besar Umum

Db.SPP Cetak Buku Besar Umum

Buku Besar Umum T

Cetak SPP

24

Membuat Neraca Saldo

SPP-SP UP/LS SPP-RRP UP/LS

44

SPPRingk DPA SPPRingk Belanja

22

Db.Neraca Saldo

23 Cetak Neraca Saldo

SPP-SP UP/LS Otorisasi SPP-RRP UP/LS SPPRingk DPA

SPPRingk Belanja

Neraca Saldo

Laporan Keuangan Neraca otorisasi

49 Membuat Laporan Keuangan Neraca

Db.Laporan Keuangan Neraca 4

Cetak Laporan Keuangan Neraca



T

Selesai

T 43


132

Title

Title

SATKER (Satuan Kerja)

PPTK (Pejabat Pelaksana Teknis Kegiatan)

Mulai 31

7 Bersama dengan Uang

Rancangan RKA-SKPD


Kwitansi

Berdasarkan S.K Kerjasama Simpan Data Mitra

34

36 Db.SPM

S.K Kerjasama

Rancangan RKA-SKPD

Db.Rancangan RKA-SKPD

T

Cetak Rancangan RKA-SKPD

NPD NPD

Melaksanakan program & kegiatan

Data Mitra

1 NPD

Db.NPD Data Mitra

LPJ

Rancangan RKA-SKPD

Db.Data Mitra

Cetak NPD

LPJ

Cetak Data Mitra

Db.LPJ

T

38 Bersama dengan Uang

NPD

Data Mitra

Cetak LPJ NPD Otorisasi 35 T LPJ Melakukan Transaksi Belanja Barang

6

32


T

33

LPJ Otorisasi

Pengadaan Aktiva

Tidak

Menyiapkan RTT,RTA,RTL Bulan Sebelumnya

Ya

Membeli Peralatan/ Persediaan T

RTT RTA RTL


Bersama dengan Uang 41



133

Title

Title

PENGELOLA BARANG

Title

KEPALA DAERAH

DPRD

15

18

16

13

BMD

SP

SPP (Barang) BMD yg sudah diteliti

SSP

BMD yg sudah diteliti

SUPB SSP

SSP

SUPSP

Mengecek dan menetapkan status BMD,SSP

Membuat SKPB

Mengecek surat usulan


Mengecek surat

1 Setuju?

SKPB SSP Setuju?

Tidak

Tidak

SPP (Barang) ditolak


SUPB ditolak

Ya SSP

SUPSP ditolak

17

T Membuat SP

Ya

17

Membuat BMD dan SSP

19 SP

14

BMD yg sudah diteliti SPP (Barang) ditolak

Membuat SPP (Barang)

BMD

SSP

SSP

SPP (Barang) 18 BMD yg sudah diteliti SSP 15

16


134

Title DATA MITRA

Title BANK

27

39

29


RTT

Cek

SP2D

RTA 41

RTL Membuat SP2D Cair

Daftar Aktiva Lancar 1 SP2D Cair

T

2

Bersama dengan Uang

Membuat SPTT,SPTA, SPTL

Membuat Daftar Aktiva Lancar dan Faktur Pembelian

SPTT SPTA

30


SPTL

Faktur Pembelian

40 42

Keterangan : 1. 2. 3. 4. 5. 6.

RTT RTA RTL SPTT SPTA SPTL

= Rekening Tagihan Telepon = Rekening Tagihan Air = Rekening Tagihan Listrik = Struk Pembayaran Tagihan Telepon = Struk Pembayaran Tagihan Air = Struk Pembayaran Tagihan Listrik


135

Deskripsi dari bagan alir sistem informasi akuntansi laporan keuangan neraca usulan adalah sebagai berikut: A. Proses pengajuan aset dilakukan oleh Pemerintah Kota Cimahi mewakafkan sebidang tanah dan bangunan dengan memberikan akta tanah dan akta bangunan untuk pendirian kelurahan. B. Proses pembagian program kerja dilakukan oleh Satker dan PPTK. Satker bertugas membuat Rancangan RKA-SKPD serta membuat Proposal Program dan Kegiatan untuk diberikan ke Sekretaris, lalu Sekretaris mengecek serta membuatkan RKA-SKPD Belanja Jasa untuk diberikan kepada PPKD untuk diotorisasi. Adapun PPTK bertugas membuat RKA-SKPD Belanja Barang berdasarkan Rincian Belanja Barang lalu diberikan kepada PPKD untuk diotorisasi. C. Proses pengajuan anggaran dilakukan oleh Bendahara dengan membuat DPA berdasarkan RKA-SKPD Belanja Jasa dan RKA-SKPD Belanja Barang untuk diberikan kepada PPKD dengan mengisi SPD untuk diserahkan kepada Lurah, lalu Bendahara membuat SPP untuk diberikan kepada Sekretaris, Sekretaris mengecek dan dibuatkan Rancangan SPM untuk diberikan kepada Lurah, dan Lurah membuat SPM serta menerbitkannya. SPM tersebut diberikan kepada PPKD. D. Proses mencatat pemasukan dilakukan oleh PPKD dengan membuat SP2D untuk diserahkan kepada Bendahara untuk diisi cek berdasarkan anggaran yang dibutuhkan dan cek yang sudah terisi tersebut diserahkan kepada Bank, Bank mencairkan dana dan diserahkan kembali kepada Bendahara lalu Bendahara membagikan dana tersebut kepada tiap-tiap bagian yang akan

136

melaksanakan program kerja atau kegiatan, Bendahara mengelompokkan setiap transaksi tersebut di Kas/Bank dan dibuatkan SPJ Pemasukannya untuk diserahkan kepada Sekretaris. E. Proses transaksi belanja kelurahan dengan melaksanakan program dan kegiatan belanja jasa dan belanja barang yang dilakukan oleh masing-masing bagian seperti Satker dan PPTK. F. Proses mencatat pengeluaran dilakukan oleh masing-masing bagian yang telah melaksanakan program kegiatan belanja jasa dan belanja barang, lalu tiap-tiap bagian tersebut merekap atau menyiapkan bukti-bukti belanja dan dibuatkan SPJ Pengeluaran untuk diberikan kepada Sekretaris. G. Pada akhir periode Bendahara membuat pengelompokkan transaksi yang terdiri dari kas besar, kas bank, kas kecil, perlengkapan, dan dibuatkan jurnal umum, buku besar umum, neraca saldo, jurnal penyesuaian, serta laporan keuangan neraca itu sendiri.

137

4.2.4 Perancangan Basis Data 4.2.4.1 Kode Pada Kunci Utama Perancangan kode kunci utama yang digunakan dalam sistem informasi akuntansi laporan keuangan neraca adalah sebagai berikut: A. SPP (Surat Permintaan Pembayaran) 0001 / SPP / Gaji-LS / 1.20.22 / 1 / 2011 Tahun Bulan Kode Kelurahan Jenis Pengajuan Nama Dokumen No Urut

B. SPM (Surat Perintah Membayar) 0001 / SPM / Gaji-LS / 1.20.22 / 1 / 2011 Tahun Bulan Kode Kelurahan Jenis Pengajuan Nama Dokumen No Urut

C. NPD (Nota Pencairan Dana) 0001 / NPD / Gaji-LS / 1.20.22 / 1 / 2011 Tahun Bulan Kode Kelurahan Jenis Pengajuan Nama Dokumen No Urut

138

4.2.4.2 Normalisasi yang Diusulkan Beberapa dokumen yang merupakan inputan dan harus dilakukan normalisasi, penulis mengusulkan dokumen-dokumen yang ada di bawah ini: A. SPP-Surat Pengantar SPP-SP merupakan dokumen untuk mengajukan dana kepada BUD selaku PPKD, dan diproses menjadi SPM yang dibuat oleh PPK-SKPD, dan dari dokumen ini menghasilkan beberapa tabel, yang terdiri dari: SPP-SP dalam bentuk Unnormal, bentuk normal ke satu (NF1), dan bentuk normal ke dua (NF2).

Gambar 4.17 SPP-SP Unnormal

139

Dokumen SPP-Surat Pengantar (Bentuk Unnormal)

Tahun Untuk Keperluan Nama Bendahara Jumlah Pembayaran Nama dan Nomor Rekening Dasar Pengeluaran SPD Nomor Jumlah Sisa Dana SPD Anggaran Bulan Pengeluaran Yang Diminta BANK 0001/SPP/GAJI-LS/1.20/1/2011 Administrasi Keuangan DaerahKelurahan Cibeureum 2011 001/SPD/BTL/1.20.22/1/2011 Rp.90.719.496,00 Januari Asep Wahyu S.K, A.Md Rp.42.701.822,00 Bank BJB/0001.384686-001 No SPP

Urusan Pemerintahan

SKPD

Dokumen SPP-Surat Pengantar (Bentuk Normal Ke Satu (NF1))

SKPD

Jumlah Sisa Dana Untuk Keperluan Nama Bendahara Jumlah Nama dan Nomor Rekening SPD Bulan Pengeluaran Pembayaran Yang BANK 2011 001/SPD/BTL/1.20.22/1/2011 Rp.90.719.496,00 Januari Asep Wahyu S.K, A.Md Rp.42.Di701.min8t22,a 00 Bank BJB/0001.384686-001

Tahun Anggaran Dasar Pengeluaran SPD Nomor

Kelurahan Cibeureum

Dokumen SPP-Surat Pengantar (Bentuk Normal Ke Dua (NF2))

No SPP

Urusan Pemerintahan

SKPD

0001/SPP/GAJI-LS/1.20/1/2011 Administrasi Keuangan Daerah Kelurahan Cibeureum

Tahun Anggaran 2011

Dasar Pengeluaran Untuk Keperluan Jumlah Sisa Dana SPD SPD Nomor Bulan Rp.90.719.496,00 Januari

B. SPP-Rincian SPP-Rincian ini adalah dokumen yang menyertai SPP-Surat Pengantar dan SPP-Ringkasan untuk mengajukan dana kepada BUD, dan akan diproses menjadi SPM, serta dari dokumen ini menghasilkan beberapa tabel, yang terdiri dari: SPP-Rincian dalam bentuk Unnormal, bentuk normal ke satu (NF1), dan bentuk normal ke dua (NF2) disertai dengan tabel kode rekening.

140

Gambar 4.18 SPP-Rincian Rencana Pengguna Unnormal SPP Rincian (Bentuk Unnormal) No SPP

Kode Rekening 1.20.1.20.22.00.00.5.1.1.01.01 1.20.1.20.22.00.00.5.1.1.01.02 1.20.1.20.22.00.00.5.1.1.01.03 0001/SPP/GAJI-LS/1.20/1/2011 1.20.1.20.22.00.00.5.1.1.01.04 1.20.1.20.22.00.00.5.1.1.01.05 1.20.1.20.22.00.00.5.1.1.01.06 1.20.1.20.22.00.00.5.1.1.01.07 Total

Uraian Gaji Pokok PNS/Uang Representasi Tunjangan Keluarga Tunjangan Jabatan Tunjangan Fungsional Umum Tunjangan Beras Tunjangan PPh/Tunjangan Khusus Pembulatan Gaji

Jumlah Rp. 31.600.300,00 Rp. 3.115.243,00 Rp .2.990.000,00 Rp. 1.995.000,00 Rp. 2.376.000,00 Rp. 624.372,00 Rp. 907,00 Rp. 42.701.822,00

SPP Rincian (Bentuk Normal Ke Satu (NF1)) No SPP

Kode Rekening 1.20.1.20.22.00.00.5.1.1.01.01 1.20.1.20.22.00.00.5.1.1.01.02 1.20.1.20.22.00.00.5.1.1.01.03 0001/SPP/GAJI-LS/1.20/1/2011 1.20.1.20.22.00.00.5.1.1.01.04 1.20.1.20.22.00.00.5.1.1.01.05 1.20.1.20.22.00.00.5.1.1.01.06 1.20.1.20.22.00.00.5.1.1.01.07 Total

Uraian Gaji Pokok PNS/Uang Representasi Tunjangan Keluarga Tunjangan Jabatan Tunjangan Fungsional Umum Tunjangan Beras Tunjangan PPh/Tunjangan Khusus Pembulatan Gaji

Jumlah Rp. 31.600.300,00 Rp. 3.115.243,00 Rp .2.990.000,00 Rp. 1.995.000,00 Rp. 2.376.000,00 Rp. 624.372,00 Rp. 907,00 Rp. 42.701.822,00

141

SPP Rincian (Bentuk Normal Ke Dua (NF2)) Kode Rekening Jumlah 1.20.1.20.22.00.00.5.1.1.01.01 Rp. 31.600.300,00 1.20.1.20.22.00.00.5.1.1.01.02 Rp. 3.115.243,00 1.20.1.20.22.00.00.5.1.1.01.03 Rp .2.990.000,00 0001/SPP/GAJI1.20.1.20.22.00.00.5.1.1.01.04 Rp. 1.995.000,00 LS/1.20/1/2011 1.20.1.20.22.00.00.5.1.1.01.05 Rp. 2.376.000,00 1.20.1.20.22.00.00.5.1.1.01.06 Rp. 624.372,00 1.20.1.20.22.00.00.5.1.1.01.07 Rp. 907,00 No SPP

Relasi Kode Rekening Kode Rekening Uraian Gaji Pokok PNS/Uang 1.20.1.20.22.00.00.5.1.1.01.01 Representasi 1.20.1.20.22.00.00.5.1.1.01.02 Tunjangan Keluarga 1.20.1.20.22.00.00.5.1.1.01.03 Tunjangan Jabatan 1.20.1.20.22.00.00.5.1.1.01.04 Tunjangan Fungsional Umum 1.20.1.20.22.00.00.5.1.1.01.05 Tunjangan Beras Tunjangan PPh/Tunjangan 1.20.1.20.22.00.00.5.1.1.01.06 Khusus 1.20.1.20.22.00.00.5.1.1.01.07 Pembulatan Gaji

C. SPP-Ringkasan SPP-Ringkasan adalah dokumen yang menyertai SPP-Surat Pengantar untuk mengajukan dana kepada BUD, dan akan diproses menjadi SPM, dan dari dokumen tersebut akan menghasilkan beberapa tabel, yang terdiri dari: SPPRingkasan dalam bentuk Unnormal, bentuk normal ke satu (NF1), dan bentuk normal ke dua (NF2).

142

Gambar 4.19 SPP-Ringkasan Unnormal SPP-Ringkasan (Bentuk Unnormal)

No SPP

Sisa Dana Yang Belanja LS Pembiayaan Belanja LS Pengadaan Belanja UP/GU Belanja TU Belum di SPD-kan Gaji dan Tunjangan Barang dan Jasa 1 001/SPD/BTL/1.20.32Januar 2/1/2011i 2011 Rp.90.719.496,00 Rp.644.312.303,00

Jumlah Dana DPA-SKPD No. Urut Nomor SPD Tanggal SPD Jumlah Dana

0001/SPP/GAJI-LS/1.20/1/2011 Rp.735.031.799,00

SPP-Ringkasan (Bentuk Normal Ke Satu (NF1))

No SPP

Sisa Dana Yang Belanja LS Pembiayaan Belanja LS Pengadaan Belanja UP/GU Belanja TU Belum di SPD-kan Gaji dan Tunjangan Barang dan Jasa 1 001/SPD/BTL/1.20.32Januar 2/1/2011i 2011 Rp.90.719.496,00 Rp.644.312.303,00

Jumlah Dana DPA-SKPD No. Urut Nomor SPD Tanggal SPD Jumlah Dana

0001/SPP/GAJI-LS/1.20/1/2011 Rp.735.031.799,00

SPP-Ringkasan (Bentuk Normal Ke Dua (NF2)) No SPP

Nomor SPD

0001/SPP/GAJI-LS/1.20/1/2011 001/SPD/BTL/1.20.22/1/2011

Sisa Dana Yang Belum di SPD-kan 3 Januari 2011 Rp.90.719.496,00 Rp.644.312.303,00 Tanggal SPD

Jumlah Dana

143

4.2.4.3 Perancangan Struktur Menu Tabel Perancangan struktur tabel dalam perancangan sistem informasi akuntansi laporan keuangan neraca terkait dengan kebutuhan media penyimpanan data, adapun struktur tabel yang dibutuhkan dalam perancangan ini adalah sebagai berikut:

Gambar 4.20 Struktur Tabel User

Gambar 4.21 Struktur Tabel Kode Rekening

144

Gambar 4.22 Struktur Tabel NPD

Gambar 4.23 Struktur Tabel RKA

Gambar 4.24 Struktur Tabel Detail RKA

145

Gambar 4.25 Struktur Tabel SPP

Gambar 4.26 Struktur Tabel SPP Rincian Rencana Pengguna

Gambar 4.27 Struktur Tabel SPP Ringkasan

146

Gambar 4.28 Struktur Tabel SPM

Gambar 4.29 Struktur Tabel Tanah

Gambar 4.30 Struktur Tabel Bangunan

147

Gambar 4.31 Struktur Tabel Peralatan

Gambar 4.32 Struktur Tabel Perlengkapan

Gambar 4.33 Struktur Tabel Kegiatan

148

Gambar 4.34 Struktur Tabel Program

Gambar 4.35 Struktur Tabel BI (Buku Inventaris)

Gambar 4.36 Struktur Tabel Mitra

149

Gambar 4.37 Struktur Tabel Pegawai

Gambar 4.38 Struktur Tabel Detail Jurnal

Gambar 4.39 Struktur Tabel Jurnal

150

Gambar 4.40 Struktur Tabel Buku Besar

Gambar 4.41 Struktur Tabel Kas

Gambar 4.42 Struktur Tabel SPJ

151

4.2.4.4 Diagram Relasi Entitas (Entity Relationship Diagram) yang Diusulkan Gambaran relasi antar entitas atau entity relationship diagram dalam perancangan sistem informasi akuntansi laporan keuangan neraca adalah sebagai berikut: Otorisasi

Pembuat

Triwulan

Program

Tahun_Anggaran

Kode_Rekening Untuk_Keperluan

Kegiatan

No_RKA

Jenis_Formulir

Volume

No_SPP

No_SPP

Tgl_RKA

No_SPP No_DPA_SKPD Anggaran

No_DPA_SKPD

Tanggal_SPM

Satuan

SPP_Ringkasan

Jumlah_yang_Dimi nta

SPP_Rincian

No_RKA No_SPM

Status_RKA uraian

RKA

N

Input

Harga

1

DPA

SPP_SP

N

Input

Jumlah_Bayar

Kode_Rekening

1

SPP

N

1

Buat

SPM

Jumlah_Potongan

N

Kode_Rekening

Letak Asal_Usul

Catat

Harga_Perolehan Kode_Barang

Status

Kode_Barang

Tanggal_Jurnal

Tahun_Perolehan

Luas

Debit

uraian

Penggunaan

1

Nama_Barang

BI

N

Id_Jurnal

kredit

1

Masuk

1

Reff

Jurnal Umum

Kode_Rekening

Posting

Kode_Rekening

uraian

Kode_Rekening

Penyusutan

Id_Jurnal

Debit

uraian Tanggal Tanggal_Jurnal

kredit

Id_BB

kredit

N Kode_Rekening

uraian

Jurnal Penyesuaian

Reff


1

Cetak

1

Buku Besar Umum

Reff

Debit

Gambar 4.43 Diagram Relasi Entitas yang Diusulkan

152

4.3 Perancangan Struktur Menu Perancangan struktur menu dapat dilihatm pada gambar di bawah ini: Masukan

Data

Keluaran

LPJ

Rancangan RKA-SKPD

SATKER

SEKRETARIS

Data

RKA-SKPD

Dokumen

SPM

Masukan

LURAH

Keluaran

SPPJ

Masukan

Data

Data Pegawai SUPB

Dokumen SUPSP MASUK BAGIAN Transaksi Keluaran

BI

Laporan BI

Data

Kode Rekening DPA

SPP

Pemasukan

Dokumen BENDAHARA

SPJ

Masukan

Pengeluaran

Pemasukan MENU UTAMA

Transaksi

Kas Kelurahan

Pengeluaran

Kas Bank

Kas Kecil

Tanah

Aktiva Tetap

Bangunan

Peralatan Persediaan Jurnal Umum Jurnal Proses

Jurnal Penyesuaian

Kas Kelurahan Aktiva Lancar

Buku Besar Umum

Neraca Saldo

Keluaran

Kas Bank Kas Kecil Persediaan

Belum Disesuaikan Setelah Disesuaikan

Tanah Aktiva Tetap


Peralatan Bangunan Belanja Pegawai

PPTK

Data

Data Mitra

Transaksi

NPD

Honorarium Panitia Belanja Listrik

Masukan Belanja Operasional

Belanja Telepon Belanja Air

Kelurahan

Belanja Makan & Minum Rapat

Pembuat Program

Belanja Perawatan Kendaraan Bermotor

PROFIL

Ms.Word

Belanja Jasa Service

BANTUAN Ganti Kata Kunci

KELUAR

Gambar 4.44 Struktur Menu Program 153

4.3.1 Struktur Menu Pada Bagian Satker Perancangan struktur menu pada bagian Satker dapat dilihat pada gambar di bawah ini:

Masukan

Data

Keluaran

LPJ

Rancangan RKA-SKPD

SATKER

Gambar 4.45 Struktur Menu Program Pada Bagian Satker

4.3.2 Struktur Menu Pada Bagian Sekretaris Perancangan struktur menu pada bagian Sekretaris dapat dilihat pada gambar di bawah ini:

SEKRETARIS

Data

RKA-SKPD

Dokumen

SPM

Masukan

Keluaran

SPPJ

Gambar 4.46 Struktur Menu Program Pada Bagian Sekretaris

154

4.3.3 Struktur Menu Pada Bagian Lurah Perancangan struktur menu pada bagian Lurah dapat dilihat pada gambar di bawah ini:

LURAH

Masukan

Data

Data Pegawai SUPB

Dokumen SUPSP

Transaksi Keluaran

BI

Laporan BI

Gambar 4.47 Struktur Menu Program Pada Bagian Lurah

4.3.4 Struktur Menu Pada Bagian PPTK Perancangan struktur menu pada bagian PPTK dapat dilihat pada gambar di bawah ini:

PPTK

Data

Data Mitra

Transaksi

NPD

Masukan

Gambar 4.48 Struktur Menu Program Pada Bagian PPTK

155

4.3.5 Struktur Menu Pada Bagian Bendahara Perancangan struktur menu pada bagian Bendahara dapat dilihat pada gambar di bawah ini: Data

Kode Rekening DPA

SPP

Pemasukan

Dokumen BENDAHARA

SPJ

Masukan

Pengeluaran

Pemasukan Transaksi

Kas Kelurahan

Pengeluaran

Kas Bank

Kas Kecil

Tanah

Aktiva Tetap

Bangunan

Peralatan Persediaan Jurnal Umum Jurnal Proses

Jurnal Penyesuaian

Kas Kelurahan Aktiva Lancar

Buku Besar Umum

Neraca Saldo

Keluaran


Kas Bank Kas Kecil Persediaan

Belum Disesuaikan Setelah Disesuaikan

Tanah Aktiva Tetap

Peralatan Bangunan Belanja Pegawai Honorarium Panitia Belanja Listrik

Belanja Operasional

Belanja Telepon Belanja Air Belanja Makan & Minum Rapat Belanja Perawatan Kendaraan Bermotor Belanja Jasa Service

Gambar 4.49 Struktur Menu Program Pada Bagian Bendahara

156

4.4 Perancangan Antar Muka dan Laporan 4.4.1 Perancangan Antar Muka Perancangan antar muka pada sistem informasi akuntansi laporan keuangan neraca adalah sebagai berikut: Masuk Bagian

Profil

Bantuan

Keluar

SELAMAT DATANG DI APLIKASI KELURAHAN CIBEUREUM

Logo Kelurahan Cibeureum

Jl. Raya Cibeureum No.125 Cimahi Telp. (022) 6002605 Bergerak Dalam Bidang Pelayanan

“Perancangan Sistem Informasi Akuntansi Laporan Keuangan Neraca”

Gambar Kelurahan

Gambar 4.50 Perancangan Antar Muka Pada Menu Utama


KELURAHAN CIBEUREUM Jl.Raya Cibeureum No.125 Cimahi Telp (022) 6002605 Bergerak Dalam Bidang Pelayanan

Masuk Bagian

Bagian:

MASUK

Kata Kunci:

KELUAR

RAHASIAKAN KATA KUNCI ANDA !!!!!

Gambar 4.51 Perancangan Antar Muka Pada Menu Masuk Bagian 157



Visi Kelurahan Cibeureum

Misi Kelurahan Cibeureum

KELUAR

Gambar 4.52 Perancangan Antar Muka Pada Profil Kelurahan

^^^^^PROFIL PEMBUAT^^^^^

Foto Pembuat

Nama : Mely Sundary Yanti Tempat, Tanggal Lahir : Bandung, 17 Desember 1989 Alamat : Jl. Kebon Kopi Gg. Nursalim No. 242 RT 03/RW 05 Cimahi (40535) No Hp/Email : 085722694187/[email protected]

FAKULTAS TEKNIK DAN ILMU KOMPUTER JURUSAN KOMPUTERISASI AKUNTANSI UNIVERSITAS KOMPUTER INDONESIA (UNIKOM) KELUAR

Gambar 4.53 Perancangan Antar Muka Pada Profil Pembuat

158



Ganti Kata Kunci !!! Bagian

:

NIP

:

Nama Pegawai : Kata Kunci

:

CARI

UBAH

SIMPAN

KELUAR

LV

Gambar 4.54 Perancangan Antar Muka Pada Ganti Kata Kunci

Masukan

Keluaran


Keluar


MENU_SATKER (Satuan Kerja)

Gambar 4.55 Perancangan Antar Muka Pada Menu Satker

159

Masukan

Keluaran

Keluar



MENU_SEKRETARIS

Gambar 4.56 Perancangan Antar Muka Pada Menu Sekretaris

Masukan

Keluaran


Keluar


MENU_LURAH

Gambar 4.57 Perancangan Antar Muka Pada Menu Lurah

160

Masukan

Keluaran

Keluar



MENU_BENDAHARA

Gambar 4.58 Perancangan Antar Muka Pada Menu Bendahara

Masukan

Keluaran


Keluar


MENU_PPTK (Pejabat Pelaksana Teknis Kegiatan)

Gambar 4.59 Perancangan Antar Muka Pada Menu PPTK

161



Masukan No RKA

Keluar

Cetak

Gambar 4.60 Perancangan Antar Muka Pada View RKA-SKPD



Data RKA-SKPD (Rencana Kegiatan Anggaran-Satuan Kerja Perangkat Daerah) No. RKA

:

Pembuat

:

Nama Program

Tanggal

:

:

Nama Kegiatan : Jumlah Anggaran :

Tambah Kegiatan

LV

Simpan

Keluar

Gambar 4.61 Perancangan Antar Muka Pada RKA-SKPD

162



DPA-SKPD (Dokumen Pelaksanaan Anggaran-Satuan Kerja Perangkat Daerah) Tanggal

:

No. DPA

:

Kode Rekening

Jenis Formulir

:

:

Jenis Kegiatan

:

Volume

:

Jumlah Anggaran

:

Satuan

:

Total Anggaran

:

Tambah Kegiatan

LV

Simpan

Keluar

Gambar 4.62 Perancangan Antar Muka Pada DPA



SPP-Surat Pengantar

SPP-Rincian Rencana Pengguna

SPP-Ringkasan DPA

SPP-Ringkasan Belanja

SPP-SP (Surat Permintaan Pembayaran-Surat Pengantar) Jenis SPP

:

No SPD

No SPP

:

Jumlah Sisa Dana SPD :

Tanggal

:

Untuk Keperluan Bulan

:

:

Jumlah Sisa Dana SPD :

Tahun Anggaran :

Tambah

Simpan

Cetak

Keluar

LV

Gambar 4.63 Perancangan Antar Muka Pada SPP-Surat Pengantar

163



SPP-Surat Pengantar


SPP-Ringkasan DPA


SPP-Rincian Rencana Pengguna Jenis SPP

:

Bulan

:

Kode Rekening : Uraian

:

Jumlah

:

Tambah

Simpan

Cetak

Keluar

LV

Gambar 4.64 Perancangan Antar Muka Pada SPP-Rincian Rencana Pengguna



SPP-Surat Pengantar


SPP-Ringkasan DPA


SPP-Ringkasan DPA Jumlah Dana DPA SKPD

:

No SPD

:

Tanggal SPD Jumlah

: :

Tambah

Simpan

Keluar

LV

Gambar 4.65 Perancangan Antar Muka Pada SPP-Ringkasan DPA

164



SPP-Surat Pengantar


SPP-Ringkasan DPA


SPP-Ringkasan Belanja Jenis

:

Belanja LS Pembiayaan Gaji dan Tunjangan :

Belanja UP/GU

:

Belanja LS Pengadaan Barang dan Jasa

Belanja TU

:

Tambah

Simpan

Cetak

:

Keluar

LV

Gambar 4.66 Perancangan Antar Muka Pada SPP-Ringkasan Belanja



Dokumen SPM (Surat Perintah Membayar) No SPP

:

No SPM

:

Tanggal SPM

:

Untuk Keperluan

:

Jumlah yang diminta

:

Input Detail Rekening

Jumlah Potongan

:

Input Detail Potongan

Jumlah SPM yg dibayar

:

LV

Tambah

Simpan

Hapus

Cetak

Keluar

Gambar 4.67 Perancangan Antar Muka Pada SPM

165



Kode Aktiva Tetap :

Keterangan

:

Nama Aktiva Tetap :

Harga Perolehan

:

Luas

:

Tahun Perolehan

:

Letak

:

M2

Aktiva Tetap (Tanah) LV

Tambah

Ubah

Simpan

Hapus

Cetak

Keluar

Gambar 4.68 Perancangan Antar Muka Pada Aktiva Tetap (Tanah)



Kode Aktiva Tetap : Nama Aktiva Tetap :

:

Biaya Penyerta

:

Luas

:

Tahun Perolehan

:

Nilia Sisa

:

Letak

:

Penyusutan/bulan

:

Keterangan

M2

Harga Perolehan

Masa Manfaat

:

Tahun

:

Aktiva Tetap (Bangunan) LV

Tambah

Ubah

Simpan

Hapus

Cetak

Keluar

Gambar 4.69 Perancangan Antar Muka Pada Aktiva Tetap (Bangunan)

166



Kode Peralatan

:

Harga Perolehan

:

Nama Peralatan

:

Biaya Penyerta

:

Jumlah

:

Tahun Perolehan : Keterangan

:

Masa Manfaat

:

Nilai Sisa

:

Peny/Bulan

:

Tahun

Aktiva Tetap (Peralatan) LV

Tambah

Ubah

Simpan

Hapus

Cetak

Keluar

Gambar 4.70 Perancangan Antar Muka Pada Aktiva Tetap (Peralatan)



Kode Aktiva Lancar :

Keterangan

:

Nama Aktiva Lancar :

Harga Perolehan

:

Jumlah

:

Penyusutan/Bulan

:

Tahun Perolehan

:

Nilai Barang

:

Aktiva Lancar (Persediaan) LV

Tambah

Ubah

Simpan

Hapus

Cetak

Keluar

Gambar 4.71 Perancangan Antar Muka Pada Aktiva Lancar (Persediaan)

167



Transaksi BI (Buku Inventaris)

Kode Barang

:

Jenis/Nama Barang : Luas

:

Tahun Perolehan

:

Letak Barang

:

m2

Keterangan

:

Harga Perolehan

:

Status

:

Penggunaan

:

BI (Buku Inventaris)

Tambah

Edit

Simpan

Hapus

Cetak

Keluar

Gambar 4.72 Perancangan Antar Muka Pada Buku Inventaris



Kode Rekening Kode Rekening

:

Nama Rekening

:

Daftar Rekening LV

Tambah

Ubah

Simpan

Hapus

Keluar

Gambar 4.73 Perancangan Antar Muka Pada Kode Rekening

168



Data Pegawai NIP

:

Nama Pegawai : Bagian

:

Tambah

Ubah

Simpan

Hapus

Cetak

LV

Keluar

Gambar 4.74 Perancangan Antar Muka Pada Data Pegawai



Data Mitra Kode

:

Nama

:

Alamat

:

Telepon :

Tambah

Ubah

Simpan

Hapus

Cetak

LV

Keluar

Gambar 4.75 Perancangan Antar Muka Pada Data Mitra

169



NPD (Nota Pencairan Dana) No NPD

:

No DPA

No

:

Tahun Anggaran DPA :

Tanggal

:

Jumlah Yang Diminta :

Tahun

:

Jumlah Yang Dibayar :

Program

:

Kegiatan

:

Tambah

Simpan

Hapus

:

Cetak

Keluar

LV

Gambar 4.76 Perancangan Antar Muka Pada NPD



Kas di Kelurahan Tanggal

:

Status

:

Rekening

:

Uraian

:

Jumlah

:

Nama Dokumen :

LV

Tambah

Simpan

Keluar

Gambar 4.77 Perancangan Antar Muka Pada Kas di Kelurahan 170



Kas Bank Tanggal

:

Status

:

Rekening

:

Uraian

:

Jumlah

:

LV

Tambah

Simpan

Keluar

Gambar 4.78 Perancangan Antar Muka Pada Kas Bank



Kas Kecil Tanggal

:

Status

:

Rekening

:

Uraian

:

Jumlah

:

LV

Tambah

Simpan

Keluar

Gambar 4.79 Perancangan Antar Muka Pada Kas Kecil

171



SPJ-PM (Surat Pertanggung Jawaban-Pemasukan) Tanggal

:

Rekening

:

Uraian

:

Jumlah

:

Keterangan

:

LV

Tambah

Keluar

Simpan

Gambar 4.80 Perancangan Antar Muka Pada SPJ-PM



SPJ-PK (Surat Pertanggung Jawaban-Pengeluaran) Tanggal

:

Rekening

:

Uraian

:

Jumlah

:

Keterangan

:

LV

Tambah

Simpan

Keluar

Gambar 4.81 Perancangan Antar Muka Pada SPJ-PK

172



SPPJ (Surat Pengesahan Pertanggung Jawaban)

Bulan

:

Tahun

:

Tahun

Keluar

Cetak

Gambar 4.82 Perancangan Antar Muka Pada SPPJ



Jurnal Umum Bulan :

Tahun

Tahun :

Posting

Cetak

Keluar

Gambar 4.83 Perancangan Antar Muka Pada Jurnal Umum

173



Jurnal Penyesuaian Bulan :

Tahun

Tahun :

Cetak

Keluar

Gambar 4.84 Perancangan Antar Muka Pada Jurnal Penyesuaian



Buku Besar Umum Nama Rekening : Bulan

:

Tahun

:

Cetak

Tahun

Keluar

Gambar 4.85 Perancangan Antar Muka Pada Buku Besar Umum

174



Neraca Saldo Bulan :

Tahun

Tahun :

Cetak

Keluar

Gambar 4.86 Perancangan Antar Muka Pada Neraca Saldo



Laporan Keuangan Neraca Bulan

:

Tahun

Tahun :

Cetak

Keluar

Gambar 4.87 Perancangan Antar Muka Pada Laporan Keuangan Neraca

175

4.4.2 Perancangan Laporan Perancangan laporan keuangan neraca dalam sistem informasi akuntansi laporan keuangan neraca adalah sebagai berikut:



Laporan Keuangan Neraca 1 Januari-31 Desember 2012 Uraian AKTIVA lancar: Kas di Kas Kelurahan Kas Bank Kas Kecil Piutang Karyawan Perlengkapan Jumlah Aktiva Lancar AKTIVA TETAP: Tanah Peralatan Akumulasi Peralatan Bangunan Akumulasi Bangunan Jumlah Aktiva Tetap JUMLAH AKTIVA KEWAJIBAN KEWAJIBAN JANGKA PENDEK Hutang Honorarium Panitia Jumlah Kewajiban Jangka Pendek EKUITAS EKUITAS DANA INVESTASI Diinvestasikan Dalam Aktiva Tetap Jumlah Ekuitas Dana Investasi JUMLAH KEWAJIBAN dan EKUITAS DANA

20x1 Rp. xxx Rp. xxx Rp. xxx Rp. xxx Rp. xxx Rp. xxx Rp. xxx Rp. xxx Rp. xxx Rp. xxx Rp. xxx Rp. xxx Rp. xxx Rp. xxx Rp. xxx Rp. xxx Rp. xxx Rp. xxx Rp. xxx Rp. xxx Rp. xxx Rp. xxx Rp. Xxx Rp. xxx

20x1 Rp. xxx Rp. xxx Rp. xxx Rp. xxx Rp. xxx Rp. xxx Rp. xxx Rp. xxx Rp. xxx Rp. xxx Rp. xxx Rp. xxx Rp. xxx Rp. xxx Rp. xxx Rp. xxx Rp. xxx Rp. xxx Rp. xxx Rp. xxx Rp. xxx Rp. xxx Rp. Xxx Rp. xxx

Gambar 4.88 Perancangan Laporan Keuangan Neraca

176

4.5 Tampilan dan Kode Program 4.5.1 Tampilan Menu Utama Tampilan menu program perancangan sistem informasi akuntansi laporan keuangan neraca dapat dilihat dari gambar berikut ini:

Gambar 4.89 Tampilan Menu Utama

Tabel 4.3 Listing Program Menu Utama Listing Program Private Sub Form_Load() Picture1.Width = (frmMenuUtama.Width - 200) Picture1.Height = (frmMenuUtama.Height - 200) Image1.Width = (Picture1.Width - 200) Image1.Height = (Picture1.Height - 600) End Sub

Keterangan Perintah pertama untuk masuk menu utama.

Private Sub Form_Resize() Picture1.Width = (frmMenuUtama.Width - 200) Picture1.Height = (frmMenuUtama.Height - 200) Image1.Width = (Picture1.Width - 200) Image1.Height = (Picture1.Height - 600) End Sub Private Sub mnexit_Click() ps = MsgBox("Anda yakin mau keluar dari program?", vbYesNo + vbQuestion, "Konfirmasi Keluar") If ps = vbYes Then End End If End Sub

177

Tabel 4.4 Listing Program Menu Utama Lanjutan 1 Listing Program Private Sub gkk_Click() frmGantiKataKunci.Show vbModal End Sub Private Sub klr_Click() End End Sub

Keterangan Perintah pertama untuk masuk menu utama.

Private Sub mnfile_Click() Unload Me frmLogin.Show vbModal End Sub Private Sub mnkelurahan_Click() frmKelurahan.Show vbModal End Sub Private Sub mnprogrammer_Click() frmProgrammer.Show vbModal End Sub Private Sub msw_Click() Call ShellExecute(Me.hWnd, "Open", "bantuan.doc", "", App.Path & "/report/", W_SHOWNORMAL) End Sub Private Sub Timer1_Timer() Label1.ForeColor = QBColor(Rnd * 15) Label1.Caption = (Label1.Caption) Label1.Caption = Right(Label1.Caption, Len(Label1.Caption) - 1) + Left(Label1.Caption, 1) End Sub Private Sub Timer2_Timer() XPFrame1.ForeColor = QBColor(Rnd * 15) XPFrame1.Caption = (XPFrame1.Caption) XPFrame1.Caption = Right(XPFrame1.Caption, Len(XPFrame1.Caption) - 1) + Left(XPFrame1.Caption, 1) End Sub

178

Gambar 4.90 Tampilan Masuk Bagian

Tabel 4.5 Listing Program Masuk Bagian Listing Program Private Sub btn_keluar_Click() Unload Me End Sub Private Sub btn_masuk_Click() Dim i As Integer, panbar(20000) As String With rs_gantikatakunci .MoveFirst .Find "hak_akses='" & Combo1.Text & "'", , adSearchForward If Not .EOF Then If .Fields(1).Value = Text1.Text Then If .Fields(0).Value = "Lurah" Then Unload Me frmAdmin.Show vbModal ElseIf .Fields(0).Value = "PPTK" Then Unload Me frmPPTK.Show vbModal ElseIf .Fields(0).Value = "Sekretaris" Then Unload Me frmSekretaris.Show vbModal ElseIf .Fields(0).Value = "Satker" Then Unload Me frmSatker.Show vbModal ElseIf .Fields(0).Value = "Bendahara" Then Unload Me frmBendahara.Show vbModal End If Else MsgBox "Kata Kunci Salah!!!" End If Else MsgBox "Bagian Tidak Ada" End If

Keterangan Perintah pemilihan pengguna aplikasi berdasarkan bagian.

179

Tabel 4.6 Listing Program Masuk Bagian Lanjutan 1 Listing Program End With Exit Sub End Sub Private Sub Form_Load() Text1.Text = "" 'Call isicombo(Combo1, "select * from Table_user", rs_gantikatakunci, 0) Combo1.Text = "" st = "select * from Table_user" If rs_gantikatakunci.State = 1 Then rs_gantikatakunci.Close End If rs_gantikatakunci.Open st, con, adOpenDynamic, adLockOptimistic

Keterangan Perintah pemilihan pengguna aplikasi berdasarkan bagian.

End Sub Private Sub Text1_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then btn_masuk.SetFocus End If End Sub Private Sub Timer1_Timer() 'jika left ada pada posisi kurang dari (minus) 'lebarnya label,dikembalikan ke posisi kanan If Label5.Left < (0 - Label1.Width) Then 'dikembalikan ke posisi ujung kanan

Gambar 4.91 Tampilan Profil Kelurahan

180

Gambar 4.92 Tampilan Profil Pembuat Aplikasi

Gambar 4.93 Tampilan Ganti Kata Kunci

Tabel 4.7 Listing Program Ganti Kata Kunci Listing Program Sub kosong() Text1.Text = "" Text2.Text = "" strcari = "" pil = "" End Sub

Keterangan Perintah untuk menambah atau mengubah kata kunci.

Sub aktif() Text1.Locked = False Text2.Locked = False btn_ubah.Enabled = False btn_simpan.Enabled = True End Sub

181

Tabel 4.8 Listing Program Ganti Kata Kunci Lanjutan 1 Listing Program Sub nonaktif() Text1.Locked = True Text2.Locked = True btn_ubah.Enabled = True btn_simpan.Enabled = False End Sub


Sub hitung_jml() With rs_tampil .MoveFirst While Not .EOF jml = jml + 1 .MoveNext Wend End With End Sub Sub isilv() jml = 0 On Error Resume Next LV.ColumnHeaders.Clear LV.ListItems.Clear Call hitung_jml With LV .View = lvwReport .FullRowSelect = True .ColumnHeaders.Add , , "NIP", 2000 .ColumnHeaders.Add , , "NAMA PEGAWAI", 3000 .ColumnHeaders.Add , , "BAGIAN", 3000 rs_tampil.MoveFirst For i = 1 To jml .ListItems.Add i, , rs_tampil.Fields(0) For j = 1 To 3 .ListItems(i).ListSubItems.Add , , rs_tampil.Fields(1) .ListItems(i).ListSubItems.Add , , rs_tampil.Fields(2) Next rs_tampil.MoveNext Next End With End Sub Sub preview() With rs_pegawai Text1.Text = .Fields(0).Value Text2.Text = .Fields(1).Value Combo1.Text = .Fields(2).Value End With End Sub

182

Tabel 4.9 Listing Program Ganti Kata Kunci Lanjutan 2 Listing Program Private Sub btn_cari_Click() With rs_pegawai If Not .BOF Then .MoveFirst .Find "Bagian='" & Combo1.Text & "'", , adSearchForward If Not .EOF Then preview End If End If End With End Sub


Private Sub btn_keluar_Click() Unload Me End Sub Private Sub btn_simpan_Click() If Text3.Text = "" Then MsgBox "Password belum diisi" Exit Sub End If With rs_pegawai .MoveFirst .Find "bagian='" & Combo1.Text & "'", , adSearchForward .Fields(0).Value = Text1.Text .Fields(1).Value = Text2.Text .Update End With With rs_gantikatakunci .MoveFirst .Find "hak_akses='" & Combo1.Text & "'", , adSearchForward .Fields(1).Value = Text3.Text .Update Call tampil Call nonaktif Call kosong End With End Sub Private Sub btn_ubah_Click() If Text1.Text = "" Then MsgBox "Pilih dulu data yang akan anda ubah!!!" Exit Sub End If pil = "ubah" Call aktif Text2.SetFocus End Sub

183

Tabel 4.10 Listing Program Ganti Kata Kunci Lanjutan 3 Listing Program Private Sub Form_Load() Move (Screen.Width - Width) / 2, (Screen.Height - Height) / 2 st = "select * from Table_User" If rs_gantikatakunci.State = 1 Then rs_gantikatakunci.Close End If rs_gantikatakunci.Open st, con, adOpenDynamic, adLockOptimistic


st = "select * from Table_Pegawai" If rs_pegawai.State = 1 Then rs_pegawai.Close End If rs_pegawai.Open st, con, adOpenDynamic, adLockOptimistic Call tampil Call kosong Call nonaktif End Sub Sub tampil() st = "select * from Table_pegawai" If rs_tampil.State = 1 Then rs_tampil.Close End If rs_tampil.Open st, con, adOpenDynamic, adLockOptimistic Call isilv End Sub

184

4.5.2 Tampilan Bagian Satker (Satuan Kerja)

Gambar 4.94 Tampilan Masukan Pada Bagian Satker

Gambar 4.95 Tampilan View RKA-SKPD

Tabel 4.11 Listing Program View RKA-SKPD Listing Program Sub hitung_jml() With rs_tampil .MoveFirst While Not .EOF jml = jml + 1 .MoveNext Wend End With End Sub

Keterangan Perintah simpan nomor RKA dan tanggal RKA.

Sub isilv() jml = 0 On Error Resume Next

185

Tabel 4.12 Listing View RKA-SKPD Lanjutan 1 Listing Program LV.ColumnHeaders.Clear LV.ListItems.Clear Call hitung_jml


With LV .View = lvwReport .FullRowSelect = True .ColumnHeaders.Add , , "NOMOR RKA", 2500 .ColumnHeaders.Add , , "TANGGAL RKA", 3000 rs_tampil.MoveFirst For i = 1 To jml .ListItems.Add i, , rs_tampil.Fields(0) For j = 1 To 3 .ListItems(i).ListSubItems.Add , , rs_tampil.Fields(1) Next rs_tampil.MoveNext Next End With End Sub Sub tampil() If rs_tampil.State = 1 Then rs_tampil.Close End If rs_tampil.Open st, con, adOpenDynamic, adLockOptimistic Call isilv End Sub Private Sub btn_cetak_Click() If strcetak = "" Then MsgBox "Pilih dulu data yang akan anda cetak!!!" Exit Sub End If 'On Error Resume Next CR.ReportFileName = App.Path & "\report\Report_RKA.rpt" ' CR.ReportFileName = App.Path & "\report\Report_RKA.rpt" If Text1.Text = "" Then CR.SelectionFormula = "" Else CR.SelectionFormula = "{Table_Detail_RKA.No_RKA}='" & strcetak & "'" End If CR.RetrieveDataFiles CR.WindowState = crptMaximized CR.Action = 1 End Sub Private Sub btn_keluar_Click()

186

Tabel 4.13 Listing View RKA-SKPD Lanjutan 2 Listing Program Unload Me End Sub Private Sub btn_tambah_Click() frmRKA.aktif frmRKA.kosong pil = "tambah"


Gambar 4.96 Tampilan RKA-SKPD Tabel 4.14 Listing Program RKA-SKPD Listing Program Option Explicit Sub kosong() Text1.Text = "" DTPicker1.Value = Date Text3.Text = "" Call isicombo(Text3, "select * from Table_Program", rs_program, 1) Call cari_kode Call isicombo(Text4, "select * from Table_Kegiatan where kode_program='" & Text3.Text & "'", rs_kegiatan, 1) Text5.Text = "0" strcari = "" pil = "" End Sub

Keterangan Perintah untuk menyimpan, merubah program dan kegiatan.

Sub aktif() Text1.Locked = False Text3.Locked = False Text4.Locked = False Text5.Locked = False btn_simpan.Enabled = True btn_add.Enabled = True End Sub Sub nonaktif() Text1.Locked = True

187

Tabel 4.15 Listing Program RKA-SKPD Lanjutan 1 Listing Program Text3.Locked = True Text4.Locked = True Text5.Locked = True btn_simpan.Enabled = False btn_add.Enabled = False End Sub


Sub hitung_jml() With rs_tampil .MoveFirst While Not .EOF jml = jml + 1 .MoveNext Wend End With End Sub Sub isilv() jml = 0 On Error Resume Next LV.ColumnHeaders.Clear LV.ListItems.Clear Call hitung_jml With LV .View = lvwReport .FullRowSelect = True .ColumnHeaders.Add , , "Program", 2500 .ColumnHeaders.Add , , "Kegiatan", 3000 .ColumnHeaders.Add , , "Anggaran", 2000 rs_tampil.MoveFirst For i = 1 To jml .ListItems.Add i, , rs_tampil.Fields(0) For j = 1 To 3 .ListItems(i).ListSubItems.Add , , rs_tampil.Fields(1) .ListItems(i).ListSubItems.Add , , rs_tampil.Fields(2) Next rs_tampil.MoveNext Next End With End Sub Sub preview() With rs_rka Text1.Text = .Fields(0).Value DTPicker1.Value = .Fields(1).Value End With End Sub

188

Tabel 4.16 Listing Program RKA-SKPD Lanjutan 2 Listing Program Sub simpan() With rs_rka .Fields(0).Value = Text1.Text .Fields(1).Value = DTPicker1.Value .Fields(2).Value = Text2.Text .Update Call tampil Call nonaktif Call kosong frmViewRKA.tampil Unload Me End With End Sub Private Sub btn_add_Click() If Text3.Text = "" Then MsgBox "Nama Program Harus diisi!!!" Text3.SetFocus Exit Sub End If If Text4.Text = "" Then MsgBox "Nama Kegiatan Harus diisi!!!" Text4.SetFocus Exit Sub End If If Val(Text5.Text) = 0 Then MsgBox "Jumlah Anggaran Harus diisi!!!" Text5.SetFocus Exit Sub End If With rs_detailrka .AddNew .Fields(0).Value = Text1.Text .Fields(1).Value = Text3.Text .Fields(2).Value = Text4.Text .Fields(3).Value = Text5.Text .Update End With Call tampil Text3.Text = "" Text4.Text = "" Text5.Text = "0" End Sub


Private Sub btn_keluar_Click() Call kosong Unload Me End Sub Private Sub btn_simpan_Click() If Text1.Text = "" Then MsgBox "Nomor RKA Harus diisi!!!" Text1.SetFocus Exit Sub End If If (pil = "tambah") Then

189

Tabel 4.17 Listing Program RKA-SKPD Lanjutan 3 Listing Program rs_rka.AddNew End If Call simpan End Sub


Sub tampil() st = "select program, kegiatan, anggaran from Table_Detail_RKA where no_rka='" & Text1.Text & "'" If rs_tampil.State = 1 Then rs_tampil.Close End If rs_tampil.Open st, con, adOpenDynamic, adLockOptimistic Call isilv End Sub Private Sub Form_Load() Move (Screen.Width - Width) / 2, (Screen.Height - Height) / 2 st = "select * from Table_RKA" If rs_rka.State = 1 Then rs_rka.Close End If rs_rka.Open st, con, adOpenDynamic, adLockOptimistic st = "select * from Table_Detail_RKA" If rs_detailrka.State = 1 Then rs_detailrka.Close End If rs_detailrka.Open st, con, adOpenDynamic, adLockOptimistic Call tampil Call kosong Call nonaktif End Sub Private Sub Form_Unload(Cancel As Integer) strcari = "" pil = "" End Sub Private Sub LV_ItemClick(ByVal Item As MSComctlLib.ListItem) strcari = Item.Text Call pencarian End Sub Private Sub Text1_KeyPress(KeyAscii As Integer) If KeyAscii = (13) Then Text3.SetFocus End If

190

Tabel 4.18 Listing Program RKA-SKPD Lanjutan 4 Listing Program With rs_program .MoveFirst .Find "program='" & Text3.Text & "'", , adSearchForward strkode = .Fields(0).Value End With End Sub


Private Sub Text3_Click() Call cari_kode Call isicombo(Text4, "select * from Table_Kegiatan where kode_program='" & strkode & "'", rs_kegiatan, 1) End Sub Private Sub Text3_KeyPress(KeyAscii As Integer) If KeyAscii = (13) Then Call cari_kode Call isicombo(Text4, "select * from Table_Kegiatan where kode_program='" & strkode & "'", rs_kegiatan, 1) End If End Sub Private Sub Text4_KeyPress(KeyAscii As Integer) If KeyAscii = (13) Then Text5.SetFocus End If End Sub Private Sub Text5_KeyPress(KeyAscii As Integer) If KeyAscii = (13) Then btn_simpan.SetFocus End If End Sub

191

4.5.3 Tampilan Bagian Sekretaris

Gambar 4.97 Tampilan Masukan Pada Bagian Sekretaris

Gambar 4.98 Tampilan RKA-SKPD

Gambar 4.99 Tampilan Cetak RKA-SKPD 192

Gambar 4.100 Tampilan SPM

Gambar 4.101 Tampilan Cetak SPM

193

Tabel 4.19 Listing Program SPM Listing Program Option Explicit Sub ceknom2() On Error Resume Next With rs_jurnal .MoveLast norut = 0 While Not .BOF st2 = Left(.Fields(2).Value, 2) If streff = st2 Then norut = Right(.Fields(2).Value, 2) Exit Sub End If .MovePrevious Wend .MoveFirst End With End Sub

Keterangan Perintah untuk proses SPM.

Sub ceknom() With rs_jurnal .MoveLast nom = 0 While Not .BOF st2 = Left(.Fields(0).Value, 6) If st1 = st2 Then nom = Right(.Fields(0).Value, 3) Exit Sub End If .MovePrevious Wend .MoveFirst End With End Sub Sub autonom() thn = Year(Now) bln = CStr(Month(Now)) If Month(Now) < 9 Then bln = "0" + CStr(Month(Now)) End If st1 = CStr(thn) + bln With rs_jurnal If .BOF Then strkode = st1 + "001" Else Call ceknom If nom < 9 Then strkode = st1 + "00" + CStr(nom + 1) ElseIf nom < 99 Then strkode = st1 + "0" + CStr(nom + 1) ElseIf nom < 999 Then strkode = st1 + CStr(nom + 1) End If End If

194

Tabel 4.20 Listing Program SPM Lanjutan 1 Listing Program End With End Sub


Sub kosong() Text1.Text = "" Text2.Text = "" Text3.Text = "0" Text4.Text = "0" Text5.Text = "0" Call isicombo(Combo1, "select * from Table_SPP", rs_spp, 0) strcari = "" pil = "" End Sub Sub aktif() Text1.Locked = False Text2.Locked = False Combo1.Locked = False btn_tambah.Enabled = False btn_simpan.Enabled = True btn_hapus.Enabled = False End Sub Sub nonaktif() Text1.Locked = True Text2.Locked = True Combo1.Locked = True btn_tambah.Enabled = True btn_simpan.Enabled = False btn_hapus.Enabled = True End Sub Sub hitung_jml() With rs_tampil .MoveFirst While Not .EOF jml = jml + 1 .MoveNext Wend End With End Sub Sub isilv() jml = 0 On Error Resume Next LV.ColumnHeaders.Clear LV.ListItems.Clear Call hitung_jml With LV .View = lvwReport .FullRowSelect = True .ColumnHeaders.Add , , "NO SPM", 3500 .ColumnHeaders.Add , , "TANGGAL SPM", 2000

195

Tabel 4.21 Listing Program SPM Lanjutan 2 Listing Program .ColumnHeaders.Add , , "UNTUK KEPERLUAN", 4000 .ColumnHeaders.Add , , "NO SPP", 3000 rs_tampil.MoveFirst For i = 1 To jml .ListItems.Add i, , rs_tampil.Fields(0) For j = 1 To 3 .ListItems(i).ListSubItems.Add , , rs_tampil.Fields(1) .ListItems(i).ListSubItems.Add , , rs_tampil.Fields(2) .ListItems(i).ListSubItems.Add , , rs_tampil.Fields(3) Next rs_tampil.MoveNext Next End With End Sub


Sub preview() With rs_spm Text1.Text = .Fields(0).Value DTPicker1.Value = .Fields(1).Value Text2.Text = .Fields(2).Value Combo1.Text = .Fields(3).Value Text3.Text = .Fields(4).Value Text4.Text = .Fields(5).Value Text5.Text = .Fields(6).Value End With End Sub Sub simpan() With rs_spm .AddNew .Fields(0).Value .Fields(1).Value .Fields(2).Value .Fields(3).Value .Fields(4).Value .Fields(5).Value .Fields(6).Value .Update Call tampil Call nonaktif Call kosong End With End Sub

= = = = = = =

Text1.Text DTPicker1.Value Text2.Text Combo1.Text Text3.Text Text4.Text Text5.Text

Private Sub btn_cetak_Click() 'On Error Resume Next If (Mid(strcetak, 15, 2) = "LS") Then CR.ReportFileName = App.Path & "\report\Report_SPMLS.rpt" Else CR.ReportFileName = App.Path & "\report\Report_SPM.rpt"

196

Tabel 4.22 Listing Program SPM Lanjutan 3 Listing Program End If CR.SelectionFormula = "{Table_SPM.No_SPM}='" & strcetak & "'" CR.RetrieveDataFiles CR.WindowState = crptMaximized CR.Action = 1 End Sub


Private Sub btn_hapus_Click() If Text1.Text = "" Then MsgBox "Pilih dulu data yang akan anda hapus!!!" Exit Sub End If With rs_spm .MoveFirst .Find "no_spm='" & Text1.Text & "'", , adSearchForward If Not .EOF Then .Delete .MoveFirst Call kosong Call tampil End If End With End Sub Private Sub btn_keluar_Click() Call kosong Unload Me End Sub Private Sub btn_potongan_Click() If Text1.Text = "" Then MsgBox "Pilih dulu SPP" Exit Sub End If frmSPMPotongan.Text1.Text = Text1.Text frmSPMPotongan.Show vbModal End Sub Private Sub btn_rekening_Click() If Text1.Text = "" Then MsgBox "Pilih dulu SPP" Exit Sub End If totalminta = Val(Text3.Text) frmSPMRek.Text1.Text = Text1.Text frmSPMRek.Show vbModal End Sub Private Sub btn_simpan_Click() If Text2.Text = "" Then MsgBox "Untuk Keperluan!!!" Text2.SetFocus

197

Tabel 4.23 Listing Program SPM Lanjutan 4 Listing Program Exit Sub End If st = "select * from Table_SPM" If rs_spm.State = 1 Then rs_spm.Close End If rs_spm.Open st, con, adOpenDynamic, adLockOptimistic strcetak = Text1.Text Call simpan_jurnal Call simpan End Sub


Sub cari_rek() With rs_rekening If Not .BOF Then .MoveFirst .Find "Kode_Rekening='" & strek & "'", , adSearchForward If Not .EOF Then strUraian = .Fields(1).Value End If End If End With End Sub Sub simpan_jurnal() st = "select * from Table_SPM_REK where No_SPM='" & Text1.Text & "'" If rs_spmrek.State = 1 Then rs_spmrek.Close End If rs_spmrek.Open st, con, adOpenDynamic, adLockOptimistic Call autonom With rs_detjurnal .AddNew .Fields(0).Value = strkode .Fields(1).Value = "2.1.2.03.01.1" .Fields(2).Value = "(SP2D-LS) Gaji Pokok" .Fields(3).Value = Val(Text3.Text) .Fields(4).Value = 0 .Update End With With rs_detjurnal .AddNew .Fields(0).Value = strkode .Fields(1).Value = "4.1.01.1" .Fields(2).Value = "Kas Kelurahan" .Fields(3).Value = 0 .Fields(4).Value = Val(Text3.Text) .Update End With streff = "KM" Call cekreff

198

Tabel 4.24 Listing Program SPM Lanjutan 5 Listing Program With rs_jurnal .AddNew .Fields(0).Value = strkode .Fields(1).Value = Date .Fields(2).Value = streff .Update End With Call autonom With rs_detjurnal .AddNew .Fields(0).Value = strkode .Fields(1).Value = "4.1.01.1" .Fields(2).Value = "Kas Kelurahan" .Fields(3).Value = Val(Text4.Text) .Fields(4).Value = 0 .Update End With With rs_spmpotongan If Not .BOF Then .MoveFirst While Not .EOF rs_detjurnal.AddNew rs_detjurnal.Fields(0).Value = strkode rs_detjurnal.Fields(1).Value = .Fields(1).Value strek = .Fields(1).Value Call cari_rek rs_detjurnal.Fields(2).Value = strUraian rs_detjurnal.Fields(3).Value = 0 rs_detjurnal.Fields(4).Value = .Fields(2).Value rs_detjurnal.Update .MoveNext Wend End If End With streff = "KK" Call cekreff With rs_jurnal .AddNew .Fields(0).Value = strkode .Fields(1).Value = Date .Fields(2).Value = streff .Update End With End Sub


Sub cekreff() With rs_jurnal If .BOF Then streff = streff + "01" Else .MoveLast 'norut = Right(.Fields(3).Value, 2) ceknom2

199

Tabel 4.25 Listing Program SPM Lanjutan 6 Listing Program If norut < 9 Then streff = streff + "0" + CStr(norut + 1) Else streff = streff + CStr(norut + 1) End If End If End With End Sub


Private Sub btn_tambah_Click() aktif kosong pil = "tambah" Text1.SetFocus End Sub Private Sub Combo1_Click() st1 = Left(Combo1.Text, 5) st2 = Right(Combo1.Text, 18) Text1.Text = st1 + "SPM" + st2 End Sub Private Sub Form_Activate() Text1.SetFocus End Sub Sub tampil() st = "select * from Table_SPM" If rs_tampil.State = 1 Then rs_tampil.Close End If rs_tampil.Open st, con, adOpenDynamic, adLockOptimistic Call isilv End Sub Private Sub Form_Load() Move (Screen.Width - Width) / 2, (Screen.Height Height) / 2 st = "select * from Table_SPM" If rs_spm.State = 1 Then rs_spm.Close End If rs_spm.Open st, con, adOpenDynamic, adLockOptimistic st = "select * from Table_Jurnal" If rs_jurnal.State = 1 Then rs_jurnal.Close End If rs_jurnal.Open st, con, adOpenDynamic, adLockOptimistic st = "select * from Table_Det_Jurnal"

200

Tabel 4.26 Listing Program SPM Lanjutan 7 Listing Program If rs_detjurnal.State = 1 Then rs_detjurnal.Close End If rs_detjurnal.Open st, con, adOpenDynamic, adLockOptimistic


st = "select * from Table_Rekening" If rs_rekening.State = 1 Then rs_rekening.Close End If rs_rekening.Open st, con, adOpenDynamic, adLockOptimistic Call tampil Call kosong Call nonaktif If jml <= 0 Then btn_hapus.Enabled = False End If End Sub Private Sub Form_Unload(Cancel As Integer) strcari = "" pil = "" End Sub Private Sub btn_batal_Click() Call kosong Call nonaktif End Sub Private Sub LV_ItemClick(ByVal Item As MSComctlLib.ListItem) strcari = Item.Text Call pencarian strcetak = Text1.Text End Sub Private Sub Text2_KeyPress(KeyAscii As Integer) If KeyAscii = (13) Then btn_simpan.SetFocus End If End Sub Sub pencarian() With rs_spm If Not .BOF Then .MoveFirst .Find "no_spm='" & strcari & "'", , adSearchForward If Not .EOF Then Call preview End If End If

201

Tabel 4.27 Listing Program SPM Lanjutan 8 Listing Program End With End Sub


Private Sub Text3_Change() Text5.Text = Val(Text3.Text) - Val(Text4.Text) End Sub Private Sub Text4_Change() Text5.Text = Val(Text3.Text) - Val(Text4.Text) End Sub

Gambar 4.102 Tampilan SPPJ

Gambar 4.103 Tampilan Cetak SPPJ

202

Tabel 4.28 Listing Program SPPJ Listing Program Private Sub btn_cetak_Click() With CR .ReportFileName = App.Path & "\report\Report_SPPJ.rpt" If Option1.Value = True Then statusjurnal = "Bulan " + CStr(Combo1.Text) + " " + CStr(Text1.Text) blan = Combo1.ListIndex + 1 .SelectionFormula = "tonumber(MONTH({Table_SPJ.Tanggal}))=" & blan & " and tonumber(YEAR({Table_SPJ.Tanggal}))=" & Val(Text2.Text) ElseIf Option2.Value = True Then bln1 = Combo2.ListIndex + 1 bln2 = bln1 + 2 statusjurnal = "Bulan " + CStr(Combo2.Text) + " " + CStr(Text3.Text) .SelectionFormula = "tonumber(MONTH({Table_SPJ.Tanggal}))>=" & bln1 & " and tonumber(MONTH({Table_SPJ.Tanggal}))<=" & bln2 & " and tonumber(YEAR({Table_SPJ.Tanggal}))=" & Val(Text2.Text) Else statusjurnal = "Tahun " + CStr(Text2.Text) .SelectionFormula = "tonumber(YEAR({Table_SPJ.Tanggal}))=" & Val(Text2.Text) End If .ParameterFields(0) = "status;" & statusjurnal & ";TRUE" .RetrieveDataFiles .Action = 1 End With End Sub

Keterangan Perintah untuk proses SPPJ.

203

4.5.4 Tampilan Bagian Lurah

Gambar 4.104 Tampilan Masukan Pada Bagian Lurah

Gambar 4.105 Tampilan Data Pegawai

204

Gambar 4.106 Tampilan Cetak Data Pegawai

Tabel 4.29 Listing Program Data Pegawai Listing Program Private Sub btn_tambah_Click() aktif kosong pil = "tambah" Text1.SetFocus End Sub

Keterangan Perintah untuk menyimpan data pegawai.

Private Sub btn_edit_Click() If Text1.Text = "" Then MsgBox "Pilih dulu data yang akan anda ubah!!!" Exit Sub End If pil = "ubah" Call aktif Text2.SetFocus End Sub Private Sub btn_simpan_Click() If Text2.Text = "" Then MsgBox "Nama Pegawai Harus diisi!!!" Text2.SetFocus Exit Sub End If If Text3.Text = "" Then Text3.Text = "-" End If

205

Tabel 4.30 Listing Program Data Pegawai Lanjutan 1 Listing Program If (pil = "tambah") Then rs_pegawai.AddNew End If Call simpan End Sub

Keterangan Perintah untuk menyimpan data pegawai.

Private Sub btn_hapus_Click() If Text1.Text = "" Then MsgBox "Pilih dulu data yang akan anda hapus!!!" Exit Sub End If With rs_pegawai .MoveFirst .Find "nip='" & Text1.Text & "'", , adSearchForward If Not .EOF Then .Delete .MoveFirst Call kosong Call tampil End If End With End Sub

Gambar 4.107 Tampilan Buku Inventaris

206

Gambar 4.108 Tampilan Cetak Laporan Buku Inventaris

Tabel 4.31 Listing Program Buku Inventaris Listing Program Private Sub btn_simpan_Click() If Text2.Text = "" Then MsgBox "Nama tanah Harus diisi!!!" Text2.SetFocus Exit Sub End If If Text3.Text = "" Then Text3.Text = "-" End If With rs_bi If Not .BOF Then .MoveFirst .Find "kode_barang='" & Text1.Text & "'", , adSearchForward If Not .EOF Then If pil = "tambah" Then MsgBox "Kode Tanah sudah pernah tersimpan" Exit Sub End If End If End If End With If (pil = "tambah") Then rs_bi.AddNew End If Call simpan End Sub

Keterangan Perintah untuk proses Buku Inventaris.

207

Gambar 4.109 Tampilan SUPB

Gambar 4.110 Tampilan SUPSP

208

4.5.5 Tampilan Bagian PPTK

Gambar 4.111 Tampilan Masukan Pada Bagian PPTK

Gambar 4.112 Tampilan Data Mitra

Tabel 4.32 Listing Program Data Mitra Listing Program Private Sub btn_tambah_Click() aktif kosong pil = "tambah"

Keterangan Perintah untuk menyimpan data mitra.

209

Tabel 4.33 Listing Program Data Mitra Lanjutan 1 Listing Program id Text2.SetFocus End Sub

Keterangan Perintah untuk menyimpan data mitra.

Private Sub btn_edit_Click() If Text1.Text = "" Then MsgBox "Pilih dulu data yang akan anda ubah!!!" Exit Sub End If pil = "ubah" Call aktif Text2.SetFocus End Sub Private Sub btn_simpan_Click() If Text2.Text = "" Then MsgBox "Nama Mitra Harus diisi!!!" Text2.SetFocus Exit Sub End If If Text3.Text = "" Then Text3.Text = "-" End If If (pil = "tambah") Then rs_mitra.AddNew End If Call simpan End Sub Private Sub btn_hapus_Click() If Text1.Text = "" Then MsgBox "Pilih dulu data yang akan anda hapus!!!" Exit Sub End If With rs_mitra .MoveFirst .Find "kode_mitra='" & Text1.Text & "'", , adSearchForward If Not .EOF Then .Delete .MoveFirst Call kosong Call tampil End If End With End Sub

210

Gambar 4.113 Tampilan NPD

Tabel 4.34 Listing Program NPD Listing Program Option Explicit Sub kosong() Text1.Text = "" Text2.Text = "" Text3.Text = "" Text4.Text = "" Text5.Text = "" Text6.Text = "" Text7.Text = "0" Text8.Text = "0" Text9.Text = "0" strcari = "" pil = "" Call isicombo(Combo1, "select * from Table_SPM", rs_spm, 0)

Keterangan Perintah untuk proses NPD (Nota Pencairan Dana).

End Sub Sub aktif() Text1.Locked = False Text2.Locked = False Text3.Locked = False Text4.Locked = False Text5.Locked = False Text6.Locked = False Text7.Locked = True Text8.Locked = True Text9.Locked = True btn_tambah.Enabled = False btn_simpan.Enabled = True btn_hapus.Enabled = False End Sub

211

Tabel 4.35 Listing Program NPD Lanjutan 1 Listing Program Sub nonaktif() Text1.Locked = True Text2.Locked = True Text3.Locked = True Text4.Locked = True Text5.Locked = True Text6.Locked = True Text7.Locked = True Text8.Locked = True Text9.Locked = True btn_tambah.Enabled = True btn_simpan.Enabled = False btn_hapus.Enabled = True End Sub


Sub hitung_jml() With rs_tampil .MoveFirst While Not .EOF jml = jml + 1 .MoveNext Wend End With End Sub Sub isilv() jml = 0 On Error Resume Next LV.ColumnHeaders.Clear LV.ListItems.Clear Call hitung_jml With LV .View = lvwReport .FullRowSelect = True .ColumnHeaders.Add , .ColumnHeaders.Add , 2000 .ColumnHeaders.Add , .ColumnHeaders.Add , 3000 .ColumnHeaders.Add , 3000 .ColumnHeaders.Add , .ColumnHeaders.Add , Anggaran DPA", 3000 .ColumnHeaders.Add , Diminta", 3000 .ColumnHeaders.Add , 2000 .ColumnHeaders.Add , Dibayar", 3000 rs_tampil.MoveFirst For i = 1 To jml .ListItems.Add i, , rs_tampil.Fields(0)

, "No NPD", 2000 , "Tanggal", , "Tahun", 1000 , "Program", , "Kegiatan", , "No DPA", 3000 , "Tahun , "Jumlah Yang , "Potongan", , "Jumlah Yang

212

Tabel 4.36 Listing Program NPD Lanjutan 2 Listing Program For j = 1 To 3 .ListItems(i).ListSubItems.Add , rs_tampil.Fields(1) .ListItems(i).ListSubItems.Add , rs_tampil.Fields(2) .ListItems(i).ListSubItems.Add , rs_tampil.Fields(3) .ListItems(i).ListSubItems.Add , rs_tampil.Fields(4) .ListItems(i).ListSubItems.Add , rs_tampil.Fields(5) .ListItems(i).ListSubItems.Add , rs_tampil.Fields(6) .ListItems(i).ListSubItems.Add , rs_tampil.Fields(7) .ListItems(i).ListSubItems.Add , rs_tampil.Fields(8) .ListItems(i).ListSubItems.Add , rs_tampil.Fields(9) Next rs_tampil.MoveNext Next End With End Sub

, ,


, , , , , , ,

Sub preview() With rs_npd Text1.Text = .Fields(0).Value DTPicker1.Value = .Fields(1).Value Text2.Text = .Fields(2).Value Text3.Text = .Fields(3).Value Text4.Text = .Fields(4).Value Text5.Text = .Fields(5).Value Text6.Text = .Fields(6).Value Text7.Text = .Fields(7).Value Text8.Text = .Fields(8).Value Text9.Text = .Fields(9).Value End With End Sub Sub simpan() With rs_npd .Fields(0).Value .Fields(1).Value .Fields(2).Value .Fields(3).Value .Fields(4).Value .Fields(5).Value .Fields(6).Value .Fields(7).Value .Fields(8).Value .Fields(9).Value .Update Call tampil Call nonaktif

= = = = = = = = = =

Text1.Text DTPicker1.Value Text2.Text Text3.Text Text4.Text Text5.Text Text6.Text Text7.Text Text8.Text Text9.Text

213

Tabel 4.37 Listing Program NPD Lanjutan 3 Listing Program Call kosong End With End Sub


Private Sub btn_cetak_Click() 'On Error Resume Next CR.ReportFileName = App.Path & "\report\Report_NPD.rpt" CR.SelectionFormula = "{Table_NPD.no_npd}='" & Text1.Text & "'" CR.RetrieveDataFiles CR.WindowState = crptMaximized CR.Action = 1 End Sub Private Sub btn_hapus_Click() If Text1.Text = "" Then MsgBox "Pilih dulu data yang akan anda hapus!!!" Exit Sub End If With rs_npd .MoveFirst .Find "no_npd='" & Text1.Text & "'", , adSearchForward If Not .EOF Then .Delete .MoveFirst Call kosong Call tampil End If End With End Sub Private Sub btn_keluar_Click() Call kosong Unload Me End Sub Private Sub btn_simpan_Click() If Text2.Text = "" Then MsgBox "Tahun Anggaran Harus diisi!!!" Text2.SetFocus Exit Sub End If If (pil = "tambah") Then rs_npd.AddNew End If Call simpan End Sub Private Sub btn_tambah_Click() aktif kosong pil = "tambah"

214

Tabel 4.38 Listing Program NPD Lanjutan 4 Listing Program Text1.SetFocus End Sub Private Sub Combo1_Click() st1 = Left(Combo1.Text, 5) st2 = Right(Combo1.Text, 18) Text1.Text = st1 + "NPD" + st2 With rs_spm .MoveFirst .Find "no_spm='" & Combo1.Text & "'", , adSearchForward If Not .EOF Then Text7.Text = .Fields(4).Value Text8.Text = .Fields(5).Value Text9.Text = .Fields(6).Value End If End With End Sub


Private Sub Form_Activate() Text1.SetFocus End Sub Sub tampil() st = "select * from Table_NPD" If rs_tampil.State = 1 Then rs_tampil.Close End If rs_tampil.Open st, con, adOpenDynamic, adLockOptimistic Call isilv End Sub Private Sub Form_Load() Move (Screen.Width - Width) / 2, (Screen.Height - Height) / 2 st = "select * from Table_NPD" If rs_npd.State = 1 Then rs_npd.Close End If rs_npd.Open st, con, adOpenDynamic, adLockOptimistic Call tampil Call kosong Call nonaktif If jml <= 0 Then btn_hapus.Enabled = False End If End Sub Private Sub Form_Unload(Cancel As Integer) strcari = ""

215

Tabel 4.39 Listing Program NPD Lanjutan 5 Listing Program pil = "" End Sub Private Sub btn_batal_Click() Call kosong Call nonaktif End Sub


Private Sub LV_ItemClick(ByVal Item As MSComctlLib.ListItem) strcari = Item.Text Call pencarian End Sub Private Sub Text2_KeyPress(KeyAscii As Integer) If KeyAscii = (13) Then btn_simpan.SetFocus End If End Sub Sub pencarian() With rs_npd If Not .BOF Then .MoveFirst .Find "no_npd='" & strcari & "'", , adSearchForward If Not .EOF Then Call preview End If End If End With End Sub

216

4.5.6 Tampilan Bagian Bendahara

Gambar 4.114 Tampilan Masukan Pada Bagian Bendahara

Gambar 4.115 Tampilan Kode Rekening

Tabel 4.40 Listing Program Kode Rekening Listing Program Option Explicit Sub kosong() Text1.Text = "" Text2.Text = "" strcari = "" pil = "" End Sub

Keterangan Perintah untuk menyimpan kode rekening.

217

Tabel 4.41 Listing Program Kode Rekening Lanjutan 1 Listing Program Sub aktif() Text1.Locked = False Text2.Locked = False btn_tambah.Enabled = False btn_edit.Enabled = False btn_simpan.Enabled = True btn_hapus.Enabled = False End Sub


Sub nonaktif() Text1.Locked = True Text2.Locked = True btn_tambah.Enabled = True btn_edit.Enabled = True btn_simpan.Enabled = False btn_hapus.Enabled = True End Sub Sub hitung_jml() With rs_tampil .MoveFirst While Not .EOF jml = jml + 1 .MoveNext Wend End With End Sub Sub isilv() jml = 0 On Error Resume Next LV.ColumnHeaders.Clear LV.ListItems.Clear Call hitung_jml With LV .View = lvwReport .FullRowSelect = True .ColumnHeaders.Add , , "KODE REKENING", 2000 .ColumnHeaders.Add , , "NAMA REKENING", 3000 rs_tampil.MoveFirst For i = 1 To jml .ListItems.Add i, , rs_tampil.Fields(0) For j = 1 To 3 .ListItems(i).ListSubItems.Add , , rs_tampil.Fields(1) Next rs_tampil.MoveNext Next End With End Sub Sub preview() With rs_rekening

218

Tabel 4.42 Listing Program Kode Rekening Lanjutan 2 Listing Program Text1.Text = .Fields(0).Value Text2.Text = .Fields(1).Value End With End Sub


Sub simpan() With rs_rekening .Fields(0).Value = Text1.Text .Fields(1).Value = Text2.Text .Update Call tampil Call nonaktif Call kosong End With End Sub Private Sub btn_hapus_Click() If Text1.Text = ”” Then MsgBox ”Pilih dulu data yang akan anda hapus!!!” Exit Sub End If With rs_rekening .MoveFirst .Find ”kode_rekening=’” & Text1.Text & ”’”, , adSearchForward If Not .EOF Then .Delete .MoveFirst Call kosong Call tampil End If End With End Sub Private Sub btn_keluar_Click() Call kosong Unload Me End Sub Private Sub btn_simpan_Click() If Text2.Text = ”” Then MsgBox ”Nama Rekening Harus diisi!!!” Text2.SetFocus Exit Sub End If If (pil = ”tambah”) Then rs_rekening.AddNew End If Call simpan End Sub Private Sub btn_tambah_Click() aktif kosong

219

Tabel 4.43 Listing Program Kode Rekening Lanjutan 3 Listing Program pil = ”tambah” Text1.SetFocus End Sub Private Sub btn_edit_Click() If Text1.Text = "" Then MsgBox "Pilih dulu data yang akan anda ubah!!!" Exit Sub End If pil = "ubah" Call aktif Text2.SetFocus End Sub


Private Sub Form_Activate() Text1.SetFocus End Sub Sub tampil() st = "select * from Table_Rekening" If rs_tampil.State = 1 Then rs_tampil.Close End If rs_tampil.Open st, con, adOpenDynamic, adLockOptimistic Call isilv End Sub Private Sub Form_Load() Move (Screen.Width - Width) / 2, (Screen.Height - Height) / 2 st = "select * from Table_Rekening" If rs_rekening.State = 1 Then rs_rekening.Close End If rs_rekening.Open st, con, adOpenDynamic, adLockOptimistic Call tampil Call kosong Call nonaktif If jml <= 0 Then btn_hapus.Enabled = False btn_edit.Enabled = False End If End Sub Private Sub Form_Unload(Cancel As Integer) strcari = "" pil = "" End Sub

220

Tabel 4.44 Listing Program Kode Rekening Lanjutan 4 Listing Program Private Sub btn_batal_Click() Call kosong Call nonaktif End Sub


Private Sub LV_ItemClick(ByVal Item As MSComctlLib.ListItem) strcari = Item.Text Call pencarian End Sub Private Sub Text2_KeyPress(KeyAscii As Integer) If KeyAscii = (13) Then btn_simpan.SetFocus End If End Sub Sub pencarian() With rs_rekening If Not .BOF Then .MoveFirst .Find "kode_rekening='" & strcari & "'", , adSearchForward If Not .EOF Then Call preview End If End If End With End Sub

Gambar 4.116 Tampilan Dokumen DPA 221

Tabel 4.45 Listing Program DPA Listing Program Private Sub btn_simpan_Click() If Text1.Text = "" Then MsgBox "Nomor DPA Harus diisi!!!" Text1.SetFocus Exit Sub End If If (pil = "tambah") Then rs_dpa.AddNew End If Call simpan End Sub

Keterangan Perintah untuk proses DPA.

Private Sub btn_add_Click() If Text4.Text = "" Then MsgBox "Kode Rekening Harus diisi!!!" Text4.SetFocus Exit Sub End If If Val(Text5.Text) = 0 Then MsgBox "Jumlah Anggaran Harus diisi!!!" Text5.SetFocus Exit Sub End If With rs_detaildpa .AddNew .Fields(0).Value = Text1.Text .Fields(1).Value = Text4.Text .Fields(2).Value = Text2.Text .Fields(3).Value = Text6.Text .Fields(4).Value = Text7.Text .Fields(5).Value = Text5.Text .Fields(6).Value = "dpa" .Update End With con.Execute "update Table_Detail_RKA set status_RKA='dpa' where kegiatan='" & rkajenis & "' and status_RKA='" & statusdpanya & "'" total_anggaran = Val(Text8.Text) Call tampil Text5.Text = "0" End Sub

222

Gambar 4.117 Tampilan Dokumen SPP-SP

Gambar 4.118 Tampilan Cetak Dokumen SPP-SP

223

Gambar 4.119 Tampilan Dokumen SPP-RRP

Gambar 4.120 Tampilan Cetak Dokumen SPP-RRP

224

Gambar 4.121 Tampilan Dokumen SPP-Ringkasan DPA

Gambar 4.122 Tampilan Cetak Dokumen SPP-Ringkasan DPA

225

Gambar 4.123 Tampilan Dokumen SPP-Ringkasan Belanja

Tabel 4.46 Listing Program SPP Listing Program Private Sub vbButton5_Click() vbButton5.Enabled = False vbButton1.Enabled = True Call isicombo(Text7, "select * from Table_Rekening", rs_rekening, 0) Combo3.Text = Combo1.Text Text6.Text = "" Text8.Text = "0" End Sub

Keterangan Perintah untuk proses SPP.

Private Sub btn_simpan_Click() If Text2.Text = "" Then MsgBox "Tahun Anggaran Harus diisi!!!" Text2.SetFocus Exit Sub End If If Text5.Text = "" Then MsgBox "Nomor SPD Harus diisi!!!" Text5.SetFocus Exit Sub End If If Val(Text3.Text) = 0 Then MsgBox "Jumlah Sisa Harus diisi!!!" Text3.SetFocus Exit Sub End If If Val(Text4.Text) = 0 Then MsgBox "Jumlah Permintaan Harus diisi!!!" Text4.SetFocus Exit Sub

226

Tabel 4.47 Listing Program SPP Lanjutan 1 Listing Program End If If (pil = "tambah") Then rs_spp.AddNew End If Call simpan End Sub

Keterangan Perintah untuk proses SPP.

Private Sub btn_cetak_Click() 'On Error Resume Next If Text1 = "" Then MsgBox "KLik listview, untuk melihat data SPP di tab SPP-Surat pengantar" Else CR.ReportFileName = App.Path & "\report\Report_SPP.rpt" CR.SelectionFormula = "{Table_SPP.no_spp}='" & Text1.Text & "'" CR.RetrieveDataFiles CR.WindowState = crptMaximized CR.Action = 1 End If End Sub

Gambar 4.124 Tampilan Dokumen SPJ Pemasukan

Tabel 4.48 Listing Program SPJ Pemasukan Listing Program Private Sub btn_tambah_Click() aktif kosong pil = ”tambah” Text1.Text = Date

Keterangan Perintah untuk proses SPJ Pemasukan.

227

Tabel 4.49 Listing Program SPJ Pemasukan Lanjutan 1 Listing Program DTPicker1 = Date Text3.SetFocus End Sub


Private Sub btn_simpan_Click() If Val(Text5.Text) = 0 Then MsgBox "Jumlah Kas Harus diisi!!!" Text5.SetFocus Exit Sub End If 'Call simpan_jurnal If (pil = "tambah") Then rs_spj.AddNew End If Call simpan End Sub

Gambar 4.125 Tampilan Dokumen SPJ Pengeluaran

Tabel 4.50 Listing Program SPJ Pengeluaran Listing Program Private Sub btn_tambah_Click() aktif kosong pil = "tambah" Text1.Text = Date Text3.SetFocus End Sub

Keterangan Perintah untuk proses SPJ Pengeluaran.

Private Sub btn_simpan_Click() If Val(Text5.Text) = 0 Then MsgBox "Jumlah Kas Harus diisi!!!" Text5.SetFocus Exit Sub

228

Tabel 4.51 Listing Program SPJ Pengeluaran Lanjutan 1 Listing Program End If If (pil = "tambah") Then rs_spj.AddNew End If Call simpan End Sub


Gambar 4.126 Tampilan Transaksi Aktiva Tetap (Tanah)

Gambar 4.127 Tampilan Transaksi Aktiva Tetap (Bangunan)

229

Gambar 4.128 Tampilan Transaksi Aktiva Tetap (Peralatan)

Gambar 4.129 Tampilan Transaksi Aktiva Lancar (Persediaan)

230

Gambar 4.130 Tampilan Proses Jurnal Umum

Tabel 4.52 Listing Program Jurnal Umum Listing Program Private Sub btn_cetak_Click() conreport = ”Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=Kelurahan;Data Source=(local)” If Option1.Value = True Then If Text1.Text = ”” Or Combo1.Text = ” -- Pilih Bulan –” Then Text1.Text = ”2012” Combo1.Text = ” -- Pilih Bulan –” MsgBox ”Silahkan pilih Tahun dan Bulan terlebih dahulu.”, vbCritical, ”Perhatian !” Else With CR .ReportFileName = App.Path & ”\report\Report_Jurnal.rpt” statusjurnal = ”Bulan ” + CStr(Combo1.Text) + ” ” + CStr(Text1.Text) blan = Combo1.ListIndex + 1 .SelectionFormula = ”tonumber(MONTH({view_jurnal.tgl_jurnal}))=” & Combo1.ListIndex + 1 _ & ” and tonumber(YEAR({view_jurnal.tgl_jurnal}))=” & Text1.Text .ParameterFields(0) = ”status;” & statusjurnal & ”;TRUE” .RetrieveDataFiles .Action = 1 End With End If

Keterangan Perintah untuk proses cetak jurnal umum.

231

Tabel 4.53 Listing Program Jurnal Umum Lanjutan 1 Listing Program Else If Text2.Text = ”” Then Text2.Text = ”2012” MsgBox ”Silahkan pilih Tahun terlebih dahulu.”, vbCritical, ”Perhatian !” Else With CR .ReportFileName = App.Path & ”\report\Report_Jurnal.rpt” statusjurnal = ”Tahun ” + CStr(Text2.Text) .SelectionFormula = ”tonumber(YEAR({view_jurnal.tgl_jurnal}))=” & Val(Text2.Text) .ParameterFields(0) = ”status;” & statusjurnal & ”;TRUE” .RetrieveDataFiles .Action = 1 End With End If End If End Sub

Keterangan Perintah untuk proses cetak jurnal umum.

Private Sub vbButton1_Click() frmBB.Show vbModal Unload Me End Sub

232

Gambar 4.131 Tampilan Cetak Jurnal Umum

Gambar 4.132 Tampilan Proses Jurnal Penyesuaian

233

Gambar 4.133 Tampilan Cetak Jurnal Penyesuaian

Gambar 4.134 Tampilan Proses Buku Besar Umum Kas Kelurahan

234

Gambar 4.135 Tampilan Cetak Buku Besar Umum Kas Kelurahan

Gambar 4.136 Tampilan Proses Buku Besar Umum Kas Bank

235

Gambar 4.137 Tampilan Cetak Buku Besar Umum Kas Bank

Gambar 4.138 Tampilan Proses Buku Besar Umum Kas Kecil

Gambar 4.139 Tampilan Cetak Buku Besar Umum Kas Kecil 236

Gambar 4.140 Tampilan Proses Buku Besar Umum Persediaan ATK

Gambar 4.141 Tampilan Cetak Buku Besar Umum Persedian ATK

Gambar 4.142 Tampilan Proses Buku Besar Umum Tanah

237

Gambar 4.143 Tampilan Cetak Buku Besar Umum Tanah

Gambar 4.144 Tampilan Proses Buku Besar Umum Peralatan (Printer)

Gambar 4.145 Tampilan Cetak Buku Besar Umum Peralatan (Printer) 238

Gambar 4.146 Tampilan Proses Buku Besar Umum Gedung dan Bangunan

Gambar 4.147 Tampilan Cetak Buku Besar Umum Gedung dan Bangunan

Gambar 4.148 Tampilan Proses Buku Besar Umum Belanja Pegawai 239

Gambar 4.149 Tampilan Cetak Buku Besar Umum Belanja Pegawai

Gambar 4.150 Tampilan Proses Buku Besar Umum Honorarium Panitia

Gambar 4.151 Tampilan Cetak Buku Besar Umum Honorarium Panitia

240

Gambar 4.152 Tampilan Proses Buku Besar Umum Belanja Listrik

Gambar 4.153 Tampilan Cetak Buku Besar Umum Belanja Listrik

Gambar 4.154 Tampilan Proses Buku Besar Umum Belanja Air 241

Gambar 4.155 Tampilan Cetak Buku Besar Umum Belanja Air

Gambar 4.156 Tampilan Proses Buku Besar Umum Belanja Telepon

Gambar 4.157 Tampilan Cetak Buku Besar Umum Belanja Telepon 242

Gambar 4.158 Tampilan Proses Buku Besar Umum Belanja Perawatan Kendaraan

Gambar 4.159 Tampilan Cetak Buku Besar Umum Belanja Perawatan Kendaraan

243

Gambar 4.160 Tampilan Proses Buku Besar Umum Belanja Jasa Service

Gambar 4.161 Tampilan Cetak Buku Besar Umum Belanja Jasa Service

244

Gambar 4.162 Tampilan Proses Buku Besar Umum Belanja Makanan & Minuman Rapat

Gambar 4.163 Tampilan Cetak Buku Besar Umum Belanja Makanan & Minuman Rapat

245

Tabel 4.54 Listing Program Buku Besar Umum Listing Program Private Sub btn_cetak_Click() conreport = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=Kelurahan;Data Source=(local)" With rs_rekening .MoveFirst .Find "nama_rekening='" & Combo3.Text & "'", , adSearchForward If Not .EOF Then jenisBB = .Fields(0).Value End If End With With CR .ReportFileName = App.Path & "\report\Report_BB.rpt" If Option1.Value = True Then statusjurnal = "Bulan " + CStr(Combo1.Text) + " " + CStr(Text1.Text) blan = Combo1.ListIndex + 1 .SelectionFormula = "tonumber(MONTH({Table_BB.tanggal}))=" & blan & " and tonumber(YEAR({Table_BB.tanggal}))=" & Val(Text1.Text) & " and {Table_BB.Kode_Rekening}='" & jenisBB & "'" ElseIf Option2.Value = True Then bln1 = Combo2.ListIndex + 1 bln2 = bln1 + 2 statusjurnal = "Bulan " + CStr(Combo2.Text) + " " + CStr(Text3.Text) .SelectionFormula = "tonumber(MONTH({Table_BB.tanggal}))>=" & bln1 & " and tonumber(MONTH({Table_BB.tanggal}))<=" & bln2 & " and tonumber(YEAR({Table_BB.tanggal}))=" & Val(Text2.Text) & " and {Table_BB.Kode_Rekening}='" & jenisBB & "'" Else statusjurnal = "Tahun " + CStr(Text2.Text) .SelectionFormula = "tonumber(YEAR({Table_BB.tanggal}))=" & Val(Text2.Text) & " and {Table_BB.Kode_Rekening}='" & jenisBB & "'" End If .ParameterFields(0) = "status;" & statusjurnal & ";TRUE" .RetrieveDataFiles .WindowState = crptMaximized

Keterangan Perintah untuk proses buku besar umum.

246

Tabel 4.55 Listing Program Buku Besar Umum Lanjutan 1 Listing Program .Action = 1 End With End Sub

Keterangan Perintah untuk proses buku besar umum.

Private Sub Form_Load() Call bulanan Call isibulan Call isicombo(Combo3, "select * from Table_rekening", rs_rekening, 1) Text1.Text = Year(Now) Text2.Text = Year(Now) Text3.Text = Year(Now) End Sub Sub isibulan() 'isi combo1 Combo1.AddItem Combo1.AddItem Combo1.AddItem Combo1.AddItem Combo1.AddItem Combo1.AddItem Combo1.AddItem Combo1.AddItem Combo1.AddItem Combo1.AddItem Combo1.AddItem Combo1.AddItem 'isi combo2 Combo2.AddItem Combo2.AddItem Combo2.AddItem Combo2.AddItem Combo2.AddItem Combo2.AddItem Combo2.AddItem Combo2.AddItem Combo2.AddItem Combo2.AddItem Combo2.AddItem Combo2.AddItem End Sub

"Januari" "Februari" "Maret" "April" "Mei" "Juni" "Juli" "Agustus" "September" "Oktober" "November" "Desember" "Januari - Maret" "Februari - April" "Maret - Mei" "April - Juni" "Mei - Juli" "Juni - Agustus" "Juli - September" "Agustus - Oktober" "September - November" "Oktober - Desember" "Nopember - Januari" "Desember - Februari"

247

Gambar 4.164 Tampilan Proses Neraca Saldo

Gambar 4.165 Tampilan Cetak Neraca Saldo

248

Gambar 4.166 Tampilan Cetak Neraca Saldo Setelah Disesuaikan

Gambar 4.167 Tampilan Keluaran Laporan Keuangan Neraca

249

Gambar 4.168 Tampilan Cetak Laporan Keuangan Neraca

250

4.6 Konversi Komponen Sistem 4.6.1 Pengguna (Brainware) Pengguna Software sistem informasi akuntansi laporan keuangan neraca ini adalah minimal lulusan SMA sederajat, mampu menjalankan komputer dengan baik serta mengerti minimalnya akuntansi dasar.

4.6.2 Perangkat Keras (Hardware) Perangkat keras yang dibutuhkan untuk menjalankan program sistem informasi akuntansi laporan keuangan neraca ini adalah processor Pentium 4, motherboard intel, harddisk 20 GB, memory DDR 256 MB, ATI RADEON XPRESS 200M Series 128 MB.

4.6.3 Perangkat Lunak (Software) 4.6.3.1 Perangkat Lunak Sistem Perangkat lunak sistem untuk mengkonfigurasi aplikasi sistem informasi akuntansi laporan keuangan neraca adalah dengan menggunakan Windows XP karena sistem operasi ini dapat mendukung semua aplikasi yang dibutuhkan dalam menjalankan program ini.

4.6.3.2 Perangkat Lunak Pemrograman Perangkat lunak pemrograman dalam perancangan sistem informasi akuntansi laporan keuangan neraca adalah dengan menggunakan Microsoft Visual Basic 6.0 dengan segala fasilitas yang cukup komplit dalam fasilitasnya.

251

4.6.3.3 Perangkat Lunak Aplikasi Perangkat lunak aplikasi yang digunakan dalam perancangan sistem informasi akuntansi laporan keuangan neraca adalah Microsoft SQL Server 2000 yang berfungsi sebagai media penyimpanan data dan Crystal Report 8.0 yang berfungsi sebagai media dalam pembuatan laporan.

4.7 Jaringan Komputer Client Server 4.7.1 Model Jaringan Client Server Model jaringan client server yang digunakan dalam aplikasi sistem informasi akuntansi laporan keuangan neraca adalah dengan model jaringan start. Pemakaian model jaringan start dalam penggunaan aplikasi sistem infromasi akuntansi laporan keuangan neraca ini karena kemudahannya dalam menambah maupun mengurangi client serta mudah untuk mendeteksi kerusakan pada sistem.

4.7.2 Koneksi Jaringan Client Server Berdasarkan perancangan sistem informasi akuntansi laporan keuangan neraca yang berbasis client server dengan menggunakan Microsoft Visual Basic 6.0 dan SQL Server 2000, maka diperlukannya konfigurasi client server. Dimana beberapa komputer yang saling terhubung dan membentuk suatu jaringan (clientserver) untuk dapat menggunakan program aplikasi secara bersama-sama (sharing). Maka harus di-setting terlebih dulu ODBC-nya supaya dapat terkoneksi.

252

Langkah–langkah dalam melakukan client server: A. Pertama-tama pastikan komputer anda terdapat port jaringan B. Sediakan peralatan-peralatan jaringan seperti: 1. Kabel UTP, misalnya kabel UTP tipe Straight, seperti di bawah ini:

Gambar 4.169 UTP Tipe Stright 2. Konektor dengan tipe straight, seperti di bawah ini:

Gambar 4.170 Tipe Straight 3. Crimp Tool, yaitu tang khusus untuk memasang konektor ke kabel UTP, seperti berikut ini:

Gambar 4.171 Crimp Tool Saat akan memasang konektor ke Crimp Tool, maka potong ujung kabelnya, kemudian susun kabelnya dan diratakan dengan pisau potong yang ada pada Crimp Tool. Kita tidak perlu repot harus melepaskan isolasi pada bagian ujung kabel, karena saat kita memasukan kabel tersebut ke konektor lalu 253

ditekan (pressed) dengan menggunakan crimp tool, saat itu pin yang ada di konektor menembus sampai ke dalam kabel. C. Tes kabel UTP yang telah dibuat tadi dengan menggunakan LAN Tester, yaitu alat untuk memeriksa benar tidaknya sambungan kabel. Untuk tipe straight jika benar maka led 1 sampai 8 berkedip. Berikut adalah gambar dari bawah dari ujung kabel UTP yang sudah dipasang konektor dan berhasil dengan baik (urutan pewarnaan pinnya ikut standar).

Gambar 4.172 Urutan Pin Standar 1. Kemudian jika seluruh peralatan jaringan telah terpenuhi, maka pasangkan kabel UTP tadi ke Port jaringan komputer anda. 2. Pastikan Jaringan anda terkoneksi. 3. Setelah komputer anda terkoneksi pada jaringan maka anda dapat melakukan sharing data dengan cara: a. Langkah pertama adalah cari ODBC dulu untuk mengkoneksikan data. ODBC dapat dicari dengan klik start jika sudah ada pada layar dapat langsung di klik, apabila tidak ada maka dapat dicari melalui Control Panel kemudian klik Administrative Tools.

254

Gambar 4.173 Setting Control Panel b. Setelah ODBC di klik maka muncul tampilan. Jika database sudah ada dapat langsung klik configure apabila database belum ada, kita pilih Add untuk memasukan database dan pilih driver yang digunakan.

Gambar 4.174 Setting ODBC

Gambar 4.175 Setting Configure 255

c. Setelah database masuk isikan data source sesuai dengan database, kemudian klik next.

Gambar 4.176 Setting Data Source d. Pada change the default database pilih database yang akan digunakan kemudian klik next.

Gambar 4.177 Setting Database e. Terakhir pilih finish dan untuk memastikan datasource sudah terkoneksi dapat di klik test data source dan apabila sudah terkoneksi klik ok.

256

4.8 Kelebihan dan Kelemahan Sistem yang Diusulkan 4.8.1 Kelebihan Sistem Kelebihan sistem yang diusulkan adalah sebagai berikut: A. Sudah terkomputerisasi dan client server. B. Pada saat masuk (login) ke setiap bagian menggunakan kata kunci (password). C. Pada saat membuat Jurnal Umum dan Buku Besar Umum sudah terdapat kode rekening masing-masing. D. Pembuatan Jurnal Umum, Buku Besar Umum, Neraca Saldo, Jurnal Penyesuaian, Neraca Saldo Setelah Disesuaikan, sampai ke Laporan Keuangan Neraca sudah memenuhi Standar Akuntansi Pemerintah. E. Untuk program aplikasi sistem informasi akuntansi laporan keuangan neraca dengan menggunakan Software Microsoft Visual Basic 6.0 dengan database SQL server 2000 ini memiliki kelebihan yaitu proses pengolahan data dan pembuatan laporan keuangan neraca menjadi terkomputerisasi dan otomatis, sehingga akan mengurangi terjadinya kesalahan.

4.8.2 Kekurangan Sistem Kekurangan sistem yang diusulkan adalah sebagai berikut: A. Program aplikasi ini hanya memunculkan sebagian data-data yang berkaitan dengan laporan keuangan neraca saja. B. Neraca saldo merupakan neraca saldo akhir dari transaksi dan belum bisa melihat neraca saldo periode sebelum periode berjalan.

257

BAB IV PERANCANGAN SISTEM INFORMASI AKUNTANSI LAPORAN KEUANGAN NERACA Kebijakan Sistem Informasi Akuntansi Laporan Keuangan Neraca dan

Recommend Documents